From 12d931c81c6844e65cea79dd4ab34ab492e77296 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Thu, 1 Dec 2022 10:18:34 +0100
Subject: [PATCH] Quentin 01/12/2022: merge fromLIMA MesoNH dev 5.5 to 5.6
---
src/mesonh/micro/ini_lima.f90 | 6 +-
src/mesonh/micro/ini_lima_cold_mixed.f90 | 635 +-
src/mesonh/micro/ini_lima_warm.f90 | 20 +-
src/mesonh/micro/lima.f90 | 794 +-
src/mesonh/micro/lima_adjust.f90 | 66 +-
src/mesonh/micro/lima_adjust_split.f90 | 439 +-
src/mesonh/micro/lima_bergeron.f90 | 26 +-
src/mesonh/micro/lima_ccn_activation.f90 | 137 +-
src/mesonh/micro/lima_cold.f90 | 79 +-
src/mesonh/micro/lima_cold_sedimentation.f90 | 235 +-
src/mesonh/micro/lima_cold_slow_processes.f90 | 124 +-
.../micro/lima_collisional_ice_breakup.f90 | 419 +
.../micro/lima_compute_cloud_fractions.f90 | 33 +-
.../micro/lima_conversion_melting_snow.f90 | 30 +-
src/mesonh/micro/lima_droplets_accretion.f90 | 97 +-
.../micro/lima_droplets_autoconversion.f90 | 67 +-
.../micro/lima_droplets_hom_freezing.f90 | 26 +-
.../micro/lima_droplets_riming_snow.f90 | 205 +-
src/mesonh/micro/lima_graupel.f90 | 195 +-
src/mesonh/micro/lima_graupel_deposition.f90 | 27 +-
src/mesonh/micro/lima_hail.f90 | 576 +
src/mesonh/micro/lima_hail_deposition.f90 | 100 +
.../micro/lima_ice_aggregation_snow.f90 | 59 +-
src/mesonh/micro/lima_ice_deposition.f90 | 110 +-
.../lima_init_ccn_activation_spectrum.f90 | 4 +-
src/mesonh/micro/lima_inst_procs.f90 | 4 +-
src/mesonh/micro/lima_mixed.f90 | 231 +-
.../micro/lima_mixed_fast_processes.f90 | 2419 +++--
.../micro/lima_mixed_slow_processes.f90 | 116 +-
src/mesonh/micro/lima_notadjust.f90 | 50 +-
src/mesonh/micro/lima_nucleation_procs.f90 | 74 +-
src/mesonh/micro/lima_rain_accr_snow.f90 | 199 +-
src/mesonh/micro/lima_rain_evaporation.f90 | 67 +-
.../lima_raindrop_shattering_freezing.f90 | 159 +
src/mesonh/micro/lima_read_xker_raccs.f90 | 9624 +++++++++--------
src/mesonh/micro/lima_read_xker_sdryg.f90 | 6423 +++++------
src/mesonh/micro/lima_read_xker_sweth.f90 | 6423 +++++------
src/mesonh/micro/lima_sedimentation.f90 | 49 +-
src/mesonh/micro/lima_snow_deposition.f90 | 80 +-
.../micro/lima_snow_self_collection.f90 | 149 +
src/mesonh/micro/lima_tendencies.f90 | 640 +-
src/mesonh/micro/lima_warm.f90 | 14 +-
src/mesonh/micro/lima_warm_coal.f90 | 110 +-
src/mesonh/micro/lima_warm_evap.f90 | 82 +-
src/mesonh/micro/lima_warm_nucl.f90 | 12 +-
src/mesonh/micro/modd_param_lima.f90 | 23 +-
src/mesonh/micro/modd_param_lima_cold.f90 | 40 +-
src/mesonh/micro/modd_param_lima_mixed.f90 | 83 +-
src/mesonh/micro/modd_param_lima_warm.f90 | 14 +-
src/mesonh/micro/modn_param_lima.f90 | 7 +-
src/mesonh/micro/set_conc_lima.f90 | 95 +-
51 files changed, 17965 insertions(+), 13731 deletions(-)
create mode 100644 src/mesonh/micro/lima_collisional_ice_breakup.f90
create mode 100644 src/mesonh/micro/lima_hail.f90
create mode 100644 src/mesonh/micro/lima_hail_deposition.f90
create mode 100644 src/mesonh/micro/lima_raindrop_shattering_freezing.f90
create mode 100644 src/mesonh/micro/lima_snow_self_collection.f90
diff --git a/src/mesonh/micro/ini_lima.f90 b/src/mesonh/micro/ini_lima.f90
index d90f1e160..54c784e64 100644
--- a/src/mesonh/micro/ini_lima.f90
+++ b/src/mesonh/micro/ini_lima.f90
@@ -148,9 +148,9 @@ XCTMIN(1) = 1.0 ! Not used
XCTMIN(2) = 1.0E-3 ! Nc
XCTMIN(3) = 1.0E-3 ! Nr
XCTMIN(4) = 1.0E-3 ! Ni
-XCTMIN(5) = 1.0E-3 ! Not used
-XCTMIN(6) = 1.0E-3 ! Not used
-XCTMIN(7) = 1.0E-3 ! Not used
+XCTMIN(5) = 1.0E-3 ! Ns
+XCTMIN(6) = 1.0E-3 ! Ng
+XCTMIN(7) = 1.0E-3 ! Nh
!
!
! Air density fall speed correction
diff --git a/src/mesonh/micro/ini_lima_cold_mixed.f90 b/src/mesonh/micro/ini_lima_cold_mixed.f90
index 101626b4d..c06c29212 100644
--- a/src/mesonh/micro/ini_lima_cold_mixed.f90
+++ b/src/mesonh/micro/ini_lima_cold_mixed.f90
@@ -41,6 +41,9 @@ END MODULE MODI_INI_LIMA_COLD_MIXED
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
! P. Wautelet 10/04/2019: replace ABORT and STOP calls by Print_msg
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
+! C. Barthe 14/03/2022: add CIBU and RDSF
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!
!-------------------------------------------------------------------------------
!
@@ -54,6 +57,7 @@ USE MODD_PARAM_LIMA
USE MODD_PARAM_LIMA_WARM
USE MODD_PARAM_LIMA_COLD
USE MODD_PARAM_LIMA_MIXED
+use MODD_RAIN_ICE_PARAM, only: XALPHA1, XALPHA2, XBETA1, XBETA2, IMNU0=>XMNU0, XNU10, XNU20
USE MODD_REF
!
use mode_msg
@@ -64,6 +68,9 @@ USE MODI_GAMMA_INC
USE MODE_RRCOLSS, ONLY: RRCOLSS
USE MODE_RZCOLX, ONLY: RZCOLX
USE MODE_RSCOLRG, ONLY: RSCOLRG
+USE MODI_NRCOLSS
+USE MODI_NZCOLX
+USE MODI_NSCOLRG
USE MODI_LIMA_READ_XKER_RACCS
USE MODI_LIMA_READ_XKER_SDRYG
USE MODI_LIMA_READ_XKER_RDRYG
@@ -97,7 +104,7 @@ REAL :: ZBOUND ! XDCSLIM*Lbda_s: upper bound for the partial
REAL :: ZEGS, ZEGR, ZEHS, ZEHG! Bulk collection efficiencies
!
INTEGER :: IND ! Number of interval to integrate the kernels
-REAL :: ZESR ! Mean efficiency of rain-aggregate collection
+REAL :: ZESR, ZESS ! Mean efficiency of rain-aggregate collection, aggregate-aggregate collection
REAL :: ZFDINFTY ! Factor used to define the "infinite" diameter
!
!
@@ -113,7 +120,7 @@ REAL :: PALPHAR,PALPHAS,PALPHAG,PALPHAH
REAL :: PNUR,PNUS,PNUG,PNUH
REAL :: PBR,PBS,PBG,PBH
REAL :: PCR,PCS,PCG,PCH
-REAL :: PDR,PDS,PDG,PDH
+REAL :: PDR,PDS,PFVELOS,PDG,PDH
REAL :: PESR,PEGS,PEGR,PEHS,PEHG
REAL :: PFDINFTY
REAL :: PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN
@@ -124,7 +131,21 @@ REAL :: PWETLBDAH_MAX,PWETLBDAH_MIN
INTEGER :: KWETLBDAS,KWETLBDAG,KWETLBDAH
!
REAL :: ZFAC_ZRNIC ! Zrnic factor used to decrease Long Kernels
-!
+!
+REAL :: ZBOUND_CIBU_SMIN ! XDCSLIM*Lbda_s : lower & upper bound used
+REAL :: ZBOUND_CIBU_SMAX ! in the tabulated function
+REAL :: ZBOUND_CIBU_GMIN ! XDCGLIM*Lbda_g : lower & upper bound used
+REAL :: ZBOUND_CIBU_GMAX ! in the tabulated function
+REAL :: ZRATE_S ! Geometrical growth of Lbda_s in the tabulated function
+REAL :: ZRATE_G ! Geometrical growth of Lbda_g in the tabulated function
+!
+REAL :: ZBOUND_RDSF_RMIN ! XDCRLIM*Lbda_r : lower & upper bound used
+REAL :: ZBOUND_RDSF_RMAX ! in the tabulated function
+REAL :: ZRATE_R ! Geometrical growth of Lbda_r in the tabulated function
+REAL :: ZKHI_LWM ! Coefficient of Lawson et al. (2015)
+!
+REAL :: ZRHOIW ! ice density
+!
!-------------------------------------------------------------------------------
!
!
@@ -171,12 +192,25 @@ XF1IS = 0.28
!
XAS = 0.02
XBS = 1.9
+
+IF (LSNOW_T) THEN
+!Cas Gamma generalisee
+XCS = 11.52
+XDS = 0.39
+XFVELOS =0.097
+!Cas MP
+!XCS = 13.2
+!XDS = 0.423
+!XFVELOS = 25.14
+ELSE
XCS = 5.
XDS = 0.27
-!
+XFVELOS = 0.
+END IF
+
XCCS = 5.0
XCXS = 1.0
-!
+
XF0S = 0.86
XF1S = 0.28
!
@@ -210,8 +244,8 @@ XDH = 0.64
!XCCH = 5.E-4
!XCXH = 2.0
!!!!!!!!!!!!
- XCCH = 4.E4 ! Test of Ziegler (1988)
- XCXH = -1.0 ! Test of Ziegler (1988)
+XCCH = 4.E4 ! Test of Ziegler (1988)
+XCXH = -1.0 ! Test of Ziegler (1988)
!!! XCCH = 5.E5 ! Graupel_like
!!! XCXH = -0.5 ! Graupel_like
!!!!!!!!!!!!
@@ -234,28 +268,69 @@ XC1H = 1./2.
XALPHAI = 3.0 ! Gamma law for the ice crystal volume
XNUI = 3.0 ! Gamma law with little dispersion
!
-XALPHAS = 1.0 ! Exponential law
-XNUS = 1.0 ! Exponential law
-!
-XALPHAG = 1.0 ! Exponential law
-XNUG = 1.0 ! Exponential law
+IF (LSNOW_T) THEN
+!Cas GAMMAGEN
+ XALPHAS = .214 ! Generalized gamma law
+ XNUS = 43.7 ! Generalized gamma law
+ XTRANS_MP_GAMMAS = SQRT( ( GAMMA(XNUS + 2./XALPHAS)*GAMMA(XNUS + 4./XALPHAS) ) / &
+ ( 8.* GAMMA(XNUS + 1./XALPHAS)*GAMMA(XNUS + 3./XALPHAS) ) )
+ELSE IF (NMOM_S.EQ.2) THEN
+ XALPHAS = 1.0 ! Gamma law
+ XNUS = 2.0 !
+ XTRANS_MP_GAMMAS = SQRT( ( GAMMA(XNUS + 2./XALPHAS)*GAMMA(XNUS + 4./XALPHAS) ) / &
+ ( 8.* GAMMA(XNUS + 1./XALPHAS)*GAMMA(XNUS + 3./XALPHAS) ) )
+ELSE
+ XALPHAS = 1.0 ! Exponential law
+ XNUS = 1.0 ! Exponential law
+ XTRANS_MP_GAMMAS = 1.
+END IF
!
-XALPHAH = 1.0 ! Gamma law
-XNUH = 8.0 ! Gamma law with little dispersion
+if (NMOM_G.GE.2) then
+ XALPHAG = 1.0 !
+ XNUG = 2.0 !
+else
+ XALPHAG = 1.0 ! Exponential law
+ XNUG = 1.0 ! Exponential law
+end if
+!
+if (NMOM_H.GE.2) then
+ XALPHAH = 1.0 ! Gamma law
+ XNUH = 5.0 ! Gamma law with little dispersion
+else
+ XALPHAH = 1.0 ! Gamma law
+ XNUH = 8.0 ! Gamma law with little dispersion
+end if
!
!* 2.2 Constants for shape parameter
!
XLBEXI = 1.0/XBI
XLBI = XAI*MOMG(XALPHAI,XNUI,XBI)
!
-XLBEXS = 1.0/(XCXS-XBS)
-XLBS = ( XAS*XCCS*MOMG(XALPHAS,XNUS,XBS) )**(-XLBEXS)
+XNS = 1.0/(XAS*MOMG(XALPHAS,XNUS,XBS))
+IF (NMOM_S.EQ.1) THEN
+ XLBEXS = 1.0/(XCXS-XBS)
+ XLBS = ( XAS*XCCS*MOMG(XALPHAS,XNUS,XBS) )**(-XLBEXS)
+ELSE
+ XLBEXS = 1./XBS
+ XLBS = XAS * MOMG(XALPHAS,XNUS,XBS)
+END IF
!
-XLBEXG = 1.0/(XCXG-XBG)
-XLBG = ( XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XLBEXG)
+XNG = 1.0/(XAG*MOMG(XALPHAG,XNUG,XBG))
+IF (NMOM_G.EQ.1) THEN
+ XLBEXG = 1.0/(XCXG-XBG)
+ XLBG = ( XAG*XCCG*MOMG(XALPHAG,XNUG,XBG))**(-XLBEXG)
+ELSE
+ XLBEXG = 1./XBG
+ XLBG = XAG * MOMG(XALPHAG,XNUG,XBG)
+END IF
!
-XLBEXH = 1.0/(XCXH-XBH)
-XLBH = ( XAH*XCCH*MOMG(XALPHAH,XNUH,XBH) )**(-XLBEXH)
+IF (NMOM_H.EQ.1) THEN
+ XLBEXH = 1.0/(XCXH-XBH)
+ XLBH = ( XAH*XCCH*MOMG(XALPHAH,XNUH,XBH) )**(-XLBEXH)
+ELSE
+ XLBEXH = 1./XBH
+ XLBH = XAH * MOMG(XALPHAH,XNUH,XBH)
+END IF
!
GFLAG = .TRUE.
IF (GFLAG) THEN
@@ -266,7 +341,8 @@ IF (GFLAG) THEN
WRITE(UNIT=ILUOUT0,FMT='(" XLBEXH =",E13.6," XLBH =",E13.6)') XLBEXH,XLBH
END IF
!
-XLBDAS_MAX = 500000
+XLBDAS_MAX = 500000. ! used only before transforming lambda for non MP PSD
+XLBDAS_MIN = 1000. *1.E-10
XLBDAG_MAX = 100000.0
!
ZCONC_MAX = 1.E6 ! Maximal concentration for falling particules set to 1 per cc
@@ -312,9 +388,20 @@ XFSEDRI = XC_I*GAMMA_X0D(XNUI+(XDI+XBI)/XALPHAI)/GAMMA_X0D(XNUI+XBI/XALPHAI)*
XFSEDCI = XC_I*GAMMA_X0D(XNUI+XDI/XALPHAI)/GAMMA_X0D(XNUI)* &
(ZRHO00)**XCEXVT
!
-XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
-XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
+IF (LSNOW_T) THEN
+!HOUZE/HAIC
+ !XEXSEDS = -XDS !(2*XBS+XDS)
+ !XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
+ ! *(ZRHO00)**XCEXVT
+!LH_EXTENDED
+ XEXSEDS = -XDS-XBS
+ XFSEDS = XCS*MOMG(XALPHAS,XNUS,XBS+XDS)/(MOMG(XALPHAS,XNUS,XBS)) &
+ *(ZRHO00)**XCEXVT
+ELSE
+ XEXSEDS = (XBS+XDS-XCXS)/(XBS-XCXS)
+ XFSEDS = XCS*XAS*XCCS*MOMG(XALPHAS,XNUS,XBS+XDS)* &
(XAS*XCCS*MOMG(XALPHAS,XNUS,XBS))**(-XEXSEDS)*(ZRHO00)**XCEXVT
+END IF
!
XEXSEDG = (XBG+XDG-XCXG)/(XBG-XCXG)
XFSEDG = XCG*XAG*XCCG*MOMG(XALPHAG,XNUG,XBG+XDG)* &
@@ -323,6 +410,24 @@ XFSEDG = XCG*XAG*XCCG*MOMG(XALPHAG,XNUG,XBG+XDG)* &
XEXSEDH = (XBH+XDH-XCXH)/(XBH-XCXH)
XFSEDH = XCH*XAH*XCCH*MOMG(XALPHAH,XNUH,XBH+XDH)* &
(XAH*XCCH*MOMG(XALPHAH,XNUH,XBH))**(-XEXSEDH)*(ZRHO00)**XCEXVT
+IF (NMOM_S.GE.2) THEN
+ XFSEDRS = XCS*GAMMA_X0D(XNUS+(XDS+XBS)/XALPHAS)/GAMMA_X0D(XNUS+XBS/XALPHAS)* &
+ (ZRHO00)**XCEXVT
+ XFSEDCS = XCS*GAMMA_X0D(XNUS+XDS/XALPHAS)/GAMMA_X0D(XNUS)* &
+ (ZRHO00)**XCEXVT
+END IF
+IF (NMOM_G.GE.2) THEN
+ XFSEDRG = XCG*GAMMA_X0D(XNUG+(XDG+XBG)/XALPHAG)/GAMMA_X0D(XNUG+XBG/XALPHAG)* &
+ (ZRHO00)**XCEXVT
+ XFSEDCG = XCG*GAMMA_X0D(XNUG+XDG/XALPHAG)/GAMMA_X0D(XNUG)* &
+ (ZRHO00)**XCEXVT
+END IF
+IF (NMOM_H.GE.2) THEN
+ XFSEDRH = XCH*GAMMA_X0D(XNUH+(XDH+XBH)/XALPHAH)/GAMMA_X0D(XNUH+XBH/XALPHAH)* &
+ (ZRHO00)**XCEXVT
+ XFSEDCH = XCH*GAMMA_X0D(XNUH+XDH/XALPHAH)/GAMMA_X0D(XNUH)* &
+ (ZRHO00)**XCEXVT
+END IF
!
!
!
@@ -337,18 +442,24 @@ XLBEX(5) = XLBEXS
XD(5) = XDS
XFSEDR(5) = XCS*GAMMA_X0D(XNUS+(XDS+XBS)/XALPHAS)/GAMMA_X0D(XNUS+XBS/XALPHAS)* &
(ZRHO00)**XCEXVT
+XFSEDC(5) = XCS*GAMMA_X0D(XNUS+XDS/XALPHAS)/GAMMA_X0D(XNUS)* &
+ (ZRHO00)**XCEXVT
!
XLB(6) = XLBG
XLBEX(6) = XLBEXG
XD(6) = XDG
XFSEDR(6) = XCG*GAMMA_X0D(XNUG+(XDG+XBG)/XALPHAG)/GAMMA_X0D(XNUG+XBG/XALPHAG)* &
(ZRHO00)**XCEXVT
+XFSEDC(6) = XCG*GAMMA_X0D(XNUG+XDG/XALPHAG)/GAMMA_X0D(XNUG)* &
+ (ZRHO00)**XCEXVT
!
XLB(7) = XLBH
XLBEX(7) = XLBEXH
XD(7) = XDH
XFSEDR(7) = XCH*GAMMA_X0D(XNUH+(XDH+XBH)/XALPHAH)/GAMMA_X0D(XNUH+XBH/XALPHAH)* &
(ZRHO00)**XCEXVT
+XFSEDC(7) = XCH*GAMMA_X0D(XNUH+XDH/XALPHAH)/GAMMA_X0D(XNUH)* &
+ (ZRHO00)**XCEXVT
!
!-------------------------------------------------------------------------------
!
@@ -488,7 +599,20 @@ IF (LMEYERS) THEN
XNUC_CON,XEXTT_CON,XEX_CON
WRITE(UNIT=ILUOUT0,FMT='(" mass of embryo XMNU0=",E13.6)') XMNU0
END IF
-!
+!
+! *****************
+!* 4.3 NUCLEATION for NMOM_I=1
+! *****************
+!
+XNU10 = 50.*ZFACT_NUCL
+XALPHA1 = 4.5
+XBETA1 = 0.6
+!
+XNU20 = 1000.*ZFACT_NUCL
+XALPHA2 = 12.96
+XBETA2 = 0.639
+!
+IMNU0 = 6.88E-13
!-------------------------------------------------------------------------------
!
!
@@ -561,7 +685,7 @@ XR1DEPIS = XC1DEPIS *(XAI*XDICNVS_LIM**XBI)
!
! Harrington parameterization for snow to ice conversion
!
-XLBDASCNVI_MAX = 6000. ! lbdas max after Field (1999)
+XLBDASCNVI_MAX = 6000.*XTRANS_MP_GAMMAS ! lbdas max after Field (1999)
!
XDSCNVI_LIM = 125.E-6 ! size in microns
XLBDASCNVI_LIM = (50.0**(1.0/(XALPHAS)))/XDSCNVI_LIM ! ZLBDAS Limitation
@@ -574,21 +698,21 @@ XR1DEPSI = XC1DEPSI *(XAS*XDSCNVI_LIM**XBS)
!
! Vapor deposition on snow and graupel and hail
!
-X0DEPS = (4.0*XPI)*XCCS*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
-X1DEPS = (4.0*XPI)*XCCS*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
-XEX0DEPS = XCXS-1.0
-XEX1DEPS = XCXS-0.5*(XDS+3.0)
+X0DEPS = (4.0*XPI)*XC1S*XF0S*MOMG(XALPHAS,XNUS,1.)
+X1DEPS = (4.0*XPI)*XC1S*XF1S*SQRT(XCS)*MOMG(XALPHAS,XNUS,0.5*XDS+1.5)
+XEX0DEPS = -1.0
+XEX1DEPS = -0.5*(XDS+3.0)
!
-X0DEPG = (4.0*XPI)*XCCG*XC1G*XF0G*MOMG(XALPHAG,XNUG,1.)
-X1DEPG = (4.0*XPI)*XCCG*XC1G*XF1G*SQRT(XCG)*MOMG(XALPHAG,XNUG,0.5*XDG+1.5)
-XEX0DEPG = XCXG-1.0
-XEX1DEPG = XCXG-0.5*(XDG+3.0)
+X0DEPG = (4.0*XPI)*XC1G*XF0G*MOMG(XALPHAG,XNUG,1.)
+X1DEPG = (4.0*XPI)*XC1G*XF1G*SQRT(XCG)*MOMG(XALPHAG,XNUG,0.5*XDG+1.5)
+XEX0DEPG = -1.0
+XEX1DEPG = -0.5*(XDG+3.0)
+!
+X0DEPH = (4.0*XPI)*XC1H*XF0H*MOMG(XALPHAH,XNUH,1.)
+X1DEPH = (4.0*XPI)*XC1H*XF1H*SQRT(XCH)*MOMG(XALPHAH,XNUH,0.5*XDH+1.5)
+XEX0DEPH = -1.0
+XEX1DEPH = -0.5*(XDH+3.0)
!
-X0DEPH = (4.0*XPI)*XCCH*XC1H*XF0H*MOMG(XALPHAH,XNUH,1.)
-X1DEPH = (4.0*XPI)*XCCH*XC1H*XF1H*SQRT(XCH)*MOMG(XALPHAH,XNUH,0.5*XDH+1.5)
-XEX0DEPH = XCXH-1.0
-XEX1DEPH = XCXH-0.5*(XDH+3.0)
-!
!-------------------------------------------------------------------------------
!
!
@@ -647,6 +771,8 @@ XITAUTS_THRESHOLD = 7.5
!* 6.4 Constants for snow aggregation
!
XCOLEXIS = 0.05 ! Temperature factor of the I+S collection efficiency
+XFIAGGS = (XPI/4.0)*0.25*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
+XEXIAGGS = -XDS - 2.0
XAGGS_CLARGE1 = XKER_ZRNIC_A2*ZGAMI(2)
XAGGS_CLARGE2 = XKER_ZRNIC_A2*ZGAMS(2)
XAGGS_RLARGE1 = XKER_ZRNIC_A2*ZGAMI(6)*XAI
@@ -669,13 +795,18 @@ END IF
!
XDCSLIM = 0.007 ! D_cs^lim = 7 mm as suggested by Farley et al. (1989)
XCOLCS = 1.0
-XEXCRIMSS= XCXS-XDS-2.0
-XCRIMSS = (XPI/4.0)*XCOLCS*XCCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
+XEXCRIMSS= -XDS-2.0
+XCRIMSS = (XPI/4.0)*XCOLCS*XCS*(ZRHO00**XCEXVT)*MOMG(XALPHAS,XNUS,XDS+2.0)
+
XEXCRIMSG= XEXCRIMSS
XCRIMSG = XCRIMSS
-XSRIMCG = XCCS*XAS*MOMG(XALPHAS,XNUS,XBS)
-XEXSRIMCG= XCXS-XBS
+XSRIMCG = XAS*MOMG(XALPHAS,XNUS,XBS)
+XEXSRIMCG= -XBS
!
+!Pour Murakami 1990
+XSRIMCG2 = XAG*MOMG(XALPHAS,XNUS,XBG)
+XSRIMCG3 = 0.1
+XEXSRIMCG2=XBG
GFLAG = .TRUE.
IF (GFLAG) THEN
WRITE(UNIT=ILUOUT0,FMT='(" riming of the aggregates")')
@@ -684,17 +815,19 @@ IF (GFLAG) THEN
END IF
!
NGAMINC = 80
-XGAMINC_BOUND_MIN = 1.0E-1 ! Minimal value of (Lbda * D_cs^lim)**alpha
-XGAMINC_BOUND_MAX = 1.0E7 ! Maximal value of (Lbda * D_cs^lim)**alpha
-ZRATE = EXP(LOG(XGAMINC_BOUND_MAX/XGAMINC_BOUND_MIN)/REAL(NGAMINC-1))
+XGAMINC_BOUND_MIN = (1000.*XTRANS_MP_GAMMAS*XDCSLIM)**XALPHAS !1.0E-1 ! Minimal value of (Lbda * D_cs^lim)**alpha
+XGAMINC_BOUND_MAX = (50000.*XTRANS_MP_GAMMAS*XDCSLIM)**XALPHAS !1.0E7 ! Maximal value of (Lbda * D_cs^lim)**alpha
+ZRATE = EXP(LOG(XGAMINC_BOUND_MAX/XGAMINC_BOUND_MIN)/FLOAT(NGAMINC-1))
!
ALLOCATE( XGAMINC_RIM1(NGAMINC) )
ALLOCATE( XGAMINC_RIM2(NGAMINC) )
+ALLOCATE( XGAMINC_RIM4(NGAMINC) )
!
DO J1=1,NGAMINC
ZBOUND = XGAMINC_BOUND_MIN*ZRATE**(J1-1)
XGAMINC_RIM1(J1) = GAMMA_INC(XNUS+(2.0+XDS)/XALPHAS,ZBOUND)
XGAMINC_RIM2(J1) = GAMMA_INC(XNUS+XBS/XALPHAS ,ZBOUND)
+ XGAMINC_RIM4(J1) = GAMMA_INC(XNUS+XBG/XALPHAS ,ZBOUND) ! Pour Murakami 1990
END DO
!
XRIMINTP1 = XALPHAS / LOG(ZRATE)
@@ -732,17 +865,25 @@ XHMLINTP2 = 1.0 + XHMLINTP1*LOG( 25.E-6/(XGAMINC_HMC_BOUND_MIN)**(1.0/XALPHAC) )
!
!* 7.2 Constants for the accretion of raindrops onto aggregates
!
-XFRACCSS = ((XPI**2)/24.0)*XCCS*XRHOLW*(ZRHO00**XCEXVT)
+XFRACCSS = XPI/4.0*XAR*(ZRHO00**XCEXVT)
+XFNRACCSS = XPI/4.0*(ZRHO00**XCEXVT)
!
XLBRACCS1 = MOMG(XALPHAS,XNUS,2.)*MOMG(XALPHAR,XNUR,3.)
XLBRACCS2 = 2.*MOMG(XALPHAS,XNUS,1.)*MOMG(XALPHAR,XNUR,4.)
XLBRACCS3 = MOMG(XALPHAR,XNUR,5.)
+XLBNRACCS1 = MOMG(XALPHAS,XNUS,2.)
+XLBNRACCS2 = 2.*MOMG(XALPHAS,XNUS,1.)*MOMG(XALPHAR,XNUR,1.)
+XLBNRACCS3 = MOMG(XALPHAR,XNUR,2.)
!
-XFSACCRG = (XPI/4.0)*XAS*XCCS*(ZRHO00**XCEXVT)
+XFSACCRG = (XPI/4.0)*XAS*(ZRHO00**XCEXVT)
+XFNSACCRG = (XPI/4.0)*(ZRHO00**XCEXVT)
!
XLBSACCR1 = MOMG(XALPHAR,XNUR,2.)*MOMG(XALPHAS,XNUS,XBS)
XLBSACCR2 = 2.*MOMG(XALPHAR,XNUR,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
XLBSACCR3 = MOMG(XALPHAS,XNUS,XBS+2.)
+XLBNSACCR1 = MOMG(XALPHAR,XNUR,2.)
+XLBNSACCR2 = 2.*MOMG(XALPHAR,XNUR,1.)*MOMG(XALPHAS,XNUS,1.)
+XLBNSACCR3 = MOMG(XALPHAS,XNUS,2.)
!
!* 7.2.1 Defining the ranges for the computation of the kernels
!
@@ -750,9 +891,9 @@ XLBSACCR3 = MOMG(XALPHAS,XNUS,XBS+2.)
! Notice: One magnitude of lambda discretized over 10 points for snow
!
NACCLBDAS = 40
-XACCLBDAS_MIN = 5.0E1 ! Minimal value of Lbda_s to tabulate XKER_RACCS
-XACCLBDAS_MAX = 5.0E5 ! Maximal value of Lbda_s to tabulate XKER_RACCS
-ZRATE = LOG(XACCLBDAS_MAX/XACCLBDAS_MIN)/REAL(NACCLBDAS-1)
+XACCLBDAS_MIN = 5.0E1*XTRANS_MP_GAMMAS !5.0E1*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_RACCS
+XACCLBDAS_MAX = 5.0E5*XTRANS_MP_GAMMAS !5.0E5*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_RACCS
+ZRATE = LOG(XACCLBDAS_MAX/XACCLBDAS_MIN)/FLOAT(NACCLBDAS-1)
XACCINTP1S = 1.0 / ZRATE
XACCINTP2S = 1.0 - LOG( XACCLBDAS_MIN ) / ZRATE
NACCLBDAR = 40
@@ -771,29 +912,72 @@ ZFDINFTY = 20.0 ! computing the kernels XKER_RACCSS, XKER_RACCS and XKER_SACCRG
ALLOCATE( XKER_RACCSS(NACCLBDAS,NACCLBDAR) )
ALLOCATE( XKER_RACCS (NACCLBDAS,NACCLBDAR) )
ALLOCATE( XKER_SACCRG(NACCLBDAR,NACCLBDAS) )
-!
-CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
- PFDINFTY )
+ALLOCATE( XKER_N_RACCSS(NACCLBDAS,NACCLBDAR) )
+ALLOCATE( XKER_N_RACCS (NACCLBDAS,NACCLBDAR) )
+ALLOCATE( XKER_N_SACCRG(NACCLBDAR,NACCLBDAS) )
+CALL NRCOLSS ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZESR, XCS, XDS, XFVELOS, XCR, XDR, &
+ XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
+ ZFDINFTY, XKER_N_RACCSS, XAG, XBS, XAS )
+CALL NZCOLX ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZESR, XCS, XDS, XFVELOS, XCR, XDR, 0., & !
+ XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
+ ZFDINFTY, XKER_N_RACCS )
+CALL NSCOLRG ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZESR, XCS, XDS, XFVELOS, XCR, XDR, &
+ XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
+ ZFDINFTY, XKER_N_SACCRG,XAG, XBS, XAS )
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_RACCSS) ) THEN")')
+DO J1 = 1 , NACCLBDAS
+ DO J2 = 1 , NACCLBDAR
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_RACCSS(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_RACCSS(J1,J2)
+ END DO
+END DO
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_RACCS) ) THEN")')
+DO J1 = 1 , NACCLBDAS
+ DO J2 = 1 , NACCLBDAR
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_RACCS(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_RACCS(J1,J2)
+ END DO
+END DO
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SACCRG) ) THEN")')
+DO J1 = 1 , NACCLBDAR
+ DO J2 = 1 , NACCLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SACCRG(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_SACCRG(J1,J2)
+ END DO
+END DO
+WRITE(UNIT=ILUOUT0,FMT='("!")')
+
+!
+CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY )
IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PALPHAR/=XALPHAR) .OR. (PNUR/=XNUR) .OR. &
(PESR/=ZESR) .OR. (PBS/=XBS) .OR. (PBR/=XBR) .OR. &
- (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
+ (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. (PCR/=XCR) .OR. (PDR/=XDR) .OR. &
(PACCLBDAS_MAX/=XACCLBDAS_MAX) .OR. (PACCLBDAR_MAX/=XACCLBDAR_MAX) .OR. &
(PACCLBDAS_MIN/=XACCLBDAS_MIN) .OR. (PACCLBDAR_MIN/=XACCLBDAR_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RRCOLSS ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBR, XCS, XDS, XCR, XDR, &
+ ZESR, XBR, XCS, XDS, XFVELOS, XCR, XDR, &
XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
ZFDINFTY, XKER_RACCSS, XAG, XBS, XAS )
CALL RZCOLX ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBR, XCS, XDS, XCR, XDR, &
+ ZESR, XBR, XCS, XDS, XFVELOS, XCR, XDR, 0., &
XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
ZFDINFTY, XKER_RACCS )
CALL RSCOLRG ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
- ZESR, XBS, XCS, XDS, XCR, XDR, &
+ ZESR, XBS, XCS, XDS, XFVELOS, XCR, XDR, &
XACCLBDAS_MAX, XACCLBDAR_MAX, XACCLBDAS_MIN, XACCLBDAR_MIN, &
ZFDINFTY, XKER_SACCRG,XAG, XBS, XAS )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
@@ -814,6 +998,7 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("PBR=",E13.6)') XBR
WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=ILUOUT0,FMT='("PCR=",E13.6)') XCR
WRITE(UNIT=ILUOUT0,FMT='("PDR=",E13.6)') XDR
WRITE(UNIT=ILUOUT0,FMT='("PACCLBDAS_MAX=",E13.6)') &
@@ -853,15 +1038,84 @@ IF( (KACCLBDAS/=NACCLBDAS) .OR. (KACCLBDAR/=NACCLBDAR) .OR. (KND/=IND) .OR. &
END DO
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
- CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN,&
- PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
+ CALL LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY,XKER_RACCSS,XKER_RACCS,XKER_SACCRG )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_RACCSS")')
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_RACCS ")')
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_SACCRG")')
END IF
!
+!* 7.2N Computations of the tabulated normalized kernels Snow Self Collection !!
+!
+!
+!if (NMOM_S.GE.2) then
+ XCOLSS = 0.1 ! Collection efficiency of S+S
+ XCOLEXSS = 0.1 ! Temperature factor of the S+S collection efficiency
+ XFNSSCS = (XPI/4.0)*XCOLSS*(ZRHO00**XCEXVT)/2.0
+!
+ XLBNSSCS1 = 2.0*MOMG(XALPHAS,XNUS,2.)
+ XLBNSSCS2 = 2.0*MOMG(XALPHAS,XNUS,1.)**2
+!
+!* 7.2N.1 Defining the ranges for the computation of the kernels
+!
+! Notice: One magnitude of lambda discretized over 10 points for snow
+!
+NSCLBDAS = 80
+XSCLBDAS_MIN = 1.0E0*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_RSCS
+XSCLBDAS_MAX = 5.0E10*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_RSCS
+ZRATE = LOG(XSCLBDAS_MAX/XSCLBDAS_MIN)/FLOAT(NSCLBDAS-1)
+XSCINTP1S = 1.0 / ZRATE
+XSCINTP2S = 1.0 - LOG( XSCLBDAS_MIN ) / ZRATE
+!
+!
+ IND = 50 ! Interval number, collection efficiency and infinite diameter
+ ZESS = 1.0 ! factor used to integrate the dimensional distributions when
+ ZFDINFTY = 20.0 ! computing the kernels XKER_SSCSS
+!
+ ALLOCATE( XKER_N_SSCS(NSCLBDAS,NSCLBDAS) )
+!
+ CALL NZCOLX ( IND, XALPHAS, XNUS, XALPHAS, XNUS, &
+ ZESS, XCS, XDS, XFVELOS, XCS, XDS, XFVELOS, &
+ XSCLBDAS_MAX, XSCLBDAS_MAX, XSCLBDAS_MIN, XSCLBDAS_MIN, &
+ ZFDINFTY, XKER_N_SSCS )
+!
+ WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
+ WRITE(UNIT=ILUOUT0,FMT='("**** UPDATE NEW SET OF SSCS KERNELS ***")')
+ WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("KND=",I3)') IND
+ WRITE(UNIT=ILUOUT0,FMT='("KSCLBDAS=",I3)') NSCLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='("PALPHAS=",E13.6)') XALPHAS
+ WRITE(UNIT=ILUOUT0,FMT='("PNUS=",E13.6)') XNUS
+ WRITE(UNIT=ILUOUT0,FMT='("PESS=",E13.6)') ZESS
+ WRITE(UNIT=ILUOUT0,FMT='("PBS=",E13.6)') XBS
+ WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
+ WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PSCLBDAS_MAX=",E13.6)') &
+ XSCLBDAS_MAX
+ WRITE(UNIT=ILUOUT0,FMT='("PSCLBDAS_MIN=",E13.6)') &
+ XSCLBDAS_MIN
+ WRITE(UNIT=ILUOUT0,FMT='("PFDINFTY=",E13.6)') ZFDINFTY
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SSCS ) ) THEN")')
+ DO J1 = 1 , NSCLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SSCS (",I3,",",I3,") = ",E13.6)') &
+ J1,J1,XKER_N_SSCS (J1,J1)
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!
+!* 7.2N2 Constants for the 'spontaneous' break-up
+!
+ XACCS1=MOMG(XALPHAS,XNUS,XBS)
+ XSPONBUDS1 = 2.5E-3
+ XSPONBUDS2 = 3.5E-3
+ XSPONBUDS3 = 4.5E-3
+ XSPONCOEFS2 = ((XSPONBUDS3/XSPONBUDS2)**3 - 1.0)/(XSPONBUDS3-XSPONBUDS1)**2
+!
+!end if
!
!* 7.3 Constant for the conversion-melting rate
!
@@ -872,7 +1126,104 @@ IF (GFLAG) THEN
WRITE(UNIT=ILUOUT0,FMT='(" conversion-melting of the aggregates")')
WRITE(UNIT=ILUOUT0,FMT='(" Conv. factor XFSCVMG=",E13.6)') XFSCVMG
END IF
-!
+!
+!
+!* 7.4 Constants for Ice-Ice collision process (CIBU)
+!
+XDCSLIM_CIBU_MIN = 2.0E-4 ! D_cs lim min
+XDCSLIM_CIBU_MAX = 1.0E-3 ! D_cs lim max
+XDCGLIM_CIBU_MIN = 2.0E-3 ! D_cg lim min
+!
+GFLAG = .TRUE.
+IF (GFLAG) THEN
+ WRITE(UNIT=ILUOUT0,FMT='(" Ice-ice collision process")')
+ WRITE(UNIT=ILUOUT0,FMT='(" D_cs^lim min-max =",E13.6)') XDCSLIM_CIBU_MIN,XDCSLIM_CIBU_MAX
+ WRITE(UNIT=ILUOUT0,FMT='(" D_cg^lim min =",E13.6)') XDCGLIM_CIBU_MIN
+END IF
+!
+NGAMINC = 80
+!
+!Note : Boundaries are rounded at 5.0 or 1.0 (down for Bound_min and up for Bound_max)
+XGAMINC_BOUND_CIBU_SMIN = 1.0E-5 * XTRANS_MP_GAMMAS**XALPHAS ! Minimal value of (Lbda_s * D_cs^lim)**alpha) 0.2 mm
+XGAMINC_BOUND_CIBU_SMAX = 5.0E+2 * XTRANS_MP_GAMMAS**XALPHAS ! Maximal value of (Lbda_s * D_cs^lim)**alpha) 1 mm
+ZRATE_S = EXP(LOG(XGAMINC_BOUND_CIBU_SMAX/XGAMINC_BOUND_CIBU_SMIN)/FLOAT(NGAMINC-1))
+!
+XGAMINC_BOUND_CIBU_GMIN = 1.0E-1 ! Minimal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
+XGAMINC_BOUND_CIBU_GMAX = 5.0E+1 ! Maximal value of (Lbda_g * D_cg^lim)**alpha) 2 mm
+ZRATE_G = EXP(LOG(XGAMINC_BOUND_CIBU_GMAX/XGAMINC_BOUND_CIBU_GMIN)/FLOAT(NGAMINC-1))
+!
+ALLOCATE( XGAMINC_CIBU_S(4,NGAMINC) )
+ALLOCATE( XGAMINC_CIBU_G(2,NGAMINC) )
+!
+DO J1 = 1, NGAMINC
+ ZBOUND_CIBU_SMIN = XGAMINC_BOUND_CIBU_SMIN * ZRATE_S**(J1-1)
+ ZBOUND_CIBU_GMIN = XGAMINC_BOUND_CIBU_GMIN * ZRATE_G**(J1-1)
+!
+! For ZNI_CIBU
+ XGAMINC_CIBU_S(1,J1) = GAMMA_INC(XNUS,ZBOUND_CIBU_SMIN)
+ XGAMINC_CIBU_S(2,J1) = GAMMA_INC(XNUS+(XDS/XALPHAS),ZBOUND_CIBU_SMIN)
+!
+ XGAMINC_CIBU_G(1,J1) = GAMMA_INC(XNUG+((2.0+XDG)/XALPHAG),ZBOUND_CIBU_GMIN)
+ XGAMINC_CIBU_G(2,J1) = GAMMA_INC(XNUG+(2.0/XALPHAG),ZBOUND_CIBU_GMIN)
+!
+! For ZRI_CIBU
+ XGAMINC_CIBU_S(3,J1) = GAMMA_INC(XNUS+(XBS/XALPHAS),ZBOUND_CIBU_SMIN)
+ XGAMINC_CIBU_S(4,J1) = GAMMA_INC(XNUS+((XBS+XDS)/XALPHAS),ZBOUND_CIBU_SMIN)
+END DO
+!
+XCIBUINTP_S = XALPHAS / LOG(ZRATE_S)
+XCIBUINTP1_S = 1.0 + XCIBUINTP_S * LOG(XDCSLIM_CIBU_MIN/(XGAMINC_BOUND_CIBU_SMIN)**(1.0/XALPHAS))
+XCIBUINTP2_S = 1.0 + XCIBUINTP_S * LOG(XDCSLIM_CIBU_MAX/(XGAMINC_BOUND_CIBU_SMIN)**(1.0/XALPHAS))
+!
+XCIBUINTP_G = XALPHAG / LOG(ZRATE_G)
+XCIBUINTP1_G = 1.0 + XCIBUINTP_G * LOG(XDCGLIM_CIBU_MIN/(XGAMINC_BOUND_CIBU_GMIN)**(1.0/XALPHAG))
+!
+! For ZNI_CIBU
+XFACTOR_CIBU_NI = (XPI / 4.0) * (ZRHO00**XCEXVT)
+XMOMGG_CIBU_1 = MOMG(XALPHAG,XNUG,2.0+XDG)
+XMOMGG_CIBU_2 = MOMG(XALPHAG,XNUG,2.0)
+XMOMGS_CIBU_1 = MOMG(XALPHAS,XNUS,XDS)
+!
+! For ZRI_CIBU
+XFACTOR_CIBU_RI = XAS * (XPI / 4.0) * (ZRHO00**XCEXVT)
+XMOMGS_CIBU_2 = MOMG(XALPHAS,XNUS,XBS)
+XMOMGS_CIBU_3 = MOMG(XALPHAS,XNUS,XBS+XDS)
+!
+!
+!* 7.5 Constants for raindrop shattering by freezing process (RDSF)
+!
+XDCRLIM_RDSF_MIN = 0.1E-3 ! D_cr lim min
+!
+GFLAG = .TRUE.
+IF (GFLAG) THEN
+ WRITE(UNIT=ILUOUT0,FMT='(" Ice-rain collision process")')
+ WRITE(UNIT=ILUOUT0,FMT='(" D_cr^lim min =",E13.6)') XDCRLIM_RDSF_MIN
+END IF
+!
+NGAMINC = 80
+!
+XGAMINC_BOUND_RDSF_RMIN = 1.0E-5 ! Minimal value of (Lbda_r * D_cr^lim)**alpha) 0.1 mm
+XGAMINC_BOUND_RDSF_RMAX = 5.0E-3 ! Maximal value of (Lbda_r * D_cr^lim)**alpha) 1 mm
+ZRATE_R = EXP(LOG(XGAMINC_BOUND_RDSF_RMAX/XGAMINC_BOUND_RDSF_RMIN)/FLOAT(NGAMINC-1))
+!
+ALLOCATE( XGAMINC_RDSF_R(NGAMINC) )
+!
+DO J1 = 1, NGAMINC
+ ZBOUND_RDSF_RMIN = XGAMINC_BOUND_RDSF_RMIN * ZRATE_R**(J1-1)
+!
+! For ZNI_RDSF
+ XGAMINC_RDSF_R(J1) = GAMMA_INC(XNUR+((6.0+XDR)/XALPHAR),ZBOUND_RDSF_RMIN)
+END DO
+!
+XRDSFINTP_R = XALPHAR / LOG(ZRATE_R)
+XRDSFINTP1_R = 1.0 + XRDSFINTP_R * LOG( XDCRLIM_RDSF_MIN/(XGAMINC_BOUND_RDSF_RMIN)**(1.0/XALPHAR) )
+!
+! For ZNI_RDSF
+ZKHI_LWM = 2.5E13 ! Coeff. in Lawson-Woods-Morrison for the number of splinters
+ ! N_DF = XKHI_LWM * D_R**4
+XFACTOR_RDSF_NI = ZKHI_LWM * (XPI / 4.0) * XCR * (ZRHO00**XCEXVT)
+XMOMGR_RDSF = MOMG(XALPHAR,XNUR,6.0+XDR)
+!
!-------------------------------------------------------------------------------
!
!
@@ -906,7 +1257,7 @@ END IF
! and for the Hallett-Mossop process
!
XCOLCG = 0.6 ! Estimated from Cober and List (1993)
-XFCDRYG = (XPI/4.0)*XCOLCG*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
+XFCDRYG = (XPI/4.0)*XCOLCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
!
XHM_COLLCG= 0.9 ! Collision efficiency graupel/droplet (with Dc>25 microns)
XHM_FACTG = XHM_YIELD*(XHM_COLLCG/XCOLCG)
@@ -919,7 +1270,7 @@ XCOLIG = 0.01 ! Collection efficiency of I+G
XCOLEXIG = 0.1 ! Temperature factor of the I+G collection efficiency
WRITE (ILUOUT0, FMT=*) ' NEW Constants for the cloud ice collection by the graupeln'
WRITE (ILUOUT0, FMT=*) ' XCOLIG, XCOLEXIG = ',XCOLIG,XCOLEXIG
-XFIDRYG = (XPI/4.0)*XCOLIG*XCCG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
+XFIDRYG = (XPI/4.0)*XCOLIG*XCG*(ZRHO00**XCEXVT)*MOMG(XALPHAG,XNUG,XDG+2.0)
!
GFLAG = .TRUE.
IF (GFLAG) THEN
@@ -936,8 +1287,12 @@ XCOLSG = 0.01 ! Collection efficiency of S+G
XCOLEXSG = 0.1 ! Temperature factor of the S+G collection efficiency
WRITE (ILUOUT0, FMT=*) ' NEW Constants for the aggregate collection by the graupeln'
WRITE (ILUOUT0, FMT=*) ' XCOLSG, XCOLEXSG = ',XCOLSG,XCOLEXSG
-XFSDRYG = (XPI/4.0)*XCOLSG*XCCG*XCCS*XAS*(ZRHO00**XCEXVT)
+XFSDRYG = XNS*(XPI/4.0)*XCOLSG*XAS*(ZRHO00**XCEXVT)
+XFNSDRYG= (XPI/4.0)*XCOLSG*(ZRHO00**XCEXVT)
!
+XLBNSDRYG1 = MOMG(XALPHAG,XNUG,2.)
+XLBNSDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAS,XNUS,1.)
+XLBNSDRYG3 = MOMG(XALPHAS,XNUS,2.)
XLBSDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAS,XNUS,XBS)
XLBSDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
XLBSDRYG3 = MOMG(XALPHAS,XNUS,XBS+2.)
@@ -951,11 +1306,15 @@ END IF
!
!* 8.2.4 Constants for the raindrop collection by the graupeln
!
-XFRDRYG = ((XPI**2)/24.0)*XCCG*XRHOLW*(ZRHO00**XCEXVT)
+XFRDRYG = XNR*(XPI/4.0)*XAR*(ZRHO00**XCEXVT)
+XFNRDRYG= (XPI/4.0)*(ZRHO00**XCEXVT)
!
-XLBRDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAR,XNUR,3.)
-XLBRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,4.)
-XLBRDRYG3 = MOMG(XALPHAR,XNUR,5.)
+XLBRDRYG1 = MOMG(XALPHAG,XNUG,2.)*MOMG(XALPHAR,XNUR,XBR)
+XLBRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,XBR+1.)
+XLBRDRYG3 = MOMG(XALPHAR,XNUR,XBR+2.)
+XLBNRDRYG1 = MOMG(XALPHAG,XNUG,2.)
+XLBNRDRYG2 = 2.*MOMG(XALPHAG,XNUG,1.)*MOMG(XALPHAR,XNUR,1.)
+XLBNRDRYG3 = MOMG(XALPHAR,XNUR,2.)
!
! Notice: One magnitude of lambda discretized over 10 points
!
@@ -966,8 +1325,8 @@ ZRATE = LOG(XDRYLBDAR_MAX/XDRYLBDAR_MIN)/REAL(NDRYLBDAR-1)
XDRYINTP1R = 1.0 / ZRATE
XDRYINTP2R = 1.0 - LOG( XDRYLBDAR_MIN ) / ZRATE
NDRYLBDAS = 80
-XDRYLBDAS_MIN = 2.5E1 ! Minimal value of Lbda_s to tabulate XKER_SDRYG
-XDRYLBDAS_MAX = 2.5E9 ! Maximal value of Lbda_s to tabulate XKER_SDRYG
+XDRYLBDAS_MIN = 5.0E1*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_SDRYG
+XDRYLBDAS_MAX = 5.0E8*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_SDRYG
ZRATE = LOG(XDRYLBDAS_MAX/XDRYLBDAS_MIN)/REAL(NDRYLBDAS-1)
XDRYINTP1S = 1.0 / ZRATE
XDRYINTP2S = 1.0 - LOG( XDRYLBDAS_MIN ) / ZRATE
@@ -985,21 +1344,37 @@ ZEGS = 1.0 ! factor used to integrate the dimensional distributions when
ZFDINFTY = 20.0 ! computing the kernels XKER_SDRYG
!
ALLOCATE( XKER_SDRYG(NDRYLBDAG,NDRYLBDAS) )
-!
-CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY )
+!if (NMOM_S.GE.2) then
+ ALLOCATE( XKER_N_SDRYG(NDRYLBDAG,NDRYLBDAS) )
+ CALL NZCOLX ( IND, XALPHAG, XNUG, XALPHAS, XNUS, &
+ ZEGS, XCG, XDG, 0., XCS, XDS, XFVELOS, &
+ XDRYLBDAG_MAX, XDRYLBDAS_MAX, XDRYLBDAG_MIN, XDRYLBDAS_MIN, &
+ ZFDINFTY, XKER_N_SDRYG )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SDRYG) ) THEN")')
+ DO J1 = 1 , NDRYLBDAG
+ DO J2 = 1 , NDRYLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SDRYG(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_SDRYG(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
+!
+CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY )
IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
(PALPHAG/=XALPHAG) .OR. (PNUG/=XNUG) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PEGS/=ZEGS) .OR. (PBS/=XBS) .OR. &
- (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. &
+ (PCG/=XCG) .OR. (PDG/=XDG) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
(PDRYLBDAG_MAX/=XDRYLBDAG_MAX) .OR. (PDRYLBDAS_MAX/=XDRYLBDAS_MAX) .OR. &
(PDRYLBDAG_MIN/=XDRYLBDAG_MIN) .OR. (PDRYLBDAS_MIN/=XDRYLBDAS_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RZCOLX ( IND, XALPHAG, XNUG, XALPHAS, XNUS, &
- ZEGS, XBS, XCG, XDG, XCS, XDS, &
+ ZEGS, XBS, XCG, XDG, 0., XCS, XDS, XFVELOS, &
XDRYLBDAG_MAX, XDRYLBDAS_MAX, XDRYLBDAG_MIN, XDRYLBDAS_MIN, &
ZFDINFTY, XKER_SDRYG )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
@@ -1019,6 +1394,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("PDG=",E13.6)') XDG
WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=ILUOUT0,FMT='("PDRYLBDAG_MAX=",E13.6)') &
XDRYLBDAG_MAX
WRITE(UNIT=ILUOUT0,FMT='("PDRYLBDAS_MAX=",E13.6)') &
@@ -1038,10 +1414,10 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAS/=NDRYLBDAS) .OR. (KND/=IND) .OR. &
END DO
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
- CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,XKER_SDRYG )
+ CALL LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY,XKER_SDRYG )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_SDRYG")')
END IF
!
@@ -1051,6 +1427,22 @@ ZEGR = 1.0 ! distributions when computing the kernel XKER_RDRYG
ZFDINFTY = 20.0
!
ALLOCATE( XKER_RDRYG(NDRYLBDAG,NDRYLBDAR) )
+!if ( NMOM_R.GE.2 ) then
+ ALLOCATE( XKER_N_RDRYG(NDRYLBDAG,NDRYLBDAR) )
+ CALL NZCOLX ( IND, XALPHAS, XNUS, XALPHAR, XNUR, &
+ ZEGR, XCG, XDG, 0., XCR, XDR, 0., &
+ XDRYLBDAG_MAX, XDRYLBDAR_MAX, XDRYLBDAG_MIN, XDRYLBDAR_MIN, &
+ ZFDINFTY, XKER_N_RDRYG )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_RDRYG) ) THEN")')
+ DO J1 = 1 , NDRYLBDAG
+ DO J2 = 1 , NDRYLBDAR
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_RDRYG(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_RDRYG(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
!
CALL LIMA_READ_XKER_RDRYG (KDRYLBDAG,KDRYLBDAR,KND, &
PALPHAG,PNUG,PALPHAR,PNUR,PEGR,PBR,PCG,PDG,PCR,PDR, &
@@ -1065,7 +1457,7 @@ IF( (KDRYLBDAG/=NDRYLBDAG) .OR. (KDRYLBDAR/=NDRYLBDAR) .OR. (KND/=IND) .OR. &
(PDRYLBDAG_MIN/=XDRYLBDAG_MIN) .OR. (PDRYLBDAR_MIN/=XDRYLBDAR_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RZCOLX ( IND, XALPHAG, XNUG, XALPHAR, XNUR, &
- ZEGR, XBR, XCG, XDG, XCR, XDR, &
+ ZEGR, XBR, XCG, XDG, 0., XCR, XDR, 0., &
XDRYLBDAG_MAX, XDRYLBDAR_MAX, XDRYLBDAG_MIN, XDRYLBDAR_MIN, &
ZFDINFTY, XKER_RDRYG )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
@@ -1122,29 +1514,37 @@ END IF
!* 9.2.1 Constant for the cloud droplet and cloud ice collection
! by the hailstones
!
-XFWETH = (XPI/4.0)*XCCH*XCH*(ZRHO00**XCEXVT)*MOMG(XALPHAH,XNUH,XDH+2.0)
+XFWETH = (XPI/4.0)*XCH*(ZRHO00**XCEXVT)*MOMG(XALPHAH,XNUH,XDH+2.0)
!
!* 9.2.2 Constants for the aggregate collection by the hailstones
!
-XFSWETH = (XPI/4.0)*XCCH*XCCS*XAS*(ZRHO00**XCEXVT)
+XFSWETH = XNS*(XPI/4.0)*XAS*(ZRHO00**XCEXVT)
+XFNSWETH= (XPI/4.0)*(ZRHO00**XCEXVT)
!
XLBSWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAS,XNUS,XBS)
XLBSWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAS,XNUS,XBS+1.)
XLBSWETH3 = MOMG(XALPHAS,XNUS,XBS+2.)
+XLBNSWETH1 = MOMG(XALPHAH,XNUH,2.)
+XLBNSWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAS,XNUS,1.)
+XLBNSWETH3 = MOMG(XALPHAS,XNUS,2.)
!
!* 9.2.3 Constants for the graupel collection by the hailstones
!
-XFGWETH = (XPI/4.0)*XCCH*XCCG*XAG*(ZRHO00**XCEXVT)
+XFGWETH = XNG*(XPI/4.0)*XAG*(ZRHO00**XCEXVT)
+XFNGWETH= (XPI/4.0)*(ZRHO00**XCEXVT)
!
XLBGWETH1 = MOMG(XALPHAH,XNUH,2.)*MOMG(XALPHAG,XNUG,XBG)
XLBGWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAG,XNUG,XBG+1.)
XLBGWETH3 = MOMG(XALPHAG,XNUG,XBG+2.)
+XLBNGWETH1 = MOMG(XALPHAH,XNUH,2.)
+XLBNGWETH2 = 2.*MOMG(XALPHAH,XNUH,1.)*MOMG(XALPHAG,XNUG,1.)
+XLBNGWETH3 = MOMG(XALPHAG,XNUG,2.)
!
! Notice: One magnitude of lambda discretized over 10 points
!
NWETLBDAS = 80
-XWETLBDAS_MIN = 2.5E1 ! Minimal value of Lbda_s to tabulate XKER_SWETH
-XWETLBDAS_MAX = 2.5E9 ! Maximal value of Lbda_s to tabulate XKER_SWETH
+XWETLBDAS_MIN = 5.0E1*XTRANS_MP_GAMMAS ! Minimal value of Lbda_s to tabulate XKER_SWETH
+XWETLBDAS_MAX = 5.0E8*XTRANS_MP_GAMMAS ! Maximal value of Lbda_s to tabulate XKER_SWETH
ZRATE = LOG(XWETLBDAS_MAX/XWETLBDAS_MIN)/REAL(NWETLBDAS-1)
XWETINTP1S = 1.0 / ZRATE
XWETINTP2S = 1.0 - LOG( XWETLBDAS_MIN ) / ZRATE
@@ -1167,22 +1567,38 @@ IND = 50 ! Interval number, collection efficiency and infinite diameter
ZEHS = 1.0 ! factor used to integrate the dimensional distributions when
ZFDINFTY = 20.0 ! computing the kernels XKER_SWETH
!
+!if ( NMOM_S.GE.2 ) then
+ IF( .NOT.ALLOCATED(XKER_N_SWETH) ) ALLOCATE( XKER_N_SWETH(NWETLBDAH,NWETLBDAS) )
+ CALL NZCOLX ( IND, XALPHAH, XNUH, XALPHAS, XNUS, &
+ ZEHS, XCH, XDH, 0., XCS, XDS, XFVELOS, & !
+ XWETLBDAH_MAX, XWETLBDAS_MAX, XWETLBDAH_MIN, XWETLBDAS_MIN, & !
+ ZFDINFTY, XKER_N_SWETH )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_SWETH) ) THEN")')
+ DO J1 = 1 , NWETLBDAH
+ DO J2 = 1 , NWETLBDAS
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_SWETH(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_SWETH(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
IF( .NOT.ALLOCATED(XKER_SWETH) ) ALLOCATE( XKER_SWETH(NWETLBDAH,NWETLBDAS) )
!
-CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY )
+CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY )
IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
(PALPHAH/=XALPHAH) .OR. (PNUH/=XNUH) .OR. &
(PALPHAS/=XALPHAS) .OR. (PNUS/=XNUS) .OR. &
(PEHS/=ZEHS) .OR. (PBS/=XBS) .OR. &
- (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. &
+ (PCH/=XCH) .OR. (PDH/=XDH) .OR. (PCS/=XCS) .OR. (PDS/=XDS) .OR. (PFVELOS/=XFVELOS) .OR. &
(PWETLBDAH_MAX/=XWETLBDAH_MAX) .OR. (PWETLBDAS_MAX/=XWETLBDAS_MAX) .OR. &
(PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAS_MIN/=XWETLBDAS_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAS, XNUS, &
- ZEHS, XBS, XCH, XDH, XCS, XDS, &
+ ZEHS, XBS, XCH, XDH, 0., XCS, XDS, XFVELOS, &
XWETLBDAH_MAX, XWETLBDAS_MAX, XWETLBDAH_MIN, XWETLBDAS_MIN, &
ZFDINFTY, XKER_SWETH )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
@@ -1202,6 +1618,7 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
WRITE(UNIT=ILUOUT0,FMT='("PDH=",E13.6)') XDH
WRITE(UNIT=ILUOUT0,FMT='("PCS=",E13.6)') XCS
WRITE(UNIT=ILUOUT0,FMT='("PDS=",E13.6)') XDS
+ WRITE(UNIT=ILUOUT0,FMT='("PFVELOS=",E13.6)') XFVELOS
WRITE(UNIT=ILUOUT0,FMT='("PWETLBDAH_MAX=",E13.6)') &
XWETLBDAH_MAX
WRITE(UNIT=ILUOUT0,FMT='("PWETLBDAS_MAX=",E13.6)') &
@@ -1221,10 +1638,10 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAS/=NWETLBDAS) .OR. (KND/=IND) .OR. &
END DO
WRITE(UNIT=ILUOUT0,FMT='("END IF")')
ELSE
- CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,XKER_SWETH )
+ CALL LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY,XKER_SWETH )
WRITE(UNIT=ILUOUT0,FMT='(" Read XKER_SWETH")')
END IF
!
@@ -1233,6 +1650,22 @@ IND = 50 ! Number of interval used to integrate the dimensional
ZEHG = 1.0 ! distributions when computing the kernel XKER_GWETH
ZFDINFTY = 20.0
!
+!if ( NMOM_G.GE.2 ) then
+ IF( .NOT.ALLOCATED(XKER_N_GWETH) ) ALLOCATE( XKER_N_GWETH(NWETLBDAH,NWETLBDAG) )
+ CALL NZCOLX ( IND, XALPHAH, XNUH, XALPHAG, XNUG, &
+ ZEHG, XCH, XDH, 0., XCG, XDG, 0., &
+ XWETLBDAH_MAX, XWETLBDAG_MAX, XWETLBDAH_MIN, XWETLBDAG_MIN, &
+ ZFDINFTY, XKER_N_GWETH )
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+ WRITE(UNIT=ILUOUT0,FMT='("IF( PRESENT(PKER_N_GWETH) ) THEN")')
+ DO J1 = 1 , NWETLBDAH
+ DO J2 = 1 , NWETLBDAG
+ WRITE(UNIT=ILUOUT0,FMT='(" PKER_N_GWETH(",I3,",",I3,") = ",E13.6)') &
+ J1,J2,XKER_N_GWETH(J1,J2)
+ END DO
+ END DO
+ WRITE(UNIT=ILUOUT0,FMT='("!")')
+!end if
IF( .NOT.ALLOCATED(XKER_GWETH) ) ALLOCATE( XKER_GWETH(NWETLBDAH,NWETLBDAG) )
!
CALL LIMA_READ_XKER_GWETH (KWETLBDAH,KWETLBDAG,KND, &
@@ -1248,7 +1681,7 @@ IF( (KWETLBDAH/=NWETLBDAH) .OR. (KWETLBDAG/=NWETLBDAG) .OR. (KND/=IND) .OR. &
(PWETLBDAH_MIN/=XWETLBDAH_MIN) .OR. (PWETLBDAG_MIN/=XWETLBDAG_MIN) .OR. &
(PFDINFTY/=ZFDINFTY) ) THEN
CALL RZCOLX ( IND, XALPHAH, XNUH, XALPHAG, XNUG, &
- ZEHG, XBG, XCH, XDH, XCG, XDG, &
+ ZEHG, XBG, XCH, XDH, 0., XCG, XDG, 0., &
XWETLBDAH_MAX, XWETLBDAG_MAX, XWETLBDAH_MIN, XWETLBDAG_MIN, &
ZFDINFTY, XKER_GWETH )
WRITE(UNIT=ILUOUT0,FMT='("*****************************************")')
diff --git a/src/mesonh/micro/ini_lima_warm.f90 b/src/mesonh/micro/ini_lima_warm.f90
index 3fac15aae..aea2517ca 100644
--- a/src/mesonh/micro/ini_lima_warm.f90
+++ b/src/mesonh/micro/ini_lima_warm.f90
@@ -162,8 +162,17 @@ ZGAMR(6) = MOMG(XALPHAR,XNUR,3.)**(2./3.)/MOMG(XALPHAR,XNUR,2.)
!
XLBC = XAR*ZGAMC(2)
XLBEXC = 1.0/XBC
-XLBR = XAR*ZGAMR(2)
-XLBEXR = 1.0/XBR
+!
+XNR = 1.0/(XAR*MOMG(XALPHAR,XNUR,XBR))
+XCCR = 8.E6
+XCXR = -1.
+IF (NMOM_R.EQ.1) THEN
+ XLBEXR = 1.0/(XCXR-XBR)
+ XLBR = ( XAR*XCCR*MOMG(XALPHAR,XNUR,XBR) )**(-XLBEXR)
+ELSE
+ XLBR = XAR*ZGAMR(2)
+ XLBEXR = 1.0/XBR
+END IF
!
!
!------------------------------------------------------------------------------
@@ -334,6 +343,7 @@ XLAUTR_THRESHOLD = 0.4
XITAUTR= 0.27 ! (Notice that T2 of BR74 is uncorrect and that 0.27=1./3.7
XITAUTR_THRESHOLD = 7.5
XCAUTR = 3.5E9
+XR0 = 25.0E-6
!
! Cst for the accretion process
!
@@ -352,6 +362,11 @@ XACCR_CSMALL2 = XKERA1*ZGAMR(3)
XACCR_RSMALL1 = XKERA1*ZGAMC(5)*XRHOLW*(XPI/6.0)
XACCR_RSMALL2 = XKERA1*ZGAMC(2)*ZGAMR(3)*XRHOLW*(XPI/6.0)
!
+! ICE3 accretion of cloud droplets by rain drops
+!
+XFCACCR = (XPI/4.0)*XCCR*XCR*(ZRHO00**XCEXVT)*MOMG(XALPHAR,XNUR,XDR+2.0)
+XEXCACCR = -XDR-3.0
+!
! Cst for the raindrop self-collection/breakup process
!
XSCBU2 = XKERA2*ZGAMR(2)
@@ -405,6 +420,7 @@ X0EVAR = (12.0)*XF0R*GAMMA_X0D(XNUR+1./XALPHAR)/GAMMA_X0D(XNUR+3./XALPHAR)
X1EVAR = (12.0)*XF1R*((ZRHO00)**(XCEXVT)*(XCR/0.15E-4))**0.5* &
GAMMA_X0D(XNUR+(XDR+3.0)/(2.0*XALPHAR))/GAMMA_X0D(XNUR+3./XALPHAR)
!
+XCEVAP = 0.86
!
!------------------------------------------------------------------------------
!
diff --git a/src/mesonh/micro/lima.f90 b/src/mesonh/micro/lima.f90
index c248f1acf..9859c4bd0 100644
--- a/src/mesonh/micro/lima.f90
+++ b/src/mesonh/micro/lima.f90
@@ -12,7 +12,7 @@ INTERFACE
SUBROUTINE LIMA ( KKA, KKU, KKL, &
PTSTEP, TPFILE, &
PRHODREF, PEXNREF, PDZZ, &
- PRHODJ, PPABSM, PPABST, &
+ PRHODJ, PPABST, &
NCCN, NIFN, NIMM, &
PDTHRAD, PTHT, PRT, PSVT, PW_NU, &
PTHS, PRS, PSVS, &
@@ -34,7 +34,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! Layer thikness (m)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! absolute pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! absolute pressure at t
!
INTEGER, INTENT(IN) :: NCCN ! for array size declarations
@@ -73,7 +72,7 @@ END MODULE MODI_LIMA
SUBROUTINE LIMA ( KKA, KKU, KKL, &
PTSTEP, TPFILE, &
PRHODREF, PEXNREF, PDZZ, &
- PRHODJ, PPABSM, PPABST, &
+ PRHODJ, PPABST, &
NCCN, NIFN, NIMM, &
PDTHRAD, PTHT, PRT, PSVT, PW_NU, &
PTHS, PRS, PSVS, &
@@ -121,13 +120,14 @@ USE MODD_CST, ONLY: XCI, XCL, XCPD, XCPV, XLSTT, XLVTT, XTT, XRHOLW,
USE MODD_IO, ONLY: TFILEDATA
USE MODD_NSV, ONLY: NSV_LIMA_BEG, &
NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_FREE, NSV_LIMA_CCN_ACTI, &
- NSV_LIMA_NI, NSV_LIMA_IFN_FREE, &
- NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE
+ NSV_LIMA_NI, NSV_LIMA_NS, NSV_LIMA_NG, NSV_LIMA_NH, &
+ NSV_LIMA_IFN_FREE, NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: LCOLD, LRAIN, LWARM, NMOD_CCN, NMOD_IFN, NMOD_IMM, LHHONI, &
LACTIT, LFEEDBACKT, NMAXITER, XMRSTEP, XTSTEP_TS, &
LSEDC, LSEDI, XRTMIN, XCTMIN, LDEPOC, XVDEPOC, &
- LHAIL, LSNOW
+ LHAIL, LSNOW, &
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_COLD, ONLY: XAI, XBI
USE MODD_PARAM_LIMA_WARM, ONLY: XLBC, XLBEXC, XAC, XBC, XAR, XBR
USE MODD_TURB_n, ONLY: LSUBG_COND
@@ -158,7 +158,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDZZ ! Layer thikness (m)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! absolute pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! absolute pressure at t
!
INTEGER, INTENT(IN) :: NCCN ! for array size declarations
@@ -193,9 +192,9 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PPRCFR ! Cloud fraction
!
! Prognostic variables and sources
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZTHT, ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, ZRHT
-REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCT, ZCRT, ZCIT
+REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCT, ZCRT, ZCIT, ZCST, ZCGT, ZCHT
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZTHS, ZRVS, ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS
-REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCS, ZCRS, ZCIS
+REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3)) :: ZCCS, ZCRS, ZCIS, ZCSS, ZCGS, ZCHS
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3),NCCN) :: ZCCNFT, ZCCNAT
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3),NCCN) :: ZCCNFS, ZCCNAS
REAL, DIMENSION(SIZE(PRT,1),SIZE(PRT,2),SIZE(PRT,3),NIFN) :: ZIFNFT, ZIFNNT
@@ -215,7 +214,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: &
ZP1D, ZRHODREF1D, ZEXNREF1D, ZEXN1D, &
ZTHT1D, &
ZRVT1D, ZRCT1D, ZRRT1D, ZRIT1D, ZRST1D, ZRGT1D, ZRHT1D, &
- ZCCT1D, ZCRT1D, ZCIT1D, &
+ ZCCT1D, ZCRT1D, ZCIT1D, ZCST1D, ZCGT1D, ZCHT1D, &
ZEVAP1D
REAL, DIMENSION(:,:), ALLOCATABLE :: ZIFNN1D
@@ -233,29 +232,33 @@ REAL, DIMENSION(:), ALLOCATABLE :: &
Z_RC_ACCR, Z_CC_ACCR, & ! accretion of droplets by rain drops (ACCR) : rc, Nc, rr=-rr
Z_CR_SCBU, & ! self collectio break up of drops (SCBU) : Nr
! Z_TH_EVAP, Z_RC_EVAP, Z_CC_EVAP, Z_RR_EVAP, Z_CR_EVAP, & ! evaporation of rain drops (EVAP) : rv=-rr-rc, rc, Nc, rr, Nr, th
- Z_TH_EVAP, Z_RR_EVAP, & ! evaporation of rain drops (EVAP) : rv=-rr-rc, rc, Nc, rr, Nr, th
+ Z_TH_EVAP, Z_RR_EVAP, Z_CR_EVAP, & ! evaporation of rain drops (EVAP) : rv=-rr-rc, rc, Nc, rr, Nr, th
Z_RI_CNVI, Z_CI_CNVI, & ! conversion snow -> ice (CNVI) : ri, Ni, rs=-ri
Z_TH_DEPS, Z_RS_DEPS, & ! deposition of vapor on snow (DEPS) : rv=-rs, rs, th
Z_TH_DEPI, Z_RI_DEPI, & ! deposition of vapor on ice (DEPI) : rv=-ri, ri, th
Z_RI_CNVS, Z_CI_CNVS, & ! conversion ice -> snow (CNVS) : ri, Ni, rs=-ri
+ Z_CS_SSC, & ! self collection of snow (SSC) : Ns
Z_RI_AGGS, Z_CI_AGGS, & ! aggregation of ice on snow (AGGS) : ri, Ni, rs=-ri
Z_TH_DEPG, Z_RG_DEPG, & ! deposition of vapor on graupel (DEPG) : rv=-rg, rg, th
Z_TH_BERFI, Z_RC_BERFI, & ! Bergeron (BERFI) : rc, ri=-rc, th
- Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_RG_RIM, & ! cloud droplet riming (RIM) : rc, Nc, rs, rg, th
+ Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_CS_RIM, Z_RG_RIM, & ! cloud droplet riming (RIM) : rc, Nc, rs, Ns, rg, Ng=-Ns, th
Z_RI_HMS, Z_CI_HMS, Z_RS_HMS, & ! hallett mossop snow (HMS) : ri, Ni, rs
- Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_RG_ACC, & ! rain accretion on aggregates (ACC) : rr, Nr, rs, rg, th
- Z_RS_CMEL, & ! conversion-melting (CMEL) : rs, rg=-rs
+ Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_CS_ACC, Z_RG_ACC, & ! rain accretion on aggregates (ACC) : rr, Nr, rs, Ns, rg, Ng=-Ns, th
+ Z_RS_CMEL, Z_CS_CMEL, & ! conversion-melting (CMEL) : rs, rg=-rs
Z_TH_CFRZ, Z_RR_CFRZ, Z_CR_CFRZ, Z_RI_CFRZ, Z_CI_CFRZ, & ! rain freezing (CFRZ) : rr, Nr, ri, Ni, rg=-rr-ri, th
+ Z_RI_CIBU, Z_CI_CIBU, & ! collisional ice break-up (CIBU) : ri, Ni, rs=-ri
+ Z_RI_RDSF, Z_CI_RDSF, & ! rain drops freezing shattering (RDSF) : ri, Ni, rg=-ri
Z_TH_WETG, Z_RC_WETG, Z_CC_WETG, Z_RR_WETG, Z_CR_WETG, & ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
- Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_RG_WETG, Z_RH_WETG, & ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
+ Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_CS_WETG, Z_RG_WETG, Z_CG_WETG, Z_RH_WETG, & ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, Nh=-Ng, th
Z_TH_DRYG, Z_RC_DRYG, Z_CC_DRYG, Z_RR_DRYG, Z_CR_DRYG, & ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
- Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_RG_DRYG, & ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
+ Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_CS_DRYG, Z_RG_DRYG, & ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, Ns, rg, th
Z_RI_HMG, Z_CI_HMG, Z_RG_HMG, & ! hallett mossop graupel (HMG) : ri, Ni, rg
- Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, & ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
-! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
+ Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, Z_CG_GMLT, & ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
+ Z_TH_DEPH, Z_RH_DEPH, & ! deposition of vapor on hail (DEPH) : rv=-rh, rh, th
+ Z_TH_WETH, Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
+ Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_CS_WETH, Z_RG_WETH, Z_CG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
+ Z_RG_COHG, Z_CG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
+ Z_TH_HMLT, Z_RR_HMLT, Z_CR_HMLT, Z_CH_HMLT, & ! hail melting (HMLT) : rr, Nr, rh=-rr, th
Z_RV_CORR2, Z_RC_CORR2, Z_RR_CORR2, Z_RI_CORR2, &
Z_CC_CORR2, Z_CR_CORR2, Z_CI_CORR2
!
@@ -266,8 +269,8 @@ REAL, DIMENSION(SIZE(PTHT,1),SIZE(PTHT,2),SIZE(PTHT,3)) :: &
!
! Packed variables for total tendencies
REAL, DIMENSION(:), ALLOCATABLE :: &
- ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, ZA_RI, ZA_CI, ZA_RS, ZA_RG, ZA_RH, & ! ZA = continuous tendencies (kg/kg/s = S variable)
- ZB_TH, ZB_RV, ZB_RC, ZB_CC, ZB_RR, ZB_CR, ZB_RI, ZB_CI, ZB_RS, ZB_RG, ZB_RH ! ZB = instant mixing ratio change (kg/kg = T variable)
+ ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, ZA_RI, ZA_CI, ZA_RS, ZA_CS, ZA_RG, ZA_CG, ZA_RH, ZA_CH, & ! ZA = continuous tendencies (kg/kg/s = S variable)
+ ZB_TH, ZB_RV, ZB_RC, ZB_CC, ZB_RR, ZB_CR, ZB_RI, ZB_CI, ZB_RS, ZB_CS, ZB_RG, ZB_CG, ZB_RH, ZB_CH ! ZB = instant mixing ratio change (kg/kg = T variable)
REAL, DIMENSION(:,:), ALLOCATABLE :: ZB_IFNN
!
@@ -284,29 +287,33 @@ REAL, DIMENSION(:,:,:), ALLOCATABLE :: &
ZTOT_RC_ACCR, ZTOT_CC_ACCR, & ! accretion of droplets by rain drops (ACCR)
ZTOT_CR_SCBU, & ! self collectio break up of drops (SCBU)
! ZTOT_TH_EVAP, ZTOT_RC_EVAP, ZTOT_CC_EVAP, ZTOT_RR_EVAP, ZTOT_CR_EVAP, & ! evaporation of rain drops (EVAP)
- ZTOT_TH_EVAP, ZTOT_RR_EVAP, & ! evaporation of rain drops (EVAP)
+ ZTOT_TH_EVAP, ZTOT_RR_EVAP, ZTOT_CR_EVAP, & ! evaporation of rain drops (EVAP)
ZTOT_RI_CNVI, ZTOT_CI_CNVI, & ! conversion snow -> ice (CNVI)
ZTOT_TH_DEPS, ZTOT_RS_DEPS, & ! deposition of vapor on snow (DEPS)
ZTOT_TH_DEPI, ZTOT_RI_DEPI, & ! deposition of vapor on ice (DEPI)
ZTOT_RI_CNVS, ZTOT_CI_CNVS, & ! conversion ice -> snow (CNVS)
+ ZTOT_CS_SSC, & ! self collection of snow (SSC)
ZTOT_RI_AGGS, ZTOT_CI_AGGS, & ! aggregation of ice on snow (AGGS)
ZTOT_TH_DEPG, ZTOT_RG_DEPG, & ! deposition of vapor on graupel (DEPG)
ZTOT_TH_BERFI, ZTOT_RC_BERFI, & ! Bergeron (BERFI)
- ZTOT_TH_RIM, ZTOT_RC_RIM, ZTOT_CC_RIM, ZTOT_RS_RIM, ZTOT_RG_RIM, & ! cloud droplet riming (RIM)
+ ZTOT_TH_RIM, ZTOT_RC_RIM, ZTOT_CC_RIM, ZTOT_RS_RIM, ZTOT_CS_RIM, ZTOT_RG_RIM, & ! cloud droplet riming (RIM)
ZTOT_RI_HMS, ZTOT_CI_HMS, ZTOT_RS_HMS, & ! hallett mossop snow (HMS)
- ZTOT_TH_ACC, ZTOT_RR_ACC, ZTOT_CR_ACC, ZTOT_RS_ACC, ZTOT_RG_ACC, & ! rain accretion on aggregates (ACC)
- ZTOT_RS_CMEL, & ! conversion-melting (CMEL)
+ ZTOT_TH_ACC, ZTOT_RR_ACC, ZTOT_CR_ACC, ZTOT_RS_ACC, ZTOT_CS_ACC, ZTOT_RG_ACC, & ! rain accretion on aggregates (ACC)
+ ZTOT_RS_CMEL, ZTOT_CS_CMEL, & ! conversion-melting (CMEL)
ZTOT_TH_CFRZ, ZTOT_RR_CFRZ, ZTOT_CR_CFRZ, ZTOT_RI_CFRZ, ZTOT_CI_CFRZ, & ! rain freezing (CFRZ)
+ ZTOT_RI_CIBU, ZTOT_CI_CIBU, & ! collisional ice break-up (CIBU)
+ ZTOT_RI_RDSF, ZTOT_CI_RDSF, & ! rain drops freezing shattering (RDSF)
ZTOT_TH_WETG, ZTOT_RC_WETG, ZTOT_CC_WETG, ZTOT_RR_WETG, ZTOT_CR_WETG, & ! wet growth of graupel (WETG)
- ZTOT_RI_WETG, ZTOT_CI_WETG, ZTOT_RS_WETG, ZTOT_RG_WETG, ZTOT_RH_WETG, & ! wet growth of graupel (WETG)
+ ZTOT_RI_WETG, ZTOT_CI_WETG, ZTOT_RS_WETG, ZTOT_CS_WETG, ZTOT_RG_WETG, ZTOT_CG_WETG, ZTOT_RH_WETG, & ! wet growth of graupel (WETG)
ZTOT_TH_DRYG, ZTOT_RC_DRYG, ZTOT_CC_DRYG, ZTOT_RR_DRYG, ZTOT_CR_DRYG, & ! dry growth of graupel (DRYG)
- ZTOT_RI_DRYG, ZTOT_CI_DRYG, ZTOT_RS_DRYG, ZTOT_RG_DRYG, & ! dry growth of graupel (DRYG)
+ ZTOT_RI_DRYG, ZTOT_CI_DRYG, ZTOT_RS_DRYG, ZTOT_CS_DRYG, ZTOT_RG_DRYG, & ! dry growth of graupel (DRYG)
ZTOT_RI_HMG, ZTOT_CI_HMG, ZTOT_RG_HMG, & ! hallett mossop graupel (HMG)
- ZTOT_TH_GMLT, ZTOT_RR_GMLT, ZTOT_CR_GMLT, & ! graupel melting (GMLT)
-! ZTOT_RC_WETH, ZTOT_CC_WETH, ZTOT_RR_WETH, ZTOT_CR_WETH, & ! wet growth of hail (WETH)
-! ZTOT_RI_WETH, ZTOT_CI_WETH, ZTOT_RS_WETH, ZTOT_RG_WETH, ZTOT_RH_WETH, & ! wet growth of hail (WETH)
-! ZTOT_RG_COHG, & ! conversion of hail into graupel (COHG)
-! ZTOT_RR_HMLT, ZTOT_CR_HMLT, & ! hail melting (HMLT)
+ ZTOT_TH_GMLT, ZTOT_RR_GMLT, ZTOT_CR_GMLT, ZTOT_CG_GMLT, & ! graupel melting (GMLT)
+ ZTOT_TH_DEPH, ZTOT_RH_DEPH, & ! deposition of vapor on hail (DEPH)
+ ZTOT_TH_WETH, ZTOT_RC_WETH, ZTOT_CC_WETH, ZTOT_RR_WETH, ZTOT_CR_WETH, & ! wet growth of hail (WETH)
+ ZTOT_RI_WETH, ZTOT_CI_WETH, ZTOT_RS_WETH, ZTOT_CS_WETH, ZTOT_RG_WETH, ZTOT_CG_WETH, ZTOT_RH_WETH, & ! wet growth of hail (WETH)
+ ZTOT_RG_COHG, ZTOT_CG_COHG, & ! conversion of hail into graupel (COHG)
+ ZTOT_TH_HMLT, ZTOT_RR_HMLT, ZTOT_CR_HMLT, ZTOT_CH_HMLT, & ! hail melting (HMLT)
ZTOT_RR_CVRC, ZTOT_CR_CVRC, & ! conversion of rain into cloud droplets if diameter too small
ZTOT_RV_CORR2, ZTOT_RC_CORR2, ZTOT_RR_CORR2, ZTOT_RI_CORR2, &
ZTOT_CC_CORR2, ZTOT_CR_CORR2, ZTOT_CI_CORR2
@@ -392,6 +399,12 @@ ZCRT(:,:,:) = 0.
ZCRS(:,:,:) = 0.
ZCIT(:,:,:) = 0.
ZCIS(:,:,:) = 0.
+ZCST(:,:,:) = 0.
+ZCSS(:,:,:) = 0.
+ZCGT(:,:,:) = 0.
+ZCGS(:,:,:) = 0.
+ZCHT(:,:,:) = 0.
+ZCHS(:,:,:) = 0.
ZCCNFT(:,:,:,:) = 0.
ZCCNAT(:,:,:,:) = 0.
ZCCNFS(:,:,:,:) = 0.
@@ -428,7 +441,7 @@ if ( lbu_enable ) then
! allocate( ZTOT_RC_EVAP (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_EVAP(:,:,:) = 0.
! allocate( ZTOT_CC_EVAP (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_EVAP(:,:,:) = 0.
allocate( ZTOT_RR_EVAP (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_EVAP(:,:,:) = 0.
-! allocate( ZTOT_CR_EVAP (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_EVAP(:,:,:) = 0.
+ allocate( ZTOT_CR_EVAP (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_EVAP(:,:,:) = 0.
allocate( ZTOT_RI_CNVI (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_CNVI(:,:,:) = 0.
allocate( ZTOT_CI_CNVI (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_CNVI(:,:,:) = 0.
allocate( ZTOT_TH_DEPS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_DEPS(:,:,:) = 0.
@@ -437,6 +450,7 @@ if ( lbu_enable ) then
allocate( ZTOT_RI_DEPI (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_DEPI(:,:,:) = 0.
allocate( ZTOT_RI_CNVS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_CNVS(:,:,:) = 0.
allocate( ZTOT_CI_CNVS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_CNVS(:,:,:) = 0.
+ allocate( ZTOT_CS_SSC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_SSC(:,:,:) = 0.
allocate( ZTOT_RI_AGGS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_AGGS(:,:,:) = 0.
allocate( ZTOT_CI_AGGS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_AGGS(:,:,:) = 0.
allocate( ZTOT_TH_DEPG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_DEPG(:,:,:) = 0.
@@ -447,6 +461,7 @@ if ( lbu_enable ) then
allocate( ZTOT_RC_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_RIM(:,:,:) = 0.
allocate( ZTOT_CC_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_RIM(:,:,:) = 0.
allocate( ZTOT_RS_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_RIM(:,:,:) = 0.
+ allocate( ZTOT_CS_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_RIM(:,:,:) = 0.
allocate( ZTOT_RG_RIM (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_RIM(:,:,:) = 0.
allocate( ZTOT_RI_HMS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_HMS(:,:,:) = 0.
allocate( ZTOT_CI_HMS (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_HMS(:,:,:) = 0.
@@ -455,13 +470,19 @@ if ( lbu_enable ) then
allocate( ZTOT_RR_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_ACC(:,:,:) = 0.
allocate( ZTOT_CR_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_ACC(:,:,:) = 0.
allocate( ZTOT_RS_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_ACC(:,:,:) = 0.
+ allocate( ZTOT_CS_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_ACC(:,:,:) = 0.
allocate( ZTOT_RG_ACC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_ACC(:,:,:) = 0.
allocate( ZTOT_RS_CMEL (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_CMEL(:,:,:) = 0.
+ allocate( ZTOT_CS_CMEL (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_CMEL(:,:,:) = 0.
allocate( ZTOT_TH_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_CFRZ(:,:,:) = 0.
allocate( ZTOT_RR_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_CFRZ(:,:,:) = 0.
allocate( ZTOT_CR_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_CFRZ(:,:,:) = 0.
allocate( ZTOT_RI_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_CFRZ(:,:,:) = 0.
allocate( ZTOT_CI_CFRZ (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_CFRZ(:,:,:) = 0.
+ allocate( ZTOT_RI_CIBU (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_CIBU(:,:,:) = 0.
+ allocate( ZTOT_CI_CIBU (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_CIBU(:,:,:) = 0.
+ allocate( ZTOT_RI_RDSF (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_RDSF(:,:,:) = 0.
+ allocate( ZTOT_CI_RDSF (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_RDSF(:,:,:) = 0.
allocate( ZTOT_TH_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_WETG(:,:,:) = 0.
allocate( ZTOT_RC_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_WETG(:,:,:) = 0.
allocate( ZTOT_CC_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_WETG(:,:,:) = 0.
@@ -470,7 +491,9 @@ if ( lbu_enable ) then
allocate( ZTOT_RI_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_WETG(:,:,:) = 0.
allocate( ZTOT_CI_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_WETG(:,:,:) = 0.
allocate( ZTOT_RS_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_WETG(:,:,:) = 0.
+ allocate( ZTOT_CS_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_WETG(:,:,:) = 0.
allocate( ZTOT_RG_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_WETG(:,:,:) = 0.
+ allocate( ZTOT_CG_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_WETG(:,:,:) = 0.
allocate( ZTOT_RH_WETG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_WETG(:,:,:) = 0.
allocate( ZTOT_TH_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_DRYG(:,:,:) = 0.
allocate( ZTOT_RC_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_DRYG(:,:,:) = 0.
@@ -480,6 +503,7 @@ if ( lbu_enable ) then
allocate( ZTOT_RI_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_DRYG(:,:,:) = 0.
allocate( ZTOT_CI_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_DRYG(:,:,:) = 0.
allocate( ZTOT_RS_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_DRYG(:,:,:) = 0.
+ allocate( ZTOT_CS_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_DRYG(:,:,:) = 0.
allocate( ZTOT_RG_DRYG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_DRYG(:,:,:) = 0.
allocate( ZTOT_RI_HMG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_HMG(:,:,:) = 0.
allocate( ZTOT_CI_HMG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_HMG(:,:,:) = 0.
@@ -487,18 +511,27 @@ if ( lbu_enable ) then
allocate( ZTOT_TH_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_GMLT(:,:,:) = 0.
allocate( ZTOT_RR_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_GMLT(:,:,:) = 0.
allocate( ZTOT_CR_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_GMLT(:,:,:) = 0.
-! allocate( ZTOT_RC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_WETH(:,:,:) = 0.
-! allocate( ZTOT_CC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_WETH(:,:,:) = 0.
-! allocate( ZTOT_RR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_WETH(:,:,:) = 0.
-! allocate( ZTOT_CR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_WETH(:,:,:) = 0.
-! allocate( ZTOT_RI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_WETH(:,:,:) = 0.
-! allocate( ZTOT_CI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_WETH(:,:,:) = 0.
-! allocate( ZTOT_RS_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_WETH(:,:,:) = 0.
-! allocate( ZTOT_RG_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_WETH(:,:,:) = 0.
-! allocate( ZTOT_RH_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_WETH(:,:,:) = 0.
-! allocate( ZTOT_RG_COHG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_COHG(:,:,:) = 0.
-! allocate( ZTOT_RR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_HMLT(:,:,:) = 0.
-! allocate( ZTOT_CR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_HMLT(:,:,:) = 0.
+ allocate( ZTOT_CG_GMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_GMLT(:,:,:) = 0.
+ allocate( ZTOT_TH_DEPH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_DEPH(:,:,:) = 0.
+ allocate( ZTOT_RH_DEPH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_DEPH(:,:,:) = 0.
+ allocate( ZTOT_TH_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_WETH(:,:,:) = 0.
+ allocate( ZTOT_RC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RC_WETH(:,:,:) = 0.
+ allocate( ZTOT_CC_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CC_WETH(:,:,:) = 0.
+ allocate( ZTOT_RR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_WETH(:,:,:) = 0.
+ allocate( ZTOT_CR_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_WETH(:,:,:) = 0.
+ allocate( ZTOT_RI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RI_WETH(:,:,:) = 0.
+ allocate( ZTOT_CI_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CI_WETH(:,:,:) = 0.
+ allocate( ZTOT_RS_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RS_WETH(:,:,:) = 0.
+ allocate( ZTOT_CS_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CS_WETH(:,:,:) = 0.
+ allocate( ZTOT_RG_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_WETH(:,:,:) = 0.
+ allocate( ZTOT_CG_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_WETH(:,:,:) = 0.
+ allocate( ZTOT_RH_WETH (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RH_WETH(:,:,:) = 0.
+ allocate( ZTOT_RG_COHG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RG_COHG(:,:,:) = 0.
+ allocate( ZTOT_CG_COHG (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CG_COHG(:,:,:) = 0.
+ allocate( ZTOT_TH_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_TH_HMLT(:,:,:) = 0.
+ allocate( ZTOT_RR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_HMLT(:,:,:) = 0.
+ allocate( ZTOT_CR_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_HMLT(:,:,:) = 0.
+ allocate( ZTOT_CH_HMLT (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CH_HMLT(:,:,:) = 0.
allocate( ZTOT_RR_CVRC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_RR_CVRC(:,:,:) = 0.
allocate( ZTOT_CR_CVRC (size( ptht, 1), size( ptht, 2), size( ptht, 3) ) ); ZTOT_CR_CVRC(:,:,:) = 0.
@@ -533,12 +566,23 @@ IF ( KRR .GE. 7 ) ZRHS(:,:,:) = PRS(:,:,:,7)
!
! Concentrations
!
-IF ( LWARM ) ZCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC) * PTSTEP
-IF ( LWARM ) ZCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
-IF ( LWARM .AND. LRAIN ) ZCRT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR) * PTSTEP
-IF ( LWARM .AND. LRAIN ) ZCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
-IF ( LCOLD ) ZCIT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI) * PTSTEP
-IF ( LCOLD ) ZCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_C.GE.2) THEN
+ ZCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC) * PTSTEP
+ ZCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
+ELSE
+ ZCCT(:,:,:) = 300.E6 / PRHODREF(:,:,:)
+ ZCCS(:,:,:) = ZCCT(:,:,:) / PTSTEP
+END IF
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2) ZCRT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR) * PTSTEP
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2) ZCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
+IF ( LCOLD .AND. NMOM_I.GE.2) ZCIT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI) * PTSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2) ZCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( LCOLD .AND. LSNOW .AND. NMOM_S.GE.2) ZCST(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS) * PTSTEP
+IF ( LCOLD .AND. LSNOW .AND. NMOM_S.GE.2) ZCSS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS)
+IF ( LCOLD .AND. NMOM_G.GE.2) ZCGT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG) * PTSTEP
+IF ( LCOLD .AND. NMOM_G.GE.2) ZCGS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG)
+IF ( LCOLD .AND. NMOM_H.GE.2) ZCHT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH) * PTSTEP
+IF ( LCOLD .AND. NMOM_H.GE.2) ZCHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH)
!
IF ( NMOD_CCN .GE. 1 ) ZCCNFT(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) * PTSTEP
IF ( NMOD_CCN .GE. 1 ) ZCCNAT(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1) * PTSTEP
@@ -570,11 +614,11 @@ ZT(:,:,:) = ZTHT(:,:,:) * ZEXN(:,:,:)
! if ( lbudget_ri .and. lcold .and. lsnow ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CORR', zris(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_rs .and. lcold .and. lsnow ) call Budget_store_init( tbudgets(NBUDGET_RS), 'CORR', zrss(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_sv ) then
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_c.ge.2) &
! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CORR', zccs(:, :, :) * prhodj(:, :, :) )
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_r.ge.2) &
! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'CORR', zcrs(:, :, :) * prhodj(:, :, :) )
-! if ( lcold .and. lsnow ) &
+! if ( lcold .and. lsnow .and. nmom_i.ge.2) &
! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CORR', zcis(:, :, :) * prhodj(:, :, :) )
! end if
! end if
@@ -621,11 +665,11 @@ ZT(:,:,:) = ZTHT(:,:,:) * ZEXN(:,:,:)
! if ( lbudget_ri .and. lcold .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CORR', zris(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_rs .and. lcold .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RS), 'CORR', zrss(:, :, :) * prhodj(:, :, :) )
! if ( lbudget_sv ) then
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_c.ge.2) &
! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CORR', zccs(:, :, :) * prhodj(:, :, :) )
-! if ( lwarm .and. lrain ) &
+! if ( lwarm .and. lrain .and. nmom_r.ge.2) &
! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'CORR', zcrs(:, :, :) * prhodj(:, :, :) )
-! if ( lcold .and. lsnow ) &
+! if ( lcold .and. lsnow .and. nmom_i.ge.2) &
! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CORR', zcis(:, :, :) * prhodj(:, :, :) )
! end if
! end if
@@ -644,11 +688,11 @@ if ( lbu_enable ) then
if ( lbudget_rg .and. lcold .and. lsnow ) call Budget_store_init( tbudgets(NBUDGET_RG), 'SEDI', zrgs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rh .and. lcold .and. lhail ) call Budget_store_init( tbudgets(NBUDGET_RH), 'SEDI', zrhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm .and. lsedc ) &
+ if ( lwarm .and. lsedc .and. nmom_c.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'SEDI', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lwarm .and. lrain ) &
+ if ( lwarm .and. lrain .and. nmom_r.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'SEDI', zcrs(:, :, :) * prhodj(:, :, :) )
- if ( lcold .and. lsedi ) &
+ if ( lcold .and. lsedi .and. nmom_i.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', zcis(:, :, :) * prhodj(:, :, :) )
end if
end if
@@ -656,27 +700,27 @@ end if
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LWARM .AND. LSEDC) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'L', 2, 2, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRCS, ZCCS, PINPRC)
+ 'L', 2, 2, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRCS, ZCCS, PINPRC)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LWARM .AND. LRAIN) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'L', 2, 3, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRRS, ZCRS, PINPRR)
+ 'L', NMOM_R, 3, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRRS, ZCRS, PINPRR)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LSEDI) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 2, 4, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRIS, ZCIS, ZW2D)
+ 'I', NMOM_I, 4, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRIS, ZCIS, ZW2D)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LSNOW) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 1, 5, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRSS, ZW3D, PINPRS)
+ 'I', NMOM_S, 5, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRSS, ZCSS, PINPRS)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LSNOW) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 1, 6, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRGS, ZW3D, PINPRG)
+ 'I', NMOM_G, 6, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRGS, ZCGS, PINPRG)
ZRT_SUM = (ZRVS + ZRCS + ZRRS + ZRIS + ZRSS + ZRGS + ZRHS)*PTSTEP
ZCPT = XCPD + (XCPV * ZRVS + XCL * (ZRCS + ZRRS) + XCI * (ZRIS + ZRSS + ZRGS + ZRHS))*PTSTEP
IF (LCOLD .AND. LHAIL) CALL LIMA_SEDIMENTATION(IIB, IIE, IIT, IJB, IJE, IJT, IKB, IKE, IKTB, IKTE, IKT, KKL, &
- 'I', 1, 7, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRHS, ZW3D, PINPRH)
+ 'I', NMOM_H, 7, 1, PTSTEP, PDZZ, PRHODREF, PPABST, ZT, ZRT_SUM, ZCPT, ZRHS, ZCHS, PINPRH)
!
ZTHS(:,:,:) = ZT(:,:,:) / ZEXN(:,:,:) * ZINV_TSTEP
!
@@ -691,11 +735,11 @@ if ( lbu_enable ) then
if ( lbudget_rg .and. lcold .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RG), 'SEDI', zrgs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rh .and. lcold .and. lhail ) call Budget_store_end( tbudgets(NBUDGET_RH), 'SEDI', zrhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm .and. lsedc ) &
+ if ( lwarm .and. lsedc .and. nmom_c.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'SEDI', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lwarm .and. lrain ) &
+ if ( lwarm .and. lrain .and. nmom_r.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'SEDI', zcrs(:, :, :) * prhodj(:, :, :) )
- if ( lcold .and. lsedi ) &
+ if ( lcold .and. lsedi .and. nmom_i.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', zcis(:, :, :) * prhodj(:, :, :) )
end if
end if
@@ -704,7 +748,8 @@ end if
!
IF (LWARM .AND. LDEPOC) THEN
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'DEPO', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. nmom_c.ge.2) &
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
PINDEP(:,:)=0.
GDEP(:,:) = .FALSE.
@@ -717,35 +762,40 @@ IF (LWARM .AND. LDEPOC) THEN
END WHERE
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'DEPO', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. nmom_c.ge.2) &
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DEPO', zccs(:, :, :) * prhodj(:, :, :) )
END IF
!
!
-Z_RR_CVRC(:,:,:) = 0.
-Z_CR_CVRC(:,:,:) = 0.
-IF (LWARM .AND. LRAIN) THEN
- if( lbu_enable ) then
- if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
- end if
-
- CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCS*PTSTEP, ZRRS*PTSTEP, ZCCS*PTSTEP, ZCRS*PTSTEP, &
- Z_RR_CVRC, Z_CR_CVRC)
- !
- ZRCS(:,:,:) = ZRCS(:,:,:) - Z_RR_CVRC(:,:,:)/PTSTEP
- ZRRS(:,:,:) = ZRRS(:,:,:) + Z_RR_CVRC(:,:,:)/PTSTEP
- ZCCS(:,:,:) = ZCCS(:,:,:) - Z_CR_CVRC(:,:,:)/PTSTEP
- ZCRS(:,:,:) = ZCRS(:,:,:) + Z_CR_CVRC(:,:,:)/PTSTEP
-
- if( lbu_enable ) then
- if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
- end if
-END IF
+!!$Z_RR_CVRC(:,:,:) = 0.
+!!$Z_CR_CVRC(:,:,:) = 0.
+!!$IF (LWARM .AND. LRAIN) THEN
+!!$ if( lbu_enable ) then
+!!$ if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_c.ge.2) &
+!!$ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_r.ge.2) &
+!!$ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
+!!$ end if
+!!$
+!!$ CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCS*PTSTEP, ZRRS*PTSTEP, ZCCS*PTSTEP, ZCRS*PTSTEP, &
+!!$ Z_RR_CVRC, Z_CR_CVRC)
+!!$ !
+!!$ ZRCS(:,:,:) = ZRCS(:,:,:) - Z_RR_CVRC(:,:,:)/PTSTEP
+!!$ ZRRS(:,:,:) = ZRRS(:,:,:) + Z_RR_CVRC(:,:,:)/PTSTEP
+!!$ ZCCS(:,:,:) = ZCCS(:,:,:) - Z_CR_CVRC(:,:,:)/PTSTEP
+!!$ ZCRS(:,:,:) = ZCRS(:,:,:) + Z_CR_CVRC(:,:,:)/PTSTEP
+!!$
+!!$ if( lbu_enable ) then
+!!$ if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'R2C1', zrcs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'R2C1', zrrs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_c.ge.2) &
+!!$ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'R2C1', zccs(:, :, :) * prhodj(:, :, :) )
+!!$ if ( lbudget_sv .and. nmom_r.ge.2) &
+!!$ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'R2C1', zcrs(:, :, :) * prhodj(:, :, :) )
+!!$ end if
+!!$END IF
!
! Update variables
!
@@ -759,27 +809,26 @@ IF ( KRR .GE. 5 ) ZRST(:,:,:) = ZRSS(:,:,:) * PTSTEP
IF ( KRR .GE. 6 ) ZRGT(:,:,:) = ZRGS(:,:,:) * PTSTEP
IF ( KRR .GE. 7 ) ZRHT(:,:,:) = ZRHS(:,:,:) * PTSTEP
!
-IF ( LWARM ) ZCCT(:,:,:) = ZCCS(:,:,:) * PTSTEP
-IF ( LWARM .AND. LRAIN ) ZCRT(:,:,:) = ZCRS(:,:,:) * PTSTEP
-IF ( LCOLD ) ZCIT(:,:,:) = ZCIS(:,:,:) * PTSTEP
+IF ( LWARM .AND. NMOM_C.GE.2 ) ZCCT(:,:,:) = ZCCS(:,:,:) * PTSTEP
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2 ) ZCRT(:,:,:) = ZCRS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2 ) ZCIT(:,:,:) = ZCIS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_S.GE.2 ) ZCST(:,:,:) = ZCSS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_G.GE.2 ) ZCGT(:,:,:) = ZCGS(:,:,:) * PTSTEP
+IF ( LCOLD .AND. NMOM_H.GE.2 ) ZCHT(:,:,:) = ZCHS(:,:,:) * PTSTEP
!
!-------------------------------------------------------------------------------
!
!* 2. Compute cloud, ice and precipitation fractions
! ----------------------------------------------
!
-IF (LSUBG_COND) THEN
- CALL LIMA_COMPUTE_CLOUD_FRACTIONS (IIB, IIE, IJB, IJE, IKB, IKE, KKL, &
- ZCCT, ZRCT, &
- ZCRT, ZRRT, &
- ZCIT, ZRIT, &
- ZRST, ZRGT, ZRHT, &
- PCLDFR, PICEFR, PPRCFR )
-ELSE
- PCLDFR(:,:,:)=1.
- PICEFR(:,:,:)=1.
- PPRCFR(:,:,:)=1.
-END IF
+CALL LIMA_COMPUTE_CLOUD_FRACTIONS (IIB, IIE, IJB, IJE, IKB, IKE, KKL, &
+ ZCCT, ZRCT, &
+ ZCRT, ZRRT, &
+ ZCIT, ZRIT, &
+ ZCST, ZRST, &
+ ZCGT, ZRGT, &
+ ZCHT, ZRHT, &
+ PCLDFR, PICEFR, PPRCFR )
!
!-------------------------------------------------------------------------------
!
@@ -803,9 +852,12 @@ ZRSS(:,:,:) = ZRST(:,:,:) *ZINV_TSTEP
ZRGS(:,:,:) = ZRGT(:,:,:) *ZINV_TSTEP
ZRHS(:,:,:) = ZRHT(:,:,:) *ZINV_TSTEP
!
-ZCCS(:,:,:) = ZCCT(:,:,:) *ZINV_TSTEP
-ZCRS(:,:,:) = ZCRT(:,:,:) *ZINV_TSTEP
-ZCIS(:,:,:) = ZCIT(:,:,:) *ZINV_TSTEP
+IF (NMOM_C.GE.2) ZCCS(:,:,:) = ZCCT(:,:,:) *ZINV_TSTEP
+IF (NMOM_R.GE.2) ZCRS(:,:,:) = ZCRT(:,:,:) *ZINV_TSTEP
+IF (NMOM_I.GE.2) ZCIS(:,:,:) = ZCIT(:,:,:) *ZINV_TSTEP
+IF (NMOM_S.GE.2) ZCSS(:,:,:) = ZCST(:,:,:) *ZINV_TSTEP
+IF (NMOM_G.GE.2) ZCGS(:,:,:) = ZCGT(:,:,:) *ZINV_TSTEP
+IF (NMOM_H.GE.2) ZCHS(:,:,:) = ZCHT(:,:,:) *ZINV_TSTEP
!
ZCCNFS(:,:,:,:) = ZCCNFT(:,:,:,:) *ZINV_TSTEP
ZCCNAS(:,:,:,:) = ZCCNAT(:,:,:,:) *ZINV_TSTEP
@@ -889,6 +941,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(ZCCT1D(IPACK))
ALLOCATE(ZCRT1D(IPACK))
ALLOCATE(ZCIT1D(IPACK))
+ ALLOCATE(ZCST1D(IPACK))
+ ALLOCATE(ZCGT1D(IPACK))
+ ALLOCATE(ZCHT1D(IPACK))
ALLOCATE(ZIFNN1D(IPACK,NMOD_IFN))
ALLOCATE(ZEVAP1D(IPACK))
ALLOCATE(ZTIME1D(IPACK))
@@ -922,6 +977,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZCCT1D(II) = ZCCT(I1(II),I2(II),I3(II))
ZCRT1D(II) = ZCRT(I1(II),I2(II),I3(II))
ZCIT1D(II) = ZCIT(I1(II),I2(II),I3(II))
+ ZCST1D(II) = ZCST(I1(II),I2(II),I3(II))
+ ZCGT1D(II) = ZCGT(I1(II),I2(II),I3(II))
+ ZCHT1D(II) = ZCHT(I1(II),I2(II),I3(II))
ZIFNN1D(II,:) = ZIFNNT(I1(II),I2(II),I3(II),:)
ZEVAP1D(II) = PEVAP3D(I1(II),I2(II),I3(II))
ZTIME1D(II) = ZTIME(I1(II),I2(II),I3(II))
@@ -942,8 +1000,10 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
!
WHERE(ZCF1D(:)<1.E-10 .AND. ZRCT1D(:)>XRTMIN(2) .AND. ZCCT1D(:)>XCTMIN(2)) ZCF1D(:)=1.
WHERE(ZIF1D(:)<1.E-10 .AND. ZRIT1D(:)>XRTMIN(4) .AND. ZCIT1D(:)>XCTMIN(4)) ZIF1D(:)=1.
- WHERE(ZPF1D(:)<1.E-10 .AND. (ZRRT1D(:)>XRTMIN(3) .OR. ZRST1D(:)>XRTMIN(5) &
- .OR. ZRGT1D(:)>XRTMIN(6) .OR. ZRHT1D(:)>XRTMIN(7) ) ) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRRT1D(:)>XRTMIN(3) .AND. ZCRT1D(:)>XCTMIN(3)) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRST1D(:)>XRTMIN(5) .AND. ZCST1D(:)>XCTMIN(5)) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRGT1D(:)>XRTMIN(6) .AND. ZCGT1D(:)>XCTMIN(6)) ZPF1D(:)=1.
+ WHERE(ZPF1D(:)<1.E-10 .AND. ZRHT1D(:)>XRTMIN(7) .AND. ZCHT1D(:)>XCTMIN(7)) ZPF1D(:)=1.
!
! Allocating 1D variables
!
@@ -961,6 +1021,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(ZA_CC(IPACK)) ; ZA_CC(:) = 0.
ALLOCATE(ZA_CR(IPACK)) ; ZA_CR(:) = 0.
ALLOCATE(ZA_CI(IPACK)) ; ZA_CI(:) = 0.
+ ALLOCATE(ZA_CS(IPACK)) ; ZA_CS(:) = 0.
+ ALLOCATE(ZA_CG(IPACK)) ; ZA_CG(:) = 0.
+ ALLOCATE(ZA_CH(IPACK)) ; ZA_CH(:) = 0.
!
ALLOCATE(ZB_TH(IPACK)) ; ZB_TH(:) = 0.
ALLOCATE(ZB_RV(IPACK)) ; ZB_RV(:) = 0.
@@ -973,6 +1036,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(ZB_CC(IPACK)) ; ZB_CC(:) = 0.
ALLOCATE(ZB_CR(IPACK)) ; ZB_CR(:) = 0.
ALLOCATE(ZB_CI(IPACK)) ; ZB_CI(:) = 0.
+ ALLOCATE(ZB_CS(IPACK)) ; ZB_CS(:) = 0.
+ ALLOCATE(ZB_CG(IPACK)) ; ZB_CG(:) = 0.
+ ALLOCATE(ZB_CH(IPACK)) ; ZB_CH(:) = 0.
ALLOCATE(ZB_IFNN(IPACK,NMOD_IFN)) ; ZB_IFNN(:,:) = 0.
!
ALLOCATE(Z_CR_BRKU(IPACK)) ; Z_CR_BRKU(:) = 0.
@@ -994,6 +1060,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(Z_CR_SCBU(IPACK)) ; Z_CR_SCBU(:) = 0.
ALLOCATE(Z_TH_EVAP(IPACK)) ; Z_TH_EVAP(:) = 0.
ALLOCATE(Z_RR_EVAP(IPACK)) ; Z_RR_EVAP(:) = 0.
+ ALLOCATE(Z_CR_EVAP(IPACK)) ; Z_CR_EVAP(:) = 0.
ALLOCATE(Z_RI_CNVI(IPACK)) ; Z_RI_CNVI(:) = 0.
ALLOCATE(Z_CI_CNVI(IPACK)) ; Z_CI_CNVI(:) = 0.
ALLOCATE(Z_TH_DEPS(IPACK)) ; Z_TH_DEPS(:) = 0.
@@ -1002,64 +1069,96 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ALLOCATE(Z_RI_DEPI(IPACK)) ; Z_RI_DEPI(:) = 0.
ALLOCATE(Z_RI_CNVS(IPACK)) ; Z_RI_CNVS(:) = 0.
ALLOCATE(Z_CI_CNVS(IPACK)) ; Z_CI_CNVS(:) = 0.
+ ALLOCATE(Z_CS_SSC(IPACK)) ; Z_CS_SSC(:) = 0.
ALLOCATE(Z_RI_AGGS(IPACK)) ; Z_RI_AGGS(:) = 0.
ALLOCATE(Z_CI_AGGS(IPACK)) ; Z_CI_AGGS(:) = 0.
ALLOCATE(Z_TH_DEPG(IPACK)) ; Z_TH_DEPG(:) = 0.
ALLOCATE(Z_RG_DEPG(IPACK)) ; Z_RG_DEPG(:) = 0.
ALLOCATE(Z_TH_BERFI(IPACK)) ; Z_TH_BERFI(:) = 0.
ALLOCATE(Z_RC_BERFI(IPACK)) ; Z_RC_BERFI(:) = 0.
- ALLOCATE(Z_TH_RIM(IPACK)) ; Z_TH_RIM = 0.
- ALLOCATE(Z_RC_RIM(IPACK)) ; Z_RC_RIM = 0.
- ALLOCATE(Z_CC_RIM(IPACK)) ; Z_CC_RIM = 0.
- ALLOCATE(Z_RS_RIM(IPACK)) ; Z_RS_RIM = 0.
- ALLOCATE(Z_RG_RIM(IPACK)) ; Z_RG_RIM = 0.
- ALLOCATE(Z_RI_HMS(IPACK)) ; Z_RI_HMS = 0.
- ALLOCATE(Z_CI_HMS(IPACK)) ; Z_CI_HMS = 0.
- ALLOCATE(Z_RS_HMS(IPACK)) ; Z_RS_HMS = 0.
- ALLOCATE(Z_TH_ACC(IPACK)) ; Z_TH_ACC = 0.
- ALLOCATE(Z_RR_ACC(IPACK)) ; Z_RR_ACC = 0.
- ALLOCATE(Z_CR_ACC(IPACK)) ; Z_CR_ACC = 0.
- ALLOCATE(Z_RS_ACC(IPACK)) ; Z_RS_ACC = 0.
- ALLOCATE(Z_RG_ACC(IPACK)) ; Z_RG_ACC = 0.
- ALLOCATE(Z_RS_CMEL(IPACK)) ; Z_RS_CMEL = 0.
- ALLOCATE(Z_TH_CFRZ(IPACK)) ; Z_TH_CFRZ = 0.
- ALLOCATE(Z_RR_CFRZ(IPACK)) ; Z_RR_CFRZ = 0.
- ALLOCATE(Z_CR_CFRZ(IPACK)) ; Z_CR_CFRZ = 0.
- ALLOCATE(Z_RI_CFRZ(IPACK)) ; Z_RI_CFRZ = 0.
- ALLOCATE(Z_CI_CFRZ(IPACK)) ; Z_CI_CFRZ = 0.
- ALLOCATE(Z_TH_WETG(IPACK)) ; Z_TH_WETG = 0.
- ALLOCATE(Z_RC_WETG(IPACK)) ; Z_RC_WETG = 0.
- ALLOCATE(Z_CC_WETG(IPACK)) ; Z_CC_WETG = 0.
- ALLOCATE(Z_RR_WETG(IPACK)) ; Z_RR_WETG = 0.
- ALLOCATE(Z_CR_WETG(IPACK)) ; Z_CR_WETG = 0.
- ALLOCATE(Z_RI_WETG(IPACK)) ; Z_RI_WETG = 0.
- ALLOCATE(Z_CI_WETG(IPACK)) ; Z_CI_WETG = 0.
- ALLOCATE(Z_RS_WETG(IPACK)) ; Z_RS_WETG = 0.
- ALLOCATE(Z_RG_WETG(IPACK)) ; Z_RG_WETG = 0.
- ALLOCATE(Z_RH_WETG(IPACK)) ; Z_RH_WETG = 0.
- ALLOCATE(Z_TH_DRYG(IPACK)) ; Z_TH_DRYG = 0.
- ALLOCATE(Z_RC_DRYG(IPACK)) ; Z_RC_DRYG = 0.
- ALLOCATE(Z_CC_DRYG(IPACK)) ; Z_CC_DRYG = 0.
- ALLOCATE(Z_RR_DRYG(IPACK)) ; Z_RR_DRYG = 0.
- ALLOCATE(Z_CR_DRYG(IPACK)) ; Z_CR_DRYG = 0.
- ALLOCATE(Z_RI_DRYG(IPACK)) ; Z_RI_DRYG = 0.
- ALLOCATE(Z_CI_DRYG(IPACK)) ; Z_CI_DRYG = 0.
- ALLOCATE(Z_RS_DRYG(IPACK)) ; Z_RS_DRYG = 0.
- ALLOCATE(Z_RG_DRYG(IPACK)) ; Z_RG_DRYG = 0.
- ALLOCATE(Z_RI_HMG(IPACK)) ; Z_RI_HMG = 0.
- ALLOCATE(Z_CI_HMG(IPACK)) ; Z_CI_HMG = 0.
- ALLOCATE(Z_RG_HMG(IPACK)) ; Z_RG_HMG = 0.
- ALLOCATE(Z_TH_GMLT(IPACK)) ; Z_TH_GMLT = 0.
- ALLOCATE(Z_RR_GMLT(IPACK)) ; Z_RR_GMLT = 0.
- ALLOCATE(Z_CR_GMLT(IPACK)) ; Z_CR_GMLT = 0.
+ ALLOCATE(Z_TH_RIM(IPACK)) ; Z_TH_RIM(:) = 0.
+ ALLOCATE(Z_RC_RIM(IPACK)) ; Z_RC_RIM(:) = 0.
+ ALLOCATE(Z_CC_RIM(IPACK)) ; Z_CC_RIM(:) = 0.
+ ALLOCATE(Z_RS_RIM(IPACK)) ; Z_RS_RIM(:) = 0.
+ ALLOCATE(Z_CS_RIM(IPACK)) ; Z_CS_RIM(:) = 0.
+ ALLOCATE(Z_RG_RIM(IPACK)) ; Z_RG_RIM(:) = 0.
+ ALLOCATE(Z_RI_HMS(IPACK)) ; Z_RI_HMS(:) = 0.
+ ALLOCATE(Z_CI_HMS(IPACK)) ; Z_CI_HMS(:) = 0.
+ ALLOCATE(Z_RS_HMS(IPACK)) ; Z_RS_HMS(:) = 0.
+ ALLOCATE(Z_TH_ACC(IPACK)) ; Z_TH_ACC(:) = 0.
+ ALLOCATE(Z_RR_ACC(IPACK)) ; Z_RR_ACC(:) = 0.
+ ALLOCATE(Z_CR_ACC(IPACK)) ; Z_CR_ACC(:) = 0.
+ ALLOCATE(Z_RS_ACC(IPACK)) ; Z_RS_ACC(:) = 0.
+ ALLOCATE(Z_CS_ACC(IPACK)) ; Z_CS_ACC(:) = 0.
+ ALLOCATE(Z_RG_ACC(IPACK)) ; Z_RG_ACC(:) = 0.
+ ALLOCATE(Z_RS_CMEL(IPACK)) ; Z_RS_CMEL(:) = 0.
+ ALLOCATE(Z_CS_CMEL(IPACK)) ; Z_CS_CMEL(:) = 0.
+ ALLOCATE(Z_TH_CFRZ(IPACK)) ; Z_TH_CFRZ(:) = 0.
+ ALLOCATE(Z_RR_CFRZ(IPACK)) ; Z_RR_CFRZ(:) = 0.
+ ALLOCATE(Z_CR_CFRZ(IPACK)) ; Z_CR_CFRZ(:) = 0.
+ ALLOCATE(Z_RI_CFRZ(IPACK)) ; Z_RI_CFRZ(:) = 0.
+ ALLOCATE(Z_CI_CFRZ(IPACK)) ; Z_CI_CFRZ(:) = 0.
+ ALLOCATE(Z_RI_CIBU(IPACK)) ; Z_RI_CIBU(:) = 0.
+ ALLOCATE(Z_CI_CIBU(IPACK)) ; Z_CI_CIBU(:) = 0.
+ ALLOCATE(Z_RI_RDSF(IPACK)) ; Z_RI_RDSF(:) = 0.
+ ALLOCATE(Z_CI_RDSF(IPACK)) ; Z_CI_RDSF(:) = 0.
+ ALLOCATE(Z_TH_WETG(IPACK)) ; Z_TH_WETG(:) = 0.
+ ALLOCATE(Z_RC_WETG(IPACK)) ; Z_RC_WETG(:) = 0.
+ ALLOCATE(Z_CC_WETG(IPACK)) ; Z_CC_WETG(:) = 0.
+ ALLOCATE(Z_RR_WETG(IPACK)) ; Z_RR_WETG(:) = 0.
+ ALLOCATE(Z_CR_WETG(IPACK)) ; Z_CR_WETG(:) = 0.
+ ALLOCATE(Z_RI_WETG(IPACK)) ; Z_RI_WETG(:) = 0.
+ ALLOCATE(Z_CI_WETG(IPACK)) ; Z_CI_WETG(:) = 0.
+ ALLOCATE(Z_RS_WETG(IPACK)) ; Z_RS_WETG(:) = 0.
+ ALLOCATE(Z_CS_WETG(IPACK)) ; Z_CS_WETG(:) = 0.
+ ALLOCATE(Z_RG_WETG(IPACK)) ; Z_RG_WETG(:) = 0.
+ ALLOCATE(Z_CG_WETG(IPACK)) ; Z_CG_WETG(:) = 0.
+ ALLOCATE(Z_RH_WETG(IPACK)) ; Z_RH_WETG(:) = 0.
+ ALLOCATE(Z_TH_DRYG(IPACK)) ; Z_TH_DRYG(:) = 0.
+ ALLOCATE(Z_RC_DRYG(IPACK)) ; Z_RC_DRYG(:) = 0.
+ ALLOCATE(Z_CC_DRYG(IPACK)) ; Z_CC_DRYG(:) = 0.
+ ALLOCATE(Z_RR_DRYG(IPACK)) ; Z_RR_DRYG(:) = 0.
+ ALLOCATE(Z_CR_DRYG(IPACK)) ; Z_CR_DRYG(:) = 0.
+ ALLOCATE(Z_RI_DRYG(IPACK)) ; Z_RI_DRYG(:) = 0.
+ ALLOCATE(Z_CI_DRYG(IPACK)) ; Z_CI_DRYG(:) = 0.
+ ALLOCATE(Z_RS_DRYG(IPACK)) ; Z_RS_DRYG(:) = 0.
+ ALLOCATE(Z_CS_DRYG(IPACK)) ; Z_CS_DRYG(:) = 0.
+ ALLOCATE(Z_RG_DRYG(IPACK)) ; Z_RG_DRYG(:) = 0.
+ ALLOCATE(Z_RI_HMG(IPACK)) ; Z_RI_HMG(:) = 0.
+ ALLOCATE(Z_CI_HMG(IPACK)) ; Z_CI_HMG(:) = 0.
+ ALLOCATE(Z_RG_HMG(IPACK)) ; Z_RG_HMG(:) = 0.
+ ALLOCATE(Z_TH_GMLT(IPACK)) ; Z_TH_GMLT(:) = 0.
+ ALLOCATE(Z_RR_GMLT(IPACK)) ; Z_RR_GMLT(:) = 0.
+ ALLOCATE(Z_CR_GMLT(IPACK)) ; Z_CR_GMLT(:) = 0.
+ ALLOCATE(Z_CG_GMLT(IPACK)) ; Z_CG_GMLT(:) = 0.
+ ALLOCATE(Z_TH_DEPH(IPACK)) ; Z_TH_DEPH(:) = 0.
+ ALLOCATE(Z_RH_DEPH(IPACK)) ; Z_RH_DEPH(:) = 0.
+ ALLOCATE(Z_TH_WETH(IPACK)) ; Z_TH_WETH(:) = 0.
+ ALLOCATE(Z_RC_WETH(IPACK)) ; Z_RC_WETH(:) = 0.
+ ALLOCATE(Z_CC_WETH(IPACK)) ; Z_CC_WETH(:) = 0.
+ ALLOCATE(Z_RR_WETH(IPACK)) ; Z_RR_WETH(:) = 0.
+ ALLOCATE(Z_CR_WETH(IPACK)) ; Z_CR_WETH(:) = 0.
+ ALLOCATE(Z_RI_WETH(IPACK)) ; Z_RI_WETH(:) = 0.
+ ALLOCATE(Z_CI_WETH(IPACK)) ; Z_CI_WETH(:) = 0.
+ ALLOCATE(Z_RS_WETH(IPACK)) ; Z_RS_WETH(:) = 0.
+ ALLOCATE(Z_CS_WETH(IPACK)) ; Z_CS_WETH(:) = 0.
+ ALLOCATE(Z_RG_WETH(IPACK)) ; Z_RG_WETH(:) = 0.
+ ALLOCATE(Z_CG_WETH(IPACK)) ; Z_CG_WETH(:) = 0.
+ ALLOCATE(Z_RH_WETH(IPACK)) ; Z_RH_WETH(:) = 0.
+ ALLOCATE(Z_RG_COHG(IPACK)) ; Z_RG_COHG(:) = 0.
+ ALLOCATE(Z_CG_COHG(IPACK)) ; Z_CG_COHG(:) = 0.
+ ALLOCATE(Z_TH_HMLT(IPACK)) ; Z_TH_HMLT(:) = 0.
+ ALLOCATE(Z_RR_HMLT(IPACK)) ; Z_RR_HMLT(:) = 0.
+ ALLOCATE(Z_CR_HMLT(IPACK)) ; Z_CR_HMLT(:) = 0.
+ ALLOCATE(Z_CH_HMLT(IPACK)) ; Z_CH_HMLT(:) = 0.
- ALLOCATE(Z_RV_CORR2(IPACK)) ; Z_RV_CORR2 = 0.
- ALLOCATE(Z_RC_CORR2(IPACK)) ; Z_RC_CORR2 = 0.
- ALLOCATE(Z_RR_CORR2(IPACK)) ; Z_RR_CORR2 = 0.
- ALLOCATE(Z_RI_CORR2(IPACK)) ; Z_RI_CORR2 = 0.
- ALLOCATE(Z_CC_CORR2(IPACK)) ; Z_CC_CORR2 = 0.
- ALLOCATE(Z_CR_CORR2(IPACK)) ; Z_CR_CORR2 = 0.
- ALLOCATE(Z_CI_CORR2(IPACK)) ; Z_CI_CORR2 = 0.
+ ALLOCATE(Z_RV_CORR2(IPACK)) ; Z_RV_CORR2(:) = 0.
+ ALLOCATE(Z_RC_CORR2(IPACK)) ; Z_RC_CORR2(:) = 0.
+ ALLOCATE(Z_RR_CORR2(IPACK)) ; Z_RR_CORR2(:) = 0.
+ ALLOCATE(Z_RI_CORR2(IPACK)) ; Z_RI_CORR2(:) = 0.
+ ALLOCATE(Z_CC_CORR2(IPACK)) ; Z_CC_CORR2(:) = 0.
+ ALLOCATE(Z_CR_CORR2(IPACK)) ; Z_CR_CORR2(:) = 0.
+ ALLOCATE(Z_CI_CORR2(IPACK)) ; Z_CI_CORR2(:) = 0.
!
!*** 4.1 Tendecies computation
!
@@ -1077,42 +1176,46 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZB_IFNN, &
ZCF1D, ZIF1D, ZPF1D )
- CALL LIMA_TENDENCIES (PTSTEP, LLCOMPUTE1D, &
- ZEXNREF1D, ZRHODREF1D, ZP1D, ZTHT1D, &
- ZRVT1D, ZRCT1D, ZRRT1D, ZRIT1D, ZRST1D, ZRGT1D, ZRHT1D,&
- ZCCT1D, ZCRT1D, ZCIT1D, &
- Z_TH_HONC, Z_RC_HONC, Z_CC_HONC, &
- Z_CC_SELF, &
- Z_RC_AUTO, Z_CC_AUTO, Z_CR_AUTO, &
- Z_RC_ACCR, Z_CC_ACCR, &
- Z_CR_SCBU, &
- Z_TH_EVAP, Z_RR_EVAP, &
- Z_RI_CNVI, Z_CI_CNVI, &
- Z_TH_DEPS, Z_RS_DEPS, &
- Z_TH_DEPI, Z_RI_DEPI, &
- Z_RI_CNVS, Z_CI_CNVS, &
- Z_RI_AGGS, Z_CI_AGGS, &
- Z_TH_DEPG, Z_RG_DEPG, &
- Z_TH_BERFI, Z_RC_BERFI, &
- Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_RG_RIM, &
- Z_RI_HMS, Z_CI_HMS, Z_RS_HMS, &
- Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_RG_ACC, &
- Z_RS_CMEL, &
- Z_TH_CFRZ, Z_RR_CFRZ, Z_CR_CFRZ, Z_RI_CFRZ, Z_CI_CFRZ, &
- Z_TH_WETG, Z_RC_WETG, Z_CC_WETG, Z_RR_WETG, Z_CR_WETG, &
- Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_RG_WETG, Z_RH_WETG, &
- Z_TH_DRYG, Z_RC_DRYG, Z_CC_DRYG, Z_RR_DRYG, Z_CR_DRYG, &
- Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_RG_DRYG, &
- Z_RI_HMG, Z_CI_HMG, Z_RG_HMG, &
- Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, &
-!!! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-!!! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
- ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, &
- ZA_RI, ZA_CI, ZA_RS, ZA_RG, ZA_RH, &
- ZEVAP1D, &
- ZCF1D, ZIF1D, ZPF1D )
+ CALL LIMA_TENDENCIES (PTSTEP, LLCOMPUTE1D, &
+ ZEXNREF1D, ZRHODREF1D, ZP1D, ZTHT1D, &
+ ZRVT1D, ZRCT1D, ZRRT1D, ZRIT1D, ZRST1D, ZRGT1D, ZRHT1D, &
+ ZCCT1D, ZCRT1D, ZCIT1D, ZCST1D, ZCGT1D, ZCHT1D, &
+ Z_TH_HONC, Z_RC_HONC, Z_CC_HONC, &
+ Z_CC_SELF, &
+ Z_RC_AUTO, Z_CC_AUTO, Z_CR_AUTO, &
+ Z_RC_ACCR, Z_CC_ACCR, &
+ Z_CR_SCBU, &
+ Z_TH_EVAP, Z_RR_EVAP, Z_CR_EVAP, &
+ Z_RI_CNVI, Z_CI_CNVI, &
+ Z_TH_DEPS, Z_RS_DEPS, &
+ Z_TH_DEPI, Z_RI_DEPI, &
+ Z_RI_CNVS, Z_CI_CNVS, &
+ Z_CS_SSC, &
+ Z_RI_AGGS, Z_CI_AGGS, &
+ Z_TH_DEPG, Z_RG_DEPG, &
+ Z_TH_BERFI, Z_RC_BERFI, &
+ Z_TH_RIM, Z_RC_RIM, Z_CC_RIM, Z_RS_RIM, Z_CS_RIM, Z_RG_RIM, &
+ Z_RI_HMS, Z_CI_HMS, Z_RS_HMS, &
+ Z_TH_ACC, Z_RR_ACC, Z_CR_ACC, Z_RS_ACC, Z_CS_ACC, Z_RG_ACC, &
+ Z_RS_CMEL, Z_CS_CMEL, &
+ Z_TH_CFRZ, Z_RR_CFRZ, Z_CR_CFRZ, Z_RI_CFRZ, Z_CI_CFRZ, &
+ Z_RI_CIBU, Z_CI_CIBU, &
+ Z_RI_RDSF, Z_CI_RDSF, &
+ Z_TH_WETG, Z_RC_WETG, Z_CC_WETG, Z_RR_WETG, Z_CR_WETG, &
+ Z_RI_WETG, Z_CI_WETG, Z_RS_WETG, Z_CS_WETG, Z_RG_WETG, Z_CG_WETG, Z_RH_WETG, &
+ Z_TH_DRYG, Z_RC_DRYG, Z_CC_DRYG, Z_RR_DRYG, Z_CR_DRYG, &
+ Z_RI_DRYG, Z_CI_DRYG, Z_RS_DRYG, Z_CS_DRYG, Z_RG_DRYG, &
+ Z_RI_HMG, Z_CI_HMG, Z_RG_HMG, &
+ Z_TH_GMLT, Z_RR_GMLT, Z_CR_GMLT, Z_CG_GMLT, &
+ Z_TH_DEPH, Z_RH_DEPH, &
+ Z_TH_WETH, Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, &
+ Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_CS_WETH, Z_RG_WETH, Z_CG_WETH, Z_RH_WETH, &
+ Z_RG_COHG, Z_CG_COHG, &
+ Z_TH_HMLT, Z_RR_HMLT, Z_CR_HMLT, Z_CH_HMLT, &
+ ZA_TH, ZA_RV, ZA_RC, ZA_CC, ZA_RR, ZA_CR, &
+ ZA_RI, ZA_CI, ZA_RS, ZA_CS, ZA_RG, ZA_CG, ZA_RH, ZA_CH, &
+ ZEVAP1D, &
+ ZCF1D, ZIF1D, ZPF1D )
!
!*** 4.2 Integration time
@@ -1260,14 +1363,17 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTHT1D = ZTHT1D + ZA_TH(:) * ZMAXTIME(:) + ZB_TH(:)
ZRVT1D = ZRVT1D + ZA_RV(:) * ZMAXTIME(:) + ZB_RV(:)
ZRCT1D = ZRCT1D + ZA_RC(:) * ZMAXTIME(:) + ZB_RC(:)
- ZCCT1D = ZCCT1D + ZA_CC(:) * ZMAXTIME(:) + ZB_CC(:)
+ IF (NMOM_C.GE.2) ZCCT1D = ZCCT1D + ZA_CC(:) * ZMAXTIME(:) + ZB_CC(:)
ZRRT1D = ZRRT1D + ZA_RR(:) * ZMAXTIME(:) + ZB_RR(:)
- ZCRT1D = ZCRT1D + ZA_CR(:) * ZMAXTIME(:) + ZB_CR(:)
+ IF (NMOM_R.GE.2) ZCRT1D = ZCRT1D + ZA_CR(:) * ZMAXTIME(:) + ZB_CR(:)
ZRIT1D = ZRIT1D + ZA_RI(:) * ZMAXTIME(:) + ZB_RI(:)
- ZCIT1D = ZCIT1D + ZA_CI(:) * ZMAXTIME(:) + ZB_CI(:)
+ IF (NMOM_I.GE.2) ZCIT1D = ZCIT1D + ZA_CI(:) * ZMAXTIME(:) + ZB_CI(:)
ZRST1D = ZRST1D + ZA_RS(:) * ZMAXTIME(:) + ZB_RS(:)
+ IF (NMOM_S.GE.2) ZCST1D = ZCST1D + ZA_CS(:) * ZMAXTIME(:) + ZB_CS(:)
ZRGT1D = ZRGT1D + ZA_RG(:) * ZMAXTIME(:) + ZB_RG(:)
+ IF (NMOM_G.GE.2) ZCGT1D = ZCGT1D + ZA_CG(:) * ZMAXTIME(:) + ZB_CG(:)
ZRHT1D = ZRHT1D + ZA_RH(:) * ZMAXTIME(:) + ZB_RH(:)
+ IF (NMOM_H.GE.2) ZCHT1D = ZCHT1D + ZA_CH(:) * ZMAXTIME(:) + ZB_CH(:)
!
DO II=1,NMOD_IFN
ZIFNN1D(:,II) = ZIFNN1D(:,II) + ZB_IFNN(:,II)
@@ -1301,8 +1407,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZRVT1D = ZRVT1D + ZRIT1D
ZRIT1D = 0.
ZCIT1D = 0.
- END WHERE
-
+ END WHERE
!
!*** 4.5 Next loop
!
@@ -1319,9 +1424,12 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZRST(I1(II),I2(II),I3(II)) = ZRST1D(II)
ZRGT(I1(II),I2(II),I3(II)) = ZRGT1D(II)
ZRHT(I1(II),I2(II),I3(II)) = ZRHT1D(II)
- ZCCT(I1(II),I2(II),I3(II)) = ZCCT1D(II)
- ZCRT(I1(II),I2(II),I3(II)) = ZCRT1D(II)
- ZCIT(I1(II),I2(II),I3(II)) = ZCIT1D(II)
+ IF (NMOM_C.GE.2) ZCCT(I1(II),I2(II),I3(II)) = ZCCT1D(II)
+ IF (NMOM_R.GE.2) ZCRT(I1(II),I2(II),I3(II)) = ZCRT1D(II)
+ IF (NMOM_I.GE.2) ZCIT(I1(II),I2(II),I3(II)) = ZCIT1D(II)
+ IF (NMOM_S.GE.2) ZCST(I1(II),I2(II),I3(II)) = ZCST1D(II)
+ IF (NMOM_G.GE.2) ZCGT(I1(II),I2(II),I3(II)) = ZCGT1D(II)
+ IF (NMOM_H.GE.2) ZCHT(I1(II),I2(II),I3(II)) = ZCHT1D(II)
ZIFNNT(I1(II),I2(II),I3(II),:) = ZIFNN1D(II,:)
PEVAP3D(I1(II),I2(II),I3(II)) = ZEVAP1D(II)
ZTIME(I1(II),I2(II),I3(II)) = ZTIME1D(II)
@@ -1329,12 +1437,14 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
IITER(I1(II),I2(II),I3(II)) = IITER1D(II)
END DO
!
- CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCT, ZRRT, ZCCT, ZCRT, &
- Z_RR_CVRC, Z_CR_CVRC )
- ZRCT(:,:,:) = ZRCT(:,:,:) - Z_RR_CVRC(:,:,:)
- ZRRT(:,:,:) = ZRRT(:,:,:) + Z_RR_CVRC(:,:,:)
- ZCCT(:,:,:) = ZCCT(:,:,:) - Z_CR_CVRC(:,:,:)
- ZCRT(:,:,:) = ZCRT(:,:,:) + Z_CR_CVRC(:,:,:)
+!!$ IF (NMOM_C.GE.2 .AND. NMOM_R.GE.2) THEN
+!!$ CALL LIMA_DROPS_TO_DROPLETS_CONV(PRHODREF, ZRCT, ZRRT, ZCCT, ZCRT, &
+!!$ Z_RR_CVRC, Z_CR_CVRC )
+!!$ ZRCT(:,:,:) = ZRCT(:,:,:) - Z_RR_CVRC(:,:,:)
+!!$ ZRRT(:,:,:) = ZRRT(:,:,:) + Z_RR_CVRC(:,:,:)
+!!$ ZCCT(:,:,:) = ZCCT(:,:,:) - Z_CR_CVRC(:,:,:)
+!!$ ZCRT(:,:,:) = ZCRT(:,:,:) + Z_CR_CVRC(:,:,:)
+!!$ END IF
!
!*** 4.4 Unpacking for budgets
!
@@ -1370,7 +1480,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
!!$ ZTOT_RC_EVAP(I1(II),I2(II),I3(II)) = ZTOT_RC_EVAP(I1(II),I2(II),I3(II)) + Z_RC_EVAP(II) * ZMAXTIME(II)
!!$ ZTOT_CC_EVAP(I1(II),I2(II),I3(II)) = ZTOT_CC_EVAP(I1(II),I2(II),I3(II)) + Z_CC_EVAP(II) * ZMAXTIME(II)
ZTOT_RR_EVAP(I1(II),I2(II),I3(II)) = ZTOT_RR_EVAP(I1(II),I2(II),I3(II)) + Z_RR_EVAP(II) * ZMAXTIME(II)
-!!$ ZTOT_CR_EVAP(I1(II),I2(II),I3(II)) = ZTOT_CR_EVAP(I1(II),I2(II),I3(II)) + Z_CR_EVAP(II) * ZMAXTIME(II)
+ ZTOT_CR_EVAP(I1(II),I2(II),I3(II)) = ZTOT_CR_EVAP(I1(II),I2(II),I3(II)) + Z_CR_EVAP(II) * ZMAXTIME(II)
ZTOT_RI_CNVI(I1(II),I2(II),I3(II)) = ZTOT_RI_CNVI(I1(II),I2(II),I3(II)) + Z_RI_CNVI(II) * ZMAXTIME(II)
ZTOT_CI_CNVI(I1(II),I2(II),I3(II)) = ZTOT_CI_CNVI(I1(II),I2(II),I3(II)) + Z_CI_CNVI(II) * ZMAXTIME(II)
ZTOT_TH_DEPS(I1(II),I2(II),I3(II)) = ZTOT_TH_DEPS(I1(II),I2(II),I3(II)) + Z_TH_DEPS(II) * ZMAXTIME(II)
@@ -1379,6 +1489,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RI_DEPI(I1(II),I2(II),I3(II)) = ZTOT_RI_DEPI(I1(II),I2(II),I3(II)) + Z_RI_DEPI(II) * ZMAXTIME(II)
ZTOT_RI_CNVS(I1(II),I2(II),I3(II)) = ZTOT_RI_CNVS(I1(II),I2(II),I3(II)) + Z_RI_CNVS(II) * ZMAXTIME(II)
ZTOT_CI_CNVS(I1(II),I2(II),I3(II)) = ZTOT_CI_CNVS(I1(II),I2(II),I3(II)) + Z_CI_CNVS(II) * ZMAXTIME(II)
+ ZTOT_CS_SSC(I1(II),I2(II),I3(II)) = ZTOT_CS_SSC(I1(II),I2(II),I3(II)) + Z_CS_SSC(II) * ZMAXTIME(II)
ZTOT_RI_AGGS(I1(II),I2(II),I3(II)) = ZTOT_RI_AGGS(I1(II),I2(II),I3(II)) + Z_RI_AGGS(II) * ZMAXTIME(II)
ZTOT_CI_AGGS(I1(II),I2(II),I3(II)) = ZTOT_CI_AGGS(I1(II),I2(II),I3(II)) + Z_CI_AGGS(II) * ZMAXTIME(II)
ZTOT_TH_DEPG(I1(II),I2(II),I3(II)) = ZTOT_TH_DEPG(I1(II),I2(II),I3(II)) + Z_TH_DEPG(II) * ZMAXTIME(II)
@@ -1389,6 +1500,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RC_RIM(I1(II),I2(II),I3(II)) = ZTOT_RC_RIM(I1(II),I2(II),I3(II)) + Z_RC_RIM(II) * ZMAXTIME(II)
ZTOT_CC_RIM(I1(II),I2(II),I3(II)) = ZTOT_CC_RIM(I1(II),I2(II),I3(II)) + Z_CC_RIM(II) * ZMAXTIME(II)
ZTOT_RS_RIM(I1(II),I2(II),I3(II)) = ZTOT_RS_RIM(I1(II),I2(II),I3(II)) + Z_RS_RIM(II) * ZMAXTIME(II)
+ ZTOT_CS_RIM(I1(II),I2(II),I3(II)) = ZTOT_CS_RIM(I1(II),I2(II),I3(II)) + Z_CS_RIM(II) * ZMAXTIME(II)
ZTOT_RG_RIM(I1(II),I2(II),I3(II)) = ZTOT_RG_RIM(I1(II),I2(II),I3(II)) + Z_RG_RIM(II) * ZMAXTIME(II)
ZTOT_RI_HMS(I1(II),I2(II),I3(II)) = ZTOT_RI_HMS(I1(II),I2(II),I3(II)) + Z_RI_HMS(II) * ZMAXTIME(II)
ZTOT_CI_HMS(I1(II),I2(II),I3(II)) = ZTOT_CI_HMS(I1(II),I2(II),I3(II)) + Z_CI_HMS(II) * ZMAXTIME(II)
@@ -1397,13 +1509,19 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RR_ACC(I1(II),I2(II),I3(II)) = ZTOT_RR_ACC(I1(II),I2(II),I3(II)) + Z_RR_ACC(II) * ZMAXTIME(II)
ZTOT_CR_ACC(I1(II),I2(II),I3(II)) = ZTOT_CR_ACC(I1(II),I2(II),I3(II)) + Z_CR_ACC(II) * ZMAXTIME(II)
ZTOT_RS_ACC(I1(II),I2(II),I3(II)) = ZTOT_RS_ACC(I1(II),I2(II),I3(II)) + Z_RS_ACC(II) * ZMAXTIME(II)
+ ZTOT_CS_ACC(I1(II),I2(II),I3(II)) = ZTOT_CS_ACC(I1(II),I2(II),I3(II)) + Z_CS_ACC(II) * ZMAXTIME(II)
ZTOT_RG_ACC(I1(II),I2(II),I3(II)) = ZTOT_RG_ACC(I1(II),I2(II),I3(II)) + Z_RG_ACC(II) * ZMAXTIME(II)
+ ZTOT_CS_CMEL(I1(II),I2(II),I3(II)) = ZTOT_CS_CMEL(I1(II),I2(II),I3(II)) + Z_CS_CMEL(II) * ZMAXTIME(II)
ZTOT_RS_CMEL(I1(II),I2(II),I3(II)) = ZTOT_RS_CMEL(I1(II),I2(II),I3(II)) + Z_RS_CMEL(II) * ZMAXTIME(II)
ZTOT_TH_CFRZ(I1(II),I2(II),I3(II)) = ZTOT_TH_CFRZ(I1(II),I2(II),I3(II)) + Z_TH_CFRZ(II) * ZMAXTIME(II)
ZTOT_RR_CFRZ(I1(II),I2(II),I3(II)) = ZTOT_RR_CFRZ(I1(II),I2(II),I3(II)) + Z_RR_CFRZ(II) * ZMAXTIME(II)
ZTOT_CR_CFRZ(I1(II),I2(II),I3(II)) = ZTOT_CR_CFRZ(I1(II),I2(II),I3(II)) + Z_CR_CFRZ(II) * ZMAXTIME(II)
ZTOT_RI_CFRZ(I1(II),I2(II),I3(II)) = ZTOT_RI_CFRZ(I1(II),I2(II),I3(II)) + Z_RI_CFRZ(II) * ZMAXTIME(II)
ZTOT_CI_CFRZ(I1(II),I2(II),I3(II)) = ZTOT_CI_CFRZ(I1(II),I2(II),I3(II)) + Z_CI_CFRZ(II) * ZMAXTIME(II)
+ ZTOT_RI_CIBU(I1(II),I2(II),I3(II)) = ZTOT_RI_CIBU(I1(II),I2(II),I3(II)) + Z_RI_CIBU(II) * ZMAXTIME(II)
+ ZTOT_CI_CIBU(I1(II),I2(II),I3(II)) = ZTOT_CI_CIBU(I1(II),I2(II),I3(II)) + Z_CI_CIBU(II) * ZMAXTIME(II)
+ ZTOT_RI_RDSF(I1(II),I2(II),I3(II)) = ZTOT_RI_RDSF(I1(II),I2(II),I3(II)) + Z_RI_RDSF(II) * ZMAXTIME(II)
+ ZTOT_CI_RDSF(I1(II),I2(II),I3(II)) = ZTOT_CI_RDSF(I1(II),I2(II),I3(II)) + Z_CI_RDSF(II) * ZMAXTIME(II)
ZTOT_TH_WETG(I1(II),I2(II),I3(II)) = ZTOT_TH_WETG(I1(II),I2(II),I3(II)) + Z_TH_WETG(II) * ZMAXTIME(II)
ZTOT_RC_WETG(I1(II),I2(II),I3(II)) = ZTOT_RC_WETG(I1(II),I2(II),I3(II)) + Z_RC_WETG(II) * ZMAXTIME(II)
ZTOT_CC_WETG(I1(II),I2(II),I3(II)) = ZTOT_CC_WETG(I1(II),I2(II),I3(II)) + Z_CC_WETG(II) * ZMAXTIME(II)
@@ -1412,7 +1530,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RI_WETG(I1(II),I2(II),I3(II)) = ZTOT_RI_WETG(I1(II),I2(II),I3(II)) + Z_RI_WETG(II) * ZMAXTIME(II)
ZTOT_CI_WETG(I1(II),I2(II),I3(II)) = ZTOT_CI_WETG(I1(II),I2(II),I3(II)) + Z_CI_WETG(II) * ZMAXTIME(II)
ZTOT_RS_WETG(I1(II),I2(II),I3(II)) = ZTOT_RS_WETG(I1(II),I2(II),I3(II)) + Z_RS_WETG(II) * ZMAXTIME(II)
+ ZTOT_CS_WETG(I1(II),I2(II),I3(II)) = ZTOT_CS_WETG(I1(II),I2(II),I3(II)) + Z_CS_WETG(II) * ZMAXTIME(II)
ZTOT_RG_WETG(I1(II),I2(II),I3(II)) = ZTOT_RG_WETG(I1(II),I2(II),I3(II)) + Z_RG_WETG(II) * ZMAXTIME(II)
+ ZTOT_CG_WETG(I1(II),I2(II),I3(II)) = ZTOT_CG_WETG(I1(II),I2(II),I3(II)) + Z_CG_WETG(II) * ZMAXTIME(II)
ZTOT_RH_WETG(I1(II),I2(II),I3(II)) = ZTOT_RH_WETG(I1(II),I2(II),I3(II)) + Z_RH_WETG(II) * ZMAXTIME(II)
ZTOT_TH_DRYG(I1(II),I2(II),I3(II)) = ZTOT_TH_DRYG(I1(II),I2(II),I3(II)) + Z_TH_DRYG(II) * ZMAXTIME(II)
ZTOT_RC_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RC_DRYG(I1(II),I2(II),I3(II)) + Z_RC_DRYG(II) * ZMAXTIME(II)
@@ -1422,6 +1542,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_RI_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RI_DRYG(I1(II),I2(II),I3(II)) + Z_RI_DRYG(II) * ZMAXTIME(II)
ZTOT_CI_DRYG(I1(II),I2(II),I3(II)) = ZTOT_CI_DRYG(I1(II),I2(II),I3(II)) + Z_CI_DRYG(II) * ZMAXTIME(II)
ZTOT_RS_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RS_DRYG(I1(II),I2(II),I3(II)) + Z_RS_DRYG(II) * ZMAXTIME(II)
+ ZTOT_CS_DRYG(I1(II),I2(II),I3(II)) = ZTOT_CS_DRYG(I1(II),I2(II),I3(II)) + Z_CS_DRYG(II) * ZMAXTIME(II)
ZTOT_RG_DRYG(I1(II),I2(II),I3(II)) = ZTOT_RG_DRYG(I1(II),I2(II),I3(II)) + Z_RG_DRYG(II) * ZMAXTIME(II)
ZTOT_RI_HMG(I1(II),I2(II),I3(II)) = ZTOT_RI_HMG(I1(II),I2(II),I3(II)) + Z_RI_HMG(II) * ZMAXTIME(II)
ZTOT_CI_HMG(I1(II),I2(II),I3(II)) = ZTOT_CI_HMG(I1(II),I2(II),I3(II)) + Z_CI_HMG(II) * ZMAXTIME(II)
@@ -1429,18 +1550,27 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
ZTOT_TH_GMLT(I1(II),I2(II),I3(II)) = ZTOT_TH_GMLT(I1(II),I2(II),I3(II)) + Z_TH_GMLT(II) * ZMAXTIME(II)
ZTOT_RR_GMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_GMLT(I1(II),I2(II),I3(II)) + Z_RR_GMLT(II) * ZMAXTIME(II)
ZTOT_CR_GMLT(I1(II),I2(II),I3(II)) = ZTOT_CR_GMLT(I1(II),I2(II),I3(II)) + Z_CR_GMLT(II) * ZMAXTIME(II)
-!!$ ZTOT_RC_WETH(I1(II),I2(II),I3(II)) = ZTOT_RC_WETH(I1(II),I2(II),I3(II)) + Z_RC_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_CC_WETH(I1(II),I2(II),I3(II)) = ZTOT_CC_WETH(I1(II),I2(II),I3(II)) + Z_CC_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RR_WETH(I1(II),I2(II),I3(II)) = ZTOT_RR_WETH(I1(II),I2(II),I3(II)) + Z_RR_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_CR_WETH(I1(II),I2(II),I3(II)) = ZTOT_CR_WETH(I1(II),I2(II),I3(II)) + Z_CR_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RI_WETH(I1(II),I2(II),I3(II)) = ZTOT_RI_WETH(I1(II),I2(II),I3(II)) + Z_RI_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_CI_WETH(I1(II),I2(II),I3(II)) = ZTOT_CI_WETH(I1(II),I2(II),I3(II)) + Z_CI_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RS_WETH(I1(II),I2(II),I3(II)) = ZTOT_RS_WETH(I1(II),I2(II),I3(II)) + Z_RS_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RG_WETH(I1(II),I2(II),I3(II)) = ZTOT_RG_WETH(I1(II),I2(II),I3(II)) + Z_RG_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RH_WETH(I1(II),I2(II),I3(II)) = ZTOT_RH_WETH(I1(II),I2(II),I3(II)) + Z_RH_WETH(II) * ZMAXTIME(II)
-!!$ ZTOT_RG_COHG(I1(II),I2(II),I3(II)) = ZTOT_RG_COHG(I1(II),I2(II),I3(II)) + Z_RG_COHG(II) * ZMAXTIME(II)
-!!$ ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) + Z_RR_HMLT(II) * ZMAXTIME(II)
-!!$ ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) + Z_CR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_CG_GMLT(I1(II),I2(II),I3(II)) = ZTOT_CG_GMLT(I1(II),I2(II),I3(II)) + Z_CG_GMLT(II) * ZMAXTIME(II)
+ ZTOT_TH_DEPH(I1(II),I2(II),I3(II)) = ZTOT_TH_DEPH(I1(II),I2(II),I3(II)) + Z_TH_DEPH(II) * ZMAXTIME(II)
+ ZTOT_RH_DEPH(I1(II),I2(II),I3(II)) = ZTOT_RH_DEPH(I1(II),I2(II),I3(II)) + Z_RH_DEPH(II) * ZMAXTIME(II)
+ ZTOT_TH_WETH(I1(II),I2(II),I3(II)) = ZTOT_TH_WETH(I1(II),I2(II),I3(II)) + Z_TH_WETH(II) * ZMAXTIME(II)
+ ZTOT_RC_WETH(I1(II),I2(II),I3(II)) = ZTOT_RC_WETH(I1(II),I2(II),I3(II)) + Z_RC_WETH(II) * ZMAXTIME(II)
+ ZTOT_CC_WETH(I1(II),I2(II),I3(II)) = ZTOT_CC_WETH(I1(II),I2(II),I3(II)) + Z_CC_WETH(II) * ZMAXTIME(II)
+ ZTOT_RR_WETH(I1(II),I2(II),I3(II)) = ZTOT_RR_WETH(I1(II),I2(II),I3(II)) + Z_RR_WETH(II) * ZMAXTIME(II)
+ ZTOT_CR_WETH(I1(II),I2(II),I3(II)) = ZTOT_CR_WETH(I1(II),I2(II),I3(II)) + Z_CR_WETH(II) * ZMAXTIME(II)
+ ZTOT_RI_WETH(I1(II),I2(II),I3(II)) = ZTOT_RI_WETH(I1(II),I2(II),I3(II)) + Z_RI_WETH(II) * ZMAXTIME(II)
+ ZTOT_CI_WETH(I1(II),I2(II),I3(II)) = ZTOT_CI_WETH(I1(II),I2(II),I3(II)) + Z_CI_WETH(II) * ZMAXTIME(II)
+ ZTOT_RS_WETH(I1(II),I2(II),I3(II)) = ZTOT_RS_WETH(I1(II),I2(II),I3(II)) + Z_RS_WETH(II) * ZMAXTIME(II)
+ ZTOT_CS_WETH(I1(II),I2(II),I3(II)) = ZTOT_CS_WETH(I1(II),I2(II),I3(II)) + Z_CS_WETH(II) * ZMAXTIME(II)
+ ZTOT_RG_WETH(I1(II),I2(II),I3(II)) = ZTOT_RG_WETH(I1(II),I2(II),I3(II)) + Z_RG_WETH(II) * ZMAXTIME(II)
+ ZTOT_CG_WETH(I1(II),I2(II),I3(II)) = ZTOT_CG_WETH(I1(II),I2(II),I3(II)) + Z_CG_WETH(II) * ZMAXTIME(II)
+ ZTOT_RH_WETH(I1(II),I2(II),I3(II)) = ZTOT_RH_WETH(I1(II),I2(II),I3(II)) + Z_RH_WETH(II) * ZMAXTIME(II)
+ ZTOT_RG_COHG(I1(II),I2(II),I3(II)) = ZTOT_RG_COHG(I1(II),I2(II),I3(II)) + Z_RG_COHG(II) * ZMAXTIME(II)
+ ZTOT_CG_COHG(I1(II),I2(II),I3(II)) = ZTOT_CG_COHG(I1(II),I2(II),I3(II)) + Z_CG_COHG(II) * ZMAXTIME(II)
+ ZTOT_TH_HMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) + Z_RR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_RR_HMLT(I1(II),I2(II),I3(II)) + Z_RR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) = ZTOT_CR_HMLT(I1(II),I2(II),I3(II)) + Z_CR_HMLT(II) * ZMAXTIME(II)
+ ZTOT_CH_HMLT(I1(II),I2(II),I3(II)) = ZTOT_CH_HMLT(I1(II),I2(II),I3(II)) + Z_CH_HMLT(II) * ZMAXTIME(II)
!Correction term
ZTOT_RV_CORR2(I1(II),I2(II),I3(II)) = ZTOT_RV_CORR2(I1(II),I2(II),I3(II)) + Z_RV_CORR2(II)
@@ -1473,6 +1603,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(ZCCT1D)
DEALLOCATE(ZCRT1D)
DEALLOCATE(ZCIT1D)
+ DEALLOCATE(ZCST1D)
+ DEALLOCATE(ZCGT1D)
+ DEALLOCATE(ZCHT1D)
DEALLOCATE(ZIFNN1D)
DEALLOCATE(ZEVAP1D)
DEALLOCATE(ZTIME1D)
@@ -1504,6 +1637,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(ZA_CC)
DEALLOCATE(ZA_CR)
DEALLOCATE(ZA_CI)
+ DEALLOCATE(ZA_CS)
+ DEALLOCATE(ZA_CG)
+ DEALLOCATE(ZA_CH)
!
DEALLOCATE(ZB_TH)
DEALLOCATE(ZB_RV)
@@ -1516,6 +1652,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(ZB_CC)
DEALLOCATE(ZB_CR)
DEALLOCATE(ZB_CI)
+ DEALLOCATE(ZB_CS)
+ DEALLOCATE(ZB_CG)
+ DEALLOCATE(ZB_CH)
DEALLOCATE(ZB_IFNN)
!
DEALLOCATE(Z_CR_BRKU)
@@ -1537,6 +1676,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_CR_SCBU)
DEALLOCATE(Z_TH_EVAP)
DEALLOCATE(Z_RR_EVAP)
+ DEALLOCATE(Z_CR_EVAP)
DEALLOCATE(Z_RI_CNVI)
DEALLOCATE(Z_CI_CNVI)
DEALLOCATE(Z_TH_DEPS)
@@ -1545,6 +1685,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RI_DEPI)
DEALLOCATE(Z_RI_CNVS)
DEALLOCATE(Z_CI_CNVS)
+ DEALLOCATE(Z_CS_SSC)
DEALLOCATE(Z_RI_AGGS)
DEALLOCATE(Z_CI_AGGS)
DEALLOCATE(Z_TH_DEPG)
@@ -1555,6 +1696,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RC_RIM)
DEALLOCATE(Z_CC_RIM)
DEALLOCATE(Z_RS_RIM)
+ DEALLOCATE(Z_CS_RIM)
DEALLOCATE(Z_RG_RIM)
DEALLOCATE(Z_RI_HMS)
DEALLOCATE(Z_CI_HMS)
@@ -1563,13 +1705,19 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RR_ACC)
DEALLOCATE(Z_CR_ACC)
DEALLOCATE(Z_RS_ACC)
+ DEALLOCATE(Z_CS_ACC)
DEALLOCATE(Z_RG_ACC)
+ DEALLOCATE(Z_CS_CMEL)
DEALLOCATE(Z_RS_CMEL)
DEALLOCATE(Z_TH_CFRZ)
DEALLOCATE(Z_RR_CFRZ)
DEALLOCATE(Z_CR_CFRZ)
DEALLOCATE(Z_RI_CFRZ)
DEALLOCATE(Z_CI_CFRZ)
+ DEALLOCATE(Z_RI_CIBU)
+ DEALLOCATE(Z_CI_CIBU)
+ DEALLOCATE(Z_RI_RDSF)
+ DEALLOCATE(Z_CI_RDSF)
DEALLOCATE(Z_TH_WETG)
DEALLOCATE(Z_RC_WETG)
DEALLOCATE(Z_CC_WETG)
@@ -1578,7 +1726,9 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RI_WETG)
DEALLOCATE(Z_CI_WETG)
DEALLOCATE(Z_RS_WETG)
+ DEALLOCATE(Z_CS_WETG)
DEALLOCATE(Z_RG_WETG)
+ DEALLOCATE(Z_CG_WETG)
DEALLOCATE(Z_RH_WETG)
DEALLOCATE(Z_TH_DRYG)
DEALLOCATE(Z_RC_DRYG)
@@ -1588,6 +1738,7 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_RI_DRYG)
DEALLOCATE(Z_CI_DRYG)
DEALLOCATE(Z_RS_DRYG)
+ DEALLOCATE(Z_CS_DRYG)
DEALLOCATE(Z_RG_DRYG)
DEALLOCATE(Z_RI_HMG)
DEALLOCATE(Z_CI_HMG)
@@ -1595,6 +1746,27 @@ DO WHILE(ANY(ZTIME(IIB:IIE,IJB:IJE,IKTB:IKTE)<PTSTEP))
DEALLOCATE(Z_TH_GMLT)
DEALLOCATE(Z_RR_GMLT)
DEALLOCATE(Z_CR_GMLT)
+ DEALLOCATE(Z_CG_GMLT)
+ DEALLOCATE(Z_TH_DEPH)
+ DEALLOCATE(Z_RH_DEPH)
+ DEALLOCATE(Z_TH_WETH)
+ DEALLOCATE(Z_RC_WETH)
+ DEALLOCATE(Z_CC_WETH)
+ DEALLOCATE(Z_RR_WETH)
+ DEALLOCATE(Z_CR_WETH)
+ DEALLOCATE(Z_RI_WETH)
+ DEALLOCATE(Z_CI_WETH)
+ DEALLOCATE(Z_RS_WETH)
+ DEALLOCATE(Z_CS_WETH)
+ DEALLOCATE(Z_RG_WETH)
+ DEALLOCATE(Z_CG_WETH)
+ DEALLOCATE(Z_RH_WETH)
+ DEALLOCATE(Z_RG_COHG)
+ DEALLOCATE(Z_CG_COHG)
+ DEALLOCATE(Z_TH_HMLT)
+ DEALLOCATE(Z_RR_HMLT)
+ DEALLOCATE(Z_CR_HMLT)
+ DEALLOCATE(Z_CH_HMLT)
DEALLOCATE(Z_RV_CORR2)
DEALLOCATE(Z_RC_CORR2)
@@ -1624,9 +1796,12 @@ IF ( KRR .GE. 5 ) PRS(:,:,:,5) = ZRST(:,:,:) *ZINV_TSTEP
IF ( KRR .GE. 6 ) PRS(:,:,:,6) = ZRGT(:,:,:) *ZINV_TSTEP
IF ( KRR .GE. 7 ) PRS(:,:,:,7) = ZRHT(:,:,:) *ZINV_TSTEP
!
-IF ( LWARM ) PSVS(:,:,:,NSV_LIMA_NC) = ZCCT(:,:,:) *ZINV_TSTEP
-IF ( LWARM .AND. LRAIN ) PSVS(:,:,:,NSV_LIMA_NR) = ZCRT(:,:,:) *ZINV_TSTEP
-IF ( LCOLD ) PSVS(:,:,:,NSV_LIMA_NI) = ZCIT(:,:,:) *ZINV_TSTEP
+IF ( LWARM .AND. NMOM_C.GE.2 ) PSVS(:,:,:,NSV_LIMA_NC) = ZCCT(:,:,:) *ZINV_TSTEP
+IF ( LWARM .AND. LRAIN .AND. NMOM_R.GE.2 ) PSVS(:,:,:,NSV_LIMA_NR) = ZCRT(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2 ) PSVS(:,:,:,NSV_LIMA_NI) = ZCIT(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_S.GE.2 ) PSVS(:,:,:,NSV_LIMA_NS) = ZCST(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_G.GE.2 ) PSVS(:,:,:,NSV_LIMA_NG) = ZCGT(:,:,:) *ZINV_TSTEP
+IF ( LCOLD .AND. NMOM_H.GE.2 ) PSVS(:,:,:,NSV_LIMA_NH) = ZCHT(:,:,:) *ZINV_TSTEP
!
IF ( NMOD_CCN .GE. 1 ) PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) = ZCCNFT(:,:,:,:) *ZINV_TSTEP
IF ( NMOD_CCN .GE. 1 ) PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1) = ZCCNAT(:,:,:,:) *ZINV_TSTEP
@@ -1658,6 +1833,9 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_TH), 'WETG', ztot_th_wetg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_TH), 'DRYG', ztot_th_dryg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_TH), 'GMLT', ztot_th_gmlt (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_TH), 'DEPH', ztot_th_deph (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_TH), 'WETH', ztot_th_weth (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_TH), 'HMLT', ztot_th_hmlt (:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rv ) then
@@ -1666,6 +1844,7 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPI', -ztot_ri_depi (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPG', -ztot_rg_depg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RV), 'CORR2', ztot_rv_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPH', -ztot_rh_deph (:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rc ) then
@@ -1680,6 +1859,7 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RC), 'DRYG', ztot_rc_dryg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RC), 'CVRC', -ztot_rr_cvrc (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RC), 'CORR2', ztot_rc_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RC), 'WETH', ztot_rc_weth(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rr ) then
@@ -1693,7 +1873,9 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RR), 'DRYG', ztot_rr_dryg(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RR), 'GMLT', ztot_rr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RR), 'CVRC', ztot_rr_cvrc(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(NBUDGET_RR), 'CORR2', ztot_rr_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RR), 'CORR2', ztot_rr_corr2(:, :, :)* zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RR), 'WETH', ztot_rr_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RR), 'HMLT', ztot_rr_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_ri ) then
@@ -1706,10 +1888,13 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RI), 'HMS', ztot_ri_hms (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'CFRZ', ztot_ri_cfrz (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'DEPI', ztot_ri_depi (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RI), 'CIBU', ztot_ri_cibu (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RI), 'RDSF', ztot_ri_rdsf (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'WETG', ztot_ri_wetg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'DRYG', ztot_ri_dryg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'HMG', ztot_ri_hmg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RI), 'CORR2', ztot_ri_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RI), 'WETH', ztot_ri_weth (:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rs ) then
@@ -1721,8 +1906,10 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RS), 'HMS', ztot_rs_hms (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RS), 'ACC', ztot_rs_acc (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RS), 'CMEL', ztot_rs_cmel(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RS), 'CIBU', -ztot_ri_cibu(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RS), 'WETG', ztot_rs_wetg(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RS), 'DRYG', ztot_rs_dryg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RS), 'WETH', ztot_rs_weth(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rg ) then
@@ -1733,66 +1920,123 @@ if ( lbu_enable ) then
call Budget_store_add( tbudgets(NBUDGET_RG), 'CMEL', -ztot_rs_cmel(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RG), 'CFRZ', ( -ztot_rr_cfrz(:, :, :) - ztot_ri_cfrz(:, :, :) ) &
* zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RG), 'RDSF', -ztot_ri_rdsf(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RG), 'WETG', ztot_rg_wetg(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RG), 'DRYG', ztot_rg_dryg(:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RG), 'HMG', ztot_rg_hmg (:, :, :) * zrhodjontstep(:, :, :) )
call Budget_store_add( tbudgets(NBUDGET_RG), 'GMLT', -ztot_rr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RG), 'WETH', ztot_rg_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RG), 'COHG', ztot_rg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_rh ) then
- call Budget_store_add( tbudgets(NBUDGET_RH), 'WETG', ztot_rh_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'WETG', ztot_rh_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'DEPH', ztot_rh_deph(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'WETH', ztot_rh_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'COHG', -ztot_rg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(NBUDGET_RH), 'HMLT', -ztot_rr_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
end if
if ( lbudget_sv ) then
!
! Cloud droplets
!
- idx = NBUDGET_SV1 - 1 + nsv_lima_nc
- call Budget_store_add( tbudgets(idx), 'SELF', ztot_cc_self (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cc_auto (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'ACCR', ztot_cc_accr (:, :, :) * zrhodjontstep(:, :, :) )
- !call Budget_store_add( tbudgets(idx), 'REVA', 0. )
- call Budget_store_add( tbudgets(idx), 'HONC', ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'IMLT', ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'RIM', ztot_cc_rim (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'WETG', ztot_cc_wetg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cc_dryg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CVRC', -ztot_cr_cvrc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cc_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ if (nmom_c.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_nc
+ call Budget_store_add( tbudgets(idx), 'SELF', ztot_cc_self (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cc_auto (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACCR', ztot_cc_accr (:, :, :) * zrhodjontstep(:, :, :) )
+ !call Budget_store_add( tbudgets(idx), 'REVA', 0. )
+ call Budget_store_add( tbudgets(idx), 'HONC', ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'IMLT', ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'RIM', ztot_cc_rim (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cc_wetg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cc_dryg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CVRC', -ztot_cr_cvrc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cc_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cc_weth (:, :, :) * zrhodjontstep(:, :, :) )
+ end if
!
! Rain drops
!
- idx = NBUDGET_SV1 - 1 + nsv_lima_nr
- call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cr_auto(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'SCBU', ztot_cr_scbu(:, :, :) * zrhodjontstep(:, :, :) )
- !call Budget_store_add( tbudgets(idx), 'REVA', 0. )
- call Budget_store_add( tbudgets(idx), 'BRKU', ztot_cr_brku(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'HONR', ztot_cr_honr(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'ACC', ztot_cr_acc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_cr_cfrz(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'WETG', ztot_cr_wetg(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cr_dryg(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'GMLT', ztot_cr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CVRC', ztot_cr_cvrc(:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cr_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ if (nmom_r.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_nr
+ call Budget_store_add( tbudgets(idx), 'AUTO', ztot_cr_auto(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'SCBU', ztot_cr_scbu(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'REVA', ztot_cr_evap(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'BRKU', ztot_cr_brku(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HONR', ztot_cr_honr(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACC', ztot_cr_acc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_cr_cfrz(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cr_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cr_dryg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'GMLT', ztot_cr_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CVRC', ztot_cr_cvrc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CORR2', ztot_cr_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cr_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMLT', ztot_cr_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
!
! Ice crystals
!
- idx = NBUDGET_SV1 - 1 + nsv_lima_ni
- call Budget_store_add( tbudgets(idx), 'HONC', -ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CNVI', ztot_ci_cnvi (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CNVS', ztot_ci_cnvs (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'AGGS', ztot_ci_aggs (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'IMLT', -ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'HMS', ztot_ci_hms (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_ci_cfrz (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'WETG', ztot_ci_wetg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'DRYG', ztot_ci_dryg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'HMG', ztot_ci_hmg (:, :, :) * zrhodjontstep(:, :, :) )
- call Budget_store_add( tbudgets(idx), 'CORR2', ztot_ci_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ if (nmom_i.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_ni
+ call Budget_store_add( tbudgets(idx), 'HONC', -ztot_cc_honc (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CNVI', ztot_ci_cnvi (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CNVS', ztot_ci_cnvs (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'AGGS', ztot_ci_aggs (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'IMLT', -ztot_cc_imlt (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMS', ztot_ci_hms (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CFRZ', ztot_ci_cfrz (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CIBU', ztot_ci_cibu (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'RDSF', ztot_ci_rdsf (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_ci_wetg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_ci_dryg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMG', ztot_ci_hmg (:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CORR2', ztot_ci_corr2(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_ci_weth (:, :, :) * zrhodjontstep(:, :, :) )
+ end if
+ !
+ ! Snow
+ !
+ if (nmom_s.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_ns
+ call Budget_store_add( tbudgets(idx), 'CNVI', -ztot_ci_cnvi(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CNVS', -ztot_ci_cnvs(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'RIM', ztot_cs_rim(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACC', ztot_cs_acc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CMEL', ztot_cs_cmel(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'SSC', ztot_cs_ssc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cs_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'DRYG', ztot_cs_dryg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cs_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
+ !
+ ! Graupel
+ !
+ if (nmom_g.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_ng
+ call Budget_store_add( tbudgets(idx), 'RIM', -ztot_cs_rim(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'ACC', -ztot_cs_acc(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CMEL', -ztot_cs_cmel(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'CFRZ', -ztot_cr_cfrz(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETG', ztot_cg_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'GMLT', ztot_cg_gmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'WETH', ztot_cg_weth(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'COHG', ztot_cg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
+ !
+ ! Hail
+ !
+ if (nmom_h.ge.2) then
+ idx = NBUDGET_SV1 - 1 + nsv_lima_nh
+ call Budget_store_add( tbudgets(idx), 'WETG', -ztot_cg_wetg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'COHG', -ztot_cg_cohg(:, :, :) * zrhodjontstep(:, :, :) )
+ call Budget_store_add( tbudgets(idx), 'HMLT', ztot_ch_hmlt(:, :, :) * zrhodjontstep(:, :, :) )
+ end if
do ii = 1, nmod_ifn
- idx = nsv_lima_ifn_nucl + ii - 1
+ idx = NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + ii - 1
call Budget_store_add( tbudgets(idx), 'IMLT', ztot_ifnn_imlt(:, :, :, ii) * zrhodjontstep(:, :, :) )
end do
end if
diff --git a/src/mesonh/micro/lima_adjust.f90 b/src/mesonh/micro/lima_adjust.f90
index 31ea1fefa..189fe4514 100644
--- a/src/mesonh/micro/lima_adjust.f90
+++ b/src/mesonh/micro/lima_adjust.f90
@@ -9,12 +9,12 @@
!
INTERFACE
!
- SUBROUTINE LIMA_ADJUST(KRR, KMI, TPFILE, &
- OSUBG_COND, PTSTEP, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, &
- PPABST, &
- PRT, PRS, PSVT, PSVS, &
- PTHS, PSRCS, PCLDFR )
+ SUBROUTINE LIMA_ADJUST(KRR, KMI, TPFILE, &
+ OSUBG_COND, PTSTEP, &
+ PRHODREF, PRHODJ, PEXNREF, &
+ PPABST, PPABSTT, &
+ PRT, PRS, PSVT, PSVS, &
+ PTHS, PSRCS, PCLDFR, PICEFR, PRAINFR )
!
USE MODD_IO, ONLY: TFILEDATA
USE MODD_NSV, only: NSV_LIMA_BEG
@@ -30,8 +30,8 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
!
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
!
@@ -47,6 +47,8 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRCS ! Second-order flux
! s'rc'/2Sigma_s2 at time t+1
! multiplied by Lambda_3
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCLDFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PICEFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRAINFR ! Cloud fraction
!
END SUBROUTINE LIMA_ADJUST
!
@@ -54,14 +56,14 @@ END INTERFACE
!
END MODULE MODI_LIMA_ADJUST
!
-! ###########################################################
- SUBROUTINE LIMA_ADJUST(KRR, KMI, TPFILE, &
- OSUBG_COND, PTSTEP, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, &
- PPABST, &
- PRT, PRS, PSVT, PSVS, &
- PTHS, PSRCS, PCLDFR )
-! ###########################################################
+! #############################################################
+ SUBROUTINE LIMA_ADJUST(KRR, KMI, TPFILE, &
+ OSUBG_COND, PTSTEP, &
+ PRHODREF, PRHODJ, PEXNREF, &
+ PPABST, PPABSTT, &
+ PRT, PRS, PSVT, PSVS, &
+ PTHS, PSRCS, PCLDFR, PICEFR, PRAINFR )
+! #############################################################
!
!!**** *MIMA_ADJUST* - compute the fast microphysical sources
!!
@@ -185,8 +187,8 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
!
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
!
@@ -202,6 +204,8 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRCS ! Second-order flux
! s'rc'/2Sigma_s2 at time t+1
! multiplied by Lambda_3
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCLDFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PICEFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRAINFR ! Cloud fraction
!
!
!* 0.2 Declarations of local variables :
@@ -386,9 +390,9 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'CEDS', prcs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
- if ( lcold ) &
+ if ( lcold .and. nmom_i.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CEDS', pcis(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
@@ -436,7 +440,7 @@ END WHERE
!
!* 2.2 estimate the Exner function at t+1
!
-ZEXNS(:,:,:) = ( (2. * PPABST(:,:,:) - PPABSM(:,:,:)) / XP00 ) ** (XRD/XCPD)
+ZEXNS(:,:,:) = ( PPABSTT(:,:,:) / XP00 ) ** (XRD/XCPD)
!
! beginning of the iterative loop
!
@@ -511,7 +515,7 @@ IF( IMICRO >= 1 ) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -661,7 +665,7 @@ IF( IMICRO >= 1 ) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -797,7 +801,7 @@ IF( IMICRO >= 1 ) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -1171,11 +1175,21 @@ END DO
!* 5.2 compute the cloud fraction PCLDFR (binary !!!!!!!)
!
IF ( .NOT. OSUBG_COND ) THEN
- WHERE (PRCS(:,:,:) + PRIS(:,:,:) + PRSS(:,:,:) > 1.E-12 / ZDT)
+ WHERE (PRCS(:,:,:) + PRIS(:,:,:) + PRSS(:,:,:) > 1.E-12 / ZDT)
PCLDFR(:,:,:) = 1.
ELSEWHERE
PCLDFR(:,:,:) = 0.
ENDWHERE
+ WHERE (PRIS(:,:,:) > 1.E-12 / ZDT)
+ PICEFR(:,:,:) = 1.
+ ELSEWHERE
+ PICEFR(:,:,:) = 0.
+ ENDWHERE
+ WHERE (PRRS(:,:,:)+PRSS(:,:,:)+PRGS(:,:,:) > 1.E-12 / ZDT)
+ PRAINFR(:,:,:) = 1.
+ ELSEWHERE
+ PRAINFR(:,:,:) = 0.
+ ENDWHERE
END IF
!
IF ( SIZE(PSRCS,3) /= 0 ) THEN
@@ -1239,7 +1253,7 @@ END IF
IF ( tpfile%lopened ) THEN
ZT(:,:,:) = ( PTHS(:,:,:) * ZDT ) * ZEXNS(:,:,:)
ZW(:,:,:) = EXP( XALPI - XBETAI/ZT(:,:,:) - XGAMI*ALOG(ZT(:,:,:) ) )
- ZW1(:,:,:)= 2.0*PPABST(:,:,:)-PPABSM(:,:,:)
+ ZW1(:,:,:)= PPABSTT(:,:,:)
ZW(:,:,:) = PRVT(:,:,:)*( ZW1(:,:,:)-ZW(:,:,:) ) / ( (XMV/XMD) * ZW(:,:,:) ) - 1.0
TZFIELD%CMNHNAME = 'SSI'
@@ -1265,9 +1279,9 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'CEDS', prcs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
- if ( lcold ) &
+ if ( lcold .and. nmom_i.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CEDS', pcis(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
diff --git a/src/mesonh/micro/lima_adjust_split.f90 b/src/mesonh/micro/lima_adjust_split.f90
index bee33121d..860b297a8 100644
--- a/src/mesonh/micro/lima_adjust_split.f90
+++ b/src/mesonh/micro/lima_adjust_split.f90
@@ -11,10 +11,10 @@ INTERFACE
!
SUBROUTINE LIMA_ADJUST_SPLIT(D, KRR, KMI, TPFILE, HCONDENS, HLAMBDA3, &
OSUBG_COND, OSIGMAS, PTSTEP, PSIGQSAT, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, PSIGS, PMFCONV, &
- PPABST, PZZ, PDTHRAD, PW_NU, &
+ PRHODREF, PRHODJ, PEXNREF, PSIGS, PMFCONV, &
+ PPABST, PPABSTT, PZZ, PDTHRAD, PW_NU, &
PRT, PRS, PSVT, PSVS, &
- PTHS, PSRCS, PCLDFR, PRC_MF, PCF_MF )
+ PTHS, PSRCS, PCLDFR, PICEFR, PRC_MF, PRI_MF, PCF_MF)
!
USE MODD_IO, ONLY: TFILEDATA
USE MODD_NSV, only: NSV_LIMA_BEG
@@ -38,10 +38,10 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PMFCONV !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PZZ !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTHRAD ! Radiative temperature tendency
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
@@ -60,7 +60,9 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRCS ! Second-order flux
! s'rc'/2Sigma_s2 at time t+1
! multiplied by Lambda_3
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCLDFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PICEFR ! Cloud fraction
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRC_MF! Convective Mass Flux liquid mixing ratio
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PRI_MF! Convective Mass Flux ice mixing ratio
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCF_MF! Convective Mass Flux Cloud fraction
!
END SUBROUTINE LIMA_ADJUST_SPLIT
@@ -72,10 +74,10 @@ END MODULE MODI_LIMA_ADJUST_SPLIT
! ###########################################################################
SUBROUTINE LIMA_ADJUST_SPLIT(D, KRR, KMI, TPFILE, HCONDENS, HLAMBDA3, &
OSUBG_COND, OSIGMAS, PTSTEP, PSIGQSAT, &
- PRHODREF, PRHODJ, PEXNREF, PPABSM, PSIGS, PMFCONV, &
- PPABST, PZZ, PDTHRAD, PW_NU, &
+ PRHODREF, PRHODJ, PEXNREF, PSIGS, PMFCONV, &
+ PPABST, PPABSTT, PZZ, PDTHRAD, PW_NU, &
PRT, PRS, PSVT, PSVS, &
- PTHS, PSRCS, PCLDFR, PRC_MF, PCF_MF )
+ PTHS, PSRCS, PCLDFR, PICEFR, PRC_MF, PRI_MF, PCF_MF)
! ###########################################################################
!
!!**** *MIMA_ADJUST* - compute the fast microphysical sources
@@ -144,6 +146,7 @@ END MODULE MODI_LIMA_ADJUST_SPLIT
!! -------------
!! Original 06/2021 forked from lima_adjust.f90
! P. Wautelet 23/07/2021: replace non-standard FLOAT function by REAL function
+! B. Vie 03/2022: Add option for 1-moment pristine ice
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -202,10 +205,10 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Dry density of the
! reference state
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PSIGS ! Sigma_s at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PMFCONV !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PZZ !
REAL, DIMENSION(:,:,:), INTENT(IN) :: PDTHRAD ! Radiative temperature tendency
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
@@ -224,7 +227,9 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRCS ! Second-order flux
! s'rc'/2Sigma_s2 at time t+1
! multiplied by Lambda_3
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCLDFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PICEFR ! Cloud fraction
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRC_MF! Convective Mass Flux liquid mixing ratio
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PRI_MF! Convective Mass Flux ice mixing ratio
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCF_MF! Convective Mass Flux Cloud fraction
!
!
@@ -279,24 +284,13 @@ REAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) &
ZMASK,&
ZRV, ZRV2,ZRV_IN, &
ZRC, ZRC2,ZRC_IN, &
- ZRI, ZRI_IN, &
- ZSIGS, &
- ZW_MF
+ ZRI, ZRI_IN, &
+ Z_SIGS, Z_SRCS, &
+ ZW_MF, &
+ ZCND, ZS, ZVEC1
REAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2)) :: ZSIGQSAT2D, ZDUM
-LOGICAL, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) &
- :: GMICRO ! Test where to compute cond/dep proc.
-INTEGER :: IMICRO
-REAL, DIMENSION(:), ALLOCATABLE &
- :: ZRVT, ZRCT, ZRIT, ZRVS, ZRCS, ZRIS, ZTHS, &
- ZCCT, ZCIT, ZCCS, ZCIS, &
- ZRHODREF, ZZT, ZPRES, ZEXNREF, ZZCPH, &
- ZZW, ZLVFACT, ZLSFACT, &
- ZRVSATW, ZRVSATI, ZRVSATW_PRIME, ZRVSATI_PRIME, &
- ZAW, ZAI, ZCJ, ZKA, ZDV, ZITW, ZITI, ZAWW, ZAIW, &
- ZAWI, ZAII, ZFACT, ZDELTW, &
- ZDELTI, ZDELT1, ZDELT2, ZCND, ZDEP, ZS, ZVEC1, ZZW2
-!
-INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1
+!
+INTEGER, DIMENSION(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) :: IVEC1
!
INTEGER :: IRESP ! Return code of FM routines
INTEGER :: IIU,IJU,IKU! dimensions of dummy arrays
@@ -312,12 +306,11 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZRTMIN
REAL, DIMENSION(:), ALLOCATABLE :: ZCTMIN
!
integer :: idx
-INTEGER , DIMENSION(SIZE(GMICRO)) :: I1,I2,I3 ! Used to replace the COUNT
-INTEGER :: JL ! and PACK intrinsics
+integer :: JI, JJ, JK, jl
INTEGER :: JMOD, JMOD_IFN, JMOD_IMM
!
-INTEGER , DIMENSION(3) :: BV
TYPE(TFIELDDATA) :: TZFIELD
+LOGICAL :: G_SIGMAS, GUSERI
!
!-------------------------------------------------------------------------------
!
@@ -388,11 +381,11 @@ PCIT(:,:,:) = 0.
PCCS(:,:,:) = 0.
! PCIS(:,:,:) = 0.
!
-IF ( LWARM ) PCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)*PTSTEP
-IF ( LCOLD ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
+IF ( LWARM .AND. NMOM_C.GE.2 ) PCCT(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)*PTSTEP
+IF ( LCOLD .AND. NMOM_I.GE.2 ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
!
-IF ( LWARM ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
-! IF ( LCOLD ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( LWARM .AND. NMOM_C.GE.2 ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
+! IF ( LCOLD .AND. NMOM_I.GE.2 ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
!
IF ( LSCAV .AND. LAERO_MASS ) PMAS(:,:,:) = PSVS(:,:,:,NSV_LIMA_SCAVMASS)
!
@@ -427,7 +420,7 @@ if ( nbumod == kmi .and. lbu_enable ) then
!Remark: PRIS is not modified but source term kept for better coherence with lima_adjust and lima_notadjust
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
@@ -476,7 +469,7 @@ END WHERE
!
!* 2.2 estimate the Exner function at t+1
!
-ZEXNS(:,:,:) = ( (2. * PPABST(:,:,:) - PPABSM(:,:,:)) / XP00 ) ** (XRD/XCPD)
+ZEXNS(:,:,:) = ( PPABSTT(:,:,:) / XP00 ) ** (XRD/XCPD)
!
! beginning of the iterative loop
!
@@ -505,240 +498,190 @@ DO JITER =1,ITERMAX
!* 3. FIRST ORDER SUBGRID CONDENSATION SCHEME
! ---------------------------------------
!
- IF ( OSUBG_COND ) THEN
- !
- ZRV=PRVS*PTSTEP
- ZRC=PRCS*PTSTEP
- ZRV_IN=ZRV
- ZRC_IN=ZRC
- ZRI_IN=0.
- ZRV2=PRVT
- ZRC2=PRCT
+ ZRV=PRVS*PTSTEP
+ ZRC=PRCS*PTSTEP
+ ZRV2=PRVT
+ ZRC2=PRCT
+ ZRV_IN=ZRV
+ ZRC_IN=ZRC
+ ZRI_IN=0.
+ IF (NMOM_I.EQ.1) THEN
+ ZRI=PRIS*PTSTEP
+ GUSERI=.TRUE.
+ ELSE
ZRI=0.
- ZSIGS=PSIGS
+ GUSERI=.FALSE.
+ END IF
+ IF (OSUBG_COND) THEN
+ Z_SIGS=PSIGS
+ G_SIGMAS=OSIGMAS
ZSIGQSAT2D(:,:)=PSIGQSAT
- CALL CONDENSATION(D, CST, RAIN_ICE_PARAM, NEB, TURBN, &
- &'S', HCONDENS, HLAMBDA3, &
- &PPABST, PZZ, PRHODREF, ZT, ZRV_IN, ZRV, ZRC_IN, ZRC, ZRI_IN, ZRI, &
- &PRRS*PTSTEP, PRSS*PTSTEP, PRGS*PTSTEP, ZSIGS, .FALSE., PMFCONV, PCLDFR, PSRCS, .FALSE., &
- &OSIGMAS, .FALSE., .FALSE., &
- &ZDUM, ZDUM, ZDUM, ZDUM, ZDUM, ZSIGQSAT2D, &
- &ZLV, ZLS, ZCPH)
- PCLDFR(:,:,:) = MIN(PCLDFR(:,:,:) + PCF_MF(:,:,:) , 1.)
- ZRV(:,:,:) = ZRV(:,:,:) - MAX(MIN(PRC_MF(:,:,:), ZRV(:,:,:)),0.)
- ZRC(:,:,:) = ZRC(:,:,:) + MAX(MIN(PRC_MF(:,:,:), ZRV(:,:,:)),0.)
+ ELSE
+ Z_SIGS=0.
+ G_SIGMAS=.TRUE.
+ ZSIGQSAT2D(:,:)=0.
+ END IF
+
+ IF (LADJ) THEN
+ CALL CONDENSATION(D, CST, RAIN_ICE_PARAM, NEB, TURBN, &
+ 'S', HCONDENS, HLAMBDA3, &
+ PPABST, PZZ, PRHODREF, ZT, ZRV_IN, ZRV, ZRC_IN, ZRC, ZRI_IN, ZRI, &
+ PRSS*PTSTEP, PRGS*PTSTEP, &
+ Z_SIGS, .FALSE., PMFCONV, PCLDFR, Z_SRCS, GUSERI, G_SIGMAS, .FALSE., .FALSE.,&
+ ZDUM, ZDUM, ZDUM, ZDUM, ZDUM, &
+ ZSIGQSAT2D, PLV=ZLV, PLS=ZLS, PCPH=ZCPH )
+ END IF
+ IF (OSUBG_COND .AND. NMOM_C.GE.2 .AND. LACTI) THEN
+ PSRCS=Z_SRCS
ZW_MF=0.
- CALL LIMA_CCN_ACTIVATION (TPFILE, &
+ CALL LIMA_CCN_ACTIVATION (TPFILE, &
PRHODREF, PEXNREF, PPABST, ZT2, PDTHRAD, PW_NU+ZW_MF, &
- PTHT, ZRV2, ZRC2, PCCT, PRRT, PNFT, PNAT, &
- PCLDFR )
+ PTHT, ZRV2, ZRC2, PCCT, PRRT, PNFT, PNAT, &
+ PCLDFR )
+ END IF
+
+END DO
!
- ELSE
+!* 5.1 compute the sources
!
-!-------------------------------------------------------------------------------
+IF (LADJ) THEN
+ ! Rc - Rc*
+ ZW1(:,:,:) = (ZRC(:,:,:) - PRCS(:,:,:)*PTSTEP) / PTSTEP ! Pcon = ----------
+ ! 2 Delta t
+ WHERE( ZW1(:,:,:) < 0.0 )
+ ZW1(:,:,:) = MAX ( ZW1(:,:,:), -PRCS(:,:,:) )
+ ELSEWHERE
+ ZW1(:,:,:) = MIN ( ZW1(:,:,:), PRVS(:,:,:) )
+ END WHERE
+ PRVS(:,:,:) = PRVS(:,:,:) - ZW1(:,:,:)
+ PRCS(:,:,:) = PRCS(:,:,:) + ZW1(:,:,:)
+ PTHS(:,:,:) = PTHS(:,:,:) + &
+ ZW1(:,:,:) * ZLV(:,:,:) / (ZCPH(:,:,:) * PEXNREF(:,:,:))
+ELSE
+ DO JI=1,SIZE(PRCS,1)
+ DO JJ=1,SIZE(PRCS,2)
+ DO JK=1,SIZE(PRCS,3)
+ IF (PRCS(JI,JJ,JK).GE.XRTMIN(2) .AND. PCCS(JI,JJ,JK).GE.XCTMIN(2)) THEN
+ ZVEC1(JI,JJ,JK) = MAX( 1.0001, MIN( FLOAT(NAHEN)-0.0001, XAHENINTP1 * ZT(JI,JJ,JK) + XAHENINTP2 ) )
+ IVEC1(JI,JJ,JK) = INT( ZVEC1(JI,JJ,JK) )
+ ZVEC1(JI,JJ,JK) = ZVEC1(JI,JJ,JK) - FLOAT( IVEC1(JI,JJ,JK) )
+ ZW(JI,JJ,JK)=EXP( XALPW - XBETAW/ZT(JI,JJ,JK) - XGAMW*ALOG(ZT(JI,JJ,JK) ) ) ! es_w
+ ZW(JI,JJ,JK)=ZEPS*ZW(JI,JJ,JK) / ( PPABST(JI,JJ,JK)-ZW(JI,JJ,JK) )
+ ZS(JI,JJ,JK) = PRVS(JI,JJ,JK)*PTSTEP / ZW(JI,JJ,JK) - 1.
+ ZW(JI,JJ,JK) = PCCS(JI,JJ,JK)*PTSTEP/(XLBC*PCCS(JI,JJ,JK)/PRCS(JI,JJ,JK))**XLBEXC
+ ZW2(JI,JJ,JK) = XAHENG3(IVEC1(JI,JJ,JK)+1)*ZVEC1(JI,JJ,JK)-XAHENG3(IVEC1(JI,JJ,JK))*(ZVEC1(JI,JJ,JK)-1.)
+ ZCND(JI,JJ,JK) = 2.*3.14*1000.*ZW2(JI,JJ,JK)*ZS(JI,JJ,JK)*ZW(JI,JJ,JK)
+ IF(ZCND(JI,JJ,JK).LE.0.) THEN
+ ZCND(JI,JJ,JK) = MAX ( ZCND(JI,JJ,JK), -PRCS(JI,JJ,JK) )
+ ELSE
+ ZCND(JI,JJ,JK) = MIN ( ZCND(JI,JJ,JK), PRVS(JI,JJ,JK) )
+ END IF
+ PRVS(JI,JJ,JK) = PRVS(JI,JJ,JK) - ZCND(JI,JJ,JK)
+ PRCS(JI,JJ,JK) = PRCS(JI,JJ,JK) + ZCND(JI,JJ,JK)
+ PTHS(JI,JJ,JK) = PTHS(JI,JJ,JK) + ZCND(JI,JJ,JK) * ZLV(JI,JJ,JK) / (ZCPH(JI,JJ,JK) * PEXNREF(JI,JJ,JK))
+ END IF
+ END DO
+ END DO
+ END DO
+END IF
!
+IF (NMOM_I.EQ.1) THEN
+ ZW2(:,:,:) = (ZRI(:,:,:) - PRIS(:,:,:)*PTSTEP) / PTSTEP ! idem ZW1 but for Ri
!
+ WHERE( ZW2(:,:,:) < 0.0 )
+ ZW2(:,:,:) = MAX ( ZW2(:,:,:), -PRIS(:,:,:) )
+ ELSEWHERE
+ ZW2(:,:,:) = MIN ( ZW2(:,:,:), PRVS(:,:,:) )
+ END WHERE
+ PRVS(:,:,:) = PRVS(:,:,:) - ZW2(:,:,:)
+ PRIS(:,:,:) = PRIS(:,:,:) + ZW2(:,:,:)
+ PTHS(:,:,:) = PTHS(:,:,:) + &
+ ZW2(:,:,:) * ZLS(:,:,:) / (ZCPH(:,:,:) * PEXNREF(:,:,:))
+END IF
!
-!* FULLY IMPLICIT CONDENSATION SCHEME
-! ---------------------------------
-!
-!* select cases where r_c>0
-!
+!* 5.2 compute the cloud fraction PCLDFR
!
- GMICRO(:,:,:) = .FALSE.
- GMICRO(IIB:IIE,IJB:IJE,IKB:IKE) =( PRCS(IIB:IIE,IJB:IJE,IKB:IKE)>0. .AND. &
- PCCS(IIB:IIE,IJB:IJE,IKB:IKE)>0. )
- IMICRO = COUNTJV( GMICRO(:,:,:),I1(:),I2(:),I3(:))
- IF( IMICRO >= 1 ) THEN
- ALLOCATE(ZRVT(IMICRO))
- ALLOCATE(ZRCT(IMICRO))
-!
- ALLOCATE(ZRVS(IMICRO))
- ALLOCATE(ZRCS(IMICRO))
- ALLOCATE(ZCCS(IMICRO))
- ALLOCATE(ZTHS(IMICRO))
-!
- ALLOCATE(ZRHODREF(IMICRO))
- ALLOCATE(ZZT(IMICRO))
- ALLOCATE(ZPRES(IMICRO))
- ALLOCATE(ZEXNREF(IMICRO))
- ALLOCATE(ZZCPH(IMICRO))
- DO JL=1,IMICRO
- ZRVT(JL) = PRVT(I1(JL),I2(JL),I3(JL))
- ZRCT(JL) = PRCT(I1(JL),I2(JL),I3(JL))
- !
- ZRVS(JL) = PRVS(I1(JL),I2(JL),I3(JL))
- ZRCS(JL) = PRCS(I1(JL),I2(JL),I3(JL))
- ZCCS(JL) = PCCS(I1(JL),I2(JL),I3(JL))
- ZTHS(JL) = PTHS(I1(JL),I2(JL),I3(JL))
- !
- ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
- ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
- ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
- ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
- ENDDO
- ALLOCATE(ZZW(IMICRO))
- ALLOCATE(ZLVFACT(IMICRO))
- ALLOCATE(ZRVSATW(IMICRO))
- ALLOCATE(ZCND(IMICRO))
- ZLVFACT(:) = (XLVTT+(XCPV-XCL)*(ZZT(:)-XTT))/ZZCPH(:) ! L_v/C_ph
- ZZW(:) = EXP( XALPW - XBETAW/ZZT(:) - XGAMW*ALOG(ZZT(:) ) ) ! es_w
- ZRVSATW(:) = ZEPS*ZZW(:) / ( ZPRES(:)-ZZW(:) ) ! r_sw
-
- IF (LADJ) THEN
- ALLOCATE(ZRVSATW_PRIME(IMICRO))
- ALLOCATE(ZAWW(IMICRO))
- ALLOCATE(ZDELT1(IMICRO))
- ALLOCATE(ZDELT2(IMICRO))
- ZRVSATW_PRIME(:) = (( XBETAW/ZZT(:) - XGAMW ) / ZZT(:)) & ! r'_sw
- * ZRVSATW(:) * ( 1. + ZRVSATW(:)/ZEPS )
- ZAWW(:) = 1.0 + ZRVSATW_PRIME(:)*ZLVFACT(:)
- ZDELT2(:) = (ZRVSATW_PRIME(:)*ZLVFACT(:)/ZAWW(:)) * &
- ( ((-2.*XBETAW+XGAMW*ZZT(:))/(XBETAW-XGAMW*ZZT(:)) &
- + (XBETAW/ZZT(:)-XGAMW)*(1.0+2.0*ZRVSATW(:)/ZEPS))/ZZT(:) )
- ZDELT1(:) = (ZLVFACT(:)/ZAWW(:)) * ( ZRVSATW(:) - ZRVS(:)*ZDT )
- ZCND(:) = - ZDELT1(:)*( 1.0 + 0.5*ZDELT1(:)*ZDELT2(:) ) / (ZLVFACT(:)*ZDT)
- DEALLOCATE(ZRVSATW_PRIME)
- DEALLOCATE(ZAWW)
- DEALLOCATE(ZDELT1)
- DEALLOCATE(ZDELT2)
- ELSE
- ALLOCATE(ZS(IMICRO))
- ALLOCATE(ZZW2(IMICRO))
- ALLOCATE(ZVEC1(IMICRO))
- ALLOCATE(IVEC1(IMICRO))
- ZVEC1(:) = MAX( 1.0001, MIN( REAL(NAHEN)-0.0001, XAHENINTP1 * ZZT(:) + XAHENINTP2 ) )
- IVEC1(:) = INT( ZVEC1(:) )
- ZVEC1(:) = ZVEC1(:) - REAL( IVEC1(:) )
- ZS(:) = ZRVS(:)*PTSTEP / ZRVSATW(:) - 1.
- ZZW(:) = ZCCS(:)*PTSTEP/(XLBC*ZCCS(:)/ZRCS(:))**XLBEXC
- ZZW2(:) = XAHENG3(IVEC1(:)+1)*ZVEC1(:)-XAHENG3(IVEC1(:))*(ZVEC1(:)-1.)
- ZCND(:) = 2.*3.14*1000.*ZZW2(:)*ZS(:)*ZZW(:)
- DEALLOCATE(ZS)
- DEALLOCATE(ZZW2)
- DEALLOCATE(ZVEC1)
- DEALLOCATE(IVEC1)
- END IF
-!
-!
-! Integration
-!
- WHERE( ZCND(:) < 0.0 )
- ZCND(:) = MAX ( ZCND(:), -ZRCS(:) )
- ELSEWHERE
- ZCND(:) = MIN ( ZCND(:), ZRVS(:) )
- END WHERE
- ZRVS(:) = ZRVS(:) - ZCND(:)
- ZRCS(:) = ZRCS(:) + ZCND(:)
- ZTHS(:) = ZTHS(:) + ZCND(:) * ZLVFACT(:) / ZEXNREF(:)
-!
- ZW(:,:,:) = PRVS(:,:,:)
- PRVS(:,:,:) = UNPACK( ZRVS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PRCS(:,:,:)
- PRCS(:,:,:) = UNPACK( ZRCS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
- ZW(:,:,:) = PTHS(:,:,:)
- PTHS(:,:,:) = UNPACK( ZTHS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
-!
- DEALLOCATE(ZRVT)
- DEALLOCATE(ZRCT)
- DEALLOCATE(ZRVS)
- DEALLOCATE(ZRCS)
- DEALLOCATE(ZTHS)
- DEALLOCATE(ZRHODREF)
- DEALLOCATE(ZZT)
- DEALLOCATE(ZPRES)
- DEALLOCATE(ZEXNREF)
- DEALLOCATE(ZZCPH)
- DEALLOCATE(ZZW)
- DEALLOCATE(ZLVFACT)
- DEALLOCATE(ZRVSATW)
- DEALLOCATE(ZCND)
- END IF ! IMICRO
-!
- END IF ! end of adjustment procedure (test on OSUBG_COND)
+IF ( .NOT. OSUBG_COND ) THEN
+ WHERE (PRCS(:,:,:) + PRIS(:,:,:) > 1.E-12 / PTSTEP)
+ PCLDFR(:,:,:) = 1.
+ ELSEWHERE
+ PCLDFR(:,:,:) = 0.
+ ENDWHERE
+ IF ( SIZE(PSRCS,3) /= 0 ) THEN
+ WHERE (PRCS(:,:,:) + PRIS(:,:,:) > 1.E-12 / ZDT)
+ PSRCS(:,:,:) = 1.
+ ELSEWHERE
+ PSRCS(:,:,:) = 0.
+ ENDWHERE
+ END IF
+ELSE
+! We limit PRC_MF+PRI_MF to PRVS*PTSTEP to avoid negative humidity
+ ZW1(:,:,:)=PRC_MF(:,:,:)/PTSTEP
+ IF (NMOM_I.EQ.1) THEN
+ ZW2(:,:,:)=PRI_MF(:,:,:)/PTSTEP
+ ELSE
+ ZW2(:,:,:)=0.
+ END IF
+ WHERE(ZW1(:,:,:)+ZW2(:,:,:)>PRVS(:,:,:))
+ ZW1(:,:,:)=ZW1(:,:,:)*PRVS(:,:,:)/(ZW1(:,:,:)+ZW2(:,:,:))
+ ZW2(:,:,:)=PRVS(:,:,:)-ZW1(:,:,:)
+ ENDWHERE
+! Compute CF and update rc, ri from MF scheme
+ PRVS(:,:,:) = PRVS(:,:,:) - ZW1(:,:,:) -ZW2(:,:,:)
+ PRCS(:,:,:) = PRCS(:,:,:) + ZW1(:,:,:)
+ PRIS(:,:,:) = PRIS(:,:,:) + ZW2(:,:,:)
+ PCCS(:,:,:) = PCCT(:,:,:) / PTSTEP
+ PNFS(:,:,:,:) = PNFT(:,:,:,:) / PTSTEP
+ PNAS(:,:,:,:) = PNAT(:,:,:,:) / PTSTEP
+ PTHS(:,:,:) = PTHS(:,:,:) + &
+ (ZW1(:,:,:) * ZLV(:,:,:) + ZW2 * ZLS(:,:,:)) / ZCPH(:,:,:) &
+ / PEXNREF(:,:,:)
+END IF
!
! Remove cloud droplets if there are few
-
- ZMASK(:,:,:) = 0.0
- ZW(:,:,:) = 0.
- WHERE (PRCS(:,:,:) <= ZRTMIN(2) .OR. PCCS(:,:,:) <= ZCTMIN(2))
+!
+ZMASK(:,:,:) = 0.0
+ZW(:,:,:) = 0.
+IF (NMOM_C .GE. 2) THEN
+ WHERE (PRCS(:,:,:) <= ZRTMIN(2) .OR. PCCS(:,:,:) <=0.)
PRVS(:,:,:) = PRVS(:,:,:) + PRCS(:,:,:)
PTHS(:,:,:) = PTHS(:,:,:) - PRCS(:,:,:)*ZLV(:,:,:)/(ZCPH(:,:,:)*ZEXNS(:,:,:))
PRCS(:,:,:) = 0.0
ZW(:,:,:) = MAX(PCCS(:,:,:),0.)
PCCS(:,:,:) = 0.0
END WHERE
+END IF
!
- ZW1(:,:,:) = 0.
- IF (LWARM .AND. NMOD_CCN.GE.1) ZW1(:,:,:) = SUM(PNAS,DIM=4)
- ZW (:,:,:) = MIN( ZW(:,:,:), ZW1(:,:,:) )
- ZW2(:,:,:) = 0.
- WHERE ( ZW(:,:,:) > 0. )
- ZMASK(:,:,:) = 1.0
- ZW2(:,:,:) = ZW(:,:,:) / ZW1(:,:,:)
- ENDWHERE
-!
- IF (LWARM .AND. NMOD_CCN.GE.1) THEN
- DO JMOD = 1, NMOD_CCN
- PNFS(:,:,:,JMOD) = PNFS(:,:,:,JMOD) + &
- ZMASK(:,:,:) * PNAS(:,:,:,JMOD) * ZW2(:,:,:)
- PNAS(:,:,:,JMOD) = PNAS(:,:,:,JMOD) - &
- ZMASK(:,:,:) * PNAS(:,:,:,JMOD) * ZW2(:,:,:)
- PNAS(:,:,:,JMOD) = MAX( 0.0 , PNAS(:,:,:,JMOD) )
- ENDDO
- END IF
-!
- IF (LSCAV .AND. LAERO_MASS) PMAS(:,:,:) = PMAS(:,:,:) * (1-ZMASK(:,:,:))
-!
-!
-END DO ! end of the iterative loop
+ZW1(:,:,:) = 0.
+IF (LWARM .AND. NMOD_CCN.GE.1) ZW1(:,:,:) = SUM(PNAS,DIM=4)
+ZW (:,:,:) = MIN( ZW(:,:,:), ZW1(:,:,:) )
+ZW2(:,:,:) = 0.
+WHERE ( ZW(:,:,:) > 0. )
+ ZMASK(:,:,:) = 1.0
+ ZW2(:,:,:) = ZW(:,:,:) / ZW1(:,:,:)
+ENDWHERE
+!
+IF (LWARM .AND. NMOD_CCN.GE.1) THEN
+ DO JMOD = 1, NMOD_CCN
+ PNFS(:,:,:,JMOD) = PNFS(:,:,:,JMOD) + &
+ ZMASK(:,:,:) * PNAS(:,:,:,JMOD) * ZW2(:,:,:)
+ PNAS(:,:,:,JMOD) = PNAS(:,:,:,JMOD) - &
+ ZMASK(:,:,:) * PNAS(:,:,:,JMOD) * ZW2(:,:,:)
+ PNAS(:,:,:,JMOD) = MAX( 0.0 , PNAS(:,:,:,JMOD) )
+ ENDDO
+END IF
!
+IF (LSCAV .AND. LAERO_MASS) PMAS(:,:,:) = PMAS(:,:,:) * (1-ZMASK(:,:,:))
!
-!* 5.2 compute the cloud fraction PCLDFR (binary !!!!!!!)
!
-IF ( .NOT. OSUBG_COND ) THEN
- WHERE (PRCS(:,:,:) + PRIS(:,:,:) + PRSS(:,:,:) > 1.E-12 / ZDT)
- PCLDFR(:,:,:) = 1.
- ELSEWHERE
- PCLDFR(:,:,:) = 0.
- ENDWHERE
-END IF
!
-IF ( SIZE(PSRCS,3) /= 0 ) THEN
- WHERE (PRCS(:,:,:) + PRIS(:,:,:) > 1.E-12 / ZDT)
- PSRCS(:,:,:) = 1.
- ELSEWHERE
- PSRCS(:,:,:) = 0.
- ENDWHERE
+PICEFR(:,:,:)=0.
+IF (NMOM_I.EQ.1) THEN
+ WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(4)) PICEFR(:,:,:)=PCLDFR(:,:,:)
+ELSE
+ WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(4)) PICEFR(:,:,:)=1.
END IF
!
-IF ( OSUBG_COND ) THEN
- !
- ! Mixing ratio change (cloud liquid water)
- !
- ZW1(:,:,:) = (ZRC(:,:,:) - PRCS(:,:,:)*PTSTEP) / PTSTEP
- WHERE( ZW1(:,:,:) < 0.0 )
- ZW1(:,:,:) = MAX ( ZW1(:,:,:), -PRCS(:,:,:) )
- ELSEWHERE
- ZW1(:,:,:) = MIN ( ZW1(:,:,:), PRVS(:,:,:) )
- END WHERE
-
- WHERE (PCCT(:,:,:) < PCLDFR(:,:,:)*XCTMIN(2) .OR. ZRC(:,:,:)<PCLDFR(:,:,:)*XRTMIN(2))
- ZW1=-PRCS
- PCCS=0.
- PCLDFR=0.
- END WHERE
-
- PRVS(:,:,:) = PRVS(:,:,:) - ZW1(:,:,:)
- PRCS(:,:,:) = PRCS(:,:,:) + ZW1(:,:,:)
- PCCS(:,:,:) = PCCT(:,:,:) / PTSTEP
- PNFS(:,:,:,:) = PNFT(:,:,:,:) / PTSTEP
- PNAS(:,:,:,:) = PNAT(:,:,:,:) / PTSTEP
- PTHS(:,:,:) = PTHS(:,:,:) + &
- ZW1(:,:,:) * ZLV(:,:,:) / (ZCPH(:,:,:) * PEXNREF(:,:,:))
-END IF ! fin test OSUBG_COND
-
IF ( tpfile%lopened ) THEN
TZFIELD%CMNHNAME = 'NEB'
TZFIELD%CSTDNAME = ''
@@ -757,7 +700,6 @@ END IF
!* 6. SAVE CHANGES IN PRS AND PSVS
! ----------------------------
!
-!
! Prepare 3D water mixing ratios
PRS(:,:,:,1) = PRVS(:,:,:)
IF ( KRR .GE. 2 ) PRS(:,:,:,2) = PRCS(:,:,:)
@@ -768,8 +710,8 @@ IF ( KRR .GE. 6 ) PRS(:,:,:,6) = PRGS(:,:,:)
!
! Prepare 3D number concentrations
!
-IF ( LWARM ) PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
-! IF ( LCOLD ) PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
+IF ( LWARM .AND. NMOM_C.GE.2 ) PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
+! IF ( LCOLD .AND. NMOM_I.GE.2 ) PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
!
IF ( LSCAV .AND. LAERO_MASS ) PSVS(:,:,:,NSV_LIMA_SCAVMASS) = PMAS(:,:,:)
!
@@ -792,7 +734,7 @@ END IF
IF ( tpfile%lopened ) THEN
ZT(:,:,:) = ( PTHS(:,:,:) * ZDT ) * ZEXNS(:,:,:)
ZW(:,:,:) = EXP( XALPI - XBETAI/ZT(:,:,:) - XGAMI*ALOG(ZT(:,:,:) ) )
- ZW1(:,:,:)= 2.0*PPABST(:,:,:)-PPABSM(:,:,:)
+ ZW1(:,:,:)= PPABSTT(:,:,:)
ZW(:,:,:) = PRVT(:,:,:)*( ZW1(:,:,:)-ZW(:,:,:) ) / ( (XMV/XMD) * ZW(:,:,:) ) - 1.0
TZFIELD%CMNHNAME = 'SSI'
@@ -816,10 +758,9 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'CEDS', pths(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rv ) call Budget_store_end( tbudgets(NBUDGET_RV), 'CEDS', prvs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'CEDS', prcs(:, :, :) * prhodj(:, :, :) )
- !Remark: PRIS is not modified but source term kept for better coherence with lima_adjust and lima_notadjust
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CEDS', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) &
+ if ( lwarm .and. nmom_c.ge.2) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', pccs(:, :, :) * prhodj(:, :, :) )
if ( lscav .and. laero_mass ) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_scavmass), 'CEDS', pmas(:, :, :) * prhodj(:, :, :) )
diff --git a/src/mesonh/micro/lima_bergeron.f90 b/src/mesonh/micro/lima_bergeron.f90
index 9105c78d6..7a4967708 100644
--- a/src/mesonh/micro/lima_bergeron.f90
+++ b/src/mesonh/micro/lima_bergeron.f90
@@ -10,8 +10,7 @@ INTERFACE
SUBROUTINE LIMA_BERGERON (LDCOMPUTE, &
PRCT, PRIT, PCIT, PLBDI, &
PSSIW, PAI, PCJ, PLVFACT, PLSFACT, &
- P_TH_BERFI, P_RC_BERFI, &
- PA_TH, PA_RC, PA_RI )
+ P_TH_BERFI, P_RC_BERFI )
!
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
!
@@ -28,10 +27,6 @@ REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_BERFI
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_BERFI
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
!!
END SUBROUTINE LIMA_BERGERON
END INTERFACE
@@ -41,8 +36,7 @@ END MODULE MODI_LIMA_BERGERON
SUBROUTINE LIMA_BERGERON( LDCOMPUTE, &
PRCT, PRIT, PCIT, PLBDI, &
PSSIW, PAI, PCJ, PLVFACT, PLSFACT, &
- P_TH_BERFI, P_RC_BERFI, &
- PA_TH, PA_RC, PA_RI )
+ P_TH_BERFI, P_RC_BERFI )
! #############################################################
!
!! PURPOSE
@@ -89,18 +83,9 @@ REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_BERFI
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_BERFI
!
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
-!
-!* 0.2 Declarations of local variables :
-!
-!
!-------------------------------------------------------------------------------
!
-!
-!* 1. Bergeron-Findeisen process
-! --------------------------
+! Bergeron-Findeisen process
!
P_TH_BERFI(:) = 0.0
P_RC_BERFI(:) = 0.0
@@ -111,11 +96,6 @@ WHERE( (PRCT(:)>XRTMIN(2)) .AND. (PRIT(:)>XRTMIN(4)) .AND. (PCIT(:)>XCTMIN(4)) .
P_TH_BERFI(:) = - P_RC_BERFI(:)*(PLSFACT(:)-PLVFACT(:))
END WHERE
!
-PA_RC(:) = PA_RC(:) + P_RC_BERFI(:)
-PA_RI(:) = PA_RI(:) - P_RC_BERFI(:)
-PA_TH(:) = PA_TH(:) + P_TH_BERFI(:)
-!
-!
!-------------------------------------------------------------------------------
!
END SUBROUTINE LIMA_BERGERON
diff --git a/src/mesonh/micro/lima_ccn_activation.f90 b/src/mesonh/micro/lima_ccn_activation.f90
index b7786ea4f..fa0a276eb 100644
--- a/src/mesonh/micro/lima_ccn_activation.f90
+++ b/src/mesonh/micro/lima_ccn_activation.f90
@@ -102,7 +102,7 @@ use modd_field, only: TFIELDDATA, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_LUNIT_n, ONLY: TLUOUT
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
-USE MODD_PARAM_LIMA, ONLY: LACTIT, NMOD_CCN, XCTMIN, XKHEN_MULTI, XRTMIN, XLIMIT_FACTOR
+USE MODD_PARAM_LIMA, ONLY: LADJ, LACTIT, NMOD_CCN, XCTMIN, XKHEN_MULTI, XRTMIN, XLIMIT_FACTOR
USE MODD_PARAM_LIMA_WARM, ONLY: XWMIN, NAHEN, NHYP, XAHENINTP1, XAHENINTP2, XCSTDCRIT, XHYPF12, &
XHYPINTP1, XHYPINTP2, XTMIN, XHYPF32, XPSI3, XAHENG, XAHENG2, XPSI1, &
XLBC, XLBEXC
@@ -167,7 +167,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6, &
REAL, DIMENSION(:,:), ALLOCATABLE :: ZTMP, ZCHEN_MULTI
!
REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
- :: ZTDT, ZDRC, ZRVSAT, ZW, ZW2
+ :: ZTDT, ZDRC, ZRVSAT, ZW, ZW2, ZCLDFR
REAL, DIMENSION(SIZE(PNFT,1),SIZE(PNFT,2),SIZE(PNFT,3)) &
:: ZCONC_TOT ! total CCN C. available
!
@@ -215,22 +215,32 @@ ENDDO
!
GNUCT(:,:,:) = .FALSE.
!
-GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = PW_NU(IIB:IIE,IJB:IJE,IKB:IKE)>XWMIN &
- .OR. PRVT(IIB:IIE,IJB:IJE,IKB:IKE)>ZRVSAT(IIB:IIE,IJB:IJE,IKB:IKE)
-IF (LACTIT) GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
- .OR. ZTDT(IIB:IIE,IJB:IJE,IKB:IKE)<XTMIN
-!
-GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
- .AND. PT(IIB:IIE,IJB:IJE,IKB:IKE)>(XTT-22.) &
- .AND. ZCONC_TOT(IIB:IIE,IJB:IJE,IKB:IKE)>XCTMIN(2)
+IF (LADJ) THEN
+ GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = PW_NU(IIB:IIE,IJB:IJE,IKB:IKE)>XWMIN &
+ .OR. PRVT(IIB:IIE,IJB:IJE,IKB:IKE)>ZRVSAT(IIB:IIE,IJB:IJE,IKB:IKE)
+ IF (LACTIT) GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
+ .OR. ZTDT(IIB:IIE,IJB:IJE,IKB:IKE)<XTMIN
+!
+ GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
+ .AND. PT(IIB:IIE,IJB:IJE,IKB:IKE)>(XTT-22.) &
+ .AND. ZCONC_TOT(IIB:IIE,IJB:IJE,IKB:IKE)>XCTMIN(2)
+!
+ IF (LSUBG_COND) GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
+ .AND. PCLDFR(IIB:IIE,IJB:IJE,IKB:IKE)>0.01
+ IF (.NOT. LSUBG_COND) GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
+ .AND. PRVT(IIB:IIE,IJB:IJE,IKB:IKE).GE.ZRVSAT(IIB:IIE,IJB:IJE,IKB:IKE)
+ELSE
+ GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = PRVT(IIB:IIE,IJB:IJE,IKB:IKE).GE.ZRVSAT(IIB:IIE,IJB:IJE,IKB:IKE) &
+ .AND. PT(IIB:IIE,IJB:IJE,IKB:IKE)>(XTT-22.) &
+ .AND. ZCONC_TOT(IIB:IIE,IJB:IJE,IKB:IKE)>XCTMIN(2)
+END IF
!
-IF (LSUBG_COND) GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
- .AND. PCLDFR(IIB:IIE,IJB:IJE,IKB:IKE)>0.01
-IF (.NOT. LSUBG_COND) GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) &
- .AND. PRVT(IIB:IIE,IJB:IJE,IKB:IKE).GE.ZRVSAT(IIB:IIE,IJB:IJE,IKB:IKE)
+IF (.NOT. LSUBG_COND) THEN
+ ZCLDFR(:,:,:) = 1.
+ELSE
+ ZCLDFR(:,:,:) = PCLDFR(:,:,:)
+END IF
!
-
-
INUCT = COUNTJV( GNUCT(:,:,:),I1(:),I2(:),I3(:))
!
IF( INUCT >= 1 ) THEN
@@ -255,8 +265,8 @@ IF( INUCT >= 1 ) THEN
ALLOCATE(ZRHODREF(INUCT))
ALLOCATE(ZEXNREF(INUCT))
DO JL=1,INUCT
- ZRCT(JL) = PRCT(I1(JL),I2(JL),I3(JL))/PCLDFR(I1(JL),I2(JL),I3(JL))
- ZCCT(JL) = PCCT(I1(JL),I2(JL),I3(JL))/PCLDFR(I1(JL),I2(JL),I3(JL))
+ ZRCT(JL) = PRCT(I1(JL),I2(JL),I3(JL))/ZCLDFR(I1(JL),I2(JL),I3(JL))
+ ZCCT(JL) = PCCT(I1(JL),I2(JL),I3(JL))/ZCLDFR(I1(JL),I2(JL),I3(JL))
ZZT(JL) = PT(I1(JL),I2(JL),I3(JL))
ZZW1(JL) = ZRVSAT(I1(JL),I2(JL),I3(JL))
ZZW2(JL) = PW_NU(I1(JL),I2(JL),I3(JL))
@@ -272,8 +282,10 @@ IF( INUCT >= 1 ) THEN
ENDDO
ENDDO
!
- ZZW1(:) = 1.0/ZEPS + 1.0/ZZW1(:) &
- + (((XLVTT+(XCPV-XCL)*(ZZT(:)-XTT))/ZZT(:))**2)/(XCPD*XRV) ! Psi2
+ ALLOCATE(ZSMAX(INUCT))
+ IF (LADJ) THEN
+ ZZW1(:) = 1.0/ZEPS + 1.0/ZZW1(:) &
+ + (((XLVTT+(XCPV-XCL)*(ZZT(:)-XTT))/ZZT(:))**2)/(XCPD*XRV) ! Psi2
!
!
!-------------------------------------------------------------------------------
@@ -285,13 +297,12 @@ IF( INUCT >= 1 ) THEN
! Remark : in LIMA's nucleation parameterization, Smax=0.01 for a supersaturation of 1% !
!
!
- ZVEC1(:) = MAX( 1.0001, MIN( REAL(NAHEN)-0.0001, XAHENINTP1 * ZZT(:) + XAHENINTP2 ) )
- IVEC1(:) = INT( ZVEC1(:) )
- ZVEC1(:) = ZVEC1(:) - REAL( IVEC1(:) )
- ALLOCATE(ZSMAX(INUCT))
+ ZVEC1(:) = MAX( 1.0001, MIN( REAL(NAHEN)-0.0001, XAHENINTP1 * ZZT(:) + XAHENINTP2 ) )
+ IVEC1(:) = INT( ZVEC1(:) )
+ ZVEC1(:) = ZVEC1(:) - REAL( IVEC1(:) )
!
!
- IF (LACTIT) THEN ! including a cooling rate
+ IF (LACTIT) THEN ! including a cooling rate
!
! Compute the tabulation of function of ZZW3 :
!
@@ -300,20 +311,20 @@ IF( INUCT >= 1 ) THEN
! 2*pi*rho_l*G**(3/2)
!
!
- ZZW4(:)=XPSI1( IVEC1(:)+1)*ZZW2(:)+XPSI3(IVEC1(:)+1)*ZZTDT(:)
- ZZW5(:)=XPSI1( IVEC1(:) )*ZZW2(:)+XPSI3(IVEC1(:) )*ZZTDT(:)
- WHERE (ZZW4(:) < 0. .OR. ZZW5(:) < 0.)
- ZZW4(:) = 0.
- ZZW5(:) = 0.
- END WHERE
- ZZW3(:) = XAHENG( IVEC1(:)+1)*(ZZW4(:)**1.5)* ZVEC1(:) &
- - XAHENG( IVEC1(:) )*(ZZW5(:)**1.5)*(ZVEC1(:) - 1.0)
+ ZZW4(:)=XPSI1( IVEC1(:)+1)*ZZW2(:)+XPSI3(IVEC1(:)+1)*ZZTDT(:)
+ ZZW5(:)=XPSI1( IVEC1(:) )*ZZW2(:)+XPSI3(IVEC1(:) )*ZZTDT(:)
+ WHERE (ZZW4(:) < 0. .OR. ZZW5(:) < 0.)
+ ZZW4(:) = 0.
+ ZZW5(:) = 0.
+ END WHERE
+ ZZW3(:) = XAHENG( IVEC1(:)+1)*(ZZW4(:)**1.5)* ZVEC1(:) &
+ - XAHENG( IVEC1(:) )*(ZZW5(:)**1.5)*(ZVEC1(:) - 1.0)
! Cste*((Psi1*w+Psi3*dT/dt)/(G))**1.5
- ZZW6(:) = XAHENG2( IVEC1(:)+1)*(ZZW4(:)**0.5)* ZVEC1(:) &
- - XAHENG2( IVEC1(:) )*(ZZW5(:)**0.5)*(ZVEC1(:) - 1.0)
+ ZZW6(:) = XAHENG2( IVEC1(:)+1)*(ZZW4(:)**0.5)* ZVEC1(:) &
+ - XAHENG2( IVEC1(:) )*(ZZW5(:)**0.5)*(ZVEC1(:) - 1.0)
!
!
- ELSE ! LACTIT , for clouds
+ ELSE ! LACTIT , for clouds
!
!
! Compute the tabulation of function of ZZW3 :
@@ -323,32 +334,32 @@ IF( INUCT >= 1 ) THEN
! 2 pi rho_l * G**(3/2)
!
!
- ZZW2(:)=MAX(ZZW2(:),0.)
- ZZW3(:)=XAHENG(IVEC1(:)+1)*((XPSI1(IVEC1(:)+1)*ZZW2(:))**1.5)* ZVEC1(:) &
- -XAHENG(IVEC1(:) )*((XPSI1(IVEC1(:) )*ZZW2(:))**1.5)*(ZVEC1(:)-1.0)
+ ZZW2(:)=MAX(ZZW2(:),0.)
+ ZZW3(:)=XAHENG(IVEC1(:)+1)*((XPSI1(IVEC1(:)+1)*ZZW2(:))**1.5)* ZVEC1(:) &
+ -XAHENG(IVEC1(:) )*((XPSI1(IVEC1(:) )*ZZW2(:))**1.5)*(ZVEC1(:)-1.0)
!
- ZZW6(:)=XAHENG2(IVEC1(:)+1)*((XPSI1(IVEC1(:)+1)*ZZW2(:))**0.5)* ZVEC1(:) &
- -XAHENG2(IVEC1(:) )*((XPSI1(IVEC1(:) )*ZZW2(:))**0.5)*(ZVEC1(:)-1.0)
+ ZZW6(:)=XAHENG2(IVEC1(:)+1)*((XPSI1(IVEC1(:)+1)*ZZW2(:))**0.5)* ZVEC1(:) &
+ -XAHENG2(IVEC1(:) )*((XPSI1(IVEC1(:) )*ZZW2(:))**0.5)*(ZVEC1(:)-1.0)
!
- END IF ! LACTIT
+ END IF ! LACTIT
!
!
! (Psi1*w+Psi3*DT/Dt)**1.5 rho_air
! ZZW3 = ------------------------ * -------
! 2*pi*rho_l*G**(3/2) Psi2
!
- ZZW5(:) = 1.
- ZZW3(:) = (ZZW3(:)/ZZW1(:))*ZRHODREF(:) ! R.H.S. of Eq 9 of CPB 98 but
- ! for multiple aerosol modes
- WHERE (ZRCT(:) > XRTMIN(2) .AND. ZCCT(:) > XCTMIN(2))
- ZZW6(:) = ZZW6(:) * ZRHODREF(:) * ZCCT(:) / (XLBC*ZCCT(:)/ZRCT(:))**XLBEXC
- ELSEWHERE
- ZZW6(:)=0.
- END WHERE
+ ZZW5(:) = 1.
+ ZZW3(:) = (ZZW3(:)/ZZW1(:))*ZRHODREF(:) ! R.H.S. of Eq 9 of CPB 98 but
+ ! for multiple aerosol modes
+ WHERE (ZRCT(:) > XRTMIN(2) .AND. ZCCT(:) > XCTMIN(2))
+ ZZW6(:) = ZZW6(:) * ZRHODREF(:) * ZCCT(:) / (XLBC*ZCCT(:)/ZRCT(:))**XLBEXC
+ ELSEWHERE
+ ZZW6(:)=0.
+ END WHERE
- WHERE (ZZW3(:) == 0. .AND. .NOT.(ZSW>0.))
- ZZW5(:) = -1.
- END WHERE
+ WHERE (ZZW3(:) == 0. .AND. .NOT.(ZSW>0.))
+ ZZW5(:) = -1.
+ END WHERE
!
!-------------------------------------------------------------------------------
!
@@ -362,13 +373,17 @@ IF( INUCT >= 1 ) THEN
!
! Interval bounds to tabulate sursaturation Smax
! Check with values used for tabulation in ini_lima_warm.f90
- ZS1 = 1.0E-5 ! corresponds to 0.001% supersaturation
- ZS2 = 5.0E-2 ! corresponds to 5.0% supersaturation
- ZXACC = 1.0E-10 ! Accuracy needed for the search in [NO UNITS]
-!
- ZSMAX(:) = ZRIDDR(ZS1,ZS2,ZXACC,ZZW3(:),ZZW6(:),INUCT) ! ZSMAX(:) is in [NO UNITS]
- ZSMAX(:) = MIN(MAX(ZSMAX(:), ZSW(:)),ZS2)
+ ZS1 = 1.0E-5 ! corresponds to 0.001% supersaturation
+ ZS2 = 5.0E-2 ! corresponds to 5.0% supersaturation
+ ZXACC = 1.0E-10 ! Accuracy needed for the search in [NO UNITS]
!
+ ZSMAX(:) = ZRIDDR(ZS1,ZS2,ZXACC,ZZW3(:),ZZW6(:),INUCT) ! ZSMAX(:) is in [NO UNITS]
+ ZSMAX(:) = MIN(MAX(ZSMAX(:), ZSW(:)),ZS2)
+ !
+ ELSE
+ ZSMAX(:) = ZSW(:)
+ ZZW5(:) = 1.
+ END IF
!
!-------------------------------------------------------------------------------
!
@@ -637,7 +652,7 @@ DO JL = 1, NPTS
fl(JL)=fnew(JL)
else if (PX2 .lt. 0.05) then
PX2 = PX2 + 1.0E-2
- PRINT*, 'PX2 ALWAYS too small, we put a greater one : PX2 =',PX2
+! PRINT*, 'PX2 ALWAYS too small, we put a greater one : PX2 =',PX2
fh(JL) = SINGL_FUNCSMAX(PX2,PZZW3(JL),PZZW6(JL),JL)
go to 100
end if
@@ -658,7 +673,7 @@ DO JL = 1, NPTS
PZRIDDR(JL)=PX2
else if (PX2 .lt. 0.05) then
PX2 = PX2 + 1.0E-2
- PRINT*, 'PX2 too small, we put a greater one : PX2 =',PX2
+! PRINT*, 'PX2 too small, we put a greater one : PX2 =',PX2
fh(JL) = SINGL_FUNCSMAX(PX2,PZZW3(JL),PZZW6(JL),JL)
go to 100
else
diff --git a/src/mesonh/micro/lima_cold.f90 b/src/mesonh/micro/lima_cold.f90
index 3e0a6b3e4..56ee422eb 100644
--- a/src/mesonh/micro/lima_cold.f90
+++ b/src/mesonh/micro/lima_cold.f90
@@ -11,7 +11,6 @@ INTERFACE
SUBROUTINE LIMA_COLD (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRS, PINPRG, PINPRH)
@@ -36,9 +35,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -59,7 +55,6 @@ END MODULE MODI_LIMA_COLD
SUBROUTINE LIMA_COLD (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRS, PINPRG, PINPRH)
@@ -122,6 +117,7 @@ use modd_budget, only: lbu_enable,
tbudgets
USE MODD_NSV
USE MODD_PARAM_LIMA
+USE MODD_PARAM_LIMA_COLD, only: XLBS, XLBEXS, XACCS1, XSPONBUDS1, XSPONBUDS2, XSPONBUDS3, XSPONCOEFS2
use mode_budget, only: Budget_store_init, Budget_store_end
@@ -153,9 +149,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -190,10 +183,18 @@ REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2),SIZE(PZZ,3)) &
PCCT, & ! Cloud water C. at t
PCRT, & ! Rain water C. at t
PCIT, & ! Ice crystal C. at t
+ PCST, & ! Snow/aggregates C. at t
+ PCGT, & ! Graupel C. at t
+ PCHT, & ! Hail C. at t
!
PCCS, & ! Cloud water C. source
PCRS, & ! Rain water C. source
- PCIS ! Ice crystal C. source
+ PCIS, & ! Ice crystal C. source
+ PCSS, & ! Snow/aggregates C. source
+ PCGS, & ! Graupel C. source
+ PCHS, & ! Hail C. source
+ !
+ ZWLBDS ! Snow/aggregates lambda
!
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNFS ! CCN C. available source
!used as Free ice nuclei for
@@ -250,17 +251,29 @@ IF ( KRR .GE. 7 ) PRHS(:,:,:) = PRS(:,:,:,7)
PCCT(:,:,:) = 0.
PCRT(:,:,:) = 0.
PCIT(:,:,:) = 0.
+PCST(:,:,:) = 0.
+PCGT(:,:,:) = 0.
+PCHT(:,:,:) = 0.
PCCS(:,:,:) = 0.
PCRS(:,:,:) = 0.
PCIS(:,:,:) = 0.
+PCSS(:,:,:) = 0.
+PCGS(:,:,:) = 0.
+PCHS(:,:,:) = 0.
!
IF ( LWARM ) PCCT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCST(:,:,:) = PSVT(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NH)
!
IF ( LWARM ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCSS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH)
!
IF ( NMOD_CCN .GE. 1 ) THEN
ALLOCATE( PNFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_CCN) )
@@ -315,15 +328,17 @@ if ( lbu_enable ) then
if ( lbudget_rh .and. lhail ) call Budget_store_init( tbudgets(NBUDGET_RH), 'SEDI', prhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv .and. osedi ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', pcis(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_S.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SEDI', pcss(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_G.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'SEDI', pcgs(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_H.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'SEDI', pchs(:, :, :) * prhodj(:, :, :) )
end if
CALL LIMA_COLD_SEDIMENTATION (OSEDI, KSPLITG, PTSTEP, KMI, &
PZZ, PRHODJ, PRHODREF, &
PRIT, PCIT, &
PRIS, PRSS, PRGS, PRHS, PCIS, &
- PINPRS, PINPRG,&
- PINPRH )
-
+ PINPRS, PINPRG, PINPRH, &
+ PCSS=PCSS, PCGS=PCGS, PCHS=PCHS )
if ( lbu_enable ) then
if ( lbudget_ri .and. osedi ) call Budget_store_end( tbudgets(NBUDGET_RI), 'SEDI', pris(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rs .and. lsnow ) call Budget_store_end( tbudgets(NBUDGET_RS), 'SEDI', prss(:, :, :) * prhodj(:, :, :) )
@@ -331,6 +346,9 @@ if ( lbu_enable ) then
if ( lbudget_rh .and. lhail ) call Budget_store_end( tbudgets(NBUDGET_RH), 'SEDI', prhs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv .and. osedi ) &
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'SEDI', pcis(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_S.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SEDI', pcss(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_G.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'SEDI', pcgs(:, :, :) * prhodj(:, :, :) )
+ if (NMOM_H.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'SEDI', pchs(:, :, :) * prhodj(:, :, :) )
end if
!-------------------------------------------------------------------------------
!
@@ -377,12 +395,42 @@ END IF
!
IF (LSNOW) THEN
!
- CALL LIMA_COLD_SLOW_PROCESSES(PTSTEP, KMI, PZZ, PRHODJ, &
+ IF(NMOM_S.GE.2) THEN
+ CALL LIMA_COLD_SLOW_PROCESSES(PTSTEP, KMI, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, &
PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
PTHS, PRVS, PRIS, PRSS, &
- PCIT, PCIS )
+ PCIT, PCIS, PCST=PCST, PCSS=PCSS )
+ ELSE
+ CALL LIMA_COLD_SLOW_PROCESSES(PTSTEP, KMI, PZZ, PRHODJ, &
+ PRHODREF, PEXNREF, PPABST, &
+ PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
+ PTHS, PRVS, PRIS, PRSS, &
+ PCIT, PCIS )
+ END IF
+END IF
+!
+IF (NMOM_S.GE.2) THEN
!
+! 5. SPONTANEOUS BREAK-UP (NUMERICAL FILTER)
+! --------------------
+!
+ if ( lbu_enable .and. lbudget_sv) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'BRKU', pcss(:, :, :) * prhodj(:, :, :) )
+ end if
+
+ ZWLBDS(:,:,:) = 1.E10
+ WHERE ((PRSS(:,:,:)>XRTMIN(5)/PTSTEP) .AND. (PCSS(:,:,:)>XCTMIN(5)/PTSTEP ))
+ ZWLBDS(:,:,:) = (XLBS * PCSS(:,:,:) / PRSS(:,:,:) )**XLBEXS
+ END WHERE
+ WHERE (ZWLBDS(:,:,:)<(XACCS1/XSPONBUDS1))
+ PCSS(:,:,:) = PCSS(:,:,:)*MAX((1.+XSPONCOEFS2*(XACCS1/ZWLBDS(:,:,:)-XSPONBUDS1)**2),&
+ (XACCS1/ZWLBDS(:,:,:)/XSPONBUDS3)**3)
+ END WHERE
+!
+ if ( lbu_enable .and. lbudget_sv) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'BRKU', pcss(:, :, :) * prhodj(:, :, :) )
+ end if
END IF
!
!------------------------------------------------------------------------------
@@ -404,6 +452,9 @@ IF ( KRR .GE. 7 ) PRS(:,:,:,7) = PRHS(:,:,:)
IF ( LWARM ) PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
IF ( LWARM .AND. LRAIN ) PSVS(:,:,:,NSV_LIMA_NR) = PCRS(:,:,:)
IF ( LCOLD ) PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
+IF ( NMOM_S.GE.2 ) PSVS(:,:,:,NSV_LIMA_NS) = PCSS(:,:,:)
+IF ( NMOM_G.GE.2 ) PSVS(:,:,:,NSV_LIMA_NG) = PCGS(:,:,:)
+IF ( NMOM_H.GE.2 ) PSVS(:,:,:,NSV_LIMA_NH) = PCHS(:,:,:)
!
IF ( NMOD_CCN .GE. 1 ) THEN
PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) = PNFS(:,:,:,:)
diff --git a/src/mesonh/micro/lima_cold_sedimentation.f90 b/src/mesonh/micro/lima_cold_sedimentation.f90
index 6a62652b7..13e80b57c 100644
--- a/src/mesonh/micro/lima_cold_sedimentation.f90
+++ b/src/mesonh/micro/lima_cold_sedimentation.f90
@@ -12,7 +12,8 @@ INTERFACE
PZZ, PRHODJ, PRHODREF, &
PRIT, PCIT, &
PRIS, PRSS, PRGS, PRHS, PCIS, &
- PINPRS, PINPRG, PINPRH )
+ PINPRS, PINPRG, PINPRH, &
+ PCSS, PCGS, PCHS)
!
LOGICAL, INTENT(IN) :: OSEDI ! switch to activate the
! cloud ice sedimentation
@@ -32,6 +33,9 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. sour
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRGS ! Graupel m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRHS ! Hail m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregate C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCGS ! Graupel C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCHS ! Hail C. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRS ! Snow instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRG ! Graupel instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRH ! Hail instant precip
@@ -47,8 +51,8 @@ END MODULE MODI_LIMA_COLD_SEDIMENTATION
PZZ, PRHODJ, PRHODREF, &
PRIT, PCIT, &
PRIS, PRSS, PRGS, PRHS, PCIS, &
- PINPRS,PINPRG,&
- PINPRH )
+ PINPRS,PINPRG,PINPRH, &
+ PCSS, PCGS, PCHS)
! ######################################################################
!
!! PURPOSE
@@ -77,6 +81,7 @@ END MODULE MODI_LIMA_COLD_SEDIMENTATION
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
! P. Wautelet 28/05/2019: move COUNTJV function to tools.f90
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!
!-------------------------------------------------------------------------------
!
@@ -86,10 +91,17 @@ END MODULE MODI_LIMA_COLD_SEDIMENTATION
USE MODD_CST, ONLY : XRHOLW
USE MODD_NSV
USE MODD_PARAMETERS, ONLY : JPHEXT, JPVEXT
-USE MODD_PARAM_LIMA, ONLY : XCEXVT, XRTMIN, XCTMIN
+USE MODD_PARAM_LIMA, ONLY : XCEXVT, XRTMIN, XCTMIN, &
+ NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_COLD, ONLY : XLBEXI, XLBI, XDI, &
- XFSEDRI, XFSEDCI, XFSEDS, XEXSEDS
-USE MODD_PARAM_LIMA_MIXED, ONLY : XFSEDG, XEXSEDG, XFSEDH, XEXSEDH
+ XFSEDRI, XFSEDCI, XFSEDS, XEXSEDS, &
+ XLBEXS, XLBS, XDS, &
+ XFSEDRS, XFSEDCS
+
+USE MODD_PARAM_LIMA_MIXED, ONLY : XFSEDG, XEXSEDG, XFSEDH, XEXSEDH, &
+ XLBEXG, XLBG, XDG, &
+ XLBEXH, XLBH, XDH, &
+ XFSEDRG, XFSEDCG, XFSEDRH, XFSEDCH
!
use mode_tools, only: Countjv
!
@@ -117,6 +129,9 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. sour
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRGS ! Graupel m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRHS ! Hail m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregate C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCGS ! Graupel C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCHS ! Hail C. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRS ! Snow instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRG ! Graupel instant precip
REAL, DIMENSION(:,:), INTENT(INOUT) :: PINPRH ! Hail instant precip
@@ -139,8 +154,11 @@ REAL, DIMENSION(:), ALLOCATABLE &
:: ZRIS, & ! Pristine ice m.r. source
ZCIS, & ! Pristine ice conc. source
ZRSS, & ! Snow/aggregate m.r. source
+ ZCSS, & ! Snow/aggregate conc. source
ZRGS, & ! Graupel/hail m.r. source
+ ZCGS, & ! Graupel/hail conc. source
ZRHS, & ! Graupel/hail m.r. source
+ ZCHS, & ! Graupel/hail conc. source
ZRIT, & ! Pristine ice m.r. at t
ZCIT, & ! Pristine ice conc. at t
ZRHODREF, & ! RHO Dry REFerence
@@ -148,8 +166,8 @@ REAL, DIMENSION(:), ALLOCATABLE &
ZZW, & ! Work array
ZZX, & ! Work array
ZZY, & ! Work array
- ZLBDAI, & ! Slope parameter of the ice crystal distr.
- ZRTMIN
+ ZLBDAI, ZLBDAS, ZLBDAG, ZLBDAH, & ! Slope parameter of the ice crystal distr.
+ ZRTMIN, ZCTMIN
!
INTEGER , DIMENSION(SIZE(PRHODREF)) :: I1,I2,I3 ! Indexes for PACK replacement
!
@@ -170,7 +188,9 @@ IKE=SIZE(PZZ,3) - JPVEXT
! Time splitting and ZRTMIN
!
ALLOCATE(ZRTMIN(SIZE(XRTMIN)))
+ALLOCATE(ZCTMIN(SIZE(XCTMIN)))
ZRTMIN(:) = XRTMIN(:) / PTSTEP
+ZCTMIN(:) = XCTMIN(:) / PTSTEP
!
ZTSPLITG= PTSTEP / REAL(KSPLITG)
!
@@ -185,9 +205,28 @@ PINPRH(:,:) = 0.
DO JN = 1 , KSPLITG
! Computation only where enough ice, snow, graupel or hail
GSEDIM(:,:,:) = .FALSE.
- GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(5) &
- .OR. PRGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(6) &
- .OR. PRHS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(7)
+IF (NMOM_S.EQ.2) THEN
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(5) .AND. &
+ PCSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(5)
+ELSE
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(5)
+END IF
+IF (NMOM_G.EQ.2) THEN
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ ( PRGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(6) .AND. &
+ PCGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(6) )
+ELSE
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ PRGS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(6)
+END IF
+IF (NMOM_H.EQ.2) THEN
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ ( PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(7) .AND. &
+ PCSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(7) )
+ELSE
+ GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) .OR. &
+ PRSS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(7)
+END IF
IF( OSEDI ) THEN
GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) = GSEDIM(IIB:IIE,IJB:IJE,IKB:IKE) &
.OR. PRIS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(4)
@@ -204,6 +243,9 @@ DO JN = 1 , KSPLITG
PRSS(:,:,:) = PRSS(:,:,:) * PTSTEP
PRGS(:,:,:) = PRGS(:,:,:) * PTSTEP
PRHS(:,:,:) = PRHS(:,:,:) * PTSTEP
+ IF(NMOM_S.EQ.2) PCSS(:,:,:) = PCSS(:,:,:) * PTSTEP
+ IF(NMOM_G.EQ.2) PCGS(:,:,:) = PCGS(:,:,:) * PTSTEP
+ IF(NMOM_H.EQ.2) PCHS(:,:,:) = PCHS(:,:,:) * PTSTEP
DO JK = IKB , IKE
ZW(:,:,JK)=ZTSPLITG/(PZZ(:,:,JK+1)-PZZ(:,:,JK))
END DO
@@ -259,21 +301,52 @@ DO JN = 1 , KSPLITG
!* 2.22 for aggregates
!
ZZW(:) = 0.
+ ZZX(:) = 0.0
+ ZZY(:) = 0.0
IF( MAXVAL(PRSS(:,:,:))>XRTMIN(5) ) THEN
ALLOCATE(ZRSS(ISEDIM))
- DO JL = 1,ISEDIM
- ZRSS(JL) = PRSS(I1(JL),I2(JL),I3(JL))
- END DO
- WHERE( ZRSS(:)>XRTMIN(5) )
- ZZW(:) = XFSEDS * (ZRSS(:)*ZRHODREF(:))**XEXSEDS * ZRHODREF(:)**(-XCEXVT)
- END WHERE
- ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
- ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
- DO JK = IKB , IKE
- PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)* &
- (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
- END DO
- DEALLOCATE(ZRSS)
+ IF(NMOM_S.GE.2) THEN
+ ALLOCATE(ZCSS(ISEDIM))
+ ALLOCATE(ZLBDAS(ISEDIM))
+ DO JL = 1,ISEDIM
+ ZRSS(JL) = PRSS(I1(JL),I2(JL),I3(JL))
+ ZCSS(JL) = PCSS(I1(JL),I2(JL),I3(JL))
+ END DO
+ ZLBDAS(:) = 1.E10
+ WHERE( ZRSS(:)>XRTMIN(5) .AND. ZCSS(:)>XCTMIN(5) )
+ ZLBDAS(:) = ( XLBS*ZCSS(:) / ZRSS(:) )**XLBEXS
+ ZZY(:) = ZRHODREF(:)**(-XCEXVT) * (ZLBDAS(:)**(-XDS))
+ ZZW(:) = XFSEDRS * ZRSS(:) * ZZY(:) * ZRHODREF(:)
+ ZZX(:) = XFSEDCS * ZCSS(:) * ZZY(:) * ZRHODREF(:)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ ZWSEDC(:,:,:) = UNPACK( ZZX(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDC(:,:,IKB:IKE) = MIN( ZWSEDC(:,:,IKB:IKE), PCSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ PCSS(:,:,JK) = PCSS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDC(:,:,JK+1)-ZWSEDC(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRSS)
+ DEALLOCATE(ZCSS)
+ DEALLOCATE(ZLBDAS)
+ ELSE
+ DO JL = 1,ISEDIM
+ ZRSS(JL) = PRSS(I1(JL),I2(JL),I3(JL))
+ END DO
+ WHERE( ZRSS(:)>XRTMIN(5) )
+ ZZW(:) = XFSEDS * (ZRSS(:)*ZRHODREF(:))**XEXSEDS * ZRHODREF(:)**(-XCEXVT)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRSS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRSS(:,:,JK) = PRSS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRSS)
+ END IF
ELSE
ZWSEDR(:,:,IKB) = 0.0
END IF
@@ -283,21 +356,52 @@ DO JN = 1 , KSPLITG
!* 2.23 for graupeln
!
ZZW(:) = 0.
+ ZZX(:) = 0.0
+ ZZY(:) = 0.0
IF( MAXVAL(PRGS(:,:,:))>XRTMIN(6) ) THEN
ALLOCATE(ZRGS(ISEDIM))
- DO JL = 1,ISEDIM
- ZRGS(JL) = PRGS(I1(JL),I2(JL),I3(JL))
- END DO
- WHERE( ZRGS(:)>XRTMIN(6) )
- ZZW(:) = XFSEDG * (ZRGS(:)*ZRHODREF(:))**XEXSEDG * ZRHODREF(:)**(-XCEXVT)
- END WHERE
- ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
- ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
- DO JK = IKB , IKE
- PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)* &
- (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
- END DO
- DEALLOCATE(ZRGS)
+ IF(NMOM_G.GE.2) THEN
+ ALLOCATE(ZCGS(ISEDIM))
+ ALLOCATE(ZLBDAG(ISEDIM))
+ DO JL = 1,ISEDIM
+ ZRGS(JL) = PRGS(I1(JL),I2(JL),I3(JL))
+ ZCGS(JL) = PCGS(I1(JL),I2(JL),I3(JL))
+ END DO
+ ZLBDAG(:) = 1.E10
+ WHERE( ZRGS(:)>XRTMIN(6) .AND. ZCGS(:)>XCTMIN(6) )
+ ZLBDAG(:) = ( XLBS*ZCGS(:) / ZRGS(:) )**XLBEXG
+ ZZY(:) = ZRHODREF(:)**(-XCEXVT) * (ZLBDAG(:)**(-XDG))
+ ZZW(:) = XFSEDRG * ZRGS(:) * ZZY(:) * ZRHODREF(:)
+ ZZX(:) = XFSEDCG * ZCGS(:) * ZZY(:) * ZRHODREF(:)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ ZWSEDC(:,:,:) = UNPACK( ZZX(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDC(:,:,IKB:IKE) = MIN( ZWSEDC(:,:,IKB:IKE), PCGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ PCGS(:,:,JK) = PCGS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDC(:,:,JK+1)-ZWSEDC(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRGS)
+ DEALLOCATE(ZCGS)
+ DEALLOCATE(ZLBDAG)
+ ELSE
+ DO JL = 1,ISEDIM
+ ZRGS(JL) = PRGS(I1(JL),I2(JL),I3(JL))
+ END DO
+ WHERE( ZRGS(:)>XRTMIN(6) )
+ ZZW(:) = XFSEDG * (ZRGS(:)*ZRHODREF(:))**XEXSEDG * ZRHODREF(:)**(-XCEXVT)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRGS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRGS(:,:,JK) = PRGS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRGS)
+ END IF
ELSE
ZWSEDR(:,:,IKB) = 0.0
END IF
@@ -307,21 +411,48 @@ DO JN = 1 , KSPLITG
!* 2.23 for hail
!
ZZW(:) = 0.
+ ZZX(:) = 0.
+ ZZY(:) = 0.
IF( MAXVAL(PRHS(:,:,:))>XRTMIN(7) ) THEN
ALLOCATE(ZRHS(ISEDIM))
- DO JL = 1,ISEDIM
- ZRHS(JL) = PRHS(I1(JL),I2(JL),I3(JL))
- END DO
- WHERE( ZRHS(:)>XRTMIN(7) )
- ZZW(:) = XFSEDH * (ZRHS(:)*ZRHODREF(:))**XEXSEDH * ZRHODREF(:)**(-XCEXVT)
- END WHERE
- ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
- ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRHS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
- DO JK = IKB , IKE
- PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)* &
- (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
- END DO
- DEALLOCATE(ZRHS)
+ IF(NMOM_H.GE.2) THEN
+ ALLOCATE(ZCHS(ISEDIM))
+ ALLOCATE(ZLBDAH(ISEDIM))
+ DO JL = 1,ISEDIM
+ ZRHS(JL) = PRHS(I1(JL),I2(JL),I3(JL))
+ ZCHS(JL) = PCHS(I1(JL),I2(JL),I3(JL))
+ END DO
+ ZLBDAH(:) = 1.E10
+ WHERE( ZRHS(:)>XRTMIN(7) .AND. ZCHS(:)>XCTMIN(7) )
+ ZLBDAH(:) = ( XLBH*ZCHS(:) / ZRHS(:) )**XLBEXH
+ ZZY(:) = ZRHODREF(:)**(-XCEXVT) * (ZLBDAH(:)**(-XDH))
+ ZZW(:) = XFSEDRH * ZRHS(:) * ZZY(:) * ZRHODREF(:)
+ ZZX(:) = XFSEDCH * ZCHS(:) * ZZY(:) * ZRHODREF(:)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRHS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRHS)
+ DEALLOCATE(ZLBDAH)
+ DEALLOCATE(ZCHS)
+ ELSE
+ DO JL = 1,ISEDIM
+ ZRHS(JL) = PRHS(I1(JL),I2(JL),I3(JL))
+ END DO
+ WHERE( ZRHS(:)>XRTMIN(7) )
+ ZZW(:) = XFSEDH * (ZRHS(:)*ZRHODREF(:))**XEXSEDH * ZRHODREF(:)**(-XCEXVT)
+ END WHERE
+ ZWSEDR(:,:,:) = UNPACK( ZZW(:),MASK=GSEDIM(:,:,:),FIELD=0.0 )
+ ZWSEDR(:,:,IKB:IKE) = MIN( ZWSEDR(:,:,IKB:IKE), PRHS(:,:,IKB:IKE) * PRHODREF(:,:,IKB:IKE) / ZW(:,:,IKB:IKE) )
+ DO JK = IKB , IKE
+ PRHS(:,:,JK) = PRHS(:,:,JK) + ZW(:,:,JK)* &
+ (ZWSEDR(:,:,JK+1)-ZWSEDR(:,:,JK))/PRHODREF(:,:,JK)
+ END DO
+ DEALLOCATE(ZRHS)
+ END IF
ELSE
ZWSEDR(:,:,IKB) = 0.0
END IF
@@ -342,11 +473,15 @@ DO JN = 1 , KSPLITG
PRSS(:,:,:) = PRSS(:,:,:) / PTSTEP
PRGS(:,:,:) = PRGS(:,:,:) / PTSTEP
PRHS(:,:,:) = PRHS(:,:,:) / PTSTEP
+ IF(NMOM_S.GE.2) PCSS(:,:,:) = PCSS(:,:,:) / PTSTEP
+ IF(NMOM_G.GE.2) PCGS(:,:,:) = PCGS(:,:,:) / PTSTEP
+ IF(NMOM_H.GE.2) PCHS(:,:,:) = PCHS(:,:,:) / PTSTEP
END IF
END IF
END DO
!++cb++
DEALLOCATE(ZRTMIN)
+DEALLOCATE(ZCTMIN)
!--cb--
!
END SUBROUTINE LIMA_COLD_SEDIMENTATION
diff --git a/src/mesonh/micro/lima_cold_slow_processes.f90 b/src/mesonh/micro/lima_cold_slow_processes.f90
index 9fcacdd5a..0f74d6562 100644
--- a/src/mesonh/micro/lima_cold_slow_processes.f90
+++ b/src/mesonh/micro/lima_cold_slow_processes.f90
@@ -12,7 +12,7 @@ INTERFACE
PRHODREF, PEXNREF, PPABST, &
PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
PTHS, PRVS, PRIS, PRSS, &
- PCIT, PCIS )
+ PCIT, PCIS, PCST, PCSS )
!
REAL, INTENT(IN) :: PTSTEP ! Time step
INTEGER, INTENT(IN) :: KMI ! Model index
@@ -37,8 +37,10 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIT ! Ice crystal C. at t
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(IN) :: PCST ! Ice crystal C. at t
!
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregates C. source
!
END SUBROUTINE LIMA_COLD_SLOW_PROCESSES
END INTERFACE
@@ -49,7 +51,7 @@ END MODULE MODI_LIMA_COLD_SLOW_PROCESSES
PRHODREF, PEXNREF, PPABST, &
PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
PTHS, PRVS, PRIS, PRSS, &
- PCIT, PCIS )
+ PCIT, PCIS, PCST, PCSS )
! ################################################################################
!
!! PURPOSE
@@ -80,6 +82,8 @@ END MODULE MODI_LIMA_COLD_SLOW_PROCESSES
! P. Wautelet 05/2016-04/2018: new data structures and calls for I/O
! P. Wautelet 28/05/2019: move COUNTJV function to tools.f90
! P. Wautelet 03/2020: use the new data structures and subroutines for budgets
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!
!-------------------------------------------------------------------------------
!
@@ -92,18 +96,19 @@ use modd_budget, only: lbu_enable, nbumod,
tbudgets
USE MODD_CST, ONLY: XP00, XRD, XRV, XMV, XMD, XCPD, XCPV, &
XCL, XCI, XTT, XLSTT, XALPI, XBETAI, XGAMI
-USE MODD_NSV, ONLY: NSV_LIMA_NI
+USE MODD_NSV, ONLY: NSV_LIMA_NI, NSV_LIMA_NS
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
-USE MODD_PARAM_LIMA, ONLY: LSNOW, XRTMIN, XCTMIN, XALPHAI, XALPHAS, &
- XNUI
-USE MODD_PARAM_LIMA_COLD, ONLY: XLBI, XLBEXI, XLBS, XLBEXS, XBI, XCXS, XCCS, &
+USE MODD_PARAM_LIMA, ONLY: LSNOW, LSNOW_T, XRTMIN, XCTMIN, &
+ XALPHAI, XALPHAS, XNUI, XNUS, NMOM_S
+USE MODD_PARAM_LIMA_COLD, ONLY: XLBI, XLBEXI, XLBS, XLBEXS, XNS, XBI, XCXS, XCCS, &
XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
XSCFAC, X1DEPS, X0DEPS, XEX1DEPS, XEX0DEPS, &
XDICNVS_LIM, XLBDAICNVS_LIM, &
XC0DEPIS, XC1DEPIS, XR0DEPIS, XR1DEPIS, &
XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
- XAGGS_RLARGE1, XAGGS_RLARGE2
+ XAGGS_RLARGE1, XAGGS_RLARGE2, XBS, &
+ XLBDAS_MIN,XFVELOS,XTRANS_MP_GAMMAS
use mode_budget, only: Budget_store_init, Budget_store_end
use mode_tools, only: Countjv
@@ -135,8 +140,10 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRIS ! Pristine ice m.r. source
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRSS ! Snow/aggregate m.r. source
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIT ! Ice crystal C. at t
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(IN) :: PCST ! Snow/aggregates C. at t
!
REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PCIS ! Ice crystal C. source
+REAL, DIMENSION(:,:,:),OPTIONAL, INTENT(INOUT) :: PCSS ! Snow/aggregates C. source
!
!* 0.2 Declarations of local variables :
!
@@ -154,6 +161,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZRST ! Snow/aggregate m.r. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZRGT ! Graupel/hail m.r. at t
!
REAL, DIMENSION(:), ALLOCATABLE :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCST ! Snow/aggregate conc. at t !
!
REAL, DIMENSION(:), ALLOCATABLE :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), ALLOCATABLE :: ZRIS ! Pristine ice m.r. source
@@ -162,6 +170,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZRSS ! Snow/aggregate m.r. source
REAL, DIMENSION(:), ALLOCATABLE :: ZTHS ! Theta source
!
REAL, DIMENSION(:), ALLOCATABLE :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), ALLOCATABLE :: ZCSS ! Snow/aggregates conc. source
!
REAL, DIMENSION(:), ALLOCATABLE &
:: ZRHODREF, & ! RHO Dry REFerence
@@ -246,6 +255,8 @@ IF( IMICRO >= 1 ) THEN
ALLOCATE(ZTHS(IMICRO))
!
ALLOCATE(ZCIS(IMICRO))
+ ALLOCATE(ZCST(IMICRO))
+ ALLOCATE(ZCSS(IMICRO))
!
ALLOCATE(ZRHODREF(IMICRO))
ALLOCATE(ZZT(IMICRO))
@@ -268,6 +279,10 @@ IF( IMICRO >= 1 ) THEN
ZTHS(JL) = PTHS(I1(JL),I2(JL),I3(JL))
!
ZCIS(JL) = PCIS(I1(JL),I2(JL),I3(JL))
+ if (NMOM_S.GE.2) then
+ ZCST(JL) = PCST(I1(JL),I2(JL),I3(JL))
+ ZCSS(JL) = PCSS(I1(JL),I2(JL),I3(JL))
+ end if
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
@@ -316,9 +331,27 @@ IF( IMICRO >= 1 ) THEN
ZLBDAI(:) = ( XLBI*ZCIT(:) / ZRIT(:) )**XLBEXI
END WHERE
ZLBDAS(:) = 1.E10
- WHERE (ZRST(:)>XRTMIN(5) )
- ZLBDAS(:) = XLBS*( ZRHODREF(:)*ZRST(:) )**XLBEXS
- END WHERE
+ IF (LSNOW_T .AND. NMOM_S.EQ.1) THEN
+ WHERE(ZZT(:)>263.15 .AND. ZRST(:)>XRTMIN(5))
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZZT(:))),XLBDAS_MIN)
+ END WHERE
+ WHERE(ZZT(:)<=263.15 .AND. ZRST(:)>XRTMIN(5))
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZZT(:))),XLBDAS_MIN)
+ END WHERE
+ ZLBDAS(:) = ZLBDAS(:) * XTRANS_MP_GAMMAS
+ ZCST(:) = (XNS*ZRST(:)*ZLBDAS(:)**XBS)
+ ZCSS(:) = (XNS*ZRSS(:)*ZLBDAS(:)**XBS)
+ ELSE IF (NMOM_S.GE.2) THEN
+ WHERE (ZRST(:)>XRTMIN(5) .AND. ZCST(:)>XCTMIN(5))
+ ZLBDAS(:) = ( XLBS*ZCST(:) / ZRST(:) )**XLBEXS
+ END WHERE
+ ELSE
+ WHERE (ZRST(:)>XRTMIN(5) )
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX,XLBS*( ZRHODREF(:)*ZRST(:) )**XLBEXS),XLBDAS_MIN)
+ END WHERE
+ ZCST(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:)
+ ZCSS(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:)
+ END IF
!
ZKA(:) = 2.38E-2 + 0.0071E-2 * ( ZZT(:) - XTT ) ! k_a
ZDV(:) = 0.211E-4 * (ZZT(:)/XTT)**1.94 * (XP00/ZPRES(:)) ! D_v
@@ -340,25 +373,23 @@ IF( IMICRO >= 1 ) THEN
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'CNVI', prss(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) &
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVI', pcis(:, :, :) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2) &
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVI', pcss(:, :, :) * prhodj(:, :, :) )
end if
-
- WHERE ( ZRST(:)>XRTMIN(5) )
- ZLBDAS(:) = MIN( XLBDAS_MAX, &
- XLBS*( ZRHODREF(:)*MAX( ZRST(:),XRTMIN(5) ) )**XLBEXS )
- END WHERE
+!
ZZW(:) = 0.0
- WHERE ( ZLBDAS(:)<XLBDASCNVI_MAX .AND. (ZRST(:)>XRTMIN(5)) &
- .AND. (ZSSI(:)<0.0) )
+ WHERE ( ZLBDAS(:)<XLBDASCNVI_MAX .AND. (ZRST(:)>XRTMIN(5)) .AND.(ZCST(:)>XCTMIN(5)) &
+ .AND. (ZSSI(:)<0.0) )
ZZW(:) = (ZLBDAS(:)*XDSCNVI_LIM)**(XALPHAS)
- ZZX(:) = ( -ZSSI(:)/ZAI(:) ) * (XCCS*ZLBDAS(:)**XCXS)/ZRHODREF(:) * (ZZW(:)**XNUI) &
- * EXP(-ZZW(:))
+ ZZX(:) = ( -ZSSI(:)/ZAI(:) ) * (ZCST(:)) * (ZZW(:)**XNUS) * EXP(-ZZW(:))
!
ZZW(:) = MIN( ( XR0DEPSI+XR1DEPSI*ZCJ(:) )*ZZX(:),ZRSS(:) )
ZRIS(:) = ZRIS(:) + ZZW(:)
ZRSS(:) = ZRSS(:) - ZZW(:)
!
- ZZW(:) = ZZW(:)*( XC0DEPSI+XC1DEPSI*ZCJ(:) )/( XR0DEPSI+XR1DEPSI*ZCJ(:) )
+ ZZW(:) = MIN(ZZW(:)*( XC0DEPSI+XC1DEPSI*ZCJ(:) )/( XR0DEPSI+XR1DEPSI*ZCJ(:)),ZCSS(:) )
ZCIS(:) = ZCIS(:) + ZZW(:)
+ ZCSS(:) = ZCSS(:) - ZZW(:)
END WHERE
!
! Budget storage
@@ -369,6 +400,9 @@ IF( IMICRO >= 1 ) THEN
Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVI', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2 ) &
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVI', &
+ Unpack( zcss(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
!
!
@@ -383,15 +417,17 @@ IF( IMICRO >= 1 ) THEN
end if
ZZW(:) = 0.0
- WHERE ( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>ZRTMIN(5)) )
- ZZW(:) = ( ZSSI(:)/(ZRHODREF(:)*ZAI(:)) ) * &
- ( X0DEPS*ZLBDAS(:)**XEX0DEPS + X1DEPS*ZCJ(:)*ZLBDAS(:)**XEX1DEPS )
- ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
- - MIN( ZRSS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
- ZRSS(:) = ZRSS(:) + ZZW(:)
- ZRVS(:) = ZRVS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
- END WHERE
+ WHERE ( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>ZRTMIN(5)) )
+ ZZW(:) = ( ZSSI(:)/(ZRHODREF(:)*ZAI(:)) ) * ZCST(:) * &
+ ( X0DEPS*ZLBDAS(:)**XEX0DEPS + &
+ X1DEPS*ZCJ(:)*ZLBDAS(:)**XEX1DEPS * &
+ (1+0.5*(XFVELOS/ZLBDAS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) )
+ ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
+ - MIN( ZRSS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
+ ZRSS(:) = ZRSS(:) + ZZW(:)
+ ZRVS(:) = ZRVS(:) - ZZW(:)
+ ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
+ END WHERE
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'DEPS', &
@@ -412,25 +448,27 @@ IF( IMICRO >= 1 ) THEN
Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVS', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVS', &
+ Unpack( zcss(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
ZZW(:) = 0.0
WHERE ( (ZLBDAI(:)<XLBDAICNVS_LIM) .AND. (ZCIT(:)>XCTMIN(4)) &
- .AND. (ZSSI(:)>0.0) )
+ .AND. (ZSSI(:)>0.0) )
ZZW(:) = (ZLBDAI(:)*XDICNVS_LIM)**(XALPHAI)
ZZX(:) = ( ZSSI(:)/ZAI(:) )*ZCIT(:) * (ZZW(:)**XNUI) *EXP(-ZZW(:))
!
! Correction BVIE
! ZZW(:) = MAX( MIN( ( XR0DEPIS + XR1DEPIS*ZCJ(:) )*ZZX(:)/ZRHODREF(:) &
- ZZW(:) = MAX( MIN( ( XR0DEPIS + XR1DEPIS*ZCJ(:) )*ZZX(:) &
- ,ZRIS(:) ) + ZRTMIN(5), ZRTMIN(5) ) - ZRTMIN(5)
+ ZZW(:) = MAX( MIN( ( XR0DEPIS + XR1DEPIS*ZCJ(:) )*ZZX(:) , ZRIS(:) ) , 0. )
ZRIS(:) = ZRIS(:) - ZZW(:)
ZRSS(:) = ZRSS(:) + ZZW(:)
!
ZZW(:) = MIN( ZZW(:)*(( XC0DEPIS+XC1DEPIS*ZCJ(:) ) &
- /( XR0DEPIS+XR1DEPIS*ZCJ(:) )),ZCIS(:) )
+ /( XR0DEPIS+XR1DEPIS*ZCJ(:) )),ZCIS(:) )
ZCIS(:) = ZCIS(:) - ZZW(:)
- END WHERE
+ ZCSS(:) = ZCSS(:) + ZZW(:)
+ END WHERE
!
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
@@ -440,6 +478,8 @@ IF( IMICRO >= 1 ) THEN
Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CNVS', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .AND. NMOM_S.GE.2 ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CNVS', &
+ Unpack( zcss(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
!
!
@@ -454,12 +494,11 @@ IF( IMICRO >= 1 ) THEN
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'AGGS', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
end if
-
+!
WHERE ( (ZRIT(:)>XRTMIN(4)) .AND. (ZRST(:)>XRTMIN(5)) .AND. (ZRIS(:)>ZRTMIN(4)) &
- .AND. (ZCIS(:)>ZCTMIN(4)) )
+ .AND. (ZCIS(:)>ZCTMIN(4)) )
ZZW1(:,3) = (ZLBDAI(:) / ZLBDAS(:))**3
- ZZW1(:,1) = (ZCIT(:)*(XCCS*ZLBDAS(:)**XCXS)/ZRHODREF(:)*EXP( XCOLEXIS*(ZZT(:)-XTT) )) &
- / (ZLBDAI(:)**3)
+ ZZW1(:,1) = (ZCIT(:)*ZCST(:)*EXP( XCOLEXIS*(ZZT(:)-XTT) )) / (ZLBDAI(:)**3)
ZZW1(:,2) = MIN( ZZW1(:,1)*(XAGGS_CLARGE1+XAGGS_CLARGE2*ZZW1(:,3)),ZCIS(:) )
ZCIS(:) = ZCIS(:) - ZZW1(:,2)
!
@@ -493,6 +532,11 @@ IF( IMICRO >= 1 ) THEN
!
ZW(:,:,:) = PCIS(:,:,:)
PCIS(:,:,:) = UNPACK( ZCIS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ if (NMOM_S.GE.2) then
+ ZW(:,:,:) = PCSS(:,:,:)
+ PCSS(:,:,:) = UNPACK( ZCSS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
+
!
ZW(:,:,:) = PTHS(:,:,:)
PTHS(:,:,:) = UNPACK( ZTHS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
@@ -508,7 +552,9 @@ IF( IMICRO >= 1 ) THEN
DEALLOCATE(ZRIS)
DEALLOCATE(ZRSS)
DEALLOCATE(ZTHS)
- DEALLOCATE(ZCIS)
+ DEALLOCATE(ZCIS)
+ DEALLOCATE(ZCSS)
+ DEALLOCATE(ZCST)
DEALLOCATE(ZRHODREF)
DEALLOCATE(ZZT)
DEALLOCATE(ZPRES)
diff --git a/src/mesonh/micro/lima_collisional_ice_breakup.f90 b/src/mesonh/micro/lima_collisional_ice_breakup.f90
new file mode 100644
index 000000000..3c22bf960
--- /dev/null
+++ b/src/mesonh/micro/lima_collisional_ice_breakup.f90
@@ -0,0 +1,419 @@
+!MNH_LIC Copyright 2018-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-------------------------------------------------------------------------------
+! ########################################
+ MODULE MODI_LIMA_COLLISIONAL_ICE_BREAKUP
+! ########################################
+!
+INTERFACE
+ SUBROUTINE LIMA_COLLISIONAL_ICE_BREAKUP (LDCOMPUTE, &
+ PRHODREF, &
+ PRIT, PRST, PRGT, PCIT, PCST, PCGT, &
+ PLBDS, PLBDG, &
+ P_RI_CIBU, P_CI_CIBU )
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRIT
+REAL, DIMENSION(:), INTENT(IN) :: PRST
+REAL, DIMENSION(:), INTENT(IN) :: PRGT
+REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
+REAL, DIMENSION(:), INTENT(IN) :: PCGT
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS
+REAL, DIMENSION(:), INTENT(IN) :: PLBDG
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CIBU
+REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CIBU
+!
+END SUBROUTINE LIMA_COLLISIONAL_ICE_BREAKUP
+END INTERFACE
+END MODULE MODI_LIMA_COLLISIONAL_ICE_BREAKUP
+!
+! #######################################################################
+ SUBROUTINE LIMA_COLLISIONAL_ICE_BREAKUP (LDCOMPUTE, &
+ PRHODREF, &
+ PRIT, PRST, PRGT, PCIT, PCST, PCGT, &
+ PLBDS, PLBDG, &
+ P_RI_CIBU, P_CI_CIBU )
+! #######################################################################
+!
+!! PURPOSE
+!! -------
+!! Compute the collisional ice break-up (secondary ice production process)
+!!
+!! AUTHOR
+!! ------
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!! T. Hoarau * Laboratoire d'Aerologie*
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 04/2022 duplicate from original for LIMA_SPLIT
+! B. Vié 04/2022 Adapt to the new snow characteristics
+!
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_PARAM_LIMA, ONLY : LCIBU, XRTMIN, XCTMIN, XCEXVT, XALPHAS, XNUS, XNDEBRIS_CIBU
+
+USE MODD_PARAM_LIMA_COLD, ONLY : XBS, XCS, XDS, XFVELOS, XMNU0
+USE MODD_PARAM_LIMA_MIXED, ONLY : XCG, XDG, XCXG, &
+ XCIBUINTP_S, XCIBUINTP1_S, XCIBUINTP2_S, &
+ XCIBUINTP_G, XCIBUINTP1_G, &
+ XFACTOR_CIBU_NI, XFACTOR_CIBU_RI, &
+ XMOMGG_CIBU_1, XMOMGG_CIBU_2, &
+ XMOMGS_CIBU_1, XMOMGS_CIBU_2, XMOMGS_CIBU_3, &
+ NGAMINC, XGAMINC_CIBU_S, XGAMINC_CIBU_G
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRIT
+REAL, DIMENSION(:), INTENT(IN) :: PRST
+REAL, DIMENSION(:), INTENT(IN) :: PRGT
+REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
+REAL, DIMENSION(:), INTENT(IN) :: PCGT
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS
+REAL, DIMENSION(:), INTENT(IN) :: PLBDG
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_RI_CIBU
+REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CIBU
+!
+!
+!* 0.2 Declarations of local variables :
+!
+LOGICAL, DIMENSION(SIZE(PRST)) :: GCIBU ! Test where to compute collision process
+LOGICAL, SAVE :: GFIRSTCALL = .TRUE. ! control switch for the first call
+!
+INTEGER :: ICIBU
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC2_S1,IVEC2_S2 ! Snow indice vector
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC2_G ! Graupel indice vector
+INTEGER, PARAMETER :: I_SEED_PARAM = 26032012
+INTEGER, DIMENSION(:), ALLOCATABLE :: I_SEED
+INTEGER :: NI_SEED
+!
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_S, ZVEC1_SW, ZVEC1_S1, ZVEC1_S2, & ! Work vectors
+ ZVEC1_S3, ZVEC1_S4, &
+ ZVEC1_S11, ZVEC1_S12, & ! for snow
+ ZVEC1_S21, ZVEC1_S22, &
+ ZVEC1_S31, ZVEC1_S32, &
+ ZVEC1_S41, ZVEC1_S42, &
+ ZVEC2_S1, ZVEC2_S2
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_G, ZVEC1_G1, ZVEC1_G2, & ! Work vectors
+ ZVEC2_G ! for graupel
+REAL, DIMENSION(:), ALLOCATABLE :: ZFRAGMENTS, ZHARVEST
+REAL, DIMENSION(SIZE(PRST)) :: ZINTG_SNOW_1, & ! incomplete gamma function
+ ZINTG_SNOW_2, & ! for snow
+ ZINTG_SNOW_3, &
+ ZINTG_SNOW_4
+REAL, DIMENSION(SIZE(PRST)) :: ZINTG_GRAUPEL_1, & ! incomplete gamma
+ ZINTG_GRAUPEL_2 ! function for graupel
+REAL, DIMENSION(SIZE(PRST)) :: ZNI_CIBU, ZRI_CIBU ! CIBU rates
+REAL, DIMENSION(SIZE(PRST)) :: ZFRAG_CIBU
+REAL :: ZFACT1_XNDEBRIS, ZFACT2_XNDEBRIS
+!
+!-------------------------------------------------------------------------------
+
+GCIBU(:) = LCIBU .AND. (PRST(:)>XRTMIN(5)) .AND. (PRGT(:)>XRTMIN(6)) .AND. LDCOMPUTE(:)
+ICIBU = COUNT( GCIBU(:) )
+!
+P_RI_CIBU(:)=0.
+P_CI_CIBU(:)=0.
+!
+IF (ICIBU > 0) THEN
+!
+! 1.3.0 randomization of XNDEBRIS_CIBU values
+!
+ IF (GFIRSTCALL) THEN
+ CALL RANDOM_SEED(SIZE=NI_SEED) ! get size of seed
+ ALLOCATE(I_SEED(NI_SEED))
+ I_SEED(:) = I_SEED_PARAM !
+ CALL RANDOM_SEED(PUT=I_SEED)
+ GFIRSTCALL = .FALSE.
+ END IF
+!
+ ALLOCATE(ZFRAGMENTS(ICIBU))
+!
+ IF (XNDEBRIS_CIBU >= 0.0) THEN
+ ZFRAGMENTS(:) = XNDEBRIS_CIBU
+ ELSE
+!
+! Mantissa gives the mean value (randomization around 10**MANTISSA)
+! First digit after the comma provides the full range around 10**MANTISSA
+!
+ ALLOCATE(ZHARVEST(ICIBU))
+!
+ ZFACT1_XNDEBRIS = AINT(XNDEBRIS_CIBU)
+ ZFACT2_XNDEBRIS = ABS(ANINT(10.0*(XNDEBRIS_CIBU - ZFACT1_XNDEBRIS)))
+!
+ CALL RANDOM_NUMBER(ZHARVEST(:))
+!
+ ZFRAGMENTS(:) = 10.0**(ZFACT2_XNDEBRIS*ZHARVEST(:) + ZFACT1_XNDEBRIS)
+!
+ DEALLOCATE(ZHARVEST)
+!
+! ZFRAGMENTS is a random variable containing the number of fragments per collision
+! For XNDEBRIS_CIBU=-1.2345 => ZFRAGMENTS(:) = 10.0**(2.0*RANDOM_NUMBER(ZHARVEST(:)) - 1.0)
+! and ZFRAGMENTS=[0.1, 10.0] centered around 1.0
+!
+ END IF
+!
+!
+! 1.3.1 To compute the partial integration of snow gamma function
+!
+! 1.3.1.0 allocations
+!
+ ALLOCATE(ZVEC1_S(ICIBU))
+ ALLOCATE(ZVEC1_SW(ICIBU))
+ ALLOCATE(ZVEC1_S1(ICIBU))
+ ALLOCATE(ZVEC1_S2(ICIBU))
+ ALLOCATE(ZVEC1_S3(ICIBU))
+ ALLOCATE(ZVEC1_S4(ICIBU))
+ ALLOCATE(ZVEC1_S11(ICIBU))
+ ALLOCATE(ZVEC1_S12(ICIBU))
+ ALLOCATE(ZVEC1_S21(ICIBU))
+ ALLOCATE(ZVEC1_S22(ICIBU))
+ ALLOCATE(ZVEC1_S31(ICIBU))
+ ALLOCATE(ZVEC1_S32(ICIBU))
+ ALLOCATE(ZVEC1_S41(ICIBU))
+ ALLOCATE(ZVEC1_S42(ICIBU))
+ ALLOCATE(ZVEC2_S1(ICIBU))
+ ALLOCATE(IVEC2_S1(ICIBU))
+ ALLOCATE(ZVEC2_S2(ICIBU))
+ ALLOCATE(IVEC2_S2(ICIBU))
+!
+!
+! 1.3.1.1 select the PLBDS
+!
+ ZVEC1_S(:) = PACK( PLBDS(:),MASK=GCIBU(:) )
+ ZVEC1_SW(:)= ( XFVELOS**XALPHAS + ZVEC1_S(:)**XALPHAS ) ** (1./XALPHAS) ! modified equivalent lambda
+!
+!
+! 1.3.1.2 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 1 (0.2 mm)
+!
+ ZVEC2_S1(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_S(1:ICIBU) ) + XCIBUINTP1_S ) )
+ IVEC2_S1(1:ICIBU) = INT( ZVEC2_S1(1:ICIBU) )
+ ZVEC2_S1(1:ICIBU) = ZVEC2_S1(1:ICIBU) - FLOAT( IVEC2_S1(1:ICIBU) )
+!
+!
+! 1.3.1.3 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 2 (1 mm)
+!
+ ZVEC2_S2(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_S(1:ICIBU) ) + XCIBUINTP2_S ) )
+ IVEC2_S2(1:ICIBU) = INT( ZVEC2_S2(1:ICIBU) )
+ ZVEC2_S2(1:ICIBU) = ZVEC2_S2(1:ICIBU) - FLOAT( IVEC2_S2(1:ICIBU) )
+!
+!
+! 1.3.1.4 perform the linear interpolation of the
+! normalized "0"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S11(1:ICIBU) = XGAMINC_CIBU_S(1,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(1,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S12(1:ICIBU) = XGAMINC_CIBU_S(1,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(1,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! Computation of spectrum from 0.2 mm to 1 mm
+ ZVEC1_S1(1:ICIBU) = ZVEC1_S12(1:ICIBU) - ZVEC1_S11(1:ICIBU)
+!
+!
+! 1.3.1.5 perform the linear interpolation of the
+! normalized "XBS"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S31(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S32(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! From 0.2 mm to 1 mm we need
+ ZVEC1_S3(1:ICIBU) = XMOMGS_CIBU_2 * (ZVEC1_S32(1:ICIBU) - ZVEC1_S31(1:ICIBU))
+!
+!
+! 1.3.1.2 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 1 (0.2 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S1(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP1_S ) )
+ IVEC2_S1(1:ICIBU) = INT( ZVEC2_S1(1:ICIBU) )
+ ZVEC2_S1(1:ICIBU) = ZVEC2_S1(1:ICIBU) - FLOAT( IVEC2_S1(1:ICIBU) )
+!
+!
+! 1.3.1.3 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 2 (1 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S2(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP2_S ) )
+ IVEC2_S2(1:ICIBU) = INT( ZVEC2_S2(1:ICIBU) )
+ ZVEC2_S2(1:ICIBU) = ZVEC2_S2(1:ICIBU) - FLOAT( IVEC2_S2(1:ICIBU) )
+!
+!
+! 1.3.1.5 perform the linear interpolation of the
+! normalized "XDS"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S21(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S22(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! From 0.2 mm to 1 mm we need
+ ZVEC1_S2(1:ICIBU) = XMOMGS_CIBU_1 * (ZVEC1_S22(1:ICIBU) - ZVEC1_S21(1:ICIBU))
+!
+!
+! 1.3.1.6 perform the linear interpolation of the
+! normalized "XBS+XDS"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S41(1:ICIBU) = XGAMINC_CIBU_S(4,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(4,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S42(1:ICIBU) = XGAMINC_CIBU_S(4,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(4,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! From 0.2 mm to 1 mm we need
+ ZVEC1_S4(1:ICIBU) = XMOMGS_CIBU_3 * (ZVEC1_S42(1:ICIBU) - ZVEC1_S41(1:ICIBU))
+!
+ ZINTG_SNOW_1(:) = UNPACK ( VECTOR=ZVEC1_S1(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_SNOW_2(:) = UNPACK ( VECTOR=ZVEC1_S2(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_SNOW_3(:) = UNPACK ( VECTOR=ZVEC1_S3(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_SNOW_4(:) = UNPACK ( VECTOR=ZVEC1_S4(:),MASK=GCIBU,FIELD=0.0 )
+!
+!
+! 1.3.2 Compute the partial integration of graupel gamma function
+!
+! 1.3.2.0 allocations
+!
+ ALLOCATE(ZVEC1_G(ICIBU))
+ ALLOCATE(ZVEC1_G1(ICIBU))
+ ALLOCATE(ZVEC1_G2(ICIBU))
+ ALLOCATE(ZVEC2_G(ICIBU))
+ ALLOCATE(IVEC2_G(ICIBU))
+!
+!
+! 1.3.2.1 select the PLBDG
+!
+ ZVEC1_G(:) = PACK( PLBDG(:),MASK=GCIBU(:) )
+!
+!
+! 1.3.2.2 find the next lower indice for the PLBDG in the
+! geometrical set of Lbda_g used to tabulate some moments of the
+! incomplete gamma function, for the "2mm" boundary
+!
+ ZVEC2_G(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_G &
+ * LOG( ZVEC1_G(1:ICIBU) ) + XCIBUINTP1_G ) )
+ IVEC2_G(1:ICIBU) = INT( ZVEC2_G(1:ICIBU) )
+ ZVEC2_G(1:ICIBU) = ZVEC2_G(1:ICIBU) - FLOAT( IVEC2_G(1:ICIBU) )
+!
+!
+! 1.3.2.3 perform the linear interpolation of the
+! normalized "2+XDG"-moment of the incomplete gamma function
+!
+ ZVEC1_G1(1:ICIBU) = XGAMINC_CIBU_G(1,IVEC2_G(1:ICIBU)+1) * ZVEC2_G(1:ICIBU) &
+ - XGAMINC_CIBU_G(1,IVEC2_G(1:ICIBU)) * (ZVEC2_G(1:ICIBU)-1.0)
+!
+! From 2 mm to infinity we need
+ ZVEC1_G1(1:ICIBU) = XMOMGG_CIBU_1 * (1.0 - ZVEC1_G1(1:ICIBU))
+!
+!
+! 1.3.2.4 perform the linear interpolation of the
+! normalized "2.0"-moment of the incomplete gamma function
+!
+ ZVEC1_G2(1:ICIBU) = XGAMINC_CIBU_G(2,IVEC2_G(1:ICIBU)+1) * ZVEC2_G(1:ICIBU) &
+ - XGAMINC_CIBU_G(2,IVEC2_G(1:ICIBU)) * (ZVEC2_G(1:ICIBU)-1.0)
+!
+! From 2 mm to infinity we need
+ ZVEC1_G2(1:ICIBU) = XMOMGG_CIBU_2 * (1.0 - ZVEC1_G2(1:ICIBU))
+!
+!
+ ZINTG_GRAUPEL_1(:) = UNPACK ( VECTOR=ZVEC1_G1(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_GRAUPEL_2(:) = UNPACK ( VECTOR=ZVEC1_G2(:),MASK=GCIBU,FIELD=0.0 )
+!
+!
+! 1.3.3 To compute final "CIBU" contributions
+!
+ ZFRAG_CIBU(:) = UNPACK ( VECTOR=ZFRAGMENTS(:),MASK=GCIBU,FIELD=0.0 )
+ ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PCST(:) * PCGT(:) / (PRHODREF(:)**XCEXVT)) * &
+ (XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_1(:) * &
+ PLBDG(:)**(-(XDG+2.0)) &
+ - XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_2(:) * &
+ PLBDS(:)**(-XDS) * PLBDG(:)**(-2.0) * &
+ (1+(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS-XDS/XALPHAS) )
+
+ P_CI_CIBU(:) = MAX(ZNI_CIBU(:),0.)
+!
+ DEALLOCATE(ZFRAGMENTS)
+!
+! Max value of rs removed by CIBU
+ ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PCST(:) * PCGT(:) / (PRHODREF(:)**XCEXVT)) * &
+ (XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_3(:) * &
+ PLBDS(:)**(-XBS) * PLBDG(:)**(-(XDG+2.0)) &
+ - XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_4(:) * &
+ PLBDS(:)**(-XBS-XDS) * PLBDG(:)**(-2.0) * &
+ (1+(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS-(XBS+XDS)/XALPHAS) )
+!
+! The value of rs removed by CIBU is determined by the mean mass of pristine ice
+ WHERE( PRIT(:)>XRTMIN(4) .AND. PCIT(:)>XCTMIN(4) )
+ ZRI_CIBU(:) = MIN( ZRI_CIBU(:), ZNI_CIBU(:)*PRIT(:)/PCIT(:) )
+ ELSE WHERE
+ ZRI_CIBU(:) = MIN( ZRI_CIBU(:), MAX( ZNI_CIBU(:)*XMNU0,XRTMIN(4) ) )
+ END WHERE
+!
+ P_RI_CIBU(:) = MAX(ZRI_CIBU(:), 0.)
+!
+ DEALLOCATE(ZVEC1_S)
+ DEALLOCATE(ZVEC1_SW)
+ DEALLOCATE(ZVEC1_S1)
+ DEALLOCATE(ZVEC1_S2)
+ DEALLOCATE(ZVEC1_S3)
+ DEALLOCATE(ZVEC1_S4)
+ DEALLOCATE(ZVEC1_S11)
+ DEALLOCATE(ZVEC1_S12)
+ DEALLOCATE(ZVEC1_S21)
+ DEALLOCATE(ZVEC1_S22)
+ DEALLOCATE(ZVEC1_S31)
+ DEALLOCATE(ZVEC1_S32)
+ DEALLOCATE(ZVEC1_S41)
+ DEALLOCATE(ZVEC1_S42)
+ DEALLOCATE(ZVEC2_S1)
+ DEALLOCATE(IVEC2_S1)
+ DEALLOCATE(ZVEC2_S2)
+ DEALLOCATE(IVEC2_S2)
+ DEALLOCATE(ZVEC1_G)
+ DEALLOCATE(ZVEC1_G1)
+ DEALLOCATE(ZVEC1_G2)
+ DEALLOCATE(ZVEC2_G)
+ DEALLOCATE(IVEC2_G)
+END IF
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_COLLISIONAL_ICE_BREAKUP
diff --git a/src/mesonh/micro/lima_compute_cloud_fractions.f90 b/src/mesonh/micro/lima_compute_cloud_fractions.f90
index ce1cedeee..bc861da68 100644
--- a/src/mesonh/micro/lima_compute_cloud_fractions.f90
+++ b/src/mesonh/micro/lima_compute_cloud_fractions.f90
@@ -11,7 +11,9 @@ MODULE MODI_LIMA_COMPUTE_CLOUD_FRACTIONS
PCCT, PRCT, &
PCRT, PRRT, &
PCIT, PRIT, &
- PRST, PRGT, PRHT, &
+ PCST, PRST, &
+ PCGT, PRGT, &
+ PCHT, PRHT, &
PCLDFR, PICEFR, PPRCFR )
INTEGER, INTENT(IN) :: KIB !
INTEGER, INTENT(IN) :: KIE !
@@ -30,8 +32,13 @@ MODULE MODI_LIMA_COMPUTE_CLOUD_FRACTIONS
REAL, DIMENSION(:,:,:),INTENT(IN) :: PCIT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRIT !
!
+ REAL, DIMENSION(:,:,:),INTENT(IN) :: PCST !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRST !
+ !
+ REAL, DIMENSION(:,:,:),INTENT(IN) :: PCGT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRGT !
+ !
+ REAL, DIMENSION(:,:,:),INTENT(IN) :: PCHT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRHT !
!
REAL, DIMENSION(:,:,:),INTENT(INOUT) :: PCLDFR !
@@ -48,7 +55,9 @@ SUBROUTINE LIMA_COMPUTE_CLOUD_FRACTIONS (KIB, KIE, KJB, KJE, KKB, KKE, KKL, &
PCCT, PRCT, &
PCRT, PRRT, &
PCIT, PRIT, &
- PRST, PRGT, PRHT, &
+ PCST, PRST, &
+ PCGT, PRGT, &
+ PCHT, PRHT, &
PCLDFR, PICEFR, PPRCFR )
!################################################################
!
@@ -70,7 +79,8 @@ SUBROUTINE LIMA_COMPUTE_CLOUD_FRACTIONS (KIB, KIE, KJB, KJE, KKB, KKE, KKL, &
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XCTMIN, XRTMIN
+USE MODD_PARAM_LIMA, ONLY : XCTMIN, XRTMIN, &
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
!
IMPLICIT NONE
!
@@ -93,8 +103,13 @@ REAL, DIMENSION(:,:,:),INTENT(IN) :: PRRT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PCIT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRIT !
!
+REAL, DIMENSION(:,:,:),INTENT(IN) :: PCST !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRST !
+!
+REAL, DIMENSION(:,:,:),INTENT(IN) :: PCGT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRGT !
+!
+REAL, DIMENSION(:,:,:),INTENT(IN) :: PCHT !
REAL, DIMENSION(:,:,:),INTENT(IN) :: PRHT !
!
REAL, DIMENSION(:,:,:),INTENT(INOUT) :: PCLDFR !
@@ -111,11 +126,11 @@ INTEGER :: JI, JJ, JK
! ---------------
!
! Liquid cloud fraction is kept from input data, except where PCLDFR=0 and rc>0
-WHERE(PCLDFR(:,:,:)<1.E-10 .AND. PRCT(:,:,:)>XRTMIN(2) .AND. PCCT(:,:,:)>XCTMIN(2)) PCLDFR(:,:,:)=1.
+WHERE(PCLDFR(:,:,:)<1.E-10 .AND. PRCT(:,:,:)>XRTMIN(2) .AND. (NMOM_C.EQ.1 .OR. PCCT(:,:,:)>XCTMIN(2))) PCLDFR(:,:,:)=1.
!
! Ice cloud fraction is currently 0 or 1
PICEFR(:,:,:)=0.
-WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(4)) PICEFR(:,:,:)=1.
+WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. (NMOM_I.EQ.1 .OR. PCIT(:,:,:)>XCTMIN(4))) PICEFR(:,:,:)=1.
!
! Precipitation fraction
!!$PPRCFR(:,:,:) = MAX(PCLDFR(:,:,:),PICEFR(:,:,:))
@@ -163,10 +178,10 @@ WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(
!!$ PRHT(:,:,:).GT.XRTMIN(7) ) PPRCFR(:,:,:) = 1.
!!$
PPRCFR(:,:,:) = 0.
-WHERE ( (PRRT(:,:,:).GT.0. .AND. PCRT(:,:,:).GT.0.) .OR. &
- PRST(:,:,:).GT.0. .OR. &
- PRGT(:,:,:).GT.0. .OR. &
- PRHT(:,:,:).GT.0. ) PPRCFR(:,:,:) = 1.
+WHERE ( (PRRT(:,:,:).GT.0. .AND. (NMOM_R.EQ.1 .OR. PCRT(:,:,:).GT.0.) ) .OR. &
+ (PRST(:,:,:).GT.0. .AND. (NMOM_S.EQ.1 .OR. PCST(:,:,:).GT.0.) ) .OR. &
+ (PRGT(:,:,:).GT.0. .AND. (NMOM_G.EQ.1 .OR. PCGT(:,:,:).GT.0.) ) .OR. &
+ (PRHT(:,:,:).GT.0. .AND. (NMOM_H.EQ.1 .OR. PCHT(:,:,:).GT.0.) ) ) PPRCFR(:,:,:) = 1.
!
!-------------------------------------------------------------------------------
!
diff --git a/src/mesonh/micro/lima_conversion_melting_snow.f90 b/src/mesonh/micro/lima_conversion_melting_snow.f90
index ff5a69146..454df3eba 100644
--- a/src/mesonh/micro/lima_conversion_melting_snow.f90
+++ b/src/mesonh/micro/lima_conversion_melting_snow.f90
@@ -10,8 +10,8 @@
INTERFACE
SUBROUTINE LIMA_CONVERSION_MELTING_SNOW (LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
- PRVT, PRST, PLBDS, &
- P_RS_CMEL )
+ PRVT, PRST, PCST, PLBDS, &
+ P_RS_CMEL, P_CS_CMEL )
!
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
!
@@ -23,10 +23,12 @@ REAL, DIMENSION(:), INTENT(IN) :: PDV !
REAL, DIMENSION(:), INTENT(IN) :: PCJ !
!
REAL, DIMENSION(:), INTENT(IN) :: PRVT !
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
!
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_CMEL
!
END SUBROUTINE LIMA_CONVERSION_MELTING_SNOW
END INTERFACE
@@ -35,8 +37,8 @@ END MODULE MODI_LIMA_CONVERSION_MELTING_SNOW
! ##############################################################################
SUBROUTINE LIMA_CONVERSION_MELTING_SNOW (LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
- PRVT, PRST, PLBDS, &
- P_RS_CMEL )
+ PRVT, PRST, PCST, PLBDS, &
+ P_RS_CMEL, P_CS_CMEL )
! ##############################################################################
!
!! PURPOSE
@@ -55,15 +57,16 @@ END MODULE MODI_LIMA_CONVERSION_MELTING_SNOW
!! -------------
!! Original 15/03/2018
!!
+! J. Wurtz 03/2022: new snow characteristics
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_CST, ONLY : XTT, XMV, XMD, XLVTT, XCPV, XCL, XESTT, XRV
-USE MODD_PARAM_LIMA, ONLY : XRTMIN
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XNUS, XALPHAS
USE MODD_PARAM_LIMA_MIXED, ONLY : XFSCVMG
-USE MODD_PARAM_LIMA_COLD, ONLY : X0DEPS, XEX0DEPS, X1DEPS, XEX1DEPS
+USE MODD_PARAM_LIMA_COLD, ONLY : X0DEPS, XEX0DEPS, X1DEPS, XEX1DEPS, XBS, XFVELOS
!
IMPLICIT NONE
!
@@ -79,10 +82,12 @@ REAL, DIMENSION(:), INTENT(IN) :: PDV !
REAL, DIMENSION(:), INTENT(IN) :: PCJ !
!
REAL, DIMENSION(:), INTENT(IN) :: PRVT !
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
!
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_CMEL
!
!* 0.2 Declarations of local variables :
!
@@ -96,6 +101,7 @@ REAL, DIMENSION(SIZE(PRST)) :: ZW ! work arrays
!
!
P_RS_CMEL(:)=0.
+P_CS_CMEL(:)=0.
!
ZW(:) = 0.0
WHERE( (PRST(:)>XRTMIN(5)) .AND. (PT(:)>XTT) .AND. LDCOMPUTE(:) )
@@ -106,12 +112,14 @@ WHERE( (PRST(:)>XRTMIN(5)) .AND. (PT(:)>XTT) .AND. LDCOMPUTE(:) )
!
! compute RSMLT
!
- ZW(:) = XFSCVMG*MAX( 0.0,( -ZW(:) * &
- ( X0DEPS* PLBDS(:)**XEX0DEPS + &
- X1DEPS*PCJ(:)*PLBDS(:)**XEX1DEPS ) ))!- &
+ ZW(:) = XFSCVMG*MAX( 0.0,( -ZW(:) * PCST(:) * &
+ ( X0DEPS*PLBDS(:)**XEX0DEPS + &
+ X1DEPS*PCJ(:)*PLBDS(:)**XEX1DEPS * &
+ (1+0.5*(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS)) ))
! On ne tient pas compte de la collection de pluie et gouttelettes par la neige si T>0 !!!!
! Note that no heat is exchanged because the graupeln produced are still icy!!!
P_RS_CMEL(:) = - ZW(:)
+ P_CS_CMEL(:) = - ZW(:) * PCST(:) / PRST(:)
!
END WHERE
!
diff --git a/src/mesonh/micro/lima_droplets_accretion.f90 b/src/mesonh/micro/lima_droplets_accretion.f90
index 8996b5425..c7a4232fd 100644
--- a/src/mesonh/micro/lima_droplets_accretion.f90
+++ b/src/mesonh/micro/lima_droplets_accretion.f90
@@ -58,16 +58,18 @@ END MODULE MODI_LIMA_DROPLETS_ACCRETION
!! -------------
!! Original 15/03/2018
!!
+! Delbeke/Vie 03/2022 : KHKO option
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LKHKO, NMOM_C, NMOM_R, XCEXVT
USE MODD_PARAM_LIMA_WARM, ONLY : XLAUTR, XAUTO1, XLAUTR_THRESHOLD, &
XACCR4, XACCR5, XACCR3, XACCR2, XACCR1, &
XACCR_CLARGE1, XACCR_CLARGE2, XACCR_RLARGE1, XACCR_RLARGE2, &
- XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2
+ XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2, &
+ XFCACCR, XEXCACCR
!
IMPLICIT NONE
!
@@ -109,50 +111,79 @@ ZW2(:) = 0.0
ZW3(:) = 0.0
ZW4(:) = 0.0
!
-WHERE( PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. PRRT(:)>XRTMIN(3) .AND. PCRT(:)>XCTMIN(3) .AND. LDCOMPUTE(:) )
- ZW2(:) = MAX( 0.0,XLAUTR*PRHODREF(:)*PRCT(:)*(XAUTO1/PLBDC(:)**4-XLAUTR_THRESHOLD) ) ! L
- ZW4(:) = XACCR1/PLBDR(:)
-END WHERE
-!
-GACCR(:) = LDCOMPUTE(:) .AND. &
- PRRT(:)>XRTMIN(3) .AND. &
- PCRT(:)>XCTMIN(3) .AND. &
- PRCT(:)>XRTMIN(2) .AND. &
- PCCT(:)>XCTMIN(2) .AND. &
- (PRRT(:)>1.2*ZW2(:)/PRHODREF(:) .OR. &
+!
+!
+IF ( LKHKO ) THEN
+!
+ GACCR(:) = PRRT(:)>XRTMIN(3) .AND. &
+ PRCT(:)>XRTMIN(2) .AND. &
+ PCCT(:)>XCTMIN(2)
+!
+ WHERE ( GACCR(:) )
+!
+ ZW1(:) = 67.0 * ( PRCT(:) * PRRT(:) )**1.15
+ P_RC_ACCR(:) = - ZW1(:)
+!
+ ZW2(:) = ZW1(:) * PCCT(:) / PRCT(:)
+ P_CC_ACCR(:) = - ZW2(:)
+!
+ END WHERE
+!
+ELSE IF (NMOM_C.EQ.1 .AND. NMOM_R.EQ.1) THEN
+ GACCR(:) = PRRT(:)>XRTMIN(3) .AND. &
+ PRCT(:)>XRTMIN(2)
+ WHERE ( GACCR(:) )
+ P_RC_ACCR(:) = - XFCACCR * PRCT(:) &
+ * PLBDR(:)**XEXCACCR &
+ * PRHODREF(:)**(-XCEXVT)
+ END WHERE
+ELSE
+!
+ WHERE( PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. PRRT(:)>XRTMIN(3) .AND. PCRT(:)>XCTMIN(3) .AND. LDCOMPUTE(:) )
+ ZW2(:) = MAX( 0.0,XLAUTR*PRHODREF(:)*PRCT(:)*(XAUTO1/PLBDC(:)**4-XLAUTR_THRESHOLD) ) ! L
+ ZW4(:) = XACCR1/PLBDR(:)
+ END WHERE
+!
+ GACCR(:) = LDCOMPUTE(:) .AND. &
+ PRRT(:)>XRTMIN(3) .AND. &
+ PCRT(:)>XCTMIN(3) .AND. &
+ PRCT(:)>XRTMIN(2) .AND. &
+ PCCT(:)>XCTMIN(2) .AND. &
+ (PRRT(:)>1.2*ZW2(:)/PRHODREF(:) .OR. &
ZW4(:)>=MAX(XACCR2,XACCR3/(XACCR4/PLBDC(:)-XACCR5)) )
!
! Accretion for D>100 10-6 m
-WHERE( GACCR(:).AND.(ZW4(:)>1.E-4) )
- ZW3(:) = MIN(PLBDC3(:) / PLBDR3(:),1.E15)
- ZW1(:) = ( PCCT(:)*PCRT(:) / PLBDC3(:) )*PRHODREF(:)
- ZW2(:) = ZW1(:)*(XACCR_CLARGE1+XACCR_CLARGE2*ZW3(:))
+ WHERE( GACCR(:).AND.(ZW4(:)>1.E-4) )
+ ZW3(:) = MIN(PLBDC3(:) / PLBDR3(:),1.E15)
+ ZW1(:) = ( PCCT(:)*PCRT(:) / PLBDC3(:) )*PRHODREF(:)
+ ZW2(:) = ZW1(:)*(XACCR_CLARGE1+XACCR_CLARGE2*ZW3(:))
!
- P_CC_ACCR(:) = - ZW2(:)
+ P_CC_ACCR(:) = - ZW2(:)
!
- ZW1(:) = ( ZW1(:) / PLBDC3(:) )
- ZW2(:) = ZW1(:)*(XACCR_RLARGE1+XACCR_RLARGE2*ZW3(:))
+ ZW1(:) = ( ZW1(:) / PLBDC3(:) )
+ ZW2(:) = ZW1(:)*(XACCR_RLARGE1+XACCR_RLARGE2*ZW3(:))
!
- P_RC_ACCR(:) = - ZW2(:)
-END WHERE
+ P_RC_ACCR(:) = - ZW2(:)
+ END WHERE
!
! Accretion for D<100 10-6 m
-WHERE( GACCR(:).AND.(ZW4(:)<=1.E-4) )
- ZW3(:) = MIN(PLBDC3(:) / PLBDR3(:), 1.E8)
- ZW1(:) = ( PCCT(:)*PCRT(:) / PLBDC3(:) )*PRHODREF(:)
- ZW1(:) = ZW1(:)/PLBDC3(:)
+ WHERE( GACCR(:).AND.(ZW4(:)<=1.E-4) )
+ ZW3(:) = MIN(PLBDC3(:) / PLBDR3(:), 1.E8)
+ ZW1(:) = ( PCCT(:)*PCRT(:) / PLBDC3(:) )*PRHODREF(:)
+ ZW1(:) = ZW1(:)/PLBDC3(:)
- ZW3(:) = ZW3(:)**2
- ZW2(:) = ZW1(:)*(XACCR_CSMALL1+XACCR_CSMALL2*ZW3(:))
+ ZW3(:) = ZW3(:)**2
+ ZW2(:) = ZW1(:)*(XACCR_CSMALL1+XACCR_CSMALL2*ZW3(:))
!
- P_CC_ACCR(:) = - ZW2(:)
+ P_CC_ACCR(:) = - ZW2(:)
!
- ZW1(:) = ZW1(:) / PLBDC3(:)
- ZW2(:) = ZW1(:)*(XACCR_RSMALL1+XACCR_RSMALL2*ZW3(:))
+ ZW1(:) = ZW1(:) / PLBDC3(:)
+ ZW2(:) = ZW1(:)*(XACCR_RSMALL1+XACCR_RSMALL2*ZW3(:))
!
- P_RC_ACCR(:) = - ZW2(:)
-END WHERE
+ P_RC_ACCR(:) = - ZW2(:)
+ END WHERE
!
+END IF
!
!
!-------------------------------------------------------------------------------
diff --git a/src/mesonh/micro/lima_droplets_autoconversion.f90 b/src/mesonh/micro/lima_droplets_autoconversion.f90
index 044030f79..3fa32e7a6 100644
--- a/src/mesonh/micro/lima_droplets_autoconversion.f90
+++ b/src/mesonh/micro/lima_droplets_autoconversion.f90
@@ -53,15 +53,17 @@ END MODULE MODI_LIMA_DROPLETS_AUTOCONVERSION
!! -------------
!! Original 15/03/2018
!! B. Vie 02/03/2020 : missing CC process
+! Delbeke/Vie 03/2022 : KHKO option
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LKHKO, LKESSLERAC, NMOM_C
USE MODD_PARAM_LIMA_WARM, ONLY : XLAUTR, XAUTO1, XLAUTR_THRESHOLD, &
XITAUTR, XAUTO2, XITAUTR_THRESHOLD, &
- XACCR4, XACCR5, XACCR3, XACCR1, XAC
+ XACCR4, XACCR5, XACCR3, XACCR1, XAC, XR0
+USE MODD_CST, ONLY : XPI, XRHOLW
!
IMPLICIT NONE
!
@@ -86,13 +88,6 @@ REAL, DIMENSION(SIZE(PRCT)) :: ZW1, ZW2, ZW3 ! work arrays
!
!-------------------------------------------------------------------------------
!
-!
-!
-!* 1. Autoconversion of cloud droplets (Berry-Reinhardt parameterization)
-! ----------------------------------------------------------------------
-!
-!
-!
P_RC_AUTO(:) = 0.0
P_CC_AUTO(:) = 0.0
P_CR_AUTO(:) = 0.0
@@ -100,27 +95,55 @@ P_CR_AUTO(:) = 0.0
ZW3(:) = 0.0
ZW2(:) = 0.0
ZW1(:) = 0.0
-WHERE( PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. PLBDC(:)>0. .AND. LDCOMPUTE(:) )
- ZW2(:) = MAX( 0.0, &
+!
+IF (NMOM_C.EQ.1 .AND. LKESSLERAC) THEN
+ P_RC_AUTO(:) = - 1.E-3 * MAX ( PRCT(:) - 0.5E-3 / PRHODREF(:), 0. )
+ELSE IF (LKHKO) THEN
+!
+! 1. Autoconversion of cloud droplets (Berry-Reinhardt parameterization)
+! ----------------------------------------------------------------------
+!
+ WHERE ( PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. LDCOMPUTE(:) )
+!
+ ZW1(:)= 1350.0 * PRCT(:)**(2.47) * (PCCT(:)* PRHODREF(:)/1.0E6)**(-1.79) ! ZCCT in cm-3
+!
+ P_RC_AUTO(:) = - ZW1(:)
+!
+ ZW2(:) = ZW1(:) * 3./(4.*XPI*XRHOLW*(XR0)**(3.))
+ P_CR_AUTO(:) = ZW2(:)
+!
+ ZW3(:) = - ZW1(:) * PCCT(:) / PRCT(:)
+ P_CC_AUTO(:) = ZW3(:)
+!
+ END WHERE
+!
+ELSE
+!
+! 2. Autoconversion of cloud droplets (Berry-Reinhardt parameterization)
+! ----------------------------------------------------------------------
+!
+ WHERE( PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. PLBDC(:)>0. .AND. LDCOMPUTE(:) )
+ ZW2(:) = MAX( 0.0, &
XLAUTR*PRHODREF(:)*PRCT(:)*(XAUTO1/min(PLBDC(:),1.e9)**4-XLAUTR_THRESHOLD) ) ! L
!
- ZW3(:) = MAX( 0.0, &
+ ZW3(:) = MAX( 0.0, &
XITAUTR*ZW2(:)*PRCT(:)*(XAUTO2/PLBDC(:)-XITAUTR_THRESHOLD) ) ! L/tau
!
- P_RC_AUTO(:) = - ZW3(:)
+ P_RC_AUTO(:) = - ZW3(:)
!
- ZW1(:) = MIN( MIN( 1.2E4, &
- (XACCR4/PLBDC(:)-XACCR5)/XACCR3 ), &
- PLBDR(:)/XACCR1 ) ! D**-1 threshold diameter for
- ! switching the autoconversion regimes
- ! min (80 microns, D_h, D_r)
- ZW3(:) = ZW3(:) * MAX( 0.0,ZW1(:) )**3 / XAC
+ ZW1(:) = MIN( MIN( 1.2E4, &
+ (XACCR4/PLBDC(:)-XACCR5)/XACCR3 ), &
+ PLBDR(:)/XACCR1 ) ! D**-1 threshold diameter for
+ ! switching the autoconversion regimes
+ ! min (80 microns, D_h, D_r)
+ ZW3(:) = ZW3(:) * MAX( 0.0,ZW1(:) )**3 / XAC
!
- P_CC_AUTO(:) = -ZW3(:)
- P_CR_AUTO(:) = ZW3(:)
+ P_CC_AUTO(:) = -ZW3(:)
+ P_CR_AUTO(:) = ZW3(:)
!
-END WHERE
+ END WHERE
!
+END IF
!
!-------------------------------------------------------------------------------
!
diff --git a/src/mesonh/micro/lima_droplets_hom_freezing.f90 b/src/mesonh/micro/lima_droplets_hom_freezing.f90
index db27f466e..58e12b5f1 100644
--- a/src/mesonh/micro/lima_droplets_hom_freezing.f90
+++ b/src/mesonh/micro/lima_droplets_hom_freezing.f90
@@ -10,8 +10,7 @@ INTERFACE
SUBROUTINE LIMA_DROPLETS_HOM_FREEZING (PTSTEP, LDCOMPUTE, &
PT, PLVFACT, PLSFACT, &
PRCT, PCCT, PLBDC, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- PA_TH, PA_RC, PA_CC, PA_RI, PA_CI )
+ P_TH_HONC, P_RC_HONC, P_CC_HONC )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -28,12 +27,6 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_HONC
!
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
-!
END SUBROUTINE LIMA_DROPLETS_HOM_FREEZING
END INTERFACE
END MODULE MODI_LIMA_DROPLETS_HOM_FREEZING
@@ -42,8 +35,7 @@ END MODULE MODI_LIMA_DROPLETS_HOM_FREEZING
SUBROUTINE LIMA_DROPLETS_HOM_FREEZING (PTSTEP, LDCOMPUTE, &
PT, PLVFACT, PLSFACT, &
PRCT, PCCT, PLBDC, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- PA_TH, PA_RC, PA_CC, PA_RI, PA_CI )
+ P_TH_HONC, P_RC_HONC, P_CC_HONC )
! ##########################################################################
!
!! PURPOSE
@@ -91,12 +83,6 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_HONC
!
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
-REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
-!
!* 0.2 Declarations of local variables :
!
REAL, DIMENSION(SIZE(PT)) :: ZZW, ZZX, ZZY, ZTCELSIUS
@@ -130,13 +116,7 @@ WHERE ( (PT(:)<XTT-35.0) .AND. (PCCT(:)>XCTMIN(2)) .AND. (PRCT(:)>XRTMIN(2)) )
!
P_RC_HONC(:) = - ZZY(:)/PTSTEP
P_CC_HONC(:) = - ZZW(:)/PTSTEP
- P_TH_HONC(:) = P_RC_HONC(:) * (PLSFACT(:)-PLVFACT(:))
-!
- PA_TH(:) = PA_TH(:) + P_TH_HONC(:)
- PA_RC(:) = PA_RC(:) + P_RC_HONC(:)
- PA_CC(:) = PA_CC(:) + P_CC_HONC(:)
- PA_RI(:) = PA_RI(:) - P_RC_HONC(:)
- PA_CI(:) = PA_CI(:) - P_CC_HONC(:)
+! P_TH_HONC(:) = P_RC_HONC(:) * (PLSFACT(:)-PLVFACT(:))
!
END WHERE
!
diff --git a/src/mesonh/micro/lima_droplets_riming_snow.f90 b/src/mesonh/micro/lima_droplets_riming_snow.f90
index 6bef29df3..b9d765365 100644
--- a/src/mesonh/micro/lima_droplets_riming_snow.f90
+++ b/src/mesonh/micro/lima_droplets_riming_snow.f90
@@ -8,11 +8,11 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRCT, PCCT, PRST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS )
+ SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRCT, PCCT, PRST, PCST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -20,9 +20,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water mr at t
REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -32,6 +33,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_TH_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_RIM
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_RIM
!
REAL, DIMENSION(:), INTENT(OUT) :: P_RI_HMS
@@ -43,11 +45,11 @@ END INTERFACE
END MODULE MODI_LIMA_DROPLETS_RIMING_SNOW
!
! #########################################################################################
- SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRCT, PCCT, PRST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS )
+ SUBROUTINE LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRCT, PCCT, PRST, PCST, PLBDC, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS )
! #########################################################################################
!
!! PURPOSE
@@ -66,6 +68,7 @@ END MODULE MODI_LIMA_DROPLETS_RIMING_SNOW
!! -------------
!! Original 15/03/2018
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
+! J. Wurtz 03/2022: new snow characteristics
!
!-------------------------------------------------------------------------------
!
@@ -73,11 +76,11 @@ END MODULE MODI_LIMA_DROPLETS_RIMING_SNOW
! ------------
!
USE MODD_CST, ONLY : XTT
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCEXVT
-USE MODD_PARAM_LIMA_MIXED, ONLY : NGAMINC, XRIMINTP1, XRIMINTP2, XGAMINC_RIM1, XGAMINC_RIM2, &
- XCRIMSS, XEXCRIMSS, XSRIMCG, XEXSRIMCG, &
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCEXVT, XNUS, XALPHAS, LMURAKAMI
+USE MODD_PARAM_LIMA_MIXED, ONLY : NGAMINC, XRIMINTP1, XRIMINTP2, XGAMINC_RIM1, XGAMINC_RIM2, XGAMINC_RIM4, &
+ XCRIMSS, XEXCRIMSS, XSRIMCG, XEXSRIMCG, XSRIMCG2, XSRIMCG3, XEXSRIMCG2, &
XHMLINTP1, XHMLINTP2, XGAMINC_HMC, XHM_FACTS, XHMTMIN, XHMTMAX
-USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0
+USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0, XBS, XFVELOS
!
IMPLICIT NONE
!
@@ -89,9 +92,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRCT !
-REAL, DIMENSION(:), INTENT(IN) :: PCCT !
-REAL, DIMENSION(:), INTENT(IN) :: PRST !
+REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCCT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -100,6 +104,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
REAL, DIMENSION(:), INTENT(OUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_RIM
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_RIM
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_RIM
!
REAL, DIMENSION(:), INTENT(OUT) :: P_TH_RIM
@@ -109,117 +114,121 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_RS_HMS
!
!* 0.2 Declarations of local variables :
!
-LOGICAL, DIMENSION(SIZE(PRCT)) :: GRIM
-!
-REAL, DIMENSION(SIZE(PRCT)) :: ZZW1, ZZW2, ZZW3, ZZW4
+REAL, DIMENSION(SIZE(PRCT)) :: ZZW1, ZZW2, ZZW3, ZZW4, ZZW5
!
-INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
-REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2 ! Work vectors
+INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
+REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2,ZVEC1W ! Work vectors
+INTEGER :: JI
!
!-------------------------------------------------------------------------------
!
!
-P_TH_RIM(:) = 0.
-P_RC_RIM(:) = 0.
-P_CC_RIM(:) = 0.
-P_RS_RIM(:) = 0.
-P_RG_RIM(:) = 0.
-!
-P_RI_HMS(:) = 0.
-P_CI_HMS(:) = 0.
-P_RS_HMS(:) = 0.
!
-ZZW1(:) = 0.
-ZZW2(:) = 0.
-ZZW3(:) = 0.
-ZZW4(:) = 0.
+DO JI = 1, SIZE(PRCT)
!
!* Cloud droplet riming of the aggregates
! --------------------------------------
!
+ IF ( PRCT(JI)>XRTMIN(2) .AND. PRST(JI)>XRTMIN(5) .AND. PT(JI)<XTT .AND. LDCOMPUTE(JI) ) THEN
!
-GRIM(:) = .False.
-GRIM(:) = (PRCT(:)>XRTMIN(2)) .AND. (PRST(:)>XRTMIN(5)) .AND. (PT(:)<XTT) .AND. LDCOMPUTE(:)
-!
-WHERE( GRIM )
-!
- ZVEC1(:) = PLBDS(:)
-!
-! 1. find the next lower indice for the ZLBDAS in the geometrical
-! set of Lbda_s used to tabulate some moments of the incomplete
-! gamma function
-!
- ZVEC2(:) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
- XRIMINTP1 * LOG( ZVEC1(:) ) + XRIMINTP2 ) )
- IVEC2(:) = INT( ZVEC2(:) )
- ZVEC2(:) = ZVEC2(:) - REAL( IVEC2(:) )
+ ZVEC1(JI) = PLBDS(JI)
+ ZVEC1W(JI)= ( XFVELOS**XALPHAS + PLBDS(JI)**XALPHAS ) ** (1./XALPHAS) ! modified equivalent lambda
!
! 2. perform the linear interpolation of the normalized
-! "2+XDS"-moment of the incomplete gamma function
+! "2+XDS"-moment of the incomplete gamma function using the modified equivalent lambda
!
- ZVEC1(:) = XGAMINC_RIM1( IVEC2(:)+1 )* ZVEC2(:) &
- - XGAMINC_RIM1( IVEC2(:) )*(ZVEC2(:) - 1.0)
- ZZW1(:) = ZVEC1(:)
+ ZVEC2(JI) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
+ XRIMINTP1 * LOG( ZVEC1W(JI) ) + XRIMINTP2 ) )
+ IVEC2(JI) = INT( ZVEC2(JI) )
+ ZVEC2(JI) = ZVEC2(JI) - REAL( IVEC2(JI) )
+!
+ ZZW1(JI) = XGAMINC_RIM1( IVEC2(JI)+1 )* ZVEC2(JI) &
+ - XGAMINC_RIM1( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
!
! 3. perform the linear interpolation of the normalized
! "XBS"-moment of the incomplete gamma function
!
- ZVEC1(:) = XGAMINC_RIM2( IVEC2(:)+1 )* ZVEC2(:) &
- - XGAMINC_RIM2( IVEC2(:) )*(ZVEC2(:) - 1.0)
- ZZW2(:) = ZVEC1(:)
+ ZVEC2(JI) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
+ XRIMINTP1 * LOG( ZVEC1(JI) ) + XRIMINTP2 ) )
+ IVEC2(JI) = INT( ZVEC2(JI) )
+ ZVEC2(JI) = ZVEC2(JI) - REAL( IVEC2(JI) )
+!
+ ZZW2(JI) = XGAMINC_RIM2( IVEC2(JI)+1 )* ZVEC2(JI) &
+ - XGAMINC_RIM2( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
!
! 4. riming
!
! Cloud droplets collected
- P_RC_RIM(:) = - XCRIMSS * PRCT(:) * PLBDS(:)**XEXCRIMSS * PRHODREF(:)**(-XCEXVT)
- P_CC_RIM(:) = P_RC_RIM(:) *(PCCT(:)/PRCT(:)) ! Lambda_c**3
+ P_RC_RIM(JI) = - XCRIMSS * PRCT(JI) * PCST(JI)*(1+(XFVELOS/PLBDS(JI))**XALPHAS)**(-XNUS+XEXCRIMSS/XALPHAS) &
+ * PRHODREF(JI)**(-XCEXVT+1) * PLBDS(JI)**XEXCRIMSS
+ P_CC_RIM(JI) = P_RC_RIM(JI) * PCCT(JI)/PRCT(JI) ! Lambda_c**3
!
! Cloud droplets collected on small aggregates add to snow
- P_RS_RIM(:) = - P_RC_RIM(:) * ZZW1(:)
+ P_RS_RIM(JI) = - P_RC_RIM(JI) * ZZW1(JI)
!
! Cloud droplets collected on large aggregates add to graupel
- P_RG_RIM(:) = - P_RC_RIM(:) - P_RS_RIM(:)
+ P_RG_RIM(JI) = - P_RC_RIM(JI) - P_RS_RIM(JI)
!
- ! Large aggregates collecting droplets add to graupel (instant process ???)
- ZZW3(:) = XSRIMCG * PLBDS(:)**XEXSRIMCG * (1.0 - ZZW2(:))/(PTSTEP*PRHODREF(:))
- P_RS_RIM(:) = P_RS_RIM(:) - ZZW3(:)
- P_RG_RIM(:) = P_RG_RIM(:) + ZZW3(:)
+ IF (LMURAKAMI) THEN
+ ! Graupel formation based on Murakami
+ ZVEC1(JI) = XGAMINC_RIM4( IVEC2(JI)+1 )* ZVEC2(JI) &
+ - XGAMINC_RIM4( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
+ ZZW5(JI) = ZVEC1(JI)
+ ZZW3(JI) = XSRIMCG * PRHODREF(JI) * PCST(JI) * PLBDS(JI)**XEXSRIMCG * (1.0 - ZZW2(JI))!/(PTSTEP*PRHODREF(JI))
+ ZZW3(JI) = P_RG_RIM(JI)*ZZW3(JI)/ &
+ MAX(1.E-10, & !-20
+ XSRIMCG3*XSRIMCG2*PCST(JI)*PRHODREF(JI)*PLBDS(JI)**(XEXSRIMCG2)*(1.-ZZW5(JI))- &
+ XSRIMCG3*ZZW3(JI))
+ ELSE
+ ! Large aggregates collecting droplets add to graupel (instant process ???)
+ ZZW3(JI) = PRST(JI)*(1.0 - ZZW2(JI))/PTSTEP
+ END IF
+ P_RS_RIM(JI) = P_RS_RIM(JI) - ZZW3(JI)
+ P_CS_RIM(JI) = -ZZW3(JI) * PCST(JI)/PRST(JI)
+ P_RG_RIM(JI) = P_RG_RIM(JI) + ZZW3(JI)
!
- P_TH_RIM(:) = - P_RC_RIM(:)*(PLSFACT(:)-PLVFACT(:))
-END WHERE
-!
+ P_TH_RIM(JI) = - P_RC_RIM(JI)*(PLSFACT(JI)-PLVFACT(JI))
+ ELSE
+ P_TH_RIM(JI) = 0.
+ P_RC_RIM(JI) = 0.
+ P_CC_RIM(JI) = 0.
+ P_RS_RIM(JI) = 0.
+ P_CS_RIM(JI) = 0.
+ P_RG_RIM(JI) = 0.
+ END IF
!
!* Hallett-Mossop ice production (HMS)
! -----------------------------------
!
-!
-GRIM(:) = .False.
-GRIM(:) = (PT(:)<XHMTMAX) .AND. (PT(:)>XHMTMIN) .AND. &
- (PRST(:)>XRTMIN(5)) .AND. (PRCT(:)>XRTMIN(2)) .AND. &
- LDCOMPUTE(:)
-!
-WHERE ( GRIM )
-!
- ZVEC1(:) = PLBDC(:)
- ZVEC2(:) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
- XHMLINTP1 * LOG( ZVEC1(:) ) + XHMLINTP2 ) )
- IVEC2(:) = INT( ZVEC2(:) )
- ZVEC2(:) = ZVEC2(:) - REAL( IVEC2(:) )
- ZVEC1(:) = XGAMINC_HMC( IVEC2(:)+1 )* ZVEC2(:) &
- - XGAMINC_HMC( IVEC2(:) )*(ZVEC2(:) - 1.0)
- ZZW4(:) = ZVEC1(:) ! Large droplets
-!
- WHERE ( ZZW4(:)<0.99 )
- P_CI_HMS(:) = - P_RC_RIM(:) * (PCCT(:)/PRCT(:)) * (1.0-ZZW4(:)) * XHM_FACTS * &
- MAX( 0.0, MIN( (PT(:)-XHMTMIN)/3.0,(XHMTMAX-PT(:))/2.0 ) ) ! CCHMSI
-!
- P_RI_HMS(:) = P_CI_HMS(:) * XMNU0 ! RCHMSI
- P_RS_HMS(:) = - P_RI_HMS(:)
- END WHERE
-
-END WHERE
-!
-!
+ IF ( PT(JI)<XHMTMAX .AND. PT(JI)>XHMTMIN .AND. &
+ PRST(JI)>XRTMIN(5) .AND. PRCT(JI)>XRTMIN(2) .AND. LDCOMPUTE(JI) ) THEN
+!
+ ZVEC1(JI) = PLBDC(JI)
+ ZVEC2(JI) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
+ XHMLINTP1 * LOG( ZVEC1(JI) ) + XHMLINTP2 ) )
+ IVEC2(JI) = INT( ZVEC2(JI) )
+ ZVEC2(JI) = ZVEC2(JI) - REAL( IVEC2(JI) )
+ ZVEC1(JI) = XGAMINC_HMC( IVEC2(JI)+1 )* ZVEC2(JI) &
+ - XGAMINC_HMC( IVEC2(JI) )*(ZVEC2(JI) - 1.0)
+ ZZW4(JI) = ZVEC1(JI) ! Large droplets
+!
+ IF ( ZZW4(JI)<0.99 ) THEN
+ P_CI_HMS(JI) = - P_RC_RIM(JI) * (PCCT(JI)/PRCT(JI)) * (1.0-ZZW4(JI)) * XHM_FACTS * &
+ MAX( 0.0, MIN( (PT(JI)-XHMTMIN)/3.0,(XHMTMAX-PT(JI))/2.0 ) ) ! CCHMSI
+!
+ P_RI_HMS(JI) = P_CI_HMS(JI) * XMNU0 ! RCHMSI
+ P_RS_HMS(JI) = - P_RI_HMS(JI)
+ ELSE
+ P_RI_HMS(JI) = 0.
+ P_CI_HMS(JI) = 0.
+ P_RS_HMS(JI) = 0.
+ END IF
+ ELSE
+ P_RI_HMS(JI) = 0.
+ P_CI_HMS(JI) = 0.
+ P_RS_HMS(JI) = 0.
+ END IF
+END DO
!
!-------------------------------------------------------------------------------
!
diff --git a/src/mesonh/micro/lima_graupel.f90 b/src/mesonh/micro/lima_graupel.f90
index ad114da36..00ad1646a 100644
--- a/src/mesonh/micro/lima_graupel.f90
+++ b/src/mesonh/micro/lima_graupel.f90
@@ -11,17 +11,17 @@ INTERFACE
SUBROUTINE LIMA_GRAUPEL (PTSTEP, LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
- PCCT, PCRT, PCIT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, &
PLBDC, PLBDR, PLBDS, PLBDG, &
PLVFACT, PLSFACT, &
P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH )
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -43,6 +43,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRGT !
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
REAL, DIMENSION(:), INTENT(IN) :: PCRT !
REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
@@ -60,7 +62,9 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
@@ -71,6 +75,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
@@ -80,6 +85,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
@@ -89,8 +95,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
END SUBROUTINE LIMA_GRAUPEL
END INTERFACE
@@ -100,17 +109,17 @@ END MODULE MODI_LIMA_GRAUPEL
SUBROUTINE LIMA_GRAUPEL (PTSTEP, LDCOMPUTE, &
PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
- PCCT, PCRT, PCIT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, &
PLBDC, PLBDR, PLBDS, PLBDG, &
PLVFACT, PLSFACT, &
P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH )
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
! #################################################################################
!
!! PURPOSE
@@ -129,6 +138,7 @@ END MODULE MODI_LIMA_GRAUPEL
!! -------------
!! Original 15/03/2018
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
+! J. Wurtz 03/2022: new snow characteristics
!
!-------------------------------------------------------------------------------
!
@@ -140,7 +150,9 @@ USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCEXVT, LHAIL
USE MODD_PARAM_LIMA_MIXED, ONLY : XCXG, XDG, X0DEPG, X1DEPG, NGAMINC, &
XFCDRYG, XFIDRYG, XCOLIG, XCOLSG, XCOLEXIG, XCOLEXSG, &
XFSDRYG, XLBSDRYG1, XLBSDRYG2, XLBSDRYG3, XKER_SDRYG, &
+ XFNSDRYG, XLBNSDRYG1, XLBNSDRYG2, XLBNSDRYG3, XKER_N_SDRYG, &
XFRDRYG, XLBRDRYG1, XLBRDRYG2, XLBRDRYG3, XKER_RDRYG, &
+ XFNRDRYG, XLBNRDRYG1, XLBNRDRYG2, XLBNRDRYG3, XKER_N_RDRYG, &
XHMTMIN, XHMTMAX, XHMLINTP1, XHMLINTP2, XHM_FACTG, XGAMINC_HMC, &
XEX0DEPG, XEX1DEPG, &
XDRYINTP1R, XDRYINTP1S, XDRYINTP1G, &
@@ -172,6 +184,8 @@ REAL, DIMENSION(:), INTENT(IN) :: PRGT !
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
REAL, DIMENSION(:), INTENT(IN) :: PCRT !
REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
@@ -189,7 +203,9 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
@@ -200,6 +216,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
@@ -209,6 +226,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
@@ -218,8 +236,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
!* 0.2 Declarations of local variables :
!
@@ -229,6 +250,7 @@ INTEGER :: JJ
!
REAL, DIMENSION(SIZE(PRCT)) :: Z1, Z2, Z3, Z4
REAL, DIMENSION(SIZE(PRCT)) :: ZZX, ZZW, ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6, ZZW7
+REAL, DIMENSION(SIZE(PRCT)) :: ZZW3N, ZZW4N, ZZW6N
REAL, DIMENSION(SIZE(PRCT)) :: ZRDRYG, ZRWETG
!
INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
@@ -239,6 +261,7 @@ INTEGER :: NHAIL
!-------------------------------------------------------------------------------
!
!
+P_TH_WETG(:) = 0.
P_RC_WETG(:) = 0.
P_CC_WETG(:) = 0.
P_RR_WETG(:) = 0.
@@ -246,9 +269,12 @@ P_CR_WETG(:) = 0.
P_RI_WETG(:) = 0.
P_CI_WETG(:) = 0.
P_RS_WETG(:) = 0.
+P_CS_WETG(:) = 0.
P_RG_WETG(:) = 0.
+P_CG_WETG(:) = 0.
P_RH_WETG(:) = 0.
!
+P_TH_DRYG(:) = 0.
P_RC_DRYG(:) = 0.
P_CC_DRYG(:) = 0.
P_RR_DRYG(:) = 0.
@@ -256,19 +282,24 @@ P_CR_DRYG(:) = 0.
P_RI_DRYG(:) = 0.
P_CI_DRYG(:) = 0.
P_RS_DRYG(:) = 0.
+P_CS_DRYG(:) = 0.
P_RG_DRYG(:) = 0.
!
P_RI_HMG(:) = 0.
P_CI_HMG(:) = 0.
P_RG_HMG(:) = 0.
!
+P_TH_GMLT(:) = 0.
P_RR_GMLT(:) = 0.
P_CR_GMLT(:) = 0.
+P_CG_GMLT(:) = 0.
!
ZZW1(:) = 0. ! RCDRYG
ZZW2(:) = 0. ! RIDRYG
ZZW3(:) = 0. ! RSDRYG
+ZZW3N(:) = 0.! NSDRYG
ZZW4(:) = 0. ! RRDRYG
+ZZW4N(:) = 0.! NRDRYG
ZZW5(:) = 0. ! RIWETG
ZZW6(:) = 0. ! RSWETG
ZZW7(:) = 0. !
@@ -284,15 +315,15 @@ ZRWETG(:) = 0.
! --------------------------------------------
!
WHERE( PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
- ZZW(:) = PLBDG(:)**(XCXG-XDG-2.0) * PRHODREF(:)**(-XCEXVT)
- ZZW1(:) = XFCDRYG * PRCT(:) * ZZW(:) ! RCDRYG - rc collected by graupel in dry mode
+ ZZW(:) = PCGT(:) * PLBDG(:)**(-XDG-2.0) * PRHODREF(:)**(1-XCEXVT)
+ ZZW1(:) = XFCDRYG * PRCT(:) * ZZW(:) ! RCDRYG - rc collected by graupel in dry mode
ZZW2(:) = XFIDRYG * EXP( XCOLEXIG*(PT(:)-XTT) ) * PRIT(:) * ZZW(:) ! RIDRYG - ri collected by graupel in dry mode
END WHERE
!
!* 1.b Collection of rs in the dry mode
! ------------------------------------
!
-GDRY(:) = (PRST(:)>XRTMIN(5)) .AND. (PRGT(:)>XRTMIN(6)) .AND. LDCOMPUTE(:)
+GDRY(:) = PRST(:)>XRTMIN(5) .AND. PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:)
!
WHERE( GDRY )
!
@@ -329,19 +360,36 @@ WHERE( GDRY )
- Z4(:)*(ZVEC2(:) - 1.0) ) &
* (ZVEC1(:) - 1.0)
ZZW(:) = ZVEC3(:)
-!
- ZZW3(:) = XFSDRYG * ZZW(:) * EXP( XCOLEXSG*(PT(:)-XTT) ) & ! RSDRYG - rs collected by graupel in dry mode
- *( PLBDS(:)**(XCXS-XBS) )*( PLBDG(:)**XCXG ) &
- *( PRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSDRYG1/( PLBDG(:)**2 ) + &
- XLBSDRYG2/( PLBDG(:) * PLBDS(:) ) + &
- XLBSDRYG3/( PLBDS(:)**2) )
+ ZZW3(:) = XFSDRYG * ZZW(:) * EXP( XCOLEXSG*(PT(:)-XTT) ) & ! RSDRYG - rs collected by graupel in dry mode
+ * PRST(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBSDRYG1/( PLBDG(:)**2 ) + &
+ XLBSDRYG2/( PLBDG(:) * PLBDS(:) ) + &
+ XLBSDRYG3/( PLBDS(:)**2) )
+!
+ Z1(:) = GET_XKER_N_SDRYG(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_SDRYG(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_SDRYG(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_SDRYG(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW3N(:) = XFNSDRYG * ZZW(:) * EXP( XCOLEXSG*(PT(:)-XTT) ) & ! NSDRYG - Ns collected by graupel in dry mode
+ * PCST(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNSDRYG1/( PLBDG(:)**2 ) + &
+ XLBNSDRYG2/( PLBDG(:) * PLBDS(:) ) + &
+ XLBNSDRYG3/( PLBDS(:)**2) )
END WHERE
!
!* 1.c Collection of rr in the dry mode
! -------------------------------------
!
-GDRY(:) = (PRRT(:)>XRTMIN(3)) .AND. (PRGT(:)>XRTMIN(6)) .AND. LDCOMPUTE(:)
+GDRY(:) = PRRT(:)>XRTMIN(3) .AND. PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:)
!
WHERE( GDRY )
!
@@ -378,14 +426,31 @@ WHERE( GDRY )
- Z4(:)*(ZVEC2(:) - 1.0) ) &
* (ZVEC1(:) - 1.0)
ZZW(:) = ZVEC3(:)
-!
-! BVIE manque PCRT ???????????????????????????????????
-! ZZW4(:) = XFRDRYG * ZZW(:) & ! RRDRYG
- ZZW4(:) = XFRDRYG * ZZW(:) * PCRT(:) & ! RRDRYG
- *( PLBDG(:)**XCXG ) * ( PRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRDRYG1/( PLBDG(:)**2 ) + &
- XLBRDRYG2/( PLBDG(:) * PLBDR(:) ) + &
- XLBRDRYG3/( PLBDR(:)**2) ) / PLBDR(:)**3
+ ZZW4(:) = XFRDRYG * ZZW(:) & ! RRDRYG
+ * PRRT(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBRDRYG1/( PLBDG(:)**2 ) + &
+ XLBRDRYG2/( PLBDG(:) * PLBDR(:) ) + &
+ XLBRDRYG3/( PLBDR(:)**2) )
+!
+ Z1(:) = GET_XKER_N_RDRYG(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_RDRYG(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_RDRYG(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_RDRYG(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW4N(:) = XFNRDRYG * ZZW(:) & ! NRDRYG
+ * PCRT(:) * PCGT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNRDRYG1/( PLBDG(:)**2 ) + &
+ XLBNRDRYG2/( PLBDG(:) * PLBDR(:) ) + &
+ XLBNRDRYG3/( PLBDR(:)**2) )
+
END WHERE
!
! 1.d Total collection in the dry mode
@@ -400,6 +465,7 @@ ZZW(:) = 0.0
WHERE( PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
ZZW5(:) = ZZW2(:) / (XCOLIG*EXP(XCOLEXIG*(PT(:)-XTT)) ) ! RIWETG
ZZW6(:) = ZZW3(:) / (XCOLSG*EXP(XCOLEXSG*(PT(:)-XTT)) ) ! RSWETG
+ ZZW6N(:)= ZZW3N(:)/ (XCOLSG*EXP(XCOLEXSG*(PT(:)-XTT)) ) ! NSWETG
!
ZZW(:) = PRVT(:)*PPRES(:)/((XMV/XMD)+PRVT(:)) ! Vapor pressure
ZZW(:) = PKA(:)*(XTT-PT(:)) + &
@@ -407,12 +473,13 @@ WHERE( PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
*(XESTT-ZZW(:))/(XRV*PT(:)) )
!
! Total mass gained by graupel in wet mode
- ZRWETG(:) = MAX( 0.0, &
- ( ZZW(:) * ( X0DEPG* PLBDG(:)**XEX0DEPG + &
- X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG ) + &
- ( ZZW5(:)+ZZW6(:) ) * &
- ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PT(:))) ) ) / &
- ( PRHODREF(:)*(XLMTT-XCL*(XTT-PT(:))) ) )
+ ZRWETG(:) = MAX( 0.0, &
+ ( ZZW(:) * PCGT(:) * ( X0DEPG* PLBDG(:)**XEX0DEPG + &
+ X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG ) + &
+ ( ZZW5(:)+ZZW6(:) ) * ( XLMTT + (XCI-XCL)*(XTT-PT(:)) ) ) &
+ / (XLMTT-XCL*(XTT-PT(:))) )
+ !We must agregate, at least, the cold species
+ ZRWETG(:)=MAX(ZRWETG(:), ZZW5(:)+ZZW6(:))
END WHERE
!
! 1.f Wet mode and partial conversion to hail
@@ -421,8 +488,8 @@ END WHERE
ZZW(:) = 0.0
NHAIL = 0.
IF (LHAIL) NHAIL = 1.
-WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT &
- .AND. ZRDRYG(:)>=ZRWETG(:) .AND. ZRWETG(:)>0.0 )
+WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT .AND. &
+ (ZRDRYG(:)-ZZW2(:)-ZZW3(:))>=(ZRWETG(:)-ZZW5(:)-ZZW6(:)) .AND. ZRWETG(:)-ZZW5(:)-ZZW6(:)>0.0 )
!
! Mass of rain and cloud droplets frozen by graupel in wet mode : RCWETG + RRWETG = RWETG - RIWETG - RSWETG
ZZW7(:) = ZRWETG(:) - ZZW5(:) - ZZW6(:)
@@ -439,7 +506,9 @@ WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT &
P_RI_WETG(:) = - ZZW5(:)
P_CI_WETG(:) = P_RI_WETG(:) * PCIT(:)/MAX(PRIT(:),XRTMIN(4))
P_RS_WETG(:) = - ZZW6(:)
+ P_CS_WETG(:) = - ZZW6N(:)
P_RG_WETG(:) = - PRGT(:)/PTSTEP * ZZW(:) + ZRWETG(:) * (1.-ZZW(:))
+ P_CG_WETG(:) = - PCGT(:)/PTSTEP * ZZW(:)
P_RH_WETG(:) = PRGT(:)/PTSTEP * ZZW(:) + ZRWETG(:) * ZZW(:)
!
P_TH_WETG(:) = ZZW7(:) * (PLSFACT(:)-PLVFACT(:))
@@ -448,16 +517,17 @@ END WHERE
! 1.g Dry mode
! ------------
!
-WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT &
- .AND. ZRDRYG(:)<ZRWETG(:) .AND. ZRDRYG(:)>0.0 )
+WHERE( LDCOMPUTE(:) .AND. PRGT(:)>XRTMIN(6) .AND. PT(:)<XTT .AND. &
+ (ZRDRYG(:)-ZZW2(:)-ZZW3(:))<(ZRWETG(:)-ZZW5(:)-ZZW6(:)) .AND. ZRDRYG(:)>0.0 )
!
P_RC_DRYG(:) = - ZZW1(:)
P_CC_DRYG(:) = P_RC_DRYG(:) * PCCT(:)/MAX(PRCT(:),XRTMIN(2))
P_RR_DRYG(:) = - ZZW4(:)
- P_CR_DRYG(:) = P_RR_DRYG(:) * PCRT(:)/MAX(PRRT(:),XRTMIN(3))
+ P_CR_DRYG(:) = - ZZW4N(:)
P_RI_DRYG(:) = - ZZW2(:)
P_CI_DRYG(:) = P_RI_DRYG(:) * PCIT(:)/MAX(PRIT(:),XRTMIN(4))
P_RS_DRYG(:) = - ZZW3(:)
+ P_CS_DRYG(:) = - ZZW3N(:)
P_RG_DRYG(:) = ZRDRYG(:)
!
P_TH_DRYG(:) = (ZZW1(:) + ZZW4(:)) * (PLSFACT(:)-PLVFACT(:))
@@ -469,8 +539,8 @@ END WHERE
!
! BVIE test ZRDRYG<ZZW ?????????????????????????
!GDRY(:) = (PT(:)<XHMTMAX) .AND. (PT(:)>XHMTMIN) .AND. (ZRDRYG(:)<ZZW(:))&
-GDRY(:) = (PT(:)<XHMTMAX) .AND. (PT(:)>XHMTMIN) .AND. (ZRDRYG(:)<ZRWETG(:))&
- .AND. (PRGT(:)>XRTMIN(6)) .AND. (PRCT(:)>XRTMIN(2)) .AND. LDCOMPUTE(:)
+GDRY(:) = PT(:)<XHMTMAX .AND. PT(:)>XHMTMIN .AND. PRGT(:)>XRTMIN(6) .AND. PRCT(:)>XRTMIN(2) .AND. LDCOMPUTE(:) .AND. &
+ (ZRDRYG(:)-ZZW2(:)-ZZW3(:))<(ZRWETG(:)-ZZW5(:)-ZZW6(:))
ZZX(:)=9999.
ZVEC1(:)=0.
@@ -509,14 +579,14 @@ WHERE( (PRGT(:)>XRTMIN(6)) .AND. (PT(:)>XTT) .AND. LDCOMPUTE(:) )
!
! compute RGMLTR
!
- ZZX(:) = MAX( 0.0,( -ZZX(:) * &
- ( X0DEPG* PLBDG(:)**XEX0DEPG + &
+ ZZX(:) = MAX( 0.0,( -ZZX(:) * PCGT(:) * &
+ ( X0DEPG* PLBDG(:)**XEX0DEPG + &
X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG ) - &
- ( ZZW1(:)+ZZW4(:) ) * &
- ( PRHODREF(:)*XCL*(XTT-PT(:))) ) / &
- ( PRHODREF(:)*XLMTT ) )
+ ( ZZW1(:)+ZZW4(:) ) * ( XCL*(XTT-PT(:))) ) &
+ / XLMTT )
P_RR_GMLT(:) = ZZX(:)
P_CR_GMLT(:) = ZZX(:) * 5.0E6 ! obtained after averaging, Dshed=1mm and 500 microns
+ P_CG_GMLT(:) = - ZZX(:) * PCGT(:)/PRGT(:)
!
P_TH_GMLT(:) = - P_RR_GMLT(:) * (PLSFACT(:)-PLVFACT(:))
END WHERE
@@ -531,8 +601,11 @@ PA_CR(:) = PA_CR(:) + P_CR_WETG(:) + P_CR_DRYG(:) + P_CR_GMLT(:)
PA_RI(:) = PA_RI(:) + P_RI_WETG(:) + P_RI_DRYG(:) + P_RI_HMG(:)
PA_CI(:) = PA_CI(:) + P_CI_WETG(:) + P_CI_DRYG(:) + P_CI_HMG(:)
PA_RS(:) = PA_RS(:) + P_RS_WETG(:) + P_RS_DRYG(:)
+PA_CS(:) = PA_CS(:) + P_CS_WETG(:) + P_CS_DRYG(:)
PA_RG(:) = PA_RG(:) + P_RG_WETG(:) + P_RG_DRYG(:) + P_RG_HMG(:) - P_RR_GMLT(:)
+PA_CG(:) = PA_CG(:) + P_CG_WETG(:) + P_CG_GMLT(:)
PA_RH(:) = PA_RH(:) + P_RH_WETG(:)
+PA_CH(:) = PA_CH(:) - P_CG_WETG(:)
PA_TH(:) = PA_TH(:) + P_TH_WETG(:) + P_TH_DRYG(:) + P_TH_GMLT(:)
!
!-------------------------------------------------------------------------------
@@ -551,6 +624,20 @@ CONTAINS
END FUNCTION GET_XKER_SDRYG
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_SDRYG(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_SDRYG(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_SDRYG,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_N_SDRYG,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_SDRYG
+!
+!-------------------------------------------------------------------------------
!
FUNCTION GET_XKER_RDRYG(GRAUPEL,RAIN) RESULT(RET)
INTEGER, DIMENSION(:) :: GRAUPEL
@@ -565,5 +652,19 @@ CONTAINS
END FUNCTION GET_XKER_RDRYG
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_RDRYG(GRAUPEL,RAIN) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: RAIN
+ REAL, DIMENSION(SIZE(RAIN)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_RDRYG(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_RDRYG,1)),1),MAX(MIN(RAIN(I),SIZE(XKER_N_RDRYG,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_RDRYG
+!
+!-------------------------------------------------------------------------------
!
END SUBROUTINE LIMA_GRAUPEL
diff --git a/src/mesonh/micro/lima_graupel_deposition.f90 b/src/mesonh/micro/lima_graupel_deposition.f90
index d283c9699..83b28e3d2 100644
--- a/src/mesonh/micro/lima_graupel_deposition.f90
+++ b/src/mesonh/micro/lima_graupel_deposition.f90
@@ -8,14 +8,15 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
- PRGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
- P_TH_DEPG, P_RG_DEPG )
+ SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRGT, PCGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
+ P_TH_DEPG, P_RG_DEPG )
!
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRGT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRGT ! graupel mr
+REAL, DIMENSION(:), INTENT(IN) :: PCGT ! graupel conc
REAL, DIMENSION(:), INTENT(IN) :: PSSI !
REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
REAL, DIMENSION(:), INTENT(IN) :: PAI !
@@ -30,9 +31,9 @@ END INTERFACE
END MODULE MODI_LIMA_GRAUPEL_DEPOSITION
!
! ###########################################################################
- SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
- PRGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
- P_TH_DEPG, P_RG_DEPG )
+ SUBROUTINE LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRGT, PCGT, PSSI, PLBDG, PAI, PCJ, PLSFACT, &
+ P_TH_DEPG, P_RG_DEPG )
! ###########################################################################
!
!! PURPOSE
@@ -51,12 +52,13 @@ END MODULE MODI_LIMA_GRAUPEL_DEPOSITION
!! -------------
!! Original 15/03/2018
!!
+! M. Taufour 07/2022 add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
USE MODD_PARAM_LIMA_MIXED, ONLY : X0DEPG, XEX0DEPG, X1DEPG, XEX1DEPG
!
IMPLICIT NONE
@@ -66,7 +68,8 @@ IMPLICIT NONE
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRGT ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRGT ! graupel mr
+REAL, DIMENSION(:), INTENT(IN) :: PCGT ! graupel conc
REAL, DIMENSION(:), INTENT(IN) :: PSSI !
REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
REAL, DIMENSION(:), INTENT(IN) :: PAI !
@@ -85,9 +88,9 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_RG_DEPG
!
P_TH_DEPG(:) = 0.0
P_RG_DEPG(:) = 0.0
-WHERE ( (PRGT(:)>XRTMIN(6)) .AND. LDCOMPUTE(:) )
- P_RG_DEPG(:) = ( PSSI(:)/PAI(:)/PRHODREF(:) ) * &
- ( X0DEPG*PLBDG(:)**XEX0DEPG + X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG )
+WHERE ( PRGT(:)>XRTMIN(6) .AND. PCGT(:)>XCTMIN(6) .AND. LDCOMPUTE(:) )
+ P_RG_DEPG(:) = PSSI(:) / PAI(:) * PCGT(:) * &
+ ( X0DEPG*PLBDG(:)**XEX0DEPG + X1DEPG*PCJ(:)*PLBDG(:)**XEX1DEPG )
P_TH_DEPG(:) = P_RG_DEPG(:)*PLSFACT(:)
END WHERE
!
diff --git a/src/mesonh/micro/lima_hail.f90 b/src/mesonh/micro/lima_hail.f90
new file mode 100644
index 000000000..8392316ae
--- /dev/null
+++ b/src/mesonh/micro/lima_hail.f90
@@ -0,0 +1,576 @@
+!MNH_LIC Copyright 2018-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-----------------------------------------------------------------
+! #################################
+ MODULE MODI_LIMA_HAIL
+! #################################
+!
+INTERFACE
+ SUBROUTINE LIMA_HAIL (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ PLBDC, PLBDR, PLBDS, PLBDG, PLBDH, &
+ PLVFACT, PLSFACT, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
+!
+REAL, INTENT(IN) :: PTSTEP
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+REAL, DIMENSION(:), INTENT(IN) :: PPRES !
+REAL, DIMENSION(:), INTENT(IN) :: PT !
+REAL, DIMENSION(:), INTENT(IN) :: PKA !
+REAL, DIMENSION(:), INTENT(IN) :: PDV !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRVT !
+REAL, DIMENSION(:), INTENT(IN) :: PRCT !
+REAL, DIMENSION(:), INTENT(IN) :: PRRT !
+REAL, DIMENSION(:), INTENT(IN) :: PRIT !
+REAL, DIMENSION(:), INTENT(IN) :: PRST !
+REAL, DIMENSION(:), INTENT(IN) :: PRGT !
+REAL, DIMENSION(:), INTENT(IN) :: PRHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PCCT !
+REAL, DIMENSION(:), INTENT(IN) :: PCRT !
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
+REAL, DIMENSION(:), INTENT(IN) :: PCHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
+!
+END SUBROUTINE LIMA_HAIL
+END INTERFACE
+END MODULE MODI_LIMA_HAIL
+!
+! #################################################################################
+ SUBROUTINE LIMA_HAIL (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PPRES, PT, PKA, PDV, PCJ, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ PLBDC, PLBDR, PLBDS, PLBDG, PLBDH, &
+ PLVFACT, PLSFACT, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
+! #################################################################################
+!
+!! PURPOSE
+!! -------
+!! Compute the wet/dry growth of graupel, associated Hallett-Mossop ice production,
+!! and graupel melting rates
+!!
+!! AUTHOR
+!! ------
+!! J.-M. Cohard * Laboratoire d'Aerologie*
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!! S. Berthet * Laboratoire d'Aerologie*
+!! B. Vié * CNRM *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 15/03/2018
+! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
+! J. Wurtz 03/2022: new snow characteristics
+!
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_CST, ONLY : XTT, XMD, XMV, XRD, XRV, XLVTT, XLMTT, XESTT, XCL, XCI, XCPV
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT, LHAIL
+USE MODD_PARAM_LIMA_MIXED, ONLY : NWETLBDAG, XWETINTP1G, XWETINTP2G, &
+ NWETLBDAH, X0DEPH, X1DEPH, XDH, XEX0DEPH, XEX1DEPH, &
+ XFWETH, XWETINTP1H, XWETINTP2H, &
+ NWETLBDAS, XWETINTP1S, XWETINTP2S, &
+ XKER_N_GWETH, XKER_GWETH, XKER_N_SWETH, XKER_SWETH, &
+ XFSWETH, XLBSWETH1, XLBSWETH2, XLBSWETH3, &
+ XFNSWETH, XLBNSWETH1, XLBNSWETH2, XLBNSWETH3, &
+ XFGWETH, XLBGWETH1, XLBGWETH2, XLBGWETH3, &
+ XFNGWETH, XLBNGWETH1, XLBNGWETH2, XLBNGWETH3
+
+USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0, XCXS, XBS
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+REAL, INTENT(IN) :: PTSTEP
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+REAL, DIMENSION(:), INTENT(IN) :: PPRES !
+REAL, DIMENSION(:), INTENT(IN) :: PT !
+REAL, DIMENSION(:), INTENT(IN) :: PKA !
+REAL, DIMENSION(:), INTENT(IN) :: PDV !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRVT !
+REAL, DIMENSION(:), INTENT(IN) :: PRCT !
+REAL, DIMENSION(:), INTENT(IN) :: PRRT !
+REAL, DIMENSION(:), INTENT(IN) :: PRIT !
+REAL, DIMENSION(:), INTENT(IN) :: PRST !
+REAL, DIMENSION(:), INTENT(IN) :: PRGT !
+REAL, DIMENSION(:), INTENT(IN) :: PRHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PCCT !
+REAL, DIMENSION(:), INTENT(IN) :: PCRT !
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
+REAL, DIMENSION(:), INTENT(IN) :: PCHT !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLBDC !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDG !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CC
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
+!
+!* 0.2 Declarations of local variables :
+!
+LOGICAL, DIMENSION(SIZE(PRCT)) :: GWET
+INTEGER :: JJ
+!
+REAL, DIMENSION(SIZE(PRCT)) :: Z1, Z2, Z3, Z4
+REAL, DIMENSION(SIZE(PRCT)) :: ZZX, ZZW, ZZW1, ZZW2, ZZW3, ZZW4, ZZW5, ZZW6
+REAL, DIMENSION(SIZE(PRCT)) :: ZZW3N, ZZW4N, ZZW6N
+REAL, DIMENSION(SIZE(PRCT)) :: ZRWETH
+!
+INTEGER, DIMENSION(SIZE(PRCT)) :: IVEC1,IVEC2 ! Vectors of indices
+REAL, DIMENSION(SIZE(PRCT)) :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
+!
+INTEGER :: NHAIL
+REAL :: ZTHRH, ZTHRC
+!
+!-------------------------------------------------------------------------------
+!
+!
+P_TH_WETH(:) = 0.
+P_RC_WETH(:) = 0.
+P_CC_WETH(:) = 0.
+P_RR_WETH(:) = 0.
+P_CR_WETH(:) = 0.
+P_RI_WETH(:) = 0.
+P_CI_WETH(:) = 0.
+P_RS_WETH(:) = 0.
+P_CS_WETH(:) = 0.
+P_RG_WETH(:) = 0.
+P_CG_WETH(:) = 0.
+P_RH_WETH(:) = 0.
+!
+P_RG_COHG(:) = 0.
+P_CG_COHG(:) = 0.
+!
+P_TH_HMLT(:) = 0.
+P_RR_HMLT(:) = 0.
+P_CR_HMLT(:) = 0.
+P_CH_HMLT(:) = 0.
+!
+ZZW1(:) = 0. ! RCWETH
+ZZW2(:) = 0. ! RIWETH
+ZZW3(:) = 0. ! RSWETH
+ZZW3N(:) = 0.! NSWETH
+ZZW4(:) = 0. ! RGWETH
+ZZW4N(:) = 0.! NGWETH
+ZZW5(:) = 0. ! RCWETH+RRWETH
+ZZW6(:) = 0. ! RSWETH
+!
+ZRWETH(:) = 0.
+!
+!
+!* 1. Hail growth by collection (wet case only ?)
+! -----------------------------------------------
+!
+! 1.a Collection of rc and ri
+! ---------------------------
+!
+WHERE( PRHT(:)>XRTMIN(7) .AND. PCHT(:)>XCTMIN(7) .AND. LDCOMPUTE(:) )
+ ZZW(:) = PCHT(:) * PLBDH(:)**(-XDH-2.0) * PRHODREF(:)**(1-XCEXVT)
+ ZZW1(:) = XFWETH * PRCT(:) * ZZW(:) ! RCWETH
+ ZZW2(:) = XFWETH * PRIT(:) * ZZW(:) ! RIWETH
+END WHERE
+!
+!* 1.b Collection of rs
+! --------------------
+!
+GWET(:) = PRST(:)>XRTMIN(5) .AND. PRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) .AND. &
+ PCST(:)>XCTMIN(5) .AND. PCHT(:)>XCTMIN(7)
+!
+WHERE( GWET )
+!
+!* Select the (ZLBDAG,ZLBDAS) couplet
+!
+ ZVEC1(:) = PLBDH(:)
+ ZVEC2(:) = PLBDS(:)
+!
+!* find the next lower indice for the ZLBDAG and for the ZLBDAS
+! in the geometrical set of (Lbda_g,Lbda_s) couplet use to
+! tabulate the SDRYG-kernel
+!
+ ZVEC1(:) = MAX( 1.0001, MIN( REAL(NWETLBDAH)-0.0001, &
+ XWETINTP1H * LOG( ZVEC1(:) ) + XWETINTP2H ) )
+ IVEC1(:) = INT( ZVEC1(:) )
+ ZVEC1(:) = ZVEC1(:) - REAL( IVEC1(:) )
+!
+ ZVEC2(:) = MAX( 1.0001, MIN( REAL(NWETLBDAS)-0.0001, &
+ XWETINTP1S * LOG( ZVEC2(:) ) + XWETINTP2S ) )
+ IVEC2(:) = INT( ZVEC2(:) )
+ ZVEC2(:) = ZVEC2(:) - REAL( IVEC2(:) )
+!
+!* perform the bilinear interpolation of the normalized
+! SDRYG-kernel
+ !
+ Z1(:) = GET_XKER_SWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_SWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_SWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_SWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW3(:) = XFSWETH * ZZW(:) & ! RSWETH
+ * PRST(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBSWETH1/( PLBDH(:)**2 ) + &
+ XLBSWETH2/( PLBDH(:) * PLBDS(:) ) + &
+ XLBSWETH3/( PLBDS(:)**2) )
+!
+ Z1(:) = GET_XKER_N_SWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_SWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_SWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_SWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW3N(:) = XFNSWETH * ZZW(:) & ! NSWETH
+ * PCST(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNSWETH1/( PLBDH(:)**2 ) + &
+ XLBNSWETH2/( PLBDH(:) * PLBDS(:) ) + &
+ XLBNSWETH3/( PLBDS(:)**2) )
+END WHERE
+!
+!* 1.c Collection of rg
+! ---------------------
+!
+GWET(:) = PRGT(:)>XRTMIN(6) .AND. PRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) .AND. &
+ PCGT(:)>XCTMIN(6) .AND. PCHT(:)>XCTMIN(7)
+!
+WHERE( GWET )
+!
+!* Select the (ZLBDAG,ZLBDAR) couplet
+!
+ ZVEC1(:) = PLBDH(:)
+ ZVEC2(:) = PLBDG(:)
+!
+!* Find the next lower indice for the ZLBDAG and for the ZLBDAR
+! in the geometrical set of (Lbda_g,Lbda_r) couplet use to
+! tabulate the RDRYG-kernel
+!
+ ZVEC1(:) = MAX( 1.0001, MIN( REAL(NWETLBDAH)-0.0001, &
+ XWETINTP1H * LOG( ZVEC1(:) ) + XWETINTP2H ) )
+ IVEC1(:) = INT( ZVEC1(:) )
+ ZVEC1(:) = ZVEC1(:) - REAL( IVEC1(:) )
+!
+ ZVEC2(:) = MAX( 1.0001, MIN( REAL(NWETLBDAG)-0.0001, &
+ XWETINTP1G * LOG( ZVEC2(:) ) + XWETINTP2G ) )
+ IVEC2(:) = INT( ZVEC2(:) )
+ ZVEC2(:) = ZVEC2(:) - REAL( IVEC2(:) )
+!
+!* Perform the bilinear interpolation of the normalized
+! RDRYG-kernel
+!
+ Z1(:) = GET_XKER_GWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_GWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_GWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_GWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW4(:) = XFGWETH * ZZW(:) & ! RGWETH
+ * PRGT(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBGWETH1/( PLBDH(:)**2 ) + &
+ XLBGWETH2/( PLBDH(:) * PLBDG(:) ) + &
+ XLBGWETH3/( PLBDG(:)**2) )
+!
+ Z1(:) = GET_XKER_N_GWETH(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_GWETH(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_GWETH(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_GWETH(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZW(:) = ZVEC3(:)
+ ZZW4N(:) = XFNGWETH * ZZW(:) & ! NGWETH
+ * PCGT(:) * PCHT(:) &
+ * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNGWETH1/( PLBDH(:)**2 ) + &
+ XLBNGWETH2/( PLBDH(:) * PLBDG(:) ) + &
+ XLBNGWETH3/( PLBDG(:)**2) )
+
+END WHERE
+!
+! 1.e Wet growth of hail
+! ----------------------
+!
+ZZW(:) = 0.0
+WHERE( PRHT(:)>XRTMIN(6) .AND. PCHT(:) >XCTMIN(6) .AND. LDCOMPUTE(:) )
+ ZZW(:) = PRVT(:)*PPRES(:)/((XMV/XMD)+PRVT(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PT(:)) )
+!
+! Total mass gained by hail in wet mode
+ ZRWETH(:) = MAX( 0.0, &
+ ( ZZW(:) * PCHT(:) * ( X0DEPH* PLBDH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDH(:)**XEX1DEPH ) + &
+ ( ZZW2(:)+ZZW3(:)+ZZW4(:) ) * ( XLMTT + (XCI-XCL)*(XTT-PT(:)) ) ) &
+ / (XLMTT-XCL*(XTT-PT(:))) )
+ ! We must agregate, at least, the cold species
+ ZRWETH(:)=MAX(ZRWETH(:), ZZW2(:)+ZZW3(:)+ZZW4(:))
+END WHERE
+WHERE( PRHT(:)>XRTMIN(6) .AND. PCHT(:) >XCTMIN(6) .AND. PRRT(:)>XRTMIN(3) .AND. PCRT(:) >XCTMIN(3) .AND. LDCOMPUTE(:) )
+ ! Mass of rain frozen by hail RRWETH
+ ZZW5(:) = ZRWETH(:) - ZZW2(:) - ZZW3(:) - ZZW4(:) - ZZW1(:)
+END WHERE
+!
+ZZW(:) = 0.0
+WHERE( LDCOMPUTE(:) .AND. PT(:)<XTT .AND. ZZW5(:)>0.0 )
+ P_RC_WETH(:) = - ZZW1(:)
+ P_CC_WETH(:) = P_RC_WETH(:) * PCCT(:)/MAX(PRCT(:),XRTMIN(2))
+ P_RR_WETH(:) = - ZZW5(:)
+ P_CR_WETH(:) = P_RR_WETH(:) * PCRT(:)/MAX(PRRT(:),XRTMIN(3))
+ P_RI_WETH(:) = - ZZW2(:)
+ P_CI_WETH(:) = P_RI_WETH(:) * PCIT(:)/MAX(PRIT(:),XRTMIN(4))
+ P_RS_WETH(:) = - ZZW3(:)
+ P_CS_WETH(:) = - ZZW3N(:)
+ P_RG_WETH(:) = - ZZW4(:)
+ P_CG_WETH(:) = - ZZW4N(:)
+ P_RH_WETH(:) = ZRWETH(:)
+ !
+ P_TH_WETH(:) = (ZZW5(:)+ZZW1(:)) * (PLSFACT(:)-PLVFACT(:))
+END WHERE
+!
+!
+!* 2. Hail -> graupel conversion (COHG)
+! -------------------------------------
+!
+ZTHRH=0.01E-3
+ZTHRC=0.001E-3
+ZZW(:) = 0.0
+GWET(:) = PRHT(:)<ZTHRH .AND. PRCT(:)<ZTHRC .AND. PT(:)<XTT
+WHERE( GWET(:) )
+ P_RG_COHG(:) = PRHT * MIN( 1.0,MAX( 0.0,1.0-(PRCT(:)/ZTHRC) ) )
+ P_CG_COHG(:) = P_RG_COHG(:) * PCHT(:)/MAX(PRHT(:),XRTMIN(7))
+END WHERE
+!
+!
+!* 3. Hail Melting (HMLT)
+! -----------------------
+!
+ZZW(:) = 0.0
+WHERE( PRHT(:)>XRTMIN(6) .AND. PCHT(:)>XCTMIN(7) .AND. PT(:)>XTT .AND. LDCOMPUTE(:) )
+ ZZW(:) = PRVT(:)*PPRES(:)/((XMV/XMD)+PRVT(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PT(:)) )
+!
+! compute RHMLTR
+!
+ ZZW(:) = MAX( 0.0,( -ZZW(:) * PCHT(:) * &
+ ( X0DEPH* PLBDH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDH(:)**XEX1DEPH ) - &
+ ( ZZW5(:) ) * ( XCL*(XTT-PT(:))) ) &
+ / XLMTT )
+ P_RR_HMLT(:) = ZZW(:)
+ P_CR_HMLT(:) = ZZW(:) * 5.0E6 ! obtained after averaging, Dshed=1mm and 500 microns
+ P_CH_HMLT(:) = - ZZW(:) * PCHT(:)/PRHT(:)
+ !
+ P_TH_HMLT(:) = - P_RR_HMLT(:) * (PLSFACT(:)-PLVFACT(:))
+END WHERE
+!
+!
+!
+!
+PA_RC(:) = PA_RC(:) + P_RC_WETH(:)
+PA_CC(:) = PA_CC(:) + P_CC_WETH(:)
+PA_RR(:) = PA_RR(:) + P_RR_WETH(:) + P_RR_HMLT(:)
+PA_CR(:) = PA_CR(:) + P_CR_WETH(:) + P_CR_HMLT(:)
+PA_RI(:) = PA_RI(:) + P_RI_WETH(:)
+PA_CI(:) = PA_CI(:) + P_CI_WETH(:)
+PA_RS(:) = PA_RS(:) + P_RS_WETH(:)
+PA_CS(:) = PA_CS(:) + P_CS_WETH(:)
+PA_RG(:) = PA_RG(:) + P_RG_WETH(:) + P_RG_COHG(:)
+PA_CG(:) = PA_CG(:) + P_CG_WETH(:) + P_CG_COHG(:)
+PA_RH(:) = PA_RH(:) + P_RH_WETH(:) - P_RG_COHG(:) - P_RR_HMLT(:)
+PA_CH(:) = PA_CH(:) - P_CG_COHG(:) + P_CH_HMLT(:)
+PA_TH(:) = PA_TH(:) + P_TH_WETH(:) + P_TH_HMLT(:)
+!
+!-------------------------------------------------------------------------------
+!
+CONTAINS
+ FUNCTION GET_XKER_SWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_SWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_SWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_SWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_SWETH
+!
+!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_SWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_SWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_SWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_N_SWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_SWETH
+!
+!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_GWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_GWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_GWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_GWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_GWETH
+!
+!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_GWETH(GRAUPEL,SNOW) RESULT(RET)
+ INTEGER, DIMENSION(:) :: GRAUPEL
+ INTEGER, DIMENSION(:) :: SNOW
+ REAL, DIMENSION(SIZE(SNOW)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(GRAUPEL)
+ RET(I) = XKER_N_GWETH(MAX(MIN(GRAUPEL(I),SIZE(XKER_N_GWETH,1)),1),MAX(MIN(SNOW(I),SIZE(XKER_N_GWETH,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_GWETH
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_HAIL
diff --git a/src/mesonh/micro/lima_hail_deposition.f90 b/src/mesonh/micro/lima_hail_deposition.f90
new file mode 100644
index 000000000..1b411138f
--- /dev/null
+++ b/src/mesonh/micro/lima_hail_deposition.f90
@@ -0,0 +1,100 @@
+!MNH_LIC Copyright 2018-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-------------------------------------------------------------------------------
+! #################################
+ MODULE MODI_LIMA_HAIL_DEPOSITION
+! #################################
+!
+INTERFACE
+ SUBROUTINE LIMA_HAIL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRHT, PCHT, PSSI, PLBDH, PAI, PCJ, PLSFACT, &
+ P_TH_DEPH, P_RH_DEPH )
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHT ! hail mr
+REAL, DIMENSION(:), INTENT(IN) :: PCHT ! hail conc
+REAL, DIMENSION(:), INTENT(IN) :: PSSI !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+REAL, DIMENSION(:), INTENT(IN) :: PAI !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH
+!!
+END SUBROUTINE LIMA_HAIL_DEPOSITION
+END INTERFACE
+END MODULE MODI_LIMA_HAIL_DEPOSITION
+!
+! ###########################################################################
+ SUBROUTINE LIMA_HAIL_DEPOSITION (LDCOMPUTE, PRHODREF, &
+ PRHT, PCHT, PSSI, PLBDH, PAI, PCJ, PLSFACT, &
+ P_TH_DEPH, P_RH_DEPH )
+! ###########################################################################
+!
+!! PURPOSE
+!! -------
+!! Deposition of water vapour on graupel
+!!
+!!
+!! AUTHOR
+!! ------
+!! J.-M. Cohard * Laboratoire d'Aerologie*
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!! S. Berthet * Laboratoire d'Aerologie*
+!! B. Vié * CNRM *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 15/03/2018
+!!
+! M. Taufour 07/2022 add concentration for snow, graupel, hail
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
+USE MODD_PARAM_LIMA_MIXED, ONLY : X0DEPH, XEX0DEPH, X1DEPH, XEX1DEPH
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHT ! hail mr
+REAL, DIMENSION(:), INTENT(IN) :: PCHT ! hail conc
+REAL, DIMENSION(:), INTENT(IN) :: PSSI !
+REAL, DIMENSION(:), INTENT(IN) :: PLBDH !
+REAL, DIMENSION(:), INTENT(IN) :: PAI !
+REAL, DIMENSION(:), INTENT(IN) :: PCJ !
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT !
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH
+!
+!
+!-------------------------------------------------------------------------------
+!
+!
+!* 1. Deposition of vapour on graupel
+! -------------------------------
+!
+P_TH_DEPH(:) = 0.0
+P_RH_DEPH(:) = 0.0
+WHERE ( PRHT(:)>XRTMIN(7) .AND. PCHT(:)>XCTMIN(7) .AND. LDCOMPUTE(:) )
+ P_RH_DEPH(:) = PSSI(:) / PAI(:) * PCHT(:) * &
+ ( X0DEPH*PLBDH(:)**XEX0DEPH + X1DEPH*PCJ(:)*PLBDH(:)**XEX1DEPH )
+ P_TH_DEPH(:) = P_RH_DEPH(:)*PLSFACT(:)
+END WHERE
+!
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_HAIL_DEPOSITION
diff --git a/src/mesonh/micro/lima_ice_aggregation_snow.f90 b/src/mesonh/micro/lima_ice_aggregation_snow.f90
index 15e01ec84..26b230057 100644
--- a/src/mesonh/micro/lima_ice_aggregation_snow.f90
+++ b/src/mesonh/micro/lima_ice_aggregation_snow.f90
@@ -8,10 +8,10 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
- PT, PRHODREF, &
- PRIT, PRST, PCIT, PLBDI, PLBDS, &
- P_RI_AGGS, P_CI_AGGS )
+ SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
+ PT, PRHODREF, &
+ PRIT, PRST, PCIT, PCST, PLBDI, PLBDS, &
+ P_RI_AGGS, P_CI_AGGS )
!
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
!
@@ -21,6 +21,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
REAL, DIMENSION(:), INTENT(IN) :: PRIT
REAL, DIMENSION(:), INTENT(IN) :: PRST
REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
REAL, DIMENSION(:), INTENT(IN) :: PLBDI
REAL, DIMENSION(:), INTENT(IN) :: PLBDS
!
@@ -32,10 +33,10 @@ END INTERFACE
END MODULE MODI_LIMA_ICE_AGGREGATION_SNOW
!
! #######################################################################
- SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
- PT, PRHODREF, &
- PRIT, PRST, PCIT, PLBDI, PLBDS, &
- P_RI_AGGS, P_CI_AGGS )
+ SUBROUTINE LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, &
+ PT, PRHODREF, &
+ PRIT, PRST, PCIT, PCST, PLBDI, PLBDS, &
+ P_RI_AGGS, P_CI_AGGS )
! #######################################################################
!
!! PURPOSE
@@ -52,16 +53,19 @@ END MODULE MODI_LIMA_ICE_AGGREGATION_SNOW
!! MODIFICATIONS
!! -------------
!! Original 15/03/2018
-!!
+! J. Wurtz 03/2022: new snow characteristics
+! B. Vie 03/2022: Add option for 1-moment pristine ice
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
+!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_CST, ONLY : XTT
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT, NMOM_I, XNUS, XALPHAS, XCEXVT
USE MODD_PARAM_LIMA_COLD, ONLY : XBI, XCCS, XCXS, XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
- XAGGS_RLARGE1, XAGGS_RLARGE2
+ XAGGS_RLARGE1, XAGGS_RLARGE2, XFIAGGS, XBS, XNS, XFVELOS, XEXIAGGS
!
IMPLICIT NONE
!
@@ -75,6 +79,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
REAL, DIMENSION(:), INTENT(IN) :: PRIT
REAL, DIMENSION(:), INTENT(IN) :: PRST
REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PCST
REAL, DIMENSION(:), INTENT(IN) :: PLBDI
REAL, DIMENSION(:), INTENT(IN) :: PLBDS
!
@@ -99,19 +104,31 @@ P_RI_AGGS(:) = 0.
P_CI_AGGS(:) = 0.
!
!
-WHERE ( (PRIT(:)>XRTMIN(4)) .AND. (PRST(:)>XRTMIN(5)) .AND. LDCOMPUTE(:) )
- ZZW1(:) = (PLBDI(:) / PLBDS(:))**3
- ZZW2(:) = (PCIT(:)*(XCCS*PLBDS(:)**XCXS)/PRHODREF(:)*EXP( XCOLEXIS*(PT(:)-XTT) )) &
- / (PLBDI(:)**3)
- ZZW3(:) = ZZW2(:)*(XAGGS_CLARGE1+XAGGS_CLARGE2*ZZW1(:))
+IF (NMOM_I.EQ.1) THEN
+ WHERE ( PRIT(:)>XRTMIN(4) .AND. PRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
+ ZZW1(:) = XFIAGGS * EXP( XCOLEXIS*(PT(:)-XTT) ) &
+ * PRIT(:) &
+ * PCST(:) * (1+(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEXIAGGS/XALPHAS) &
+ * PRHODREF(:)**(-XCEXVT+1.) &
+ * PLBDS(:)**XEXIAGGS
+!
+ P_RI_AGGS(:) = - ZZW1(:)
+ END WHERE
+ELSE
+ WHERE ( PRIT(:)>XRTMIN(4) .AND. PRST(:)>XRTMIN(5) .AND. &
+ PCIT(:)>XCTMIN(4) .AND. PCST(:)>XCTMIN(5) .AND. LDCOMPUTE(:) )
+ ZZW1(:) = (PLBDI(:) / PLBDS(:))**3
+ ZZW2(:) = PCIT(:)*PCST(:)*EXP(XCOLEXIS*(PT(:)-XTT))*PRHODREF(:) / (PLBDI(:)**3)
+ ZZW3(:) = ZZW2(:)*(XAGGS_CLARGE1+XAGGS_CLARGE2*ZZW1(:))
!
- P_CI_AGGS(:) = - ZZW3(:)
+ P_CI_AGGS(:) = - ZZW3(:)
!
- ZZW2(:) = ZZW2(:) / PLBDI(:)**XBI
- ZZW2(:) = ZZW2(:)*(XAGGS_RLARGE1+XAGGS_RLARGE2*ZZW1(:))
+ ZZW2(:) = ZZW2(:) / PLBDI(:)**XBI
+ ZZW2(:) = ZZW2(:)*(XAGGS_RLARGE1+XAGGS_RLARGE2*ZZW1(:))
!
- P_RI_AGGS(:) = - ZZW2(:)
-END WHERE
+ P_RI_AGGS(:) = - ZZW2(:)
+ END WHERE
+END IF
!
!
!-------------------------------------------------------------------------------
diff --git a/src/mesonh/micro/lima_ice_deposition.f90 b/src/mesonh/micro/lima_ice_deposition.f90
index 8c7c57e40..b9ca8ed75 100644
--- a/src/mesonh/micro/lima_ice_deposition.f90
+++ b/src/mesonh/micro/lima_ice_deposition.f90
@@ -8,16 +8,17 @@
! #####################
!
INTERFACE
- SUBROUTINE LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, &
- PRHODREF, PSSI, PAI, PCJ, PLSFACT, &
- PRIT, PCIT, PLBDI, &
- P_TH_DEPI, P_RI_DEPI, &
- P_RI_CNVS, P_CI_CNVS )
+ SUBROUTINE LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, PSSI, PAI, PCJ, PLSFACT, &
+ PRIT, PCIT, PLBDI, &
+ P_TH_DEPI, P_RI_DEPI, &
+ P_RI_CNVS, P_CI_CNVS )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
!
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF! Reference density
+REAL, DIMENSION(:), INTENT(IN) :: PT ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PSSI ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PAI ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PCJ ! abs. pressure at time t
@@ -40,7 +41,7 @@ END MODULE MODI_LIMA_ICE_DEPOSITION
!
! ##########################################################################
SUBROUTINE LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, &
- PRHODREF, PSSI, PAI, PCJ, PLSFACT, &
+ PRHODREF, PT, PSSI, PAI, PCJ, PLSFACT, &
PRIT, PCIT, PLBDI, &
P_TH_DEPI, P_RI_DEPI, &
P_RI_CNVS, P_CI_CNVS )
@@ -65,23 +66,24 @@ SUBROUTINE LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, &
!! MODIFICATIONS
!! -------------
!! Original 15/03/2018
-!!
+!! B. Vié 30/08/2021 Disable CNVS if LSNOW=F
+!! B. Vie 03/2022 Add option for 1-moment pristine ice
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS
-USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, &
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS,&
+ LSNOW, NMOM_I
+USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, &
XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
- XSCFAC, X1DEPS, X0DEPS, XEX1DEPS, XEX0DEPS, &
- XDICNVS_LIM, XLBDAICNVS_LIM, &
+ XSCFAC, XDICNVS_LIM, XLBDAICNVS_LIM, &
XC0DEPIS, XC1DEPIS, XR0DEPIS, XR1DEPIS, &
XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
XAGGS_RLARGE1, XAGGS_RLARGE2, &
XDI, X0DEPI, X2DEPI
-
+USE MODD_CST, ONLY : XTT
!
IMPLICIT NONE
!
@@ -91,6 +93,7 @@ REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
!
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF! Reference density
+REAL, DIMENSION(:), INTENT(IN) :: PT ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PSSI ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PAI ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PCJ ! abs. pressure at time t
@@ -110,7 +113,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_CI_CNVS
!* 0.2 Declarations of local variables :
!
LOGICAL, DIMENSION(SIZE(PRHODREF)) :: GMICRO ! Computations only where necessary
-REAL, DIMENSION(SIZE(PRHODREF)) :: ZZW, ZZW2, ZZX ! Work array
+REAL, DIMENSION(SIZE(PRHODREF)) :: ZZW, ZZW2, ZZX, ZCRIAUTI ! Work array
!
!
!-------------------------------------------------------------------------------
@@ -128,48 +131,55 @@ P_CI_CNVS(:) = 0.
GMICRO(:) = LDCOMPUTE(:) .AND. PRIT(:)>XRTMIN(4)
!
!
-WHERE( GMICRO )
-!
+IF (NMOM_I.EQ.1) THEN
+ WHERE( GMICRO )
!
-!* 2.2 Deposition of water vapor on r_i: RVDEPI
-! -----------------------------------------------
+!* Conversion of pristine ice to r_s: RICNVS
+! -----------------------------------------
!
+ ZCRIAUTI(:)=MIN(0.2E-4,10**(0.06*(PT(:)-XTT)-3.5))
+ ZZW(:) = 0.0
+ WHERE ( (PRIT(:)>XRTMIN(4)))
+ ZZW(:) = 1.E-3 * EXP( 0.015*(PT(:)-XTT) ) * MAX( PRIT(:)-ZCRIAUTI(:),0.0 )
+ END WHERE
!
- ZZW(:) = 0.0
- WHERE ( (PRIT(:)>XRTMIN(4)) .AND. (PCIT(:)>XCTMIN(4)) )
- ZZW(:) = ( PSSI(:) / PAI(:) ) * PCIT(:) * &
- ( X0DEPI/PLBDI(:)+X2DEPI*PCJ(:)*PCJ(:)/PLBDI(:)**(XDI+2.0) )
+ P_RI_CNVS(:) = - ZZW(:)
END WHERE
-!
- P_RI_DEPI(:) = ZZW(:)
-!!$ P_TH_DEPI(:) = P_RI_DEPI(:) * PLSFACT(:)
-!
-!!$ PA_TH(:) = PA_TH(:) + P_TH_DEPI(:)
-!!$ PA_RV(:) = PA_RV(:) - P_RI_DEPI(:)
-!!$ PA_RI(:) = PA_RI(:) + P_RI_DEPI(:)
-!
-!
-!* 2.3 Conversion of pristine ice to r_s: RICNVS
-! ------------------------------------------------
-!
-!
- ZZW(:) = 0.0
- ZZW2(:) = 0.0
- WHERE ( (PLBDI(:)<XLBDAICNVS_LIM) .AND. (PCIT(:)>XCTMIN(4)) &
- .AND. (PSSI(:)>0.0) )
- ZZW(:) = (PLBDI(:)*XDICNVS_LIM)**(XALPHAI)
- ZZX(:) = ( PSSI(:)/PAI(:) )*PCIT(:) * (ZZW(:)**XNUI) *EXP(-ZZW(:))
-!
- ZZW(:) = ( XR0DEPIS + XR1DEPIS*PCJ(:) )*ZZX(:)
-!
- ZZW2(:) = ZZW(:) * (XC0DEPIS+XC1DEPIS*PCJ(:)) / (XR0DEPIS+XR1DEPIS*PCJ(:))
+ELSE
+ WHERE( GMICRO )
+!
+!* Deposition of water vapor on r_i: RVDEPI
+! ----------------------------------------
+!
+ ZZW(:) = 0.0
+ WHERE ( (PRIT(:)>XRTMIN(4)) .AND. (PCIT(:)>XCTMIN(4)) )
+ ZZW(:) = ( PSSI(:) / PAI(:) ) * PCIT(:) * &
+ ( X0DEPI/PLBDI(:)+X2DEPI*PCJ(:)*PCJ(:)/PLBDI(:)**(XDI+2.0) )
+ END WHERE
+ P_RI_DEPI(:) = ZZW(:)
+!
+!* Conversion of pristine ice to r_s: RICNVS
+! -----------------------------------------
+!
+ ZZW(:) = 0.0
+ ZZW2(:) = 0.0
+ WHERE ( (PLBDI(:)<XLBDAICNVS_LIM) .AND. (PCIT(:)>XCTMIN(4)) &
+ .AND. (PSSI(:)>0.0) )
+ ZZW(:) = (PLBDI(:)*XDICNVS_LIM)**(XALPHAI)
+ ZZX(:) = (PSSI(:)/PAI(:))*PCIT(:) * (ZZW(:)**XNUI) *EXP(-ZZW(:))
+!
+ ZZW(:) = (XR0DEPIS + XR1DEPIS*PCJ(:))*ZZX(:)
+!
+ ZZW2(:) = ZZW(:) * (XC0DEPIS+XC1DEPIS*PCJ(:)) / (XR0DEPIS+XR1DEPIS*PCJ(:))
+ END WHERE
+ P_RI_CNVS(:) = - ZZW(:)
+ P_CI_CNVS(:) = - ZZW2(:)
END WHERE
+END IF
!
-P_RI_CNVS(:) = - ZZW(:)
-P_CI_CNVS(:) = - ZZW2(:)
-!
-!
-END WHERE
-!
+IF (.NOT.LSNOW) THEN
+ P_RI_CNVS(:) = 0.
+ P_CI_CNVS(:) = 0.
+END IF
!
END SUBROUTINE LIMA_ICE_DEPOSITION
diff --git a/src/mesonh/micro/lima_init_ccn_activation_spectrum.f90 b/src/mesonh/micro/lima_init_ccn_activation_spectrum.f90
index 16a561740..4403f9702 100644
--- a/src/mesonh/micro/lima_init_ccn_activation_spectrum.f90
+++ b/src/mesonh/micro/lima_init_ccn_activation_spectrum.f90
@@ -287,7 +287,7 @@ fh = DSDD(PX2,XDDRY,XKAPPA,XT)
fl=fnew
else if (PX2 .lt. 0.05) then
PX2 = PX2 + 1.0E-2
- PRINT*, 'PX2 ALWAYS too small, we put a greater one : PX2 =',PX2
+! PRINT*, 'PX2 ALWAYS too small, we put a greater one : PX2 =',PX2
fh = DSDD(PX2,XDDRY,XKAPPA,XT)
go to 100
STOP
@@ -303,7 +303,7 @@ fh = DSDD(PX2,XDDRY,XKAPPA,XT)
PZRIDDR=PX2
else if (PX2 .lt. 0.05) then
PX2 = PX2 + 1.0E-2
- PRINT*, 'PX2 too small, we put a greater one : PX2 =',PX2
+! PRINT*, 'PX2 too small, we put a greater one : PX2 =',PX2
fh = DSDD(PX2,XDDRY,XKAPPA,XT)
go to 100
else
diff --git a/src/mesonh/micro/lima_inst_procs.f90 b/src/mesonh/micro/lima_inst_procs.f90
index ce7a12781..6a5aa149e 100644
--- a/src/mesonh/micro/lima_inst_procs.f90
+++ b/src/mesonh/micro/lima_inst_procs.f90
@@ -102,7 +102,7 @@ SUBROUTINE LIMA_INST_PROCS (PTSTEP, LDCOMPUTE,
!-------------------------------------------------------------------------------
!
!
-USE MODD_PARAM_LIMA, ONLY : LCOLD, LWARM, LRAIN
+USE MODD_PARAM_LIMA, ONLY : LCOLD, LWARM, LRAIN, NMOM_R
!
USE MODI_LIMA_DROPS_BREAK_UP
USE MODI_LIMA_DROPS_HOM_FREEZING
@@ -159,7 +159,7 @@ REAL, DIMENSION(:) , INTENT(INOUT) :: PPF1D ! Precipitation fraction
!
!-------------------------------------------------------------------------------
!
-IF (LWARM .AND. LRAIN) THEN
+IF (LWARM .AND. LRAIN .AND. NMOM_R.GE.2) THEN
CALL LIMA_DROPS_BREAK_UP (LDCOMPUTE, & ! no dependance on CF, IF or PF
PCRT, PRRT, &
P_CR_BRKU, &
diff --git a/src/mesonh/micro/lima_mixed.f90 b/src/mesonh/micro/lima_mixed.f90
index 49024b7b5..400969656 100644
--- a/src/mesonh/micro/lima_mixed.f90
+++ b/src/mesonh/micro/lima_mixed.f90
@@ -11,7 +11,6 @@ INTERFACE
SUBROUTINE LIMA_MIXED (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS)
!
@@ -35,9 +34,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -54,7 +50,6 @@ END MODULE MODI_LIMA_MIXED
SUBROUTINE LIMA_MIXED (OSEDI, OHHONI, KSPLITG, PTSTEP, KMI, &
KRR, PZZ, PRHODJ, &
PRHODREF, PEXNREF, PPABST, PW_NU, &
- PTHM, PPABSM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS )
! #######################################################################
@@ -96,6 +91,8 @@ END MODULE MODI_LIMA_MIXED
! P. Wautelet 03/2020: use the new data structures and subroutines for budgets (no more call to budget in this subroutine)
! P. Wautelet 28/05/2020: bugfix: correct array start for PSVT and PSVS
! P. Wautelet 02/02/2021: budgets: add missing source terms for SV budgets in LIMA
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -108,10 +105,13 @@ USE MODD_CST, ONLY: XP00, XRD, XRV, XMV, XMD, XCPD, XCPV, &
USE MODD_NSV
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA, ONLY: NMOD_IFN, XRTMIN, XCTMIN, LWARM, LCOLD, &
- NMOD_CCN, NMOD_IMM, LRAIN, LSNOW, LHAIL
+ NMOD_CCN, NMOD_IMM, LRAIN, LSNOW, LHAIL, LSNOW_T, &
+ NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_WARM, ONLY: XLBC, XLBEXC, XLBR, XLBEXR
-USE MODD_PARAM_LIMA_COLD, ONLY: XLBI, XLBEXI, XLBS, XLBEXS, XSCFAC
-USE MODD_PARAM_LIMA_MIXED, ONLY: XLBG, XLBEXG, XLBH, XLBEXH
+USE MODD_PARAM_LIMA_COLD, ONLY: XLBI, XLBEXI, XLBS, XLBEXS, XSCFAC, &
+ XLBDAS_MAX, XLBDAS_MIN, XTRANS_MP_GAMMAS, &
+ XBS, XCCS, XCXS, XNS
+USE MODD_PARAM_LIMA_MIXED, ONLY: XLBG, XLBEXG, XCCG, XCXG, XLBH, XLBEXH, XCCH, XCXH
use mode_tools, only: Countjv
@@ -140,9 +140,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
REAL, DIMENSION(:,:,:,NSV_LIMA_BEG:), INTENT(IN) :: PSVT ! Concentrations at time t
@@ -174,15 +171,29 @@ REAL, DIMENSION(SIZE(PZZ,1),SIZE(PZZ,2),SIZE(PZZ,3)) &
PCCT, & ! Cloud water C. at t
PCRT, & ! Rain water C. at t
PCIT, & ! Ice crystal C. at t
+ PCST, & ! Snow/aggregates C. at t
+ PCGT, & ! Graupel C. at t
+ PCHT, & ! Hail C. at t
!
PCCS, & ! Cloud water C. source
PCRS, & ! Rain water C. source
- PCIS ! Ice crystal C. source
-!
+ PCIS, & ! Ice crystal C. source
+ PCSS, & ! Snow/aggregates C. source
+ PCGS, & ! Graupel C. source
+ PCHS ! Hail C. source
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNFS ! CCN C. available source
+ !used as Free ice nuclei for
+ !HOMOGENEOUS nucleation of haze
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNAS ! Cloud C. nuclei C. source
+ !used as Free ice nuclei for
+ !IMMERSION freezing
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PIFS ! Free ice nuclei C. source
!for DEPOSITION and CONTACT
REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PINS ! Activated ice nuclei C. source
!for DEPOSITION and CONTACT
+REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: PNIS ! Activated ice nuclei C. source
+ !for IMMERSION
+REAL, DIMENSION(:,:,:), ALLOCATABLE :: PNHS ! Hom. freezing of CCN
!
! Replace PACK
LOGICAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) :: GMICRO
@@ -201,6 +212,9 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZRHT ! Hail m.r. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZCCT ! Cloud water conc. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZCRT ! Rain water conc. at t
REAL, DIMENSION(:), ALLOCATABLE :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCST ! Snow/aggregates conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCGT ! Graupel conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCHT ! Hail conc. at t
!
REAL, DIMENSION(:), ALLOCATABLE :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), ALLOCATABLE :: ZRCS ! Cloud water m.r. source
@@ -215,6 +229,9 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZTHS ! Theta source
REAL, DIMENSION(:), ALLOCATABLE :: ZCCS ! Cloud water conc. source
REAL, DIMENSION(:), ALLOCATABLE :: ZCRS ! Rain water conc. source
REAL, DIMENSION(:), ALLOCATABLE :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), ALLOCATABLE :: ZCSS ! Snow/aggregates conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCGS ! Graupel conc. at t
+REAL, DIMENSION(:), ALLOCATABLE :: ZCHS ! Hail conc. at t
!
REAL, DIMENSION(:,:), ALLOCATABLE :: ZIFS ! Free Ice nuclei conc. source
REAL, DIMENSION(:,:), ALLOCATABLE :: ZINS ! Nucleated Ice nuclei conc. source
@@ -289,17 +306,41 @@ IF ( KRR .GE. 7 ) PRHS(:,:,:) = PRS(:,:,:,7)
PCCT(:,:,:) = 0.
PCRT(:,:,:) = 0.
PCIT(:,:,:) = 0.
+PCST(:,:,:) = 0.
+PCGT(:,:,:) = 0.
+PCHT(:,:,:) = 0.
PCCS(:,:,:) = 0.
PCRS(:,:,:) = 0.
PCIS(:,:,:) = 0.
+PCSS(:,:,:) = 0.
+PCGS(:,:,:) = 0.
+PCHS(:,:,:) = 0.
!
IF ( LWARM ) PCCT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCST(:,:,:) = PSVT(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHT(:,:,:) = PSVT(:,:,:,NSV_LIMA_NH)
!
IF ( LWARM ) PCCS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NC)
IF ( LWARM .AND. LRAIN ) PCRS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NR)
IF ( LCOLD ) PCIS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NI)
+IF ( NMOM_S.GE.2 ) PCSS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NS)
+IF ( NMOM_G.GE.2 ) PCGS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NG)
+IF ( NMOM_H.GE.2 ) PCHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_NH)
+!
+IF ( NMOD_CCN .GE. 1 ) THEN
+ ALLOCATE( PNFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_CCN) )
+ ALLOCATE( PNAS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_CCN) )
+ PNFS(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1)
+ PNAS(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1)
+ELSE
+ ALLOCATE( PNFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),1) )
+ ALLOCATE( PNAS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),1) )
+ PNFS(:,:,:,:) = 0.
+ PNAS(:,:,:,:) = 0.
+END IF
!
IF ( NMOD_IFN .GE. 1 ) THEN
ALLOCATE( PIFS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_IFN) )
@@ -313,6 +354,22 @@ ELSE
PINS(:,:,:,:) = 0.
END IF
!
+IF ( NMOD_IMM .GE. 1 ) THEN
+ ALLOCATE( PNIS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),NMOD_IMM) )
+ PNIS(:,:,:,:) = PSVS(:,:,:,NSV_LIMA_IMM_NUCL:NSV_LIMA_IMM_NUCL+NMOD_IMM-1)
+ELSE
+ ALLOCATE( PNIS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3),1) )
+ PNIS(:,:,:,:) = 0.0
+END IF
+!
+IF ( OHHONI ) THEN
+ ALLOCATE( PNHS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) )
+ PNHS(:,:,:) = PSVS(:,:,:,NSV_LIMA_HOM_HAZE)
+ELSE
+ ALLOCATE( PNHS(SIZE(PRHODJ,1),SIZE(PRHODJ,2),SIZE(PRHODJ,3)) )
+ PNHS(:,:,:) = 0.0
+END IF
+!
!-------------------------------------------------------------------------------
!
!
@@ -342,7 +399,7 @@ GMICRO(IIB:IIE,IJB:IJE,IKB:IKE) = PRCT(IIB:IIE,IJB:IJE,IKB:IKE)>XRTMIN(2) .OR. &
!
IMICRO = COUNTJV( GMICRO(:,:,:),I1(:),I2(:),I3(:))
!
-IF( IMICRO >= 1 ) THEN
+IF( IMICRO >= 0 ) THEN
!
ALLOCATE(ZRVT(IMICRO))
ALLOCATE(ZRCT(IMICRO))
@@ -354,7 +411,10 @@ IF( IMICRO >= 1 ) THEN
!
ALLOCATE(ZCCT(IMICRO))
ALLOCATE(ZCRT(IMICRO))
- ALLOCATE(ZCIT(IMICRO))
+ ALLOCATE(ZCIT(IMICRO))
+ ALLOCATE(ZCST(IMICRO))
+ ALLOCATE(ZCGT(IMICRO))
+ ALLOCATE(ZCHT(IMICRO))
!
ALLOCATE(ZRVS(IMICRO))
ALLOCATE(ZRCS(IMICRO))
@@ -367,7 +427,10 @@ IF( IMICRO >= 1 ) THEN
!
ALLOCATE(ZCCS(IMICRO))
ALLOCATE(ZCRS(IMICRO))
- ALLOCATE(ZCIS(IMICRO))
+ ALLOCATE(ZCIS(IMICRO))
+ ALLOCATE(ZCSS(IMICRO))
+ ALLOCATE(ZCGS(IMICRO))
+ ALLOCATE(ZCHS(IMICRO))
ALLOCATE(ZIFS(IMICRO,NMOD_IFN))
ALLOCATE(ZINS(IMICRO,NMOD_IFN))
!
@@ -387,6 +450,9 @@ IF( IMICRO >= 1 ) THEN
ZCCT(JL) = PCCT(I1(JL),I2(JL),I3(JL))
ZCRT(JL) = PCRT(I1(JL),I2(JL),I3(JL))
ZCIT(JL) = PCIT(I1(JL),I2(JL),I3(JL))
+ ZCST(JL) = PCST(I1(JL),I2(JL),I3(JL))
+ ZCGT(JL) = PCGT(I1(JL),I2(JL),I3(JL))
+ ZCHT(JL) = PCHT(I1(JL),I2(JL),I3(JL))
!
ZRVS(JL) = PRVS(I1(JL),I2(JL),I3(JL))
ZRCS(JL) = PRCS(I1(JL),I2(JL),I3(JL))
@@ -400,6 +466,9 @@ IF( IMICRO >= 1 ) THEN
ZCCS(JL) = PCCS(I1(JL),I2(JL),I3(JL))
ZCRS(JL) = PCRS(I1(JL),I2(JL),I3(JL))
ZCIS(JL) = PCIS(I1(JL),I2(JL),I3(JL))
+ ZCSS(JL) = PCSS(I1(JL),I2(JL),I3(JL))
+ ZCGS(JL) = PCGS(I1(JL),I2(JL),I3(JL))
+ ZCHS(JL) = PCHS(I1(JL),I2(JL),I3(JL))
DO JMOD_IFN = 1, NMOD_IFN
ZIFS(JL,JMOD_IFN) = PIFS(I1(JL),I2(JL),I3(JL),JMOD_IFN)
ZINS(JL,JMOD_IFN) = PINS(I1(JL),I2(JL),I3(JL),JMOD_IFN)
@@ -466,18 +535,56 @@ IF( IMICRO >= 1 ) THEN
WHERE (ZRIT(:)>XRTMIN(4) .AND. ZCIT(:)>XCTMIN(4))
ZLBDAI(:) = ( XLBI*ZCIT(:) / ZRIT(:) )**XLBEXI
END WHERE
- ZLBDAS(:) = 1.E10
- WHERE (ZRST(:)>XRTMIN(5) )
- ZLBDAS(:) = XLBS*( ZRHODREF(:)*ZRST(:) )**XLBEXS
- END WHERE
+ IF (LSNOW_T .AND. NMOM_S.EQ.1) THEN
+ WHERE(ZZT(:)>263.15 .AND. ZRST(:)>XRTMIN(5))
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZZT(:))),XLBDAS_MIN)
+ END WHERE
+ WHERE(ZZT(:)<=263.15 .AND. ZRST(:)>XRTMIN(5))
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZZT(:))),XLBDAS_MIN)
+ END WHERE
+ ZLBDAS(:) = ZLBDAS(:) * XTRANS_MP_GAMMAS
+ ZCST(:) = (XNS*ZRST(:)*ZLBDAS(:)**XBS)
+ ZCSS(:) = (XNS*ZRSS(:)*ZLBDAS(:)**XBS)
+ ELSE IF (NMOM_S.GE.2) THEN
+ WHERE (ZRST(:)>XRTMIN(5) .AND. ZCST(:)>XCTMIN(5))
+ ZLBDAS(:) = ( XLBS*ZCST(:) / ZRST(:) )**XLBEXS
+ END WHERE
+ ELSE
+ ZLBDAS(:) = 1.E10
+ WHERE (ZRSS(:)>XRTMIN(5)/PTSTEP)
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX,XLBS*( ZRHODREF(:)*ZRSS(:)*PTSTEP )**XLBEXS),XLBDAS_MIN)
+ END WHERE
+ ZCSS(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:) / PTSTEP
+ ZLBDAS(:) = 1.E10
+ WHERE (ZRST(:)>XRTMIN(5) )
+ ZLBDAS(:) = MAX(MIN(XLBDAS_MAX,XLBS*( ZRHODREF(:)*ZRST(:) )**XLBEXS),XLBDAS_MIN)
+ END WHERE
+ ZCST(:) = XCCS*ZLBDAS(:)**XCXS / ZRHODREF(:)
+ END IF
ZLBDAG(:) = 1.E10
- WHERE (ZRGT(:)>XRTMIN(6) )
- ZLBDAG(:) = XLBG*( ZRHODREF(:)*ZRGT(:) )**XLBEXG
- END WHERE
+ if (NMOM_G.GE.2) then
+ WHERE (ZRGT(:)>XRTMIN(6) .AND. ZCGT(:)>XCTMIN(6) )
+ ZLBDAG(:) = ( XLBG*ZCGT(:) / ZRGT(:) )**XLBEXG
+ END WHERE
+ else
+ WHERE (ZRGT(:)>XRTMIN(6) )
+ ZLBDAG(:) = XLBG*( ZRHODREF(:)*ZRGT(:) )**XLBEXG
+ END WHERE
+ ZCGT(:) = XCCG*ZLBDAG(:)**XCXG / ZRHODREF(:)
+ ZCGS(:) = XCCG*ZLBDAG(:)**XCXG / ZRHODREF(:)
+ end if
ZLBDAH(:) = 1.E10
- WHERE (ZRHT(:)>XRTMIN(7) )
- ZLBDAH(:) = XLBH*( ZRHODREF(:)*ZRHT(:) )**XLBEXH
- END WHERE
+ if (NMOM_H.GE.2) then
+ WHERE (ZRHT(:)>XRTMIN(7) .AND. ZCHT(:)>XCTMIN(7))
+ ZLBDAH(:) = ( XLBH*ZCHT(:) / ZRHT(:) )**XLBEXH
+ END WHERE
+ else
+ WHERE (ZRHT(:)>XRTMIN(7) )
+ ZLBDAH(:) = XLBH*( ZRHODREF(:)*ZRHT(:) )**XLBEXH
+ END WHERE
+ ZCHT(:) = XCCH*ZLBDAH(:)**XCXH / ZRHODREF(:)
+ ZCHS(:) = XCCH*ZLBDAH(:)**XCXH / ZRHODREF(:)
+ end if
!
!-------------------------------------------------------------------------------
!
@@ -485,15 +592,15 @@ IF( IMICRO >= 1 ) THEN
!* 2. Compute the slow processes involving cloud water and graupel
! ------------------------------------------------------------
!
- CALL LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
- ZLSFACT, ZLVFACT, ZAI, ZCJ, &
- ZRGT, ZCIT, &
- ZRVS, ZRCS, ZRIS, ZRGS, ZTHS, &
- ZCCS, ZCIS, ZIFS, ZINS, &
- ZLBDAI, ZLBDAG, &
- ZRHODJ, GMICRO, PRHODJ, KMI, &
- PTHS, PRVS, PRCS, PRIS, PRGS, &
- PCCS, PCIS, PINS )
+ CALL LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZAI, ZCJ, &
+ ZRGT, ZRHT, ZCIT, ZCGT, ZCHT, &
+ ZRVS, ZRCS, ZRIS, ZRGS, ZRHS, ZTHS, &
+ ZCCS, ZCIS, ZCGS, ZIFS, ZINS, &
+ ZLBDAI, ZLBDAG, ZLBDAH, &
+ ZRHODJ, GMICRO, PRHODJ, KMI, &
+ PTHS, PRVS, PRCS, PRIS, PRGS, PRHS, &
+ PCCS, PCIS )
!
!-------------------------------------------------------------------------------
!
@@ -502,16 +609,16 @@ IF( IMICRO >= 1 ) THEN
! ------------------------------------
!
IF (LSNOW) THEN
- CALL LIMA_MIXED_FAST_PROCESSES(ZRHODREF, ZZT, ZPRES, PTSTEP, &
- ZLSFACT, ZLVFACT, ZKA, ZDV, ZCJ, &
- ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
- ZRHT, ZCCT, ZCRT, ZCIT, &
- ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS, &
- ZTHS, ZCCS, ZCRS, ZCIS, &
- ZLBDAC, ZLBDAR, ZLBDAS, ZLBDAG, ZLBDAH, &
- ZRHODJ, GMICRO, PRHODJ, KMI, PTHS, &
- PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
- PCCS, PCRS, PCIS )
+ CALL LIMA_MIXED_FAST_PROCESSES(ZRHODREF, ZZT, ZPRES, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZKA, ZDV, ZCJ, &
+ ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
+ ZRHT, ZCCT, ZCRT, ZCIT, ZCST, ZCGT, ZCHT, &
+ ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS, &
+ ZTHS, ZCCS, ZCRS, ZCIS, ZCSS, ZCGS, ZCHS, &
+ ZLBDAC, ZLBDAR, ZLBDAI, ZLBDAS, ZLBDAG, ZLBDAH, &
+ ZRHODJ, GMICRO, PRHODJ, KMI, PTHS, &
+ PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
+ PCCS, PCRS, PCIS, PCSS, PCGS, PCHS )
END IF
!
!-------------------------------------------------------------------------------
@@ -546,6 +653,18 @@ END IF
PCRS(:,:,:) = UNPACK( ZCRS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
ZW(:,:,:) = PCIS(:,:,:)
PCIS(:,:,:) = UNPACK( ZCIS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ if (NMOM_S.GE.2) then
+ ZW(:,:,:) = PCSS(:,:,:)
+ PCSS(:,:,:) = UNPACK( ZCSS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
+ if (NMOM_G.GE.2) then
+ ZW(:,:,:) = PCGS(:,:,:)
+ PCGS(:,:,:) = UNPACK( ZCGS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
+ if (NMOM_H.GE.2) then
+ ZW(:,:,:) = PCHS(:,:,:)
+ PCHS(:,:,:) = UNPACK( ZCHS(:),MASK=GMICRO(:,:,:),FIELD=ZW(:,:,:) )
+ end if
!
DO JMOD_IFN = 1, NMOD_IFN
ZW(:,:,:) = PIFS(:,:,:,JMOD_IFN)
@@ -567,6 +686,9 @@ END IF
DEALLOCATE(ZCCT)
DEALLOCATE(ZCRT)
DEALLOCATE(ZCIT)
+ DEALLOCATE(ZCST)
+ DEALLOCATE(ZCGT)
+ DEALLOCATE(ZCHT)
!
DEALLOCATE(ZRVS)
DEALLOCATE(ZRCS)
@@ -580,6 +702,9 @@ END IF
DEALLOCATE(ZCCS)
DEALLOCATE(ZCRS)
DEALLOCATE(ZCIS)
+ DEALLOCATE(ZCSS)
+ DEALLOCATE(ZCGS)
+ DEALLOCATE(ZCHS)
DEALLOCATE(ZIFS)
DEALLOCATE(ZINS)
!
@@ -626,16 +751,32 @@ IF ( KRR .GE. 7 ) PRS(:,:,:,7) = PRHS(:,:,:)
!
PSVS(:,:,:,NSV_LIMA_NC) = PCCS(:,:,:)
IF ( LRAIN ) PSVS(:,:,:,NSV_LIMA_NR) = PCRS(:,:,:)
+IF ( NMOM_S.GE.2 ) PSVS(:,:,:,NSV_LIMA_NS) = PCSS(:,:,:)
+IF ( NMOM_G.GE.2 ) PSVS(:,:,:,NSV_LIMA_NG) = PCGS(:,:,:)
+IF ( NMOM_H.GE.2 ) PSVS(:,:,:,NSV_LIMA_NH) = PCHS(:,:,:)
PSVS(:,:,:,NSV_LIMA_NI) = PCIS(:,:,:)
!
+IF ( NMOD_CCN .GE. 1 ) THEN
+ PSVS(:,:,:,NSV_LIMA_CCN_FREE:NSV_LIMA_CCN_FREE+NMOD_CCN-1) = PNFS(:,:,:,:)
+ PSVS(:,:,:,NSV_LIMA_CCN_ACTI:NSV_LIMA_CCN_ACTI+NMOD_CCN-1) = PNAS(:,:,:,:)
+END IF
+!
IF ( NMOD_IFN .GE. 1 ) THEN
PSVS(:,:,:,NSV_LIMA_IFN_FREE:NSV_LIMA_IFN_FREE+NMOD_IFN-1) = PIFS(:,:,:,:)
PSVS(:,:,:,NSV_LIMA_IFN_NUCL:NSV_LIMA_IFN_NUCL+NMOD_IFN-1) = PINS(:,:,:,:)
END IF
!
+IF ( NMOD_IMM .GE. 1 ) THEN
+ PSVS(:,:,:,NSV_LIMA_IMM_NUCL:NSV_LIMA_IMM_NUCL+NMOD_IMM-1) = PNIS(:,:,:,:)
+END IF
+!
!++cb++
+IF (ALLOCATED(PNFS)) DEALLOCATE(PNFS)
+IF (ALLOCATED(PNAS)) DEALLOCATE(PNAS)
IF (ALLOCATED(PIFS)) DEALLOCATE(PIFS)
IF (ALLOCATED(PINS)) DEALLOCATE(PINS)
+IF (ALLOCATED(PNIS)) DEALLOCATE(PNIS)
+IF (ALLOCATED(PNHS)) DEALLOCATE(PNHS)
!--cb--
!
!-------------------------------------------------------------------------------
diff --git a/src/mesonh/micro/lima_mixed_fast_processes.f90 b/src/mesonh/micro/lima_mixed_fast_processes.f90
index 09c86c8a2..6537474b4 100644
--- a/src/mesonh/micro/lima_mixed_fast_processes.f90
+++ b/src/mesonh/micro/lima_mixed_fast_processes.f90
@@ -8,58 +8,65 @@
! #####################################
!
INTERFACE
- SUBROUTINE LIMA_MIXED_FAST_PROCESSES (ZRHODREF, ZZT, ZPRES, PTSTEP, &
- ZLSFACT, ZLVFACT, ZKA, ZDV, ZCJ, &
- ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
- ZRHT, ZCCT, ZCRT, ZCIT, &
- ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS, &
- ZTHS, ZCCS, ZCRS, ZCIS, &
- ZLBDAC, ZLBDAR, ZLBDAS, ZLBDAG, ZLBDAH, &
- PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
- PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
- PCCS, PCRS, PCIS )
-!
-REAL, DIMENSION(:), INTENT(IN) :: ZRHODREF ! RHO Dry REFerence
-REAL, DIMENSION(:), INTENT(IN) :: ZZT ! Temperature
-REAL, DIMENSION(:), INTENT(IN) :: ZPRES ! Pressure
+ SUBROUTINE LIMA_MIXED_FAST_PROCESSES (PRHODREF, PZT, PPRES, PTSTEP, &
+ PLSFACT, PLVFACT, PKA, PDV, PCJ, &
+ PRVT1D, PRCT1D, PRRT1D, PRIT1D, PRST1D, PRGT1D, &
+ PRHT1D, PCCT1D, PCRT1D, PCIT1D, PCST1D, PCGT1D, PCHT1D, &
+ PRCS1D, PRRS1D, PRIS1D, PRSS1D, PRGS1D, PRHS1D, &
+ PTHS1D, PCCS1D, PCRS1D, PCIS1D, PCSS1D, PCGS1D, PCHS1D, &
+ PLBDAC, PLBDAR, PLBDAI, PLBDAS, PLBDAG, PLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
+ PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
+ PCCS, PCRS, PCIS, PCSS, PCGS, PCHS )
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! RHO Dry REFerence
+REAL, DIMENSION(:), INTENT(IN) :: PZT ! Temperature
+REAL, DIMENSION(:), INTENT(IN) :: PPRES ! Pressure
REAL, INTENT(IN) :: PTSTEP ! Time step
!
-REAL, DIMENSION(:), INTENT(IN) :: ZLSFACT ! L_s/(Pi_ref*C_ph)
-REAL, DIMENSION(:), INTENT(IN) :: ZLVFACT ! L_v/(Pi_ref*C_ph)
-REAL, DIMENSION(:), INTENT(IN) :: ZKA ! Thermal conductivity of the air
-REAL, DIMENSION(:), INTENT(IN) :: ZDV ! Diffusivity of water vapor in the air
-REAL, DIMENSION(:), INTENT(IN) :: ZCJ ! Ventilation coefficient ?
-!
-REAL, DIMENSION(:), INTENT(IN) :: ZRVT ! Water vapor m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRCT ! Cloud water m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRRT ! Rain water m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRIT ! Pristine ice m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRST ! Snow/aggregate m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRGT ! Graupel m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRHT ! Hail m.r. at t
-!
-REAL, DIMENSION(:), INTENT(IN) :: ZCCT ! Cloud water conc. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZCRT ! Rain water conc. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZCIT ! Pristine ice conc. at t
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRRS ! Rain water m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRIS ! Pristine ice m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRSS ! Snow/aggregate m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRGS ! Graupel/hail m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRHS ! Hail m.r. source
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: ZTHS ! Theta source
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: ZCCS ! Cloud water conc. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZCRS ! Rain water conc. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZCIS ! Pristine ice conc. source
-!
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAC ! Slope param of the cloud droplet distr.
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAR ! Slope param of the raindrop distr
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAS ! Slope param of the aggregate distr.
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAG ! Slope param of the graupel distr.
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAH ! Slope param of the hail distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! L_s/(Pi_ref*C_ph)
+REAL, DIMENSION(:), INTENT(IN) :: PLVFACT ! L_v/(Pi_ref*C_ph)
+REAL, DIMENSION(:), INTENT(IN) :: PKA ! Thermal conductivity of the air
+REAL, DIMENSION(:), INTENT(IN) :: PDV ! Diffusivity of water vapor in the air
+REAL, DIMENSION(:), INTENT(IN) :: PCJ ! Ventilation coefficient ?
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRVT1D ! Water vapor m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRCT1D ! Cloud water m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRRT1D ! Rain water m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRIT1D ! Pristine ice m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST1D ! Snow/aggregate m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRGT1D ! Graupel m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRHT1D ! Hail m.r. at t
+!
+REAL, DIMENSION(:), INTENT(IN) :: PCCT1D ! Cloud water conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCRT1D ! Rain water conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCIT1D ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST1D ! Snow/aggregate conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCGT1D ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCHT1D ! Hail conc. at t
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PRCS1D ! Cloud water m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRRS1D ! Rain water m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRIS1D ! Pristine ice m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRSS1D ! Snow/aggregate m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRGS1D ! Graupel/hail m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRHS1D ! Hail m.r. source
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PTHS1D ! Theta source
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PCCS1D ! Cloud water conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCRS1D ! Rain water conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCIS1D ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCSS1D ! Snow/aggregate conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCGS1D ! Graupel conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCHS1D ! Hail conc. source
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAC ! Slope param of the cloud droplet distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAR ! Slope param of the raindrop distr
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAI ! Slope param of the ice distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAS ! Slope param of the aggregate distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAG ! Slope param of the graupel distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAH ! Slope param of the hail distr.
!
! used for budget storage
REAL, DIMENSION(:), INTENT(IN) :: PRHODJ1D
@@ -76,23 +83,26 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCRS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCSS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCHS
!
END SUBROUTINE LIMA_MIXED_FAST_PROCESSES
END INTERFACE
END MODULE MODI_LIMA_MIXED_FAST_PROCESSES
!
-! #######################################################################
- SUBROUTINE LIMA_MIXED_FAST_PROCESSES (ZRHODREF, ZZT, ZPRES, PTSTEP, &
- ZLSFACT, ZLVFACT, ZKA, ZDV, ZCJ, &
- ZRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
- ZRHT, ZCCT, ZCRT, ZCIT, &
- ZRCS, ZRRS, ZRIS, ZRSS, ZRGS, ZRHS, &
- ZTHS, ZCCS, ZCRS, ZCIS, &
- ZLBDAC, ZLBDAR, ZLBDAS, ZLBDAG, ZLBDAH, &
- PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
- PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
- PCCS, PCRS, PCIS )
-! #######################################################################
+! ###############################################################################
+ SUBROUTINE LIMA_MIXED_FAST_PROCESSES (PRHODREF, PZT, PPRES, PTSTEP, &
+ PLSFACT, PLVFACT, PKA, PDV, PCJ, &
+ PRVT1D, PRCT1D, PRRT1D, PRIT1D, PRST1D, PRGT1D, &
+ PRHT1D, PCCT1D, PCRT1D, PCIT1D, PCST1D, PCGT1D, PCHT1D, &
+ PRCS1D, PRRS1D, PRIS1D, PRSS1D, PRGS1D, PRHS1D, &
+ PTHS1D, PCCS1D, PCRS1D, PCIS1D, PCSS1D, PCGS1D, PCHS1D, &
+ PLBDAC, PLBDAR, PLBDAI, PLBDAS, PLBDAG, PLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, PTHS, &
+ PRCS, PRRS, PRIS, PRSS, PRGS, PRHS, &
+ PCCS, PCRS, PCIS, PCSS, PCGS, PCHS )
+! ###############################################################################
!
!!
!! PURPOSE
@@ -142,6 +152,11 @@ END MODULE MODI_LIMA_MIXED_FAST_PROCESSES
!! C. Barthe * LACy * jan. 2014 add budgets
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
! P. Wautelet 03/2020: use the new data structures and subroutines for budgets
+! C. Barthe 14/03/2022: - add CIBU (from T. Hoarau's work) and RDSF (from J.P. Pinty's work)
+! - change the name of some arguments to match the DOCTOR norm
+! - change conditions for HMG to occur
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -156,6 +171,7 @@ USE MODD_NSV
USE MODD_PARAM_LIMA
USE MODD_PARAM_LIMA_COLD
USE MODD_PARAM_LIMA_MIXED
+USE MODD_PARAM_LIMA_WARM, ONLY : XBR, XDR
use mode_budget, only: Budget_store_init, Budget_store_end
@@ -163,53 +179,60 @@ IMPLICIT NONE
!
!* 0.1 Declarations of dummy arguments :
!
-REAL, DIMENSION(:), INTENT(IN) :: ZRHODREF ! RHO Dry REFerence
-REAL, DIMENSION(:), INTENT(IN) :: ZZT ! Temperature
-REAL, DIMENSION(:), INTENT(IN) :: ZPRES ! Pressure
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! RHO Dry REFerence
+REAL, DIMENSION(:), INTENT(IN) :: PZT ! Temperature
+REAL, DIMENSION(:), INTENT(IN) :: PPRES ! Pressure
REAL, INTENT(IN) :: PTSTEP ! Time step
!
-REAL, DIMENSION(:), INTENT(IN) :: ZLSFACT ! L_s/(Pi_ref*C_ph)
-REAL, DIMENSION(:), INTENT(IN) :: ZLVFACT ! L_v/(Pi_ref*C_ph)
-REAL, DIMENSION(:), INTENT(IN) :: ZKA ! Thermal conductivity of the air
-REAL, DIMENSION(:), INTENT(IN) :: ZDV ! Diffusivity of water vapor in the air
-REAL, DIMENSION(:), INTENT(IN) :: ZCJ ! Ventilation coefficient ?
-!
-REAL, DIMENSION(:), INTENT(IN) :: ZRVT ! Water vapor m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRCT ! Cloud water m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRRT ! Rain water m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRIT ! Pristine ice m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRST ! Snow/aggregate m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRGT ! Graupel/hail m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZRHT ! Hail m.r. at t
-!
-REAL, DIMENSION(:), INTENT(IN) :: ZCCT ! Cloud water conc. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZCRT ! Rain water conc. at t
-REAL, DIMENSION(:), INTENT(IN) :: ZCIT ! Pristine ice conc. at t
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRRS ! Rain water m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRIS ! Pristine ice m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRSS ! Snow/aggregate m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRGS ! Graupel/hail m.r. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZRHS ! Hail m.r. source
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: ZTHS ! Theta source
-!
-REAL, DIMENSION(:), INTENT(INOUT) :: ZCCS ! Cloud water conc. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZCRS ! Rain water conc. source
-REAL, DIMENSION(:), INTENT(INOUT) :: ZCIS ! Pristine ice conc. source
-!
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAC ! Slope param of the cloud droplet distr.
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAR ! Slope param of the raindrop distr
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAS ! Slope param of the aggregate distr.
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAG ! Slope param of the graupel distr.
-REAL, DIMENSION(:), INTENT(IN) :: ZLBDAH ! Slope param of the hail distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! L_s/(Pi_ref*C_ph)
+REAL, DIMENSION(:), INTENT(IN) :: PLVFACT ! L_v/(Pi_ref*C_ph)
+REAL, DIMENSION(:), INTENT(IN) :: PKA ! Thermal conductivity of the air
+REAL, DIMENSION(:), INTENT(IN) :: PDV ! Diffusivity of water vapor in the air
+REAL, DIMENSION(:), INTENT(IN) :: PCJ ! Ventilation coefficient ?
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRVT1D ! Water vapor m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRCT1D ! Cloud water m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRRT1D ! Rain water m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRIT1D ! Pristine ice m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST1D ! Snow/aggregate m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRGT1D ! Graupel m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRHT1D ! Hail m.r. at t
+!
+REAL, DIMENSION(:), INTENT(IN) :: PCCT1D ! Cloud water conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCRT1D ! Rain water conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCIT1D ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST1D ! Snow/aggregate conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCGT1D ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCHT1D ! Hail conc. at t
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PRCS1D ! Cloud water m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRRS1D ! Rain water m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRIS1D ! Pristine ice m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRSS1D ! Snow/aggregate m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRGS1D ! Graupel/hail m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PRHS1D ! Hail m.r. source
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PTHS1D ! Theta source
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: PCCS1D ! Cloud water conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCRS1D ! Rain water conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCIS1D ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCSS1D ! Snow/aggregate conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCGS1D ! Graupel conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: PCHS1D ! Hail conc. source
+!
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAC ! Slope param of the cloud droplet distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAR ! Slope param of the raindrop distr
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAI ! Slope param of the ice distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAS ! Slope param of the aggregate distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAG ! Slope param of the graupel distr.
+REAL, DIMENSION(:), INTENT(IN) :: PLBDAH ! Slope param of the hail distr.
!
! used for budget storage
REAL, DIMENSION(:), INTENT(IN) :: PRHODJ1D
LOGICAL, DIMENSION(:,:,:), INTENT(IN) :: GMICRO
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ
-INTEGER, INTENT(IN) :: KMI
+INTEGER, INTENT(IN) :: KMI
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRS
@@ -220,23 +243,74 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCRS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
-
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCSS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PCHS
!
!* 0.2 Declarations of local variables :
!
-LOGICAL, DIMENSION(SIZE(ZZT)) :: GRIM, GACC, GDRY, GWET, GHAIL ! Test where to compute
+LOGICAL, DIMENSION(SIZE(PZT)) :: GRIM, GACC, GDRY, GWET, GHAIL ! Test where to compute
INTEGER :: IGRIM, IGACC, IGDRY, IGWET, IHAIL
INTEGER :: JJ
INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1,IVEC2 ! Vectors of indices
REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
-REAL, DIMENSION(SIZE(ZZT)) :: ZZW, ZZX
-REAL, DIMENSION(SIZE(ZZT)) :: ZRDRYG, ZRWETG
-REAL, DIMENSION(SIZE(ZZT),7) :: ZZW1
+REAL, DIMENSION(SIZE(PZT)) :: ZZW, ZZX, ZZNW
+REAL, DIMENSION(SIZE(PRIT1D)) :: ZZDI, ZZDC
+REAL, DIMENSION(SIZE(PZT)) :: ZRDRYG, ZRWETG, ZNWETG
+REAL, DIMENSION(SIZE(PZT),7) :: ZZW1, ZZNW1
REAL :: NHAIL
REAL :: ZTHRH, ZTHRC
!
+! Variables for CIBU
+LOGICAL, DIMENSION(SIZE(PZT)) :: GCIBU ! Test where to compute collision process
+LOGICAL, SAVE :: GFIRSTCALL = .TRUE. ! control switch for the first call
+!
+INTEGER :: ICIBU
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC2_S1,IVEC2_S2 ! Snow indice vector
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC2_G ! Graupel indice vector
+INTEGER, PARAMETER :: I_SEED_PARAM = 26032012
+INTEGER, DIMENSION(:), ALLOCATABLE :: I_SEED
+INTEGER :: NI_SEED
+!
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_S, ZVEC1_SW, ZVEC1_S1, ZVEC1_S2, & ! Work vectors
+ ZVEC1_S3, ZVEC1_S4, &
+ ZVEC1_S11, ZVEC1_S12, & ! for snow
+ ZVEC1_S21, ZVEC1_S22, &
+ ZVEC1_S31, ZVEC1_S32, &
+ ZVEC1_S41, ZVEC1_S42, &
+ ZVEC2_S1, ZVEC2_S2
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_G, ZVEC1_G1, ZVEC1_G2, & ! Work vectors
+ ZVEC2_G ! for graupel
+REAL, DIMENSION(:), ALLOCATABLE :: ZINTG_SNOW_1, & ! incomplete gamma function
+ ZINTG_SNOW_2, & ! for snow
+ ZINTG_SNOW_3, &
+ ZINTG_SNOW_4
+REAL, DIMENSION(:), ALLOCATABLE :: ZINTG_GRAUPEL_1, & ! incomplete gamma
+ ZINTG_GRAUPEL_2 ! function for graupel
+REAL, DIMENSION(:), ALLOCATABLE :: ZNI_CIBU, ZRI_CIBU ! CIBU rates
+REAL, DIMENSION(:), ALLOCATABLE :: ZFRAGMENTS, ZHARVEST, ZFRAG_CIBU
+REAL :: ZFACT1_XNDEBRIS, ZFACT2_XNDEBRIS
+!
+LOGICAL, DIMENSION(SIZE(PZT)) :: GRDSF ! Test where to compute collision process
+INTEGER :: IRDSF
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_R ! Work vectors for rain
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_R1 ! Work vectors for rain
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC2_R ! Work vectors for rain
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC2_R ! Rain indice vector
+REAL, DIMENSION(:), ALLOCATABLE :: ZINTG_RAIN ! incomplete gamma function for rain
+REAL, DIMENSION(:), ALLOCATABLE :: ZNI_RDSF,ZRI_RDSF ! RDSF rates
+!
+REAL, DIMENSION(:), ALLOCATABLE :: ZAUX ! used to distribute
+REAL, DIMENSION(:,:), ALLOCATABLE :: ZFACT ! the total concentration in each shape
+REAL, DIMENSION(:), ALLOCATABLE :: ZONEOVER_VAR ! for optimization
+LOGICAL :: M2_ICE
+!
+!
!-------------------------------------------------------------------------------
!
+M2_ICE = NMOM_S.GE.2 .AND. NMOM_G.GE.2
+IF (LHAIL) M2_ICE = M2_ICE .AND. NMOM_H.GE.2
+!
! #################
! FAST RS PROCESSES
! #################
@@ -249,349 +323,770 @@ SNOW: IF (LSNOW) THEN
!
ZZW1(:,:) = 0.0
!
-GRIM(:) = (ZRCT(:)>XRTMIN(2)) .AND. (ZRST(:)>XRTMIN(5)) .AND. (ZRCS(:)>XRTMIN(2)/PTSTEP) .AND. (ZZT(:)<XTT)
+GRIM(:) = (PRCT1D(:)>XRTMIN(2)) .AND. (PRST1D(:)>XRTMIN(5)) .AND. (PRCS1D(:)>XRTMIN(2)/PTSTEP) .AND. (PZT(:)<XTT)
+IF (NMOM_S.GE.2) GRIM(:) = GRIM(:) .AND. (PCST1D(:)>XCTMIN(5))
IGRIM = COUNT( GRIM(:) )
!
IF( IGRIM>0 ) THEN
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'RIM', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'RIM', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'RIM', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'RIM', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'RIM', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'RIM', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'RIM', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
! 1.1.0 allocations
!
- ALLOCATE(ZVEC1(IGRIM))
- ALLOCATE(ZVEC2(IGRIM))
- ALLOCATE(IVEC1(IGRIM))
- ALLOCATE(IVEC2(IGRIM))
+ ALLOCATE(ZVEC1(IGRIM))
+ ALLOCATE(ZVEC2(IGRIM))
+ ALLOCATE(IVEC1(IGRIM))
+ ALLOCATE(IVEC2(IGRIM))
!
-! 1.1.1 select the ZLBDAS
+! 1.1.1 select the PLBDAS
!
- ZVEC1(:) = PACK( ZLBDAS(:),MASK=GRIM(:) )
+ ZVEC1(:) = PACK( PLBDAS(:),MASK=GRIM(:) )
!
-! 1.1.2 find the next lower indice for the ZLBDAS in the geometrical
+! 1.1.2 find the next lower indice for the PLBDAS in the geometrical
! set of Lbda_s used to tabulate some moments of the incomplete
! gamma function
!
- ZVEC2(1:IGRIM) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
+ ZVEC2(1:IGRIM) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
XRIMINTP1 * LOG( ZVEC1(1:IGRIM) ) + XRIMINTP2 ) )
- IVEC2(1:IGRIM) = INT( ZVEC2(1:IGRIM) )
- ZVEC2(1:IGRIM) = ZVEC2(1:IGRIM) - REAL( IVEC2(1:IGRIM) )
+ IVEC2(1:IGRIM) = INT( ZVEC2(1:IGRIM) )
+ ZVEC2(1:IGRIM) = ZVEC2(1:IGRIM) - REAL( IVEC2(1:IGRIM) )
!
! 1.1.3 perform the linear interpolation of the normalized
! "2+XDS"-moment of the incomplete gamma function
!
- ZVEC1(1:IGRIM) = XGAMINC_RIM1( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
- - XGAMINC_RIM1( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
- ZZW(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 )
+ ZVEC1(1:IGRIM) = XGAMINC_RIM1( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
+ - XGAMINC_RIM1( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
+ ZZW(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 )
!
! 1.1.4 riming of the small sized aggregates
!
- WHERE ( GRIM(:) )
- ZZW1(:,1) = MIN( ZRCS(:), &
- XCRIMSS * ZZW(:) * ZRCT(:) & ! RCRIMSS
- * ZLBDAS(:)**XEXCRIMSS &
- * ZRHODREF(:)**(-XCEXVT) )
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRSS(:) = ZRSS(:) + ZZW1(:,1)
- ZTHS(:) = ZTHS(:) + ZZW1(:,1)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RCRIMSS))
+ WHERE ( GRIM(:) )
+ ZZW1(:,1) = MIN( PRCS1D(:), &
+ XCRIMSS * ZZW(:) * PRCT1D(:) * PCST1D(:) &
+ * PLBDAS(:)**XEXCRIMSS &
+ * (1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEXCRIMSS/XALPHAS) &
+ * PRHODREF(:)**(-XCEXVT) )
+ PRCS1D(:) = PRCS1D(:) - ZZW1(:,1)
+ PRSS1D(:) = PRSS1D(:) + ZZW1(:,1)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,1)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RCRIMSS))
!
- ZCCS(:) = MAX( ZCCS(:)-ZZW1(:,1)*(ZCCT(:)/ZRCT(:)),0.0 ) ! Lambda_c**3
- END WHERE
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,1)*(PCCT1D(:)/PRCT1D(:)),0.0 ) ! Lambda_c**3
+ END WHERE
!
! 1.1.5 perform the linear interpolation of the normalized
! "XBS"-moment of the incomplete gamma function
!
- ZVEC1(1:IGRIM) = XGAMINC_RIM2( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
- - XGAMINC_RIM2( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
- ZZW(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 )
+ ZVEC1(1:IGRIM) = XGAMINC_RIM2( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
+ - XGAMINC_RIM2( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
+ ZZW(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 )
!
! 1.1.6 riming-conversion of the large sized aggregates into graupeln
!
-!
- WHERE ( GRIM(:) .AND. (ZRSS(:)>XRTMIN(5)/PTSTEP) )
- ZZW1(:,2) = MIN( ZRCS(:), &
- XCRIMSG * ZRCT(:) & ! RCRIMSG
- * ZLBDAS(:)**XEXCRIMSG &
- * ZRHODREF(:)**(-XCEXVT) &
+ WHERE ( GRIM(:) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) .AND. (PCSS1D(:)>XCTMIN(5)/PTSTEP))
+ ZZW1(:,2) = MIN( PRCS1D(:), &
+ XCRIMSG * PRCT1D(:) * PCST1D(:) & ! RCRIMSG
+ * PLBDAS(:)**XEXCRIMSG*(1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEXCRIMSG/XALPHAS) &
+ * PRHODREF(:)**(-XCEXVT) &
- ZZW1(:,1) )
- ZZW1(:,3) = MIN( ZRSS(:), &
- XSRIMCG * ZLBDAS(:)**XEXSRIMCG & ! RSRIMCG
- * (1.0 - ZZW(:) )/(PTSTEP*ZRHODREF(:)))
- ZRCS(:) = ZRCS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRGS(:) = ZRGS(:) + ZZW1(:,2) + ZZW1(:,3)
- ZTHS(:) = ZTHS(:) + ZZW1(:,2)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RCRIMSG))
-!
- ZCCS(:) = MAX( ZCCS(:)-ZZW1(:,2)*(ZCCT(:)/ZRCT(:)),0.0 ) ! Lambda_c**3
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
-
+ ZZW1(:,3) = MIN( PRSS1D(:), PCST1D(:) * &
+ XSRIMCG * PLBDAS(:)**XEXSRIMCG & ! RSRIMCG
+ * (1.0 - ZZW(:) )/PTSTEP)
+ PRCS1D(:) = PRCS1D(:) - ZZW1(:,2)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
+ PRGS1D(:) = PRGS1D(:) + ZZW1(:,2) + ZZW1(:,3)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,2)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RCRIMSG))
+!
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZW1(:,2)*(PCCT1D(:)/PRCT1D(:)),0.0 ) ! Lambda_c**3
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZW1(:,3)*(PCST1D(:)/PRST1D(:)),0.0 )
+ PCGS1D(:) = MAX( PCGS1D(:)+ZZW1(:,3)*(PCST1D(:)/PRST1D(:)),0.0 ) !
+ END WHERE
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
+ !
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'RIM', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'RIM', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'RIM', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'RIM', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'RIM', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'RIM', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'RIM', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
END IF
!
+!
!* 1.2 Hallett-Mossop ice multiplication process due to snow riming
! -----------------------------------------------------------------
!
-!
-GRIM(:) = (ZZT(:)<XHMTMAX) .AND. (ZZT(:)>XHMTMIN) &
- .AND. (ZRST(:)>XRTMIN(5)) .AND. (ZRCT(:)>XRTMIN(2))
+GRIM(:) = (PZT(:)<XHMTMAX) .AND. (PZT(:)>XHMTMIN) &
+ .AND. (PRST1D(:)>XRTMIN(5)) .AND. (PRCT1D(:)>XRTMIN(2))
IGRIM = COUNT( GRIM(:) )
IF( IGRIM>0 ) THEN
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'HMS', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'HMS', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HMS', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
end if
- ALLOCATE(ZVEC1(IGRIM))
- ALLOCATE(ZVEC2(IGRIM))
- ALLOCATE(IVEC2(IGRIM))
-!
- ZVEC1(:) = PACK( ZLBDAC(:),MASK=GRIM(:) )
- ZVEC2(1:IGRIM) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
- XHMLINTP1 * LOG( ZVEC1(1:IGRIM) ) + XHMLINTP2 ) )
- IVEC2(1:IGRIM) = INT( ZVEC2(1:IGRIM) )
- ZVEC2(1:IGRIM) = ZVEC2(1:IGRIM) - REAL( IVEC2(1:IGRIM) )
- ZVEC1(1:IGRIM) = XGAMINC_HMC( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
- - XGAMINC_HMC( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
- ZZX(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 ) ! Large droplets
-!
- WHERE ( GRIM(:) .AND. ZZX(:)<0.99 )
- ZZW1(:,5) = (ZZW1(:,1)+ZZW1(:,2))*(ZCCT(:)/ZRCT(:))*(1.0-ZZX(:))* &
- XHM_FACTS* &
- MAX( 0.0, MIN( (ZZT(:)-XHMTMIN)/3.0,(XHMTMAX-ZZT(:))/2.0 ) ) ! CCHMSI
- ZCIS(:) = ZCIS(:) + ZZW1(:,5)
-!
- ZZW1(:,6) = ZZW1(:,5) * XMNU0 ! RCHMSI
- ZRIS(:) = ZRIS(:) + ZZW1(:,6)
- ZRSS(:) = ZRSS(:) - ZZW1(:,6)
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
-
+ ALLOCATE(ZVEC1(IGRIM))
+ ALLOCATE(ZVEC2(IGRIM))
+ ALLOCATE(IVEC2(IGRIM))
+!
+ ZVEC1(:) = PACK( PLBDAC(:),MASK=GRIM(:) )
+ ZVEC2(1:IGRIM) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
+ XHMLINTP1 * LOG( ZVEC1(1:IGRIM) ) + XHMLINTP2 ) )
+ IVEC2(1:IGRIM) = INT( ZVEC2(1:IGRIM) )
+ ZVEC2(1:IGRIM) = ZVEC2(1:IGRIM) - REAL( IVEC2(1:IGRIM) )
+ ZVEC1(1:IGRIM) = XGAMINC_HMC( IVEC2(1:IGRIM)+1 )* ZVEC2(1:IGRIM) &
+ - XGAMINC_HMC( IVEC2(1:IGRIM) )*(ZVEC2(1:IGRIM) - 1.0)
+ ZZX(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GRIM,FIELD=0.0 ) ! Large droplets
+!
+ WHERE ( GRIM(:) .AND. ZZX(:)<0.99 )
+ ZZW1(:,5) = (ZZW1(:,1)+ZZW1(:,2))*(PCCT1D(:)/PRCT1D(:))*(1.0-ZZX(:))* &
+ XHM_FACTS* &
+ MAX( 0.0, MIN( (PZT(:)-XHMTMIN)/3.0,(XHMTMAX-PZT(:))/2.0 ) ) ! CCHMSI
+ PCIS1D(:) = PCIS1D(:) + ZZW1(:,5)
+!
+ ZZW1(:,6) = ZZW1(:,5) * XMNU0 ! RCHMSI
+ PRIS1D(:) = PRIS1D(:) + ZZW1(:,6)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,6)
+ END WHERE
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
+ !
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'HMS', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'HMS', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HMS', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
end if
END IF
!
!
-!* 1.3 Rain accretion onto the aggregates
+!* 1.3 Ice multiplication process due to ice-ice collisions
+! ---------------------------------------------------------
+!
+GCIBU(:) = LCIBU .AND. (PRST1D(:)>XRTMIN(5)) .AND. (PRGT1D(:)>XRTMIN(6))
+ICIBU = COUNT( GCIBU(:) )
+!
+IF (ICIBU > 0) THEN
+!
+ ! Budget storage
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CIBU', &
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'CIBU', &
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CIBU', &
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ end if
+!
+! 1.3.0 randomization of XNDEBRIS_CIBU values
+!
+ IF (GFIRSTCALL) THEN
+ CALL RANDOM_SEED(SIZE=NI_SEED) ! get size of seed
+ ALLOCATE(I_SEED(NI_SEED))
+ I_SEED(:) = I_SEED_PARAM !
+ CALL RANDOM_SEED(PUT=I_SEED)
+ GFIRSTCALL = .FALSE.
+ END IF
+!
+ ALLOCATE(ZFRAGMENTS(ICIBU))
+!
+ IF (XNDEBRIS_CIBU >= 0.0) THEN
+ ZFRAGMENTS(:) = XNDEBRIS_CIBU
+ ELSE
+!
+! Mantissa gives the mean value (randomization around 10**MANTISSA)
+! First digit after the comma provides the full range around 10**MANTISSA
+!
+ ALLOCATE(ZHARVEST(ICIBU))
+!
+ ZFACT1_XNDEBRIS = AINT(XNDEBRIS_CIBU)
+ ZFACT2_XNDEBRIS = ABS(ANINT(10.0*(XNDEBRIS_CIBU - ZFACT1_XNDEBRIS)))
+!
+ CALL RANDOM_NUMBER(ZHARVEST(:))
+!
+ ZFRAGMENTS(:) = 10.0**(ZFACT2_XNDEBRIS*ZHARVEST(:) + ZFACT1_XNDEBRIS)
+!
+ DEALLOCATE(ZHARVEST)
+!
+! ZFRAGMENTS is a random variable containing the number of fragments per collision
+! For XNDEBRIS_CIBU=-1.2345 => ZFRAGMENTS(:) = 10.0**(2.0*RANDOM_NUMBER(ZHARVEST(:)) - 1.0)
+! and ZFRAGMENTS=[0.1, 10.0] centered around 1.0
+!
+ END IF
+!
+!
+! 1.3.1 To compute the partial integration of snow gamma function
+!
+! 1.3.1.0 allocations
+!
+ ALLOCATE(ZVEC1_S(ICIBU))
+ ALLOCATE(ZVEC1_SW(ICIBU))
+ ALLOCATE(ZVEC1_S1(ICIBU))
+ ALLOCATE(ZVEC1_S2(ICIBU))
+ ALLOCATE(ZVEC1_S3(ICIBU))
+ ALLOCATE(ZVEC1_S4(ICIBU))
+ ALLOCATE(ZVEC1_S11(ICIBU))
+ ALLOCATE(ZVEC1_S12(ICIBU))
+ ALLOCATE(ZVEC1_S21(ICIBU))
+ ALLOCATE(ZVEC1_S22(ICIBU))
+ ALLOCATE(ZVEC1_S31(ICIBU))
+ ALLOCATE(ZVEC1_S32(ICIBU))
+ ALLOCATE(ZVEC1_S41(ICIBU))
+ ALLOCATE(ZVEC1_S42(ICIBU))
+ ALLOCATE(ZVEC2_S1(ICIBU))
+ ALLOCATE(IVEC2_S1(ICIBU))
+ ALLOCATE(ZVEC2_S2(ICIBU))
+ ALLOCATE(IVEC2_S2(ICIBU))
+!
+!
+! 1.3.1.1 select the PLBDAS
+!
+ ZVEC1_S(:) = PACK( PLBDAS(:),MASK=GCIBU(:) )
+ ZVEC1_SW(:)= ( XFVELOS**XALPHAS + ZVEC1_S(:)**XALPHAS ) ** (1./XALPHAS) ! modified equivalent lambda
+!
+!
+! 1.3.1.2 find the next lower indice for the PLBDAS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 1 (0.2 mm)
+!
+ ZVEC2_S1(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_S(1:ICIBU) ) + XCIBUINTP1_S ) )
+ IVEC2_S1(1:ICIBU) = INT( ZVEC2_S1(1:ICIBU) )
+ ZVEC2_S1(1:ICIBU) = ZVEC2_S1(1:ICIBU) - FLOAT( IVEC2_S1(1:ICIBU) )
+!
+!
+! 1.3.1.3 find the next lower indice for the PLBDAS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 2 (1 mm)
+!
+ ZVEC2_S2(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_S(1:ICIBU) ) + XCIBUINTP2_S ) )
+ IVEC2_S2(1:ICIBU) = INT( ZVEC2_S2(1:ICIBU) )
+ ZVEC2_S2(1:ICIBU) = ZVEC2_S2(1:ICIBU) - FLOAT( IVEC2_S2(1:ICIBU) )
+!
+!
+! 1.3.1.4 perform the linear interpolation of the
+! normalized "0"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S11(1:ICIBU) = XGAMINC_CIBU_S(1,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(1,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S12(1:ICIBU) = XGAMINC_CIBU_S(1,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(1,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! Computation of spectrum from 0.2 mm to 1 mm
+ ZVEC1_S1(1:ICIBU) = ZVEC1_S12(1:ICIBU) - ZVEC1_S11(1:ICIBU)
+!
+!
+! 1.3.1.5 perform the linear interpolation of the
+! normalized "XBS"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S31(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S32(1:ICIBU) = XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(3,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! From 0.2 mm to 1 mm we need
+ ZVEC1_S3(1:ICIBU) = XMOMGS_CIBU_2 * (ZVEC1_S32(1:ICIBU) - ZVEC1_S31(1:ICIBU))
+!
+!
+! 1.3.1.2 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 1 (0.2 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S1(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP1_S ) )
+ IVEC2_S1(1:ICIBU) = INT( ZVEC2_S1(1:ICIBU) )
+ ZVEC2_S1(1:ICIBU) = ZVEC2_S1(1:ICIBU) - FLOAT( IVEC2_S1(1:ICIBU) )
+!
+!
+! 1.3.1.3 find the next lower indice for the PLBDS in the
+! geometrical set of Lbda_s used to tabulate some moments of the
+! incomplete gamma function, for boundary 2 (1 mm) for modified lambda (Wurtz snow fall speed)
+!
+ ZVEC2_S2(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_S &
+ * LOG( ZVEC1_SW(1:ICIBU) ) + XCIBUINTP2_S ) )
+ IVEC2_S2(1:ICIBU) = INT( ZVEC2_S2(1:ICIBU) )
+ ZVEC2_S2(1:ICIBU) = ZVEC2_S2(1:ICIBU) - FLOAT( IVEC2_S2(1:ICIBU) )
+!
+!
+! 1.3.1.5 perform the linear interpolation of the
+! normalized "XDS"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S21(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S22(1:ICIBU) = XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(2,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! From 0.2 mm to 1 mm we need
+ ZVEC1_S2(1:ICIBU) = XMOMGS_CIBU_1 * (ZVEC1_S22(1:ICIBU) - ZVEC1_S21(1:ICIBU))
+!
+!
+! 1.3.1.6 perform the linear interpolation of the
+! normalized "XBS+XDS"-moment of the incomplete gamma function
+!
+! For lower boundary (0.2 mm)
+ ZVEC1_S41(1:ICIBU) = XGAMINC_CIBU_S(4,IVEC2_S1(1:ICIBU)+1) * ZVEC2_S1(1:ICIBU) &
+ - XGAMINC_CIBU_S(4,IVEC2_S1(1:ICIBU)) * (ZVEC2_S1(1:ICIBU)-1.0)
+!
+! For upper boundary (1 mm)
+ ZVEC1_S42(1:ICIBU) = XGAMINC_CIBU_S(4,IVEC2_S2(1:ICIBU)+1) * ZVEC2_S2(1:ICIBU) &
+ - XGAMINC_CIBU_S(4,IVEC2_S2(1:ICIBU)) * (ZVEC2_S2(1:ICIBU)-1.0)
+!
+! From 0.2 mm to 1 mm we need
+ ZVEC1_S4(1:ICIBU) = XMOMGS_CIBU_3 * (ZVEC1_S42(1:ICIBU) - ZVEC1_S41(1:ICIBU))
+!
+ ALLOCATE(ZINTG_SNOW_1(SIZE(PZT)))
+ ALLOCATE(ZINTG_SNOW_2(SIZE(PZT)))
+ ALLOCATE(ZINTG_SNOW_3(SIZE(PZT)))
+ ALLOCATE(ZINTG_SNOW_4(SIZE(PZT)))
+!
+ ZINTG_SNOW_1(:) = UNPACK ( VECTOR=ZVEC1_S1(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_SNOW_2(:) = UNPACK ( VECTOR=ZVEC1_S2(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_SNOW_3(:) = UNPACK ( VECTOR=ZVEC1_S3(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_SNOW_4(:) = UNPACK ( VECTOR=ZVEC1_S4(:),MASK=GCIBU,FIELD=0.0 )
+!
+!
+! 1.3.2 Compute the partial integration of graupel gamma function
+!
+! 1.3.2.0 allocations
+!
+ ALLOCATE(ZVEC1_G(ICIBU))
+ ALLOCATE(ZVEC1_G1(ICIBU))
+ ALLOCATE(ZVEC1_G2(ICIBU))
+ ALLOCATE(ZVEC2_G(ICIBU))
+ ALLOCATE(IVEC2_G(ICIBU))
+!
+!
+! 1.3.2.1 select the PLBDAG
+!
+ ZVEC1_G(:) = PACK( PLBDAG(:),MASK=GCIBU(:) )
+!
+!
+! 1.3.2.2 find the next lower indice for the PLBDAG in the
+! geometrical set of Lbda_g used to tabulate some moments of the
+! incomplete gamma function, for the "2mm" boundary
+!
+ ZVEC2_G(1:ICIBU) = MAX( 1.0001, MIN( FLOAT(NGAMINC)-0.0001,XCIBUINTP_G &
+ * LOG( ZVEC1_G(1:ICIBU) ) + XCIBUINTP1_G ) )
+ IVEC2_G(1:ICIBU) = INT( ZVEC2_G(1:ICIBU) )
+ ZVEC2_G(1:ICIBU) = ZVEC2_G(1:ICIBU) - FLOAT( IVEC2_G(1:ICIBU) )
+!
+!
+! 1.3.2.3 perform the linear interpolation of the
+! normalized "2+XDG"-moment of the incomplete gamma function
+!
+ ZVEC1_G1(1:ICIBU) = XGAMINC_CIBU_G(1,IVEC2_G(1:ICIBU)+1) * ZVEC2_G(1:ICIBU) &
+ - XGAMINC_CIBU_G(1,IVEC2_G(1:ICIBU)) * (ZVEC2_G(1:ICIBU)-1.0)
+!
+! From 2 mm to infinity we need
+ ZVEC1_G1(1:ICIBU) = XMOMGG_CIBU_1 * (1.0 - ZVEC1_G1(1:ICIBU))
+!
+!
+! 1.3.2.4 perform the linear interpolation of the
+! normalized "2.0"-moment of the incomplete gamma function
+!
+ ZVEC1_G2(1:ICIBU) = XGAMINC_CIBU_G(2,IVEC2_G(1:ICIBU)+1) * ZVEC2_G(1:ICIBU) &
+ - XGAMINC_CIBU_G(2,IVEC2_G(1:ICIBU)) * (ZVEC2_G(1:ICIBU)-1.0)
+!
+! From 2 mm to infinity we need
+ ZVEC1_G2(1:ICIBU) = XMOMGG_CIBU_2 * (1.0 - ZVEC1_G2(1:ICIBU))
+!
+!
+ ALLOCATE(ZINTG_GRAUPEL_1(SIZE(PZT)))
+ ALLOCATE(ZINTG_GRAUPEL_2(SIZE(PZT)))
+!
+ ZINTG_GRAUPEL_1(:) = UNPACK ( VECTOR=ZVEC1_G1(:),MASK=GCIBU,FIELD=0.0 )
+ ZINTG_GRAUPEL_2(:) = UNPACK ( VECTOR=ZVEC1_G2(:),MASK=GCIBU,FIELD=0.0 )
+!
+!
+! 1.3.3 To compute final "CIBU" contributions
+!
+ ALLOCATE(ZNI_CIBU(SIZE(PZT)))
+ ALLOCATE(ZFRAG_CIBU(SIZE(PZT)))
+!
+ ZFRAG_CIBU(:) = UNPACK ( VECTOR=ZFRAGMENTS(:),MASK=GCIBU,FIELD=0.0 )
+ ZNI_CIBU(:) = ZFRAG_CIBU(:) * (XFACTOR_CIBU_NI * PCST1D(:) * PCGT1D(:) / (PRHODREF(:)**XCEXVT)) * &
+ (XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_1(:) * &
+ PLBDAG(:)**(-(XDG+2.0)) &
+ - XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_2(:) * &
+ PLBDAS(:)**(-XDS) * PLBDAG(:)**(-2.0) * &
+ (1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS-XDS/XALPHAS) )
+
+ PCIS1D(:) = PCIS1D(:) + MAX(ZNI_CIBU(:), 0.)
+!
+ DEALLOCATE(ZFRAG_CIBU)
+ DEALLOCATE(ZFRAGMENTS)
+!
+! Max value of rs removed by CIBU
+ ALLOCATE(ZRI_CIBU(SIZE(PZT)))
+ ZRI_CIBU(:) = (XFACTOR_CIBU_RI * PCST1D(:) * PCGT1D(:) / (PRHODREF(:)**XCEXVT)) * &
+ (XCG * ZINTG_GRAUPEL_1(:) * ZINTG_SNOW_3(:) * &
+ PLBDAS(:)**(-XBS) * PLBDAG(:)**(-(XDG+2.0)) &
+ - XCS * ZINTG_GRAUPEL_2(:) * ZINTG_SNOW_4(:) * &
+ PLBDAS(:)**(-XBS-XDS) * PLBDAG(:)**(-2.0) * &
+ (1+(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS-(XBS+XDS)/XALPHAS) )
+!
+! The value of rs removed by CIBU is determined by the mean mass of pristine ice
+ WHERE( PRIT1D(:)>XRTMIN(4) .AND. PCIT1D(:)>XCTMIN(4) )
+ ZRI_CIBU(:) = MIN( ZRI_CIBU(:), PRSS1D(:), ZNI_CIBU(:)*PRIT1D(:)/PCIT1D(:) )
+ ELSEWHERE
+ ZRI_CIBU(:) = MIN( ZRI_CIBU(:), PRSS1D(:), MAX( ZNI_CIBU(:)*XMNU0,XRTMIN(4) ) )
+ END WHERE
+!
+ PRIS1D(:) = PRIS1D(:) + MAX(ZRI_CIBU(:), 0.) !
+ PRSS1D(:) = PRSS1D(:) - MAX(ZRI_CIBU(:), 0.) !
+!
+ DEALLOCATE(ZVEC1_S)
+ DEALLOCATE(ZVEC1_SW)
+ DEALLOCATE(ZVEC1_S1)
+ DEALLOCATE(ZVEC1_S2)
+ DEALLOCATE(ZVEC1_S3)
+ DEALLOCATE(ZVEC1_S4)
+ DEALLOCATE(ZVEC1_S11)
+ DEALLOCATE(ZVEC1_S12)
+ DEALLOCATE(ZVEC1_S21)
+ DEALLOCATE(ZVEC1_S22)
+ DEALLOCATE(ZVEC1_S31)
+ DEALLOCATE(ZVEC1_S32)
+ DEALLOCATE(ZVEC1_S41)
+ DEALLOCATE(ZVEC1_S42)
+ DEALLOCATE(ZVEC2_S1)
+ DEALLOCATE(IVEC2_S1)
+ DEALLOCATE(ZVEC2_S2)
+ DEALLOCATE(IVEC2_S2)
+ DEALLOCATE(ZVEC1_G)
+ DEALLOCATE(ZVEC1_G1)
+ DEALLOCATE(ZVEC1_G2)
+ DEALLOCATE(ZVEC2_G)
+ DEALLOCATE(IVEC2_G)
+ DEALLOCATE(ZINTG_SNOW_1)
+ DEALLOCATE(ZINTG_SNOW_2)
+ DEALLOCATE(ZINTG_SNOW_3)
+ DEALLOCATE(ZINTG_SNOW_4)
+ DEALLOCATE(ZINTG_GRAUPEL_1)
+ DEALLOCATE(ZINTG_GRAUPEL_2)
+ DEALLOCATE(ZNI_CIBU)
+ DEALLOCATE(ZRI_CIBU)
+ !
+ ! Budget storage
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CIBU', &
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'CIBU', &
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CIBU', &
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ end if
+END IF
+!
+!
+!* 1.4 Rain accretion onto the aggregates
! ---------------------------------------
!
!
ZZW1(:,2:3) = 0.0
-GACC(:) = (ZRRT(:)>XRTMIN(3)) .AND. (ZRST(:)>XRTMIN(5)) .AND. (ZRRS(:)>XRTMIN(3)/PTSTEP) .AND. (ZZT(:)<XTT)
+GACC(:) = (PRRT1D(:)>XRTMIN(3)) .AND. (PRST1D(:)>XRTMIN(5)) .AND. (PRRS1D(:)>XRTMIN(3)/PTSTEP) .AND. (PZT(:)<XTT)
IGACC = COUNT( GACC(:) )
!
IF( IGACC>0 .AND. LRAIN) THEN
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'ACC', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'ACC', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'ACC', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'ACC', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'ACC', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'ACC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'ACC', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
-! 1.3.0 allocations
+! 1.4.0 allocations
!
- ALLOCATE(ZVEC1(IGACC))
- ALLOCATE(ZVEC2(IGACC))
- ALLOCATE(ZVEC3(IGACC))
- ALLOCATE(IVEC1(IGACC))
- ALLOCATE(IVEC2(IGACC))
+ ALLOCATE(ZVEC1(IGACC))
+ ALLOCATE(ZVEC2(IGACC))
+ ALLOCATE(ZVEC3(IGACC))
+ ALLOCATE(IVEC1(IGACC))
+ ALLOCATE(IVEC2(IGACC))
!
-! 1.3.1 select the (ZLBDAS,ZLBDAR) couplet
+! 1.4.1 select the (PLBDAS,PLBDAR) couplet
!
- ZVEC1(:) = PACK( ZLBDAS(:),MASK=GACC(:) )
- ZVEC2(:) = PACK( ZLBDAR(:),MASK=GACC(:) )
+ if (M2_ICE) then
+ ZVEC1(:) = PACK( MAX(MIN(PLBDAS(:),5.E5),5.E1),MASK=GACC(:) )
+ else
+ ZVEC1(:) = PACK( PLBDAS(:),MASK=GACC(:) )
+ end if
+ ZVEC2(:) = PACK( PLBDAR(:),MASK=GACC(:) )
!
-! 1.3.2 find the next lower indice for the ZLBDAS and for the ZLBDAR
+! 1.4.2 find the next lower indice for the PLBDAS and for the PLBDAR
! in the geometrical set of (Lbda_s,Lbda_r) couplet use to
! tabulate the RACCSS-kernel
!
- ZVEC1(1:IGACC) = MAX( 1.0001, MIN( REAL(NACCLBDAS)-0.0001, &
- XACCINTP1S * LOG( ZVEC1(1:IGACC) ) + XACCINTP2S ) )
- IVEC1(1:IGACC) = INT( ZVEC1(1:IGACC) )
- ZVEC1(1:IGACC) = ZVEC1(1:IGACC) - REAL( IVEC1(1:IGACC) )
+ ZVEC1(1:IGACC) = MAX( 1.0001, MIN( REAL(NACCLBDAS)-0.0001, &
+ XACCINTP1S * LOG( ZVEC1(1:IGACC) ) + XACCINTP2S ) )
+ IVEC1(1:IGACC) = INT( ZVEC1(1:IGACC) )
+ ZVEC1(1:IGACC) = ZVEC1(1:IGACC) - REAL( IVEC1(1:IGACC) )
!
- ZVEC2(1:IGACC) = MAX( 1.0001, MIN( REAL(NACCLBDAR)-0.0001, &
- XACCINTP1R * LOG( ZVEC2(1:IGACC) ) + XACCINTP2R ) )
- IVEC2(1:IGACC) = INT( ZVEC2(1:IGACC) )
- ZVEC2(1:IGACC) = ZVEC2(1:IGACC) - REAL( IVEC2(1:IGACC) )
+ ZVEC2(1:IGACC) = MAX( 1.0001, MIN( REAL(NACCLBDAR)-0.0001, &
+ XACCINTP1R * LOG( ZVEC2(1:IGACC) ) + XACCINTP2R ) )
+ IVEC2(1:IGACC) = INT( ZVEC2(1:IGACC) )
+ ZVEC2(1:IGACC) = ZVEC2(1:IGACC) - REAL( IVEC2(1:IGACC) )
!
-! 1.3.3 perform the bilinear interpolation of the normalized
+! 1.4.3 perform the bilinear interpolation of the normalized
! RACCSS-kernel
!
- DO JJ = 1,IGACC
- ZVEC3(JJ) = ( XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_RACCSS(IVEC1(JJ)+1,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
+ DEALLOCATE(ZVEC3)
+ ALLOCATE(ZVEC3(IGACC))
+!
+!
+! 1.4.3b perform the bilinear interpolation of the normalized
+! RACCSS-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_RACCSS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCSS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
* ZVEC1(JJ) &
- - ( XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RACCSS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ - ( XKER_N_RACCSS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCSS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
* (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
-!
-! 1.3.4 raindrop accretion on the small sized aggregates
-!
- WHERE ( GACC(:) )
- ZZW1(:,2) = ZCRT(:) * & !! coef of RRACCS
- XFRACCSS*( ZLBDAS(:)**XCXS )*( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRACCS1/((ZLBDAS(:)**2) ) + &
- XLBRACCS2/( ZLBDAS(:) * ZLBDAR(:) ) + &
- XLBRACCS3/( (ZLBDAR(:)**2)) )/ZLBDAR(:)**3
- ZZW1(:,4) = MIN( ZRRS(:),ZZW1(:,2)*ZZW(:) ) ! RRACCSS
- ZRRS(:) = ZRRS(:) - ZZW1(:,4)
- ZRSS(:) = ZRSS(:) + ZZW1(:,4)
- ZTHS(:) = ZTHS(:) + ZZW1(:,4)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RRACCSS))
-!
- ZCRS(:) = MAX( ZCRS(:)-ZZW1(:,4)*(ZCRT(:)/ZRRT(:)),0.0 ) ! Lambda_r**3
- END WHERE
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
+!
+! 1.4.4 raindrop accretion on the small sized aggregates
+!
+ WHERE ( GACC(:) )
+ ZZW1(:,2) = PCRT1D(:) * & !! coef of RRACCS
+ XFRACCSS*( PCST1D(:) )*( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBRACCS1/((PLBDAS(:)**2) ) + &
+ XLBRACCS2/( PLBDAS(:) * PLBDAR(:) ) + &
+ XLBRACCS3/( (PLBDAR(:)**2)) )/PLBDAR(:)**3
+!
+ ZZNW1(:,2) = PCRT1D(:) * & !! coef of CRACCS
+ XFNRACCSS*( PCST1D(:) )*( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNRACCS1/((PLBDAS(:)**2) ) + &
+ XLBNRACCS2/( PLBDAS(:) * PLBDAR(:) ) + &
+ XLBNRACCS3/( (PLBDAR(:)**2)) )
+ ZZW1(:,4) = MIN( PRRS1D(:),ZZW1(:,2)*ZZW(:) ) ! RRACCSS
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
+ PRSS1D(:) = PRSS1D(:) + ZZW1(:,4)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,4)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RRACCSS))
+!
+ ZZNW1(:,4) = MIN( PCRS1D(:),ZZNW1(:,2)*ZZNW(:) ) ! NRACCSS
+ PCRS1D(:) = PCRS1D(:)-ZZNW1(:,4)
+ END WHERE
+!
+! 1.4.4b perform the bilinear interpolation of the normalized
+! RACCS-kernel
!
-! 1.3.4b perform the bilinear interpolation of the normalized
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_RACCS(IVEC1(JJ)+1,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_RACCS(IVEC1(JJ)+1,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_RACCS(IVEC1(JJ) ,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_RACCS(IVEC1(JJ) ,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZW1(:,2) = ZZW1(:,2)*UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 ) !! RRACCS
+!
+! 1.3.4b2 perform the bilinear interpolation of the normalized
! RACCS-kernel
!
- DO JJ = 1,IGACC
- ZVEC3(JJ) = ( XKER_RACCS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RACCS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_RACCS(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCS(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
* ZVEC1(JJ) &
- - ( XKER_RACCS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RACCS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ - ( XKER_N_RACCS(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RACCS(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
* (ZVEC1(JJ) - 1.0)
- END DO
- ZZW1(:,2) = ZZW1(:,2)*UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 ) !! RRACCS
+ END DO
+ ZZNW1(:,2) = ZZNW1(:,2)*UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 ) !! NRACCS
!
-! 1.3.5 perform the bilinear interpolation of the normalized
+! 1.4.5 perform the bilinear interpolation of the normalized
! SACCRG-kernel
!
- DO JJ = 1,IGACC
- ZVEC3(JJ) = ( XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
- - XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ)+1) * ZVEC1(JJ) &
+ - XKER_SACCRG(IVEC2(JJ)+1,IVEC1(JJ) ) * (ZVEC1(JJ) - 1.0) ) &
+ * ZVEC2(JJ) &
+ - ( XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ)+1) * ZVEC1(JJ) &
+ - XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ) ) * (ZVEC1(JJ) - 1.0) ) &
+ * (ZVEC2(JJ) - 1.0)
+ END DO
+ ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
+!
+! 1.3.5b perform the bilinear interpolation of the normalized
+! SACCRG-kernel
+!
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_SACCRG(IVEC2(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SACCRG(IVEC2(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
* ZVEC2(JJ) &
- - ( XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
- - XKER_SACCRG(IVEC2(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ - ( XKER_N_SACCRG(IVEC2(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SACCRG(IVEC2(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
* (ZVEC2(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC,FIELD=0.0 )
!
-! 1.3.6 raindrop accretion-conversion of the large sized aggregates
+! 1.4.6 raindrop accretion-conversion of the large sized aggregates
! into graupeln
!
- WHERE ( GACC(:) .AND. (ZRSS(:)>XRTMIN(5)/PTSTEP) )
- ZZW1(:,2) = MAX( MIN( ZRRS(:),ZZW1(:,2)-ZZW1(:,4) ) , 0. ) ! RRACCSG
- ZZW1(:,3) = MIN( ZRSS(:),XFSACCRG*ZZW(:)* & ! RSACCRG
- ( ZLBDAS(:)**(XCXS-XBS) )*( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSACCR1/((ZLBDAR(:)**2) ) + &
- XLBSACCR2/( ZLBDAR(:) * ZLBDAS(:) ) + &
- XLBSACCR3/( (ZLBDAS(:)**2)) ) )
- ZRRS(:) = ZRRS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRGS(:) = ZRGS(:) + ZZW1(:,2)+ZZW1(:,3)
- ZTHS(:) = ZTHS(:) + ZZW1(:,2)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RRACCSG))
-!
- ZCRS(:) = MAX( ZCRS(:)-ZZW1(:,2)*(ZCRT(:)/ZRRT(:)),0.0 ) ! Lambda_r**3
- END WHERE
+ WHERE ( GACC(:) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) .AND. (PCSS1D(:)>XCTMIN(5)/PTSTEP) )
+ ZZW1(:,2) = MAX( MIN( PRRS1D(:),ZZW1(:,2)-ZZW1(:,4) ) , 0. ) ! RRACCSG
+ ZZNW1(:,2) = MAX( MIN( PCRS1D(:),ZZNW1(:,2)-ZZNW1(:,4) ) , 0. ) ! NRACCSG
+ ZZW1(:,3) = MIN( PRSS1D(:),PCRT1D(:)*XFSACCRG*ZZW(:)* PCST1D(:) * & ! RSACCRG
+ PLBDAS(:)**(-XBS) * ( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBSACCR1/((PLBDAR(:)**2) ) + &
+ XLBSACCR2/( PLBDAR(:) * PLBDAS(:) ) + &
+ XLBSACCR3/( (PLBDAS(:)**2)) ) )
+ ZZNW1(:,3) = MIN( PCSS1D(:),PCRT1D(:)*XFNSACCRG*ZZNW(:)* PCST1D(:) * & ! NSACCRG
+ ( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNSACCR1/((PLBDAR(:)**2) ) + &
+ XLBNSACCR2/( PLBDAR(:) * PLBDAS(:) ) + &
+ XLBNSACCR3/( (PLBDAS(:)**2)) ) )
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,2)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
+ PRGS1D(:) = PRGS1D(:) + ZZW1(:,2)+ZZW1(:,3)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,2)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(RRACCSG))
+!
+ PCRS1D(:) = PCRS1D(:)-ZZNW1(:,2) !
+ PCSS1D(:) = PCSS1D(:)-ZZNW1(:,3)
+ PCGS1D(:) = PCGS1D(:)+ZZNW1(:,3)
+ END WHERE
DEALLOCATE(IVEC2)
DEALLOCATE(IVEC1)
DEALLOCATE(ZVEC3)
DEALLOCATE(ZVEC2)
DEALLOCATE(ZVEC1)
-
+ !
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'ACC', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'ACC', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'ACC', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'ACC', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'ACC', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'ACC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'ACC', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
END IF
!
-!* 1.4 Conversion-Melting of the aggregates
+!
+!* 1.5 Conversion-Melting of the aggregates
! -----------------------------------------
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'CMEL', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'CMEL', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2 .and. NMOM_G.GE.2 ) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CMEL', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CMEL', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
-
+!
ZZW(:) = 0.0
-WHERE( (ZRST(:)>XRTMIN(5)) .AND. (ZRSS(:)>XRTMIN(5)/PTSTEP) .AND. (ZZT(:)>XTT) )
- ZZW(:) = ZRVT(:)*ZPRES(:)/((XMV/XMD)+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
+WHERE( (PRST1D(:)>XRTMIN(5)) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP) .AND. (PZT(:)>XTT) )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RSMLT
!
- ZZW(:) = MIN( ZRSS(:), XFSCVMG*MAX( 0.0,( -ZZW(:) * &
- ( X0DEPS* ZLBDAS(:)**XEX0DEPS + &
- X1DEPS*ZCJ(:)*ZLBDAS(:)**XEX1DEPS ) - &
+ ZZW(:) = MIN( PRSS1D(:), XFSCVMG*MAX( 0.0,( -ZZW(:) * PCST1D(:) * &
+ ( X0DEPS* PLBDAS(:)**XEX0DEPS + &
+ X1DEPS*PCJ(:)*PLBDAS(:)**XEX1DEPS * &
+ (1+0.5*(XFVELOS/PLBDAS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) ) - &
( ZZW1(:,1)+ZZW1(:,4) ) * &
- ( ZRHODREF(:)*XCL*(XTT-ZZT(:))) ) / &
- ( ZRHODREF(:)*XLMTT ) ) )
-!
-! note that RSCVMG = RSMLT*XFSCVMG but no heat is exchanged (at the rate RSMLT)
-! because the graupeln produced by this process are still icy!!!
-!
- ZRSS(:) = ZRSS(:) - ZZW(:)
- ZRGS(:) = ZRGS(:) + ZZW(:)
+ ( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
+ ( PRHODREF(:)*XLMTT ) ) )
+ PRSS1D(:) = PRSS1D(:) - ZZW(:)
+ PRGS1D(:) = PRGS1D(:) + ZZW(:)
+ PCSS1D(:) = MAX( PCSS1D(:) - ZZW(:)*(MAX(PCST1D(:),XCTMIN(5))/MAX(PRST1D(:),XRTMIN(5))), 0.0 )
+ PCGS1D(:) = MAX( PCGS1D(:) + ZZW(:)*(MAX(PCST1D(:),XCTMIN(5))/MAX(PRST1D(:),XRTMIN(5))), 0.0 )
END WHERE
!
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'CMEL', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'CMEL', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_S.GE.2 .AND. NMOM_G.GE.2) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'CMEL', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CMEL', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
END IF SNOW
@@ -608,311 +1103,482 @@ END IF SNOW
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'CFRZ', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'CFRZ', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CFRZ', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'CFRZ', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'CFRZ', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CFRZ', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2 ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CFRZ', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
ZZW1(:,3:4) = 0.0
-WHERE( (ZRIT(:)>XRTMIN(4)) .AND. (ZRRT(:)>XRTMIN(3)) .AND. (ZRIS(:)>XRTMIN(4)/PTSTEP) .AND. (ZRRS(:)>XRTMIN(3)/PTSTEP) )
- ZZW1(:,3) = MIN( ZRIS(:),XICFRR * ZRIT(:) * ZCRT(:) & ! RICFRRG
- * ZLBDAR(:)**XEXICFRR &
- * ZRHODREF(:)**(-XCEXVT-1.0) )
-!
- ZZW1(:,4) = MIN( ZRRS(:),XRCFRI * ZCIT(:) * ZCRT(:) & ! RRCFRIG
- * ZLBDAR(:)**XEXRCFRI &
- * ZRHODREF(:)**(-XCEXVT-2.0) )
- ZRIS(:) = ZRIS(:) - ZZW1(:,3)
- ZRRS(:) = ZRRS(:) - ZZW1(:,4)
- ZRGS(:) = ZRGS(:) + ZZW1(:,3)+ZZW1(:,4)
- ZTHS(:) = ZTHS(:) + ZZW1(:,4)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*RRCFRIG)
-!
- ZCIS(:) = MAX( ZCIS(:)-ZZW1(:,3)*(ZCIT(:)/ZRIT(:)),0.0 ) ! CICFRRG
- ZCRS(:) = MAX( ZCRS(:)-ZZW1(:,4)*(ZCRT(:)/ZRRT(:)),0.0 ) ! CRCFRIG
+WHERE( (PRIT1D(:)>XRTMIN(4)) .AND. (PRRT1D(:)>XRTMIN(3)) .AND. (PRIS1D(:)>XRTMIN(4)/PTSTEP) .AND. (PRRS1D(:)>XRTMIN(3)/PTSTEP) )
+ ZZW1(:,3) = MIN( PRIS1D(:),XICFRR * PRIT1D(:) * PCRT1D(:) & ! RICFRRG
+ * PLBDAR(:)**XEXICFRR &
+ * PRHODREF(:)**(-XCEXVT-1.0) )
+!
+ ZZW1(:,4) = MIN( PRRS1D(:),XRCFRI * PCIT1D(:) * PCRT1D(:) & ! RRCFRIG
+ * PLBDAR(:)**XEXRCFRI &
+ * PRHODREF(:)**(-XCEXVT-2.0) )
+ PRIS1D(:) = PRIS1D(:) - ZZW1(:,3)
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
+ PRGS1D(:) = PRGS1D(:) + ZZW1(:,3)+ZZW1(:,4)
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,4)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*RRCFRIG)
+!
+ PCIS1D(:) = MAX( PCIS1D(:)-ZZW1(:,3)*(PCIT1D(:)/PRIT1D(:)),0.0 ) ! CICFRRG
+ PCRS1D(:) = MAX( PCRS1D(:)-ZZW1(:,4)*(PCRT1D(:)/PRRT1D(:)),0.0 ) ! CRCFRIG
+ PCGS1D(:) = PCGS1D(:)+ZZW1(:,3)*(PCIT1D(:)/PRIT1D(:))
END WHERE
-
+!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'CFRZ', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'CFRZ', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CFRZ', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'CFRZ', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'CFRZ', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'CFRZ', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. NMOM_G.GE.2 ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'CFRZ', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
-!* 2.2 Compute the Dry growth case
+!
+!* 2.2 Ice multiplication process following rain contact freezing
+! ---------------------------------------------------------------
+!
+GRDSF(:) = LRDSF .AND. (PRIT1D(:)>0.0) .AND. (PRRT1D(:)>0.0) .AND. &
+ (PRIS1D(:)>0.0) .AND. (PRRS1D(:)>0.0)
+IRDSF = COUNT( GRDSF(:) )
+!
+IF (IRDSF > 0) THEN
+!
+ ! Budget storage
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'RDSF', &
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'RDSF', &
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'RDSF', &
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ end if
+!
+ ALLOCATE(ZVEC1_R(IRDSF))
+ ALLOCATE(ZVEC1_R1(IRDSF))
+ ALLOCATE(ZVEC2_R(IRDSF))
+ ALLOCATE(IVEC2_R(IRDSF))
+!
+!* 2.2.1 select the ZLBDAR
+!
+ ZVEC1_R(:) = PACK( PLBDAR(:),MASK=GRDSF(:) )
+!
+!* 2.2.2 find the next lower indice for the ZLBDAR in the
+! geometrical set of Lbda_r used to tabulate some moments of the
+! incomplete gamma function, for the lower boundary (0.1 mm)
+!
+ ZVEC2_R(1:IRDSF) = MAX( 1.00001, MIN( FLOAT(NGAMINC)-0.00001,XRDSFINTP_R &
+ * LOG( ZVEC1_R(1:IRDSF) ) + XRDSFINTP1_R ) )
+ IVEC2_R(1:IRDSF) = INT( ZVEC2_R(1:IRDSF) )
+ ZVEC2_R(1:IRDSF) = ZVEC2_R(1:IRDSF) - FLOAT( IVEC2_R(1:IRDSF) )
+!
+!* 2.2.3 perform the linear interpolation of the
+! normalized "2+XDR"-moment of the incomplete gamma function
+!
+ ZVEC1_R1(1:IRDSF) = XGAMINC_RDSF_R(IVEC2_R(1:IRDSF)+1) * ZVEC2_R(1:IRDSF) &
+ - XGAMINC_RDSF_R(IVEC2_R(1:IRDSF)) * (ZVEC2_R(1:IRDSF) - 1.0)
+!
+! From 0.1 mm to infinity we need
+ ZVEC1_R1(1:IRDSF) = XMOMGR_RDSF * (1.0 - ZVEC1_R1(1:IRDSF))
+!
+ ALLOCATE(ZINTG_RAIN(SIZE(PZT)))
+ ZINTG_RAIN(:) = UNPACK ( VECTOR=ZVEC1_R1(:),MASK=GRDSF,FIELD=0.0 )
+!
+!* 2.2.4 To compute final "RDSF" contributions
+!
+ ALLOCATE(ZNI_RDSF(SIZE(PZT)))
+ ZNI_RDSF(:) = (XFACTOR_RDSF_NI / (PRHODREF(:)**(XCEXVT-1.0))) * ( &
+ PCIT1D(:) * PCRT1D(:) * ZINTG_RAIN(:) * PLBDAR(:)**(-(XDR+6.0)) )
+!
+ PCIS1D(:) = PCIS1D(:) + ZNI_RDSF(:)
+!
+! The value of rg removed by RDSF is determined by the mean mass of pristine ice
+ ALLOCATE(ZRI_RDSF(SIZE(PZT)))
+ ZRI_RDSF(:) = MIN( PRGS1D(:), MAX( ZNI_RDSF(:)*XMNU0,XRTMIN(5) ) )
+!
+ PRIS1D(:) = PRIS1D(:) + ZRI_RDSF(:)
+ PRGS1D(:) = PRGS1D(:) - ZRI_RDSF(:)
+!
+ DEALLOCATE(ZINTG_RAIN)
+ DEALLOCATE(ZVEC1_R)
+ DEALLOCATE(ZVEC1_R1)
+ DEALLOCATE(ZVEC2_R)
+ DEALLOCATE(IVEC2_R)
+ DEALLOCATE(ZNI_RDSF)
+ DEALLOCATE(ZRI_RDSF)
+ !
+ ! Budget storage
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'RDSF', &
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RG), 'RDSF', &
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'RDSF', &
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ end if
+ENDIF
+!
+!
+!* 2.3 Compute the Dry growth case
! --------------------------------
+!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'WETG', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'WETG', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'WETG', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'WETG', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'WETG', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'WETG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'WETG', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) then
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'WETG', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'WETG', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETG', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if(M2_ICE) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ if (LHAIL) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'WETG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
!
ZZW1(:,:) = 0.0
-WHERE( ((ZRCT(:)>XRTMIN(2)) .AND. (ZRGT(:)>XRTMIN(6)) .AND. (ZRCS(:)>XRTMIN(2)/PTSTEP)) .OR. &
- ((ZRIT(:)>XRTMIN(4)) .AND. (ZRGT(:)>XRTMIN(6)) .AND. (ZRIS(:)>XRTMIN(4)/PTSTEP)) )
- ZZW(:) = ZLBDAG(:)**(XCXG-XDG-2.0) * ZRHODREF(:)**(-XCEXVT)
- ZZW1(:,1) = MIN( ZRCS(:),XFCDRYG * ZRCT(:) * ZZW(:) ) ! RCDRYG
- ZZW1(:,2) = MIN( ZRIS(:),XFIDRYG * EXP( XCOLEXIG*(ZZT(:)-XTT) ) &
- * ZRIT(:) * ZZW(:) ) ! RIDRYG
+ZZNW1(:,:) = 0.0
+WHERE( ((PRCT1D(:)>XRTMIN(2)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRCS1D(:)>XRTMIN(2)/PTSTEP)) .OR. &
+ ((PRIT1D(:)>XRTMIN(4)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRIS1D(:)>XRTMIN(4)/PTSTEP)) )
+ ZZW(:) = PLBDAG(:)**(-XDG-2.0) * PRHODREF(:)**(-XCEXVT) * PCGT1D(:)
+ ZZW1(:,1) = MIN( PRCS1D(:),XFCDRYG * PRCT1D(:) * ZZW(:) ) ! RCDRYG
+ ZZNW1(:,1) = MIN( PCCS1D(:),ZZW1(:,1) * PCCT1D(:) / MAX(PRCT1D(:),XRTMIN(2)) )
+ ZZW1(:,2) = MIN( PRIS1D(:),XFIDRYG * EXP( XCOLEXIG*(PZT(:)-XTT) ) &
+ * PRIT1D(:) * ZZW(:) ) ! RIDRYG
+ ZZNW1(:,2) = MIN( PCIS1D(:),ZZW1(:,2) * PCIT1D(:) / MAX(PRIT1D(:),XRTMIN(4)) )
END WHERE
!
-!* 2.2.1 accretion of aggregates on the graupeln
+!* 2.3.1 accretion of aggregates on the graupeln
! ----------------------------------------------
!
-GDRY(:) = (ZRST(:)>XRTMIN(5)) .AND. (ZRGT(:)>XRTMIN(6)) .AND. (ZRSS(:)>XRTMIN(5)/PTSTEP)
+GDRY(:) = (PRST1D(:)>XRTMIN(5)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRSS1D(:)>XRTMIN(5)/PTSTEP)
+if (M2_ICE) GDRY(:) = GDRY(:) .AND. (PCST1D(:)>XCTMIN(5)) .AND. PCSS1D(:)>XCTMIN(5)/PTSTEP
IGDRY = COUNT( GDRY(:) )
!
IF( IGDRY>0 ) THEN
!
-!* 2.2.2 allocations
+!* 2.3.2 allocations
!
- ALLOCATE(ZVEC1(IGDRY))
- ALLOCATE(ZVEC2(IGDRY))
- ALLOCATE(ZVEC3(IGDRY))
- ALLOCATE(IVEC1(IGDRY))
- ALLOCATE(IVEC2(IGDRY))
+ ALLOCATE(ZVEC1(IGDRY))
+ ALLOCATE(ZVEC2(IGDRY))
+ ALLOCATE(ZVEC3(IGDRY))
+ ALLOCATE(IVEC1(IGDRY))
+ ALLOCATE(IVEC2(IGDRY))
!
-!* 2.2.3 select the (ZLBDAG,ZLBDAS) couplet
+!* 2.3.3 select the (PLBDAG,PLBDAS) couplet
!
- ZVEC1(:) = PACK( ZLBDAG(:),MASK=GDRY(:) )
- ZVEC2(:) = PACK( ZLBDAS(:),MASK=GDRY(:) )
+ ZVEC1(:) = PACK( PLBDAG(:),MASK=GDRY(:) )
+ ZVEC2(:) = PACK( PLBDAS(:),MASK=GDRY(:) )
!
-!* 2.2.4 find the next lower indice for the ZLBDAG and for the ZLBDAS
+!* 2.3.4 find the next lower indice for the PLBDAG and for the PLBDAS
! in the geometrical set of (Lbda_g,Lbda_s) couplet use to
! tabulate the SDRYG-kernel
!
- ZVEC1(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAG)-0.0001, &
- XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + XDRYINTP2G ) )
- IVEC1(1:IGDRY) = INT( ZVEC1(1:IGDRY) )
- ZVEC1(1:IGDRY) = ZVEC1(1:IGDRY) - REAL( IVEC1(1:IGDRY) )
+ ZVEC1(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAG)-0.0001, &
+ XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + XDRYINTP2G ) )
+ IVEC1(1:IGDRY) = INT( ZVEC1(1:IGDRY) )
+ ZVEC1(1:IGDRY) = ZVEC1(1:IGDRY) - REAL( IVEC1(1:IGDRY) )
!
- ZVEC2(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAS)-0.0001, &
- XDRYINTP1S * LOG( ZVEC2(1:IGDRY) ) + XDRYINTP2S ) )
- IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
- ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - REAL( IVEC2(1:IGDRY) )
+ ZVEC2(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAS)-0.0001, &
+ XDRYINTP1S * LOG( ZVEC2(1:IGDRY) ) + XDRYINTP2S ) )
+ IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
+ ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - REAL( IVEC2(1:IGDRY) )
!
-!* 2.2.5 perform the bilinear interpolation of the normalized
+!* 2.3.5 perform the bilinear interpolation of the normalized
! SDRYG-kernel
!
- DO JJ = 1,IGDRY
- ZVEC3(JJ) = ( XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
-!
- WHERE( GDRY(:) )
- ZZW1(:,3) = MIN( ZRSS(:),XFSDRYG*ZZW(:) & ! RSDRYG
- * EXP( XCOLEXSG*(ZZT(:)-XTT) ) &
- *( ZLBDAS(:)**(XCXS-XBS) )*( ZLBDAG(:)**XCXG ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSDRYG1/( ZLBDAG(:)**2 ) + &
- XLBSDRYG2/( ZLBDAG(:) * ZLBDAS(:) ) + &
- XLBSDRYG3/( ZLBDAS(:)**2) ) )
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
+ DO JJ = 1,IGDRY
+ ZVEC3(JJ) = ( XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_SDRYG(IVEC1(JJ)+1,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_SDRYG(IVEC1(JJ) ,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
+!
+ WHERE( GDRY(:) )
+ ZZW1(:,3) = MIN( PRSS1D(:),XFSDRYG*ZZW(:) & ! RSDRYG
+ * EXP( XCOLEXSG*(PZT(:)-XTT) ) &
+ *( PRST1D(:) )*( PCGT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBSDRYG1/( PLBDAG(:)**2 ) + &
+ XLBSDRYG2/( PLBDAG(:) * PLBDAS(:) ) + &
+ XLBSDRYG3/( PLBDAS(:)**2) ) )
+ END WHERE
+!
+!
+!* 2.2.5b perform the bilinear interpolation of the normalized
+! SDRYG-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGDRY
+ ZVEC3(JJ) = ( XKER_N_SDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_SDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
+!
+ WHERE( GDRY(:) )
+ ZZNW1(:,3) = MIN( PCSS1D(:),XFNSDRYG*ZZNW(:) & ! NSDRYG
+ * EXP( XCOLEXSG*(PZT(:)-XTT) ) &
+ *( PCST1D(:) )*( PCGT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNSDRYG1/( PLBDAG(:)**2 ) + &
+ XLBNSDRYG2/( PLBDAG(:) * PLBDAS(:) ) + &
+ XLBNSDRYG3/( PLBDAS(:)**2)) )
+!
+ END WHERE
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC3)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
END IF
!
-!* 2.2.6 accretion of raindrops on the graupeln
+!* 2.3.6 accretion of raindrops on the graupeln
! ---------------------------------------------
!
-GDRY(:) = (ZRRT(:)>XRTMIN(3)) .AND. (ZRGT(:)>XRTMIN(6)) .AND. (ZRRS(:)>XRTMIN(3))
+GDRY(:) = (PRRT1D(:)>XRTMIN(3)) .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRRS1D(:)>XRTMIN(3))
IGDRY = COUNT( GDRY(:) )
!
IF( IGDRY>0 ) THEN
!
-!* 2.2.7 allocations
+!* 2.3.7 allocations
!
- ALLOCATE(ZVEC1(IGDRY))
- ALLOCATE(ZVEC2(IGDRY))
- ALLOCATE(ZVEC3(IGDRY))
- ALLOCATE(IVEC1(IGDRY))
- ALLOCATE(IVEC2(IGDRY))
+ ALLOCATE(ZVEC1(IGDRY))
+ ALLOCATE(ZVEC2(IGDRY))
+ ALLOCATE(ZVEC3(IGDRY))
+ ALLOCATE(IVEC1(IGDRY))
+ ALLOCATE(IVEC2(IGDRY))
!
-!* 2.2.8 select the (ZLBDAG,ZLBDAR) couplet
+!* 2.3.8 select the (PLBDAG,PLBDAR) couplet
!
- ZVEC1(:) = PACK( ZLBDAG(:),MASK=GDRY(:) )
- ZVEC2(:) = PACK( ZLBDAR(:),MASK=GDRY(:) )
+ ZVEC1(:) = PACK( PLBDAG(:),MASK=GDRY(:) )
+ ZVEC2(:) = PACK( PLBDAR(:),MASK=GDRY(:) )
!
-!* 2.2.9 find the next lower indice for the ZLBDAG and for the ZLBDAR
+!* 2.3.9 find the next lower indice for the PLBDAG and for the PLBDAR
! in the geometrical set of (Lbda_g,Lbda_r) couplet use to
! tabulate the RDRYG-kernel
!
- ZVEC1(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAG)-0.0001, &
- XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + XDRYINTP2G ) )
- IVEC1(1:IGDRY) = INT( ZVEC1(1:IGDRY) )
- ZVEC1(1:IGDRY) = ZVEC1(1:IGDRY) - REAL( IVEC1(1:IGDRY) )
+ ZVEC1(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAG)-0.0001, &
+ XDRYINTP1G * LOG( ZVEC1(1:IGDRY) ) + XDRYINTP2G ) )
+ IVEC1(1:IGDRY) = INT( ZVEC1(1:IGDRY) )
+ ZVEC1(1:IGDRY) = ZVEC1(1:IGDRY) - REAL( IVEC1(1:IGDRY) )
!
- ZVEC2(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAR)-0.0001, &
- XDRYINTP1R * LOG( ZVEC2(1:IGDRY) ) + XDRYINTP2R ) )
- IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
- ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - REAL( IVEC2(1:IGDRY) )
+ ZVEC2(1:IGDRY) = MAX( 1.0001, MIN( REAL(NDRYLBDAR)-0.0001, &
+ XDRYINTP1R * LOG( ZVEC2(1:IGDRY) ) + XDRYINTP2R ) )
+ IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
+ ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - REAL( IVEC2(1:IGDRY) )
!
-!* 2.2.10 perform the bilinear interpolation of the normalized
+!* 2.3.10 perform the bilinear interpolation of the normalized
! RDRYG-kernel
!
- DO JJ = 1,IGDRY
- ZVEC3(JJ) = ( XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
-!
- WHERE( GDRY(:) )
- ZZW1(:,4) = MIN( ZRRS(:),XFRDRYG*ZZW(:) * ZCRT(:) & ! RRDRYG
- *( ZLBDAR(:)**(-3) )*( ZLBDAG(:)**XCXG ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRDRYG1/( ZLBDAG(:)**2 ) + &
- XLBRDRYG2/( ZLBDAG(:) * ZLBDAR(:) ) + &
- XLBRDRYG3/( ZLBDAR(:)**2) ) )
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
+ DO JJ = 1,IGDRY
+ ZVEC3(JJ) = ( XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_RDRYG(IVEC1(JJ)+1,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_RDRYG(IVEC1(JJ) ,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
+!
+ WHERE( GDRY(:) )
+ ZZW1(:,4) = MIN( PRRS1D(:),XFRDRYG*ZZW(:) * PRRT1D(:) * PCGT1D(:) & !
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBRDRYG1/( PLBDAG(:)**2 ) + &
+ XLBRDRYG2/( PLBDAG(:) * PLBDAR(:) ) + &
+ XLBRDRYG3/( PLBDAR(:)**2) ) )
+ END WHERE
+!
+!
+!* 2.2.10b perform the bilinear interpolation of the normalized
+! RDRYG-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGDRY
+ ZVEC3(JJ) = ( XKER_N_RDRYG(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RDRYG(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_RDRYG(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_RDRYG(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GDRY,FIELD=0.0 )
+!
+ WHERE( GDRY(:) )
+ ZZNW1(:,4) = MIN( PCRS1D(:),XFNRDRYG*ZZNW(:) * PCRT1D(:) * PCGT1D(:) & ! NRDRYG
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNRDRYG1/( PLBDAG(:)**2 ) + &
+ XLBNRDRYG2/( PLBDAG(:) * PLBDAR(:) ) + &
+ XLBNRDRYG3/( PLBDAR(:)**2) ) )
+ END WHERE
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC3)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
END IF
!
ZRDRYG(:) = ZZW1(:,1) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,4)
!
!
-!* 2.3 Compute the Wet growth case
+!* 2.4 Compute the Wet growth case
! --------------------------------
!
-!
ZZW(:) = 0.0
ZRWETG(:) = 0.0
-WHERE( ZRGT(:)>XRTMIN(6) )
- ZZW1(:,5) = MIN( ZRIS(:), &
- ZZW1(:,2) / (XCOLIG*EXP(XCOLEXIG*(ZZT(:)-XTT)) ) ) ! RIWETG
- ZZW1(:,6) = MIN( ZRSS(:), &
- ZZW1(:,3) / (XCOLSG*EXP(XCOLEXSG*(ZZT(:)-XTT)) ) ) ! RSWETG
-!
- ZZW(:) = ZRVT(:)*ZPRES(:)/((XMV/XMD)+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
-!
+WHERE( PRGT1D(:)>XRTMIN(6) )
+ ZZW1(:,5) = MIN( PRIS1D(:), &
+ ZZW1(:,2) / (XCOLIG*EXP(XCOLEXIG*(PZT(:)-XTT)) ) ) ! RIWETG
+ ZZNW1(:,5) = MIN( PCIS1D(:), &
+ ZZNW1(:,2) / (XCOLIG*EXP(XCOLEXIG*(PZT(:)-XTT)) ) ) ! NIWETG
+ ZZW1(:,6) = MIN( PRSS1D(:), &
+ ZZW1(:,3) / (XCOLSG*EXP(XCOLEXSG*(PZT(:)-XTT)) ) ) ! RSWETG
+!
+!
+ ZZNW1(:,6) = MIN( PCSS1D(:), &
+ ZZNW1(:,3) / (XCOLSG*EXP(XCOLEXSG*(PZT(:)-XTT)) ) ) ! NSWETG
+!
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
+!
! compute RWETG
!
ZRWETG(:) = MAX( 0.0, &
- ( ZZW(:) * ( X0DEPG* ZLBDAG(:)**XEX0DEPG + &
- X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG ) + &
+ ( ZZW(:) * PCGT1D(:) * ( X0DEPG* PLBDAG(:)**XEX0DEPG + &
+ X1DEPG*PCJ(:)*PLBDAG(:)**XEX1DEPG ) + &
( ZZW1(:,5)+ZZW1(:,6) ) * &
- ( ZRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-ZZT(:))) ) ) / &
- ( ZRHODREF(:)*(XLMTT-XCL*(XTT-ZZT(:))) ) )
+ ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PZT(:))) ) ) / &
+ ( PRHODREF(:)*(XLMTT-XCL*(XTT-PZT(:))) ) )
+ !We must agregate, at least, the cold species
+ ZRWETG(:)=MAX(ZRWETG(:), ZZW1(:,5)+ZZW1(:,6))
END WHERE
!
!
-!* 2.4 Select Wet or Dry case
+!* 2.5 Select Wet or Dry case
! ---------------------------
!
-!
! Wet case and partial conversion to hail
!
ZZW(:) = 0.0
NHAIL = 0.
-IF (LHAIL) NHAIL = 1.
-WHERE( ZRGT(:)>XRTMIN(6) .AND. ZZT(:)<XTT &
- .AND. ZRDRYG(:)>=ZRWETG(:) .AND. ZRWETG(:)>0.0 )
-!
- ZZW(:) = ZRWETG(:) - ZZW1(:,5) - ZZW1(:,6) ! RCWETG+RRWETG
+IF (LHAIL) NHAIL = 1.
+DO JJ=1, SIZE(PRGT1D)
+ IF ( PRGT1D(JJ)>XRTMIN(6) .AND. PZT(JJ)<XTT .AND. &
+ (ZRDRYG(JJ)-ZZW1(JJ,2)-ZZW1(JJ,3))>(ZRWETG(JJ)-ZZW1(JJ,5)-ZZW1(JJ,6)) .AND. (ZRWETG(JJ)-ZZW1(JJ,5)-ZZW1(JJ,6))>0.0 ) THEN
+ !
+ ZZW(JJ) = ZRWETG(JJ) - ZZW1(JJ,5) - ZZW1(JJ,6) ! RCWETG+RRWETG
!
! limitation of the available rainwater mixing ratio (RRWETH < RRS !)
!
- ZZW1(:,7) = MAX( 0.0,MIN( ZZW(:),ZRRS(:)+ZZW1(:,1) ) )
- ZZX(:) = ZZW1(:,7) / ZZW(:)
- ZZW1(:,5) = ZZW1(:,5)*ZZX(:)
- ZZW1(:,6) = ZZW1(:,6)*ZZX(:)
- ZRWETG(:) = ZZW1(:,7) + ZZW1(:,5) + ZZW1(:,6)
+ ZZW1(JJ,7) = MAX( 0.0,MIN( ZZW(JJ),PRRS1D(JJ)+ZZW1(JJ,1) ) )
+ ZZX(JJ) = ZZW1(JJ,7) / ZZW(JJ)
+ ZZW1(JJ,5) = ZZW1(JJ,5)*ZZX(JJ)
+ ZZNW1(:,5) = ZZNW1(JJ,5)*ZZX(JJ)
+ ZZW1(JJ,6) = ZZW1(JJ,6)*ZZX(JJ)
+ ZZNW1(JJ,6) = ZZNW1(JJ,6)*ZZX(JJ)
+ ZRWETG(JJ) = ZZW1(JJ,7) + ZZW1(JJ,5) + ZZW1(JJ,6)
!
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRIS(:) = ZRIS(:) - ZZW1(:,5)
- ZRSS(:) = ZRSS(:) - ZZW1(:,6)
+ PRCS1D(JJ) = PRCS1D(JJ) - ZZW1(JJ,1)
+ PRIS1D(JJ) = PRIS1D(JJ) - ZZW1(JJ,5)
+ PRSS1D(JJ) = PRSS1D(JJ) - ZZW1(JJ,6)
!
! assume a linear percent of conversion of graupel into hail
!
- ZRGS(:) = ZRGS(:) + ZRWETG(:)
- ZZW(:) = ZRGS(:)*ZRDRYG(:)*NHAIL/(ZRWETG(:)+ZRDRYG(:))
- ZRGS(:) = ZRGS(:) - ZZW(:)
- ZRHS(:) = ZRHS(:) + ZZW(:)
- ZRRS(:) = MAX( 0.0,ZRRS(:) - ZZW1(:,7) + ZZW1(:,1) )
- ZTHS(:) = ZTHS(:) + ZZW1(:,7)*(ZLSFACT(:)-ZLVFACT(:))
- ! f(L_f*(RCWETG+RRWETG))
-!
- ZCCS(:) = MAX( ZCCS(:)-ZZW1(:,1)*(ZCCT(:)/MAX(ZRCT(:),XRTMIN(2))),0.0 )
- ZCIS(:) = MAX( ZCIS(:)-ZZW1(:,5)*(ZCIT(:)/MAX(ZRIT(:),XRTMIN(4))),0.0 )
- ZCRS(:) = MAX( ZCRS(:)-MAX( ZZW1(:,7)-ZZW1(:,1),0.0 ) &
- *(ZCRT(:)/MAX(ZRRT(:),XRTMIN(3))),0.0 )
-END WHERE
+ PRGS1D(JJ) = PRGS1D(JJ) + ZRWETG(JJ)
+ ZZW(JJ) = PRGS1D(JJ)*ZRDRYG(JJ)*NHAIL/(ZRWETG(JJ)+ZRDRYG(JJ))
+ PRGS1D(JJ) = PRGS1D(JJ) - ZZW(JJ)
+ PRHS1D(JJ) = PRHS1D(JJ) + ZZW(JJ)
+ PRRS1D(JJ) = MAX( 0.0,PRRS1D(JJ) - ZZW1(JJ,7) + ZZW1(JJ,1) )
+ PTHS1D(JJ) = PTHS1D(JJ) + ZZW1(JJ,7) * (PLSFACT(JJ) - PLVFACT(JJ))
+ ! f(L_f*(RCWETG+RRWETG))
+!
+ PCCS1D(JJ) = MAX( PCCS1D(JJ)-ZZW1(JJ,1)*(PCCT1D(JJ)/MAX(PRCT1D(JJ),XRTMIN(2))),0.0 )
+ PCIS1D(JJ) = MAX( PCIS1D(JJ)-ZZNW1(JJ,5),0.0 )
+ PCRS1D(JJ) = MAX( PCRS1D(JJ)-MAX( ZZW1(JJ,7)-ZZW1(JJ,1),0.0 ) &
+ *(PCRT1D(JJ)/MAX(PRRT1D(JJ),XRTMIN(3))),0.0 )
+ PCSS1D(JJ) = MAX( PCSS1D(JJ)-ZZNW1(JJ,6),0.0 )
+ ZZNW(JJ) = PCGS1D(JJ)*ZRDRYG(JJ)*NHAIL/(ZRWETG(JJ)+ZRDRYG(JJ))
+ PCGS1D(JJ) = MAX( PCGS1D(JJ)-ZZNW(JJ),0.0 )
+ PCHS1D(JJ) = MAX( PCHS1D(JJ)+ZZNW(JJ),0.0 )
+ END IF
+END DO
!
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'WETG', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'WETG', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'WETG', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'WETG', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'WETG', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'WETG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'WETG', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) then
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'WETG', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'WETG', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETG', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if(M2_ICE) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ if (LHAIL) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'WETG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
!
@@ -920,168 +1586,177 @@ end if
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'DRYG', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'DRYG', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'DRYG', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'DRYG', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'DRYG', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'DRYG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) then
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DRYG', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'DRYG', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'DRYG', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'DRYG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
end if
-
-WHERE( ZRGT(:)>XRTMIN(6) .AND. ZZT(:)<XTT &
- .AND. ZRDRYG(:)<ZRWETG(:) .AND. ZRDRYG(:)>0.0 ) ! case
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRIS(:) = ZRIS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRRS(:) = ZRRS(:) - ZZW1(:,4)
- ZRGS(:) = ZRGS(:) + ZRDRYG(:)
- ZTHS(:) = ZTHS(:) + (ZZW1(:,1)+ZZW1(:,4))*(ZLSFACT(:)-ZLVFACT(:)) !
+!
+WHERE( PRGT1D(:)>XRTMIN(6) .AND. PZT(:)<XTT &
+ .AND. (ZRDRYG(:)-ZZW1(:,2)-ZZW1(:,3))<(ZRWETG(:)-ZZW1(:,5)-ZZW1(:,6)) .AND. ZRDRYG(:)>0.0 ) ! case
+ PRCS1D(:) = PRCS1D(:) - ZZW1(:,1)
+ PRIS1D(:) = PRIS1D(:) - ZZW1(:,2)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
+ PRRS1D(:) = PRRS1D(:) - ZZW1(:,4)
+ PRGS1D(:) = PRGS1D(:) + ZRDRYG(:)
+ PTHS1D(:) = PTHS1D(:) + (ZZW1(:,1)+ZZW1(:,4))*(PLSFACT(:)-PLVFACT(:)) !
! f(L_f*(RCDRYG+RRDRYG))
!
- ZCCS(:) = MAX( ZCCS(:)-ZZW1(:,1)*(ZCCT(:)/MAX(ZRCT(:),XRTMIN(2))),0.0 )
- ZCIS(:) = MAX( ZCIS(:)-ZZW1(:,2)*(ZCIT(:)/MAX(ZRIT(:),XRTMIN(4))),0.0 )
- ZCRS(:) = MAX( ZCRS(:)-ZZW1(:,4)*(ZCRT(:)/MAX(ZRRT(:),XRTMIN(3))),0.0 )
- ! Approximate rates
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZNW1(:,1),0.0 )
+ PCIS1D(:) = MAX( PCIS1D(:)-ZZNW1(:,2),0.0 )
+ PCRS1D(:) = MAX( PCRS1D(:)-ZZNW1(:,4),0.0 )
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZNW1(:,3),0.0 )
END WHERE
!
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'DRYG', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'DRYG', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'DRYG', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'DRYG', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'DRYG', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'DRYG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) then
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'DRYG', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'DRYG', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'DRYG', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'DRYG', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
end if
end if
!
!
-!* 2.5 Hallett-Mossop ice multiplication process due to graupel riming
+!* 2.6 Hallett-Mossop ice multiplication process due to graupel riming
! --------------------------------------------------------------------
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'HMG', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'HMG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HMG', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
end if
-GDRY(:) = (ZZT(:)<XHMTMAX) .AND. (ZZT(:)>XHMTMIN) .AND. (ZRDRYG(:)<ZZW(:))&
- .AND. (ZRGT(:)>XRTMIN(6)) .AND. (ZRCT(:)>XRTMIN(2))
+GDRY(:) = (PZT(:)<XHMTMAX) .AND. (PZT(:)>XHMTMIN) &
+ .AND. (PRGT1D(:)>XRTMIN(6)) .AND. (PRCT1D(:)>XRTMIN(2)) &
+ .AND. (ZRDRYG(:)-ZZW1(:,2)-ZZW1(:,3))<(ZRWETG(:)-ZZW1(:,5)-ZZW1(:,6))
IGDRY = COUNT( GDRY(:) )
IF( IGDRY>0 ) THEN
- ALLOCATE(ZVEC1(IGDRY))
- ALLOCATE(ZVEC2(IGDRY))
- ALLOCATE(IVEC2(IGDRY))
-!
- ZVEC1(:) = PACK( ZLBDAC(:),MASK=GDRY(:) )
- ZVEC2(1:IGDRY) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
- XHMLINTP1 * LOG( ZVEC1(1:IGDRY) ) + XHMLINTP2 ) )
- IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
- ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - REAL( IVEC2(1:IGDRY) )
- ZVEC1(1:IGDRY) = XGAMINC_HMC( IVEC2(1:IGDRY)+1 )* ZVEC2(1:IGDRY) &
- - XGAMINC_HMC( IVEC2(1:IGDRY) )*(ZVEC2(1:IGDRY) - 1.0)
- ZZX(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GDRY,FIELD=0.0 ) ! Large droplets
-!
- WHERE ( GDRY(:) .AND. ZZX(:)<0.99 ) ! Dry case
- ZZW1(:,5) = ZZW1(:,1)*(ZCCT(:)/ZRCT(:))*(1.0-ZZX(:))*XHM_FACTG* &
- MAX( 0.0, MIN( (ZZT(:)-XHMTMIN)/3.0,(XHMTMAX-ZZT(:))/2.0 ) ) ! CCHMGI
- ZCIS(:) = ZCIS(:) + ZZW1(:,5)
-!
- ZZW1(:,6) = ZZW1(:,5) * XMNU0 ! RCHMGI
- ZRIS(:) = ZRIS(:) + ZZW1(:,6)
- ZRGS(:) = ZRGS(:) - ZZW1(:,6)
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
+ ALLOCATE(ZVEC1(IGDRY))
+ ALLOCATE(ZVEC2(IGDRY))
+ ALLOCATE(IVEC2(IGDRY))
+!
+ ZVEC1(:) = PACK( PLBDAC(:),MASK=GDRY(:) )
+ ZVEC2(1:IGDRY) = MAX( 1.0001, MIN( REAL(NGAMINC)-0.0001, &
+ XHMLINTP1 * LOG( ZVEC1(1:IGDRY) ) + XHMLINTP2 ) )
+ IVEC2(1:IGDRY) = INT( ZVEC2(1:IGDRY) )
+ ZVEC2(1:IGDRY) = ZVEC2(1:IGDRY) - REAL( IVEC2(1:IGDRY) )
+ ZVEC1(1:IGDRY) = XGAMINC_HMC( IVEC2(1:IGDRY)+1 )* ZVEC2(1:IGDRY) &
+ - XGAMINC_HMC( IVEC2(1:IGDRY) )*(ZVEC2(1:IGDRY) - 1.0)
+ ZZX(:) = UNPACK( VECTOR=ZVEC1(:),MASK=GDRY,FIELD=0.0 ) ! Large droplets
+!
+ WHERE ( GDRY(:) .AND. ZZX(:)<0.99 ) ! Dry case
+ ZZW1(:,5) = ZZW1(:,1)*(PCCT1D(:)/PRCT1D(:))*(1.0-ZZX(:))*XHM_FACTG* &
+ MAX( 0.0, MIN( (PZT(:)-XHMTMIN)/3.0,(XHMTMAX-PZT(:))/2.0 ) ) ! CCHMGI
+ PCIS1D(:) = PCIS1D(:) + ZZW1(:,5)
+!
+ ZZW1(:,6) = ZZW1(:,5) * XMNU0 ! RCHMGI
+ PRIS1D(:) = PRIS1D(:) + ZZW1(:,6)
+ PRGS1D(:) = PRGS1D(:) - ZZW1(:,6)
+ END WHERE
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
END IF
!
! Budget storage
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'HMG', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'HMG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HMG', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
end if
!
-!* 2.6 Melting of the graupeln
+!* 2.7 Melting of the graupeln
! ----------------------------
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'GMLT', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'GMLT', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'GMLT', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'GMLT', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'GMLT', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
ZZW(:) = 0.0
-WHERE( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>XRTMIN(6)/PTSTEP) .AND. (ZZT(:)>XTT) )
- ZZW(:) = ZRVT(:)*ZPRES(:)/((XMV/XMD)+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
+ WHERE( (PRGT1D(:)>XRTMIN(6)) .AND. (PRGS1D(:)>XRTMIN(6)/PTSTEP) .AND. (PZT(:)>XTT) )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RGMLTR
!
- ZZW(:) = MIN( ZRGS(:), MAX( 0.0,( -ZZW(:) * &
- ( X0DEPG* ZLBDAG(:)**XEX0DEPG + &
- X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG ) - &
+ ZZW(:) = MIN( PRGS1D(:), MAX( 0.0,( -ZZW(:) * PCGT1D(:) * &
+ ( X0DEPG* PLBDAG(:)**XEX0DEPG + &
+ X1DEPG*PCJ(:)*PLBDAG(:)**XEX1DEPG ) - &
( ZZW1(:,1)+ZZW1(:,4) ) * &
- ( ZRHODREF(:)*XCL*(XTT-ZZT(:))) ) / &
- ( ZRHODREF(:)*XLMTT ) ) )
- ZRRS(:) = ZRRS(:) + ZZW(:)
- ZRGS(:) = ZRGS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(-RGMLTR))
-!
-! ZCRS(:) = MAX( ZCRS(:) + ZZW(:)*(XCCG*ZLBDAG(:)**XCXG/ZRGT(:)),0.0 )
- ZCRS(:) = ZCRS(:) + ZZW(:)*5.0E6 ! obtained after averaging
- ! Dshed=1mm and 500 microns
-END WHERE
+ ( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
+ ( PRHODREF(:)*XLMTT ) ) )
+ PRRS1D(:) = PRRS1D(:) + ZZW(:)
+ PRGS1D(:) = PRGS1D(:) - ZZW(:)
+ PTHS1D(:) = PTHS1D(:) - ZZW(:)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(-RGMLTR))
+!
+ PCRS1D(:) = PCRS1D(:) + ZZW(:)*5.0E6 ! obtained after averaging
+ ! Dshed=1mm and 500 microns
+ PCGS1D(:) = MAX( PCGS1D(:) - ZZW(:)*5.0E6, 0.0)
+ END WHERE
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'GMLT', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'GMLT', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'GMLT', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'GMLT', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'GMLT', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
end if
!
!
@@ -1094,7 +1769,7 @@ end if
!
HAIL: IF (LHAIL) THEN
!
-GHAIL(:) = ZRHT(:)>XRTMIN(7)
+GHAIL(:) = PRHT1D(:)>XRTMIN(7)
IHAIL = COUNT(GHAIL(:))
!
IF( IHAIL>0 ) THEN
@@ -1104,233 +1779,297 @@ IF( IHAIL>0 ) THEN
!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'WETH', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'WETH', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'WETH', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'WETH', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_init( tbudgets(NBUDGET_RS), 'WETH', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'WETH', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'WETH', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) then
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'WETH', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'WETH', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETH', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETH', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETH', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
- ZZW1(:,:) = 0.0
- WHERE( GHAIL(:) .AND. ( (ZRCT(:)>XRTMIN(2) .AND. ZRCS(:)>XRTMIN(2)/PTSTEP) .OR. &
- (ZRIT(:)>XRTMIN(4) .AND. ZRIS(:)>XRTMIN(4)/PTSTEP) ) )
- ZZW(:) = ZLBDAH(:)**(XCXH-XDH-2.0) * ZRHODREF(:)**(-XCEXVT)
- ZZW1(:,1) = MIN( ZRCS(:),XFWETH * ZRCT(:) * ZZW(:) ) ! RCWETH
- ZZW1(:,2) = MIN( ZRIS(:),XFWETH * ZRIT(:) * ZZW(:) ) ! RIWETH
- END WHERE
+ ZZW1(:,:) = 0.0
+ ZZNW1(:,:) = 0.0
+ WHERE( GHAIL(:) .AND. ( (PRCT1D(:)>XRTMIN(2) .AND. PRCS1D(:)>XRTMIN(2)/PTSTEP ) .OR. &
+ (PRIT1D(:)>XRTMIN(4) .AND. PRIS1D(:)>XRTMIN(4)/PTSTEP) ) )
+ ZZW(:) = PCHT1D(:) * PLBDAH(:)**(-XDH-2.0) * PRHODREF(:)**(1-XCEXVT)
+ ZZW1(:,1) = MIN( PRCS1D(:),XFWETH * PRCT1D(:) * ZZW(:) ) ! RCWETH
+ ZZNW1(:,1) = MIN( PCCS1D(:),XFWETH * PCCT1D(:) * ZZW(:) ) !ZZW1(:,1) * ZCCT(:) / MAX(ZRCT(:),XRTMIN(2)) ) ! NCWETH
+ ZZW1(:,2) = MIN( PRIS1D(:),XFWETH * PRIT1D(:) * ZZW(:) ) ! RIWETH
+ ZZNW1(:,2) = MIN( PCIS1D(:),XFWETH * PCIT1D(:) * ZZW(:) ) !ZZW1(:,2) * ZCIT(:) / MAX(ZRIT(:),XRTMIN(4)) ) ! NIWETH
+ END WHERE
!
!* 3.1.1 accretion of aggregates on the hailstones
! ------------------------------------------------
!
- GWET(:) = GHAIL(:) .AND. (ZRST(:)>XRTMIN(5) .AND. ZRSS(:)>XRTMIN(5)/PTSTEP)
- IGWET = COUNT( GWET(:) )
+ GWET(:) = GHAIL(:) .AND. (PRST1D(:)>XRTMIN(5) .AND. PRSS1D(:)>XRTMIN(5)/PTSTEP)
+ IGWET = COUNT( GWET(:) )
!
- IF( IGWET>0 ) THEN
+ IF( IGWET>0 ) THEN
!
!* 3.1.2 allocations
!
- ALLOCATE(ZVEC1(IGWET))
- ALLOCATE(ZVEC2(IGWET))
- ALLOCATE(ZVEC3(IGWET))
- ALLOCATE(IVEC1(IGWET))
- ALLOCATE(IVEC2(IGWET))
+ ALLOCATE(ZVEC1(IGWET))
+ ALLOCATE(ZVEC2(IGWET))
+ ALLOCATE(ZVEC3(IGWET))
+ ALLOCATE(IVEC1(IGWET))
+ ALLOCATE(IVEC2(IGWET))
!
-!* 3.1.3 select the (ZLBDAH,ZLBDAS) couplet
+!* 3.1.3 select the (PLBDAH,PLBDAS) couplet
!
- ZVEC1(:) = PACK( ZLBDAH(:),MASK=GWET(:) )
- ZVEC2(:) = PACK( ZLBDAS(:),MASK=GWET(:) )
+ ZVEC1(:) = PACK( PLBDAH(:),MASK=GWET(:) )
+ ZVEC2(:) = PACK( PLBDAS(:),MASK=GWET(:) )
!
-!* 3.1.4 find the next lower indice for the ZLBDAG and for the ZLBDAS
+!* 3.1.4 find the next lower indice for the PLBDAG and for the PLBDAS
! in the geometrical set of (Lbda_h,Lbda_s) couplet use to
! tabulate the SWETH-kernel
!
- ZVEC1(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAH)-0.0001, &
- XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + XWETINTP2H ) )
- IVEC1(1:IGWET) = INT( ZVEC1(1:IGWET) )
- ZVEC1(1:IGWET) = ZVEC1(1:IGWET) - REAL( IVEC1(1:IGWET) )
+ ZVEC1(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAH)-0.0001, &
+ XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + XWETINTP2H ) )
+ IVEC1(1:IGWET) = INT( ZVEC1(1:IGWET) )
+ ZVEC1(1:IGWET) = ZVEC1(1:IGWET) - REAL( IVEC1(1:IGWET) )
!
- ZVEC2(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAS)-0.0001, &
- XWETINTP1S * LOG( ZVEC2(1:IGWET) ) + XWETINTP2S ) )
- IVEC2(1:IGWET) = INT( ZVEC2(1:IGWET) )
- ZVEC2(1:IGWET) = ZVEC2(1:IGWET) - REAL( IVEC2(1:IGWET) )
+ ZVEC2(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAS)-0.0001, &
+ XWETINTP1S * LOG( ZVEC2(1:IGWET) ) + XWETINTP2S ) )
+ IVEC2(1:IGWET) = INT( ZVEC2(1:IGWET) )
+ ZVEC2(1:IGWET) = ZVEC2(1:IGWET) - REAL( IVEC2(1:IGWET) )
!
!* 3.1.5 perform the bilinear interpolation of the normalized
! SWETH-kernel
!
- DO JJ = 1,IGWET
- ZVEC3(JJ) = ( XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ DO JJ = 1,IGWET
+ ZVEC3(JJ) = ( XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_SWETH(IVEC1(JJ)+1,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
+!
+ WHERE( GWET(:) )
+ ZZW1(:,3) = MIN( PRSS1D(:),XFSWETH*ZZW(:) * PRST1D(:) * PCHT1D(:) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBSWETH1/( PLBDAH(:)**2 ) + &
+ XLBSWETH2/( PLBDAH(:) * PLBDAS(:) ) + &
+ XLBSWETH3/( PLBDAS(:)**2) ) )
+ END WHERE
+!
+!* 3.1.5b perform the bilinear interpolation of the normalized
+! SWETH-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGWET
+ ZVEC3(JJ) = ( XKER_N_SWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
* ZVEC1(JJ) &
- - ( XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_SWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ - ( XKER_N_SWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_SWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
* (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
-!
- WHERE( GWET(:) )
- ZZW1(:,3) = MIN( ZRSS(:),XFSWETH*ZZW(:) & ! RSWETH
- *( ZLBDAS(:)**(XCXS-XBS) )*( ZLBDAH(:)**XCXH ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSWETH1/( ZLBDAH(:)**2 ) + &
- XLBSWETH2/( ZLBDAH(:) * ZLBDAS(:) ) + &
- XLBSWETH3/( ZLBDAS(:)**2) ) )
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
+!
+ WHERE( GWET(:) )
+ ZZNW1(:,3) = MIN( PCSS1D(:),XFNSWETH*ZZNW(:) * PCST1D(:) & ! NSWETH
+ *( PCHT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNSWETH1/( PLBDAH(:)**2 ) + &
+ XLBNSWETH2/( PLBDAH(:) * PLBDAS(:) ) + &
+ XLBNSWETH3/( PLBDAS(:)**2) ) )
+ END WHERE
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC3)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
+ END IF
!
!* 3.1.6 accretion of graupeln on the hailstones
! ----------------------------------------------
!
- GWET(:) = GHAIL(:) .AND. (ZRGT(:)>XRTMIN(6) .AND. ZRGS(:)>XRTMIN(6)/PTSTEP)
- IGWET = COUNT( GWET(:) )
+ GWET(:) = GHAIL(:) .AND. (PRGT1D(:)>XRTMIN(6) .AND. PRGS1D(:)>XRTMIN(6)/PTSTEP)
+ IGWET = COUNT( GWET(:) )
!
- IF( IGWET>0 ) THEN
+ IF( IGWET>0 ) THEN
!
!* 3.1.7 allocations
!
- ALLOCATE(ZVEC1(IGWET))
- ALLOCATE(ZVEC2(IGWET))
- ALLOCATE(ZVEC3(IGWET))
- ALLOCATE(IVEC1(IGWET))
- ALLOCATE(IVEC2(IGWET))
+ ALLOCATE(ZVEC1(IGWET))
+ ALLOCATE(ZVEC2(IGWET))
+ ALLOCATE(ZVEC3(IGWET))
+ ALLOCATE(IVEC1(IGWET))
+ ALLOCATE(IVEC2(IGWET))
!
-!* 3.1.8 select the (ZLBDAH,ZLBDAG) couplet
+!* 3.1.8 select the (PLBDAH,PLBDAG) couplet
!
- ZVEC1(:) = PACK( ZLBDAH(:),MASK=GWET(:) )
- ZVEC2(:) = PACK( ZLBDAG(:),MASK=GWET(:) )
+ ZVEC1(:) = PACK( PLBDAH(:),MASK=GWET(:) )
+ ZVEC2(:) = PACK( PLBDAG(:),MASK=GWET(:) )
!
-!* 3.1.9 find the next lower indice for the ZLBDAH and for the ZLBDAG
+!* 3.1.9 find the next lower indice for the PLBDAH and for the PLBDAG
! in the geometrical set of (Lbda_h,Lbda_g) couplet use to
! tabulate the GWETH-kernel
!
- ZVEC1(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAG)-0.0001, &
- XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + XWETINTP2H ) )
- IVEC1(1:IGWET) = INT( ZVEC1(1:IGWET) )
- ZVEC1(1:IGWET) = ZVEC1(1:IGWET) - REAL( IVEC1(1:IGWET) )
+ ZVEC1(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAG)-0.0001, &
+ XWETINTP1H * LOG( ZVEC1(1:IGWET) ) + XWETINTP2H ) )
+ IVEC1(1:IGWET) = INT( ZVEC1(1:IGWET) )
+ ZVEC1(1:IGWET) = ZVEC1(1:IGWET) - REAL( IVEC1(1:IGWET) )
!
- ZVEC2(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAG)-0.0001, &
- XWETINTP1G * LOG( ZVEC2(1:IGWET) ) + XWETINTP2G ) )
- IVEC2(1:IGWET) = INT( ZVEC2(1:IGWET) )
- ZVEC2(1:IGWET) = ZVEC2(1:IGWET) - REAL( IVEC2(1:IGWET) )
+ ZVEC2(1:IGWET) = MAX( 1.0001, MIN( REAL(NWETLBDAG)-0.0001, &
+ XWETINTP1G * LOG( ZVEC2(1:IGWET) ) + XWETINTP2G ) )
+ IVEC2(1:IGWET) = INT( ZVEC2(1:IGWET) )
+ ZVEC2(1:IGWET) = ZVEC2(1:IGWET) - REAL( IVEC2(1:IGWET) )
!
!* 3.1.10 perform the bilinear interpolation of the normalized
! GWETH-kernel
!
- DO JJ = 1,IGWET
- ZVEC3(JJ) = ( XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * ZVEC1(JJ) &
- - ( XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
- - XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
- * (ZVEC1(JJ) - 1.0)
- END DO
- ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
-!
- WHERE( GWET(:) )
- ZZW1(:,5) = MAX(MIN( ZRGS(:),XFGWETH*ZZW(:) & ! RGWETH
- *( ZLBDAG(:)**(XCXG-XBG) )*( ZLBDAH(:)**XCXH ) &
- *( ZRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBGWETH1/( ZLBDAH(:)**2 ) + &
- XLBGWETH2/( ZLBDAH(:) * ZLBDAG(:) ) + &
- XLBGWETH3/( ZLBDAG(:)**2) ) ),0. )
- END WHERE
- DEALLOCATE(IVEC2)
- DEALLOCATE(IVEC1)
- DEALLOCATE(ZVEC3)
- DEALLOCATE(ZVEC2)
- DEALLOCATE(ZVEC1)
- END IF
+ DO JJ = 1,IGWET
+ ZVEC3(JJ) = ( XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_GWETH(IVEC1(JJ)+1,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ)+1) * ZVEC2(JJ) &
+ - XKER_GWETH(IVEC1(JJ) ,IVEC2(JJ) ) * (ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
+!
+ WHERE( GWET(:) )
+ ZZW1(:,5) = MAX(MIN( PRGS1D(:),XFGWETH*ZZW(:) * PRGT1D(:) * PCHT1D(:) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBGWETH1/( PLBDAH(:)**2 ) + &
+ XLBGWETH2/( PLBDAH(:) * PLBDAG(:) ) + &
+ XLBGWETH3/( PLBDAG(:)**2) ) ),0. )
+ END WHERE
+!* 3.1.10b perform the bilinear interpolation of the normalized
+! GWETH-kernel FOR CONCENTRATION
+!
+ DO JJ = 1,IGWET
+ ZVEC3(JJ) = ( XKER_N_GWETH(IVEC1(JJ)+1,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_GWETH(IVEC1(JJ)+1,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_GWETH(IVEC1(JJ) ,IVEC2(JJ)+1)* ZVEC2(JJ) &
+ - XKER_N_GWETH(IVEC1(JJ) ,IVEC2(JJ) )*(ZVEC2(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GWET,FIELD=0.0 )
+!
+ WHERE( GWET(:) )
+ ZZNW1(:,5) = MAX(MIN( PCGS1D(:),XFNGWETH*ZZNW(:) * PCGT1D(:) & ! NGWETH
+ *( PCHT1D(:) ) &
+ *( PRHODREF(:)**(-XCEXVT+1.) ) &
+ *( XLBNGWETH1/( PLBDAH(:)**2 ) + &
+ XLBNGWETH2/( PLBDAH(:) * PLBDAG(:) ) + &
+ XLBNGWETH3/( PLBDAG(:)**2) ) ),0. )
+ END WHERE
+!
+ DEALLOCATE(IVEC2)
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC3)
+ DEALLOCATE(ZVEC2)
+ DEALLOCATE(ZVEC1)
+ END IF
+!
!
!* 3.2 compute the Wet growth of hail
! -------------------------------------
!
- ZZW(:) = 0.0
- WHERE( GHAIL(:) .AND. ZZT(:)<XTT )
- ZZW(:) = ZRVT(:)*ZPRES(:)/((XMV/XMD)+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
+ ZZW(:) = 0.0
+ WHERE( GHAIL(:) .AND. PZT(:)<XTT )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RWETH
!
- ZZW(:) = MAX(0., ( ZZW(:) * ( X0DEPH* ZLBDAH(:)**XEX0DEPH + &
- X1DEPH*ZCJ(:)*ZLBDAH(:)**XEX1DEPH ) + &
- ( ZZW1(:,2)+ZZW1(:,3)+ZZW1(:,5) ) * &
- ( ZRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-ZZT(:))) ) ) / &
- ( ZRHODREF(:)*(XLMTT-XCL*(XTT-ZZT(:))) ) )
+ ZZW(:) = MAX(0., ( ZZW(:) * PCHT1D(:) * ( X0DEPH* PLBDAH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDAH(:)**XEX1DEPH ) + &
+ ( ZZW1(:,2)+ZZW1(:,3)+ZZW1(:,5) ) * &
+ ( PRHODREF(:)*(XLMTT+(XCI-XCL)*(XTT-PZT(:))) ) ) / &
+ ( PRHODREF(:)*(XLMTT-XCL*(XTT-PZT(:))) ) )
!
- ZZW1(:,6) = MAX( ZZW(:) - ZZW1(:,2) - ZZW1(:,3) - ZZW1(:,5),0.) ! RCWETH+RRWETH
- END WHERE
- WHERE ( GHAIL(:) .AND. ZZT(:)<XTT .AND. ZZW1(:,6)/=0.)
+ ZZW1(:,6) = MAX( ZZW(:) - ZZW1(:,2) - ZZW1(:,3) - ZZW1(:,5),0.) !RCWETH+RRWETH
+ END WHERE
+ !
+ WHERE ( GHAIL(:) .AND. PZT(:)<XTT .AND. ZZW1(:,6)/=0.)
!
! limitation of the available rainwater mixing ratio (RRWETH < RRS !)
!
- ZZW1(:,4) = MAX( 0.0,MIN( ZZW1(:,6),ZRRS(:)+ZZW1(:,1) ) )
- ZZX(:) = ZZW1(:,4) / ZZW1(:,6)
- ZZW1(:,2) = ZZW1(:,2)*ZZX(:)
- ZZW1(:,3) = ZZW1(:,3)*ZZX(:)
- ZZW1(:,5) = ZZW1(:,5)*ZZX(:)
- ZZW(:) = ZZW1(:,4) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,5)
+ ZZW1(:,4) = MAX( 0.0,MIN( ZZW1(:,6),PRRS1D(:)+ZZW1(:,1) ) )
+ ZZX(:) = ZZW1(:,4) / ZZW1(:,6)
+ ZZW1(:,2) = ZZW1(:,2) * ZZX(:)
+ ZZNW1(:,2) = ZZNW1(:,2)*ZZX(:)
+ ZZW1(:,3) = ZZW1(:,3) * ZZX(:)
+ ZZNW1(:,3) = ZZNW1(:,3)*ZZX(:)
+ ZZW1(:,5) = ZZW1(:,5) * ZZX(:)
+ ZZNW1(:,5) = ZZNW1(:,5)*ZZX(:)
+ ZZW(:) = ZZW1(:,4) + ZZW1(:,2) + ZZW1(:,3) + ZZW1(:,5)
!
!* 3.2.1 integrate the Wet growth of hail
!
- ZRCS(:) = ZRCS(:) - ZZW1(:,1)
- ZRIS(:) = ZRIS(:) - ZZW1(:,2)
- ZRSS(:) = ZRSS(:) - ZZW1(:,3)
- ZRGS(:) = ZRGS(:) - ZZW1(:,5)
- ZRHS(:) = ZRHS(:) + ZZW(:)
- ZRRS(:) = MAX( 0.0,ZRRS(:) - ZZW1(:,4) + ZZW1(:,1) )
- ZTHS(:) = ZTHS(:) + ZZW1(:,4)*(ZLSFACT(:)-ZLVFACT(:))
- ! f(L_f*(RCWETH+RRWETH))
-!
- ZCCS(:) = MAX( ZCCS(:)-ZZW1(:,1)*(ZCCT(:)/MAX(ZRCT(:),XRTMIN(2))),0.0 )
- ZCIS(:) = MAX( ZCIS(:)-ZZW1(:,2)*(ZCIT(:)/MAX(ZRIT(:),XRTMIN(4))),0.0 )
- ZCRS(:) = MAX( ZCRS(:)-MAX( ZZW1(:,4)-ZZW1(:,1),0.0 ) &
- *(ZCRT(:)/MAX(ZRRT(:),XRTMIN(3))),0.0 )
- END WHERE
-
+ PRCS1D(:) = PRCS1D(:) - ZZW1(:,1)
+ PRIS1D(:) = PRIS1D(:) - ZZW1(:,2)
+ PRSS1D(:) = PRSS1D(:) - ZZW1(:,3)
+ PRGS1D(:) = PRGS1D(:) - ZZW1(:,5)
+ PRHS1D(:) = PRHS1D(:) + ZZW(:)
+ PRRS1D(:) = MAX( 0.0,PRRS1D(:) - ZZW1(:,4) + ZZW1(:,1) )
+ PTHS1D(:) = PTHS1D(:) + ZZW1(:,4) * (PLSFACT(:) - PLVFACT(:))
+ ! f(L_f*(RCWETH+RRWETH))
+!
+ PCRS1D(:) = MAX( PCRS1D(:)-MAX( ZZW1(:,4)-ZZW1(:,1),0.0 ) &
+ *(PCRT1D(:)/MAX(PRRT1D(:),XRTMIN(3))),0.0 )
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZNW1(:,3),0.0 )
+ PCGS1D(:) = MAX( PCGS1D(:)-ZZNW1(:,5),0.0 )
+ PCCS1D(:) = MAX( PCCS1D(:)-ZZNW1(:,1),0.0 )
+ PCIS1D(:) = MAX( PCIS1D(:)-ZZNW1(:,2),0.0 )
+ END WHERE
+!
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'WETH', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'WETH', &
- Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prcs1d(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'WETH', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'WETH', &
- Unpack( zris(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pris1d(:), mask = gmicro(:, :, :), field = pris(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rs ) call Budget_store_end( tbudgets(NBUDGET_RS), 'WETH', &
- Unpack( zrss(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prss1d(:), mask = gmicro(:, :, :), field = prss(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'WETH', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'WETH', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) then
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'WETH', &
- Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pccs1d(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'WETH', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'WETH', &
- Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( pcis1d(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
+ if (M2_ICE) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'WETH', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'WETH', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
end if
END IF ! IHAIL>0
@@ -1344,83 +2083,177 @@ END IF ! IHAIL>0
IF ( IHAIL>0 ) THEN
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rg ) call Budget_store_init( tbudgets(NBUDGET_RG), 'COHG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'COHG', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if (lbudget_sv .and. M2_ICE) then
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'COHG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'COHG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
-
- ZTHRH=0.01E-3
- ZTHRC=0.001E-3
- ZZW(:) = 0.0
- WHERE( ZRHT(:)<ZTHRH .AND. ZRCT(:)<ZTHRC .AND. ZZT(:)<XTT )
- ZZW(:) = MIN( 1.0,MAX( 0.0,1.0-(ZRCT(:)/ZTHRC) ) )
+!
+ ZTHRH = 0.01E-3
+ ZTHRC = 0.001E-3
+ ZZW(:) = 0.0
+!
+ WHERE( PRHT1D(:)<ZTHRH .AND. PRCT1D(:)<ZTHRC .AND. PZT(:)<XTT )
+ ZZW(:) = MIN( 1.0,MAX( 0.0,1.0-(PRCT1D(:)/ZTHRC) ) )
!
! assume a linear percent conversion rate of hail into graupel
!
- ZZW(:) = ZRHS(:)*ZZW(:)
- ZRGS(:) = ZRGS(:) + ZZW(:) ! partial conversion
- ZRHS(:) = ZRHS(:) - ZZW(:) ! of hail into graupel
+ ZZW(:) = PRHS1D(:) * ZZW(:)
+ PRGS1D(:) = PRGS1D(:) + ZZW(:) ! partial conversion
+ PRHS1D(:) = PRHS1D(:) - ZZW(:) ! of hail into graupel
+ END WHERE
+ if (M2_ICE) then
+ WHERE( PRHT1D(:)<ZTHRH .AND. PRCT1D(:)<ZTHRC .AND. PZT(:)<XTT )
+ PCGS1D(:) = PCGS1D(:) + ZZW(:)* PCHS1D(:)/MAX(PRHS1D(:),XRTMIN(7))
+ PCHS1D(:) = MAX( PCHS1D(:) - ZZW(:)* PCHS1D(:)/MAX(PRHS1D(:),XRTMIN(7)), 0.0 )
+ END WHERE
+ end if
!
- END WHERE
-
if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rg ) call Budget_store_end( tbudgets(NBUDGET_RG), 'COHG', &
- Unpack( zrgs(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prgs1d(:), mask = gmicro(:, :, :), field = prgs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'COHG', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if (lbudget_sv .and. M2_ICE) then
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ng), 'COHG', &
+ Unpack( pcgs1d(:), mask = gmicro(:, :, :), field = pcgs(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'COHG', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
end if
END IF
!
+!
!* 3.4 Melting of the hailstones
!
IF ( IHAIL>0 ) THEN
- if ( nbumod == kmi .and. lbu_enable ) then
- if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'HMLT', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'HMLT', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'HMLT', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
- end if
-
- ZZW(:) = 0.0
- WHERE( GHAIL(:) .AND. (ZRHS(:)>XRTMIN(7)/PTSTEP) .AND. (ZRHT(:)>XRTMIN(7)) .AND. (ZZT(:)>XTT) )
- ZZW(:) = ZRVT(:)*ZPRES(:)/((XMV/XMD)+ZRVT(:)) ! Vapor pressure
- ZZW(:) = ZKA(:)*(XTT-ZZT(:)) + &
- ( ZDV(:)*(XLVTT + ( XCPV - XCL ) * ( ZZT(:) - XTT )) &
- *(XESTT-ZZW(:))/(XRV*ZZT(:)) )
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'HMLT', &
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'HMLT', &
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rh ) call Budget_store_init( tbudgets(NBUDGET_RH), 'HMLT', &
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'HMLT', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
+!
+ ZZW(:) = 0.0
+ WHERE( GHAIL(:) .AND. (PRHS1D(:)>XRTMIN(7)/PTSTEP) .AND. (PRHT1D(:)>XRTMIN(7)) .AND. (PZT(:)>XTT) )
+ ZZW(:) = PRVT1D(:)*PPRES(:)/((XMV/XMD)+PRVT1D(:)) ! Vapor pressure
+ ZZW(:) = PKA(:)*(XTT-PZT(:)) + &
+ ( PDV(:)*(XLVTT + ( XCPV - XCL ) * ( PZT(:) - XTT )) &
+ *(XESTT-ZZW(:))/(XRV*PZT(:)) )
!
! compute RHMLTR
!
- ZZW(:) = MIN( ZRHS(:), MAX( 0.0,( -ZZW(:) * &
- ( X0DEPH* ZLBDAH(:)**XEX0DEPH + &
- X1DEPH*ZCJ(:)*ZLBDAH(:)**XEX1DEPH ) - &
- ZZW1(:,6)*( ZRHODREF(:)*XCL*(XTT-ZZT(:))) ) / &
- ( ZRHODREF(:)*XLMTT ) ) )
- ZRRS(:) = ZRRS(:) + ZZW(:)
- ZRHS(:) = ZRHS(:) - ZZW(:)
- ZTHS(:) = ZTHS(:) - ZZW(:)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(-RHMLTR))
+ ZZW(:) = MIN( PRHS1D(:), MAX( 0.0,( -ZZW(:) * PCHT1D(:) * &
+ ( X0DEPH* PLBDAH(:)**XEX0DEPH + &
+ X1DEPH*PCJ(:)*PLBDAH(:)**XEX1DEPH ) - &
+ ZZW1(:,6)*( PRHODREF(:)*XCL*(XTT-PZT(:))) ) / &
+ ( PRHODREF(:)*XLMTT ) ) )
+ PRRS1D(:) = PRRS1D(:) + ZZW(:)
+ PRHS1D(:) = PRHS1D(:) - ZZW(:)
+ PTHS1D(:) = PTHS1D(:) - ZZW(:)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(-RHMLTR))
!
- ZCRS(:) = MAX( ZCRS(:) + ZZW(:)*(XCCH*ZLBDAH(:)**XCXH/ZRHT(:)),0.0 )
+ PCRS1D(:) = MAX( PCRS1D(:) + ZZW(:)*(PCHT1D(:)/PRHT1D(:)),0.0 )
+ PCHS1D(:) = MAX( PCHS1D(:) - ZZW(:)*(PCHT1D(:)/PRHT1D(:)),0.0 )
!
- END WHERE
-
- if ( nbumod == kmi .and. lbu_enable ) then
- if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'HMLT', &
- Unpack( zths(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'HMLT', &
- Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'HMLT', &
- Unpack( zrhs(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
- if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
- Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
- end if
+ END WHERE
+!
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'HMLT', &
+ Unpack( pths1d(:), mask = gmicro(:, :, :), field = pths(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'HMLT', &
+ Unpack( prrs1d(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_rh ) call Budget_store_end( tbudgets(NBUDGET_RH), 'HMLT', &
+ Unpack( prhs1d(:), mask = gmicro(:, :, :), field = prhs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'HMLT', &
+ Unpack( pcrs1d(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
+ if ( lbudget_sv .and. M2_ICE ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nh), 'HMLT', &
+ Unpack( pchs1d(:), mask = gmicro(:, :, :), field = pchs(:, :, :) ) * prhodj(:, :, :) )
+ end if
END IF
-
+!
END IF HAIL
!
+!
+!
+if( M2_ICE) then
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SSC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ end if
+!* 1.3NEW Aggregates self-collection
+! -------------------------------
+!
+ ZZNW1(:,:) = 0.0
+!
+ GACC(:) = PCST1D(:)>XCTMIN(5) .AND. PRST1D(:)>XRTMIN(5) .AND. PZT(:)<XTT
+ IGACC = COUNT( GACC(:) )
+!
+ IF( IGACC>0 ) THEN
+!
+! 1.3N.0 allocations
+!
+ ALLOCATE(ZVEC1(IGACC))
+ ALLOCATE(IVEC1(IGACC))
+!
+! 1.3N.1 select the (ZLBDAS,ZLBDAS) couplet
+!
+ ZVEC1(:) = PACK( PLBDAS(:),MASK=GACC(:) )
+!
+! 1.3N.2 find the next lower indice for the ZLBDAS and for the ZLBDAS
+! in the geometrical set of (Lbda_s,Lbda_s) couplet use to
+! tabulate the SACCS-kernel
+!
+ ZVEC1(1:IGACC) = MAX( 1.0001, MIN( FLOAT(NSCLBDAS)-0.0001, &
+ XSCINTP1S * LOG( ZVEC1(1:IGACC) ) + XSCINTP2S ) )
+ IVEC1(1:IGACC) = INT( ZVEC1(1:IGACC) )
+ ZVEC1(1:IGACC) = ZVEC1(1:IGACC) - FLOAT( IVEC1(1:IGACC) )
+!
+! 1.3N.3 perform the bilinear interpolation of the normalized
+! SSCS-kernel
+!
+ ALLOCATE(ZVEC3(IGACC))
+ DO JJ = 1,IGACC
+ ZVEC3(JJ) = ( XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZZNW(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GACC(:),FIELD=0.0 ) !! NSACCS
+ DEALLOCATE(ZVEC3)
+!
+ WHERE( GACC(:) )
+! ZZNW1(:,5) = XSSC * (PRST1D(:) * PRHODREF(:))**EXPRS * PCST1D(:)**EXPNS
+ ZZNW1(:,5) = MIN( PCSS1D(:),XFNSSCS*ZZNW(:) & ! NSSCS
+ * EXP( XCOLEXSS*(PZT(:)-XTT) ) &
+ *( PCST1D(:) )**( 2 ) &
+ *( PRHODREF(:)**(-XCEXVT-1.) ) &
+ *( XLBNSSCS1/( PLBDAS(:)**2 ) + &
+ XLBNSSCS2/( PLBDAS(:)**2 ) ) )
+!
+ PCSS1D(:) = MAX( PCSS1D(:)-ZZNW1(:,5),0.0 )
+ END WHERE
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC1)
+ END IF
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_sv ) call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ns), 'SSC', &
+ Unpack( pcss1d(:), mask = gmicro(:, :, :), field = pcss(:, :, :) ) * prhodj(:, :, :) )
+ end if
+end if
+!
!------------------------------------------------------------------------------
!
END SUBROUTINE LIMA_MIXED_FAST_PROCESSES
diff --git a/src/mesonh/micro/lima_mixed_slow_processes.f90 b/src/mesonh/micro/lima_mixed_slow_processes.f90
index 6ef9b55f5..1daf983b6 100644
--- a/src/mesonh/micro/lima_mixed_slow_processes.f90
+++ b/src/mesonh/micro/lima_mixed_slow_processes.f90
@@ -8,15 +8,15 @@
! #####################################
!
INTERFACE
- SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
- ZLSFACT, ZLVFACT, ZAI, ZCJ, &
- ZRGT, ZCIT, &
- ZRVS, ZRCS, ZRIS, ZRGS, ZTHS, &
- ZCCS, ZCIS, ZIFS, ZINS, &
- ZLBDAI, ZLBDAG, &
- PRHODJ1D, GMICRO, PRHODJ, KMI,&
- PTHS, PRVS, PRCS, PRIS, PRGS, &
- PCCS, PCIS, PINS )
+ SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZAI, ZCJ, &
+ ZRGT, ZRHT, ZCIT, ZCGT, ZCHT, &
+ ZRVS, ZRCS, ZRIS, ZRGS, ZRHS, ZTHS, &
+ ZCCS, ZCIS, ZCGS, ZIFS, ZINS, &
+ ZLBDAI, ZLBDAG, ZLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, &
+ PTHS, PRVS, PRCS, PRIS, PRGS, PRHS, &
+ PCCS, PCIS )
!
REAL, DIMENSION(:), INTENT(IN) :: ZRHODREF ! RHO Dry REFerence
REAL, DIMENSION(:), INTENT(IN) :: ZZT ! Temperature
@@ -29,21 +29,27 @@ REAL, DIMENSION(:), INTENT(IN) :: ZAI ! Thermodynamical function
REAL, DIMENSION(:), INTENT(IN) :: ZCJ ! for the ventilation coefficient
!
REAL, DIMENSION(:), INTENT(IN) :: ZRGT ! Graupel/hail m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZRHT ! Hail m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCGT ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCHT ! Hail conc. at t
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRIS ! Pristine ice m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRGS ! Graupel/hail m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZRHS ! Graupel/hail m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZTHS ! Theta source
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZCCS ! Cloud water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZCGS ! Graupel conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZIFS ! Free Ice nuclei conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZINS ! Nucleated Ice nuclei conc. source
!
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAI ! Slope parameter of the ice crystal distr.
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAG ! Slope parameter of the graupel distr.
+REAL, DIMENSION(:), INTENT(IN) :: ZLBDAH ! Slope parameter of the hail distr.
!
! used for budget storage
REAL, DIMENSION(:), INTENT(IN) :: PRHODJ1D
@@ -55,24 +61,24 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRIS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
-REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PINS
!
END SUBROUTINE LIMA_MIXED_SLOW_PROCESSES
END INTERFACE
END MODULE MODI_LIMA_MIXED_SLOW_PROCESSES
!
! #######################################################################
- SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
- ZLSFACT, ZLVFACT, ZAI, ZCJ, &
- ZRGT, ZCIT, &
- ZRVS, ZRCS, ZRIS, ZRGS, ZTHS, &
- ZCCS, ZCIS, ZIFS, ZINS, &
- ZLBDAI, ZLBDAG, &
- PRHODJ1D, GMICRO, PRHODJ, KMI,&
- PTHS, PRVS, PRCS, PRIS, PRGS, &
- PCCS, PCIS, PINS )
+ SUBROUTINE LIMA_MIXED_SLOW_PROCESSES(ZRHODREF, ZZT, ZSSI, PTSTEP, &
+ ZLSFACT, ZLVFACT, ZAI, ZCJ, &
+ ZRGT, ZRHT, ZCIT, ZCGT, ZCHT, &
+ ZRVS, ZRCS, ZRIS, ZRGS, ZRHS, ZTHS, &
+ ZCCS, ZCIS, ZCGS, ZIFS, ZINS, &
+ ZLBDAI, ZLBDAG, ZLBDAH, &
+ PRHODJ1D, GMICRO, PRHODJ, KMI, &
+ PTHS, PRVS, PRCS, PRIS, PRGS, PRHS, &
+ PCCS, PCIS )
! #######################################################################
!
!!
@@ -113,22 +119,24 @@ END MODULE MODI_LIMA_MIXED_SLOW_PROCESSES
!! C. Barthe * LACy * jan. 2014 add budgets
! P. Wautelet 03/2020: use the new data structures and subroutines for budgets
! P. Wautelet 02/02/2021: budgets: add missing source terms for SV budgets in LIMA
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
use modd_budget, only: lbu_enable, nbumod, &
- lbudget_th, lbudget_rv, lbudget_rc, lbudget_rc, lbudget_ri, lbudget_rg, lbudget_sv, &
- NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, NBUDGET_RC, NBUDGET_RI, NBUDGET_RG, NBUDGET_SV1, &
+ lbudget_th, lbudget_rv, lbudget_rc, lbudget_rc, lbudget_ri, lbudget_rg, lbudget_rh, lbudget_sv, &
+ NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, NBUDGET_RC, NBUDGET_RI, NBUDGET_RG, NBUDGET_RH, NBUDGET_SV1, &
tbudgets
USE MODD_CST, ONLY : XTT, XALPI, XBETAI, XGAMI, &
XALPW, XBETAW, XGAMW
USE MODD_NSV
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, NMOD_IFN, LSNOW
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, NMOD_IFN, LSNOW, LHAIL, NMOM_S, NMOM_G, NMOM_H
USE MODD_PARAM_LIMA_COLD, ONLY : XDI, X0DEPI, X2DEPI, XSCFAC
-USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XLBDAG_MAX, &
- X0DEPG, XEX0DEPG, X1DEPG, XEX1DEPG
+USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XLBDAG_MAX, XCCG, XCXG, &
+ X0DEPG, XEX0DEPG, X1DEPG, XEX1DEPG, &
+ X0DEPH, XEX0DEPH, X1DEPH, XEX1DEPH
use mode_budget, only: Budget_store_add, Budget_store_init, Budget_store_end
IMPLICIT NONE
@@ -146,21 +154,27 @@ REAL, DIMENSION(:), INTENT(IN) :: ZAI ! Thermodynamical function
REAL, DIMENSION(:), INTENT(IN) :: ZCJ ! for the ventilation coefficient
!
REAL, DIMENSION(:), INTENT(IN) :: ZRGT ! Graupel/hail m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZRHT ! Hail m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: ZCIT ! Pristine ice conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCGT ! Graupel conc. at t
+REAL, DIMENSION(:), INTENT(IN) :: ZCHT ! hail conc. at t
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRCS ! Cloud water m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRIS ! Pristine ice m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZRGS ! Graupel/hail m.r. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZRHS ! hail m.r. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZTHS ! Theta source
!
REAL, DIMENSION(:), INTENT(INOUT) :: ZCCS ! Cloud water conc. source
REAL, DIMENSION(:), INTENT(INOUT) :: ZCIS ! Pristine ice conc. source
+REAL, DIMENSION(:), INTENT(INOUT) :: ZCGS ! Graupel conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZIFS ! Free Ice nuclei conc. source
REAL, DIMENSION(:,:), INTENT(INOUT) :: ZINS ! Nucleated Ice nuclei conc. source
!
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAI ! Slope parameter of the ice crystal distr.
REAL, DIMENSION(:), INTENT(IN) :: ZLBDAG ! Slope parameter of the graupel distr.
+REAL, DIMENSION(:), INTENT(IN) :: ZLBDAH ! Slope parameter of the hail distr.
!
! used for budget storage
REAL, DIMENSION(:), INTENT(IN) :: PRHODJ1D
@@ -172,9 +186,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRIS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRGS
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCCS
REAL, DIMENSION(:,:,:), INTENT(IN) :: PCIS
-REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PINS
!
!* 0.2 Declarations of local variables :
!
@@ -190,9 +204,9 @@ INTEGER :: JMOD_IFN
!
IF (LSNOW) THEN
ZZW(:) = 0.0
- WHERE ( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>XRTMIN(6)/PTSTEP) )
- ZZW(:) = ( ZSSI(:)/ZAI(:)/ZRHODREF(:) ) * &
- ( X0DEPG*ZLBDAG(:)**XEX0DEPG + X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG )
+ WHERE ( (ZRGT(:)>XRTMIN(6)) .AND. (ZRGS(:)>XRTMIN(6)/PTSTEP) )
+ ZZW(:) = ( ZSSI(:)/ZAI(:)/ZRHODREF(:) ) * ZCGT(:) * &
+ ( X0DEPG*ZLBDAG(:)**XEX0DEPG + X1DEPG*ZCJ(:)*ZLBDAG(:)**XEX1DEPG )
ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
- MIN( ZRGS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
ZRGS(:) = ZRGS(:) + ZZW(:)
@@ -211,6 +225,34 @@ IF (LSNOW) THEN
end if
END IF
!
+!
+!* 1.0 Deposition of water vapor on r_h: RVDEPH
+! ---------------------------------------------
+!
+!
+IF (LHAIL .AND. NMOM_H.GE.2) THEN
+ ZZW(:) = 0.0
+ WHERE ( (ZRHT(:)>XRTMIN(7)) .AND. (ZRHS(:)>XRTMIN(7)/PTSTEP) )
+ ZZW(:) = ( ZSSI(:)/(ZAI(:)) ) * ZCHT(:) * &
+ ( X0DEPH*ZLBDAH(:)**XEX0DEPH + X1DEPH*ZCJ(:)*ZLBDAH(:)**XEX1DEPH )
+ ZZW(:) = MIN( ZRVS(:),ZZW(:) )*(0.5+SIGN(0.5,ZZW(:))) &
+ - MIN( ZRHS(:),ABS(ZZW(:)) )*(0.5-SIGN(0.5,ZZW(:)))
+ ZRHS(:) = ZRHS(:) + ZZW(:)
+ ZRVS(:) = ZRVS(:) - ZZW(:)
+ ZTHS(:) = ZTHS(:) + ZZW(:)*ZLSFACT(:)
+ END WHERE
+!
+! Budget storage
+ if ( nbumod == kmi .and. lbu_enable ) then
+ if ( lbudget_th ) call Budget_store_add( tbudgets(NBUDGET_TH), 'DEPH', &
+ Unpack( zzw(:) * zlsfact(:) * prhodj1d(:), mask = gmicro(:, :, :), field = 0. ) )
+ if ( lbudget_rv ) call Budget_store_add( tbudgets(NBUDGET_RV), 'DEPH', &
+ Unpack( -zzw(:) * prhodj1d(:), mask = gmicro(:, :, :), field = 0. ) )
+ if ( lbudget_rh ) call Budget_store_add( tbudgets(NBUDGET_RH), 'DEPH', &
+ Unpack( zzw(:) * prhodj1d(:), mask = gmicro(:, :, :), field = 0. ) )
+ end if
+END IF
+!
!
!* 2 cloud ice Melting: RIMLTC and CIMLTC
! -----------------------------------------
@@ -223,10 +265,10 @@ END IF
if ( lbudget_sv ) then
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'IMLT', pccs(:, :, :) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'IMLT', pcis(:, :, :) * prhodj(:, :, :) )
- do jmod_ifn = 1,nmod_ifn
- call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
- pins(:, :, :, jmod_ifn) * prhodj(:, :, :) )
- enddo
+! do jmod_ifn = 1,nmod_ifn
+! call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
+! pins(:, :, :, jmod_ifn) * prhodj(:, :, :) )
+! enddo
end if
end if
@@ -243,7 +285,7 @@ END IF
DO JMOD_IFN = 1,NMOD_IFN
! Correction BVIE aerosols not released but in droplets
! ZIFS(:,JMOD_IFN) = ZIFS(:,JMOD_IFN) + ZINS(:,JMOD_IFN)*(1.-ZMASK(:))
- ZINS(:,JMOD_IFN) = ZINS(:,JMOD_IFN) * ZMASK(:)
+! ZINS(:,JMOD_IFN) = ZINS(:,JMOD_IFN) * ZMASK(:)
ENDDO
!
! Budget storage
@@ -259,10 +301,10 @@ END IF
Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'IMLT', &
Unpack( zcis(:), mask = gmicro(:, :, :), field = pcis(:, :, :) ) * prhodj(:, :, :) )
- do jmod_ifn = 1,nmod_ifn
- call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
- Unpack( zins(:, jmod_ifn), mask = gmicro(:, :, :), field = pins(:, :, :, jmod_ifn) ) * prhodj(:, :, :) )
- enddo
+! do jmod_ifn = 1,nmod_ifn
+! call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl + jmod_ifn - 1), 'IMLT', &
+! Unpack( zins(:, jmod_ifn), mask = gmicro(:, :, :), field = pins(:, :, :, jmod_ifn) ) * prhodj(:, :, :) )
+! enddo
end if
end if
!
diff --git a/src/mesonh/micro/lima_notadjust.f90 b/src/mesonh/micro/lima_notadjust.f90
index 94ea1f4fd..42a0b33d5 100644
--- a/src/mesonh/micro/lima_notadjust.f90
+++ b/src/mesonh/micro/lima_notadjust.f90
@@ -10,8 +10,8 @@
INTERFACE
!
SUBROUTINE LIMA_NOTADJUST(KMI, TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PEXNREF, PZZ, &
- PTHT,PRT, PSVT, PTHS, PRS,PSVS, PCLDFR, PSRCS )
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PEXNREF, PZZ, &
+ PTHT,PRT, PSVT, PTHS, PRS,PSVS, PCLDFR, PICEFR, PRAINFR, PSRCS )
!
USE MODD_IO, ONLY: TFILEDATA
!
@@ -22,7 +22,7 @@ REAL, INTENT(IN) :: PTSTEP ! Double Time step
! (single if cold start)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Reference density
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference density
@@ -38,6 +38,8 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRCS ! Second-order flux
! s'rc'/2Sigma_s2 at time t+1
! multiplied by Lambda_3
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PCLDFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PICEFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRAINFR ! Cloud fraction
!
!
END SUBROUTINE LIMA_NOTADJUST
@@ -48,8 +50,8 @@ END MODULE MODI_LIMA_NOTADJUST
!
! ####################################################################################
SUBROUTINE LIMA_NOTADJUST(KMI, TPFILE, HRAD, &
- PTSTEP, PRHODJ, PPABSM, PPABST, PRHODREF, PEXNREF, PZZ, &
- PTHT,PRT, PSVT, PTHS, PRS,PSVS, PCLDFR, PSRCS )
+ PTSTEP, PRHODJ, PPABSTT, PPABST, PRHODREF, PEXNREF, PZZ, &
+ PTHT,PRT, PSVT, PTHS, PRS,PSVS, PCLDFR, PICEFR, PRAINFR, PSRCS )
! ####################################################################################
!
!!**** * - compute pseudo-prognostic of supersaturation according to Thouron
@@ -110,7 +112,7 @@ REAL, INTENT(IN) :: PTSTEP ! Double Time step
! (single if cold start)
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODJ ! Dry density * Jacobian
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! Absolute Pressure at t-dt
+REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSTT ! Absolute Pressure at t+dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! Absolute Pressure at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRHODREF ! Reference density
REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference density
@@ -126,6 +128,8 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PSRCS ! Second-order flux
! s'rc'/2Sigma_s2 at time t+1
! multiplied by Lambda_3
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PCLDFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PICEFR ! Cloud fraction
+REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PRAINFR ! Cloud fraction
!
!
!* 0.2 Declarations of local variables :
@@ -188,7 +192,7 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'CEDS', prs(:, :, :, 2) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_init( tbudgets(NBUDGET_RI), 'CEDS', prs(:, :, :, 4) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) then
+ if ( lwarm .and. nmom_c.ge.2) then
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', psvs(:, :, :, nsv_lima_nc) * prhodj(:, :, :) )
do jl = nsv_lima_ccn_free, nsv_lima_ccn_free + nmod_ccn - 1
idx = NBUDGET_SV1 - 1 + jl
@@ -246,7 +250,7 @@ END IF
!
!* 2.2 estimate the Exner function at t+1 and t respectively
!
-ZEXNS(:,:,:)=((2.* PPABST(:,:,:)-PPABSM(:,:,:))/XP00 )**(XRD/XCPD)
+ZEXNS(:,:,:)=(PPABSTT(:,:,:)/XP00 )**(XRD/XCPD)
ZEXNT(:,:,:)=(PPABST(:,:,:)/XP00 )**(XRD/XCPD)
!sources terms *dt
PRS(:,:,:,:) = PRS(:,:,:,:) * PTSTEP
@@ -333,7 +337,7 @@ IF( IMICRO >= 1 .AND. .NOT.LPTSPLIT) THEN
!
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
- ZPRES(JL) = 2.0*PPABST(I1(JL),I2(JL),I3(JL))-PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
ZZCPH(JL) = ZCPH(I1(JL),I2(JL),I3(JL))
ENDDO
@@ -447,9 +451,10 @@ GNUCT(:,:,:) = .FALSE.
!GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0 .OR. &
! ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>0.0
!GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0
-GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0 .OR. &
+GNUCT(IIB:IIE,IJB:IJE,IKB:IKE) = ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>-1.0 .AND. &
+ ( ZSAT(IIB:IIE,IJB:IJE,IKB:IKE)>0.0 .OR. &
! ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>1.E+05
- ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>XCTMIN(2)
+ ZCCS(IIB:IIE,IJB:IJE,IKB:IKE)>XCTMIN(2) )
INUCT = COUNTJV( GNUCT(:,:,:),I1(:),I2(:),I3(:))
!3D array to 1D array
!
@@ -468,7 +473,7 @@ IF( INUCT >= 1 ) THEN
ALLOCATE(ZZLV(INUCT))
ALLOCATE(ZZCPH(INUCT))
DO JL=1,INUCT
- ZPRES(JL) = 2. * PPABST(I1(JL),I2(JL),I3(JL)) - PPABSM(I1(JL),I2(JL),I3(JL))
+ ZPRES(JL) = PPABSTT(I1(JL),I2(JL),I3(JL))
ZRHOD(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZRR(JL) = PRS(I1(JL),I2(JL),I3(JL),3)
ZTT(JL) = PTHS(I1(JL),I2(JL),I3(JL))
@@ -531,7 +536,7 @@ ENDIF
WHERE(.NOT.GNUCT(:,:,:) )
ZRVSAT(:,:,:) = EXP(XALPW-XBETAW/PTHS(:,:,:)-XGAMW*ALOG(PTHS(:,:,:)))
!rvsat
- ZRVSAT(:,:,:) = (XMV / XMD)*ZRVSAT(:,:,:)/((2.* PPABST(:,:,:)-PPABSM(:,:,:))-ZRVSAT(:,:,:))
+ ZRVSAT(:,:,:) = (XMV / XMD)*ZRVSAT(:,:,:)/(PPABSTT(:,:,:)-ZRVSAT(:,:,:))
ZSAT(:,:,:) = (PRS(:,:,:,1)/ZRVSAT(:,:,:))-1D0
ENDWHERE
!
@@ -564,6 +569,23 @@ IF ( HRAD /= 'NONE' ) THEN
PCLDFR(:,:,:) = ZW1(:,:,:)
END IF
!
+ZW1(:,:,:)=0.
+IF (SIZE(PRS,4)>3) ZW1(:,:,:)=ZW1(:,:,:) + PRS(:,:,:,4)
+WHERE (ZW1(:,:,:) > 1.E-15)
+ PICEFR(:,:,:) = 1.
+ELSEWHERE
+ PICEFR(:,:,:) = 0.
+ENDWHERE
+ZW1(:,:,:)=0.
+IF (SIZE(PRS,4)>2) ZW1(:,:,:)=ZW1(:,:,:) + PRS(:,:,:,3)
+IF (SIZE(PRS,4)>4) ZW1(:,:,:)=ZW1(:,:,:) + PRS(:,:,:,5)
+IF (SIZE(PRS,4)>5) ZW1(:,:,:)=ZW1(:,:,:) + PRS(:,:,:,6)
+WHERE (ZW1(:,:,:) > 1.E-15)
+ PRAINFR(:,:,:) = 1.
+ELSEWHERE
+ PRAINFR(:,:,:) = 0.
+ENDWHERE
+!
IF ( tpfile%lopened ) THEN
ZW(:,:,:)=SUM(ZNAS,4)-ZW(:,:,:)
TZFIELD%CMNHNAME = 'NACT'
@@ -588,7 +610,7 @@ if ( nbumod == kmi .and. lbu_enable ) then
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'CEDS', prs(:, :, :, 2) * prhodj(:, :, :) )
if ( lbudget_ri ) call Budget_store_end( tbudgets(NBUDGET_RI), 'CEDS', prs(:, :, :, 4) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- if ( lwarm ) then
+ if ( lwarm .and. nmom_c.ge.2) then
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'CEDS', psvs(:, :, :, nsv_lima_nc) * prhodj(:, :, :) )
do jl = nsv_lima_ccn_free, nsv_lima_ccn_free + nmod_ccn - 1
idx = NBUDGET_SV1 - 1 + jl
diff --git a/src/mesonh/micro/lima_nucleation_procs.f90 b/src/mesonh/micro/lima_nucleation_procs.f90
index 122d4b3c8..07213550d 100644
--- a/src/mesonh/micro/lima_nucleation_procs.f90
+++ b/src/mesonh/micro/lima_nucleation_procs.f90
@@ -79,6 +79,7 @@ SUBROUTINE LIMA_NUCLEATION_PROCS (PTSTEP, TPFILE, PRHODJ,
! P. Wautelet 27/02/2020: add Z_TH_HINC variable (for budgets)
! P. Wautelet 02/2020: use the new data structures and subroutines for budgets
! B. Vie 03/03/2020: use DTHRAD instead of dT/dt in Smax diagnostic computation
+! B. Vie 03/2022: Add option for 1-moment pristine ice
!-------------------------------------------------------------------------------
!
use modd_budget, only: lbu_enable, lbudget_th, lbudget_rv, lbudget_rc, lbudget_rr, &
@@ -86,10 +87,11 @@ use modd_budget, only: lbu_enable, lbudget_th, lbudget_rv, lbudget_rc, lbudg
NBUDGET_TH, NBUDGET_RV, NBUDGET_RC, NBUDGET_RI, NBUDGET_SV1, &
tbudgets
USE MODD_IO, ONLY: TFILEDATA
+USE MODD_PARAMETERS, ONLY : JPHEXT, JPVEXT
USE MODD_NSV, ONLY : NSV_LIMA_NC, NSV_LIMA_NR, NSV_LIMA_CCN_FREE, NSV_LIMA_CCN_ACTI, &
NSV_LIMA_NI, NSV_LIMA_IFN_FREE, NSV_LIMA_IFN_NUCL, NSV_LIMA_IMM_NUCL, NSV_LIMA_HOM_HAZE
USE MODD_PARAM_LIMA, ONLY : LCOLD, LNUCL, LMEYERS, LSNOW, LWARM, LACTI, LRAIN, LHHONI, &
- NMOD_CCN, NMOD_IFN, NMOD_IMM, XCTMIN, XRTMIN, LSPRO
+ NMOD_CCN, NMOD_IFN, NMOD_IMM, XCTMIN, XRTMIN, LSPRO, NMOM_I, NMOM_C
USE MODD_TURB_n, ONLY : LSUBG_COND
use mode_budget, only: Budget_store_add, Budget_store_init, Budget_store_end
@@ -98,6 +100,7 @@ USE MODI_LIMA_CCN_ACTIVATION
USE MODI_LIMA_CCN_HOM_FREEZING
USE MODI_LIMA_MEYERS_NUCLEATION
USE MODI_LIMA_PHILLIPS_IFN_NUCLEATION
+USE MODE_RAIN_ICE_NUCLEATION
!
!-------------------------------------------------------------------------------
!
@@ -142,13 +145,14 @@ REAL, DIMENSION(:,:,:), INTENT(INOUT) :: PPRCFR ! Precipitation fraction
!-------------------------------------------------------------------------------
!
REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: Z_TH_HIND, Z_RI_HIND, Z_CI_HIND, Z_TH_HINC, Z_RC_HINC, Z_CC_HINC
+REAL, DIMENSION(SIZE(PT,1),SIZE(PT,2),SIZE(PT,3)) :: ZTHS, ZRIS, ZRVS, ZRHT, ZCIT, ZT
!
integer :: idx
INTEGER :: JL
!
!-------------------------------------------------------------------------------
!
-IF ( LWARM .AND. LACTI .AND. NMOD_CCN >=1 ) THEN
+IF ( LWARM .AND. LACTI .AND. NMOD_CCN >=1 .AND. NMOM_C.GE.2) THEN
IF (.NOT.LSUBG_COND .AND. .NOT.LSPRO) THEN
@@ -193,7 +197,7 @@ END IF
!
!-------------------------------------------------------------------------------
!
-IF ( LCOLD .AND. LNUCL .AND. .NOT.LMEYERS .AND. NMOD_IFN >= 1 ) THEN
+IF ( LCOLD .AND. LNUCL .AND. NMOM_I>=2 .AND. .NOT.LMEYERS .AND. NMOD_IFN >= 1 ) THEN
if ( lbu_enable ) then
if ( lbudget_sv ) then
do jl = 1, nmod_ifn
@@ -241,7 +245,9 @@ IF ( LCOLD .AND. LNUCL .AND. .NOT.LMEYERS .AND. NMOD_IFN >= 1 ) THEN
if ( lbudget_rc ) call Budget_store_add( tbudgets(NBUDGET_RC), 'HINC', z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_ri ) call Budget_store_add( tbudgets(NBUDGET_RI), 'HINC', -z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_sv ) then
- call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ if (nmom_c.ge.2) then
+ call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ end if
call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HINC', -z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
do jl = 1, nmod_ccn
idx = NBUDGET_SV1 - 1 + nsv_lima_ccn_acti - 1 + jl
@@ -257,7 +263,7 @@ END IF
!
!-------------------------------------------------------------------------------
!
-IF (LCOLD .AND. LNUCL .AND. LMEYERS) THEN
+IF (LCOLD .AND. LNUCL .AND. NMOM_I>=2 .AND. LMEYERS) THEN
CALL LIMA_MEYERS_NUCLEATION (PTSTEP, &
PRHODREF, PEXNREF, PPABST, &
PTHT, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
@@ -266,7 +272,7 @@ IF (LCOLD .AND. LNUCL .AND. LMEYERS) THEN
Z_TH_HINC, Z_RC_HINC, Z_CC_HINC, &
PICEFR )
WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(4)) PICEFR(:,:,:)=1.
-!
+ !
if ( lbu_enable ) then
if ( lbudget_th ) call Budget_store_add( tbudgets(NBUDGET_TH), 'HIND', z_th_hind(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_rv ) call Budget_store_add( tbudgets(NBUDGET_RV), 'HIND', -z_ri_hind(:, :, :) * prhodj(:, :, :) / ptstep )
@@ -282,7 +288,9 @@ IF (LCOLD .AND. LNUCL .AND. LMEYERS) THEN
if ( lbudget_rc ) call Budget_store_add( tbudgets(NBUDGET_RC), 'HINC', z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_ri ) call Budget_store_add( tbudgets(NBUDGET_RI), 'HINC', -z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_sv ) then
- call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ if (nmom_c.ge.2) then
+ call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+ end if
call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HINC', -z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
if (nmod_ifn > 0 ) &
call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl), 'HINC', &
@@ -293,7 +301,57 @@ END IF
!
!-------------------------------------------------------------------------------
!
-IF ( LCOLD .AND. LNUCL .AND. LHHONI .AND. NMOD_CCN >= 1) THEN
+IF (LCOLD .AND. LNUCL .AND. NMOM_I.EQ.1) THEN
+ WHERE(PICEFR(:,:,:)<1.E-10 .AND. PRIT(:,:,:)>XRTMIN(4) .AND. PCIT(:,:,:)>XCTMIN(4)) PICEFR(:,:,:)=1.
+ !
+ ZTHS=PTHT/PTSTEP
+ ZRVS=PRVT/PTSTEP
+ ZRIS=PRIT/PTSTEP
+ ZRHT=0.
+ ZCIT=PCIT
+ ZT=PT
+ CALL RAIN_ICE_NUCLEATION(1+JPHEXT, SIZE(PT,1)-JPHEXT, 1+JPHEXT, SIZE(PT,2)-JPHEXT, 1+JPVEXT, SIZE(PT,3)-JPVEXT, 6, &
+ PTSTEP, PTHT, PPABST, PRHODJ, PRHODREF, PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
+ ZCIT, PEXNREF, ZTHS, ZRVS, ZRIS, ZT, ZRHT)
+ !
+! Z_TH_HIND=ZTHS*PTSTEP-PTHT
+! Z_RI_HIND=ZRIS*PTSTEP-PRIT
+! Z_CI_HIND=ZCIT-PCIT
+ PCIT=ZCIT
+ PRIT=ZRIS*PTSTEP
+ PTHT=ZTHS*PTSTEP
+ PRVT=ZRVS*PTSTEP
+! Z_TH_HINC=0.
+! Z_RC_HINC=0.
+! Z_CC_HINC=0.
+! !
+! if ( lbu_enable ) then
+! if ( lbudget_th ) call Budget_store_add( tbudgets(NBUDGET_TH), 'HIND', z_th_hind(:, :, :) * prhodj(:, :, :) / ptstep )
+! if ( lbudget_rv ) call Budget_store_add( tbudgets(NBUDGET_RV), 'HIND', -z_ri_hind(:, :, :) * prhodj(:, :, :) / ptstep )
+! if ( lbudget_ri ) call Budget_store_add( tbudgets(NBUDGET_RI), 'HIND', z_ri_hind(:, :, :) * prhodj(:, :, :) / ptstep )
+! if ( lbudget_sv ) then
+! call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HIND', z_ci_hind(:, :, :) * prhodj(:, :, :) / ptstep )
+! if (nmod_ifn > 0 ) &
+! call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl), 'HIND', &
+! z_ci_hind(:, :, :) * prhodj(:, :, :) / ptstep )
+! end if
+!
+! if ( lbudget_th ) call Budget_store_add( tbudgets(NBUDGET_TH), 'HINC', z_th_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+! if ( lbudget_rc ) call Budget_store_add( tbudgets(NBUDGET_RC), 'HINC', z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+! if ( lbudget_ri ) call Budget_store_add( tbudgets(NBUDGET_RI), 'HINC', -z_rc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+! if ( lbudget_sv ) then
+! call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'HINC', z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+! call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ni), 'HINC', -z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+! if (nmod_ifn > 0 ) &
+! call Budget_store_add( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_ifn_nucl), 'HINC', &
+! -z_cc_hinc(:, :, :) * prhodj(:, :, :) / ptstep )
+! end if
+! end if
+END IF
+!
+!-------------------------------------------------------------------------------
+!
+IF ( LCOLD .AND. LNUCL .AND. LHHONI .AND. NMOD_CCN >= 1 .AND. NMOM_I.GE.2) THEN
if ( lbu_enable ) then
if ( lbudget_th ) call Budget_store_init( tbudgets(NBUDGET_TH), 'HONH', PTHT(:, :, :) * prhodj(:, :, :) / ptstep )
if ( lbudget_rv ) call Budget_store_init( tbudgets(NBUDGET_RV), 'HONH', PRVT(:, :, :) * prhodj(:, :, :) / ptstep )
diff --git a/src/mesonh/micro/lima_rain_accr_snow.f90 b/src/mesonh/micro/lima_rain_accr_snow.f90
index 01c31afbe..7be5e1b4c 100644
--- a/src/mesonh/micro/lima_rain_accr_snow.f90
+++ b/src/mesonh/micro/lima_rain_accr_snow.f90
@@ -8,10 +8,10 @@
! #################################
!
INTERFACE
- SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRRT, PCRT, PRST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC )
+ SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRRT, PCRT, PRST, PCST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -19,9 +19,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Rain C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -31,6 +32,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_ACC
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_ACC
!
END SUBROUTINE LIMA_RAIN_ACCR_SNOW
@@ -38,10 +40,10 @@ END INTERFACE
END MODULE MODI_LIMA_RAIN_ACCR_SNOW
!
! ###################################################################################
- SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
- PRHODREF, PT, &
- PRRT, PCRT, PRST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC )
+ SUBROUTINE LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRRT, PCRT, PRST, PCST, PLBDR, PLBDS, PLVFACT, PLSFACT, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC )
! ###################################################################################
!
!! PURPOSE
@@ -60,6 +62,7 @@ END MODULE MODI_LIMA_RAIN_ACCR_SNOW
!! -------------
!! Original 15/03/2018
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
+! J. Wurtz 03/2022: new snow characteristics
!
!-------------------------------------------------------------------------------
!
@@ -68,12 +71,16 @@ END MODULE MODI_LIMA_RAIN_ACCR_SNOW
!
USE MODD_CST, ONLY : XTT
USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCEXVT
-USE MODD_PARAM_LIMA_COLD, ONLY : XBS, XCXS
-USE MODD_PARAM_LIMA_MIXED, ONLY : NACCLBDAS, XACCINTP1S, XACCINTP2S, &
- NACCLBDAR, XACCINTP1R, XACCINTP2R, &
- XKER_RACCSS, XKER_RACCS, XKER_SACCRG, &
- XFRACCSS, XLBRACCS1, XLBRACCS2, XLBRACCS3, &
- XFSACCRG, XLBSACCR1, XLBSACCR2, XLBSACCR3
+USE MODD_PARAM_LIMA_WARM, ONLY : XBR
+USE MODD_PARAM_LIMA_COLD, ONLY : XBS, XTRANS_MP_GAMMAS
+USE MODD_PARAM_LIMA_MIXED, ONLY : NACCLBDAS, XACCINTP1S, XACCINTP2S, &
+ NACCLBDAR, XACCINTP1R, XACCINTP2R, &
+ XKER_RACCSS, XKER_RACCS, XKER_SACCRG, &
+ XKER_N_RACCSS, XKER_N_RACCS, XKER_N_SACCRG, &
+ XFRACCSS, XLBRACCS1, XLBRACCS2, XLBRACCS3, &
+ XFNRACCSS, XLBNRACCS1, XLBNRACCS2, XLBNRACCS3, &
+ XFSACCRG, XLBSACCR1, XLBSACCR2, XLBSACCR3, &
+ XFNSACCRG, XLBNSACCR1, XLBNSACCR2, XLBNSACCR3
!
IMPLICIT NONE
!
@@ -85,9 +92,10 @@ LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
REAL, DIMENSION(:), INTENT(IN) :: PRHODREF !
REAL, DIMENSION(:), INTENT(IN) :: PT !
!
-REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Cloud water C. at t
-REAL, DIMENSION(:), INTENT(IN) :: PRST ! Cloud water C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Rain C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDR !
REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
REAL, DIMENSION(:), INTENT(IN) :: PLVFACT !
@@ -97,6 +105,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RS_ACC
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_ACC
REAL, DIMENSION(:), INTENT(OUT) :: P_RG_ACC
!
!* 0.2 Declarations of local variables :
@@ -105,6 +114,7 @@ LOGICAL, DIMENSION(SIZE(PRRT)) :: GACC
!
REAL, DIMENSION(SIZE(PRRT)) :: Z1, Z2, Z3, Z4
REAL, DIMENSION(SIZE(PRRT)) :: ZZW1, ZZW2, ZZW3, ZZW4, ZZW5
+REAL, DIMENSION(SIZE(PRRT)) :: ZZWC1, ZZWC2, ZZWC3, ZZWC4, ZZWC5
!
INTEGER, DIMENSION(SIZE(PRRT)) :: IVEC1,IVEC2 ! Vectors of indices
REAL, DIMENSION(SIZE(PRRT)) :: ZVEC1,ZVEC2,ZVEC3 ! Work vectors
@@ -141,7 +151,7 @@ WHERE( GACC )
!
! 1.3.1 select the (ZLBDAS,ZLBDAR) couplet
!
- ZVEC1(:) = MAX(MIN(PLBDS(:),5.E5),5.E1)
+ ZVEC1(:) = MAX(MIN(PLBDS(:),5.E5*XTRANS_MP_GAMMAS),5.E1*XTRANS_MP_GAMMAS)
ZVEC2(:) = PLBDR(:)
!
! 1.3.2 find the next lower indice for the ZLBDAS and for the ZLBDAR
@@ -160,7 +170,7 @@ WHERE( GACC )
!
! 1.3.3 perform the bilinear interpolation of the normalized
! RACCSS-kernel : for small rain drops transformed into snow
- !
+!
Z1(:) = GET_XKER_RACCSS(IVEC1(:)+1,IVEC2(:)+1)
Z2(:) = GET_XKER_RACCSS(IVEC1(:)+1,IVEC2(:) )
Z3(:) = GET_XKER_RACCSS(IVEC1(:) ,IVEC2(:)+1)
@@ -173,7 +183,22 @@ WHERE( GACC )
* (ZVEC1(:) - 1.0)
ZZW1(:) = ZVEC3(:)
!
-! 1.3.4b perform the bilinear interpolation of the normalized
+! 1.3.3b perform the bilinear interpolation of the normalized
+! RACCSS-kernel for concentration : for small rain drops transformed into snow
+!
+ Z1(:) = GET_XKER_N_RACCSS(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_RACCSS(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_RACCSS(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_RACCSS(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZWC1(:) = ZVEC3(:)
+!
+! 1.3.4 perform the bilinear interpolation of the normalized
! RACCS-kernel : total frozen rain drops
!
Z1(:) = GET_XKER_RACCS(IVEC1(:)+1,IVEC2(:)+1)
@@ -188,10 +213,26 @@ WHERE( GACC )
* (ZVEC1(:) - 1.0)
ZZW2(:) = ZVEC3(:)
!
+! 1.3.4b perform the bilinear interpolation of the normalized
+! RACCS-kernel for concentration : total frozen rain drops
+!
+ Z1(:) = GET_XKER_N_RACCS(IVEC1(:)+1,IVEC2(:)+1)
+ Z2(:) = GET_XKER_N_RACCS(IVEC1(:)+1,IVEC2(:) )
+ Z3(:) = GET_XKER_N_RACCS(IVEC1(:) ,IVEC2(:)+1)
+ Z4(:) = GET_XKER_N_RACCS(IVEC1(:) ,IVEC2(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC2(:) &
+ - Z2(:)*(ZVEC2(:) - 1.0) ) &
+ * ZVEC1(:) &
+ - ( Z3(:)* ZVEC2(:) &
+ - Z4(:)*(ZVEC2(:) - 1.0) ) &
+ * (ZVEC1(:) - 1.0)
+ ZZWC2(:) = ZVEC3(:)
+!
! Correction of ZZW1 to ensure that ZZW1 <= ZZW2
! ie coll. of small drops <= coll. of all drops
!
ZZW1(:) = MIN(ZZW1(:),ZZW2(:))
+ ZZWC1(:)= MIN(ZZWC1(:),ZZWC2(:))
!
! 1.3.5 perform the bilinear interpolation of the normalized
! SACCRG-kernel : snow transformed into graupel
@@ -208,46 +249,58 @@ WHERE( GACC )
* (ZVEC2(:) - 1.0)
ZZW3(:) = ZVEC3(:)
!
+! 1.3.5b perform the bilinear interpolation of the normalized
+! SACCRG-kernel for concentration : snow transformed into graupel
+!
+ Z1(:) = GET_XKER_N_SACCRG(IVEC2(:)+1,IVEC1(:)+1)
+ Z2(:) = GET_XKER_N_SACCRG(IVEC2(:)+1,IVEC1(:) )
+ Z3(:) = GET_XKER_N_SACCRG(IVEC2(:) ,IVEC1(:)+1)
+ Z4(:) = GET_XKER_N_SACCRG(IVEC2(:) ,IVEC1(:) )
+ ZVEC3(:) = ( Z1(:)* ZVEC1(:) &
+ - Z2(:)*(ZVEC1(:) - 1.0) ) &
+ * ZVEC2(:) &
+ - ( Z3(:)* ZVEC1(:) &
+ - Z4(:)*(ZVEC1(:) - 1.0) ) &
+ * (ZVEC2(:) - 1.0)
+ ZZWC3(:) = ZVEC3(:)
+!
! 1.3.4 raindrop accretion on the small sized aggregates
!
-! BVIE manque PCRT ???????????????????????????????????
-! ZZW4(:) = & !! coef of RRACCS and RRACCS
- ZZW4(:) = PCRT(:) & !! coef of RRACCS and RRACCS
- * XFRACCSS *( PLBDS(:)**XCXS )*( PRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBRACCS1/( PLBDS(:)**2 ) + &
- XLBRACCS2/( PLBDS(:) * PLBDR(:) ) + &
- XLBRACCS3/( PLBDR(:)**2 ) ) / PLBDR(:)**3
+ ZZW4(:) = PCRT(:) * & !! coef of RRACCS and RRACCS
+ XFRACCSS * PCST(:) * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBRACCS1/( PLBDS(:)**2 ) + &
+ XLBRACCS2/( PLBDS(:) * PLBDR(:) ) + &
+ XLBRACCS3/( PLBDR(:)**2 ) ) / PLBDR(:)**XBR
+!
+ ZZWC4(:)= PCRT(:) * & !! coef of RRACCS and RRACCS
+ XFNRACCSS * PCST(:) * PRHODREF(:)**(1-XCEXVT) &
+ *( XLBNRACCS1/( PLBDS(:)**2 ) + &
+ XLBNRACCS2/( PLBDS(:) * PLBDR(:) ) + &
+ XLBNRACCS3/( PLBDR(:)**2 ) )
-! ZRRS(:) = ZRRS(:) - ZZW1(:,4)
-! ZRSS(:) = ZRSS(:) + ZZW1(:,4)
-! ZTHS(:) = ZTHS(:) + ZZW1(:,4)*(ZLSFACT(:)-ZLVFACT(:)) ! f(L_f*(RRACCSS))
-!
-! ZCRS(:) = MAX( ZCRS(:)-ZZW1(:,4)*(ZCRT(:)/ZRRT(:)),0.0 ) ! Lambda_r**3
!
! 1.3.6 raindrop accretion-conversion of the large sized aggregates
! into graupeln
!
- ZZW5(:) = XFSACCRG*ZZW3(:) * & ! RSACCRG
- ( PLBDS(:)**(XCXS-XBS) )*( PRHODREF(:)**(-XCEXVT-1.) ) &
- *( XLBSACCR1/((PLBDR(:)**2) ) + &
- XLBSACCR2/( PLBDR(:) * PLBDS(:) ) + &
- XLBSACCR3/( (PLBDS(:)**2)) )
- !
-! P_RR_ACC(:) = - ZZW4(:) * ZZW1(:) ! RRACCSS
-! P_CR_ACC(:) = P_RR_ACC(:) * PCRT(:)/PRRT(:) ! Lambda_r**3
-! P_RS_ACC(:) = - P_RR_ACC(:)
- !
-! P_RR_ACC(:) = P_RR_ACC(:) - ( ZZW2(:)-P_RS_ACC(:) )
-! P_CR_ACC(:) = P_CR_ACC(:) - ( ZZW2(:)-P_RS_ACC(:) ) * PCRT(:)/PRRT(:) ! Lambda_r**3
-! P_RS_ACC(:) = P_RS_ACC(:) - ZZW5(:)
-! P_RG_ACC(:) = ( ZZW2(:)-P_RS_ACC(:) ) + ZZW5(:)
- !
+ ZZW5(:) = XFSACCRG * ZZW3(:) * PCRT(:) * & ! RSACCRG
+ PCST(:) * PLBDS(:)**(-XBS) * PRHODREF(:)**(1-XCEXVT) * &
+ ( XLBSACCR1/( PLBDR(:)**2 ) + &
+ XLBSACCR2/( PLBDR(:) * PLBDS(:) ) + &
+ XLBSACCR3/( PLBDS(:)**2 ) )
+!
+ ZZWC5(:)= XFNSACCRG * ZZW3(:) * PCRT(:) * & ! RSACCRG
+ PCST(:) * PRHODREF(:)**(1-XCEXVT) * &
+ ( XLBNSACCR1/( PLBDR(:)**2 ) + &
+ XLBNSACCR2/( PLBDR(:) * PLBDS(:) ) + &
+ XLBNSACCR3/( PLBDS(:)**2 ) )
+!
P_RR_ACC(:) = - ZZW4(:) * ZZW2(:)
- P_CR_ACC(:) = P_RR_ACC(:) * PCRT(:)/PRRT(:)
+ P_CR_ACC(:) = - ZZWC4(:) * ZZWC2(:)
P_RS_ACC(:) = ZZW4(:) * ZZW1(:) - ZZW5(:)
+ P_CS_ACC(:) = - ZZWC5(:)
P_RG_ACC(:) = ZZW4(:) * ( ZZW2(:) - ZZW1(:) ) + ZZW5(:)
P_TH_ACC(:) = - P_RR_ACC(:) * (PLSFACT(:)-PLVFACT(:))
- !
+!
END WHERE
!
!
@@ -267,6 +320,20 @@ CONTAINS
END FUNCTION GET_XKER_RACCSS
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_RACCSS(I1,I2) RESULT(RET)
+ INTEGER, DIMENSION(:) :: I1
+ INTEGER, DIMENSION(:) :: I2
+ REAL, DIMENSION(SIZE(I1)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(I1)
+ RET(I) = XKER_N_RACCSS(MAX(MIN(I1(I),SIZE(XKER_N_RACCSS,1)),1),MAX(MIN(I2(I),SIZE(XKER_N_RACCSS,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_RACCSS
+!
+!-------------------------------------------------------------------------------
!
FUNCTION GET_XKER_RACCS(I1,I2) RESULT(RET)
INTEGER, DIMENSION(:) :: I1
@@ -281,6 +348,20 @@ CONTAINS
END FUNCTION GET_XKER_RACCS
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_RACCS(I1,I2) RESULT(RET)
+ INTEGER, DIMENSION(:) :: I1
+ INTEGER, DIMENSION(:) :: I2
+ REAL, DIMENSION(SIZE(I1)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(I1)
+ RET(I) = XKER_N_RACCS(MAX(MIN(I1(I),SIZE(XKER_N_RACCS,1)),1),MAX(MIN(I2(I),SIZE(XKER_N_RACCS,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_RACCS
+!
+!-------------------------------------------------------------------------------
!
FUNCTION GET_XKER_SACCRG(I1,I2) RESULT(RET)
INTEGER, DIMENSION(:) :: I1
@@ -295,5 +376,19 @@ CONTAINS
END FUNCTION GET_XKER_SACCRG
!
!-------------------------------------------------------------------------------
+!
+ FUNCTION GET_XKER_N_SACCRG(I1,I2) RESULT(RET)
+ INTEGER, DIMENSION(:) :: I1
+ INTEGER, DIMENSION(:) :: I2
+ REAL, DIMENSION(SIZE(I1)) :: RET
+ !
+ INTEGER I
+ !
+ DO I=1,SIZE(I1)
+ RET(I) = XKER_N_SACCRG(MAX(MIN(I1(I),SIZE(XKER_N_SACCRG,1)),1),MAX(MIN(I2(I),SIZE(XKER_N_SACCRG,2)),1))
+ END DO
+ END FUNCTION GET_XKER_N_SACCRG
+!
+!-------------------------------------------------------------------------------
!
END SUBROUTINE LIMA_RAIN_ACCR_SNOW
diff --git a/src/mesonh/micro/lima_rain_evaporation.f90 b/src/mesonh/micro/lima_rain_evaporation.f90
index 2970e027d..c7211f2fc 100644
--- a/src/mesonh/micro/lima_rain_evaporation.f90
+++ b/src/mesonh/micro/lima_rain_evaporation.f90
@@ -10,8 +10,8 @@
INTERFACE
SUBROUTINE LIMA_RAIN_EVAPORATION (PTSTEP, LDCOMPUTE, &
PRHODREF, PT, PLV, PLVFACT, PEVSAT, PRVSAT, &
- PRVT, PRCT, PRRT, PLBDR, &
- P_TH_EVAP, P_RR_EVAP, &
+ PRVT, PRCT, PRRT, PCRT, PLBDR, &
+ P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
PEVAP3D )
!
REAL, INTENT(IN) :: PTSTEP ! Time step
@@ -27,10 +27,12 @@ REAL, DIMENSION(:), INTENT(IN) :: PRVSAT !
REAL, DIMENSION(:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain water m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Rain water conc at t
REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! Lambda(rain)
!
REAL, DIMENSION(:), INTENT(OUT) :: P_TH_EVAP
REAL, DIMENSION(:), INTENT(OUT) :: P_RR_EVAP
+REAL, DIMENSION(:), INTENT(OUT) :: P_CR_EVAP
!
REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D ! Rain evap profile
!
@@ -40,8 +42,8 @@ END MODULE MODI_LIMA_RAIN_EVAPORATION
! ###############################################################################
SUBROUTINE LIMA_RAIN_EVAPORATION (PTSTEP, LDCOMPUTE, &
PRHODREF, PT, PLV, PLVFACT, PEVSAT, PRVSAT, &
- PRVT, PRCT, PRRT, PLBDR, &
- P_TH_EVAP, P_RR_EVAP, &
+ PRVT, PRCT, PRRT, PCRT, PLBDR, &
+ P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
PEVAP3D )
! ###############################################################################
!
@@ -63,14 +65,15 @@ END MODULE MODI_LIMA_RAIN_EVAPORATION
!! -------------
!! Original 15/03/2018
!!
+! Delbeke/Vie 03/2022 : KHKO option
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_CST, ONLY : XRHOLW, XRV
-USE MODD_PARAM_LIMA, ONLY : XRTMIN
-USE MODD_PARAM_LIMA_WARM, ONLY : X0EVAR, XEX0EVAR, X1EVAR, XEX2EVAR, XEX1EVAR, XTHCO, XDIVA
+USE MODD_CST, ONLY : XRHOLW, XRV, XPI
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LKHKO
+USE MODD_PARAM_LIMA_WARM, ONLY : X0EVAR, XEX0EVAR, X1EVAR, XEX2EVAR, XEX1EVAR, XTHCO, XDIVA, XCEVAP
!
IMPLICIT NONE
!
@@ -89,10 +92,12 @@ REAL, DIMENSION(:), INTENT(IN) :: PRVSAT !
REAL, DIMENSION(:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:), INTENT(IN) :: PRRT ! Rain water m.r. at t
-REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! Lambda(rain)
+REAL, DIMENSION(:), INTENT(IN) :: PCRT ! Rain water conc at t
+REAL, DIMENSION(:), INTENT(IN) :: PLBDR ! Lambda(rain)
!
REAL, DIMENSION(:), INTENT(OUT) :: P_TH_EVAP
REAL, DIMENSION(:), INTENT(OUT) :: P_RR_EVAP
+REAL, DIMENSION(:), INTENT(OUT) :: P_CR_EVAP
!
REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D ! Rain evap profile
!
@@ -110,40 +115,56 @@ REAL, DIMENSION(SIZE(PRHODREF)) :: ZZW1, ZZW2
!
P_TH_EVAP(:) = 0.
P_RR_EVAP(:) = 0.
+P_CR_EVAP(:) = 0.
+!
+ZZW1(:) = 0.
+ZZW2(:) = 0.
!
GEVAP(:) = .FALSE.
GEVAP(:) = LDCOMPUTE(:) .AND. &
PRRT(:)>XRTMIN(3) .AND. &
- PRVT(:)<PRVSAT(:)
-!
-WHERE ( GEVAP )
-!
-!-------------------------------------------------------------------------------
+ PRVT(:)<PRVSAT(:) .AND. &
+ PCRT(:)>XCTMIN(3)
!
!
-!* 2. compute the evaporation of rain drops
-! ----------------------------------------
!
+IF (LKHKO) THEN
+
+ ZZW1(:) = MAX((1.0 - PRVT(:)/ZZW1(:)),0.0) ! Subsaturation
+
+ ZZW2(:) = 1. / ( XRHOLW*((((PLV(:)/PT(:))**2)/(XTHCO*XRV)) + & ! G
+ (XRV*PT(:))/(XDIVA*PEVSAT(:))))
+
+ ZZW2(:) = 3.0 * XCEVAP * ZZW2(:) * (4.*XPI*XRHOLW/(3.))**(2./3.) * &
+ (PRRT(:))**(1./3.) * (PCRT(:))**(2./3.) * ZZW1(:)
+ P_RR_EVAP(:) = - ZZW2(:)
+
+ ZZW2(:) = ZZW2(:) * PCRT(:)/PRRT(:)
+ P_CR_EVAP = - ZZW2(:)
+
+ELSE
+
+ WHERE ( GEVAP )
!
- ZZW1(:) = MAX((1.0 - PRVT(:)/PRVSAT(:)),0.0) ! Subsaturation
+ ZZW1(:) = MAX((1.0 - PRVT(:)/PRVSAT(:)),0.0) ! Subsaturation
!
! Compute the function G(T)
!
- ZZW2(:) = 1. / ( XRHOLW*((((PLV(:)/PT(:))**2)/(XTHCO*XRV)) + & ! G
- (XRV*PT(:))/(XDIVA*PEVSAT(:))))
+ ZZW2(:) = 1. / ( XRHOLW*((((PLV(:)/PT(:))**2)/(XTHCO*XRV)) + (XRV*PT(:))/(XDIVA*PEVSAT(:)))) !G
!
! Compute the evaporation tendency
!
- ZZW2(:) = ZZW2(:) * ZZW1(:) * PRRT(:) * &
- (X0EVAR * PLBDR(:)**XEX0EVAR + X1EVAR * PRHODREF(:)**XEX2EVAR * PLBDR(:)**XEX1EVAR)
- ZZW2(:) = MAX(ZZW2(:),0.0)
+ ZZW2(:) = ZZW2(:) * ZZW1(:) * PRRT(:) * &
+ (X0EVAR * PLBDR(:)**XEX0EVAR + X1EVAR * PRHODREF(:)**XEX2EVAR * PLBDR(:)**XEX1EVAR)
+ ZZW2(:) = MAX(ZZW2(:),0.0)
!
- P_RR_EVAP(:) = - ZZW2(:)
+ P_RR_EVAP(:) = - ZZW2(:)
! P_TH_EVAP(:) = P_RR_EVAP(:) * PLVFACT(:)
! PEVAP3D(:) = - P_RR_EVAP(:)
!
-END WHERE
+ END WHERE
!
+END IF
!-----------------------------------------------------------------------------
!
END SUBROUTINE LIMA_RAIN_EVAPORATION
diff --git a/src/mesonh/micro/lima_raindrop_shattering_freezing.f90 b/src/mesonh/micro/lima_raindrop_shattering_freezing.f90
new file mode 100644
index 000000000..dc7c14066
--- /dev/null
+++ b/src/mesonh/micro/lima_raindrop_shattering_freezing.f90
@@ -0,0 +1,159 @@
+!MNH_LIC Copyright 2018-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-------------------------------------------------------------------------------
+! #############################################
+ MODULE MODI_LIMA_RAINDROP_SHATTERING_FREEZING
+! #############################################
+!
+INTERFACE
+ SUBROUTINE LIMA_RAINDROP_SHATTERING_FREEZING (LDCOMPUTE, &
+ PRHODREF, &
+ PRRT, PCRT, PRIT, PCIT, PRGT, &
+ PLBDR, &
+ P_RI_RDSF, P_CI_RDSF )
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRRT
+REAL, DIMENSION(:), INTENT(IN) :: PCRT
+REAL, DIMENSION(:), INTENT(IN) :: PRIT
+REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PRGT
+REAL, DIMENSION(:), INTENT(IN) :: PLBDR
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_RI_RDSF
+REAL, DIMENSION(:), INTENT(OUT) :: P_CI_RDSF
+!
+END SUBROUTINE LIMA_RAINDROP_SHATTERING_FREEZING
+END INTERFACE
+END MODULE MODI_LIMA_RAINDROP_SHATTERING_FREEZING
+!
+! #######################################################################
+ SUBROUTINE LIMA_RAINDROP_SHATTERING_FREEZING (LDCOMPUTE, &
+ PRHODREF, &
+ PRRT, PCRT, PRIT, PCIT, PRGT, &
+ PLBDR, &
+ P_RI_RDSF, P_CI_RDSF )
+! #######################################################################
+!
+!! PURPOSE
+!! -------
+!! Compute the raindrop shattering when freezing (secondary ice production process)
+!!
+!! AUTHOR
+!! ------
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 04/2022 duplicate from original for LIMA_SPLIT
+!
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LRDSF, XCEXVT
+USE MODD_PARAM_LIMA_COLD, ONLY : XMNU0
+USE MODD_PARAM_LIMA_WARM, ONLY : XDR
+USE MODD_PARAM_LIMA_MIXED, ONLY : NGAMINC, XGAMINC_RDSF_R, &
+ XFACTOR_RDSF_NI, XMOMGR_RDSF, XRDSFINTP1_R, XRDSFINTP_R
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRRT
+REAL, DIMENSION(:), INTENT(IN) :: PCRT
+REAL, DIMENSION(:), INTENT(IN) :: PRIT
+REAL, DIMENSION(:), INTENT(IN) :: PCIT
+REAL, DIMENSION(:), INTENT(IN) :: PRGT
+REAL, DIMENSION(:), INTENT(IN) :: PLBDR
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_RI_RDSF
+REAL, DIMENSION(:), INTENT(OUT) :: P_CI_RDSF
+!
+!
+!* 0.2 Declarations of local variables :
+!
+LOGICAL, DIMENSION(SIZE(PRRT)) :: GRDSF ! Test where to compute collision process
+INTEGER :: IRDSF
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_R ! Work vectors for rain
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1_R1 ! Work vectors for rain
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC2_R ! Work vectors for rain
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC2_R ! Rain indice vector
+REAL, DIMENSION(SIZE(PRRT)) :: ZINTG_RAIN ! incomplete gamma function for rain
+REAL, DIMENSION(SIZE(PRRT)) :: ZNI_RDSF,ZRI_RDSF ! RDSF rates
+!
+!-------------------------------------------------------------------------------
+P_RI_RDSF(:)=0.
+P_CI_RDSF(:)=0.
+!
+GRDSF(:) = LRDSF .AND. LDCOMPUTE .AND. (PRIT(:)>XRTMIN(4)) .AND. (PRRT(:)>XRTMIN(3)) &
+ .AND. (PCIT(:)>XCTMIN(4)) .AND. (PCRT(:)>XCTMIN(3)) &
+ .AND. (PRGT(:)>XRTMIN(6))
+
+IRDSF = COUNT( GRDSF(:) )
+!
+IF (IRDSF > 0) THEN
+!
+ ALLOCATE(ZVEC1_R(IRDSF))
+ ALLOCATE(ZVEC1_R1(IRDSF))
+ ALLOCATE(ZVEC2_R(IRDSF))
+ ALLOCATE(IVEC2_R(IRDSF))
+!
+!* 2.2.1 select the ZLBDAR
+!
+ ZVEC1_R(:) = PACK( PLBDR(:),MASK=GRDSF(:) )
+!
+!* 2.2.2 find the next lower indice for the ZLBDAR in the
+! geometrical set of Lbda_r used to tabulate some moments of the
+! incomplete gamma function, for the lower boundary (0.1 mm)
+!
+ ZVEC2_R(1:IRDSF) = MAX( 1.00001, MIN( FLOAT(NGAMINC)-0.00001,XRDSFINTP_R &
+ * LOG( ZVEC1_R(1:IRDSF) ) + XRDSFINTP1_R ) )
+ IVEC2_R(1:IRDSF) = INT( ZVEC2_R(1:IRDSF) )
+ ZVEC2_R(1:IRDSF) = ZVEC2_R(1:IRDSF) - FLOAT( IVEC2_R(1:IRDSF) )
+!
+!* 2.2.3 perform the linear interpolation of the
+! normalized "2+XDR"-moment of the incomplete gamma function
+!
+ ZVEC1_R1(1:IRDSF) = XGAMINC_RDSF_R(IVEC2_R(1:IRDSF)+1) * ZVEC2_R(1:IRDSF) &
+ - XGAMINC_RDSF_R(IVEC2_R(1:IRDSF)) * (ZVEC2_R(1:IRDSF) - 1.0)
+!
+! From 0.1 mm to infinity we need
+ ZVEC1_R1(1:IRDSF) = XMOMGR_RDSF * (1.0 - ZVEC1_R1(1:IRDSF))
+!
+ ZINTG_RAIN(:) = UNPACK ( VECTOR=ZVEC1_R1(:),MASK=GRDSF,FIELD=0.0 )
+!
+!* 2.2.4 To compute final "RDSF" contributions
+!
+ ZNI_RDSF(:) = (XFACTOR_RDSF_NI / (PRHODREF(:)**(XCEXVT-1.0))) * ( &
+ PCIT(:) * PCRT(:) * ZINTG_RAIN(:) * PLBDR(:)**(-(XDR+6.0)) )
+!
+ P_CI_RDSF(:) = MAX(ZNI_RDSF(:),0.)
+!
+! The value of rg removed by RDSF is determined by the mean mass of pristine ice
+ ZRI_RDSF(:) = MAX( ZNI_RDSF(:)*XMNU0,XRTMIN(5) )
+!
+ P_RI_RDSF(:) = ZRI_RDSF(:)
+!
+ DEALLOCATE(ZVEC1_R)
+ DEALLOCATE(ZVEC1_R1)
+ DEALLOCATE(ZVEC2_R)
+ DEALLOCATE(IVEC2_R)
+ !
+ENDIF
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_RAINDROP_SHATTERING_FREEZING
diff --git a/src/mesonh/micro/lima_read_xker_raccs.f90 b/src/mesonh/micro/lima_read_xker_raccs.f90
index d29ce6cb2..5a75adf25 100644
--- a/src/mesonh/micro/lima_read_xker_raccs.f90
+++ b/src/mesonh/micro/lima_read_xker_raccs.f90
@@ -13,10 +13,10 @@
! ###########################
!
INTERFACE
- SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
+ SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
!
INTEGER, INTENT(OUT) :: KND,KACCLBDAS,KACCLBDAR
REAL, INTENT(OUT) :: PALPHAS
@@ -28,6 +28,7 @@ REAL, INTENT(OUT) :: PBS
REAL, INTENT(OUT) :: PBR
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PCR
REAL, INTENT(OUT) :: PDR
REAL, INTENT(OUT) :: PACCLBDAS_MAX
@@ -45,10 +46,10 @@ END INTERFACE
!
END MODULE MODI_LIMA_READ_XKER_RACCS
! ##########################################################################
- SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
- PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PCR,PDR, &
- PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
- PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
+ SUBROUTINE LIMA_READ_XKER_RACCS (KACCLBDAS,KACCLBDAR,KND, &
+ PALPHAS,PNUS,PALPHAR,PNUR,PESR,PBS,PBR,PCS,PDS,PFVELOS,PCR,PDR, &
+ PACCLBDAS_MAX,PACCLBDAR_MAX,PACCLBDAS_MIN,PACCLBDAR_MIN, &
+ PFDINFTY,PKER_RACCSS,PKER_RACCS,PKER_SACCRG )
! ##########################################################################
!
!!**** * * - initialize the kernels for the rain-snow accretion process
@@ -103,6 +104,7 @@ REAL, INTENT(OUT) :: PBS
REAL, INTENT(OUT) :: PBR
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PCR
REAL, INTENT(OUT) :: PDR
REAL, INTENT(OUT) :: PACCLBDAS_MAX
@@ -130,4822 +132,4822 @@ PBS= 0.190000E+01
PBR= 0.300000E+01
PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PCR= 0.842000E+03
PDR= 0.800000E+00
-PACCLBDAS_MAX= 0.500000E+06
+PACCLBDAS_MAX= 0.100000E+06
PACCLBDAR_MAX= 0.100000E+08
-PACCLBDAS_MIN= 0.500000E+02
+PACCLBDAS_MIN= 0.500000E+03
PACCLBDAR_MIN= 0.100000E+04
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_RACCSS) ) THEN
- PKER_RACCSS( 1, 1) = 0.814109E+01
- PKER_RACCSS( 1, 2) = 0.692586E+01
- PKER_RACCSS( 1, 3) = 0.565192E+01
- PKER_RACCSS( 1, 4) = 0.444434E+01
- PKER_RACCSS( 1, 5) = 0.337172E+01
- PKER_RACCSS( 1, 6) = 0.246569E+01
- PKER_RACCSS( 1, 7) = 0.173757E+01
- PKER_RACCSS( 1, 8) = 0.119489E+01
- PKER_RACCSS( 1, 9) = 0.847828E+00
- PKER_RACCSS( 1, 10) = 0.697256E+00
- PKER_RACCSS( 1, 11) = 0.717816E+00
- PKER_RACCSS( 1, 12) = 0.854882E+00
- PKER_RACCSS( 1, 13) = 0.104470E+01
- PKER_RACCSS( 1, 14) = 0.123807E+01
- PKER_RACCSS( 1, 15) = 0.141081E+01
- PKER_RACCSS( 1, 16) = 0.155700E+01
- PKER_RACCSS( 1, 17) = 0.167856E+01
- PKER_RACCSS( 1, 18) = 0.177921E+01
- PKER_RACCSS( 1, 19) = 0.186250E+01
- PKER_RACCSS( 1, 20) = 0.193142E+01
- PKER_RACCSS( 1, 21) = 0.198845E+01
- PKER_RACCSS( 1, 22) = 0.203565E+01
- PKER_RACCSS( 1, 23) = 0.207472E+01
- PKER_RACCSS( 1, 24) = 0.210705E+01
- PKER_RACCSS( 1, 25) = 0.213381E+01
- PKER_RACCSS( 1, 26) = 0.215596E+01
- PKER_RACCSS( 1, 27) = 0.217429E+01
- PKER_RACCSS( 1, 28) = 0.218947E+01
- PKER_RACCSS( 1, 29) = 0.220203E+01
- PKER_RACCSS( 1, 30) = 0.221243E+01
- PKER_RACCSS( 1, 31) = 0.222103E+01
- PKER_RACCSS( 1, 32) = 0.222816E+01
- PKER_RACCSS( 1, 33) = 0.223406E+01
- PKER_RACCSS( 1, 34) = 0.223894E+01
- PKER_RACCSS( 1, 35) = 0.224298E+01
- PKER_RACCSS( 1, 36) = 0.224632E+01
- PKER_RACCSS( 1, 37) = 0.224909E+01
- PKER_RACCSS( 1, 38) = 0.225138E+01
- PKER_RACCSS( 1, 39) = 0.225328E+01
- PKER_RACCSS( 1, 40) = 0.225485E+01
- PKER_RACCSS( 2, 1) = 0.731793E+01
- PKER_RACCSS( 2, 2) = 0.650784E+01
- PKER_RACCSS( 2, 3) = 0.549484E+01
- PKER_RACCSS( 2, 4) = 0.443777E+01
- PKER_RACCSS( 2, 5) = 0.344045E+01
- PKER_RACCSS( 2, 6) = 0.256167E+01
- PKER_RACCSS( 2, 7) = 0.183252E+01
- PKER_RACCSS( 2, 8) = 0.126978E+01
- PKER_RACCSS( 2, 9) = 0.884187E+00
- PKER_RACCSS( 2, 10) = 0.682228E+00
- PKER_RACCSS( 2, 11) = 0.651607E+00
- PKER_RACCSS( 2, 12) = 0.749498E+00
- PKER_RACCSS( 2, 13) = 0.917050E+00
- PKER_RACCSS( 2, 14) = 0.110111E+01
- PKER_RACCSS( 2, 15) = 0.127111E+01
- PKER_RACCSS( 2, 16) = 0.141681E+01
- PKER_RACCSS( 2, 17) = 0.153841E+01
- PKER_RACCSS( 2, 18) = 0.163915E+01
- PKER_RACCSS( 2, 19) = 0.172252E+01
- PKER_RACCSS( 2, 20) = 0.179149E+01
- PKER_RACCSS( 2, 21) = 0.184857E+01
- PKER_RACCSS( 2, 22) = 0.189580E+01
- PKER_RACCSS( 2, 23) = 0.193488E+01
- PKER_RACCSS( 2, 24) = 0.196723E+01
- PKER_RACCSS( 2, 25) = 0.199401E+01
- PKER_RACCSS( 2, 26) = 0.201617E+01
- PKER_RACCSS( 2, 27) = 0.203451E+01
- PKER_RACCSS( 2, 28) = 0.204969E+01
- PKER_RACCSS( 2, 29) = 0.206226E+01
- PKER_RACCSS( 2, 30) = 0.207266E+01
- PKER_RACCSS( 2, 31) = 0.208127E+01
- PKER_RACCSS( 2, 32) = 0.208839E+01
- PKER_RACCSS( 2, 33) = 0.209429E+01
- PKER_RACCSS( 2, 34) = 0.209918E+01
- PKER_RACCSS( 2, 35) = 0.210322E+01
- PKER_RACCSS( 2, 36) = 0.210656E+01
- PKER_RACCSS( 2, 37) = 0.210933E+01
- PKER_RACCSS( 2, 38) = 0.211163E+01
- PKER_RACCSS( 2, 39) = 0.211352E+01
- PKER_RACCSS( 2, 40) = 0.211509E+01
- PKER_RACCSS( 3, 1) = 0.620923E+01
- PKER_RACCSS( 3, 2) = 0.585074E+01
- PKER_RACCSS( 3, 3) = 0.516881E+01
- PKER_RACCSS( 3, 4) = 0.432464E+01
- PKER_RACCSS( 3, 5) = 0.344908E+01
- PKER_RACCSS( 3, 6) = 0.262906E+01
- PKER_RACCSS( 3, 7) = 0.191653E+01
- PKER_RACCSS( 3, 8) = 0.134324E+01
- PKER_RACCSS( 3, 9) = 0.929224E+00
- PKER_RACCSS( 3, 10) = 0.684394E+00
- PKER_RACCSS( 3, 11) = 0.605038E+00
- PKER_RACCSS( 3, 12) = 0.661387E+00
- PKER_RACCSS( 3, 13) = 0.802622E+00
- PKER_RACCSS( 3, 14) = 0.974479E+00
- PKER_RACCSS( 3, 15) = 0.114040E+01
- PKER_RACCSS( 3, 16) = 0.128524E+01
- PKER_RACCSS( 3, 17) = 0.140682E+01
- PKER_RACCSS( 3, 18) = 0.150766E+01
- PKER_RACCSS( 3, 19) = 0.159112E+01
- PKER_RACCSS( 3, 20) = 0.166016E+01
- PKER_RACCSS( 3, 21) = 0.171729E+01
- PKER_RACCSS( 3, 22) = 0.176455E+01
- PKER_RACCSS( 3, 23) = 0.180367E+01
- PKER_RACCSS( 3, 24) = 0.183604E+01
- PKER_RACCSS( 3, 25) = 0.186283E+01
- PKER_RACCSS( 3, 26) = 0.188500E+01
- PKER_RACCSS( 3, 27) = 0.190335E+01
- PKER_RACCSS( 3, 28) = 0.191854E+01
- PKER_RACCSS( 3, 29) = 0.193111E+01
- PKER_RACCSS( 3, 30) = 0.194152E+01
- PKER_RACCSS( 3, 31) = 0.195013E+01
- PKER_RACCSS( 3, 32) = 0.195726E+01
- PKER_RACCSS( 3, 33) = 0.196316E+01
- PKER_RACCSS( 3, 34) = 0.196805E+01
- PKER_RACCSS( 3, 35) = 0.197209E+01
- PKER_RACCSS( 3, 36) = 0.197544E+01
- PKER_RACCSS( 3, 37) = 0.197821E+01
- PKER_RACCSS( 3, 38) = 0.198050E+01
- PKER_RACCSS( 3, 39) = 0.198240E+01
- PKER_RACCSS( 3, 40) = 0.198397E+01
- PKER_RACCSS( 4, 1) = 0.489412E+01
- PKER_RACCSS( 4, 2) = 0.496003E+01
- PKER_RACCSS( 4, 3) = 0.464691E+01
- PKER_RACCSS( 4, 4) = 0.407266E+01
- PKER_RACCSS( 4, 5) = 0.337005E+01
- PKER_RACCSS( 4, 6) = 0.264746E+01
- PKER_RACCSS( 4, 7) = 0.197888E+01
- PKER_RACCSS( 4, 8) = 0.141145E+01
- PKER_RACCSS( 4, 9) = 0.977676E+00
- PKER_RACCSS( 4, 10) = 0.697624E+00
- PKER_RACCSS( 4, 11) = 0.574725E+00
- PKER_RACCSS( 4, 12) = 0.590243E+00
- PKER_RACCSS( 4, 13) = 0.701865E+00
- PKER_RACCSS( 4, 14) = 0.858232E+00
- PKER_RACCSS( 4, 15) = 0.101841E+01
- PKER_RACCSS( 4, 16) = 0.116181E+01
- PKER_RACCSS( 4, 17) = 0.128324E+01
- PKER_RACCSS( 4, 18) = 0.138420E+01
- PKER_RACCSS( 4, 19) = 0.146776E+01
- PKER_RACCSS( 4, 20) = 0.153689E+01
- PKER_RACCSS( 4, 21) = 0.159407E+01
- PKER_RACCSS( 4, 22) = 0.164139E+01
- PKER_RACCSS( 4, 23) = 0.168054E+01
- PKER_RACCSS( 4, 24) = 0.171293E+01
- PKER_RACCSS( 4, 25) = 0.173974E+01
- PKER_RACCSS( 4, 26) = 0.176193E+01
- PKER_RACCSS( 4, 27) = 0.178029E+01
- PKER_RACCSS( 4, 28) = 0.179549E+01
- PKER_RACCSS( 4, 29) = 0.180807E+01
- PKER_RACCSS( 4, 30) = 0.181848E+01
- PKER_RACCSS( 4, 31) = 0.182709E+01
- PKER_RACCSS( 4, 32) = 0.183423E+01
- PKER_RACCSS( 4, 33) = 0.184013E+01
- PKER_RACCSS( 4, 34) = 0.184502E+01
- PKER_RACCSS( 4, 35) = 0.184906E+01
- PKER_RACCSS( 4, 36) = 0.185241E+01
- PKER_RACCSS( 4, 37) = 0.185518E+01
- PKER_RACCSS( 4, 38) = 0.185747E+01
- PKER_RACCSS( 4, 39) = 0.185937E+01
- PKER_RACCSS( 4, 40) = 0.186094E+01
- PKER_RACCSS( 5, 1) = 0.352472E+01
- PKER_RACCSS( 5, 2) = 0.390184E+01
- PKER_RACCSS( 5, 3) = 0.393452E+01
- PKER_RACCSS( 5, 4) = 0.366051E+01
- PKER_RACCSS( 5, 5) = 0.317719E+01
- PKER_RACCSS( 5, 6) = 0.259404E+01
- PKER_RACCSS( 5, 7) = 0.200191E+01
- PKER_RACCSS( 5, 8) = 0.146469E+01
- PKER_RACCSS( 5, 9) = 0.102673E+01
- PKER_RACCSS( 5, 10) = 0.718755E+00
- PKER_RACCSS( 5, 11) = 0.556693E+00
- PKER_RACCSS( 5, 12) = 0.533409E+00
- PKER_RACCSS( 5, 13) = 0.614372E+00
- PKER_RACCSS( 5, 14) = 0.752546E+00
- PKER_RACCSS( 5, 15) = 0.904981E+00
- PKER_RACCSS( 5, 16) = 0.104611E+01
- PKER_RACCSS( 5, 17) = 0.116720E+01
- PKER_RACCSS( 5, 18) = 0.126824E+01
- PKER_RACCSS( 5, 19) = 0.135194E+01
- PKER_RACCSS( 5, 20) = 0.142116E+01
- PKER_RACCSS( 5, 21) = 0.147842E+01
- PKER_RACCSS( 5, 22) = 0.152579E+01
- PKER_RACCSS( 5, 23) = 0.156498E+01
- PKER_RACCSS( 5, 24) = 0.159741E+01
- PKER_RACCSS( 5, 25) = 0.162424E+01
- PKER_RACCSS( 5, 26) = 0.164644E+01
- PKER_RACCSS( 5, 27) = 0.166482E+01
- PKER_RACCSS( 5, 28) = 0.168003E+01
- PKER_RACCSS( 5, 29) = 0.169261E+01
- PKER_RACCSS( 5, 30) = 0.170303E+01
- PKER_RACCSS( 5, 31) = 0.171165E+01
- PKER_RACCSS( 5, 32) = 0.171879E+01
- PKER_RACCSS( 5, 33) = 0.172469E+01
- PKER_RACCSS( 5, 34) = 0.172958E+01
- PKER_RACCSS( 5, 35) = 0.173363E+01
- PKER_RACCSS( 5, 36) = 0.173698E+01
- PKER_RACCSS( 5, 37) = 0.173975E+01
- PKER_RACCSS( 5, 38) = 0.174205E+01
- PKER_RACCSS( 5, 39) = 0.174395E+01
- PKER_RACCSS( 5, 40) = 0.174552E+01
- PKER_RACCSS( 6, 1) = 0.228210E+01
- PKER_RACCSS( 6, 2) = 0.280066E+01
- PKER_RACCSS( 6, 3) = 0.308657E+01
- PKER_RACCSS( 6, 4) = 0.309355E+01
- PKER_RACCSS( 6, 5) = 0.285370E+01
- PKER_RACCSS( 6, 6) = 0.244776E+01
- PKER_RACCSS( 6, 7) = 0.196661E+01
- PKER_RACCSS( 6, 8) = 0.148740E+01
- PKER_RACCSS( 6, 9) = 0.106708E+01
- PKER_RACCSS( 6, 10) = 0.746205E+00
- PKER_RACCSS( 6, 11) = 0.551114E+00
- PKER_RACCSS( 6, 12) = 0.488949E+00
- PKER_RACCSS( 6, 13) = 0.538117E+00
- PKER_RACCSS( 6, 14) = 0.656577E+00
- PKER_RACCSS( 6, 15) = 0.799740E+00
- PKER_RACCSS( 6, 16) = 0.937749E+00
- PKER_RACCSS( 6, 17) = 0.105821E+01
- PKER_RACCSS( 6, 18) = 0.115932E+01
- PKER_RACCSS( 6, 19) = 0.124316E+01
- PKER_RACCSS( 6, 20) = 0.131250E+01
- PKER_RACCSS( 6, 21) = 0.136985E+01
- PKER_RACCSS( 6, 22) = 0.141729E+01
- PKER_RACCSS( 6, 23) = 0.145653E+01
- PKER_RACCSS( 6, 24) = 0.148899E+01
- PKER_RACCSS( 6, 25) = 0.151585E+01
- PKER_RACCSS( 6, 26) = 0.153808E+01
- PKER_RACCSS( 6, 27) = 0.155647E+01
- PKER_RACCSS( 6, 28) = 0.157169E+01
- PKER_RACCSS( 6, 29) = 0.158429E+01
- PKER_RACCSS( 6, 30) = 0.159471E+01
- PKER_RACCSS( 6, 31) = 0.160334E+01
- PKER_RACCSS( 6, 32) = 0.161048E+01
- PKER_RACCSS( 6, 33) = 0.161639E+01
- PKER_RACCSS( 6, 34) = 0.162128E+01
- PKER_RACCSS( 6, 35) = 0.162533E+01
- PKER_RACCSS( 6, 36) = 0.162868E+01
- PKER_RACCSS( 6, 37) = 0.163145E+01
- PKER_RACCSS( 6, 38) = 0.163375E+01
- PKER_RACCSS( 6, 39) = 0.163565E+01
- PKER_RACCSS( 6, 40) = 0.163722E+01
- PKER_RACCSS( 7, 1) = 0.148782E+01
- PKER_RACCSS( 7, 2) = 0.200771E+01
- PKER_RACCSS( 7, 3) = 0.220555E+01
- PKER_RACCSS( 7, 4) = 0.241780E+01
- PKER_RACCSS( 7, 5) = 0.240508E+01
- PKER_RACCSS( 7, 6) = 0.219547E+01
- PKER_RACCSS( 7, 7) = 0.185621E+01
- PKER_RACCSS( 7, 8) = 0.146365E+01
- PKER_RACCSS( 7, 9) = 0.108448E+01
- PKER_RACCSS( 7, 10) = 0.770204E+00
- PKER_RACCSS( 7, 11) = 0.556115E+00
- PKER_RACCSS( 7, 12) = 0.459612E+00
- PKER_RACCSS( 7, 13) = 0.474417E+00
- PKER_RACCSS( 7, 14) = 0.568754E+00
- PKER_RACCSS( 7, 15) = 0.700250E+00
- PKER_RACCSS( 7, 16) = 0.834630E+00
- PKER_RACCSS( 7, 17) = 0.954778E+00
- PKER_RACCSS( 7, 18) = 0.105642E+01
- PKER_RACCSS( 7, 19) = 0.114078E+01
- PKER_RACCSS( 7, 20) = 0.121042E+01
- PKER_RACCSS( 7, 21) = 0.126792E+01
- PKER_RACCSS( 7, 22) = 0.131544E+01
- PKER_RACCSS( 7, 23) = 0.135474E+01
- PKER_RACCSS( 7, 24) = 0.138724E+01
- PKER_RACCSS( 7, 25) = 0.141414E+01
- PKER_RACCSS( 7, 26) = 0.143639E+01
- PKER_RACCSS( 7, 27) = 0.145480E+01
- PKER_RACCSS( 7, 28) = 0.147003E+01
- PKER_RACCSS( 7, 29) = 0.148264E+01
- PKER_RACCSS( 7, 30) = 0.149307E+01
- PKER_RACCSS( 7, 31) = 0.150171E+01
- PKER_RACCSS( 7, 32) = 0.150885E+01
- PKER_RACCSS( 7, 33) = 0.151477E+01
- PKER_RACCSS( 7, 34) = 0.151966E+01
- PKER_RACCSS( 7, 35) = 0.152372E+01
- PKER_RACCSS( 7, 36) = 0.152707E+01
- PKER_RACCSS( 7, 37) = 0.152984E+01
- PKER_RACCSS( 7, 38) = 0.153214E+01
- PKER_RACCSS( 7, 39) = 0.153404E+01
- PKER_RACCSS( 7, 40) = 0.153562E+01
- PKER_RACCSS( 8, 1) = 0.262435E+01
- PKER_RACCSS( 8, 2) = 0.238666E+01
- PKER_RACCSS( 8, 3) = 0.233673E+01
- PKER_RACCSS( 8, 4) = 0.234057E+01
- PKER_RACCSS( 8, 5) = 0.228742E+01
- PKER_RACCSS( 8, 6) = 0.212164E+01
- PKER_RACCSS( 8, 7) = 0.184665E+01
- PKER_RACCSS( 8, 8) = 0.150391E+01
- PKER_RACCSS( 8, 9) = 0.114827E+01
- PKER_RACCSS( 8, 10) = 0.831674E+00
- PKER_RACCSS( 8, 11) = 0.595148E+00
- PKER_RACCSS( 8, 12) = 0.463804E+00
- PKER_RACCSS( 8, 13) = 0.440716E+00
- PKER_RACCSS( 8, 14) = 0.503716E+00
- PKER_RACCSS( 8, 15) = 0.616434E+00
- PKER_RACCSS( 8, 16) = 0.742493E+00
- PKER_RACCSS( 8, 17) = 0.859895E+00
- PKER_RACCSS( 8, 18) = 0.960763E+00
- PKER_RACCSS( 8, 19) = 0.104493E+01
- PKER_RACCSS( 8, 20) = 0.111460E+01
- PKER_RACCSS( 8, 21) = 0.117219E+01
- PKER_RACCSS( 8, 22) = 0.121981E+01
- PKER_RACCSS( 8, 23) = 0.125918E+01
- PKER_RACCSS( 8, 24) = 0.129174E+01
- PKER_RACCSS( 8, 25) = 0.131868E+01
- PKER_RACCSS( 8, 26) = 0.134096E+01
- PKER_RACCSS( 8, 27) = 0.135939E+01
- PKER_RACCSS( 8, 28) = 0.137465E+01
- PKER_RACCSS( 8, 29) = 0.138727E+01
- PKER_RACCSS( 8, 30) = 0.139771E+01
- PKER_RACCSS( 8, 31) = 0.140635E+01
- PKER_RACCSS( 8, 32) = 0.141350E+01
- PKER_RACCSS( 8, 33) = 0.141942E+01
- PKER_RACCSS( 8, 34) = 0.142432E+01
- PKER_RACCSS( 8, 35) = 0.142838E+01
- PKER_RACCSS( 8, 36) = 0.143173E+01
- PKER_RACCSS( 8, 37) = 0.143451E+01
- PKER_RACCSS( 8, 38) = 0.143681E+01
- PKER_RACCSS( 8, 39) = 0.143871E+01
- PKER_RACCSS( 8, 40) = 0.144029E+01
- PKER_RACCSS( 9, 1) = 0.258564E+01
- PKER_RACCSS( 9, 2) = 0.212607E+01
- PKER_RACCSS( 9, 3) = 0.191008E+01
- PKER_RACCSS( 9, 4) = 0.184553E+01
- PKER_RACCSS( 9, 5) = 0.182496E+01
- PKER_RACCSS( 9, 6) = 0.176067E+01
- PKER_RACCSS( 9, 7) = 0.160989E+01
- PKER_RACCSS( 9, 8) = 0.137709E+01
- PKER_RACCSS( 9, 9) = 0.109833E+01
- PKER_RACCSS( 9, 10) = 0.821651E+00
- PKER_RACCSS( 9, 11) = 0.593004E+00
- PKER_RACCSS( 9, 12) = 0.447502E+00
- PKER_RACCSS( 9, 13) = 0.400378E+00
- PKER_RACCSS( 9, 14) = 0.440619E+00
- PKER_RACCSS( 9, 15) = 0.537296E+00
- PKER_RACCSS( 9, 16) = 0.655296E+00
- PKER_RACCSS( 9, 17) = 0.769925E+00
- PKER_RACCSS( 9, 18) = 0.870332E+00
- PKER_RACCSS( 9, 19) = 0.954640E+00
- PKER_RACCSS( 9, 20) = 0.102452E+01
- PKER_RACCSS( 9, 21) = 0.108227E+01
- PKER_RACCSS( 9, 22) = 0.113001E+01
- PKER_RACCSS( 9, 23) = 0.116947E+01
- PKER_RACCSS( 9, 24) = 0.120209E+01
- PKER_RACCSS( 9, 25) = 0.122908E+01
- PKER_RACCSS( 9, 26) = 0.125140E+01
- PKER_RACCSS( 9, 27) = 0.126986E+01
- PKER_RACCSS( 9, 28) = 0.128513E+01
- PKER_RACCSS( 9, 29) = 0.129777E+01
- PKER_RACCSS( 9, 30) = 0.130823E+01
- PKER_RACCSS( 9, 31) = 0.131688E+01
- PKER_RACCSS( 9, 32) = 0.132404E+01
- PKER_RACCSS( 9, 33) = 0.132996E+01
- PKER_RACCSS( 9, 34) = 0.133487E+01
- PKER_RACCSS( 9, 35) = 0.133892E+01
- PKER_RACCSS( 9, 36) = 0.134228E+01
- PKER_RACCSS( 9, 37) = 0.134506E+01
- PKER_RACCSS( 9, 38) = 0.134736E+01
- PKER_RACCSS( 9, 39) = 0.134927E+01
- PKER_RACCSS( 9, 40) = 0.135084E+01
- PKER_RACCSS( 10, 1) = 0.326941E+01
- PKER_RACCSS( 10, 2) = 0.247738E+01
- PKER_RACCSS( 10, 3) = 0.198894E+01
- PKER_RACCSS( 10, 4) = 0.173769E+01
- PKER_RACCSS( 10, 5) = 0.163096E+01
- PKER_RACCSS( 10, 6) = 0.156919E+01
- PKER_RACCSS( 10, 7) = 0.147478E+01
- PKER_RACCSS( 10, 8) = 0.119527E+01
- PKER_RACCSS( 10, 9) = 0.100108E+01
- PKER_RACCSS( 10, 10) = 0.781320E+00
- PKER_RACCSS( 10, 11) = 0.578296E+00
- PKER_RACCSS( 10, 12) = 0.430609E+00
- PKER_RACCSS( 10, 13) = 0.363116E+00
- PKER_RACCSS( 10, 14) = 0.377933E+00
- PKER_RACCSS( 10, 15) = 0.453999E+00
- PKER_RACCSS( 10, 16) = 0.559195E+00
- PKER_RACCSS( 10, 17) = 0.666791E+00
- PKER_RACCSS( 10, 18) = 0.764030E+00
- PKER_RACCSS( 10, 19) = 0.848611E+00
- PKER_RACCSS( 10, 20) = 0.922036E+00
- PKER_RACCSS( 10, 21) = 0.985589E+00
- PKER_RACCSS( 10, 22) = 0.103929E+01
- PKER_RACCSS( 10, 23) = 0.108289E+01
- PKER_RACCSS( 10, 24) = 0.111739E+01
- PKER_RACCSS( 10, 25) = 0.114490E+01
- PKER_RACCSS( 10, 26) = 0.116733E+01
- PKER_RACCSS( 10, 27) = 0.118583E+01
- PKER_RACCSS( 10, 28) = 0.120113E+01
- PKER_RACCSS( 10, 29) = 0.121379E+01
- PKER_RACCSS( 10, 30) = 0.122426E+01
- PKER_RACCSS( 10, 31) = 0.123292E+01
- PKER_RACCSS( 10, 32) = 0.124009E+01
- PKER_RACCSS( 10, 33) = 0.124602E+01
- PKER_RACCSS( 10, 34) = 0.125093E+01
- PKER_RACCSS( 10, 35) = 0.125500E+01
- PKER_RACCSS( 10, 36) = 0.125836E+01
- PKER_RACCSS( 10, 37) = 0.126114E+01
- PKER_RACCSS( 10, 38) = 0.126344E+01
- PKER_RACCSS( 10, 39) = 0.126535E+01
- PKER_RACCSS( 10, 40) = 0.126692E+01
- PKER_RACCSS( 11, 1) = 0.540047E+01
- PKER_RACCSS( 11, 2) = 0.406788E+01
- PKER_RACCSS( 11, 3) = 0.307616E+01
- PKER_RACCSS( 11, 4) = 0.238233E+01
- PKER_RACCSS( 11, 5) = 0.192893E+01
- PKER_RACCSS( 11, 6) = 0.164024E+01
- PKER_RACCSS( 11, 7) = 0.143525E+01
- PKER_RACCSS( 11, 8) = 0.124898E+01
- PKER_RACCSS( 11, 9) = 0.104781E+01
- PKER_RACCSS( 11, 10) = 0.832136E+00
- PKER_RACCSS( 11, 11) = 0.625559E+00
- PKER_RACCSS( 11, 12) = 0.461096E+00
- PKER_RACCSS( 11, 13) = 0.367093E+00
- PKER_RACCSS( 11, 14) = 0.353793E+00
- PKER_RACCSS( 11, 15) = 0.408329E+00
- PKER_RACCSS( 11, 16) = 0.502430E+00
- PKER_RACCSS( 11, 17) = 0.607438E+00
- PKER_RACCSS( 11, 18) = 0.705454E+00
- PKER_RACCSS( 11, 19) = 0.789792E+00
- PKER_RACCSS( 11, 20) = 0.860149E+00
- PKER_RACCSS( 11, 21) = 0.918336E+00
- PKER_RACCSS( 11, 22) = 0.966393E+00
- PKER_RACCSS( 11, 23) = 0.100609E+01
- PKER_RACCSS( 11, 24) = 0.103890E+01
- PKER_RACCSS( 11, 25) = 0.106601E+01
- PKER_RACCSS( 11, 26) = 0.108843E+01
- PKER_RACCSS( 11, 27) = 0.110696E+01
- PKER_RACCSS( 11, 28) = 0.112230E+01
- PKER_RACCSS( 11, 29) = 0.113498E+01
- PKER_RACCSS( 11, 30) = 0.114547E+01
- PKER_RACCSS( 11, 31) = 0.115414E+01
- PKER_RACCSS( 11, 32) = 0.116132E+01
- PKER_RACCSS( 11, 33) = 0.116726E+01
- PKER_RACCSS( 11, 34) = 0.117218E+01
- PKER_RACCSS( 11, 35) = 0.117625E+01
- PKER_RACCSS( 11, 36) = 0.117961E+01
- PKER_RACCSS( 11, 37) = 0.118240E+01
- PKER_RACCSS( 11, 38) = 0.118470E+01
- PKER_RACCSS( 11, 39) = 0.118661E+01
- PKER_RACCSS( 11, 40) = 0.118819E+01
- PKER_RACCSS( 12, 1) = 0.782212E+01
- PKER_RACCSS( 12, 2) = 0.599420E+01
- PKER_RACCSS( 12, 3) = 0.455236E+01
- PKER_RACCSS( 12, 4) = 0.345125E+01
- PKER_RACCSS( 12, 5) = 0.264475E+01
- PKER_RACCSS( 12, 6) = 0.207701E+01
- PKER_RACCSS( 12, 7) = 0.168031E+01
- PKER_RACCSS( 12, 8) = 0.138445E+01
- PKER_RACCSS( 12, 9) = 0.113395E+01
- PKER_RACCSS( 12, 10) = 0.900399E+00
- PKER_RACCSS( 12, 11) = 0.683291E+00
- PKER_RACCSS( 12, 12) = 0.501952E+00
- PKER_RACCSS( 12, 13) = 0.380903E+00
- PKER_RACCSS( 12, 14) = 0.335581E+00
- PKER_RACCSS( 12, 15) = 0.362162E+00
- PKER_RACCSS( 12, 16) = 0.438221E+00
- PKER_RACCSS( 12, 17) = 0.534996E+00
- PKER_RACCSS( 12, 18) = 0.630498E+00
- PKER_RACCSS( 12, 19) = 0.714544E+00
- PKER_RACCSS( 12, 20) = 0.785149E+00
- PKER_RACCSS( 12, 21) = 0.843614E+00
- PKER_RACCSS( 12, 22) = 0.891886E+00
- PKER_RACCSS( 12, 23) = 0.931743E+00
- PKER_RACCSS( 12, 24) = 0.964664E+00
- PKER_RACCSS( 12, 25) = 0.991866E+00
- PKER_RACCSS( 12, 26) = 0.101435E+01
- PKER_RACCSS( 12, 27) = 0.103293E+01
- PKER_RACCSS( 12, 28) = 0.104830E+01
- PKER_RACCSS( 12, 29) = 0.106101E+01
- PKER_RACCSS( 12, 30) = 0.107152E+01
- PKER_RACCSS( 12, 31) = 0.108022E+01
- PKER_RACCSS( 12, 32) = 0.108741E+01
- PKER_RACCSS( 12, 33) = 0.109336E+01
- PKER_RACCSS( 12, 34) = 0.109828E+01
- PKER_RACCSS( 12, 35) = 0.110236E+01
- PKER_RACCSS( 12, 36) = 0.110573E+01
- PKER_RACCSS( 12, 37) = 0.110852E+01
- PKER_RACCSS( 12, 38) = 0.111082E+01
- PKER_RACCSS( 12, 39) = 0.111273E+01
- PKER_RACCSS( 12, 40) = 0.111431E+01
- PKER_RACCSS( 13, 1) = 0.981788E+01
- PKER_RACCSS( 13, 2) = 0.766217E+01
- PKER_RACCSS( 13, 3) = 0.591544E+01
- PKER_RACCSS( 13, 4) = 0.452414E+01
- PKER_RACCSS( 13, 5) = 0.344339E+01
- PKER_RACCSS( 13, 6) = 0.262943E+01
- PKER_RACCSS( 13, 7) = 0.203218E+01
- PKER_RACCSS( 13, 8) = 0.159445E+01
- PKER_RACCSS( 13, 9) = 0.125920E+01
- PKER_RACCSS( 13, 10) = 0.982700E+00
- PKER_RACCSS( 13, 11) = 0.743668E+00
- PKER_RACCSS( 13, 12) = 0.544085E+00
- PKER_RACCSS( 13, 13) = 0.399552E+00
- PKER_RACCSS( 13, 14) = 0.325874E+00
- PKER_RACCSS( 13, 15) = 0.325287E+00
- PKER_RACCSS( 13, 16) = 0.381940E+00
- PKER_RACCSS( 13, 17) = 0.468486E+00
- PKER_RACCSS( 13, 18) = 0.560310E+00
- PKER_RACCSS( 13, 19) = 0.643677E+00
- PKER_RACCSS( 13, 20) = 0.714489E+00
- PKER_RACCSS( 13, 21) = 0.773275E+00
- PKER_RACCSS( 13, 22) = 0.821809E+00
- PKER_RACCSS( 13, 23) = 0.861858E+00
- PKER_RACCSS( 13, 24) = 0.894921E+00
- PKER_RACCSS( 13, 25) = 0.922229E+00
- PKER_RACCSS( 13, 26) = 0.944790E+00
- PKER_RACCSS( 13, 27) = 0.963435E+00
- PKER_RACCSS( 13, 28) = 0.978848E+00
- PKER_RACCSS( 13, 29) = 0.991591E+00
- PKER_RACCSS( 13, 30) = 0.100213E+01
- PKER_RACCSS( 13, 31) = 0.101084E+01
- PKER_RACCSS( 13, 32) = 0.101805E+01
- PKER_RACCSS( 13, 33) = 0.102401E+01
- PKER_RACCSS( 13, 34) = 0.102895E+01
- PKER_RACCSS( 13, 35) = 0.103303E+01
- PKER_RACCSS( 13, 36) = 0.103640E+01
- PKER_RACCSS( 13, 37) = 0.103920E+01
- PKER_RACCSS( 13, 38) = 0.104151E+01
- PKER_RACCSS( 13, 39) = 0.104342E+01
- PKER_RACCSS( 13, 40) = 0.104500E+01
- PKER_RACCSS( 14, 1) = 0.113567E+02
- PKER_RACCSS( 14, 2) = 0.899336E+01
- PKER_RACCSS( 14, 3) = 0.705312E+01
- PKER_RACCSS( 14, 4) = 0.547412E+01
- PKER_RACCSS( 14, 5) = 0.420687E+01
- PKER_RACCSS( 14, 6) = 0.320973E+01
- PKER_RACCSS( 14, 7) = 0.244303E+01
- PKER_RACCSS( 14, 8) = 0.186415E+01
- PKER_RACCSS( 14, 9) = 0.142646E+01
- PKER_RACCSS( 14, 10) = 0.108627E+01
- PKER_RACCSS( 14, 11) = 0.811450E+00
- PKER_RACCSS( 14, 12) = 0.588974E+00
- PKER_RACCSS( 14, 13) = 0.422701E+00
- PKER_RACCSS( 14, 14) = 0.323861E+00
- PKER_RACCSS( 14, 15) = 0.298012E+00
- PKER_RACCSS( 14, 16) = 0.334007E+00
- PKER_RACCSS( 14, 17) = 0.408204E+00
- PKER_RACCSS( 14, 18) = 0.494846E+00
- PKER_RACCSS( 14, 19) = 0.576947E+00
- PKER_RACCSS( 14, 20) = 0.647860E+00
- PKER_RACCSS( 14, 21) = 0.707002E+00
- PKER_RACCSS( 14, 22) = 0.755849E+00
- PKER_RACCSS( 14, 23) = 0.796134E+00
- PKER_RACCSS( 14, 24) = 0.829370E+00
- PKER_RACCSS( 14, 25) = 0.856805E+00
- PKER_RACCSS( 14, 26) = 0.879461E+00
- PKER_RACCSS( 14, 27) = 0.898178E+00
- PKER_RACCSS( 14, 28) = 0.913645E+00
- PKER_RACCSS( 14, 29) = 0.926429E+00
- PKER_RACCSS( 14, 30) = 0.936998E+00
- PKER_RACCSS( 14, 31) = 0.945737E+00
- PKER_RACCSS( 14, 32) = 0.952964E+00
- PKER_RACCSS( 14, 33) = 0.958941E+00
- PKER_RACCSS( 14, 34) = 0.963884E+00
- PKER_RACCSS( 14, 35) = 0.967974E+00
- PKER_RACCSS( 14, 36) = 0.971357E+00
- PKER_RACCSS( 14, 37) = 0.974155E+00
- PKER_RACCSS( 14, 38) = 0.976471E+00
- PKER_RACCSS( 14, 39) = 0.978386E+00
- PKER_RACCSS( 14, 40) = 0.979971E+00
- PKER_RACCSS( 15, 1) = 0.124924E+02
- PKER_RACCSS( 15, 2) = 0.100003E+02
- PKER_RACCSS( 15, 3) = 0.794169E+01
- PKER_RACCSS( 15, 4) = 0.624828E+01
- PKER_RACCSS( 15, 5) = 0.486528E+01
- PKER_RACCSS( 15, 6) = 0.374844E+01
- PKER_RACCSS( 15, 7) = 0.286039E+01
- PKER_RACCSS( 15, 8) = 0.216647E+01
- PKER_RACCSS( 15, 9) = 0.163111E+01
- PKER_RACCSS( 15, 10) = 0.121825E+01
- PKER_RACCSS( 15, 11) = 0.895737E+00
- PKER_RACCSS( 15, 12) = 0.642706E+00
- PKER_RACCSS( 15, 13) = 0.452742E+00
- PKER_RACCSS( 15, 14) = 0.330032E+00
- PKER_RACCSS( 15, 15) = 0.279351E+00
- PKER_RACCSS( 15, 16) = 0.294228E+00
- PKER_RACCSS( 15, 17) = 0.354314E+00
- PKER_RACCSS( 15, 18) = 0.434176E+00
- PKER_RACCSS( 15, 19) = 0.514178E+00
- PKER_RACCSS( 15, 20) = 0.584975E+00
- PKER_RACCSS( 15, 21) = 0.644491E+00
- PKER_RACCSS( 15, 22) = 0.693710E+00
- PKER_RACCSS( 15, 23) = 0.734280E+00
- PKER_RACCSS( 15, 24) = 0.767726E+00
- PKER_RACCSS( 15, 25) = 0.795316E+00
- PKER_RACCSS( 15, 26) = 0.818088E+00
- PKER_RACCSS( 15, 27) = 0.836891E+00
- PKER_RACCSS( 15, 28) = 0.852423E+00
- PKER_RACCSS( 15, 29) = 0.865256E+00
- PKER_RACCSS( 15, 30) = 0.875863E+00
- PKER_RACCSS( 15, 31) = 0.884631E+00
- PKER_RACCSS( 15, 32) = 0.891880E+00
- PKER_RACCSS( 15, 33) = 0.897874E+00
- PKER_RACCSS( 15, 34) = 0.902831E+00
- PKER_RACCSS( 15, 35) = 0.906930E+00
- PKER_RACCSS( 15, 36) = 0.910321E+00
- PKER_RACCSS( 15, 37) = 0.913126E+00
- PKER_RACCSS( 15, 38) = 0.915447E+00
- PKER_RACCSS( 15, 39) = 0.917366E+00
- PKER_RACCSS( 15, 40) = 0.918954E+00
- PKER_RACCSS( 16, 1) = 0.136907E+02
- PKER_RACCSS( 16, 2) = 0.110657E+02
- PKER_RACCSS( 16, 3) = 0.889092E+01
- PKER_RACCSS( 16, 4) = 0.709169E+01
- PKER_RACCSS( 16, 5) = 0.560750E+01
- PKER_RACCSS( 16, 6) = 0.438940E+01
- PKER_RACCSS( 16, 7) = 0.339760E+01
- PKER_RACCSS( 16, 8) = 0.259872E+01
- PKER_RACCSS( 16, 9) = 0.196266E+01
- PKER_RACCSS( 16, 10) = 0.146081E+01
- PKER_RACCSS( 16, 11) = 0.106641E+01
- PKER_RACCSS( 16, 12) = 0.758348E+00
- PKER_RACCSS( 16, 13) = 0.524888E+00
- PKER_RACCSS( 16, 14) = 0.364964E+00
- PKER_RACCSS( 16, 15) = 0.280630E+00
- PKER_RACCSS( 16, 16) = 0.267498E+00
- PKER_RACCSS( 16, 17) = 0.308591E+00
- PKER_RACCSS( 16, 18) = 0.378682E+00
- PKER_RACCSS( 16, 19) = 0.455284E+00
- PKER_RACCSS( 16, 20) = 0.525585E+00
- PKER_RACCSS( 16, 21) = 0.585451E+00
- PKER_RACCSS( 16, 22) = 0.635103E+00
- PKER_RACCSS( 16, 23) = 0.676018E+00
- PKER_RACCSS( 16, 24) = 0.709719E+00
- PKER_RACCSS( 16, 25) = 0.737497E+00
- PKER_RACCSS( 16, 26) = 0.760408E+00
- PKER_RACCSS( 16, 27) = 0.779316E+00
- PKER_RACCSS( 16, 28) = 0.794926E+00
- PKER_RACCSS( 16, 29) = 0.807819E+00
- PKER_RACCSS( 16, 30) = 0.818471E+00
- PKER_RACCSS( 16, 31) = 0.827273E+00
- PKER_RACCSS( 16, 32) = 0.834549E+00
- PKER_RACCSS( 16, 33) = 0.840564E+00
- PKER_RACCSS( 16, 34) = 0.845537E+00
- PKER_RACCSS( 16, 35) = 0.849649E+00
- PKER_RACCSS( 16, 36) = 0.853049E+00
- PKER_RACCSS( 16, 37) = 0.855862E+00
- PKER_RACCSS( 16, 38) = 0.858188E+00
- PKER_RACCSS( 16, 39) = 0.860112E+00
- PKER_RACCSS( 16, 40) = 0.861704E+00
- PKER_RACCSS( 17, 1) = 0.143219E+02
- PKER_RACCSS( 17, 2) = 0.116425E+02
- PKER_RACCSS( 17, 3) = 0.942087E+01
- PKER_RACCSS( 17, 4) = 0.757943E+01
- PKER_RACCSS( 17, 5) = 0.605456E+01
- PKER_RACCSS( 17, 6) = 0.479437E+01
- PKER_RACCSS( 17, 7) = 0.375669E+01
- PKER_RACCSS( 17, 8) = 0.290705E+01
- PKER_RACCSS( 17, 9) = 0.221663E+01
- PKER_RACCSS( 17, 10) = 0.166050E+01
- PKER_RACCSS( 17, 11) = 0.121648E+01
- PKER_RACCSS( 17, 12) = 0.866211E+00
- PKER_RACCSS( 17, 13) = 0.597261E+00
- PKER_RACCSS( 17, 14) = 0.405300E+00
- PKER_RACCSS( 17, 15) = 0.290505E+00
- PKER_RACCSS( 17, 16) = 0.250047E+00
- PKER_RACCSS( 17, 17) = 0.270435E+00
- PKER_RACCSS( 17, 18) = 0.328579E+00
- PKER_RACCSS( 17, 19) = 0.400271E+00
- PKER_RACCSS( 17, 20) = 0.469487E+00
- PKER_RACCSS( 17, 21) = 0.529608E+00
- PKER_RACCSS( 17, 22) = 0.579747E+00
- PKER_RACCSS( 17, 23) = 0.621077E+00
- PKER_RACCSS( 17, 24) = 0.655088E+00
- PKER_RACCSS( 17, 25) = 0.683095E+00
- PKER_RACCSS( 17, 26) = 0.706175E+00
- PKER_RACCSS( 17, 27) = 0.725209E+00
- PKER_RACCSS( 17, 28) = 0.740914E+00
- PKER_RACCSS( 17, 29) = 0.753878E+00
- PKER_RACCSS( 17, 30) = 0.764585E+00
- PKER_RACCSS( 17, 31) = 0.773429E+00
- PKER_RACCSS( 17, 32) = 0.780736E+00
- PKER_RACCSS( 17, 33) = 0.786775E+00
- PKER_RACCSS( 17, 34) = 0.791767E+00
- PKER_RACCSS( 17, 35) = 0.795894E+00
- PKER_RACCSS( 17, 36) = 0.799306E+00
- PKER_RACCSS( 17, 37) = 0.802128E+00
- PKER_RACCSS( 17, 38) = 0.804461E+00
- PKER_RACCSS( 17, 39) = 0.806391E+00
- PKER_RACCSS( 17, 40) = 0.807987E+00
- PKER_RACCSS( 18, 1) = 0.147209E+02
- PKER_RACCSS( 18, 2) = 0.120131E+02
- PKER_RACCSS( 18, 3) = 0.976801E+01
- PKER_RACCSS( 18, 4) = 0.790632E+01
- PKER_RACCSS( 18, 5) = 0.636267E+01
- PKER_RACCSS( 18, 6) = 0.508334E+01
- PKER_RACCSS( 18, 7) = 0.402439E+01
- PKER_RACCSS( 18, 8) = 0.314991E+01
- PKER_RACCSS( 18, 9) = 0.243053E+01
- PKER_RACCSS( 18, 10) = 0.184200E+01
- PKER_RACCSS( 18, 11) = 0.136420E+01
- PKER_RACCSS( 18, 12) = 0.980889E+00
- PKER_RACCSS( 18, 13) = 0.680705E+00
- PKER_RACCSS( 18, 14) = 0.458391E+00
- PKER_RACCSS( 18, 15) = 0.313204E+00
- PKER_RACCSS( 18, 16) = 0.244163E+00
- PKER_RACCSS( 18, 17) = 0.241397E+00
- PKER_RACCSS( 18, 18) = 0.284627E+00
- PKER_RACCSS( 18, 19) = 0.349372E+00
- PKER_RACCSS( 18, 20) = 0.416570E+00
- PKER_RACCSS( 18, 21) = 0.476717E+00
- PKER_RACCSS( 18, 22) = 0.527374E+00
- PKER_RACCSS( 18, 23) = 0.569195E+00
- PKER_RACCSS( 18, 24) = 0.603582E+00
- PKER_RACCSS( 18, 25) = 0.631866E+00
- PKER_RACCSS( 18, 26) = 0.655151E+00
- PKER_RACCSS( 18, 27) = 0.674337E+00
- PKER_RACCSS( 18, 28) = 0.690157E+00
- PKER_RACCSS( 18, 29) = 0.703207E+00
- PKER_RACCSS( 18, 30) = 0.713979E+00
- PKER_RACCSS( 18, 31) = 0.722873E+00
- PKER_RACCSS( 18, 32) = 0.730219E+00
- PKER_RACCSS( 18, 33) = 0.736287E+00
- PKER_RACCSS( 18, 34) = 0.741302E+00
- PKER_RACCSS( 18, 35) = 0.745447E+00
- PKER_RACCSS( 18, 36) = 0.748872E+00
- PKER_RACCSS( 18, 37) = 0.751705E+00
- PKER_RACCSS( 18, 38) = 0.754046E+00
- PKER_RACCSS( 18, 39) = 0.755982E+00
- PKER_RACCSS( 18, 40) = 0.757584E+00
- PKER_RACCSS( 19, 1) = 0.149183E+02
- PKER_RACCSS( 19, 2) = 0.122030E+02
- PKER_RACCSS( 19, 3) = 0.994164E+01
- PKER_RACCSS( 19, 4) = 0.807634E+01
- PKER_RACCSS( 19, 5) = 0.652942E+01
- PKER_RACCSS( 19, 6) = 0.524643E+01
- PKER_RACCSS( 19, 7) = 0.418260E+01
- PKER_RACCSS( 19, 8) = 0.330120E+01
- PKER_RACCSS( 19, 9) = 0.257220E+01
- PKER_RACCSS( 19, 10) = 0.197109E+01
- PKER_RACCSS( 19, 11) = 0.147799E+01
- PKER_RACCSS( 19, 12) = 0.107723E+01
- PKER_RACCSS( 19, 13) = 0.757647E+00
- PKER_RACCSS( 19, 14) = 0.513325E+00
- PKER_RACCSS( 19, 15) = 0.343389E+00
- PKER_RACCSS( 19, 16) = 0.247854E+00
- PKER_RACCSS( 19, 17) = 0.221083E+00
- PKER_RACCSS( 19, 18) = 0.247150E+00
- PKER_RACCSS( 19, 19) = 0.302778E+00
- PKER_RACCSS( 19, 20) = 0.366775E+00
- PKER_RACCSS( 19, 21) = 0.426568E+00
- PKER_RACCSS( 19, 22) = 0.477725E+00
- PKER_RACCSS( 19, 23) = 0.520116E+00
- PKER_RACCSS( 19, 24) = 0.554956E+00
- PKER_RACCSS( 19, 25) = 0.583576E+00
- PKER_RACCSS( 19, 26) = 0.607109E+00
- PKER_RACCSS( 19, 27) = 0.626480E+00
- PKER_RACCSS( 19, 28) = 0.642437E+00
- PKER_RACCSS( 19, 29) = 0.655592E+00
- PKER_RACCSS( 19, 30) = 0.666442E+00
- PKER_RACCSS( 19, 31) = 0.675396E+00
- PKER_RACCSS( 19, 32) = 0.682788E+00
- PKER_RACCSS( 19, 33) = 0.688892E+00
- PKER_RACCSS( 19, 34) = 0.693934E+00
- PKER_RACCSS( 19, 35) = 0.698099E+00
- PKER_RACCSS( 19, 36) = 0.701541E+00
- PKER_RACCSS( 19, 37) = 0.704386E+00
- PKER_RACCSS( 19, 38) = 0.706738E+00
- PKER_RACCSS( 19, 39) = 0.708682E+00
- PKER_RACCSS( 19, 40) = 0.710289E+00
- PKER_RACCSS( 20, 1) = 0.149148E+02
- PKER_RACCSS( 20, 2) = 0.121968E+02
- PKER_RACCSS( 20, 3) = 0.994688E+01
- PKER_RACCSS( 20, 4) = 0.808241E+01
- PKER_RACCSS( 20, 5) = 0.653732E+01
- PKER_RACCSS( 20, 6) = 0.525704E+01
- PKER_RACCSS( 20, 7) = 0.419660E+01
- PKER_RACCSS( 20, 8) = 0.331897E+01
- PKER_RACCSS( 20, 9) = 0.259370E+01
- PKER_RACCSS( 20, 10) = 0.199579E+01
- PKER_RACCSS( 20, 11) = 0.150482E+01
- PKER_RACCSS( 20, 12) = 0.110452E+01
- PKER_RACCSS( 20, 13) = 0.783023E+00
- PKER_RACCSS( 20, 14) = 0.533371E+00
- PKER_RACCSS( 20, 15) = 0.353809E+00
- PKER_RACCSS( 20, 16) = 0.245035E+00
- PKER_RACCSS( 20, 17) = 0.204243E+00
- PKER_RACCSS( 20, 18) = 0.219182E+00
- PKER_RACCSS( 20, 19) = 0.268663E+00
- PKER_RACCSS( 20, 20) = 0.330431E+00
- PKER_RACCSS( 20, 21) = 0.389684E+00
- PKER_RACCSS( 20, 22) = 0.440619E+00
- PKER_RACCSS( 20, 23) = 0.482783E+00
- PKER_RACCSS( 20, 24) = 0.517411E+00
- PKER_RACCSS( 20, 25) = 0.545855E+00
- PKER_RACCSS( 20, 26) = 0.569246E+00
- PKER_RACCSS( 20, 27) = 0.588502E+00
- PKER_RACCSS( 20, 28) = 0.604366E+00
- PKER_RACCSS( 20, 29) = 0.617445E+00
- PKER_RACCSS( 20, 30) = 0.628235E+00
- PKER_RACCSS( 20, 31) = 0.637140E+00
- PKER_RACCSS( 20, 32) = 0.644493E+00
- PKER_RACCSS( 20, 33) = 0.650566E+00
- PKER_RACCSS( 20, 34) = 0.655583E+00
- PKER_RACCSS( 20, 35) = 0.659729E+00
- PKER_RACCSS( 20, 36) = 0.663155E+00
- PKER_RACCSS( 20, 37) = 0.665988E+00
- PKER_RACCSS( 20, 38) = 0.668329E+00
- PKER_RACCSS( 20, 39) = 0.670265E+00
- PKER_RACCSS( 20, 40) = 0.671867E+00
- PKER_RACCSS( 21, 1) = 0.150013E+02
- PKER_RACCSS( 21, 2) = 0.122869E+02
- PKER_RACCSS( 21, 3) = 0.100382E+02
- PKER_RACCSS( 21, 4) = 0.817497E+01
- PKER_RACCSS( 21, 5) = 0.663057E+01
- PKER_RACCSS( 21, 6) = 0.535086E+01
- PKER_RACCSS( 21, 7) = 0.429034E+01
- PKER_RACCSS( 21, 8) = 0.341176E+01
- PKER_RACCSS( 21, 9) = 0.268444E+01
- PKER_RACCSS( 21, 10) = 0.208320E+01
- PKER_RACCSS( 21, 11) = 0.158747E+01
- PKER_RACCSS( 21, 12) = 0.118074E+01
- PKER_RACCSS( 21, 13) = 0.850535E+00
- PKER_RACCSS( 21, 14) = 0.588897E+00
- PKER_RACCSS( 21, 15) = 0.392828E+00
- PKER_RACCSS( 21, 16) = 0.262954E+00
- PKER_RACCSS( 21, 17) = 0.199389E+00
- PKER_RACCSS( 21, 18) = 0.194569E+00
- PKER_RACCSS( 21, 19) = 0.231063E+00
- PKER_RACCSS( 21, 20) = 0.286983E+00
- PKER_RACCSS( 21, 21) = 0.344860E+00
- PKER_RACCSS( 21, 22) = 0.396111E+00
- PKER_RACCSS( 21, 23) = 0.438868E+00
- PKER_RACCSS( 21, 24) = 0.473989E+00
- PKER_RACCSS( 21, 25) = 0.502799E+00
- PKER_RACCSS( 21, 26) = 0.526459E+00
- PKER_RACCSS( 21, 27) = 0.545913E+00
- PKER_RACCSS( 21, 28) = 0.561925E+00
- PKER_RACCSS( 21, 29) = 0.575114E+00
- PKER_RACCSS( 21, 30) = 0.585987E+00
- PKER_RACCSS( 21, 31) = 0.594955E+00
- PKER_RACCSS( 21, 32) = 0.602355E+00
- PKER_RACCSS( 21, 33) = 0.608464E+00
- PKER_RACCSS( 21, 34) = 0.613509E+00
- PKER_RACCSS( 21, 35) = 0.617676E+00
- PKER_RACCSS( 21, 36) = 0.621119E+00
- PKER_RACCSS( 21, 37) = 0.623965E+00
- PKER_RACCSS( 21, 38) = 0.626316E+00
- PKER_RACCSS( 21, 39) = 0.628260E+00
- PKER_RACCSS( 21, 40) = 0.629867E+00
- PKER_RACCSS( 22, 1) = 0.150720E+02
- PKER_RACCSS( 22, 2) = 0.123594E+02
- PKER_RACCSS( 22, 3) = 0.101123E+02
- PKER_RACCSS( 22, 4) = 0.825051E+01
- PKER_RACCSS( 22, 5) = 0.670778E+01
- PKER_RACCSS( 22, 6) = 0.542920E+01
- PKER_RACCSS( 22, 7) = 0.436946E+01
- PKER_RACCSS( 22, 8) = 0.349113E+01
- PKER_RACCSS( 22, 9) = 0.276334E+01
- PKER_RACCSS( 22, 10) = 0.216073E+01
- PKER_RACCSS( 22, 11) = 0.166252E+01
- PKER_RACCSS( 22, 12) = 0.125192E+01
- PKER_RACCSS( 22, 13) = 0.915920E+00
- PKER_RACCSS( 22, 14) = 0.645535E+00
- PKER_RACCSS( 22, 15) = 0.436397E+00
- PKER_RACCSS( 22, 16) = 0.288654E+00
- PKER_RACCSS( 22, 17) = 0.203659E+00
- PKER_RACCSS( 22, 18) = 0.178071E+00
- PKER_RACCSS( 22, 19) = 0.199311E+00
- PKER_RACCSS( 22, 20) = 0.247192E+00
- PKER_RACCSS( 22, 21) = 0.302537E+00
- PKER_RACCSS( 22, 22) = 0.353781E+00
- PKER_RACCSS( 22, 23) = 0.397157E+00
- PKER_RACCSS( 22, 24) = 0.432857E+00
- PKER_RACCSS( 22, 25) = 0.462108E+00
- PKER_RACCSS( 22, 26) = 0.486096E+00
- PKER_RACCSS( 22, 27) = 0.505793E+00
- PKER_RACCSS( 22, 28) = 0.521983E+00
- PKER_RACCSS( 22, 29) = 0.535306E+00
- PKER_RACCSS( 22, 30) = 0.546278E+00
- PKER_RACCSS( 22, 31) = 0.555321E+00
- PKER_RACCSS( 22, 32) = 0.562778E+00
- PKER_RACCSS( 22, 33) = 0.568931E+00
- PKER_RACCSS( 22, 34) = 0.574009E+00
- PKER_RACCSS( 22, 35) = 0.578202E+00
- PKER_RACCSS( 22, 36) = 0.581665E+00
- PKER_RACCSS( 22, 37) = 0.584526E+00
- PKER_RACCSS( 22, 38) = 0.586889E+00
- PKER_RACCSS( 22, 39) = 0.588843E+00
- PKER_RACCSS( 22, 40) = 0.590457E+00
- PKER_RACCSS( 23, 1) = 0.150726E+02
- PKER_RACCSS( 23, 2) = 0.123607E+02
- PKER_RACCSS( 23, 3) = 0.101143E+02
- PKER_RACCSS( 23, 4) = 0.825344E+01
- PKER_RACCSS( 23, 5) = 0.671177E+01
- PKER_RACCSS( 23, 6) = 0.543448E+01
- PKER_RACCSS( 23, 7) = 0.437621E+01
- PKER_RACCSS( 23, 8) = 0.349956E+01
- PKER_RACCSS( 23, 9) = 0.277362E+01
- PKER_RACCSS( 23, 10) = 0.217295E+01
- PKER_RACCSS( 23, 11) = 0.167667E+01
- PKER_RACCSS( 23, 12) = 0.126773E+01
- PKER_RACCSS( 23, 13) = 0.932718E+00
- PKER_RACCSS( 23, 14) = 0.661907E+00
- PKER_RACCSS( 23, 15) = 0.449897E+00
- PKER_RACCSS( 23, 16) = 0.295961E+00
- PKER_RACCSS( 23, 17) = 0.201862E+00
- PKER_RACCSS( 23, 18) = 0.166501E+00
- PKER_RACCSS( 23, 19) = 0.180054E+00
- PKER_RACCSS( 23, 20) = 0.223817E+00
- PKER_RACCSS( 23, 21) = 0.277646E+00
- PKER_RACCSS( 23, 22) = 0.328410E+00
- PKER_RACCSS( 23, 23) = 0.371512E+00
- PKER_RACCSS( 23, 24) = 0.406971E+00
- PKER_RACCSS( 23, 25) = 0.436013E+00
- PKER_RACCSS( 23, 26) = 0.459823E+00
- PKER_RACCSS( 23, 27) = 0.479372E+00
- PKER_RACCSS( 23, 28) = 0.495442E+00
- PKER_RACCSS( 23, 29) = 0.508667E+00
- PKER_RACCSS( 23, 30) = 0.519559E+00
- PKER_RACCSS( 23, 31) = 0.528537E+00
- PKER_RACCSS( 23, 32) = 0.535942E+00
- PKER_RACCSS( 23, 33) = 0.542053E+00
- PKER_RACCSS( 23, 34) = 0.547098E+00
- PKER_RACCSS( 23, 35) = 0.551263E+00
- PKER_RACCSS( 23, 36) = 0.554705E+00
- PKER_RACCSS( 23, 37) = 0.557548E+00
- PKER_RACCSS( 23, 38) = 0.559898E+00
- PKER_RACCSS( 23, 39) = 0.561840E+00
- PKER_RACCSS( 23, 40) = 0.563446E+00
- PKER_RACCSS( 24, 1) = 0.151324E+02
- PKER_RACCSS( 24, 2) = 0.124216E+02
- PKER_RACCSS( 24, 3) = 0.101765E+02
- PKER_RACCSS( 24, 4) = 0.831675E+01
- PKER_RACCSS( 24, 5) = 0.677615E+01
- PKER_RACCSS( 24, 6) = 0.549978E+01
- PKER_RACCSS( 24, 7) = 0.444223E+01
- PKER_RACCSS( 24, 8) = 0.356597E+01
- PKER_RACCSS( 24, 9) = 0.284002E+01
- PKER_RACCSS( 24, 10) = 0.223881E+01
- PKER_RACCSS( 24, 11) = 0.174131E+01
- PKER_RACCSS( 24, 12) = 0.133030E+01
- PKER_RACCSS( 24, 13) = 0.992011E+00
- PKER_RACCSS( 24, 14) = 0.716009E+00
- PKER_RACCSS( 24, 15) = 0.495767E+00
- PKER_RACCSS( 24, 16) = 0.329155E+00
- PKER_RACCSS( 24, 17) = 0.217613E+00
- PKER_RACCSS( 24, 18) = 0.162580E+00
- PKER_RACCSS( 24, 19) = 0.158691E+00
- PKER_RACCSS( 24, 20) = 0.191157E+00
- PKER_RACCSS( 24, 21) = 0.240223E+00
- PKER_RACCSS( 24, 22) = 0.290187E+00
- PKER_RACCSS( 24, 23) = 0.333776E+00
- PKER_RACCSS( 24, 24) = 0.369843E+00
- PKER_RACCSS( 24, 25) = 0.399359E+00
- PKER_RACCSS( 24, 26) = 0.423520E+00
- PKER_RACCSS( 24, 27) = 0.443327E+00
- PKER_RACCSS( 24, 28) = 0.459588E+00
- PKER_RACCSS( 24, 29) = 0.472953E+00
- PKER_RACCSS( 24, 30) = 0.483950E+00
- PKER_RACCSS( 24, 31) = 0.493007E+00
- PKER_RACCSS( 24, 32) = 0.500470E+00
- PKER_RACCSS( 24, 33) = 0.506625E+00
- PKER_RACCSS( 24, 34) = 0.511703E+00
- PKER_RACCSS( 24, 35) = 0.515895E+00
- PKER_RACCSS( 24, 36) = 0.519356E+00
- PKER_RACCSS( 24, 37) = 0.522215E+00
- PKER_RACCSS( 24, 38) = 0.524576E+00
- PKER_RACCSS( 24, 39) = 0.526528E+00
- PKER_RACCSS( 24, 40) = 0.528140E+00
- PKER_RACCSS( 25, 1) = 0.151432E+02
- PKER_RACCSS( 25, 2) = 0.124328E+02
- PKER_RACCSS( 25, 3) = 0.101882E+02
- PKER_RACCSS( 25, 4) = 0.832899E+01
- PKER_RACCSS( 25, 5) = 0.678899E+01
- PKER_RACCSS( 25, 6) = 0.551328E+01
- PKER_RACCSS( 25, 7) = 0.445646E+01
- PKER_RACCSS( 25, 8) = 0.358099E+01
- PKER_RACCSS( 25, 9) = 0.285587E+01
- PKER_RACCSS( 25, 10) = 0.225550E+01
- PKER_RACCSS( 25, 11) = 0.175879E+01
- PKER_RACCSS( 25, 12) = 0.134845E+01
- PKER_RACCSS( 25, 13) = 0.101050E+01
- PKER_RACCSS( 25, 14) = 0.734111E+00
- PKER_RACCSS( 25, 15) = 0.512093E+00
- PKER_RACCSS( 25, 16) = 0.341419E+00
- PKER_RACCSS( 25, 17) = 0.223087E+00
- PKER_RACCSS( 25, 18) = 0.159345E+00
- PKER_RACCSS( 25, 19) = 0.147102E+00
- PKER_RACCSS( 25, 20) = 0.173839E+00
- PKER_RACCSS( 25, 21) = 0.220264E+00
- PKER_RACCSS( 25, 22) = 0.269389E+00
- PKER_RACCSS( 25, 23) = 0.312757E+00
- PKER_RACCSS( 25, 24) = 0.348700E+00
- PKER_RACCSS( 25, 25) = 0.378105E+00
- PKER_RACCSS( 25, 26) = 0.402161E+00
- PKER_RACCSS( 25, 27) = 0.421874E+00
- PKER_RACCSS( 25, 28) = 0.438052E+00
- PKER_RACCSS( 25, 29) = 0.451345E+00
- PKER_RACCSS( 25, 30) = 0.462282E+00
- PKER_RACCSS( 25, 31) = 0.471288E+00
- PKER_RACCSS( 25, 32) = 0.478709E+00
- PKER_RACCSS( 25, 33) = 0.484830E+00
- PKER_RACCSS( 25, 34) = 0.489880E+00
- PKER_RACCSS( 25, 35) = 0.494049E+00
- PKER_RACCSS( 25, 36) = 0.497492E+00
- PKER_RACCSS( 25, 37) = 0.500336E+00
- PKER_RACCSS( 25, 38) = 0.502685E+00
- PKER_RACCSS( 25, 39) = 0.504627E+00
- PKER_RACCSS( 25, 40) = 0.506233E+00
- PKER_RACCSS( 26, 1) = 0.151604E+02
- PKER_RACCSS( 26, 2) = 0.124505E+02
- PKER_RACCSS( 26, 3) = 0.102063E+02
- PKER_RACCSS( 26, 4) = 0.834759E+01
- PKER_RACCSS( 26, 5) = 0.680810E+01
- PKER_RACCSS( 26, 6) = 0.553290E+01
- PKER_RACCSS( 26, 7) = 0.447661E+01
- PKER_RACCSS( 26, 8) = 0.360165E+01
- PKER_RACCSS( 26, 9) = 0.287702E+01
- PKER_RACCSS( 26, 10) = 0.227707E+01
- PKER_RACCSS( 26, 11) = 0.178069E+01
- PKER_RACCSS( 26, 12) = 0.137049E+01
- PKER_RACCSS( 26, 13) = 0.103238E+01
- PKER_RACCSS( 26, 14) = 0.755232E+00
- PKER_RACCSS( 26, 15) = 0.531299E+00
- PKER_RACCSS( 26, 16) = 0.356723E+00
- PKER_RACCSS( 26, 17) = 0.231969E+00
- PKER_RACCSS( 26, 18) = 0.159466E+00
- PKER_RACCSS( 26, 19) = 0.138275E+00
- PKER_RACCSS( 26, 20) = 0.158408E+00
- PKER_RACCSS( 26, 21) = 0.201507E+00
- PKER_RACCSS( 26, 22) = 0.249601E+00
- PKER_RACCSS( 26, 23) = 0.292817E+00
- PKER_RACCSS( 26, 24) = 0.328766E+00
- PKER_RACCSS( 26, 25) = 0.358167E+00
- PKER_RACCSS( 26, 26) = 0.382203E+00
- PKER_RACCSS( 26, 27) = 0.401886E+00
- PKER_RACCSS( 26, 28) = 0.418030E+00
- PKER_RACCSS( 26, 29) = 0.431290E+00
- PKER_RACCSS( 26, 30) = 0.442195E+00
- PKER_RACCSS( 26, 31) = 0.451173E+00
- PKER_RACCSS( 26, 32) = 0.458570E+00
- PKER_RACCSS( 26, 33) = 0.464669E+00
- PKER_RACCSS( 26, 34) = 0.469702E+00
- PKER_RACCSS( 26, 35) = 0.473856E+00
- PKER_RACCSS( 26, 36) = 0.477287E+00
- PKER_RACCSS( 26, 37) = 0.480121E+00
- PKER_RACCSS( 26, 38) = 0.482463E+00
- PKER_RACCSS( 26, 39) = 0.484399E+00
- PKER_RACCSS( 26, 40) = 0.485999E+00
- PKER_RACCSS( 27, 1) = 0.151814E+02
- PKER_RACCSS( 27, 2) = 0.124719E+02
- PKER_RACCSS( 27, 3) = 0.102281E+02
- PKER_RACCSS( 27, 4) = 0.836990E+01
- PKER_RACCSS( 27, 5) = 0.683086E+01
- PKER_RACCSS( 27, 6) = 0.555611E+01
- PKER_RACCSS( 27, 7) = 0.450023E+01
- PKER_RACCSS( 27, 8) = 0.362567E+01
- PKER_RACCSS( 27, 9) = 0.290135E+01
- PKER_RACCSS( 27, 10) = 0.230164E+01
- PKER_RACCSS( 27, 11) = 0.180536E+01
- PKER_RACCSS( 27, 12) = 0.139509E+01
- PKER_RACCSS( 27, 13) = 0.105660E+01
- PKER_RACCSS( 27, 14) = 0.778555E+00
- PKER_RACCSS( 27, 15) = 0.552744E+00
- PKER_RACCSS( 27, 16) = 0.374600E+00
- PKER_RACCSS( 27, 17) = 0.243637E+00
- PKER_RACCSS( 27, 18) = 0.162579E+00
- PKER_RACCSS( 27, 19) = 0.131954E+00
- PKER_RACCSS( 27, 20) = 0.144584E+00
- PKER_RACCSS( 27, 21) = 0.183443E+00
- PKER_RACCSS( 27, 22) = 0.230184E+00
- PKER_RACCSS( 27, 23) = 0.273243E+00
- PKER_RACCSS( 27, 24) = 0.309289E+00
- PKER_RACCSS( 27, 25) = 0.338774E+00
- PKER_RACCSS( 27, 26) = 0.362856E+00
- PKER_RACCSS( 27, 27) = 0.382560E+00
- PKER_RACCSS( 27, 28) = 0.398710E+00
- PKER_RACCSS( 27, 29) = 0.411966E+00
- PKER_RACCSS( 27, 30) = 0.422862E+00
- PKER_RACCSS( 27, 31) = 0.431828E+00
- PKER_RACCSS( 27, 32) = 0.439214E+00
- PKER_RACCSS( 27, 33) = 0.445302E+00
- PKER_RACCSS( 27, 34) = 0.450325E+00
- PKER_RACCSS( 27, 35) = 0.454471E+00
- PKER_RACCSS( 27, 36) = 0.457894E+00
- PKER_RACCSS( 27, 37) = 0.460722E+00
- PKER_RACCSS( 27, 38) = 0.463059E+00
- PKER_RACCSS( 27, 39) = 0.464990E+00
- PKER_RACCSS( 27, 40) = 0.466587E+00
- PKER_RACCSS( 28, 1) = 0.151833E+02
- PKER_RACCSS( 28, 2) = 0.124739E+02
- PKER_RACCSS( 28, 3) = 0.102303E+02
- PKER_RACCSS( 28, 4) = 0.837216E+01
- PKER_RACCSS( 28, 5) = 0.683329E+01
- PKER_RACCSS( 28, 6) = 0.555874E+01
- PKER_RACCSS( 28, 7) = 0.450309E+01
- PKER_RACCSS( 28, 8) = 0.362879E+01
- PKER_RACCSS( 28, 9) = 0.290477E+01
- PKER_RACCSS( 28, 10) = 0.230538E+01
- PKER_RACCSS( 28, 11) = 0.180946E+01
- PKER_RACCSS( 28, 12) = 0.139955E+01
- PKER_RACCSS( 28, 13) = 0.106140E+01
- PKER_RACCSS( 28, 14) = 0.783576E+00
- PKER_RACCSS( 28, 15) = 0.557673E+00
- PKER_RACCSS( 28, 16) = 0.378779E+00
- PKER_RACCSS( 28, 17) = 0.246210E+00
- PKER_RACCSS( 28, 18) = 0.162452E+00
- PKER_RACCSS( 28, 19) = 0.128861E+00
- PKER_RACCSS( 28, 20) = 0.138936E+00
- PKER_RACCSS( 28, 21) = 0.176459E+00
- PKER_RACCSS( 28, 22) = 0.222625E+00
- PKER_RACCSS( 28, 23) = 0.265456E+00
- PKER_RACCSS( 28, 24) = 0.301332E+00
- PKER_RACCSS( 28, 25) = 0.330667E+00
- PKER_RACCSS( 28, 26) = 0.354619E+00
- PKER_RACCSS( 28, 27) = 0.374211E+00
- PKER_RACCSS( 28, 28) = 0.390266E+00
- PKER_RACCSS( 28, 29) = 0.403443E+00
- PKER_RACCSS( 28, 30) = 0.414273E+00
- PKER_RACCSS( 28, 31) = 0.423185E+00
- PKER_RACCSS( 28, 32) = 0.430527E+00
- PKER_RACCSS( 28, 33) = 0.436580E+00
- PKER_RACCSS( 28, 34) = 0.441573E+00
- PKER_RACCSS( 28, 35) = 0.445696E+00
- PKER_RACCSS( 28, 36) = 0.449101E+00
- PKER_RACCSS( 28, 37) = 0.451914E+00
- PKER_RACCSS( 28, 38) = 0.454239E+00
- PKER_RACCSS( 28, 39) = 0.456161E+00
- PKER_RACCSS( 28, 40) = 0.457750E+00
- PKER_RACCSS( 29, 1) = 0.151936E+02
- PKER_RACCSS( 29, 2) = 0.124845E+02
- PKER_RACCSS( 29, 3) = 0.102410E+02
- PKER_RACCSS( 29, 4) = 0.838316E+01
- PKER_RACCSS( 29, 5) = 0.684451E+01
- PKER_RACCSS( 29, 6) = 0.557018E+01
- PKER_RACCSS( 29, 7) = 0.451475E+01
- PKER_RACCSS( 29, 8) = 0.364064E+01
- PKER_RACCSS( 29, 9) = 0.291680E+01
- PKER_RACCSS( 29, 10) = 0.231756E+01
- PKER_RACCSS( 29, 11) = 0.182172E+01
- PKER_RACCSS( 29, 12) = 0.141183E+01
- PKER_RACCSS( 29, 13) = 0.107359E+01
- PKER_RACCSS( 29, 14) = 0.795449E+00
- PKER_RACCSS( 29, 15) = 0.568820E+00
- PKER_RACCSS( 29, 16) = 0.388406E+00
- PKER_RACCSS( 29, 17) = 0.253055E+00
- PKER_RACCSS( 29, 18) = 0.165100E+00
- PKER_RACCSS( 29, 19) = 0.126486E+00
- PKER_RACCSS( 29, 20) = 0.132218E+00
- PKER_RACCSS( 29, 21) = 0.167127E+00
- PKER_RACCSS( 29, 22) = 0.212335E+00
- PKER_RACCSS( 29, 23) = 0.254984E+00
- PKER_RACCSS( 29, 24) = 0.290865E+00
- PKER_RACCSS( 29, 25) = 0.320207E+00
- PKER_RACCSS( 29, 26) = 0.344152E+00
- PKER_RACCSS( 29, 27) = 0.363727E+00
- PKER_RACCSS( 29, 28) = 0.379760E+00
- PKER_RACCSS( 29, 29) = 0.392914E+00
- PKER_RACCSS( 29, 30) = 0.403723E+00
- PKER_RACCSS( 29, 31) = 0.412615E+00
- PKER_RACCSS( 29, 32) = 0.419938E+00
- PKER_RACCSS( 29, 33) = 0.425976E+00
- PKER_RACCSS( 29, 34) = 0.430956E+00
- PKER_RACCSS( 29, 35) = 0.435068E+00
- PKER_RACCSS( 29, 36) = 0.438464E+00
- PKER_RACCSS( 29, 37) = 0.441269E+00
- PKER_RACCSS( 29, 38) = 0.443588E+00
- PKER_RACCSS( 29, 39) = 0.445506E+00
- PKER_RACCSS( 29, 40) = 0.447091E+00
- PKER_RACCSS( 30, 1) = 0.152092E+02
- PKER_RACCSS( 30, 2) = 0.125003E+02
- PKER_RACCSS( 30, 3) = 0.102571E+02
- PKER_RACCSS( 30, 4) = 0.839954E+01
- PKER_RACCSS( 30, 5) = 0.686114E+01
- PKER_RACCSS( 30, 6) = 0.558706E+01
- PKER_RACCSS( 30, 7) = 0.453184E+01
- PKER_RACCSS( 30, 8) = 0.365791E+01
- PKER_RACCSS( 30, 9) = 0.293420E+01
- PKER_RACCSS( 30, 10) = 0.233502E+01
- PKER_RACCSS( 30, 11) = 0.183917E+01
- PKER_RACCSS( 30, 12) = 0.142914E+01
- PKER_RACCSS( 30, 13) = 0.109060E+01
- PKER_RACCSS( 30, 14) = 0.811894E+00
- PKER_RACCSS( 30, 15) = 0.584240E+00
- PKER_RACCSS( 30, 16) = 0.401963E+00
- PKER_RACCSS( 30, 17) = 0.263204E+00
- PKER_RACCSS( 30, 18) = 0.170121E+00
- PKER_RACCSS( 30, 19) = 0.125069E+00
- PKER_RACCSS( 30, 20) = 0.124997E+00
- PKER_RACCSS( 30, 21) = 0.156156E+00
- PKER_RACCSS( 30, 22) = 0.199916E+00
- PKER_RACCSS( 30, 23) = 0.242350E+00
- PKER_RACCSS( 30, 24) = 0.278332E+00
- PKER_RACCSS( 30, 25) = 0.307780E+00
- PKER_RACCSS( 30, 26) = 0.331793E+00
- PKER_RACCSS( 30, 27) = 0.351410E+00
- PKER_RACCSS( 30, 28) = 0.367466E+00
- PKER_RACCSS( 30, 29) = 0.380631E+00
- PKER_RACCSS( 30, 30) = 0.391442E+00
- PKER_RACCSS( 30, 31) = 0.400333E+00
- PKER_RACCSS( 30, 32) = 0.407654E+00
- PKER_RACCSS( 30, 33) = 0.413687E+00
- PKER_RACCSS( 30, 34) = 0.418663E+00
- PKER_RACCSS( 30, 35) = 0.422770E+00
- PKER_RACCSS( 30, 36) = 0.426162E+00
- PKER_RACCSS( 30, 37) = 0.428964E+00
- PKER_RACCSS( 30, 38) = 0.431280E+00
- PKER_RACCSS( 30, 39) = 0.433195E+00
- PKER_RACCSS( 30, 40) = 0.434778E+00
- PKER_RACCSS( 31, 1) = 0.152168E+02
- PKER_RACCSS( 31, 2) = 0.125081E+02
- PKER_RACCSS( 31, 3) = 0.102650E+02
- PKER_RACCSS( 31, 4) = 0.840757E+01
- PKER_RACCSS( 31, 5) = 0.686932E+01
- PKER_RACCSS( 31, 6) = 0.559536E+01
- PKER_RACCSS( 31, 7) = 0.454028E+01
- PKER_RACCSS( 31, 8) = 0.366647E+01
- PKER_RACCSS( 31, 9) = 0.294286E+01
- PKER_RACCSS( 31, 10) = 0.234375E+01
- PKER_RACCSS( 31, 11) = 0.184793E+01
- PKER_RACCSS( 31, 12) = 0.143790E+01
- PKER_RACCSS( 31, 13) = 0.109928E+01
- PKER_RACCSS( 31, 14) = 0.820370E+00
- PKER_RACCSS( 31, 15) = 0.592284E+00
- PKER_RACCSS( 31, 16) = 0.409147E+00
- PKER_RACCSS( 31, 17) = 0.268707E+00
- PKER_RACCSS( 31, 18) = 0.172988E+00
- PKER_RACCSS( 31, 19) = 0.124548E+00
- PKER_RACCSS( 31, 20) = 0.121193E+00
- PKER_RACCSS( 31, 21) = 0.150187E+00
- PKER_RACCSS( 31, 22) = 0.193042E+00
- PKER_RACCSS( 31, 23) = 0.235298E+00
- PKER_RACCSS( 31, 24) = 0.271298E+00
- PKER_RACCSS( 31, 25) = 0.300774E+00
- PKER_RACCSS( 31, 26) = 0.324800E+00
- PKER_RACCSS( 31, 27) = 0.344418E+00
- PKER_RACCSS( 31, 28) = 0.360469E+00
- PKER_RACCSS( 31, 29) = 0.373626E+00
- PKER_RACCSS( 31, 30) = 0.384427E+00
- PKER_RACCSS( 31, 31) = 0.393308E+00
- PKER_RACCSS( 31, 32) = 0.400619E+00
- PKER_RACCSS( 31, 33) = 0.406643E+00
- PKER_RACCSS( 31, 34) = 0.411612E+00
- PKER_RACCSS( 31, 35) = 0.415713E+00
- PKER_RACCSS( 31, 36) = 0.419099E+00
- PKER_RACCSS( 31, 37) = 0.421897E+00
- PKER_RACCSS( 31, 38) = 0.424209E+00
- PKER_RACCSS( 31, 39) = 0.426121E+00
- PKER_RACCSS( 31, 40) = 0.427702E+00
- PKER_RACCSS( 32, 1) = 0.152212E+02
- PKER_RACCSS( 32, 2) = 0.125125E+02
- PKER_RACCSS( 32, 3) = 0.102696E+02
- PKER_RACCSS( 32, 4) = 0.841222E+01
- PKER_RACCSS( 32, 5) = 0.687405E+01
- PKER_RACCSS( 32, 6) = 0.560018E+01
- PKER_RACCSS( 32, 7) = 0.454517E+01
- PKER_RACCSS( 32, 8) = 0.367144E+01
- PKER_RACCSS( 32, 9) = 0.294789E+01
- PKER_RACCSS( 32, 10) = 0.234884E+01
- PKER_RACCSS( 32, 11) = 0.185306E+01
- PKER_RACCSS( 32, 12) = 0.144305E+01
- PKER_RACCSS( 32, 13) = 0.110439E+01
- PKER_RACCSS( 32, 14) = 0.825390E+00
- PKER_RACCSS( 32, 15) = 0.597084E+00
- PKER_RACCSS( 32, 16) = 0.413476E+00
- PKER_RACCSS( 32, 17) = 0.272077E+00
- PKER_RACCSS( 32, 18) = 0.174803E+00
- PKER_RACCSS( 32, 19) = 0.124293E+00
- PKER_RACCSS( 32, 20) = 0.118931E+00
- PKER_RACCSS( 32, 21) = 0.146554E+00
- PKER_RACCSS( 32, 22) = 0.188828E+00
- PKER_RACCSS( 32, 23) = 0.230954E+00
- PKER_RACCSS( 32, 24) = 0.266952E+00
- PKER_RACCSS( 32, 25) = 0.296435E+00
- PKER_RACCSS( 32, 26) = 0.320462E+00
- PKER_RACCSS( 32, 27) = 0.340075E+00
- PKER_RACCSS( 32, 28) = 0.356117E+00
- PKER_RACCSS( 32, 29) = 0.369263E+00
- PKER_RACCSS( 32, 30) = 0.380055E+00
- PKER_RACCSS( 32, 31) = 0.388926E+00
- PKER_RACCSS( 32, 32) = 0.396228E+00
- PKER_RACCSS( 32, 33) = 0.402245E+00
- PKER_RACCSS( 32, 34) = 0.407208E+00
- PKER_RACCSS( 32, 35) = 0.411303E+00
- PKER_RACCSS( 32, 36) = 0.414685E+00
- PKER_RACCSS( 32, 37) = 0.417479E+00
- PKER_RACCSS( 32, 38) = 0.419788E+00
- PKER_RACCSS( 32, 39) = 0.421697E+00
- PKER_RACCSS( 32, 40) = 0.423276E+00
- PKER_RACCSS( 33, 1) = 0.152252E+02
- PKER_RACCSS( 33, 2) = 0.125166E+02
- PKER_RACCSS( 33, 3) = 0.102737E+02
- PKER_RACCSS( 33, 4) = 0.841642E+01
- PKER_RACCSS( 33, 5) = 0.687832E+01
- PKER_RACCSS( 33, 6) = 0.560452E+01
- PKER_RACCSS( 33, 7) = 0.454958E+01
- PKER_RACCSS( 33, 8) = 0.367590E+01
- PKER_RACCSS( 33, 9) = 0.295241E+01
- PKER_RACCSS( 33, 10) = 0.235339E+01
- PKER_RACCSS( 33, 11) = 0.185763E+01
- PKER_RACCSS( 33, 12) = 0.144761E+01
- PKER_RACCSS( 33, 13) = 0.110891E+01
- PKER_RACCSS( 33, 14) = 0.829809E+00
- PKER_RACCSS( 33, 15) = 0.601298E+00
- PKER_RACCSS( 33, 16) = 0.417299E+00
- PKER_RACCSS( 33, 17) = 0.275084E+00
- PKER_RACCSS( 33, 18) = 0.176517E+00
- PKER_RACCSS( 33, 19) = 0.124255E+00
- PKER_RACCSS( 33, 20) = 0.117165E+00
- PKER_RACCSS( 33, 21) = 0.143564E+00
- PKER_RACCSS( 33, 22) = 0.185315E+00
- PKER_RACCSS( 33, 23) = 0.227330E+00
- PKER_RACCSS( 33, 24) = 0.263338E+00
- PKER_RACCSS( 33, 25) = 0.292840E+00
- PKER_RACCSS( 33, 26) = 0.316875E+00
- PKER_RACCSS( 33, 27) = 0.336491E+00
- PKER_RACCSS( 33, 28) = 0.352533E+00
- PKER_RACCSS( 33, 29) = 0.365676E+00
- PKER_RACCSS( 33, 30) = 0.376463E+00
- PKER_RACCSS( 33, 31) = 0.385329E+00
- PKER_RACCSS( 33, 32) = 0.392627E+00
- PKER_RACCSS( 33, 33) = 0.398639E+00
- PKER_RACCSS( 33, 34) = 0.403598E+00
- PKER_RACCSS( 33, 35) = 0.407690E+00
- PKER_RACCSS( 33, 36) = 0.411069E+00
- PKER_RACCSS( 33, 37) = 0.413860E+00
- PKER_RACCSS( 33, 38) = 0.416168E+00
- PKER_RACCSS( 33, 39) = 0.418075E+00
- PKER_RACCSS( 33, 40) = 0.419653E+00
- PKER_RACCSS( 34, 1) = 0.152248E+02
- PKER_RACCSS( 34, 2) = 0.125162E+02
- PKER_RACCSS( 34, 3) = 0.102733E+02
- PKER_RACCSS( 34, 4) = 0.841600E+01
- PKER_RACCSS( 34, 5) = 0.687791E+01
- PKER_RACCSS( 34, 6) = 0.560412E+01
- PKER_RACCSS( 34, 7) = 0.454919E+01
- PKER_RACCSS( 34, 8) = 0.367553E+01
- PKER_RACCSS( 34, 9) = 0.295206E+01
- PKER_RACCSS( 34, 10) = 0.235307E+01
- PKER_RACCSS( 34, 11) = 0.185734E+01
- PKER_RACCSS( 34, 12) = 0.144736E+01
- PKER_RACCSS( 34, 13) = 0.110872E+01
- PKER_RACCSS( 34, 14) = 0.829656E+00
- PKER_RACCSS( 34, 15) = 0.601205E+00
- PKER_RACCSS( 34, 16) = 0.417236E+00
- PKER_RACCSS( 34, 17) = 0.275045E+00
- PKER_RACCSS( 34, 18) = 0.176424E+00
- PKER_RACCSS( 34, 19) = 0.124044E+00
- PKER_RACCSS( 34, 20) = 0.116894E+00
- PKER_RACCSS( 34, 21) = 0.143258E+00
- PKER_RACCSS( 34, 22) = 0.184999E+00
- PKER_RACCSS( 34, 23) = 0.226991E+00
- PKER_RACCSS( 34, 24) = 0.262972E+00
- PKER_RACCSS( 34, 25) = 0.292447E+00
- PKER_RACCSS( 34, 26) = 0.316461E+00
- PKER_RACCSS( 34, 27) = 0.336058E+00
- PKER_RACCSS( 34, 28) = 0.352084E+00
- PKER_RACCSS( 34, 29) = 0.365214E+00
- PKER_RACCSS( 34, 30) = 0.375991E+00
- PKER_RACCSS( 34, 31) = 0.384849E+00
- PKER_RACCSS( 34, 32) = 0.392140E+00
- PKER_RACCSS( 34, 33) = 0.398147E+00
- PKER_RACCSS( 34, 34) = 0.403101E+00
- PKER_RACCSS( 34, 35) = 0.407190E+00
- PKER_RACCSS( 34, 36) = 0.410566E+00
- PKER_RACCSS( 34, 37) = 0.413355E+00
- PKER_RACCSS( 34, 38) = 0.415661E+00
- PKER_RACCSS( 34, 39) = 0.417567E+00
- PKER_RACCSS( 34, 40) = 0.419144E+00
- PKER_RACCSS( 35, 1) = 0.152287E+02
- PKER_RACCSS( 35, 2) = 0.125202E+02
- PKER_RACCSS( 35, 3) = 0.102773E+02
- PKER_RACCSS( 35, 4) = 0.842010E+01
- PKER_RACCSS( 35, 5) = 0.688207E+01
- PKER_RACCSS( 35, 6) = 0.560834E+01
- PKER_RACCSS( 35, 7) = 0.455346E+01
- PKER_RACCSS( 35, 8) = 0.367984E+01
- PKER_RACCSS( 35, 9) = 0.295641E+01
- PKER_RACCSS( 35, 10) = 0.235744E+01
- PKER_RACCSS( 35, 11) = 0.186171E+01
- PKER_RACCSS( 35, 12) = 0.145171E+01
- PKER_RACCSS( 35, 13) = 0.111300E+01
- PKER_RACCSS( 35, 14) = 0.833823E+00
- PKER_RACCSS( 35, 15) = 0.605161E+00
- PKER_RACCSS( 35, 16) = 0.420842E+00
- PKER_RACCSS( 35, 17) = 0.277903E+00
- PKER_RACCSS( 35, 18) = 0.178147E+00
- PKER_RACCSS( 35, 19) = 0.124171E+00
- PKER_RACCSS( 35, 20) = 0.115464E+00
- PKER_RACCSS( 35, 21) = 0.140674E+00
- PKER_RACCSS( 35, 22) = 0.181919E+00
- PKER_RACCSS( 35, 23) = 0.223809E+00
- PKER_RACCSS( 35, 24) = 0.259812E+00
- PKER_RACCSS( 35, 25) = 0.289318E+00
- PKER_RACCSS( 35, 26) = 0.313352E+00
- PKER_RACCSS( 35, 27) = 0.332962E+00
- PKER_RACCSS( 35, 28) = 0.348995E+00
- PKER_RACCSS( 35, 29) = 0.362129E+00
- PKER_RACCSS( 35, 30) = 0.372907E+00
- PKER_RACCSS( 35, 31) = 0.381764E+00
- PKER_RACCSS( 35, 32) = 0.389054E+00
- PKER_RACCSS( 35, 33) = 0.395060E+00
- PKER_RACCSS( 35, 34) = 0.400012E+00
- PKER_RACCSS( 35, 35) = 0.404099E+00
- PKER_RACCSS( 35, 36) = 0.407474E+00
- PKER_RACCSS( 35, 37) = 0.410263E+00
- PKER_RACCSS( 35, 38) = 0.412567E+00
- PKER_RACCSS( 35, 39) = 0.414473E+00
- PKER_RACCSS( 35, 40) = 0.416049E+00
- PKER_RACCSS( 36, 1) = 0.152383E+02
- PKER_RACCSS( 36, 2) = 0.125299E+02
- PKER_RACCSS( 36, 3) = 0.102873E+02
- PKER_RACCSS( 36, 4) = 0.843016E+01
- PKER_RACCSS( 36, 5) = 0.689226E+01
- PKER_RACCSS( 36, 6) = 0.561865E+01
- PKER_RACCSS( 36, 7) = 0.456388E+01
- PKER_RACCSS( 36, 8) = 0.369036E+01
- PKER_RACCSS( 36, 9) = 0.296698E+01
- PKER_RACCSS( 36, 10) = 0.236804E+01
- PKER_RACCSS( 36, 11) = 0.187228E+01
- PKER_RACCSS( 36, 12) = 0.146219E+01
- PKER_RACCSS( 36, 13) = 0.112330E+01
- PKER_RACCSS( 36, 14) = 0.843833E+00
- PKER_RACCSS( 36, 15) = 0.614630E+00
- PKER_RACCSS( 36, 16) = 0.429489E+00
- PKER_RACCSS( 36, 17) = 0.284782E+00
- PKER_RACCSS( 36, 18) = 0.182494E+00
- PKER_RACCSS( 36, 19) = 0.124882E+00
- PKER_RACCSS( 36, 20) = 0.112591E+00
- PKER_RACCSS( 36, 21) = 0.135019E+00
- PKER_RACCSS( 36, 22) = 0.174978E+00
- PKER_RACCSS( 36, 23) = 0.216615E+00
- PKER_RACCSS( 36, 24) = 0.252695E+00
- PKER_RACCSS( 36, 25) = 0.282303E+00
- PKER_RACCSS( 36, 26) = 0.306412E+00
- PKER_RACCSS( 36, 27) = 0.326073E+00
- PKER_RACCSS( 36, 28) = 0.342140E+00
- PKER_RACCSS( 36, 29) = 0.355295E+00
- PKER_RACCSS( 36, 30) = 0.366087E+00
- PKER_RACCSS( 36, 31) = 0.374952E+00
- PKER_RACCSS( 36, 32) = 0.382247E+00
- PKER_RACCSS( 36, 33) = 0.388255E+00
- PKER_RACCSS( 36, 34) = 0.393208E+00
- PKER_RACCSS( 36, 35) = 0.397296E+00
- PKER_RACCSS( 36, 36) = 0.400670E+00
- PKER_RACCSS( 36, 37) = 0.403458E+00
- PKER_RACCSS( 36, 38) = 0.405763E+00
- PKER_RACCSS( 36, 39) = 0.407668E+00
- PKER_RACCSS( 36, 40) = 0.409243E+00
- PKER_RACCSS( 37, 1) = 0.000000E+00
- PKER_RACCSS( 37, 2) = 0.000000E+00
- PKER_RACCSS( 37, 3) = 0.000000E+00
- PKER_RACCSS( 37, 4) = 0.000000E+00
- PKER_RACCSS( 37, 5) = 0.000000E+00
- PKER_RACCSS( 37, 6) = 0.000000E+00
- PKER_RACCSS( 37, 7) = 0.000000E+00
- PKER_RACCSS( 37, 8) = 0.000000E+00
- PKER_RACCSS( 37, 9) = 0.000000E+00
- PKER_RACCSS( 37, 10) = 0.000000E+00
- PKER_RACCSS( 37, 11) = 0.000000E+00
- PKER_RACCSS( 37, 12) = 0.000000E+00
- PKER_RACCSS( 37, 13) = 0.000000E+00
- PKER_RACCSS( 37, 14) = 0.000000E+00
- PKER_RACCSS( 37, 15) = 0.000000E+00
- PKER_RACCSS( 37, 16) = 0.000000E+00
- PKER_RACCSS( 37, 17) = 0.000000E+00
- PKER_RACCSS( 37, 18) = 0.000000E+00
- PKER_RACCSS( 37, 19) = 0.000000E+00
- PKER_RACCSS( 37, 20) = 0.000000E+00
- PKER_RACCSS( 37, 21) = 0.000000E+00
- PKER_RACCSS( 37, 22) = 0.000000E+00
- PKER_RACCSS( 37, 23) = 0.000000E+00
- PKER_RACCSS( 37, 24) = 0.000000E+00
- PKER_RACCSS( 37, 25) = 0.000000E+00
- PKER_RACCSS( 37, 26) = 0.000000E+00
- PKER_RACCSS( 37, 27) = 0.000000E+00
- PKER_RACCSS( 37, 28) = 0.000000E+00
- PKER_RACCSS( 37, 29) = 0.000000E+00
- PKER_RACCSS( 37, 30) = 0.000000E+00
- PKER_RACCSS( 37, 31) = 0.000000E+00
- PKER_RACCSS( 37, 32) = 0.000000E+00
- PKER_RACCSS( 37, 33) = 0.000000E+00
- PKER_RACCSS( 37, 34) = 0.000000E+00
- PKER_RACCSS( 37, 35) = 0.000000E+00
- PKER_RACCSS( 37, 36) = 0.000000E+00
- PKER_RACCSS( 37, 37) = 0.000000E+00
- PKER_RACCSS( 37, 38) = 0.000000E+00
- PKER_RACCSS( 37, 39) = 0.000000E+00
- PKER_RACCSS( 37, 40) = 0.000000E+00
- PKER_RACCSS( 38, 1) = 0.000000E+00
- PKER_RACCSS( 38, 2) = 0.000000E+00
- PKER_RACCSS( 38, 3) = 0.000000E+00
- PKER_RACCSS( 38, 4) = 0.000000E+00
- PKER_RACCSS( 38, 5) = 0.000000E+00
- PKER_RACCSS( 38, 6) = 0.000000E+00
- PKER_RACCSS( 38, 7) = 0.000000E+00
- PKER_RACCSS( 38, 8) = 0.000000E+00
- PKER_RACCSS( 38, 9) = 0.000000E+00
- PKER_RACCSS( 38, 10) = 0.000000E+00
- PKER_RACCSS( 38, 11) = 0.000000E+00
- PKER_RACCSS( 38, 12) = 0.000000E+00
- PKER_RACCSS( 38, 13) = 0.000000E+00
- PKER_RACCSS( 38, 14) = 0.000000E+00
- PKER_RACCSS( 38, 15) = 0.000000E+00
- PKER_RACCSS( 38, 16) = 0.000000E+00
- PKER_RACCSS( 38, 17) = 0.000000E+00
- PKER_RACCSS( 38, 18) = 0.000000E+00
- PKER_RACCSS( 38, 19) = 0.000000E+00
- PKER_RACCSS( 38, 20) = 0.000000E+00
- PKER_RACCSS( 38, 21) = 0.000000E+00
- PKER_RACCSS( 38, 22) = 0.000000E+00
- PKER_RACCSS( 38, 23) = 0.000000E+00
- PKER_RACCSS( 38, 24) = 0.000000E+00
- PKER_RACCSS( 38, 25) = 0.000000E+00
- PKER_RACCSS( 38, 26) = 0.000000E+00
- PKER_RACCSS( 38, 27) = 0.000000E+00
- PKER_RACCSS( 38, 28) = 0.000000E+00
- PKER_RACCSS( 38, 29) = 0.000000E+00
- PKER_RACCSS( 38, 30) = 0.000000E+00
- PKER_RACCSS( 38, 31) = 0.000000E+00
- PKER_RACCSS( 38, 32) = 0.000000E+00
- PKER_RACCSS( 38, 33) = 0.000000E+00
- PKER_RACCSS( 38, 34) = 0.000000E+00
- PKER_RACCSS( 38, 35) = 0.000000E+00
- PKER_RACCSS( 38, 36) = 0.000000E+00
- PKER_RACCSS( 38, 37) = 0.000000E+00
- PKER_RACCSS( 38, 38) = 0.000000E+00
- PKER_RACCSS( 38, 39) = 0.000000E+00
- PKER_RACCSS( 38, 40) = 0.000000E+00
- PKER_RACCSS( 39, 1) = 0.000000E+00
- PKER_RACCSS( 39, 2) = 0.000000E+00
- PKER_RACCSS( 39, 3) = 0.000000E+00
- PKER_RACCSS( 39, 4) = 0.000000E+00
- PKER_RACCSS( 39, 5) = 0.000000E+00
- PKER_RACCSS( 39, 6) = 0.000000E+00
- PKER_RACCSS( 39, 7) = 0.000000E+00
- PKER_RACCSS( 39, 8) = 0.000000E+00
- PKER_RACCSS( 39, 9) = 0.000000E+00
- PKER_RACCSS( 39, 10) = 0.000000E+00
- PKER_RACCSS( 39, 11) = 0.000000E+00
- PKER_RACCSS( 39, 12) = 0.000000E+00
- PKER_RACCSS( 39, 13) = 0.000000E+00
- PKER_RACCSS( 39, 14) = 0.000000E+00
- PKER_RACCSS( 39, 15) = 0.000000E+00
- PKER_RACCSS( 39, 16) = 0.000000E+00
- PKER_RACCSS( 39, 17) = 0.000000E+00
- PKER_RACCSS( 39, 18) = 0.000000E+00
- PKER_RACCSS( 39, 19) = 0.000000E+00
- PKER_RACCSS( 39, 20) = 0.000000E+00
- PKER_RACCSS( 39, 21) = 0.000000E+00
- PKER_RACCSS( 39, 22) = 0.000000E+00
- PKER_RACCSS( 39, 23) = 0.000000E+00
- PKER_RACCSS( 39, 24) = 0.000000E+00
- PKER_RACCSS( 39, 25) = 0.000000E+00
- PKER_RACCSS( 39, 26) = 0.000000E+00
- PKER_RACCSS( 39, 27) = 0.000000E+00
- PKER_RACCSS( 39, 28) = 0.000000E+00
- PKER_RACCSS( 39, 29) = 0.000000E+00
- PKER_RACCSS( 39, 30) = 0.000000E+00
- PKER_RACCSS( 39, 31) = 0.000000E+00
- PKER_RACCSS( 39, 32) = 0.000000E+00
- PKER_RACCSS( 39, 33) = 0.000000E+00
- PKER_RACCSS( 39, 34) = 0.000000E+00
- PKER_RACCSS( 39, 35) = 0.000000E+00
- PKER_RACCSS( 39, 36) = 0.000000E+00
- PKER_RACCSS( 39, 37) = 0.000000E+00
- PKER_RACCSS( 39, 38) = 0.000000E+00
- PKER_RACCSS( 39, 39) = 0.000000E+00
- PKER_RACCSS( 39, 40) = 0.000000E+00
- PKER_RACCSS( 40, 1) = 0.000000E+00
- PKER_RACCSS( 40, 2) = 0.000000E+00
- PKER_RACCSS( 40, 3) = 0.000000E+00
- PKER_RACCSS( 40, 4) = 0.000000E+00
- PKER_RACCSS( 40, 5) = 0.000000E+00
- PKER_RACCSS( 40, 6) = 0.000000E+00
- PKER_RACCSS( 40, 7) = 0.000000E+00
- PKER_RACCSS( 40, 8) = 0.000000E+00
- PKER_RACCSS( 40, 9) = 0.000000E+00
- PKER_RACCSS( 40, 10) = 0.000000E+00
- PKER_RACCSS( 40, 11) = 0.000000E+00
- PKER_RACCSS( 40, 12) = 0.000000E+00
- PKER_RACCSS( 40, 13) = 0.000000E+00
- PKER_RACCSS( 40, 14) = 0.000000E+00
- PKER_RACCSS( 40, 15) = 0.000000E+00
- PKER_RACCSS( 40, 16) = 0.000000E+00
- PKER_RACCSS( 40, 17) = 0.000000E+00
- PKER_RACCSS( 40, 18) = 0.000000E+00
- PKER_RACCSS( 40, 19) = 0.000000E+00
- PKER_RACCSS( 40, 20) = 0.000000E+00
- PKER_RACCSS( 40, 21) = 0.000000E+00
- PKER_RACCSS( 40, 22) = 0.000000E+00
- PKER_RACCSS( 40, 23) = 0.000000E+00
- PKER_RACCSS( 40, 24) = 0.000000E+00
- PKER_RACCSS( 40, 25) = 0.000000E+00
- PKER_RACCSS( 40, 26) = 0.000000E+00
- PKER_RACCSS( 40, 27) = 0.000000E+00
- PKER_RACCSS( 40, 28) = 0.000000E+00
- PKER_RACCSS( 40, 29) = 0.000000E+00
- PKER_RACCSS( 40, 30) = 0.000000E+00
- PKER_RACCSS( 40, 31) = 0.000000E+00
- PKER_RACCSS( 40, 32) = 0.000000E+00
- PKER_RACCSS( 40, 33) = 0.000000E+00
- PKER_RACCSS( 40, 34) = 0.000000E+00
- PKER_RACCSS( 40, 35) = 0.000000E+00
- PKER_RACCSS( 40, 36) = 0.000000E+00
- PKER_RACCSS( 40, 37) = 0.000000E+00
- PKER_RACCSS( 40, 38) = 0.000000E+00
- PKER_RACCSS( 40, 39) = 0.000000E+00
- PKER_RACCSS( 40, 40) = 0.000000E+00
+ PKER_RACCSS( 1, 1) = 0.528720E+01
+ PKER_RACCSS( 1, 2) = 0.398400E+01
+ PKER_RACCSS( 1, 3) = 0.302895E+01
+ PKER_RACCSS( 1, 4) = 0.237465E+01
+ PKER_RACCSS( 1, 5) = 0.195524E+01
+ PKER_RACCSS( 1, 6) = 0.168792E+01
+ PKER_RACCSS( 1, 7) = 0.148845E+01
+ PKER_RACCSS( 1, 8) = 0.129468E+01
+ PKER_RACCSS( 1, 9) = 0.107972E+01
+ PKER_RACCSS( 1, 10) = 0.850496E+00
+ PKER_RACCSS( 1, 11) = 0.634891E+00
+ PKER_RACCSS( 1, 12) = 0.467411E+00
+ PKER_RACCSS( 1, 13) = 0.375075E+00
+ PKER_RACCSS( 1, 14) = 0.365360E+00
+ PKER_RACCSS( 1, 15) = 0.423666E+00
+ PKER_RACCSS( 1, 16) = 0.520234E+00
+ PKER_RACCSS( 1, 17) = 0.626529E+00
+ PKER_RACCSS( 1, 18) = 0.724955E+00
+ PKER_RACCSS( 1, 19) = 0.809322E+00
+ PKER_RACCSS( 1, 20) = 0.879615E+00
+ PKER_RACCSS( 1, 21) = 0.937740E+00
+ PKER_RACCSS( 1, 22) = 0.985750E+00
+ PKER_RACCSS( 1, 23) = 0.102541E+01
+ PKER_RACCSS( 1, 24) = 0.105819E+01
+ PKER_RACCSS( 1, 25) = 0.108529E+01
+ PKER_RACCSS( 1, 26) = 0.110769E+01
+ PKER_RACCSS( 1, 27) = 0.112622E+01
+ PKER_RACCSS( 1, 28) = 0.114154E+01
+ PKER_RACCSS( 1, 29) = 0.115421E+01
+ PKER_RACCSS( 1, 30) = 0.116470E+01
+ PKER_RACCSS( 1, 31) = 0.117337E+01
+ PKER_RACCSS( 1, 32) = 0.118055E+01
+ PKER_RACCSS( 1, 33) = 0.118649E+01
+ PKER_RACCSS( 1, 34) = 0.119140E+01
+ PKER_RACCSS( 1, 35) = 0.119547E+01
+ PKER_RACCSS( 1, 36) = 0.119883E+01
+ PKER_RACCSS( 1, 37) = 0.120161E+01
+ PKER_RACCSS( 1, 38) = 0.120392E+01
+ PKER_RACCSS( 1, 39) = 0.120583E+01
+ PKER_RACCSS( 1, 40) = 0.120740E+01
+ PKER_RACCSS( 2, 1) = 0.554890E+01
+ PKER_RACCSS( 2, 2) = 0.418321E+01
+ PKER_RACCSS( 2, 3) = 0.314889E+01
+ PKER_RACCSS( 2, 4) = 0.240737E+01
+ PKER_RACCSS( 2, 5) = 0.190943E+01
+ PKER_RACCSS( 2, 6) = 0.158958E+01
+ PKER_RACCSS( 2, 7) = 0.137235E+01
+ PKER_RACCSS( 2, 8) = 0.119098E+01
+ PKER_RACCSS( 2, 9) = 0.100482E+01
+ PKER_RACCSS( 2, 10) = 0.805920E+00
+ PKER_RACCSS( 2, 11) = 0.611576E+00
+ PKER_RACCSS( 2, 12) = 0.452139E+00
+ PKER_RACCSS( 2, 13) = 0.356504E+00
+ PKER_RACCSS( 2, 14) = 0.337999E+00
+ PKER_RACCSS( 2, 15) = 0.387823E+00
+ PKER_RACCSS( 2, 16) = 0.479092E+00
+ PKER_RACCSS( 2, 17) = 0.582883E+00
+ PKER_RACCSS( 2, 18) = 0.680501E+00
+ PKER_RACCSS( 2, 19) = 0.764817E+00
+ PKER_RACCSS( 2, 20) = 0.835258E+00
+ PKER_RACCSS( 2, 21) = 0.893531E+00
+ PKER_RACCSS( 2, 22) = 0.941654E+00
+ PKER_RACCSS( 2, 23) = 0.981400E+00
+ PKER_RACCSS( 2, 24) = 0.101424E+01
+ PKER_RACCSS( 2, 25) = 0.104138E+01
+ PKER_RACCSS( 2, 26) = 0.106382E+01
+ PKER_RACCSS( 2, 27) = 0.108237E+01
+ PKER_RACCSS( 2, 28) = 0.109771E+01
+ PKER_RACCSS( 2, 29) = 0.111040E+01
+ PKER_RACCSS( 2, 30) = 0.112090E+01
+ PKER_RACCSS( 2, 31) = 0.112958E+01
+ PKER_RACCSS( 2, 32) = 0.113676E+01
+ PKER_RACCSS( 2, 33) = 0.114271E+01
+ PKER_RACCSS( 2, 34) = 0.114763E+01
+ PKER_RACCSS( 2, 35) = 0.115170E+01
+ PKER_RACCSS( 2, 36) = 0.115506E+01
+ PKER_RACCSS( 2, 37) = 0.115785E+01
+ PKER_RACCSS( 2, 38) = 0.116015E+01
+ PKER_RACCSS( 2, 39) = 0.116206E+01
+ PKER_RACCSS( 2, 40) = 0.116364E+01
+ PKER_RACCSS( 3, 1) = 0.777160E+01
+ PKER_RACCSS( 3, 2) = 0.595032E+01
+ PKER_RACCSS( 3, 3) = 0.451790E+01
+ PKER_RACCSS( 3, 4) = 0.342854E+01
+ PKER_RACCSS( 3, 5) = 0.263483E+01
+ PKER_RACCSS( 3, 6) = 0.207865E+01
+ PKER_RACCSS( 3, 7) = 0.168958E+01
+ PKER_RACCSS( 3, 8) = 0.139680E+01
+ PKER_RACCSS( 3, 9) = 0.114514E+01
+ PKER_RACCSS( 3, 10) = 0.908247E+00
+ PKER_RACCSS( 3, 11) = 0.687947E+00
+ PKER_RACCSS( 3, 12) = 0.504752E+00
+ PKER_RACCSS( 3, 13) = 0.383293E+00
+ PKER_RACCSS( 3, 14) = 0.338906E+00
+ PKER_RACCSS( 3, 15) = 0.366909E+00
+ PKER_RACCSS( 3, 16) = 0.444356E+00
+ PKER_RACCSS( 3, 17) = 0.541950E+00
+ PKER_RACCSS( 3, 18) = 0.637739E+00
+ PKER_RACCSS( 3, 19) = 0.721828E+00
+ PKER_RACCSS( 3, 20) = 0.792410E+00
+ PKER_RACCSS( 3, 21) = 0.850846E+00
+ PKER_RACCSS( 3, 22) = 0.899095E+00
+ PKER_RACCSS( 3, 23) = 0.938935E+00
+ PKER_RACCSS( 3, 24) = 0.971843E+00
+ PKER_RACCSS( 3, 25) = 0.999035E+00
+ PKER_RACCSS( 3, 26) = 0.102151E+01
+ PKER_RACCSS( 3, 27) = 0.104009E+01
+ PKER_RACCSS( 3, 28) = 0.105546E+01
+ PKER_RACCSS( 3, 29) = 0.106816E+01
+ PKER_RACCSS( 3, 30) = 0.107867E+01
+ PKER_RACCSS( 3, 31) = 0.108736E+01
+ PKER_RACCSS( 3, 32) = 0.109455E+01
+ PKER_RACCSS( 3, 33) = 0.110050E+01
+ PKER_RACCSS( 3, 34) = 0.110543E+01
+ PKER_RACCSS( 3, 35) = 0.110950E+01
+ PKER_RACCSS( 3, 36) = 0.111287E+01
+ PKER_RACCSS( 3, 37) = 0.111566E+01
+ PKER_RACCSS( 3, 38) = 0.111797E+01
+ PKER_RACCSS( 3, 39) = 0.111987E+01
+ PKER_RACCSS( 3, 40) = 0.112145E+01
+ PKER_RACCSS( 4, 1) = 0.805774E+01
+ PKER_RACCSS( 4, 2) = 0.620290E+01
+ PKER_RACCSS( 4, 3) = 0.472252E+01
+ PKER_RACCSS( 4, 4) = 0.357131E+01
+ PKER_RACCSS( 4, 5) = 0.270794E+01
+ PKER_RACCSS( 4, 6) = 0.208624E+01
+ PKER_RACCSS( 4, 7) = 0.164932E+01
+ PKER_RACCSS( 4, 8) = 0.133402E+01
+ PKER_RACCSS( 4, 9) = 0.108366E+01
+ PKER_RACCSS( 4, 10) = 0.861948E+00
+ PKER_RACCSS( 4, 11) = 0.658666E+00
+ PKER_RACCSS( 4, 12) = 0.486621E+00
+ PKER_RACCSS( 4, 13) = 0.366890E+00
+ PKER_RACCSS( 4, 14) = 0.317418E+00
+ PKER_RACCSS( 4, 15) = 0.337862E+00
+ PKER_RACCSS( 4, 16) = 0.408677E+00
+ PKER_RACCSS( 4, 17) = 0.502267E+00
+ PKER_RACCSS( 4, 18) = 0.596480E+00
+ PKER_RACCSS( 4, 19) = 0.680297E+00
+ PKER_RACCSS( 4, 20) = 0.751009E+00
+ PKER_RACCSS( 4, 21) = 0.809622E+00
+ PKER_RACCSS( 4, 22) = 0.858012E+00
+ PKER_RACCSS( 4, 23) = 0.897956E+00
+ PKER_RACCSS( 4, 24) = 0.930941E+00
+ PKER_RACCSS( 4, 25) = 0.958191E+00
+ PKER_RACCSS( 4, 26) = 0.980709E+00
+ PKER_RACCSS( 4, 27) = 0.999322E+00
+ PKER_RACCSS( 4, 28) = 0.101471E+01
+ PKER_RACCSS( 4, 29) = 0.102743E+01
+ PKER_RACCSS( 4, 30) = 0.103796E+01
+ PKER_RACCSS( 4, 31) = 0.104666E+01
+ PKER_RACCSS( 4, 32) = 0.105386E+01
+ PKER_RACCSS( 4, 33) = 0.105982E+01
+ PKER_RACCSS( 4, 34) = 0.106474E+01
+ PKER_RACCSS( 4, 35) = 0.106882E+01
+ PKER_RACCSS( 4, 36) = 0.107219E+01
+ PKER_RACCSS( 4, 37) = 0.107499E+01
+ PKER_RACCSS( 4, 38) = 0.107729E+01
+ PKER_RACCSS( 4, 39) = 0.107921E+01
+ PKER_RACCSS( 4, 40) = 0.108079E+01
+ PKER_RACCSS( 5, 1) = 0.984134E+01
+ PKER_RACCSS( 5, 2) = 0.768407E+01
+ PKER_RACCSS( 5, 3) = 0.593483E+01
+ PKER_RACCSS( 5, 4) = 0.453996E+01
+ PKER_RACCSS( 5, 5) = 0.345468E+01
+ PKER_RACCSS( 5, 6) = 0.263565E+01
+ PKER_RACCSS( 5, 7) = 0.203378E+01
+ PKER_RACCSS( 5, 8) = 0.159275E+01
+ PKER_RACCSS( 5, 9) = 0.125599E+01
+ PKER_RACCSS( 5, 10) = 0.979504E+00
+ PKER_RACCSS( 5, 11) = 0.741294E+00
+ PKER_RACCSS( 5, 12) = 0.542607E+00
+ PKER_RACCSS( 5, 13) = 0.398707E+00
+ PKER_RACCSS( 5, 14) = 0.324415E+00
+ PKER_RACCSS( 5, 15) = 0.323256E+00
+ PKER_RACCSS( 5, 16) = 0.379206E+00
+ PKER_RACCSS( 5, 17) = 0.465245E+00
+ PKER_RACCSS( 5, 18) = 0.556856E+00
+ PKER_RACCSS( 5, 19) = 0.640174E+00
+ PKER_RACCSS( 5, 20) = 0.710994E+00
+ PKER_RACCSS( 5, 21) = 0.769798E+00
+ PKER_RACCSS( 5, 22) = 0.818346E+00
+ PKER_RACCSS( 5, 23) = 0.858406E+00
+ PKER_RACCSS( 5, 24) = 0.891477E+00
+ PKER_RACCSS( 5, 25) = 0.918790E+00
+ PKER_RACCSS( 5, 26) = 0.941356E+00
+ PKER_RACCSS( 5, 27) = 0.960005E+00
+ PKER_RACCSS( 5, 28) = 0.975420E+00
+ PKER_RACCSS( 5, 29) = 0.988165E+00
+ PKER_RACCSS( 5, 30) = 0.998704E+00
+ PKER_RACCSS( 5, 31) = 0.100742E+01
+ PKER_RACCSS( 5, 32) = 0.101463E+01
+ PKER_RACCSS( 5, 33) = 0.102059E+01
+ PKER_RACCSS( 5, 34) = 0.102553E+01
+ PKER_RACCSS( 5, 35) = 0.102961E+01
+ PKER_RACCSS( 5, 36) = 0.103298E+01
+ PKER_RACCSS( 5, 37) = 0.103578E+01
+ PKER_RACCSS( 5, 38) = 0.103809E+01
+ PKER_RACCSS( 5, 39) = 0.104000E+01
+ PKER_RACCSS( 5, 40) = 0.104158E+01
+ PKER_RACCSS( 6, 1) = 0.100946E+02
+ PKER_RACCSS( 6, 2) = 0.792320E+01
+ PKER_RACCSS( 6, 3) = 0.615079E+01
+ PKER_RACCSS( 6, 4) = 0.472200E+01
+ PKER_RACCSS( 6, 5) = 0.359201E+01
+ PKER_RACCSS( 6, 6) = 0.272124E+01
+ PKER_RACCSS( 6, 7) = 0.206891E+01
+ PKER_RACCSS( 6, 8) = 0.158855E+01
+ PKER_RACCSS( 6, 9) = 0.123006E+01
+ PKER_RACCSS( 6, 10) = 0.949015E+00
+ PKER_RACCSS( 6, 11) = 0.716857E+00
+ PKER_RACCSS( 6, 12) = 0.525942E+00
+ PKER_RACCSS( 6, 13) = 0.384576E+00
+ PKER_RACCSS( 6, 14) = 0.307254E+00
+ PKER_RACCSS( 6, 15) = 0.298968E+00
+ PKER_RACCSS( 6, 16) = 0.347796E+00
+ PKER_RACCSS( 6, 17) = 0.429181E+00
+ PKER_RACCSS( 6, 18) = 0.518637E+00
+ PKER_RACCSS( 6, 19) = 0.601403E+00
+ PKER_RACCSS( 6, 20) = 0.672307E+00
+ PKER_RACCSS( 6, 21) = 0.731313E+00
+ PKER_RACCSS( 6, 22) = 0.780036E+00
+ PKER_RACCSS( 6, 23) = 0.820228E+00
+ PKER_RACCSS( 6, 24) = 0.853395E+00
+ PKER_RACCSS( 6, 25) = 0.880779E+00
+ PKER_RACCSS( 6, 26) = 0.903398E+00
+ PKER_RACCSS( 6, 27) = 0.922086E+00
+ PKER_RACCSS( 6, 28) = 0.937532E+00
+ PKER_RACCSS( 6, 29) = 0.950300E+00
+ PKER_RACCSS( 6, 30) = 0.960856E+00
+ PKER_RACCSS( 6, 31) = 0.969586E+00
+ PKER_RACCSS( 6, 32) = 0.976805E+00
+ PKER_RACCSS( 6, 33) = 0.982777E+00
+ PKER_RACCSS( 6, 34) = 0.987716E+00
+ PKER_RACCSS( 6, 35) = 0.991802E+00
+ PKER_RACCSS( 6, 36) = 0.995182E+00
+ PKER_RACCSS( 6, 37) = 0.997979E+00
+ PKER_RACCSS( 6, 38) = 0.100029E+01
+ PKER_RACCSS( 6, 39) = 0.100221E+01
+ PKER_RACCSS( 6, 40) = 0.100379E+01
+ PKER_RACCSS( 7, 1) = 0.114324E+02
+ PKER_RACCSS( 7, 2) = 0.906703E+01
+ PKER_RACCSS( 7, 3) = 0.712265E+01
+ PKER_RACCSS( 7, 4) = 0.553681E+01
+ PKER_RACCSS( 7, 5) = 0.425959E+01
+ PKER_RACCSS( 7, 6) = 0.324955E+01
+ PKER_RACCSS( 7, 7) = 0.246840E+01
+ PKER_RACCSS( 7, 8) = 0.187588E+01
+ PKER_RACCSS( 7, 9) = 0.142816E+01
+ PKER_RACCSS( 7, 10) = 0.108266E+01
+ PKER_RACCSS( 7, 11) = 0.806742E+00
+ PKER_RACCSS( 7, 12) = 0.585128E+00
+ PKER_RACCSS( 7, 13) = 0.419236E+00
+ PKER_RACCSS( 7, 14) = 0.319529E+00
+ PKER_RACCSS( 7, 15) = 0.291120E+00
+ PKER_RACCSS( 7, 16) = 0.324513E+00
+ PKER_RACCSS( 7, 17) = 0.396667E+00
+ PKER_RACCSS( 7, 18) = 0.482222E+00
+ PKER_RACCSS( 7, 19) = 0.563981E+00
+ PKER_RACCSS( 7, 20) = 0.634892E+00
+ PKER_RACCSS( 7, 21) = 0.694111E+00
+ PKER_RACCSS( 7, 22) = 0.743028E+00
+ PKER_RACCSS( 7, 23) = 0.783365E+00
+ PKER_RACCSS( 7, 24) = 0.816640E+00
+ PKER_RACCSS( 7, 25) = 0.844104E+00
+ PKER_RACCSS( 7, 26) = 0.866782E+00
+ PKER_RACCSS( 7, 27) = 0.885515E+00
+ PKER_RACCSS( 7, 28) = 0.900994E+00
+ PKER_RACCSS( 7, 29) = 0.913787E+00
+ PKER_RACCSS( 7, 30) = 0.924363E+00
+ PKER_RACCSS( 7, 31) = 0.933108E+00
+ PKER_RACCSS( 7, 32) = 0.940339E+00
+ PKER_RACCSS( 7, 33) = 0.946319E+00
+ PKER_RACCSS( 7, 34) = 0.951265E+00
+ PKER_RACCSS( 7, 35) = 0.955356E+00
+ PKER_RACCSS( 7, 36) = 0.958741E+00
+ PKER_RACCSS( 7, 37) = 0.961540E+00
+ PKER_RACCSS( 7, 38) = 0.963857E+00
+ PKER_RACCSS( 7, 39) = 0.965773E+00
+ PKER_RACCSS( 7, 40) = 0.967359E+00
+ PKER_RACCSS( 8, 1) = 0.124239E+02
+ PKER_RACCSS( 8, 2) = 0.993225E+01
+ PKER_RACCSS( 8, 3) = 0.787544E+01
+ PKER_RACCSS( 8, 4) = 0.618577E+01
+ PKER_RACCSS( 8, 5) = 0.480894E+01
+ PKER_RACCSS( 8, 6) = 0.370096E+01
+ PKER_RACCSS( 8, 7) = 0.282411E+01
+ PKER_RACCSS( 8, 8) = 0.214244E+01
+ PKER_RACCSS( 8, 9) = 0.161816E+01
+ PKER_RACCSS( 8, 10) = 0.121306E+01
+ PKER_RACCSS( 8, 11) = 0.894753E+00
+ PKER_RACCSS( 8, 12) = 0.643111E+00
+ PKER_RACCSS( 8, 13) = 0.453850E+00
+ PKER_RACCSS( 8, 14) = 0.332849E+00
+ PKER_RACCSS( 8, 15) = 0.285241E+00
+ PKER_RACCSS( 8, 16) = 0.303258E+00
+ PKER_RACCSS( 8, 17) = 0.366013E+00
+ PKER_RACCSS( 8, 18) = 0.447330E+00
+ PKER_RACCSS( 8, 19) = 0.527851E+00
+ PKER_RACCSS( 8, 20) = 0.598698E+00
+ PKER_RACCSS( 8, 21) = 0.658133E+00
+ PKER_RACCSS( 8, 22) = 0.707263E+00
+ PKER_RACCSS( 8, 23) = 0.747765E+00
+ PKER_RACCSS( 8, 24) = 0.781160E+00
+ PKER_RACCSS( 8, 25) = 0.808713E+00
+ PKER_RACCSS( 8, 26) = 0.831457E+00
+ PKER_RACCSS( 8, 27) = 0.850239E+00
+ PKER_RACCSS( 8, 28) = 0.865756E+00
+ PKER_RACCSS( 8, 29) = 0.878577E+00
+ PKER_RACCSS( 8, 30) = 0.889175E+00
+ PKER_RACCSS( 8, 31) = 0.897936E+00
+ PKER_RACCSS( 8, 32) = 0.905180E+00
+ PKER_RACCSS( 8, 33) = 0.911169E+00
+ PKER_RACCSS( 8, 34) = 0.916123E+00
+ PKER_RACCSS( 8, 35) = 0.920221E+00
+ PKER_RACCSS( 8, 36) = 0.923610E+00
+ PKER_RACCSS( 8, 37) = 0.926413E+00
+ PKER_RACCSS( 8, 38) = 0.928732E+00
+ PKER_RACCSS( 8, 39) = 0.930651E+00
+ PKER_RACCSS( 8, 40) = 0.932238E+00
+ PKER_RACCSS( 9, 1) = 0.131489E+02
+ PKER_RACCSS( 9, 2) = 0.105758E+02
+ PKER_RACCSS( 9, 3) = 0.844671E+01
+ PKER_RACCSS( 9, 4) = 0.669006E+01
+ PKER_RACCSS( 9, 5) = 0.524801E+01
+ PKER_RACCSS( 9, 6) = 0.407401E+01
+ PKER_RACCSS( 9, 7) = 0.312961E+01
+ PKER_RACCSS( 9, 8) = 0.238088E+01
+ PKER_RACCSS( 9, 9) = 0.179468E+01
+ PKER_RACCSS( 9, 10) = 0.133782E+01
+ PKER_RACCSS( 9, 11) = 0.980036E+00
+ PKER_RACCSS( 9, 12) = 0.699733E+00
+ PKER_RACCSS( 9, 13) = 0.488184E+00
+ PKER_RACCSS( 9, 14) = 0.347494E+00
+ PKER_RACCSS( 9, 15) = 0.281651E+00
+ PKER_RACCSS( 9, 16) = 0.284820E+00
+ PKER_RACCSS( 9, 17) = 0.337669E+00
+ PKER_RACCSS( 9, 18) = 0.414080E+00
+ PKER_RACCSS( 9, 19) = 0.493001E+00
+ PKER_RACCSS( 9, 20) = 0.563677E+00
+ PKER_RACCSS( 9, 21) = 0.623324E+00
+ PKER_RACCSS( 9, 22) = 0.672689E+00
+ PKER_RACCSS( 9, 23) = 0.713373E+00
+ PKER_RACCSS( 9, 24) = 0.746903E+00
+ PKER_RACCSS( 9, 25) = 0.774555E+00
+ PKER_RACCSS( 9, 26) = 0.797373E+00
+ PKER_RACCSS( 9, 27) = 0.816210E+00
+ PKER_RACCSS( 9, 28) = 0.831768E+00
+ PKER_RACCSS( 9, 29) = 0.844622E+00
+ PKER_RACCSS( 9, 30) = 0.855243E+00
+ PKER_RACCSS( 9, 31) = 0.864022E+00
+ PKER_RACCSS( 9, 32) = 0.871280E+00
+ PKER_RACCSS( 9, 33) = 0.877281E+00
+ PKER_RACCSS( 9, 34) = 0.882243E+00
+ PKER_RACCSS( 9, 35) = 0.886347E+00
+ PKER_RACCSS( 9, 36) = 0.889741E+00
+ PKER_RACCSS( 9, 37) = 0.892549E+00
+ PKER_RACCSS( 9, 38) = 0.894871E+00
+ PKER_RACCSS( 9, 39) = 0.896792E+00
+ PKER_RACCSS( 9, 40) = 0.898382E+00
+ PKER_RACCSS( 10, 1) = 0.136750E+02
+ PKER_RACCSS( 10, 2) = 0.110498E+02
+ PKER_RACCSS( 10, 3) = 0.887496E+01
+ PKER_RACCSS( 10, 4) = 0.707597E+01
+ PKER_RACCSS( 10, 5) = 0.559242E+01
+ PKER_RACCSS( 10, 6) = 0.437547E+01
+ PKER_RACCSS( 10, 7) = 0.338541E+01
+ PKER_RACCSS( 10, 8) = 0.258877E+01
+ PKER_RACCSS( 10, 9) = 0.195522E+01
+ PKER_RACCSS( 10, 10) = 0.145573E+01
+ PKER_RACCSS( 10, 11) = 0.106313E+01
+ PKER_RACCSS( 10, 12) = 0.756187E+00
+ PKER_RACCSS( 10, 13) = 0.523593E+00
+ PKER_RACCSS( 10, 14) = 0.364631E+00
+ PKER_RACCSS( 10, 15) = 0.281388E+00
+ PKER_RACCSS( 10, 16) = 0.269623E+00
+ PKER_RACCSS( 10, 17) = 0.311784E+00
+ PKER_RACCSS( 10, 18) = 0.382556E+00
+ PKER_RACCSS( 10, 19) = 0.459434E+00
+ PKER_RACCSS( 10, 20) = 0.529788E+00
+ PKER_RACCSS( 10, 21) = 0.589631E+00
+ PKER_RACCSS( 10, 22) = 0.639249E+00
+ PKER_RACCSS( 10, 23) = 0.680137E+00
+ PKER_RACCSS( 10, 24) = 0.713818E+00
+ PKER_RACCSS( 10, 25) = 0.741581E+00
+ PKER_RACCSS( 10, 26) = 0.764482E+00
+ PKER_RACCSS( 10, 27) = 0.783381E+00
+ PKER_RACCSS( 10, 28) = 0.798985E+00
+ PKER_RACCSS( 10, 29) = 0.811873E+00
+ PKER_RACCSS( 10, 30) = 0.822522E+00
+ PKER_RACCSS( 10, 31) = 0.831321E+00
+ PKER_RACCSS( 10, 32) = 0.838595E+00
+ PKER_RACCSS( 10, 33) = 0.844608E+00
+ PKER_RACCSS( 10, 34) = 0.849579E+00
+ PKER_RACCSS( 10, 35) = 0.853690E+00
+ PKER_RACCSS( 10, 36) = 0.857090E+00
+ PKER_RACCSS( 10, 37) = 0.859902E+00
+ PKER_RACCSS( 10, 38) = 0.862228E+00
+ PKER_RACCSS( 10, 39) = 0.864152E+00
+ PKER_RACCSS( 10, 40) = 0.865743E+00
+ PKER_RACCSS( 11, 1) = 0.140563E+02
+ PKER_RACCSS( 11, 2) = 0.113981E+02
+ PKER_RACCSS( 11, 3) = 0.919450E+01
+ PKER_RACCSS( 11, 4) = 0.736921E+01
+ PKER_RACCSS( 11, 5) = 0.585988E+01
+ PKER_RACCSS( 11, 6) = 0.461590E+01
+ PKER_RACCSS( 11, 7) = 0.359614E+01
+ PKER_RACCSS( 11, 8) = 0.276683E+01
+ PKER_RACCSS( 11, 9) = 0.209889E+01
+ PKER_RACCSS( 11, 10) = 0.156598E+01
+ PKER_RACCSS( 11, 11) = 0.114396E+01
+ PKER_RACCSS( 11, 12) = 0.812968E+00
+ PKER_RACCSS( 11, 13) = 0.560871E+00
+ PKER_RACCSS( 11, 14) = 0.384305E+00
+ PKER_RACCSS( 11, 15) = 0.284209E+00
+ PKER_RACCSS( 11, 16) = 0.257298E+00
+ PKER_RACCSS( 11, 17) = 0.288361E+00
+ PKER_RACCSS( 11, 18) = 0.352782E+00
+ PKER_RACCSS( 11, 19) = 0.427151E+00
+ PKER_RACCSS( 11, 20) = 0.496990E+00
+ PKER_RACCSS( 11, 21) = 0.557002E+00
+ PKER_RACCSS( 11, 22) = 0.606893E+00
+ PKER_RACCSS( 11, 23) = 0.648007E+00
+ PKER_RACCSS( 11, 24) = 0.681857E+00
+ PKER_RACCSS( 11, 25) = 0.709744E+00
+ PKER_RACCSS( 11, 26) = 0.732736E+00
+ PKER_RACCSS( 11, 27) = 0.751704E+00
+ PKER_RACCSS( 11, 28) = 0.767360E+00
+ PKER_RACCSS( 11, 29) = 0.780287E+00
+ PKER_RACCSS( 11, 30) = 0.790965E+00
+ PKER_RACCSS( 11, 31) = 0.799788E+00
+ PKER_RACCSS( 11, 32) = 0.807079E+00
+ PKER_RACCSS( 11, 33) = 0.813105E+00
+ PKER_RACCSS( 11, 34) = 0.818087E+00
+ PKER_RACCSS( 11, 35) = 0.822206E+00
+ PKER_RACCSS( 11, 36) = 0.825612E+00
+ PKER_RACCSS( 11, 37) = 0.828429E+00
+ PKER_RACCSS( 11, 38) = 0.830759E+00
+ PKER_RACCSS( 11, 39) = 0.832686E+00
+ PKER_RACCSS( 11, 40) = 0.834279E+00
+ PKER_RACCSS( 12, 1) = 0.144643E+02
+ PKER_RACCSS( 12, 2) = 0.116548E+02
+ PKER_RACCSS( 12, 3) = 0.943346E+01
+ PKER_RACCSS( 12, 4) = 0.759213E+01
+ PKER_RACCSS( 12, 5) = 0.606718E+01
+ PKER_RACCSS( 12, 6) = 0.480667E+01
+ PKER_RACCSS( 12, 7) = 0.376829E+01
+ PKER_RACCSS( 12, 8) = 0.291758E+01
+ PKER_RACCSS( 12, 9) = 0.222576E+01
+ PKER_RACCSS( 12, 10) = 0.166801E+01
+ PKER_RACCSS( 12, 11) = 0.122238E+01
+ PKER_RACCSS( 12, 12) = 0.870703E+00
+ PKER_RACCSS( 12, 13) = 0.600531E+00
+ PKER_RACCSS( 12, 14) = 0.407251E+00
+ PKER_RACCSS( 12, 15) = 0.290903E+00
+ PKER_RACCSS( 12, 16) = 0.248669E+00
+ PKER_RACCSS( 12, 17) = 0.267650E+00
+ PKER_RACCSS( 12, 18) = 0.324857E+00
+ PKER_RACCSS( 12, 19) = 0.396152E+00
+ PKER_RACCSS( 12, 20) = 0.465254E+00
+ PKER_RACCSS( 12, 21) = 0.525388E+00
+ PKER_RACCSS( 12, 22) = 0.575567E+00
+ PKER_RACCSS( 12, 23) = 0.616932E+00
+ PKER_RACCSS( 12, 24) = 0.650971E+00
+ PKER_RACCSS( 12, 25) = 0.678997E+00
+ PKER_RACCSS( 12, 26) = 0.702092E+00
+ PKER_RACCSS( 12, 27) = 0.721136E+00
+ PKER_RACCSS( 12, 28) = 0.736849E+00
+ PKER_RACCSS( 12, 29) = 0.749820E+00
+ PKER_RACCSS( 12, 30) = 0.760531E+00
+ PKER_RACCSS( 12, 31) = 0.769378E+00
+ PKER_RACCSS( 12, 32) = 0.776689E+00
+ PKER_RACCSS( 12, 33) = 0.782730E+00
+ PKER_RACCSS( 12, 34) = 0.787724E+00
+ PKER_RACCSS( 12, 35) = 0.791852E+00
+ PKER_RACCSS( 12, 36) = 0.795265E+00
+ PKER_RACCSS( 12, 37) = 0.798087E+00
+ PKER_RACCSS( 12, 38) = 0.800421E+00
+ PKER_RACCSS( 12, 39) = 0.802351E+00
+ PKER_RACCSS( 12, 40) = 0.803947E+00
+ PKER_RACCSS( 13, 1) = 0.146218E+02
+ PKER_RACCSS( 13, 2) = 0.119195E+02
+ PKER_RACCSS( 13, 3) = 0.967880E+01
+ PKER_RACCSS( 13, 4) = 0.782085E+01
+ PKER_RACCSS( 13, 5) = 0.628066E+01
+ PKER_RACCSS( 13, 6) = 0.500499E+01
+ PKER_RACCSS( 13, 7) = 0.395033E+01
+ PKER_RACCSS( 13, 8) = 0.308122E+01
+ PKER_RACCSS( 13, 9) = 0.236849E+01
+ PKER_RACCSS( 13, 10) = 0.178787E+01
+ PKER_RACCSS( 13, 11) = 0.131877E+01
+ PKER_RACCSS( 13, 12) = 0.944429E+00
+ PKER_RACCSS( 13, 13) = 0.653226E+00
+ PKER_RACCSS( 13, 14) = 0.440077E+00
+ PKER_RACCSS( 13, 15) = 0.304731E+00
+ PKER_RACCSS( 13, 16) = 0.245176E+00
+ PKER_RACCSS( 13, 17) = 0.250424E+00
+ PKER_RACCSS( 13, 18) = 0.299107E+00
+ PKER_RACCSS( 13, 19) = 0.366527E+00
+ PKER_RACCSS( 13, 20) = 0.434567E+00
+ PKER_RACCSS( 13, 21) = 0.494744E+00
+ PKER_RACCSS( 13, 22) = 0.545221E+00
+ PKER_RACCSS( 13, 23) = 0.586863E+00
+ PKER_RACCSS( 13, 24) = 0.621112E+00
+ PKER_RACCSS( 13, 25) = 0.649293E+00
+ PKER_RACCSS( 13, 26) = 0.672503E+00
+ PKER_RACCSS( 13, 27) = 0.691633E+00
+ PKER_RACCSS( 13, 28) = 0.707410E+00
+ PKER_RACCSS( 13, 29) = 0.720429E+00
+ PKER_RACCSS( 13, 30) = 0.731176E+00
+ PKER_RACCSS( 13, 31) = 0.740052E+00
+ PKER_RACCSS( 13, 32) = 0.747384E+00
+ PKER_RACCSS( 13, 33) = 0.753441E+00
+ PKER_RACCSS( 13, 34) = 0.758448E+00
+ PKER_RACCSS( 13, 35) = 0.762586E+00
+ PKER_RACCSS( 13, 36) = 0.766007E+00
+ PKER_RACCSS( 13, 37) = 0.768835E+00
+ PKER_RACCSS( 13, 38) = 0.771173E+00
+ PKER_RACCSS( 13, 39) = 0.773107E+00
+ PKER_RACCSS( 13, 40) = 0.774707E+00
+ PKER_RACCSS( 14, 1) = 0.147878E+02
+ PKER_RACCSS( 14, 2) = 0.120765E+02
+ PKER_RACCSS( 14, 3) = 0.982870E+01
+ PKER_RACCSS( 14, 4) = 0.796483E+01
+ PKER_RACCSS( 14, 5) = 0.639086E+01
+ PKER_RACCSS( 14, 6) = 0.511162E+01
+ PKER_RACCSS( 14, 7) = 0.405229E+01
+ PKER_RACCSS( 14, 8) = 0.317683E+01
+ PKER_RACCSS( 14, 9) = 0.245579E+01
+ PKER_RACCSS( 14, 10) = 0.186496E+01
+ PKER_RACCSS( 14, 11) = 0.138431E+01
+ PKER_RACCSS( 14, 12) = 0.997780E+00
+ PKER_RACCSS( 14, 13) = 0.693897E+00
+ PKER_RACCSS( 14, 14) = 0.467067E+00
+ PKER_RACCSS( 14, 15) = 0.316229E+00
+ PKER_RACCSS( 14, 16) = 0.240669E+00
+ PKER_RACCSS( 14, 17) = 0.232169E+00
+ PKER_RACCSS( 14, 18) = 0.271909E+00
+ PKER_RACCSS( 14, 19) = 0.335655E+00
+ PKER_RACCSS( 14, 20) = 0.403449E+00
+ PKER_RACCSS( 14, 21) = 0.464483E+00
+ PKER_RACCSS( 14, 22) = 0.515682E+00
+ PKER_RACCSS( 14, 23) = 0.557735E+00
+ PKER_RACCSS( 14, 24) = 0.592233E+00
+ PKER_RACCSS( 14, 25) = 0.620588E+00
+ PKER_RACCSS( 14, 26) = 0.643926E+00
+ PKER_RACCSS( 14, 27) = 0.663151E+00
+ PKER_RACCSS( 14, 28) = 0.679000E+00
+ PKER_RACCSS( 14, 29) = 0.692073E+00
+ PKER_RACCSS( 14, 30) = 0.702861E+00
+ PKER_RACCSS( 14, 31) = 0.711768E+00
+ PKER_RACCSS( 14, 32) = 0.719123E+00
+ PKER_RACCSS( 14, 33) = 0.725199E+00
+ PKER_RACCSS( 14, 34) = 0.730220E+00
+ PKER_RACCSS( 14, 35) = 0.734369E+00
+ PKER_RACCSS( 14, 36) = 0.737798E+00
+ PKER_RACCSS( 14, 37) = 0.740633E+00
+ PKER_RACCSS( 14, 38) = 0.742977E+00
+ PKER_RACCSS( 14, 39) = 0.744915E+00
+ PKER_RACCSS( 14, 40) = 0.746517E+00
+ PKER_RACCSS( 15, 1) = 0.148885E+02
+ PKER_RACCSS( 15, 2) = 0.121740E+02
+ PKER_RACCSS( 15, 3) = 0.992387E+01
+ PKER_RACCSS( 15, 4) = 0.805817E+01
+ PKER_RACCSS( 15, 5) = 0.651095E+01
+ PKER_RACCSS( 15, 6) = 0.522781E+01
+ PKER_RACCSS( 15, 7) = 0.415208E+01
+ PKER_RACCSS( 15, 8) = 0.327178E+01
+ PKER_RACCSS( 15, 9) = 0.254431E+01
+ PKER_RACCSS( 15, 10) = 0.194528E+01
+ PKER_RACCSS( 15, 11) = 0.145480E+01
+ PKER_RACCSS( 15, 12) = 0.105720E+01
+ PKER_RACCSS( 15, 13) = 0.741190E+00
+ PKER_RACCSS( 15, 14) = 0.500943E+00
+ PKER_RACCSS( 15, 15) = 0.335395E+00
+ PKER_RACCSS( 15, 16) = 0.244295E+00
+ PKER_RACCSS( 15, 17) = 0.221579E+00
+ PKER_RACCSS( 15, 18) = 0.250580E+00
+ PKER_RACCSS( 15, 19) = 0.308148E+00
+ PKER_RACCSS( 15, 20) = 0.373522E+00
+ PKER_RACCSS( 15, 21) = 0.434461E+00
+ PKER_RACCSS( 15, 22) = 0.486484E+00
+ PKER_RACCSS( 15, 23) = 0.529311E+00
+ PKER_RACCSS( 15, 24) = 0.564249E+00
+ PKER_RACCSS( 15, 25) = 0.592835E+00
+ PKER_RACCSS( 15, 26) = 0.616320E+00
+ PKER_RACCSS( 15, 27) = 0.635651E+00
+ PKER_RACCSS( 15, 28) = 0.651579E+00
+ PKER_RACCSS( 15, 29) = 0.664712E+00
+ PKER_RACCSS( 15, 30) = 0.675546E+00
+ PKER_RACCSS( 15, 31) = 0.684487E+00
+ PKER_RACCSS( 15, 32) = 0.691869E+00
+ PKER_RACCSS( 15, 33) = 0.697965E+00
+ PKER_RACCSS( 15, 34) = 0.703002E+00
+ PKER_RACCSS( 15, 35) = 0.707163E+00
+ PKER_RACCSS( 15, 36) = 0.710601E+00
+ PKER_RACCSS( 15, 37) = 0.713444E+00
+ PKER_RACCSS( 15, 38) = 0.715793E+00
+ PKER_RACCSS( 15, 39) = 0.717736E+00
+ PKER_RACCSS( 15, 40) = 0.719342E+00
+ PKER_RACCSS( 16, 1) = 0.149643E+02
+ PKER_RACCSS( 16, 2) = 0.122432E+02
+ PKER_RACCSS( 16, 3) = 0.999279E+01
+ PKER_RACCSS( 16, 4) = 0.812705E+01
+ PKER_RACCSS( 16, 5) = 0.657982E+01
+ PKER_RACCSS( 16, 6) = 0.529649E+01
+ PKER_RACCSS( 16, 7) = 0.423206E+01
+ PKER_RACCSS( 16, 8) = 0.334958E+01
+ PKER_RACCSS( 16, 9) = 0.261879E+01
+ PKER_RACCSS( 16, 10) = 0.201500E+01
+ PKER_RACCSS( 16, 11) = 0.151824E+01
+ PKER_RACCSS( 16, 12) = 0.111282E+01
+ PKER_RACCSS( 16, 13) = 0.787503E+00
+ PKER_RACCSS( 16, 14) = 0.536182E+00
+ PKER_RACCSS( 16, 15) = 0.357709E+00
+ PKER_RACCSS( 16, 16) = 0.252427E+00
+ PKER_RACCSS( 16, 17) = 0.216248E+00
+ PKER_RACCSS( 16, 18) = 0.235070E+00
+ PKER_RACCSS( 16, 19) = 0.286475E+00
+ PKER_RACCSS( 16, 20) = 0.348775E+00
+ PKER_RACCSS( 16, 21) = 0.408252E+00
+ PKER_RACCSS( 16, 22) = 0.459577E+00
+ PKER_RACCSS( 16, 23) = 0.502202E+00
+ PKER_RACCSS( 16, 24) = 0.537236E+00
+ PKER_RACCSS( 16, 25) = 0.566000E+00
+ PKER_RACCSS( 16, 26) = 0.589641E+00
+ PKER_RACCSS( 16, 27) = 0.609091E+00
+ PKER_RACCSS( 16, 28) = 0.625108E+00
+ PKER_RACCSS( 16, 29) = 0.638308E+00
+ PKER_RACCSS( 16, 30) = 0.649192E+00
+ PKER_RACCSS( 16, 31) = 0.658171E+00
+ PKER_RACCSS( 16, 32) = 0.665583E+00
+ PKER_RACCSS( 16, 33) = 0.671702E+00
+ PKER_RACCSS( 16, 34) = 0.676755E+00
+ PKER_RACCSS( 16, 35) = 0.680930E+00
+ PKER_RACCSS( 16, 36) = 0.684379E+00
+ PKER_RACCSS( 16, 37) = 0.687230E+00
+ PKER_RACCSS( 16, 38) = 0.689586E+00
+ PKER_RACCSS( 16, 39) = 0.691533E+00
+ PKER_RACCSS( 16, 40) = 0.693143E+00
+ PKER_RACCSS( 17, 1) = 0.149110E+02
+ PKER_RACCSS( 17, 2) = 0.121929E+02
+ PKER_RACCSS( 17, 3) = 0.994290E+01
+ PKER_RACCSS( 17, 4) = 0.807839E+01
+ PKER_RACCSS( 17, 5) = 0.653328E+01
+ PKER_RACCSS( 17, 6) = 0.525301E+01
+ PKER_RACCSS( 17, 7) = 0.419017E+01
+ PKER_RACCSS( 17, 8) = 0.331277E+01
+ PKER_RACCSS( 17, 9) = 0.258781E+01
+ PKER_RACCSS( 17, 10) = 0.199030E+01
+ PKER_RACCSS( 17, 11) = 0.149981E+01
+ PKER_RACCSS( 17, 12) = 0.110010E+01
+ PKER_RACCSS( 17, 13) = 0.779276E+00
+ PKER_RACCSS( 17, 14) = 0.530410E+00
+ PKER_RACCSS( 17, 15) = 0.351710E+00
+ PKER_RACCSS( 17, 16) = 0.243856E+00
+ PKER_RACCSS( 17, 17) = 0.204039E+00
+ PKER_RACCSS( 17, 18) = 0.219748E+00
+ PKER_RACCSS( 17, 19) = 0.269792E+00
+ PKER_RACCSS( 17, 20) = 0.331944E+00
+ PKER_RACCSS( 17, 21) = 0.391473E+00
+ PKER_RACCSS( 17, 22) = 0.442581E+00
+ PKER_RACCSS( 17, 23) = 0.484818E+00
+ PKER_RACCSS( 17, 24) = 0.519457E+00
+ PKER_RACCSS( 17, 25) = 0.547891E+00
+ PKER_RACCSS( 17, 26) = 0.571271E+00
+ PKER_RACCSS( 17, 27) = 0.590518E+00
+ PKER_RACCSS( 17, 28) = 0.606376E+00
+ PKER_RACCSS( 17, 29) = 0.619451E+00
+ PKER_RACCSS( 17, 30) = 0.630237E+00
+ PKER_RACCSS( 17, 31) = 0.639140E+00
+ PKER_RACCSS( 17, 32) = 0.646491E+00
+ PKER_RACCSS( 17, 33) = 0.652562E+00
+ PKER_RACCSS( 17, 34) = 0.657578E+00
+ PKER_RACCSS( 17, 35) = 0.661723E+00
+ PKER_RACCSS( 17, 36) = 0.665149E+00
+ PKER_RACCSS( 17, 37) = 0.667981E+00
+ PKER_RACCSS( 17, 38) = 0.670322E+00
+ PKER_RACCSS( 17, 39) = 0.672258E+00
+ PKER_RACCSS( 17, 40) = 0.673858E+00
+ PKER_RACCSS( 18, 1) = 0.149633E+02
+ PKER_RACCSS( 18, 2) = 0.122476E+02
+ PKER_RACCSS( 18, 3) = 0.999821E+01
+ PKER_RACCSS( 18, 4) = 0.813426E+01
+ PKER_RACCSS( 18, 5) = 0.658956E+01
+ PKER_RACCSS( 18, 6) = 0.530943E+01
+ PKER_RACCSS( 18, 7) = 0.424876E+01
+ PKER_RACCSS( 18, 8) = 0.337038E+01
+ PKER_RACCSS( 18, 9) = 0.264373E+01
+ PKER_RACCSS( 18, 10) = 0.204371E+01
+ PKER_RACCSS( 18, 11) = 0.154982E+01
+ PKER_RACCSS( 18, 12) = 0.114568E+01
+ PKER_RACCSS( 18, 13) = 0.819098E+00
+ PKER_RACCSS( 18, 14) = 0.562637E+00
+ PKER_RACCSS( 18, 15) = 0.373798E+00
+ PKER_RACCSS( 18, 16) = 0.253619E+00
+ PKER_RACCSS( 18, 17) = 0.200537E+00
+ PKER_RACCSS( 18, 18) = 0.205133E+00
+ PKER_RACCSS( 18, 19) = 0.248069E+00
+ PKER_RACCSS( 18, 20) = 0.306998E+00
+ PKER_RACCSS( 18, 21) = 0.365645E+00
+ PKER_RACCSS( 18, 22) = 0.416774E+00
+ PKER_RACCSS( 18, 23) = 0.459245E+00
+ PKER_RACCSS( 18, 24) = 0.494124E+00
+ PKER_RACCSS( 18, 25) = 0.522754E+00
+ PKER_RACCSS( 18, 26) = 0.546281E+00
+ PKER_RACCSS( 18, 27) = 0.565637E+00
+ PKER_RACCSS( 18, 28) = 0.581576E+00
+ PKER_RACCSS( 18, 29) = 0.594711E+00
+ PKER_RACCSS( 18, 30) = 0.605543E+00
+ PKER_RACCSS( 18, 31) = 0.614480E+00
+ PKER_RACCSS( 18, 32) = 0.621856E+00
+ PKER_RACCSS( 18, 33) = 0.627948E+00
+ PKER_RACCSS( 18, 34) = 0.632979E+00
+ PKER_RACCSS( 18, 35) = 0.637136E+00
+ PKER_RACCSS( 18, 36) = 0.640571E+00
+ PKER_RACCSS( 18, 37) = 0.643409E+00
+ PKER_RACCSS( 18, 38) = 0.645756E+00
+ PKER_RACCSS( 18, 39) = 0.647696E+00
+ PKER_RACCSS( 18, 40) = 0.649300E+00
+ PKER_RACCSS( 19, 1) = 0.150092E+02
+ PKER_RACCSS( 19, 2) = 0.122952E+02
+ PKER_RACCSS( 19, 3) = 0.100464E+02
+ PKER_RACCSS( 19, 4) = 0.818334E+01
+ PKER_RACCSS( 19, 5) = 0.663935E+01
+ PKER_RACCSS( 19, 6) = 0.535974E+01
+ PKER_RACCSS( 19, 7) = 0.429927E+01
+ PKER_RACCSS( 19, 8) = 0.342067E+01
+ PKER_RACCSS( 19, 9) = 0.269324E+01
+ PKER_RACCSS( 19, 10) = 0.209179E+01
+ PKER_RACCSS( 19, 11) = 0.159570E+01
+ PKER_RACCSS( 19, 12) = 0.118845E+01
+ PKER_RACCSS( 19, 13) = 0.857511E+00
+ PKER_RACCSS( 19, 14) = 0.594805E+00
+ PKER_RACCSS( 19, 15) = 0.397214E+00
+ PKER_RACCSS( 19, 16) = 0.265319E+00
+ PKER_RACCSS( 19, 17) = 0.199392E+00
+ PKER_RACCSS( 19, 18) = 0.192464E+00
+ PKER_RACCSS( 19, 19) = 0.227473E+00
+ PKER_RACCSS( 19, 20) = 0.282643E+00
+ PKER_RACCSS( 19, 21) = 0.340316E+00
+ PKER_RACCSS( 19, 22) = 0.391584E+00
+ PKER_RACCSS( 19, 23) = 0.434406E+00
+ PKER_RACCSS( 19, 24) = 0.469583E+00
+ PKER_RACCSS( 19, 25) = 0.498435E+00
+ PKER_RACCSS( 19, 26) = 0.522126E+00
+ PKER_RACCSS( 19, 27) = 0.541603E+00
+ PKER_RACCSS( 19, 28) = 0.557631E+00
+ PKER_RACCSS( 19, 29) = 0.570834E+00
+ PKER_RACCSS( 19, 30) = 0.581716E+00
+ PKER_RACCSS( 19, 31) = 0.590691E+00
+ PKER_RACCSS( 19, 32) = 0.598097E+00
+ PKER_RACCSS( 19, 33) = 0.604210E+00
+ PKER_RACCSS( 19, 34) = 0.609258E+00
+ PKER_RACCSS( 19, 35) = 0.613428E+00
+ PKER_RACCSS( 19, 36) = 0.616873E+00
+ PKER_RACCSS( 19, 37) = 0.619720E+00
+ PKER_RACCSS( 19, 38) = 0.622073E+00
+ PKER_RACCSS( 19, 39) = 0.624017E+00
+ PKER_RACCSS( 19, 40) = 0.625625E+00
+ PKER_RACCSS( 20, 1) = 0.150506E+02
+ PKER_RACCSS( 20, 2) = 0.123375E+02
+ PKER_RACCSS( 20, 3) = 0.100899E+02
+ PKER_RACCSS( 20, 4) = 0.822762E+01
+ PKER_RACCSS( 20, 5) = 0.668443E+01
+ PKER_RACCSS( 20, 6) = 0.540547E+01
+ PKER_RACCSS( 20, 7) = 0.434543E+01
+ PKER_RACCSS( 20, 8) = 0.346694E+01
+ PKER_RACCSS( 20, 9) = 0.273919E+01
+ PKER_RACCSS( 20, 10) = 0.213687E+01
+ PKER_RACCSS( 20, 11) = 0.163926E+01
+ PKER_RACCSS( 20, 12) = 0.122969E+01
+ PKER_RACCSS( 20, 13) = 0.895288E+00
+ PKER_RACCSS( 20, 14) = 0.627384E+00
+ PKER_RACCSS( 20, 15) = 0.422108E+00
+ PKER_RACCSS( 20, 16) = 0.279742E+00
+ PKER_RACCSS( 20, 17) = 0.201318E+00
+ PKER_RACCSS( 20, 18) = 0.182433E+00
+ PKER_RACCSS( 20, 19) = 0.208783E+00
+ PKER_RACCSS( 20, 20) = 0.259513E+00
+ PKER_RACCSS( 20, 21) = 0.315816E+00
+ PKER_RACCSS( 20, 22) = 0.367115E+00
+ PKER_RACCSS( 20, 23) = 0.410295E+00
+ PKER_RACCSS( 20, 24) = 0.445798E+00
+ PKER_RACCSS( 20, 25) = 0.474895E+00
+ PKER_RACCSS( 20, 26) = 0.498768E+00
+ PKER_RACCSS( 20, 27) = 0.518379E+00
+ PKER_RACCSS( 20, 28) = 0.534508E+00
+ PKER_RACCSS( 20, 29) = 0.547785E+00
+ PKER_RACCSS( 20, 30) = 0.558723E+00
+ PKER_RACCSS( 20, 31) = 0.567741E+00
+ PKER_RACCSS( 20, 32) = 0.575179E+00
+ PKER_RACCSS( 20, 33) = 0.581316E+00
+ PKER_RACCSS( 20, 34) = 0.586383E+00
+ PKER_RACCSS( 20, 35) = 0.590568E+00
+ PKER_RACCSS( 20, 36) = 0.594024E+00
+ PKER_RACCSS( 20, 37) = 0.596879E+00
+ PKER_RACCSS( 20, 38) = 0.599239E+00
+ PKER_RACCSS( 20, 39) = 0.601189E+00
+ PKER_RACCSS( 20, 40) = 0.602801E+00
+ PKER_RACCSS( 21, 1) = 0.150883E+02
+ PKER_RACCSS( 21, 2) = 0.123761E+02
+ PKER_RACCSS( 21, 3) = 0.101293E+02
+ PKER_RACCSS( 21, 4) = 0.826795E+01
+ PKER_RACCSS( 21, 5) = 0.672557E+01
+ PKER_RACCSS( 21, 6) = 0.544731E+01
+ PKER_RACCSS( 21, 7) = 0.438783E+01
+ PKER_RACCSS( 21, 8) = 0.350965E+01
+ PKER_RACCSS( 21, 9) = 0.278189E+01
+ PKER_RACCSS( 21, 10) = 0.217913E+01
+ PKER_RACCSS( 21, 11) = 0.168054E+01
+ PKER_RACCSS( 21, 12) = 0.126927E+01
+ PKER_RACCSS( 21, 13) = 0.932157E+00
+ PKER_RACCSS( 21, 14) = 0.659992E+00
+ PKER_RACCSS( 21, 15) = 0.448085E+00
+ PKER_RACCSS( 21, 16) = 0.296290E+00
+ PKER_RACCSS( 21, 17) = 0.206056E+00
+ PKER_RACCSS( 21, 18) = 0.175119E+00
+ PKER_RACCSS( 21, 19) = 0.192180E+00
+ PKER_RACCSS( 21, 20) = 0.237716E+00
+ PKER_RACCSS( 21, 21) = 0.292175E+00
+ PKER_RACCSS( 21, 22) = 0.343345E+00
+ PKER_RACCSS( 21, 23) = 0.386873E+00
+ PKER_RACCSS( 21, 24) = 0.422729E+00
+ PKER_RACCSS( 21, 25) = 0.452098E+00
+ PKER_RACCSS( 21, 26) = 0.476172E+00
+ PKER_RACCSS( 21, 27) = 0.495932E+00
+ PKER_RACCSS( 21, 28) = 0.512172E+00
+ PKER_RACCSS( 21, 29) = 0.525532E+00
+ PKER_RACCSS( 21, 30) = 0.536532E+00
+ PKER_RACCSS( 21, 31) = 0.545597E+00
+ PKER_RACCSS( 21, 32) = 0.553070E+00
+ PKER_RACCSS( 21, 33) = 0.559235E+00
+ PKER_RACCSS( 21, 34) = 0.564323E+00
+ PKER_RACCSS( 21, 35) = 0.568523E+00
+ PKER_RACCSS( 21, 36) = 0.571992E+00
+ PKER_RACCSS( 21, 37) = 0.574857E+00
+ PKER_RACCSS( 21, 38) = 0.577224E+00
+ PKER_RACCSS( 21, 39) = 0.579180E+00
+ PKER_RACCSS( 21, 40) = 0.580796E+00
+ PKER_RACCSS( 22, 1) = 0.150616E+02
+ PKER_RACCSS( 22, 2) = 0.123494E+02
+ PKER_RACCSS( 22, 3) = 0.101028E+02
+ PKER_RACCSS( 22, 4) = 0.824177E+01
+ PKER_RACCSS( 22, 5) = 0.669992E+01
+ PKER_RACCSS( 22, 6) = 0.542247E+01
+ PKER_RACCSS( 22, 7) = 0.436411E+01
+ PKER_RACCSS( 22, 8) = 0.348743E+01
+ PKER_RACCSS( 22, 9) = 0.276155E+01
+ PKER_RACCSS( 22, 10) = 0.216106E+01
+ PKER_RACCSS( 22, 11) = 0.166509E+01
+ PKER_RACCSS( 22, 12) = 0.125663E+01
+ PKER_RACCSS( 22, 13) = 0.922338E+00
+ PKER_RACCSS( 22, 14) = 0.652608E+00
+ PKER_RACCSS( 22, 15) = 0.442303E+00
+ PKER_RACCSS( 22, 16) = 0.290764E+00
+ PKER_RACCSS( 22, 17) = 0.199789E+00
+ PKER_RACCSS( 22, 18) = 0.168024E+00
+ PKER_RACCSS( 22, 19) = 0.184374E+00
+ PKER_RACCSS( 22, 20) = 0.229833E+00
+ PKER_RACCSS( 22, 21) = 0.284268E+00
+ PKER_RACCSS( 22, 22) = 0.335094E+00
+ PKER_RACCSS( 22, 23) = 0.378101E+00
+ PKER_RACCSS( 22, 24) = 0.413464E+00
+ PKER_RACCSS( 22, 25) = 0.442432E+00
+ PKER_RACCSS( 22, 26) = 0.466188E+00
+ PKER_RACCSS( 22, 27) = 0.485698E+00
+ PKER_RACCSS( 22, 28) = 0.501739E+00
+ PKER_RACCSS( 22, 29) = 0.514942E+00
+ PKER_RACCSS( 22, 30) = 0.525819E+00
+ PKER_RACCSS( 22, 31) = 0.534785E+00
+ PKER_RACCSS( 22, 32) = 0.542181E+00
+ PKER_RACCSS( 22, 33) = 0.548285E+00
+ PKER_RACCSS( 22, 34) = 0.553324E+00
+ PKER_RACCSS( 22, 35) = 0.557486E+00
+ PKER_RACCSS( 22, 36) = 0.560925E+00
+ PKER_RACCSS( 22, 37) = 0.563766E+00
+ PKER_RACCSS( 22, 38) = 0.566114E+00
+ PKER_RACCSS( 22, 39) = 0.568055E+00
+ PKER_RACCSS( 22, 40) = 0.569660E+00
+ PKER_RACCSS( 23, 1) = 0.150979E+02
+ PKER_RACCSS( 23, 2) = 0.123864E+02
+ PKER_RACCSS( 23, 3) = 0.101406E+02
+ PKER_RACCSS( 23, 4) = 0.828021E+01
+ PKER_RACCSS( 23, 5) = 0.673899E+01
+ PKER_RACCSS( 23, 6) = 0.546206E+01
+ PKER_RACCSS( 23, 7) = 0.440407E+01
+ PKER_RACCSS( 23, 8) = 0.352753E+01
+ PKER_RACCSS( 23, 9) = 0.280152E+01
+ PKER_RACCSS( 23, 10) = 0.220055E+01
+ PKER_RACCSS( 23, 11) = 0.170365E+01
+ PKER_RACCSS( 23, 12) = 0.129373E+01
+ PKER_RACCSS( 23, 13) = 0.957190E+00
+ PKER_RACCSS( 23, 14) = 0.684027E+00
+ PKER_RACCSS( 23, 15) = 0.468385E+00
+ PKER_RACCSS( 23, 16) = 0.308911E+00
+ PKER_RACCSS( 23, 17) = 0.207457E+00
+ PKER_RACCSS( 23, 18) = 0.163835E+00
+ PKER_RACCSS( 23, 19) = 0.170561E+00
+ PKER_RACCSS( 23, 20) = 0.210020E+00
+ PKER_RACCSS( 23, 21) = 0.262126E+00
+ PKER_RACCSS( 23, 22) = 0.312660E+00
+ PKER_RACCSS( 23, 23) = 0.355977E+00
+ PKER_RACCSS( 23, 24) = 0.391676E+00
+ PKER_RACCSS( 23, 25) = 0.420901E+00
+ PKER_RACCSS( 23, 26) = 0.444846E+00
+ PKER_RACCSS( 23, 27) = 0.464494E+00
+ PKER_RACCSS( 23, 28) = 0.480638E+00
+ PKER_RACCSS( 23, 29) = 0.493917E+00
+ PKER_RACCSS( 23, 30) = 0.504849E+00
+ PKER_RACCSS( 23, 31) = 0.513857E+00
+ PKER_RACCSS( 23, 32) = 0.521285E+00
+ PKER_RACCSS( 23, 33) = 0.527413E+00
+ PKER_RACCSS( 23, 34) = 0.532470E+00
+ PKER_RACCSS( 23, 35) = 0.536646E+00
+ PKER_RACCSS( 23, 36) = 0.540095E+00
+ PKER_RACCSS( 23, 37) = 0.542944E+00
+ PKER_RACCSS( 23, 38) = 0.545298E+00
+ PKER_RACCSS( 23, 39) = 0.547244E+00
+ PKER_RACCSS( 23, 40) = 0.548853E+00
+ PKER_RACCSS( 24, 1) = 0.151313E+02
+ PKER_RACCSS( 24, 2) = 0.124205E+02
+ PKER_RACCSS( 24, 3) = 0.101754E+02
+ PKER_RACCSS( 24, 4) = 0.831562E+01
+ PKER_RACCSS( 24, 5) = 0.677501E+01
+ PKER_RACCSS( 24, 6) = 0.549861E+01
+ PKER_RACCSS( 24, 7) = 0.444105E+01
+ PKER_RACCSS( 24, 8) = 0.356478E+01
+ PKER_RACCSS( 24, 9) = 0.283883E+01
+ PKER_RACCSS( 24, 10) = 0.223762E+01
+ PKER_RACCSS( 24, 11) = 0.174013E+01
+ PKER_RACCSS( 24, 12) = 0.132916E+01
+ PKER_RACCSS( 24, 13) = 0.990915E+00
+ PKER_RACCSS( 24, 14) = 0.714994E+00
+ PKER_RACCSS( 24, 15) = 0.494886E+00
+ PKER_RACCSS( 24, 16) = 0.328492E+00
+ PKER_RACCSS( 24, 17) = 0.217252E+00
+ PKER_RACCSS( 24, 18) = 0.162589E+00
+ PKER_RACCSS( 24, 19) = 0.159037E+00
+ PKER_RACCSS( 24, 20) = 0.191737E+00
+ PKER_RACCSS( 24, 21) = 0.240913E+00
+ PKER_RACCSS( 24, 22) = 0.290897E+00
+ PKER_RACCSS( 24, 23) = 0.334479E+00
+ PKER_RACCSS( 24, 24) = 0.370533E+00
+ PKER_RACCSS( 24, 25) = 0.400040E+00
+ PKER_RACCSS( 24, 26) = 0.424194E+00
+ PKER_RACCSS( 24, 27) = 0.443995E+00
+ PKER_RACCSS( 24, 28) = 0.460252E+00
+ PKER_RACCSS( 24, 29) = 0.473614E+00
+ PKER_RACCSS( 24, 30) = 0.484609E+00
+ PKER_RACCSS( 24, 31) = 0.493664E+00
+ PKER_RACCSS( 24, 32) = 0.501127E+00
+ PKER_RACCSS( 24, 33) = 0.507281E+00
+ PKER_RACCSS( 24, 34) = 0.512358E+00
+ PKER_RACCSS( 24, 35) = 0.516549E+00
+ PKER_RACCSS( 24, 36) = 0.520010E+00
+ PKER_RACCSS( 24, 37) = 0.522868E+00
+ PKER_RACCSS( 24, 38) = 0.525229E+00
+ PKER_RACCSS( 24, 39) = 0.527180E+00
+ PKER_RACCSS( 24, 40) = 0.528793E+00
+ PKER_RACCSS( 25, 1) = 0.151186E+02
+ PKER_RACCSS( 25, 2) = 0.124078E+02
+ PKER_RACCSS( 25, 3) = 0.101626E+02
+ PKER_RACCSS( 25, 4) = 0.830303E+01
+ PKER_RACCSS( 25, 5) = 0.676263E+01
+ PKER_RACCSS( 25, 6) = 0.548657E+01
+ PKER_RACCSS( 25, 7) = 0.442948E+01
+ PKER_RACCSS( 25, 8) = 0.355385E+01
+ PKER_RACCSS( 25, 9) = 0.282871E+01
+ PKER_RACCSS( 25, 10) = 0.222851E+01
+ PKER_RACCSS( 25, 11) = 0.173221E+01
+ PKER_RACCSS( 25, 12) = 0.132257E+01
+ PKER_RACCSS( 25, 13) = 0.985715E+00
+ PKER_RACCSS( 25, 14) = 0.711082E+00
+ PKER_RACCSS( 25, 15) = 0.491890E+00
+ PKER_RACCSS( 25, 16) = 0.325723E+00
+ PKER_RACCSS( 25, 17) = 0.214049E+00
+ PKER_RACCSS( 25, 18) = 0.158333E+00
+ PKER_RACCSS( 25, 19) = 0.154025E+00
+ PKER_RACCSS( 25, 20) = 0.186503E+00
+ PKER_RACCSS( 25, 21) = 0.235616E+00
+ PKER_RACCSS( 25, 22) = 0.285368E+00
+ PKER_RACCSS( 25, 23) = 0.328578E+00
+ PKER_RACCSS( 25, 24) = 0.364257E+00
+ PKER_RACCSS( 25, 25) = 0.393449E+00
+ PKER_RACCSS( 25, 26) = 0.417350E+00
+ PKER_RACCSS( 25, 27) = 0.436948E+00
+ PKER_RACCSS( 25, 28) = 0.453043E+00
+ PKER_RACCSS( 25, 29) = 0.466276E+00
+ PKER_RACCSS( 25, 30) = 0.477167E+00
+ PKER_RACCSS( 25, 31) = 0.486140E+00
+ PKER_RACCSS( 25, 32) = 0.493537E+00
+ PKER_RACCSS( 25, 33) = 0.499640E+00
+ PKER_RACCSS( 25, 34) = 0.504676E+00
+ PKER_RACCSS( 25, 35) = 0.508835E+00
+ PKER_RACCSS( 25, 36) = 0.512269E+00
+ PKER_RACCSS( 25, 37) = 0.515107E+00
+ PKER_RACCSS( 25, 38) = 0.517453E+00
+ PKER_RACCSS( 25, 39) = 0.519391E+00
+ PKER_RACCSS( 25, 40) = 0.520994E+00
+ PKER_RACCSS( 26, 1) = 0.151502E+02
+ PKER_RACCSS( 26, 2) = 0.124400E+02
+ PKER_RACCSS( 26, 3) = 0.101954E+02
+ PKER_RACCSS( 26, 4) = 0.833638E+01
+ PKER_RACCSS( 26, 5) = 0.679650E+01
+ PKER_RACCSS( 26, 6) = 0.552089E+01
+ PKER_RACCSS( 26, 7) = 0.446415E+01
+ PKER_RACCSS( 26, 8) = 0.358874E+01
+ PKER_RACCSS( 26, 9) = 0.286364E+01
+ PKER_RACCSS( 26, 10) = 0.226323E+01
+ PKER_RACCSS( 26, 11) = 0.176644E+01
+ PKER_RACCSS( 26, 12) = 0.135592E+01
+ PKER_RACCSS( 26, 13) = 0.101768E+01
+ PKER_RACCSS( 26, 14) = 0.740844E+00
+ PKER_RACCSS( 26, 15) = 0.518070E+00
+ PKER_RACCSS( 26, 16) = 0.346172E+00
+ PKER_RACCSS( 26, 17) = 0.226017E+00
+ PKER_RACCSS( 26, 18) = 0.159878E+00
+ PKER_RACCSS( 26, 19) = 0.145246E+00
+ PKER_RACCSS( 26, 20) = 0.170270E+00
+ PKER_RACCSS( 26, 21) = 0.215832E+00
+ PKER_RACCSS( 26, 22) = 0.264733E+00
+ PKER_RACCSS( 26, 23) = 0.308137E+00
+ PKER_RACCSS( 26, 24) = 0.344161E+00
+ PKER_RACCSS( 26, 25) = 0.373631E+00
+ PKER_RACCSS( 26, 26) = 0.397736E+00
+ PKER_RACCSS( 26, 27) = 0.417484E+00
+ PKER_RACCSS( 26, 28) = 0.433688E+00
+ PKER_RACCSS( 26, 29) = 0.447000E+00
+ PKER_RACCSS( 26, 30) = 0.457951E+00
+ PKER_RACCSS( 26, 31) = 0.466967E+00
+ PKER_RACCSS( 26, 32) = 0.474396E+00
+ PKER_RACCSS( 26, 33) = 0.480523E+00
+ PKER_RACCSS( 26, 34) = 0.485577E+00
+ PKER_RACCSS( 26, 35) = 0.489749E+00
+ PKER_RACCSS( 26, 36) = 0.493194E+00
+ PKER_RACCSS( 26, 37) = 0.496040E+00
+ PKER_RACCSS( 26, 38) = 0.498391E+00
+ PKER_RACCSS( 26, 39) = 0.500334E+00
+ PKER_RACCSS( 26, 40) = 0.501941E+00
+ PKER_RACCSS( 27, 1) = 0.151451E+02
+ PKER_RACCSS( 27, 2) = 0.124349E+02
+ PKER_RACCSS( 27, 3) = 0.101904E+02
+ PKER_RACCSS( 27, 4) = 0.833146E+01
+ PKER_RACCSS( 27, 5) = 0.679173E+01
+ PKER_RACCSS( 27, 6) = 0.551633E+01
+ PKER_RACCSS( 27, 7) = 0.445987E+01
+ PKER_RACCSS( 27, 8) = 0.358481E+01
+ PKER_RACCSS( 27, 9) = 0.286015E+01
+ PKER_RACCSS( 27, 10) = 0.226029E+01
+ PKER_RACCSS( 27, 11) = 0.176412E+01
+ PKER_RACCSS( 27, 12) = 0.135430E+01
+ PKER_RACCSS( 27, 13) = 0.101677E+01
+ PKER_RACCSS( 27, 14) = 0.740564E+00
+ PKER_RACCSS( 27, 15) = 0.518139E+00
+ PKER_RACCSS( 27, 16) = 0.346058E+00
+ PKER_RACCSS( 27, 17) = 0.225045E+00
+ PKER_RACCSS( 27, 18) = 0.157543E+00
+ PKER_RACCSS( 27, 19) = 0.141661E+00
+ PKER_RACCSS( 27, 20) = 0.165829E+00
+ PKER_RACCSS( 27, 21) = 0.211007E+00
+ PKER_RACCSS( 27, 22) = 0.259680E+00
+ PKER_RACCSS( 27, 23) = 0.302834E+00
+ PKER_RACCSS( 27, 24) = 0.338612E+00
+ PKER_RACCSS( 27, 25) = 0.367872E+00
+ PKER_RACCSS( 27, 26) = 0.391804E+00
+ PKER_RACCSS( 27, 27) = 0.411411E+00
+ PKER_RACCSS( 27, 28) = 0.427500E+00
+ PKER_RACCSS( 27, 29) = 0.440721E+00
+ PKER_RACCSS( 27, 30) = 0.451597E+00
+ PKER_RACCSS( 27, 31) = 0.460554E+00
+ PKER_RACCSS( 27, 32) = 0.467935E+00
+ PKER_RACCSS( 27, 33) = 0.474024E+00
+ PKER_RACCSS( 27, 34) = 0.479048E+00
+ PKER_RACCSS( 27, 35) = 0.483196E+00
+ PKER_RACCSS( 27, 36) = 0.486622E+00
+ PKER_RACCSS( 27, 37) = 0.489452E+00
+ PKER_RACCSS( 27, 38) = 0.491791E+00
+ PKER_RACCSS( 27, 39) = 0.493725E+00
+ PKER_RACCSS( 27, 40) = 0.495324E+00
+ PKER_RACCSS( 28, 1) = 0.151746E+02
+ PKER_RACCSS( 28, 2) = 0.124649E+02
+ PKER_RACCSS( 28, 3) = 0.102210E+02
+ PKER_RACCSS( 28, 4) = 0.836251E+01
+ PKER_RACCSS( 28, 5) = 0.682323E+01
+ PKER_RACCSS( 28, 6) = 0.554824E+01
+ PKER_RACCSS( 28, 7) = 0.449210E+01
+ PKER_RACCSS( 28, 8) = 0.361726E+01
+ PKER_RACCSS( 28, 9) = 0.289267E+01
+ PKER_RACCSS( 28, 10) = 0.229268E+01
+ PKER_RACCSS( 28, 11) = 0.179615E+01
+ PKER_RACCSS( 28, 12) = 0.138566E+01
+ PKER_RACCSS( 28, 13) = 0.104705E+01
+ PKER_RACCSS( 28, 14) = 0.769113E+00
+ PKER_RACCSS( 28, 15) = 0.543868E+00
+ PKER_RACCSS( 28, 16) = 0.367164E+00
+ PKER_RACCSS( 28, 17) = 0.238904E+00
+ PKER_RACCSS( 28, 18) = 0.161752E+00
+ PKER_RACCSS( 28, 19) = 0.135585E+00
+ PKER_RACCSS( 28, 20) = 0.151808E+00
+ PKER_RACCSS( 28, 21) = 0.192655E+00
+ PKER_RACCSS( 28, 22) = 0.240085E+00
+ PKER_RACCSS( 28, 23) = 0.283326E+00
+ PKER_RACCSS( 28, 24) = 0.319439E+00
+ PKER_RACCSS( 28, 25) = 0.348983E+00
+ PKER_RACCSS( 28, 26) = 0.373123E+00
+ PKER_RACCSS( 28, 27) = 0.392882E+00
+ PKER_RACCSS( 28, 28) = 0.409082E+00
+ PKER_RACCSS( 28, 29) = 0.422382E+00
+ PKER_RACCSS( 28, 30) = 0.433316E+00
+ PKER_RACCSS( 28, 31) = 0.442315E+00
+ PKER_RACCSS( 28, 32) = 0.449727E+00
+ PKER_RACCSS( 28, 33) = 0.455838E+00
+ PKER_RACCSS( 28, 34) = 0.460879E+00
+ PKER_RACCSS( 28, 35) = 0.465040E+00
+ PKER_RACCSS( 28, 36) = 0.468475E+00
+ PKER_RACCSS( 28, 37) = 0.471313E+00
+ PKER_RACCSS( 28, 38) = 0.473658E+00
+ PKER_RACCSS( 28, 39) = 0.475596E+00
+ PKER_RACCSS( 28, 40) = 0.477197E+00
+ PKER_RACCSS( 29, 1) = 0.151744E+02
+ PKER_RACCSS( 29, 2) = 0.124648E+02
+ PKER_RACCSS( 29, 3) = 0.102209E+02
+ PKER_RACCSS( 29, 4) = 0.836258E+01
+ PKER_RACCSS( 29, 5) = 0.682343E+01
+ PKER_RACCSS( 29, 6) = 0.554859E+01
+ PKER_RACCSS( 29, 7) = 0.449264E+01
+ PKER_RACCSS( 29, 8) = 0.361802E+01
+ PKER_RACCSS( 29, 9) = 0.289369E+01
+ PKER_RACCSS( 29, 10) = 0.229399E+01
+ PKER_RACCSS( 29, 11) = 0.179779E+01
+ PKER_RACCSS( 29, 12) = 0.138765E+01
+ PKER_RACCSS( 29, 13) = 0.104938E+01
+ PKER_RACCSS( 29, 14) = 0.771698E+00
+ PKER_RACCSS( 29, 15) = 0.546477E+00
+ PKER_RACCSS( 29, 16) = 0.369302E+00
+ PKER_RACCSS( 29, 17) = 0.239969E+00
+ PKER_RACCSS( 29, 18) = 0.161044E+00
+ PKER_RACCSS( 29, 19) = 0.132978E+00
+ PKER_RACCSS( 29, 20) = 0.147668E+00
+ PKER_RACCSS( 29, 21) = 0.187753E+00
+ PKER_RACCSS( 29, 22) = 0.234860E+00
+ PKER_RACCSS( 29, 23) = 0.277923E+00
+ PKER_RACCSS( 29, 24) = 0.313888E+00
+ PKER_RACCSS( 29, 25) = 0.343302E+00
+ PKER_RACCSS( 29, 26) = 0.367332E+00
+ PKER_RACCSS( 29, 27) = 0.386998E+00
+ PKER_RACCSS( 29, 28) = 0.403120E+00
+ PKER_RACCSS( 29, 29) = 0.416356E+00
+ PKER_RACCSS( 29, 30) = 0.427238E+00
+ PKER_RACCSS( 29, 31) = 0.436194E+00
+ PKER_RACCSS( 29, 32) = 0.443573E+00
+ PKER_RACCSS( 29, 33) = 0.449656E+00
+ PKER_RACCSS( 29, 34) = 0.454675E+00
+ PKER_RACCSS( 29, 35) = 0.458817E+00
+ PKER_RACCSS( 29, 36) = 0.462238E+00
+ PKER_RACCSS( 29, 37) = 0.465065E+00
+ PKER_RACCSS( 29, 38) = 0.467400E+00
+ PKER_RACCSS( 29, 39) = 0.469331E+00
+ PKER_RACCSS( 29, 40) = 0.470927E+00
+ PKER_RACCSS( 30, 1) = 0.151777E+02
+ PKER_RACCSS( 30, 2) = 0.124682E+02
+ PKER_RACCSS( 30, 3) = 0.102244E+02
+ PKER_RACCSS( 30, 4) = 0.836622E+01
+ PKER_RACCSS( 30, 5) = 0.682721E+01
+ PKER_RACCSS( 30, 6) = 0.555252E+01
+ PKER_RACCSS( 30, 7) = 0.449672E+01
+ PKER_RACCSS( 30, 8) = 0.362228E+01
+ PKER_RACCSS( 30, 9) = 0.289813E+01
+ PKER_RACCSS( 30, 10) = 0.229862E+01
+ PKER_RACCSS( 30, 11) = 0.180260E+01
+ PKER_RACCSS( 30, 12) = 0.139263E+01
+ PKER_RACCSS( 30, 13) = 0.105449E+01
+ PKER_RACCSS( 30, 14) = 0.776814E+00
+ PKER_RACCSS( 30, 15) = 0.551329E+00
+ PKER_RACCSS( 30, 16) = 0.373385E+00
+ PKER_RACCSS( 30, 17) = 0.242532E+00
+ PKER_RACCSS( 30, 18) = 0.161357E+00
+ PKER_RACCSS( 30, 19) = 0.130712E+00
+ PKER_RACCSS( 30, 20) = 0.143314E+00
+ PKER_RACCSS( 30, 21) = 0.182278E+00
+ PKER_RACCSS( 30, 22) = 0.228959E+00
+ PKER_RACCSS( 30, 23) = 0.271893E+00
+ PKER_RACCSS( 30, 24) = 0.307788E+00
+ PKER_RACCSS( 30, 25) = 0.337139E+00
+ PKER_RACCSS( 30, 26) = 0.361112E+00
+ PKER_RACCSS( 30, 27) = 0.380727E+00
+ PKER_RACCSS( 30, 28) = 0.396805E+00
+ PKER_RACCSS( 30, 29) = 0.410003E+00
+ PKER_RACCSS( 30, 30) = 0.420852E+00
+ PKER_RACCSS( 30, 31) = 0.429781E+00
+ PKER_RACCSS( 30, 32) = 0.437137E+00
+ PKER_RACCSS( 30, 33) = 0.443202E+00
+ PKER_RACCSS( 30, 34) = 0.448206E+00
+ PKER_RACCSS( 30, 35) = 0.452337E+00
+ PKER_RACCSS( 30, 36) = 0.455748E+00
+ PKER_RACCSS( 30, 37) = 0.458567E+00
+ PKER_RACCSS( 30, 38) = 0.460896E+00
+ PKER_RACCSS( 30, 39) = 0.462821E+00
+ PKER_RACCSS( 30, 40) = 0.464413E+00
+ PKER_RACCSS( 31, 1) = 0.151836E+02
+ PKER_RACCSS( 31, 2) = 0.124743E+02
+ PKER_RACCSS( 31, 3) = 0.102306E+02
+ PKER_RACCSS( 31, 4) = 0.837255E+01
+ PKER_RACCSS( 31, 5) = 0.683368E+01
+ PKER_RACCSS( 31, 6) = 0.555914E+01
+ PKER_RACCSS( 31, 7) = 0.450350E+01
+ PKER_RACCSS( 31, 8) = 0.362919E+01
+ PKER_RACCSS( 31, 9) = 0.290518E+01
+ PKER_RACCSS( 31, 10) = 0.230579E+01
+ PKER_RACCSS( 31, 11) = 0.180986E+01
+ PKER_RACCSS( 31, 12) = 0.139994E+01
+ PKER_RACCSS( 31, 13) = 0.106178E+01
+ PKER_RACCSS( 31, 14) = 0.783938E+00
+ PKER_RACCSS( 31, 15) = 0.558007E+00
+ PKER_RACCSS( 31, 16) = 0.379065E+00
+ PKER_RACCSS( 31, 17) = 0.246416E+00
+ PKER_RACCSS( 31, 18) = 0.162546E+00
+ PKER_RACCSS( 31, 19) = 0.128822E+00
+ PKER_RACCSS( 31, 20) = 0.138784E+00
+ PKER_RACCSS( 31, 21) = 0.176237E+00
+ PKER_RACCSS( 31, 22) = 0.222379E+00
+ PKER_RACCSS( 31, 23) = 0.265209E+00
+ PKER_RACCSS( 31, 24) = 0.301089E+00
+ PKER_RACCSS( 31, 25) = 0.330428E+00
+ PKER_RACCSS( 31, 26) = 0.354383E+00
+ PKER_RACCSS( 31, 27) = 0.373977E+00
+ PKER_RACCSS( 31, 28) = 0.390033E+00
+ PKER_RACCSS( 31, 29) = 0.403211E+00
+ PKER_RACCSS( 31, 30) = 0.414042E+00
+ PKER_RACCSS( 31, 31) = 0.422955E+00
+ PKER_RACCSS( 31, 32) = 0.430297E+00
+ PKER_RACCSS( 31, 33) = 0.436350E+00
+ PKER_RACCSS( 31, 34) = 0.441344E+00
+ PKER_RACCSS( 31, 35) = 0.445466E+00
+ PKER_RACCSS( 31, 36) = 0.448871E+00
+ PKER_RACCSS( 31, 37) = 0.451684E+00
+ PKER_RACCSS( 31, 38) = 0.454009E+00
+ PKER_RACCSS( 31, 39) = 0.455931E+00
+ PKER_RACCSS( 31, 40) = 0.457521E+00
+ PKER_RACCSS( 32, 1) = 0.151915E+02
+ PKER_RACCSS( 32, 2) = 0.124823E+02
+ PKER_RACCSS( 32, 3) = 0.102388E+02
+ PKER_RACCSS( 32, 4) = 0.838091E+01
+ PKER_RACCSS( 32, 5) = 0.684220E+01
+ PKER_RACCSS( 32, 6) = 0.556781E+01
+ PKER_RACCSS( 32, 7) = 0.451231E+01
+ PKER_RACCSS( 32, 8) = 0.363813E+01
+ PKER_RACCSS( 32, 9) = 0.291422E+01
+ PKER_RACCSS( 32, 10) = 0.231491E+01
+ PKER_RACCSS( 32, 11) = 0.181901E+01
+ PKER_RACCSS( 32, 12) = 0.140907E+01
+ PKER_RACCSS( 32, 13) = 0.107079E+01
+ PKER_RACCSS( 32, 14) = 0.792668E+00
+ PKER_RACCSS( 32, 15) = 0.566164E+00
+ PKER_RACCSS( 32, 16) = 0.386094E+00
+ PKER_RACCSS( 32, 17) = 0.251429E+00
+ PKER_RACCSS( 32, 18) = 0.164568E+00
+ PKER_RACCSS( 32, 19) = 0.127239E+00
+ PKER_RACCSS( 32, 20) = 0.134121E+00
+ PKER_RACCSS( 32, 21) = 0.169713E+00
+ PKER_RACCSS( 32, 22) = 0.215193E+00
+ PKER_RACCSS( 32, 23) = 0.257911E+00
+ PKER_RACCSS( 32, 24) = 0.293817E+00
+ PKER_RACCSS( 32, 25) = 0.323182E+00
+ PKER_RACCSS( 32, 26) = 0.347148E+00
+ PKER_RACCSS( 32, 27) = 0.366744E+00
+ PKER_RACCSS( 32, 28) = 0.382796E+00
+ PKER_RACCSS( 32, 29) = 0.395967E+00
+ PKER_RACCSS( 32, 30) = 0.406790E+00
+ PKER_RACCSS( 32, 31) = 0.415694E+00
+ PKER_RACCSS( 32, 32) = 0.423028E+00
+ PKER_RACCSS( 32, 33) = 0.429074E+00
+ PKER_RACCSS( 32, 34) = 0.434062E+00
+ PKER_RACCSS( 32, 35) = 0.438179E+00
+ PKER_RACCSS( 32, 36) = 0.441579E+00
+ PKER_RACCSS( 32, 37) = 0.444389E+00
+ PKER_RACCSS( 32, 38) = 0.446711E+00
+ PKER_RACCSS( 32, 39) = 0.448630E+00
+ PKER_RACCSS( 32, 40) = 0.450218E+00
+ PKER_RACCSS( 33, 1) = 0.152009E+02
+ PKER_RACCSS( 33, 2) = 0.124919E+02
+ PKER_RACCSS( 33, 3) = 0.102486E+02
+ PKER_RACCSS( 33, 4) = 0.839080E+01
+ PKER_RACCSS( 33, 5) = 0.685225E+01
+ PKER_RACCSS( 33, 6) = 0.557801E+01
+ PKER_RACCSS( 33, 7) = 0.452265E+01
+ PKER_RACCSS( 33, 8) = 0.364859E+01
+ PKER_RACCSS( 33, 9) = 0.292477E+01
+ PKER_RACCSS( 33, 10) = 0.232551E+01
+ PKER_RACCSS( 33, 11) = 0.182961E+01
+ PKER_RACCSS( 33, 12) = 0.141959E+01
+ PKER_RACCSS( 33, 13) = 0.108114E+01
+ PKER_RACCSS( 33, 14) = 0.802676E+00
+ PKER_RACCSS( 33, 15) = 0.575530E+00
+ PKER_RACCSS( 33, 16) = 0.394264E+00
+ PKER_RACCSS( 33, 17) = 0.257440E+00
+ PKER_RACCSS( 33, 18) = 0.167330E+00
+ PKER_RACCSS( 33, 19) = 0.126058E+00
+ PKER_RACCSS( 33, 20) = 0.129424E+00
+ PKER_RACCSS( 33, 21) = 0.162814E+00
+ PKER_RACCSS( 33, 22) = 0.207467E+00
+ PKER_RACCSS( 33, 23) = 0.250066E+00
+ PKER_RACCSS( 33, 24) = 0.286027E+00
+ PKER_RACCSS( 33, 25) = 0.315448E+00
+ PKER_RACCSS( 33, 26) = 0.339449E+00
+ PKER_RACCSS( 33, 27) = 0.359065E+00
+ PKER_RACCSS( 33, 28) = 0.375127E+00
+ PKER_RACCSS( 33, 29) = 0.388301E+00
+ PKER_RACCSS( 33, 30) = 0.399124E+00
+ PKER_RACCSS( 33, 31) = 0.408026E+00
+ PKER_RACCSS( 33, 32) = 0.415356E+00
+ PKER_RACCSS( 33, 33) = 0.421398E+00
+ PKER_RACCSS( 33, 34) = 0.426383E+00
+ PKER_RACCSS( 33, 35) = 0.430497E+00
+ PKER_RACCSS( 33, 36) = 0.433894E+00
+ PKER_RACCSS( 33, 37) = 0.436701E+00
+ PKER_RACCSS( 33, 38) = 0.439021E+00
+ PKER_RACCSS( 33, 39) = 0.440939E+00
+ PKER_RACCSS( 33, 40) = 0.442525E+00
+ PKER_RACCSS( 34, 1) = 0.151971E+02
+ PKER_RACCSS( 34, 2) = 0.124880E+02
+ PKER_RACCSS( 34, 3) = 0.102447E+02
+ PKER_RACCSS( 34, 4) = 0.838691E+01
+ PKER_RACCSS( 34, 5) = 0.684835E+01
+ PKER_RACCSS( 34, 6) = 0.557411E+01
+ PKER_RACCSS( 34, 7) = 0.451878E+01
+ PKER_RACCSS( 34, 8) = 0.364477E+01
+ PKER_RACCSS( 34, 9) = 0.292103E+01
+ PKER_RACCSS( 34, 10) = 0.232187E+01
+ PKER_RACCSS( 34, 11) = 0.182612E+01
+ PKER_RACCSS( 34, 12) = 0.141629E+01
+ PKER_RACCSS( 34, 13) = 0.107808E+01
+ PKER_RACCSS( 34, 14) = 0.799892E+00
+ PKER_RACCSS( 34, 15) = 0.573060E+00
+ PKER_RACCSS( 34, 16) = 0.392110E+00
+ PKER_RACCSS( 34, 17) = 0.255733E+00
+ PKER_RACCSS( 34, 18) = 0.166098E+00
+ PKER_RACCSS( 34, 19) = 0.125461E+00
+ PKER_RACCSS( 34, 20) = 0.129380E+00
+ PKER_RACCSS( 34, 21) = 0.163200E+00
+ PKER_RACCSS( 34, 22) = 0.207975E+00
+ PKER_RACCSS( 34, 23) = 0.250519E+00
+ PKER_RACCSS( 34, 24) = 0.286368E+00
+ PKER_RACCSS( 34, 25) = 0.315685E+00
+ PKER_RACCSS( 34, 26) = 0.339602E+00
+ PKER_RACCSS( 34, 27) = 0.359151E+00
+ PKER_RACCSS( 34, 28) = 0.375158E+00
+ PKER_RACCSS( 34, 29) = 0.388290E+00
+ PKER_RACCSS( 34, 30) = 0.399078E+00
+ PKER_RACCSS( 34, 31) = 0.407953E+00
+ PKER_RACCSS( 34, 32) = 0.415262E+00
+ PKER_RACCSS( 34, 33) = 0.421287E+00
+ PKER_RACCSS( 34, 34) = 0.426258E+00
+ PKER_RACCSS( 34, 35) = 0.430362E+00
+ PKER_RACCSS( 34, 36) = 0.433751E+00
+ PKER_RACCSS( 34, 37) = 0.436551E+00
+ PKER_RACCSS( 34, 38) = 0.438866E+00
+ PKER_RACCSS( 34, 39) = 0.440779E+00
+ PKER_RACCSS( 34, 40) = 0.442362E+00
+ PKER_RACCSS( 35, 1) = 0.152099E+02
+ PKER_RACCSS( 35, 2) = 0.125010E+02
+ PKER_RACCSS( 35, 3) = 0.102578E+02
+ PKER_RACCSS( 35, 4) = 0.840025E+01
+ PKER_RACCSS( 35, 5) = 0.686188E+01
+ PKER_RACCSS( 35, 6) = 0.558781E+01
+ PKER_RACCSS( 35, 7) = 0.453263E+01
+ PKER_RACCSS( 35, 8) = 0.365873E+01
+ PKER_RACCSS( 35, 9) = 0.293505E+01
+ PKER_RACCSS( 35, 10) = 0.233590E+01
+ PKER_RACCSS( 35, 11) = 0.184008E+01
+ PKER_RACCSS( 35, 12) = 0.143009E+01
+ PKER_RACCSS( 35, 13) = 0.109157E+01
+ PKER_RACCSS( 35, 14) = 0.812879E+00
+ PKER_RACCSS( 35, 15) = 0.585208E+00
+ PKER_RACCSS( 35, 16) = 0.402826E+00
+ PKER_RACCSS( 35, 17) = 0.263849E+00
+ PKER_RACCSS( 35, 18) = 0.170369E+00
+ PKER_RACCSS( 35, 19) = 0.124824E+00
+ PKER_RACCSS( 35, 20) = 0.124271E+00
+ PKER_RACCSS( 35, 21) = 0.155136E+00
+ PKER_RACCSS( 35, 22) = 0.198773E+00
+ PKER_RACCSS( 35, 23) = 0.241168E+00
+ PKER_RACCSS( 35, 24) = 0.277131E+00
+ PKER_RACCSS( 35, 25) = 0.306563E+00
+ PKER_RACCSS( 35, 26) = 0.330561E+00
+ PKER_RACCSS( 35, 27) = 0.350164E+00
+ PKER_RACCSS( 35, 28) = 0.366208E+00
+ PKER_RACCSS( 35, 29) = 0.379363E+00
+ PKER_RACCSS( 35, 30) = 0.390166E+00
+ PKER_RACCSS( 35, 31) = 0.399049E+00
+ PKER_RACCSS( 35, 32) = 0.406364E+00
+ PKER_RACCSS( 35, 33) = 0.412392E+00
+ PKER_RACCSS( 35, 34) = 0.417364E+00
+ PKER_RACCSS( 35, 35) = 0.421468E+00
+ PKER_RACCSS( 35, 36) = 0.424857E+00
+ PKER_RACCSS( 35, 37) = 0.427657E+00
+ PKER_RACCSS( 35, 38) = 0.429971E+00
+ PKER_RACCSS( 35, 39) = 0.431885E+00
+ PKER_RACCSS( 35, 40) = 0.433467E+00
+ PKER_RACCSS( 36, 1) = 0.152117E+02
+ PKER_RACCSS( 36, 2) = 0.125029E+02
+ PKER_RACCSS( 36, 3) = 0.102598E+02
+ PKER_RACCSS( 36, 4) = 0.840225E+01
+ PKER_RACCSS( 36, 5) = 0.686393E+01
+ PKER_RACCSS( 36, 6) = 0.558991E+01
+ PKER_RACCSS( 36, 7) = 0.453478E+01
+ PKER_RACCSS( 36, 8) = 0.366093E+01
+ PKER_RACCSS( 36, 9) = 0.293730E+01
+ PKER_RACCSS( 36, 10) = 0.233820E+01
+ PKER_RACCSS( 36, 11) = 0.184242E+01
+ PKER_RACCSS( 36, 12) = 0.143247E+01
+ PKER_RACCSS( 36, 13) = 0.109397E+01
+ PKER_RACCSS( 36, 14) = 0.815257E+00
+ PKER_RACCSS( 36, 15) = 0.587501E+00
+ PKER_RACCSS( 36, 16) = 0.404877E+00
+ PKER_RACCSS( 36, 17) = 0.265403E+00
+ PKER_RACCSS( 36, 18) = 0.171085E+00
+ PKER_RACCSS( 36, 19) = 0.124480E+00
+ PKER_RACCSS( 36, 20) = 0.122892E+00
+ PKER_RACCSS( 36, 21) = 0.153094E+00
+ PKER_RACCSS( 36, 22) = 0.196462E+00
+ PKER_RACCSS( 36, 23) = 0.238785E+00
+ PKER_RACCSS( 36, 24) = 0.274730E+00
+ PKER_RACCSS( 36, 25) = 0.304147E+00
+ PKER_RACCSS( 36, 26) = 0.328131E+00
+ PKER_RACCSS( 36, 27) = 0.347719E+00
+ PKER_RACCSS( 36, 28) = 0.363748E+00
+ PKER_RACCSS( 36, 29) = 0.376890E+00
+ PKER_RACCSS( 36, 30) = 0.387681E+00
+ PKER_RACCSS( 36, 31) = 0.396555E+00
+ PKER_RACCSS( 36, 32) = 0.403861E+00
+ PKER_RACCSS( 36, 33) = 0.409882E+00
+ PKER_RACCSS( 36, 34) = 0.414848E+00
+ PKER_RACCSS( 36, 35) = 0.418948E+00
+ PKER_RACCSS( 36, 36) = 0.422333E+00
+ PKER_RACCSS( 36, 37) = 0.425130E+00
+ PKER_RACCSS( 36, 38) = 0.427442E+00
+ PKER_RACCSS( 36, 39) = 0.429353E+00
+ PKER_RACCSS( 36, 40) = 0.430933E+00
+ PKER_RACCSS( 37, 1) = 0.152162E+02
+ PKER_RACCSS( 37, 2) = 0.125075E+02
+ PKER_RACCSS( 37, 3) = 0.102644E+02
+ PKER_RACCSS( 37, 4) = 0.840697E+01
+ PKER_RACCSS( 37, 5) = 0.686872E+01
+ PKER_RACCSS( 37, 6) = 0.559478E+01
+ PKER_RACCSS( 37, 7) = 0.453971E+01
+ PKER_RACCSS( 37, 8) = 0.366592E+01
+ PKER_RACCSS( 37, 9) = 0.294234E+01
+ PKER_RACCSS( 37, 10) = 0.234327E+01
+ PKER_RACCSS( 37, 11) = 0.184749E+01
+ PKER_RACCSS( 37, 12) = 0.143752E+01
+ PKER_RACCSS( 37, 13) = 0.109895E+01
+ PKER_RACCSS( 37, 14) = 0.820105E+00
+ PKER_RACCSS( 37, 15) = 0.592091E+00
+ PKER_RACCSS( 37, 16) = 0.408984E+00
+ PKER_RACCSS( 37, 17) = 0.268575E+00
+ PKER_RACCSS( 37, 18) = 0.172806E+00
+ PKER_RACCSS( 37, 19) = 0.124277E+00
+ PKER_RACCSS( 37, 20) = 0.120892E+00
+ PKER_RACCSS( 37, 21) = 0.149864E+00
+ PKER_RACCSS( 37, 22) = 0.192716E+00
+ PKER_RACCSS( 37, 23) = 0.234946E+00
+ PKER_RACCSS( 37, 24) = 0.270912E+00
+ PKER_RACCSS( 37, 25) = 0.300356E+00
+ PKER_RACCSS( 37, 26) = 0.324355E+00
+ PKER_RACCSS( 37, 27) = 0.343951E+00
+ PKER_RACCSS( 37, 28) = 0.359984E+00
+ PKER_RACCSS( 37, 29) = 0.373125E+00
+ PKER_RACCSS( 37, 30) = 0.383915E+00
+ PKER_RACCSS( 37, 31) = 0.392786E+00
+ PKER_RACCSS( 37, 32) = 0.400089E+00
+ PKER_RACCSS( 37, 33) = 0.406107E+00
+ PKER_RACCSS( 37, 34) = 0.411070E+00
+ PKER_RACCSS( 37, 35) = 0.415167E+00
+ PKER_RACCSS( 37, 36) = 0.418550E+00
+ PKER_RACCSS( 37, 37) = 0.421345E+00
+ PKER_RACCSS( 37, 38) = 0.423655E+00
+ PKER_RACCSS( 37, 39) = 0.425565E+00
+ PKER_RACCSS( 37, 40) = 0.427145E+00
+ PKER_RACCSS( 38, 1) = 0.152141E+02
+ PKER_RACCSS( 38, 2) = 0.125054E+02
+ PKER_RACCSS( 38, 3) = 0.102623E+02
+ PKER_RACCSS( 38, 4) = 0.840483E+01
+ PKER_RACCSS( 38, 5) = 0.686657E+01
+ PKER_RACCSS( 38, 6) = 0.559262E+01
+ PKER_RACCSS( 38, 7) = 0.453755E+01
+ PKER_RACCSS( 38, 8) = 0.366377E+01
+ PKER_RACCSS( 38, 9) = 0.294022E+01
+ PKER_RACCSS( 38, 10) = 0.234118E+01
+ PKER_RACCSS( 38, 11) = 0.184546E+01
+ PKER_RACCSS( 38, 12) = 0.143556E+01
+ PKER_RACCSS( 38, 13) = 0.109710E+01
+ PKER_RACCSS( 38, 14) = 0.818377E+00
+ PKER_RACCSS( 38, 15) = 0.590523E+00
+ PKER_RACCSS( 38, 16) = 0.407592E+00
+ PKER_RACCSS( 38, 17) = 0.267490E+00
+ PKER_RACCSS( 38, 18) = 0.172060E+00
+ PKER_RACCSS( 38, 19) = 0.124040E+00
+ PKER_RACCSS( 38, 20) = 0.121054E+00
+ PKER_RACCSS( 38, 21) = 0.150368E+00
+ PKER_RACCSS( 38, 22) = 0.193361E+00
+ PKER_RACCSS( 38, 23) = 0.235585E+00
+ PKER_RACCSS( 38, 24) = 0.271500E+00
+ PKER_RACCSS( 38, 25) = 0.300895E+00
+ PKER_RACCSS( 38, 26) = 0.324855E+00
+ PKER_RACCSS( 38, 27) = 0.344420E+00
+ PKER_RACCSS( 38, 28) = 0.360428E+00
+ PKER_RACCSS( 38, 29) = 0.373550E+00
+ PKER_RACCSS( 38, 30) = 0.384324E+00
+ PKER_RACCSS( 38, 31) = 0.393183E+00
+ PKER_RACCSS( 38, 32) = 0.400477E+00
+ PKER_RACCSS( 38, 33) = 0.406488E+00
+ PKER_RACCSS( 38, 34) = 0.411445E+00
+ PKER_RACCSS( 38, 35) = 0.415537E+00
+ PKER_RACCSS( 38, 36) = 0.418917E+00
+ PKER_RACCSS( 38, 37) = 0.421709E+00
+ PKER_RACCSS( 38, 38) = 0.424018E+00
+ PKER_RACCSS( 38, 39) = 0.425926E+00
+ PKER_RACCSS( 38, 40) = 0.427504E+00
+ PKER_RACCSS( 39, 1) = 0.152231E+02
+ PKER_RACCSS( 39, 2) = 0.125144E+02
+ PKER_RACCSS( 39, 3) = 0.102715E+02
+ PKER_RACCSS( 39, 4) = 0.841416E+01
+ PKER_RACCSS( 39, 5) = 0.687602E+01
+ PKER_RACCSS( 39, 6) = 0.560219E+01
+ PKER_RACCSS( 39, 7) = 0.454722E+01
+ PKER_RACCSS( 39, 8) = 0.367352E+01
+ PKER_RACCSS( 39, 9) = 0.295000E+01
+ PKER_RACCSS( 39, 10) = 0.235098E+01
+ PKER_RACCSS( 39, 11) = 0.185521E+01
+ PKER_RACCSS( 39, 12) = 0.144521E+01
+ PKER_RACCSS( 39, 13) = 0.110654E+01
+ PKER_RACCSS( 39, 14) = 0.827503E+00
+ PKER_RACCSS( 39, 15) = 0.599111E+00
+ PKER_RACCSS( 39, 16) = 0.415316E+00
+ PKER_RACCSS( 39, 17) = 0.273523E+00
+ PKER_RACCSS( 39, 18) = 0.175601E+00
+ PKER_RACCSS( 39, 19) = 0.124209E+00
+ PKER_RACCSS( 39, 20) = 0.117997E+00
+ PKER_RACCSS( 39, 21) = 0.145016E+00
+ PKER_RACCSS( 39, 22) = 0.187036E+00
+ PKER_RACCSS( 39, 23) = 0.229103E+00
+ PKER_RACCSS( 39, 24) = 0.265099E+00
+ PKER_RACCSS( 39, 25) = 0.294585E+00
+ PKER_RACCSS( 39, 26) = 0.318610E+00
+ PKER_RACCSS( 39, 27) = 0.338219E+00
+ PKER_RACCSS( 39, 28) = 0.354257E+00
+ PKER_RACCSS( 39, 29) = 0.367399E+00
+ PKER_RACCSS( 39, 30) = 0.378186E+00
+ PKER_RACCSS( 39, 31) = 0.387053E+00
+ PKER_RACCSS( 39, 32) = 0.394351E+00
+ PKER_RACCSS( 39, 33) = 0.400364E+00
+ PKER_RACCSS( 39, 34) = 0.405323E+00
+ PKER_RACCSS( 39, 35) = 0.409416E+00
+ PKER_RACCSS( 39, 36) = 0.412796E+00
+ PKER_RACCSS( 39, 37) = 0.415588E+00
+ PKER_RACCSS( 39, 38) = 0.417896E+00
+ PKER_RACCSS( 39, 39) = 0.419805E+00
+ PKER_RACCSS( 39, 40) = 0.421382E+00
+ PKER_RACCSS( 40, 1) = 0.152263E+02
+ PKER_RACCSS( 40, 2) = 0.125177E+02
+ PKER_RACCSS( 40, 3) = 0.102748E+02
+ PKER_RACCSS( 40, 4) = 0.841753E+01
+ PKER_RACCSS( 40, 5) = 0.687945E+01
+ PKER_RACCSS( 40, 6) = 0.560566E+01
+ PKER_RACCSS( 40, 7) = 0.455073E+01
+ PKER_RACCSS( 40, 8) = 0.367707E+01
+ PKER_RACCSS( 40, 9) = 0.295358E+01
+ PKER_RACCSS( 40, 10) = 0.235457E+01
+ PKER_RACCSS( 40, 11) = 0.185881E+01
+ PKER_RACCSS( 40, 12) = 0.144878E+01
+ PKER_RACCSS( 40, 13) = 0.111007E+01
+ PKER_RACCSS( 40, 14) = 0.830934E+00
+ PKER_RACCSS( 40, 15) = 0.602364E+00
+ PKER_RACCSS( 40, 16) = 0.418267E+00
+ PKER_RACCSS( 40, 17) = 0.275848E+00
+ PKER_RACCSS( 40, 18) = 0.176973E+00
+ PKER_RACCSS( 40, 19) = 0.124289E+00
+ PKER_RACCSS( 40, 20) = 0.116772E+00
+ PKER_RACCSS( 40, 21) = 0.142870E+00
+ PKER_RACCSS( 40, 22) = 0.184489E+00
+ PKER_RACCSS( 40, 23) = 0.226478E+00
+ PKER_RACCSS( 40, 24) = 0.262493E+00
+ PKER_RACCSS( 40, 25) = 0.292003E+00
+ PKER_RACCSS( 40, 26) = 0.316044E+00
+ PKER_RACCSS( 40, 27) = 0.335664E+00
+ PKER_RACCSS( 40, 28) = 0.351707E+00
+ PKER_RACCSS( 40, 29) = 0.364852E+00
+ PKER_RACCSS( 40, 30) = 0.375639E+00
+ PKER_RACCSS( 40, 31) = 0.384506E+00
+ PKER_RACCSS( 40, 32) = 0.391803E+00
+ PKER_RACCSS( 40, 33) = 0.397815E+00
+ PKER_RACCSS( 40, 34) = 0.402773E+00
+ PKER_RACCSS( 40, 35) = 0.406865E+00
+ PKER_RACCSS( 40, 36) = 0.410243E+00
+ PKER_RACCSS( 40, 37) = 0.413035E+00
+ PKER_RACCSS( 40, 38) = 0.415342E+00
+ PKER_RACCSS( 40, 39) = 0.417250E+00
+ PKER_RACCSS( 40, 40) = 0.418827E+00
END IF
!
IF( PRESENT(PKER_RACCS ) ) THEN
- PKER_RACCS ( 1, 1) = 0.102167E+02
- PKER_RACCS ( 1, 2) = 0.798984E+01
- PKER_RACCS ( 1, 3) = 0.617380E+01
- PKER_RACCS ( 1, 4) = 0.469167E+01
- PKER_RACCS ( 1, 5) = 0.348534E+01
- PKER_RACCS ( 1, 6) = 0.251422E+01
- PKER_RACCS ( 1, 7) = 0.175460E+01
- PKER_RACCS ( 1, 8) = 0.119906E+01
- PKER_RACCS ( 1, 9) = 0.848431E+00
- PKER_RACCS ( 1, 10) = 0.697315E+00
- PKER_RACCS ( 1, 11) = 0.717816E+00
- PKER_RACCS ( 1, 12) = 0.854882E+00
- PKER_RACCS ( 1, 13) = 0.104470E+01
- PKER_RACCS ( 1, 14) = 0.123807E+01
- PKER_RACCS ( 1, 15) = 0.141081E+01
- PKER_RACCS ( 1, 16) = 0.155700E+01
- PKER_RACCS ( 1, 17) = 0.167856E+01
- PKER_RACCS ( 1, 18) = 0.177921E+01
- PKER_RACCS ( 1, 19) = 0.186250E+01
- PKER_RACCS ( 1, 20) = 0.193142E+01
- PKER_RACCS ( 1, 21) = 0.198845E+01
- PKER_RACCS ( 1, 22) = 0.203565E+01
- PKER_RACCS ( 1, 23) = 0.207472E+01
- PKER_RACCS ( 1, 24) = 0.210705E+01
- PKER_RACCS ( 1, 25) = 0.213381E+01
- PKER_RACCS ( 1, 26) = 0.215596E+01
- PKER_RACCS ( 1, 27) = 0.217429E+01
- PKER_RACCS ( 1, 28) = 0.218947E+01
- PKER_RACCS ( 1, 29) = 0.220203E+01
- PKER_RACCS ( 1, 30) = 0.221243E+01
- PKER_RACCS ( 1, 31) = 0.222103E+01
- PKER_RACCS ( 1, 32) = 0.222816E+01
- PKER_RACCS ( 1, 33) = 0.223406E+01
- PKER_RACCS ( 1, 34) = 0.223894E+01
- PKER_RACCS ( 1, 35) = 0.224298E+01
- PKER_RACCS ( 1, 36) = 0.224632E+01
- PKER_RACCS ( 1, 37) = 0.224909E+01
- PKER_RACCS ( 1, 38) = 0.225138E+01
- PKER_RACCS ( 1, 39) = 0.225328E+01
- PKER_RACCS ( 1, 40) = 0.225485E+01
- PKER_RACCS ( 2, 1) = 0.104818E+02
- PKER_RACCS ( 2, 2) = 0.821523E+01
- PKER_RACCS ( 2, 3) = 0.637111E+01
- PKER_RACCS ( 2, 4) = 0.486846E+01
- PKER_RACCS ( 2, 5) = 0.364524E+01
- PKER_RACCS ( 2, 6) = 0.265651E+01
- PKER_RACCS ( 2, 7) = 0.187379E+01
- PKER_RACCS ( 2, 8) = 0.128476E+01
- PKER_RACCS ( 2, 9) = 0.888040E+00
- PKER_RACCS ( 2, 10) = 0.682820E+00
- PKER_RACCS ( 2, 11) = 0.651649E+00
- PKER_RACCS ( 2, 12) = 0.749498E+00
- PKER_RACCS ( 2, 13) = 0.917050E+00
- PKER_RACCS ( 2, 14) = 0.110111E+01
- PKER_RACCS ( 2, 15) = 0.127111E+01
- PKER_RACCS ( 2, 16) = 0.141681E+01
- PKER_RACCS ( 2, 17) = 0.153841E+01
- PKER_RACCS ( 2, 18) = 0.163915E+01
- PKER_RACCS ( 2, 19) = 0.172252E+01
- PKER_RACCS ( 2, 20) = 0.179149E+01
- PKER_RACCS ( 2, 21) = 0.184857E+01
- PKER_RACCS ( 2, 22) = 0.189580E+01
- PKER_RACCS ( 2, 23) = 0.193488E+01
- PKER_RACCS ( 2, 24) = 0.196723E+01
- PKER_RACCS ( 2, 25) = 0.199401E+01
- PKER_RACCS ( 2, 26) = 0.201617E+01
- PKER_RACCS ( 2, 27) = 0.203451E+01
- PKER_RACCS ( 2, 28) = 0.204969E+01
- PKER_RACCS ( 2, 29) = 0.206226E+01
- PKER_RACCS ( 2, 30) = 0.207266E+01
- PKER_RACCS ( 2, 31) = 0.208127E+01
- PKER_RACCS ( 2, 32) = 0.208839E+01
- PKER_RACCS ( 2, 33) = 0.209429E+01
- PKER_RACCS ( 2, 34) = 0.209918E+01
- PKER_RACCS ( 2, 35) = 0.210322E+01
- PKER_RACCS ( 2, 36) = 0.210656E+01
- PKER_RACCS ( 2, 37) = 0.210933E+01
- PKER_RACCS ( 2, 38) = 0.211163E+01
- PKER_RACCS ( 2, 39) = 0.211352E+01
- PKER_RACCS ( 2, 40) = 0.211509E+01
- PKER_RACCS ( 3, 1) = 0.107644E+02
- PKER_RACCS ( 3, 2) = 0.845121E+01
- PKER_RACCS ( 3, 3) = 0.657371E+01
- PKER_RACCS ( 3, 4) = 0.504697E+01
- PKER_RACCS ( 3, 5) = 0.380515E+01
- PKER_RACCS ( 3, 6) = 0.279922E+01
- PKER_RACCS ( 3, 7) = 0.199615E+01
- PKER_RACCS ( 3, 8) = 0.137873E+01
- PKER_RACCS ( 3, 9) = 0.942712E+00
- PKER_RACCS ( 3, 10) = 0.688122E+00
- PKER_RACCS ( 3, 11) = 0.605662E+00
- PKER_RACCS ( 3, 12) = 0.661434E+00
- PKER_RACCS ( 3, 13) = 0.802624E+00
- PKER_RACCS ( 3, 14) = 0.974479E+00
- PKER_RACCS ( 3, 15) = 0.114040E+01
- PKER_RACCS ( 3, 16) = 0.128524E+01
- PKER_RACCS ( 3, 17) = 0.140682E+01
- PKER_RACCS ( 3, 18) = 0.150766E+01
- PKER_RACCS ( 3, 19) = 0.159112E+01
- PKER_RACCS ( 3, 20) = 0.166016E+01
- PKER_RACCS ( 3, 21) = 0.171729E+01
- PKER_RACCS ( 3, 22) = 0.176455E+01
- PKER_RACCS ( 3, 23) = 0.180367E+01
- PKER_RACCS ( 3, 24) = 0.183604E+01
- PKER_RACCS ( 3, 25) = 0.186283E+01
- PKER_RACCS ( 3, 26) = 0.188500E+01
- PKER_RACCS ( 3, 27) = 0.190335E+01
- PKER_RACCS ( 3, 28) = 0.191854E+01
- PKER_RACCS ( 3, 29) = 0.193111E+01
- PKER_RACCS ( 3, 30) = 0.194152E+01
- PKER_RACCS ( 3, 31) = 0.195013E+01
- PKER_RACCS ( 3, 32) = 0.195726E+01
- PKER_RACCS ( 3, 33) = 0.196316E+01
- PKER_RACCS ( 3, 34) = 0.196805E+01
- PKER_RACCS ( 3, 35) = 0.197209E+01
- PKER_RACCS ( 3, 36) = 0.197544E+01
- PKER_RACCS ( 3, 37) = 0.197821E+01
- PKER_RACCS ( 3, 38) = 0.198050E+01
- PKER_RACCS ( 3, 39) = 0.198240E+01
- PKER_RACCS ( 3, 40) = 0.198397E+01
- PKER_RACCS ( 4, 1) = 0.110672E+02
- PKER_RACCS ( 4, 2) = 0.870087E+01
- PKER_RACCS ( 4, 3) = 0.678439E+01
- PKER_RACCS ( 4, 4) = 0.522941E+01
- PKER_RACCS ( 4, 5) = 0.396642E+01
- PKER_RACCS ( 4, 6) = 0.294262E+01
- PKER_RACCS ( 4, 7) = 0.212084E+01
- PKER_RACCS ( 4, 8) = 0.147885E+01
- PKER_RACCS ( 4, 9) = 0.100866E+01
- PKER_RACCS ( 4, 10) = 0.710145E+00
- PKER_RACCS ( 4, 11) = 0.578505E+00
- PKER_RACCS ( 4, 12) = 0.590976E+00
- PKER_RACCS ( 4, 13) = 0.701961E+00
- PKER_RACCS ( 4, 14) = 0.858251E+00
- PKER_RACCS ( 4, 15) = 0.101841E+01
- PKER_RACCS ( 4, 16) = 0.116181E+01
- PKER_RACCS ( 4, 17) = 0.128324E+01
- PKER_RACCS ( 4, 18) = 0.138420E+01
- PKER_RACCS ( 4, 19) = 0.146776E+01
- PKER_RACCS ( 4, 20) = 0.153689E+01
- PKER_RACCS ( 4, 21) = 0.159407E+01
- PKER_RACCS ( 4, 22) = 0.164139E+01
- PKER_RACCS ( 4, 23) = 0.168054E+01
- PKER_RACCS ( 4, 24) = 0.171293E+01
- PKER_RACCS ( 4, 25) = 0.173974E+01
- PKER_RACCS ( 4, 26) = 0.176193E+01
- PKER_RACCS ( 4, 27) = 0.178029E+01
- PKER_RACCS ( 4, 28) = 0.179549E+01
- PKER_RACCS ( 4, 29) = 0.180807E+01
- PKER_RACCS ( 4, 30) = 0.181848E+01
- PKER_RACCS ( 4, 31) = 0.182709E+01
- PKER_RACCS ( 4, 32) = 0.183423E+01
- PKER_RACCS ( 4, 33) = 0.184013E+01
- PKER_RACCS ( 4, 34) = 0.184502E+01
- PKER_RACCS ( 4, 35) = 0.184906E+01
- PKER_RACCS ( 4, 36) = 0.185241E+01
- PKER_RACCS ( 4, 37) = 0.185518E+01
- PKER_RACCS ( 4, 38) = 0.185747E+01
- PKER_RACCS ( 4, 39) = 0.185937E+01
- PKER_RACCS ( 4, 40) = 0.186094E+01
- PKER_RACCS ( 5, 1) = 0.113912E+02
- PKER_RACCS ( 5, 2) = 0.896656E+01
- PKER_RACCS ( 5, 3) = 0.700573E+01
- PKER_RACCS ( 5, 4) = 0.541800E+01
- PKER_RACCS ( 5, 5) = 0.413072E+01
- PKER_RACCS ( 5, 6) = 0.308761E+01
- PKER_RACCS ( 5, 7) = 0.224753E+01
- PKER_RACCS ( 5, 8) = 0.158389E+01
- PKER_RACCS ( 5, 9) = 0.108428E+01
- PKER_RACCS ( 5, 10) = 0.746312E+00
- PKER_RACCS ( 5, 11) = 0.568858E+00
- PKER_RACCS ( 5, 12) = 0.537607E+00
- PKER_RACCS ( 5, 13) = 0.615320E+00
- PKER_RACCS ( 5, 14) = 0.752699E+00
- PKER_RACCS ( 5, 15) = 0.904977E+00
- PKER_RACCS ( 5, 16) = 0.104611E+01
- PKER_RACCS ( 5, 17) = 0.116720E+01
- PKER_RACCS ( 5, 18) = 0.126824E+01
- PKER_RACCS ( 5, 19) = 0.135194E+01
- PKER_RACCS ( 5, 20) = 0.142116E+01
- PKER_RACCS ( 5, 21) = 0.147842E+01
- PKER_RACCS ( 5, 22) = 0.152579E+01
- PKER_RACCS ( 5, 23) = 0.156498E+01
- PKER_RACCS ( 5, 24) = 0.159741E+01
- PKER_RACCS ( 5, 25) = 0.162424E+01
- PKER_RACCS ( 5, 26) = 0.164644E+01
- PKER_RACCS ( 5, 27) = 0.166482E+01
- PKER_RACCS ( 5, 28) = 0.168003E+01
- PKER_RACCS ( 5, 29) = 0.169261E+01
- PKER_RACCS ( 5, 30) = 0.170303E+01
- PKER_RACCS ( 5, 31) = 0.171165E+01
- PKER_RACCS ( 5, 32) = 0.171879E+01
- PKER_RACCS ( 5, 33) = 0.172469E+01
- PKER_RACCS ( 5, 34) = 0.172958E+01
- PKER_RACCS ( 5, 35) = 0.173363E+01
- PKER_RACCS ( 5, 36) = 0.173698E+01
- PKER_RACCS ( 5, 37) = 0.173975E+01
- PKER_RACCS ( 5, 38) = 0.174205E+01
- PKER_RACCS ( 5, 39) = 0.174395E+01
- PKER_RACCS ( 5, 40) = 0.174552E+01
- PKER_RACCS ( 6, 1) = 0.117349E+02
- PKER_RACCS ( 6, 2) = 0.924914E+01
- PKER_RACCS ( 6, 3) = 0.723971E+01
- PKER_RACCS ( 6, 4) = 0.561487E+01
- PKER_RACCS ( 6, 5) = 0.429976E+01
- PKER_RACCS ( 6, 6) = 0.323520E+01
- PKER_RACCS ( 6, 7) = 0.237647E+01
- PKER_RACCS ( 6, 8) = 0.169289E+01
- PKER_RACCS ( 6, 9) = 0.116768E+01
- PKER_RACCS ( 6, 10) = 0.795704E+00
- PKER_RACCS ( 6, 11) = 0.576137E+00
- PKER_RACCS ( 6, 12) = 0.501314E+00
- PKER_RACCS ( 6, 13) = 0.543341E+00
- PKER_RACCS ( 6, 14) = 0.658228E+00
- PKER_RACCS ( 6, 15) = 0.800085E+00
- PKER_RACCS ( 6, 16) = 0.937788E+00
- PKER_RACCS ( 6, 17) = 0.105821E+01
- PKER_RACCS ( 6, 18) = 0.115932E+01
- PKER_RACCS ( 6, 19) = 0.124316E+01
- PKER_RACCS ( 6, 20) = 0.131250E+01
- PKER_RACCS ( 6, 21) = 0.136985E+01
- PKER_RACCS ( 6, 22) = 0.141729E+01
- PKER_RACCS ( 6, 23) = 0.145653E+01
- PKER_RACCS ( 6, 24) = 0.148899E+01
- PKER_RACCS ( 6, 25) = 0.151585E+01
- PKER_RACCS ( 6, 26) = 0.153808E+01
- PKER_RACCS ( 6, 27) = 0.155647E+01
- PKER_RACCS ( 6, 28) = 0.157169E+01
- PKER_RACCS ( 6, 29) = 0.158429E+01
- PKER_RACCS ( 6, 30) = 0.159471E+01
- PKER_RACCS ( 6, 31) = 0.160334E+01
- PKER_RACCS ( 6, 32) = 0.161048E+01
- PKER_RACCS ( 6, 33) = 0.161639E+01
- PKER_RACCS ( 6, 34) = 0.162128E+01
- PKER_RACCS ( 6, 35) = 0.162533E+01
- PKER_RACCS ( 6, 36) = 0.162868E+01
- PKER_RACCS ( 6, 37) = 0.163145E+01
- PKER_RACCS ( 6, 38) = 0.163375E+01
- PKER_RACCS ( 6, 39) = 0.163565E+01
- PKER_RACCS ( 6, 40) = 0.163722E+01
- PKER_RACCS ( 7, 1) = 0.120933E+02
- PKER_RACCS ( 7, 2) = 0.954726E+01
- PKER_RACCS ( 7, 3) = 0.748704E+01
- PKER_RACCS ( 7, 4) = 0.582164E+01
- PKER_RACCS ( 7, 5) = 0.447529E+01
- PKER_RACCS ( 7, 6) = 0.338667E+01
- PKER_RACCS ( 7, 7) = 0.250813E+01
- PKER_RACCS ( 7, 8) = 0.180540E+01
- PKER_RACCS ( 7, 9) = 0.125732E+01
- PKER_RACCS ( 7, 10) = 0.855207E+00
- PKER_RACCS ( 7, 11) = 0.597925E+00
- PKER_RACCS ( 7, 12) = 0.481149E+00
- PKER_RACCS ( 7, 13) = 0.486186E+00
- PKER_RACCS ( 7, 14) = 0.575287E+00
- PKER_RACCS ( 7, 15) = 0.703816E+00
- PKER_RACCS ( 7, 16) = 0.836624E+00
- PKER_RACCS ( 7, 17) = 0.955895E+00
- PKER_RACCS ( 7, 18) = 0.105696E+01
- PKER_RACCS ( 7, 19) = 0.114096E+01
- PKER_RACCS ( 7, 20) = 0.121046E+01
- PKER_RACCS ( 7, 21) = 0.126792E+01
- PKER_RACCS ( 7, 22) = 0.131544E+01
- PKER_RACCS ( 7, 23) = 0.135474E+01
- PKER_RACCS ( 7, 24) = 0.138724E+01
- PKER_RACCS ( 7, 25) = 0.141414E+01
- PKER_RACCS ( 7, 26) = 0.143639E+01
- PKER_RACCS ( 7, 27) = 0.145480E+01
- PKER_RACCS ( 7, 28) = 0.147003E+01
- PKER_RACCS ( 7, 29) = 0.148264E+01
- PKER_RACCS ( 7, 30) = 0.149307E+01
- PKER_RACCS ( 7, 31) = 0.150171E+01
- PKER_RACCS ( 7, 32) = 0.150885E+01
- PKER_RACCS ( 7, 33) = 0.151477E+01
- PKER_RACCS ( 7, 34) = 0.151966E+01
- PKER_RACCS ( 7, 35) = 0.152372E+01
- PKER_RACCS ( 7, 36) = 0.152707E+01
- PKER_RACCS ( 7, 37) = 0.152984E+01
- PKER_RACCS ( 7, 38) = 0.153214E+01
- PKER_RACCS ( 7, 39) = 0.153404E+01
- PKER_RACCS ( 7, 40) = 0.153562E+01
- PKER_RACCS ( 8, 1) = 0.124583E+02
- PKER_RACCS ( 8, 2) = 0.985684E+01
- PKER_RACCS ( 8, 3) = 0.774660E+01
- PKER_RACCS ( 8, 4) = 0.603889E+01
- PKER_RACCS ( 8, 5) = 0.465857E+01
- PKER_RACCS ( 8, 6) = 0.354333E+01
- PKER_RACCS ( 8, 7) = 0.264340E+01
- PKER_RACCS ( 8, 8) = 0.192140E+01
- PKER_RACCS ( 8, 9) = 0.135239E+01
- PKER_RACCS ( 8, 10) = 0.923762E+00
- PKER_RACCS ( 8, 11) = 0.632168E+00
- PKER_RACCS ( 8, 12) = 0.476040E+00
- PKER_RACCS ( 8, 13) = 0.443617E+00
- PKER_RACCS ( 8, 14) = 0.504159E+00
- PKER_RACCS ( 8, 15) = 0.616439E+00
- PKER_RACCS ( 8, 16) = 0.742493E+00
- PKER_RACCS ( 8, 17) = 0.859895E+00
- PKER_RACCS ( 8, 18) = 0.960763E+00
- PKER_RACCS ( 8, 19) = 0.104493E+01
- PKER_RACCS ( 8, 20) = 0.111460E+01
- PKER_RACCS ( 8, 21) = 0.117219E+01
- PKER_RACCS ( 8, 22) = 0.121981E+01
- PKER_RACCS ( 8, 23) = 0.125918E+01
- PKER_RACCS ( 8, 24) = 0.129174E+01
- PKER_RACCS ( 8, 25) = 0.131868E+01
- PKER_RACCS ( 8, 26) = 0.134096E+01
- PKER_RACCS ( 8, 27) = 0.135939E+01
- PKER_RACCS ( 8, 28) = 0.137465E+01
- PKER_RACCS ( 8, 29) = 0.138727E+01
- PKER_RACCS ( 8, 30) = 0.139771E+01
- PKER_RACCS ( 8, 31) = 0.140635E+01
- PKER_RACCS ( 8, 32) = 0.141350E+01
- PKER_RACCS ( 8, 33) = 0.141942E+01
- PKER_RACCS ( 8, 34) = 0.142432E+01
- PKER_RACCS ( 8, 35) = 0.142838E+01
- PKER_RACCS ( 8, 36) = 0.143173E+01
- PKER_RACCS ( 8, 37) = 0.143451E+01
- PKER_RACCS ( 8, 38) = 0.143681E+01
- PKER_RACCS ( 8, 39) = 0.143871E+01
- PKER_RACCS ( 8, 40) = 0.144029E+01
- PKER_RACCS ( 9, 1) = 0.128193E+02
- PKER_RACCS ( 9, 2) = 0.101710E+02
- PKER_RACCS ( 9, 3) = 0.801494E+01
- PKER_RACCS ( 9, 4) = 0.626567E+01
- PKER_RACCS ( 9, 5) = 0.485005E+01
- PKER_RACCS ( 9, 6) = 0.370613E+01
- PKER_RACCS ( 9, 7) = 0.278307E+01
- PKER_RACCS ( 9, 8) = 0.204116E+01
- PKER_RACCS ( 9, 9) = 0.145223E+01
- PKER_RACCS ( 9, 10) = 0.999910E+00
- PKER_RACCS ( 9, 11) = 0.678225E+00
- PKER_RACCS ( 9, 12) = 0.485619E+00
- PKER_RACCS ( 9, 13) = 0.415703E+00
- PKER_RACCS ( 9, 14) = 0.445551E+00
- PKER_RACCS ( 9, 15) = 0.538377E+00
- PKER_RACCS ( 9, 16) = 0.655431E+00
- PKER_RACCS ( 9, 17) = 0.769934E+00
- PKER_RACCS ( 9, 18) = 0.870332E+00
- PKER_RACCS ( 9, 19) = 0.954640E+00
- PKER_RACCS ( 9, 20) = 0.102452E+01
- PKER_RACCS ( 9, 21) = 0.108227E+01
- PKER_RACCS ( 9, 22) = 0.113001E+01
- PKER_RACCS ( 9, 23) = 0.116947E+01
- PKER_RACCS ( 9, 24) = 0.120209E+01
- PKER_RACCS ( 9, 25) = 0.122908E+01
- PKER_RACCS ( 9, 26) = 0.125140E+01
- PKER_RACCS ( 9, 27) = 0.126986E+01
- PKER_RACCS ( 9, 28) = 0.128513E+01
- PKER_RACCS ( 9, 29) = 0.129777E+01
- PKER_RACCS ( 9, 30) = 0.130823E+01
- PKER_RACCS ( 9, 31) = 0.131688E+01
- PKER_RACCS ( 9, 32) = 0.132404E+01
- PKER_RACCS ( 9, 33) = 0.132996E+01
- PKER_RACCS ( 9, 34) = 0.133487E+01
- PKER_RACCS ( 9, 35) = 0.133892E+01
- PKER_RACCS ( 9, 36) = 0.134228E+01
- PKER_RACCS ( 9, 37) = 0.134506E+01
- PKER_RACCS ( 9, 38) = 0.134736E+01
- PKER_RACCS ( 9, 39) = 0.134927E+01
- PKER_RACCS ( 9, 40) = 0.135084E+01
- PKER_RACCS ( 10, 1) = 0.131653E+02
- PKER_RACCS ( 10, 2) = 0.104811E+02
- PKER_RACCS ( 10, 3) = 0.828636E+01
- PKER_RACCS ( 10, 4) = 0.649911E+01
- PKER_RACCS ( 10, 5) = 0.504891E+01
- PKER_RACCS ( 10, 6) = 0.387538E+01
- PKER_RACCS ( 10, 7) = 0.292777E+01
- PKER_RACCS ( 10, 8) = 0.216507E+01
- PKER_RACCS ( 10, 9) = 0.155660E+01
- PKER_RACCS ( 10, 10) = 0.108253E+01
- PKER_RACCS ( 10, 11) = 0.733699E+00
- PKER_RACCS ( 10, 12) = 0.508107E+00
- PKER_RACCS ( 10, 13) = 0.401864E+00
- PKER_RACCS ( 10, 14) = 0.399605E+00
- PKER_RACCS ( 10, 15) = 0.470066E+00
- PKER_RACCS ( 10, 16) = 0.575534E+00
- PKER_RACCS ( 10, 17) = 0.685829E+00
- PKER_RACCS ( 10, 18) = 0.785326E+00
- PKER_RACCS ( 10, 19) = 0.869715E+00
- PKER_RACCS ( 10, 20) = 0.939821E+00
- PKER_RACCS ( 10, 21) = 0.997773E+00
- PKER_RACCS ( 10, 22) = 0.104565E+01
- PKER_RACCS ( 10, 23) = 0.108522E+01
- PKER_RACCS ( 10, 24) = 0.111793E+01
- PKER_RACCS ( 10, 25) = 0.114497E+01
- PKER_RACCS ( 10, 26) = 0.116733E+01
- PKER_RACCS ( 10, 27) = 0.118583E+01
- PKER_RACCS ( 10, 28) = 0.120113E+01
- PKER_RACCS ( 10, 29) = 0.121379E+01
- PKER_RACCS ( 10, 30) = 0.122426E+01
- PKER_RACCS ( 10, 31) = 0.123292E+01
- PKER_RACCS ( 10, 32) = 0.124009E+01
- PKER_RACCS ( 10, 33) = 0.124602E+01
- PKER_RACCS ( 10, 34) = 0.125093E+01
- PKER_RACCS ( 10, 35) = 0.125500E+01
- PKER_RACCS ( 10, 36) = 0.125836E+01
- PKER_RACCS ( 10, 37) = 0.126114E+01
- PKER_RACCS ( 10, 38) = 0.126344E+01
- PKER_RACCS ( 10, 39) = 0.126535E+01
- PKER_RACCS ( 10, 40) = 0.126692E+01
- PKER_RACCS ( 11, 1) = 0.134866E+02
- PKER_RACCS ( 11, 2) = 0.107778E+02
- PKER_RACCS ( 11, 3) = 0.855355E+01
- PKER_RACCS ( 11, 4) = 0.673440E+01
- PKER_RACCS ( 11, 5) = 0.525269E+01
- PKER_RACCS ( 11, 6) = 0.405032E+01
- PKER_RACCS ( 11, 7) = 0.307764E+01
- PKER_RACCS ( 11, 8) = 0.229345E+01
- PKER_RACCS ( 11, 9) = 0.166544E+01
- PKER_RACCS ( 11, 10) = 0.117103E+01
- PKER_RACCS ( 11, 11) = 0.797857E+00
- PKER_RACCS ( 11, 12) = 0.541886E+00
- PKER_RACCS ( 11, 13) = 0.401262E+00
- PKER_RACCS ( 11, 14) = 0.366324E+00
- PKER_RACCS ( 11, 15) = 0.411835E+00
- PKER_RACCS ( 11, 16) = 0.503075E+00
- PKER_RACCS ( 11, 17) = 0.607497E+00
- PKER_RACCS ( 11, 18) = 0.705455E+00
- PKER_RACCS ( 11, 19) = 0.789792E+00
- PKER_RACCS ( 11, 20) = 0.860149E+00
- PKER_RACCS ( 11, 21) = 0.918336E+00
- PKER_RACCS ( 11, 22) = 0.966393E+00
- PKER_RACCS ( 11, 23) = 0.100609E+01
- PKER_RACCS ( 11, 24) = 0.103890E+01
- PKER_RACCS ( 11, 25) = 0.106601E+01
- PKER_RACCS ( 11, 26) = 0.108843E+01
- PKER_RACCS ( 11, 27) = 0.110696E+01
- PKER_RACCS ( 11, 28) = 0.112229E+01
- PKER_RACCS ( 11, 29) = 0.113498E+01
- PKER_RACCS ( 11, 30) = 0.114547E+01
- PKER_RACCS ( 11, 31) = 0.115414E+01
- PKER_RACCS ( 11, 32) = 0.116132E+01
- PKER_RACCS ( 11, 33) = 0.116726E+01
- PKER_RACCS ( 11, 34) = 0.117218E+01
- PKER_RACCS ( 11, 35) = 0.117625E+01
- PKER_RACCS ( 11, 36) = 0.117961E+01
- PKER_RACCS ( 11, 37) = 0.118240E+01
- PKER_RACCS ( 11, 38) = 0.118470E+01
- PKER_RACCS ( 11, 39) = 0.118661E+01
- PKER_RACCS ( 11, 40) = 0.118819E+01
- PKER_RACCS ( 12, 1) = 0.137765E+02
- PKER_RACCS ( 12, 2) = 0.110532E+02
- PKER_RACCS ( 12, 3) = 0.880887E+01
- PKER_RACCS ( 12, 4) = 0.696546E+01
- PKER_RACCS ( 12, 5) = 0.545739E+01
- PKER_RACCS ( 12, 6) = 0.422884E+01
- PKER_RACCS ( 12, 7) = 0.323193E+01
- PKER_RACCS ( 12, 8) = 0.242617E+01
- PKER_RACCS ( 12, 9) = 0.177863E+01
- PKER_RACCS ( 12, 10) = 0.126480E+01
- PKER_RACCS ( 12, 11) = 0.869502E+00
- PKER_RACCS ( 12, 12) = 0.586444E+00
- PKER_RACCS ( 12, 13) = 0.413638E+00
- PKER_RACCS ( 12, 14) = 0.345906E+00
- PKER_RACCS ( 12, 15) = 0.364471E+00
- PKER_RACCS ( 12, 16) = 0.438529E+00
- PKER_RACCS ( 12, 17) = 0.535017E+00
- PKER_RACCS ( 12, 18) = 0.630497E+00
- PKER_RACCS ( 12, 19) = 0.714544E+00
- PKER_RACCS ( 12, 20) = 0.785149E+00
- PKER_RACCS ( 12, 21) = 0.843614E+00
- PKER_RACCS ( 12, 22) = 0.891886E+00
- PKER_RACCS ( 12, 23) = 0.931743E+00
- PKER_RACCS ( 12, 24) = 0.964664E+00
- PKER_RACCS ( 12, 25) = 0.991866E+00
- PKER_RACCS ( 12, 26) = 0.101435E+01
- PKER_RACCS ( 12, 27) = 0.103293E+01
- PKER_RACCS ( 12, 28) = 0.104830E+01
- PKER_RACCS ( 12, 29) = 0.106101E+01
- PKER_RACCS ( 12, 30) = 0.107152E+01
- PKER_RACCS ( 12, 31) = 0.108022E+01
- PKER_RACCS ( 12, 32) = 0.108741E+01
- PKER_RACCS ( 12, 33) = 0.109336E+01
- PKER_RACCS ( 12, 34) = 0.109828E+01
- PKER_RACCS ( 12, 35) = 0.110236E+01
- PKER_RACCS ( 12, 36) = 0.110573E+01
- PKER_RACCS ( 12, 37) = 0.110852E+01
- PKER_RACCS ( 12, 38) = 0.111082E+01
- PKER_RACCS ( 12, 39) = 0.111273E+01
- PKER_RACCS ( 12, 40) = 0.111431E+01
- PKER_RACCS ( 13, 1) = 0.140319E+02
- PKER_RACCS ( 13, 2) = 0.113018E+02
- PKER_RACCS ( 13, 3) = 0.904571E+01
- PKER_RACCS ( 13, 4) = 0.718591E+01
- PKER_RACCS ( 13, 5) = 0.565791E+01
- PKER_RACCS ( 13, 6) = 0.440756E+01
- PKER_RACCS ( 13, 7) = 0.338881E+01
- PKER_RACCS ( 13, 8) = 0.256245E+01
- PKER_RACCS ( 13, 9) = 0.189581E+01
- PKER_RACCS ( 13, 10) = 0.136334E+01
- PKER_RACCS ( 13, 11) = 0.947657E+00
- PKER_RACCS ( 13, 12) = 0.639932E+00
- PKER_RACCS ( 13, 13) = 0.437803E+00
- PKER_RACCS ( 13, 14) = 0.338008E+00
- PKER_RACCS ( 13, 15) = 0.328139E+00
- PKER_RACCS ( 13, 16) = 0.382351E+00
- PKER_RACCS ( 13, 17) = 0.468516E+00
- PKER_RACCS ( 13, 18) = 0.560309E+00
- PKER_RACCS ( 13, 19) = 0.643677E+00
- PKER_RACCS ( 13, 20) = 0.714489E+00
- PKER_RACCS ( 13, 21) = 0.773275E+00
- PKER_RACCS ( 13, 22) = 0.821808E+00
- PKER_RACCS ( 13, 23) = 0.861858E+00
- PKER_RACCS ( 13, 24) = 0.894921E+00
- PKER_RACCS ( 13, 25) = 0.922228E+00
- PKER_RACCS ( 13, 26) = 0.944789E+00
- PKER_RACCS ( 13, 27) = 0.963435E+00
- PKER_RACCS ( 13, 28) = 0.978847E+00
- PKER_RACCS ( 13, 29) = 0.991591E+00
- PKER_RACCS ( 13, 30) = 0.100213E+01
- PKER_RACCS ( 13, 31) = 0.101084E+01
- PKER_RACCS ( 13, 32) = 0.101805E+01
- PKER_RACCS ( 13, 33) = 0.102401E+01
- PKER_RACCS ( 13, 34) = 0.102895E+01
- PKER_RACCS ( 13, 35) = 0.103303E+01
- PKER_RACCS ( 13, 36) = 0.103640E+01
- PKER_RACCS ( 13, 37) = 0.103920E+01
- PKER_RACCS ( 13, 38) = 0.104151E+01
- PKER_RACCS ( 13, 39) = 0.104342E+01
- PKER_RACCS ( 13, 40) = 0.104500E+01
- PKER_RACCS ( 14, 1) = 0.142526E+02
- PKER_RACCS ( 14, 2) = 0.115209E+02
- PKER_RACCS ( 14, 3) = 0.925951E+01
- PKER_RACCS ( 14, 4) = 0.739026E+01
- PKER_RACCS ( 14, 5) = 0.584892E+01
- PKER_RACCS ( 14, 6) = 0.458219E+01
- PKER_RACCS ( 14, 7) = 0.354538E+01
- PKER_RACCS ( 14, 8) = 0.270063E+01
- PKER_RACCS ( 14, 9) = 0.201611E+01
- PKER_RACCS ( 14, 10) = 0.146603E+01
- PKER_RACCS ( 14, 11) = 0.103157E+01
- PKER_RACCS ( 14, 12) = 0.701686E+00
- PKER_RACCS ( 14, 13) = 0.472410E+00
- PKER_RACCS ( 14, 14) = 0.342083E+00
- PKER_RACCS ( 14, 15) = 0.303081E+00
- PKER_RACCS ( 14, 16) = 0.334956E+00
- PKER_RACCS ( 14, 17) = 0.408312E+00
- PKER_RACCS ( 14, 18) = 0.494848E+00
- PKER_RACCS ( 14, 19) = 0.576946E+00
- PKER_RACCS ( 14, 20) = 0.647859E+00
- PKER_RACCS ( 14, 21) = 0.707002E+00
- PKER_RACCS ( 14, 22) = 0.755849E+00
- PKER_RACCS ( 14, 23) = 0.796134E+00
- PKER_RACCS ( 14, 24) = 0.829370E+00
- PKER_RACCS ( 14, 25) = 0.856804E+00
- PKER_RACCS ( 14, 26) = 0.879461E+00
- PKER_RACCS ( 14, 27) = 0.898177E+00
- PKER_RACCS ( 14, 28) = 0.913644E+00
- PKER_RACCS ( 14, 29) = 0.926428E+00
- PKER_RACCS ( 14, 30) = 0.936997E+00
- PKER_RACCS ( 14, 31) = 0.945736E+00
- PKER_RACCS ( 14, 32) = 0.952963E+00
- PKER_RACCS ( 14, 33) = 0.958940E+00
- PKER_RACCS ( 14, 34) = 0.963884E+00
- PKER_RACCS ( 14, 35) = 0.967973E+00
- PKER_RACCS ( 14, 36) = 0.971356E+00
- PKER_RACCS ( 14, 37) = 0.974154E+00
- PKER_RACCS ( 14, 38) = 0.976470E+00
- PKER_RACCS ( 14, 39) = 0.978385E+00
- PKER_RACCS ( 14, 40) = 0.979971E+00
- PKER_RACCS ( 15, 1) = 0.144408E+02
- PKER_RACCS ( 15, 2) = 0.117106E+02
- PKER_RACCS ( 15, 3) = 0.944817E+01
- PKER_RACCS ( 15, 4) = 0.757478E+01
- PKER_RACCS ( 15, 5) = 0.602588E+01
- PKER_RACCS ( 15, 6) = 0.474829E+01
- PKER_RACCS ( 15, 7) = 0.369801E+01
- PKER_RACCS ( 15, 8) = 0.283819E+01
- PKER_RACCS ( 15, 9) = 0.213794E+01
- PKER_RACCS ( 15, 10) = 0.157180E+01
- PKER_RACCS ( 15, 11) = 0.112020E+01
- PKER_RACCS ( 15, 12) = 0.770447E+00
- PKER_RACCS ( 15, 13) = 0.516893E+00
- PKER_RACCS ( 15, 14) = 0.357861E+00
- PKER_RACCS ( 15, 15) = 0.289607E+00
- PKER_RACCS ( 15, 16) = 0.297216E+00
- PKER_RACCS ( 15, 17) = 0.354956E+00
- PKER_RACCS ( 15, 18) = 0.434258E+00
- PKER_RACCS ( 15, 19) = 0.514182E+00
- PKER_RACCS ( 15, 20) = 0.584974E+00
- PKER_RACCS ( 15, 21) = 0.644491E+00
- PKER_RACCS ( 15, 22) = 0.693710E+00
- PKER_RACCS ( 15, 23) = 0.734280E+00
- PKER_RACCS ( 15, 24) = 0.767726E+00
- PKER_RACCS ( 15, 25) = 0.795315E+00
- PKER_RACCS ( 15, 26) = 0.818087E+00
- PKER_RACCS ( 15, 27) = 0.836890E+00
- PKER_RACCS ( 15, 28) = 0.852422E+00
- PKER_RACCS ( 15, 29) = 0.865255E+00
- PKER_RACCS ( 15, 30) = 0.875862E+00
- PKER_RACCS ( 15, 31) = 0.884630E+00
- PKER_RACCS ( 15, 32) = 0.891879E+00
- PKER_RACCS ( 15, 33) = 0.897873E+00
- PKER_RACCS ( 15, 34) = 0.902830E+00
- PKER_RACCS ( 15, 35) = 0.906929E+00
- PKER_RACCS ( 15, 36) = 0.910320E+00
- PKER_RACCS ( 15, 37) = 0.913125E+00
- PKER_RACCS ( 15, 38) = 0.915446E+00
- PKER_RACCS ( 15, 39) = 0.917365E+00
- PKER_RACCS ( 15, 40) = 0.918953E+00
- PKER_RACCS ( 16, 1) = 0.146000E+02
- PKER_RACCS ( 16, 2) = 0.118728E+02
- PKER_RACCS ( 16, 3) = 0.961176E+01
- PKER_RACCS ( 16, 4) = 0.773776E+01
- PKER_RACCS ( 16, 5) = 0.618568E+01
- PKER_RACCS ( 16, 6) = 0.490207E+01
- PKER_RACCS ( 16, 7) = 0.384296E+01
- PKER_RACCS ( 16, 8) = 0.297203E+01
- PKER_RACCS ( 16, 9) = 0.225904E+01
- PKER_RACCS ( 16, 10) = 0.167906E+01
- PKER_RACCS ( 16, 11) = 0.121230E+01
- PKER_RACCS ( 16, 12) = 0.844921E+00
- PKER_RACCS ( 16, 13) = 0.569587E+00
- PKER_RACCS ( 16, 14) = 0.384481E+00
- PKER_RACCS ( 16, 15) = 0.287547E+00
- PKER_RACCS ( 16, 16) = 0.269381E+00
- PKER_RACCS ( 16, 17) = 0.308942E+00
- PKER_RACCS ( 16, 18) = 0.378718E+00
- PKER_RACCS ( 16, 19) = 0.455285E+00
- PKER_RACCS ( 16, 20) = 0.525584E+00
- PKER_RACCS ( 16, 21) = 0.585450E+00
- PKER_RACCS ( 16, 22) = 0.635102E+00
- PKER_RACCS ( 16, 23) = 0.676017E+00
- PKER_RACCS ( 16, 24) = 0.709718E+00
- PKER_RACCS ( 16, 25) = 0.737496E+00
- PKER_RACCS ( 16, 26) = 0.760407E+00
- PKER_RACCS ( 16, 27) = 0.779315E+00
- PKER_RACCS ( 16, 28) = 0.794925E+00
- PKER_RACCS ( 16, 29) = 0.807818E+00
- PKER_RACCS ( 16, 30) = 0.818470E+00
- PKER_RACCS ( 16, 31) = 0.827272E+00
- PKER_RACCS ( 16, 32) = 0.834548E+00
- PKER_RACCS ( 16, 33) = 0.840562E+00
- PKER_RACCS ( 16, 34) = 0.845535E+00
- PKER_RACCS ( 16, 35) = 0.849647E+00
- PKER_RACCS ( 16, 36) = 0.853048E+00
- PKER_RACCS ( 16, 37) = 0.855860E+00
- PKER_RACCS ( 16, 38) = 0.858187E+00
- PKER_RACCS ( 16, 39) = 0.860111E+00
- PKER_RACCS ( 16, 40) = 0.861703E+00
- PKER_RACCS ( 17, 1) = 0.147341E+02
- PKER_RACCS ( 17, 2) = 0.120103E+02
- PKER_RACCS ( 17, 3) = 0.975189E+01
- PKER_RACCS ( 17, 4) = 0.787932E+01
- PKER_RACCS ( 17, 5) = 0.632699E+01
- PKER_RACCS ( 17, 6) = 0.504099E+01
- PKER_RACCS ( 17, 7) = 0.397709E+01
- PKER_RACCS ( 17, 8) = 0.309897E+01
- PKER_RACCS ( 17, 9) = 0.237672E+01
- PKER_RACCS ( 17, 10) = 0.178573E+01
- PKER_RACCS ( 17, 11) = 0.130626E+01
- PKER_RACCS ( 17, 12) = 0.923760E+00
- PKER_RACCS ( 17, 13) = 0.629526E+00
- PKER_RACCS ( 17, 14) = 0.420645E+00
- PKER_RACCS ( 17, 15) = 0.296483E+00
- PKER_RACCS ( 17, 16) = 0.251869E+00
- PKER_RACCS ( 17, 17) = 0.270840E+00
- PKER_RACCS ( 17, 18) = 0.328636E+00
- PKER_RACCS ( 17, 19) = 0.400275E+00
- PKER_RACCS ( 17, 20) = 0.469486E+00
- PKER_RACCS ( 17, 21) = 0.529608E+00
- PKER_RACCS ( 17, 22) = 0.579747E+00
- PKER_RACCS ( 17, 23) = 0.621076E+00
- PKER_RACCS ( 17, 24) = 0.655088E+00
- PKER_RACCS ( 17, 25) = 0.683094E+00
- PKER_RACCS ( 17, 26) = 0.706174E+00
- PKER_RACCS ( 17, 27) = 0.725208E+00
- PKER_RACCS ( 17, 28) = 0.740913E+00
- PKER_RACCS ( 17, 29) = 0.753877E+00
- PKER_RACCS ( 17, 30) = 0.764583E+00
- PKER_RACCS ( 17, 31) = 0.773427E+00
- PKER_RACCS ( 17, 32) = 0.780735E+00
- PKER_RACCS ( 17, 33) = 0.786774E+00
- PKER_RACCS ( 17, 34) = 0.791766E+00
- PKER_RACCS ( 17, 35) = 0.795893E+00
- PKER_RACCS ( 17, 36) = 0.799305E+00
- PKER_RACCS ( 17, 37) = 0.802126E+00
- PKER_RACCS ( 17, 38) = 0.804459E+00
- PKER_RACCS ( 17, 39) = 0.806389E+00
- PKER_RACCS ( 17, 40) = 0.807985E+00
- PKER_RACCS ( 18, 1) = 0.148471E+02
- PKER_RACCS ( 18, 2) = 0.121265E+02
- PKER_RACCS ( 18, 3) = 0.987110E+01
- PKER_RACCS ( 18, 4) = 0.800089E+01
- PKER_RACCS ( 18, 5) = 0.644994E+01
- PKER_RACCS ( 18, 6) = 0.516395E+01
- PKER_RACCS ( 18, 7) = 0.409829E+01
- PKER_RACCS ( 18, 8) = 0.321639E+01
- PKER_RACCS ( 18, 9) = 0.248825E+01
- PKER_RACCS ( 18, 10) = 0.188937E+01
- PKER_RACCS ( 18, 11) = 0.140001E+01
- PKER_RACCS ( 18, 12) = 0.100512E+01
- PKER_RACCS ( 18, 13) = 0.694965E+00
- PKER_RACCS ( 18, 14) = 0.465425E+00
- PKER_RACCS ( 18, 15) = 0.316022E+00
- PKER_RACCS ( 18, 16) = 0.245025E+00
- PKER_RACCS ( 18, 17) = 0.241586E+00
- PKER_RACCS ( 18, 18) = 0.284650E+00
- PKER_RACCS ( 18, 19) = 0.349371E+00
- PKER_RACCS ( 18, 20) = 0.416569E+00
- PKER_RACCS ( 18, 21) = 0.476716E+00
- PKER_RACCS ( 18, 22) = 0.527374E+00
- PKER_RACCS ( 18, 23) = 0.569195E+00
- PKER_RACCS ( 18, 24) = 0.603581E+00
- PKER_RACCS ( 18, 25) = 0.631865E+00
- PKER_RACCS ( 18, 26) = 0.655150E+00
- PKER_RACCS ( 18, 27) = 0.674336E+00
- PKER_RACCS ( 18, 28) = 0.690155E+00
- PKER_RACCS ( 18, 29) = 0.703206E+00
- PKER_RACCS ( 18, 30) = 0.713977E+00
- PKER_RACCS ( 18, 31) = 0.722871E+00
- PKER_RACCS ( 18, 32) = 0.730217E+00
- PKER_RACCS ( 18, 33) = 0.736286E+00
- PKER_RACCS ( 18, 34) = 0.741300E+00
- PKER_RACCS ( 18, 35) = 0.745445E+00
- PKER_RACCS ( 18, 36) = 0.748871E+00
- PKER_RACCS ( 18, 37) = 0.751703E+00
- PKER_RACCS ( 18, 38) = 0.754044E+00
- PKER_RACCS ( 18, 39) = 0.755981E+00
- PKER_RACCS ( 18, 40) = 0.757582E+00
- PKER_RACCS ( 19, 1) = 0.149424E+02
- PKER_RACCS ( 19, 2) = 0.122248E+02
- PKER_RACCS ( 19, 3) = 0.997223E+01
- PKER_RACCS ( 19, 4) = 0.810461E+01
- PKER_RACCS ( 19, 5) = 0.655579E+01
- PKER_RACCS ( 19, 6) = 0.527114E+01
- PKER_RACCS ( 19, 7) = 0.420569E+01
- PKER_RACCS ( 19, 8) = 0.332252E+01
- PKER_RACCS ( 19, 9) = 0.259139E+01
- PKER_RACCS ( 19, 10) = 0.198760E+01
- PKER_RACCS ( 19, 11) = 0.149127E+01
- PKER_RACCS ( 19, 12) = 0.108695E+01
- PKER_RACCS ( 19, 13) = 0.763957E+00
- PKER_RACCS ( 19, 14) = 0.516893E+00
- PKER_RACCS ( 19, 15) = 0.345184E+00
- PKER_RACCS ( 19, 16) = 0.248721E+00
- PKER_RACCS ( 19, 17) = 0.221527E+00
- PKER_RACCS ( 19, 18) = 0.247368E+00
- PKER_RACCS ( 19, 19) = 0.302857E+00
- PKER_RACCS ( 19, 20) = 0.366792E+00
- PKER_RACCS ( 19, 21) = 0.426569E+00
- PKER_RACCS ( 19, 22) = 0.477725E+00
- PKER_RACCS ( 19, 23) = 0.520116E+00
- PKER_RACCS ( 19, 24) = 0.554955E+00
- PKER_RACCS ( 19, 25) = 0.583575E+00
- PKER_RACCS ( 19, 26) = 0.607108E+00
- PKER_RACCS ( 19, 27) = 0.626479E+00
- PKER_RACCS ( 19, 28) = 0.642436E+00
- PKER_RACCS ( 19, 29) = 0.655590E+00
- PKER_RACCS ( 19, 30) = 0.666441E+00
- PKER_RACCS ( 19, 31) = 0.675394E+00
- PKER_RACCS ( 19, 32) = 0.682786E+00
- PKER_RACCS ( 19, 33) = 0.688890E+00
- PKER_RACCS ( 19, 34) = 0.693932E+00
- PKER_RACCS ( 19, 35) = 0.698097E+00
- PKER_RACCS ( 19, 36) = 0.701540E+00
- PKER_RACCS ( 19, 37) = 0.704385E+00
- PKER_RACCS ( 19, 38) = 0.706736E+00
- PKER_RACCS ( 19, 39) = 0.708680E+00
- PKER_RACCS ( 19, 40) = 0.710287E+00
- PKER_RACCS ( 20, 1) = 0.150233E+02
- PKER_RACCS ( 20, 2) = 0.123081E+02
- PKER_RACCS ( 20, 3) = 0.100581E+02
- PKER_RACCS ( 20, 4) = 0.819292E+01
- PKER_RACCS ( 20, 5) = 0.664638E+01
- PKER_RACCS ( 20, 6) = 0.536365E+01
- PKER_RACCS ( 20, 7) = 0.429950E+01
- PKER_RACCS ( 20, 8) = 0.341669E+01
- PKER_RACCS ( 20, 9) = 0.268467E+01
- PKER_RACCS ( 20, 10) = 0.207848E+01
- PKER_RACCS ( 20, 11) = 0.157790E+01
- PKER_RACCS ( 20, 12) = 0.116706E+01
- PKER_RACCS ( 20, 13) = 0.834456E+00
- PKER_RACCS ( 20, 14) = 0.573438E+00
- PKER_RACCS ( 20, 15) = 0.382407E+00
- PKER_RACCS ( 20, 16) = 0.262345E+00
- PKER_RACCS ( 20, 17) = 0.211120E+00
- PKER_RACCS ( 20, 18) = 0.217516E+00
- PKER_RACCS ( 20, 19) = 0.261278E+00
- PKER_RACCS ( 20, 20) = 0.320279E+00
- PKER_RACCS ( 20, 21) = 0.379014E+00
- PKER_RACCS ( 20, 22) = 0.430562E+00
- PKER_RACCS ( 20, 23) = 0.473590E+00
- PKER_RACCS ( 20, 24) = 0.508970E+00
- PKER_RACCS ( 20, 25) = 0.537995E+00
- PKER_RACCS ( 20, 26) = 0.561829E+00
- PKER_RACCS ( 20, 27) = 0.581423E+00
- PKER_RACCS ( 20, 28) = 0.597547E+00
- PKER_RACCS ( 20, 29) = 0.610827E+00
- PKER_RACCS ( 20, 30) = 0.621772E+00
- PKER_RACCS ( 20, 31) = 0.630798E+00
- PKER_RACCS ( 20, 32) = 0.638244E+00
- PKER_RACCS ( 20, 33) = 0.644390E+00
- PKER_RACCS ( 20, 34) = 0.649465E+00
- PKER_RACCS ( 20, 35) = 0.653656E+00
- PKER_RACCS ( 20, 36) = 0.657117E+00
- PKER_RACCS ( 20, 37) = 0.659978E+00
- PKER_RACCS ( 20, 38) = 0.662341E+00
- PKER_RACCS ( 20, 39) = 0.664294E+00
- PKER_RACCS ( 20, 40) = 0.665909E+00
- PKER_RACCS ( 21, 1) = 0.150922E+02
- PKER_RACCS ( 21, 2) = 0.123791E+02
- PKER_RACCS ( 21, 3) = 0.101311E+02
- PKER_RACCS ( 21, 4) = 0.826818E+01
- PKER_RACCS ( 21, 5) = 0.672379E+01
- PKER_RACCS ( 21, 6) = 0.544309E+01
- PKER_RACCS ( 21, 7) = 0.438067E+01
- PKER_RACCS ( 21, 8) = 0.349910E+01
- PKER_RACCS ( 21, 9) = 0.276755E+01
- PKER_RACCS ( 21, 10) = 0.216074E+01
- PKER_RACCS ( 21, 11) = 0.165815E+01
- PKER_RACCS ( 21, 12) = 0.124340E+01
- PKER_RACCS ( 21, 13) = 0.904204E+00
- PKER_RACCS ( 21, 14) = 0.632746E+00
- PKER_RACCS ( 21, 15) = 0.426104E+00
- PKER_RACCS ( 21, 16) = 0.285124E+00
- PKER_RACCS ( 21, 17) = 0.210547E+00
- PKER_RACCS ( 21, 18) = 0.196012E+00
- PKER_RACCS ( 21, 19) = 0.225390E+00
- PKER_RACCS ( 21, 20) = 0.277352E+00
- PKER_RACCS ( 21, 21) = 0.334022E+00
- PKER_RACCS ( 21, 22) = 0.385682E+00
- PKER_RACCS ( 21, 23) = 0.429377E+00
- PKER_RACCS ( 21, 24) = 0.465390E+00
- PKER_RACCS ( 21, 25) = 0.494904E+00
- PKER_RACCS ( 21, 26) = 0.519101E+00
- PKER_RACCS ( 21, 27) = 0.538964E+00
- PKER_RACCS ( 21, 28) = 0.555290E+00
- PKER_RACCS ( 21, 29) = 0.568721E+00
- PKER_RACCS ( 21, 30) = 0.579780E+00
- PKER_RACCS ( 21, 31) = 0.588892E+00
- PKER_RACCS ( 21, 32) = 0.596405E+00
- PKER_RACCS ( 21, 33) = 0.602602E+00
- PKER_RACCS ( 21, 34) = 0.607715E+00
- PKER_RACCS ( 21, 35) = 0.611936E+00
- PKER_RACCS ( 21, 36) = 0.615421E+00
- PKER_RACCS ( 21, 37) = 0.618300E+00
- PKER_RACCS ( 21, 38) = 0.620677E+00
- PKER_RACCS ( 21, 39) = 0.622642E+00
- PKER_RACCS ( 21, 40) = 0.624265E+00
- PKER_RACCS ( 22, 1) = 0.151514E+02
- PKER_RACCS ( 22, 2) = 0.124399E+02
- PKER_RACCS ( 22, 3) = 0.101937E+02
- PKER_RACCS ( 22, 4) = 0.833253E+01
- PKER_RACCS ( 22, 5) = 0.679003E+01
- PKER_RACCS ( 22, 6) = 0.551121E+01
- PKER_RACCS ( 22, 7) = 0.445059E+01
- PKER_RACCS ( 22, 8) = 0.357060E+01
- PKER_RACCS ( 22, 9) = 0.284022E+01
- PKER_RACCS ( 22, 10) = 0.223394E+01
- PKER_RACCS ( 22, 11) = 0.173091E+01
- PKER_RACCS ( 22, 12) = 0.131432E+01
- PKER_RACCS ( 22, 13) = 0.971179E+00
- PKER_RACCS ( 22, 14) = 0.692512E+00
- PKER_RACCS ( 22, 15) = 0.473921E+00
- PKER_RACCS ( 22, 16) = 0.315613E+00
- PKER_RACCS ( 22, 17) = 0.219438E+00
- PKER_RACCS ( 22, 18) = 0.183228E+00
- PKER_RACCS ( 22, 19) = 0.195928E+00
- PKER_RACCS ( 22, 20) = 0.238467E+00
- PKER_RACCS ( 22, 21) = 0.291650E+00
- PKER_RACCS ( 22, 22) = 0.342933E+00
- PKER_RACCS ( 22, 23) = 0.387253E+00
- PKER_RACCS ( 22, 24) = 0.423987E+00
- PKER_RACCS ( 22, 25) = 0.454083E+00
- PKER_RACCS ( 22, 26) = 0.478717E+00
- PKER_RACCS ( 22, 27) = 0.498906E+00
- PKER_RACCS ( 22, 28) = 0.515474E+00
- PKER_RACCS ( 22, 29) = 0.529087E+00
- PKER_RACCS ( 22, 30) = 0.540283E+00
- PKER_RACCS ( 22, 31) = 0.549500E+00
- PKER_RACCS ( 22, 32) = 0.557092E+00
- PKER_RACCS ( 22, 33) = 0.563350E+00
- PKER_RACCS ( 22, 34) = 0.568510E+00
- PKER_RACCS ( 22, 35) = 0.572767E+00
- PKER_RACCS ( 22, 36) = 0.576280E+00
- PKER_RACCS ( 22, 37) = 0.579180E+00
- PKER_RACCS ( 22, 38) = 0.581575E+00
- PKER_RACCS ( 22, 39) = 0.583552E+00
- PKER_RACCS ( 22, 40) = 0.585186E+00
- PKER_RACCS ( 23, 1) = 0.152025E+02
- PKER_RACCS ( 23, 2) = 0.124923E+02
- PKER_RACCS ( 23, 3) = 0.102475E+02
- PKER_RACCS ( 23, 4) = 0.838786E+01
- PKER_RACCS ( 23, 5) = 0.684693E+01
- PKER_RACCS ( 23, 6) = 0.556974E+01
- PKER_RACCS ( 23, 7) = 0.451078E+01
- PKER_RACCS ( 23, 8) = 0.363239E+01
- PKER_RACCS ( 23, 9) = 0.290344E+01
- PKER_RACCS ( 23, 10) = 0.229827E+01
- PKER_RACCS ( 23, 11) = 0.179578E+01
- PKER_RACCS ( 23, 12) = 0.137880E+01
- PKER_RACCS ( 23, 13) = 0.103376E+01
- PKER_RACCS ( 23, 14) = 0.750698E+00
- PKER_RACCS ( 23, 15) = 0.523775E+00
- PKER_RACCS ( 23, 16) = 0.351748E+00
- PKER_RACCS ( 23, 17) = 0.236670E+00
- PKER_RACCS ( 23, 18) = 0.179378E+00
- PKER_RACCS ( 23, 19) = 0.173687E+00
- PKER_RACCS ( 23, 20) = 0.204334E+00
- PKER_RACCS ( 23, 21) = 0.252182E+00
- PKER_RACCS ( 23, 22) = 0.302250E+00
- PKER_RACCS ( 23, 23) = 0.347024E+00
- PKER_RACCS ( 23, 24) = 0.384540E+00
- PKER_RACCS ( 23, 25) = 0.415319E+00
- PKER_RACCS ( 23, 26) = 0.440475E+00
- PKER_RACCS ( 23, 27) = 0.461054E+00
- PKER_RACCS ( 23, 28) = 0.477914E+00
- PKER_RACCS ( 23, 29) = 0.491746E+00
- PKER_RACCS ( 23, 30) = 0.503108E+00
- PKER_RACCS ( 23, 31) = 0.512450E+00
- PKER_RACCS ( 23, 32) = 0.520137E+00
- PKER_RACCS ( 23, 33) = 0.526468E+00
- PKER_RACCS ( 23, 34) = 0.531684E+00
- PKER_RACCS ( 23, 35) = 0.535984E+00
- PKER_RACCS ( 23, 36) = 0.539531E+00
- PKER_RACCS ( 23, 37) = 0.542457E+00
- PKER_RACCS ( 23, 38) = 0.544872E+00
- PKER_RACCS ( 23, 39) = 0.546865E+00
- PKER_RACCS ( 23, 40) = 0.548511E+00
- PKER_RACCS ( 24, 1) = 0.152471E+02
- PKER_RACCS ( 24, 2) = 0.125379E+02
- PKER_RACCS ( 24, 3) = 0.102942E+02
- PKER_RACCS ( 24, 4) = 0.843571E+01
- PKER_RACCS ( 24, 5) = 0.689606E+01
- PKER_RACCS ( 24, 6) = 0.562023E+01
- PKER_RACCS ( 24, 7) = 0.456270E+01
- PKER_RACCS ( 24, 8) = 0.368577E+01
- PKER_RACCS ( 24, 9) = 0.295826E+01
- PKER_RACCS ( 24, 10) = 0.235439E+01
- PKER_RACCS ( 24, 11) = 0.185292E+01
- PKER_RACCS ( 24, 12) = 0.143643E+01
- PKER_RACCS ( 24, 13) = 0.109091E+01
- PKER_RACCS ( 24, 14) = 0.805605E+00
- PKER_RACCS ( 24, 15) = 0.573417E+00
- PKER_RACCS ( 24, 16) = 0.391471E+00
- PKER_RACCS ( 24, 17) = 0.260876E+00
- PKER_RACCS ( 24, 18) = 0.184180E+00
- PKER_RACCS ( 24, 19) = 0.159396E+00
- PKER_RACCS ( 24, 20) = 0.175814E+00
- PKER_RACCS ( 24, 21) = 0.216094E+00
- PKER_RACCS ( 24, 22) = 0.263726E+00
- PKER_RACCS ( 24, 23) = 0.308551E+00
- PKER_RACCS ( 24, 24) = 0.346845E+00
- PKER_RACCS ( 24, 25) = 0.378402E+00
- PKER_RACCS ( 24, 26) = 0.404175E+00
- PKER_RACCS ( 24, 27) = 0.425220E+00
- PKER_RACCS ( 24, 28) = 0.442431E+00
- PKER_RACCS ( 24, 29) = 0.456527E+00
- PKER_RACCS ( 24, 30) = 0.468088E+00
- PKER_RACCS ( 24, 31) = 0.477580E+00
- PKER_RACCS ( 24, 32) = 0.485382E+00
- PKER_RACCS ( 24, 33) = 0.491800E+00
- PKER_RACCS ( 24, 34) = 0.497083E+00
- PKER_RACCS ( 24, 35) = 0.501435E+00
- PKER_RACCS ( 24, 36) = 0.505022E+00
- PKER_RACCS ( 24, 37) = 0.507979E+00
- PKER_RACCS ( 24, 38) = 0.510418E+00
- PKER_RACCS ( 24, 39) = 0.512430E+00
- PKER_RACCS ( 24, 40) = 0.514090E+00
- PKER_RACCS ( 25, 1) = 0.152861E+02
- PKER_RACCS ( 25, 2) = 0.125778E+02
- PKER_RACCS ( 25, 3) = 0.103349E+02
- PKER_RACCS ( 25, 4) = 0.847739E+01
- PKER_RACCS ( 25, 5) = 0.693876E+01
- PKER_RACCS ( 25, 6) = 0.566404E+01
- PKER_RACCS ( 25, 7) = 0.460768E+01
- PKER_RACCS ( 25, 8) = 0.373200E+01
- PKER_RACCS ( 25, 9) = 0.300578E+01
- PKER_RACCS ( 25, 10) = 0.240320E+01
- PKER_RACCS ( 25, 11) = 0.190291E+01
- PKER_RACCS ( 25, 12) = 0.148735E+01
- PKER_RACCS ( 25, 13) = 0.114219E+01
- PKER_RACCS ( 25, 14) = 0.856136E+00
- PKER_RACCS ( 25, 15) = 0.621029E+00
- PKER_RACCS ( 25, 16) = 0.432440E+00
- PKER_RACCS ( 25, 17) = 0.290169E+00
- PKER_RACCS ( 25, 18) = 0.196768E+00
- PKER_RACCS ( 25, 19) = 0.153201E+00
- PKER_RACCS ( 25, 20) = 0.153672E+00
- PKER_RACCS ( 25, 21) = 0.184048E+00
- PKER_RACCS ( 25, 22) = 0.227585E+00
- PKER_RACCS ( 25, 23) = 0.271783E+00
- PKER_RACCS ( 25, 24) = 0.310728E+00
- PKER_RACCS ( 25, 25) = 0.343135E+00
- PKER_RACCS ( 25, 26) = 0.369625E+00
- PKER_RACCS ( 25, 27) = 0.391222E+00
- PKER_RACCS ( 25, 28) = 0.408850E+00
- PKER_RACCS ( 25, 29) = 0.423262E+00
- PKER_RACCS ( 25, 30) = 0.435061E+00
- PKER_RACCS ( 25, 31) = 0.444734E+00
- PKER_RACCS ( 25, 32) = 0.452673E+00
- PKER_RACCS ( 25, 33) = 0.459196E+00
- PKER_RACCS ( 25, 34) = 0.464560E+00
- PKER_RACCS ( 25, 35) = 0.468974E+00
- PKER_RACCS ( 25, 36) = 0.472608E+00
- PKER_RACCS ( 25, 37) = 0.475602E+00
- PKER_RACCS ( 25, 38) = 0.478070E+00
- PKER_RACCS ( 25, 39) = 0.480104E+00
- PKER_RACCS ( 25, 40) = 0.481782E+00
- PKER_RACCS ( 26, 1) = 0.153206E+02
- PKER_RACCS ( 26, 2) = 0.126129E+02
- PKER_RACCS ( 26, 3) = 0.103707E+02
- PKER_RACCS ( 26, 4) = 0.851394E+01
- PKER_RACCS ( 26, 5) = 0.697612E+01
- PKER_RACCS ( 26, 6) = 0.570228E+01
- PKER_RACCS ( 26, 7) = 0.464688E+01
- PKER_RACCS ( 26, 8) = 0.377223E+01
- PKER_RACCS ( 26, 9) = 0.304711E+01
- PKER_RACCS ( 26, 10) = 0.244567E+01
- PKER_RACCS ( 26, 11) = 0.194653E+01
- PKER_RACCS ( 26, 12) = 0.153202E+01
- PKER_RACCS ( 26, 13) = 0.118766E+01
- PKER_RACCS ( 26, 14) = 0.901746E+00
- PKER_RACCS ( 26, 15) = 0.665390E+00
- PKER_RACCS ( 26, 16) = 0.472866E+00
- PKER_RACCS ( 26, 17) = 0.322299E+00
- PKER_RACCS ( 26, 18) = 0.215438E+00
- PKER_RACCS ( 26, 19) = 0.154776E+00
- PKER_RACCS ( 26, 20) = 0.138541E+00
- PKER_RACCS ( 26, 21) = 0.156867E+00
- PKER_RACCS ( 26, 22) = 0.194320E+00
- PKER_RACCS ( 26, 23) = 0.236800E+00
- PKER_RACCS ( 26, 24) = 0.276076E+00
- PKER_RACCS ( 26, 25) = 0.309341E+00
- PKER_RACCS ( 26, 26) = 0.336639E+00
- PKER_RACCS ( 26, 27) = 0.358880E+00
- PKER_RACCS ( 26, 28) = 0.377001E+00
- PKER_RACCS ( 26, 29) = 0.391788E+00
- PKER_RACCS ( 26, 30) = 0.403872E+00
- PKER_RACCS ( 26, 31) = 0.413761E+00
- PKER_RACCS ( 26, 32) = 0.421865E+00
- PKER_RACCS ( 26, 33) = 0.428514E+00
- PKER_RACCS ( 26, 34) = 0.433974E+00
- PKER_RACCS ( 26, 35) = 0.438462E+00
- PKER_RACCS ( 26, 36) = 0.442154E+00
- PKER_RACCS ( 26, 37) = 0.445192E+00
- PKER_RACCS ( 26, 38) = 0.447694E+00
- PKER_RACCS ( 26, 39) = 0.449755E+00
- PKER_RACCS ( 26, 40) = 0.451454E+00
- PKER_RACCS ( 27, 1) = 0.153513E+02
- PKER_RACCS ( 27, 2) = 0.126440E+02
- PKER_RACCS ( 27, 3) = 0.104024E+02
- PKER_RACCS ( 27, 4) = 0.854622E+01
- PKER_RACCS ( 27, 5) = 0.700904E+01
- PKER_RACCS ( 27, 6) = 0.573589E+01
- PKER_RACCS ( 27, 7) = 0.468125E+01
- PKER_RACCS ( 27, 8) = 0.380743E+01
- PKER_RACCS ( 27, 9) = 0.308321E+01
- PKER_RACCS ( 27, 10) = 0.248274E+01
- PKER_RACCS ( 27, 11) = 0.198462E+01
- PKER_RACCS ( 27, 12) = 0.157114E+01
- PKER_RACCS ( 27, 13) = 0.122770E+01
- PKER_RACCS ( 27, 14) = 0.942392E+00
- PKER_RACCS ( 27, 15) = 0.705810E+00
- PKER_RACCS ( 27, 16) = 0.511279E+00
- PKER_RACCS ( 27, 17) = 0.355415E+00
- PKER_RACCS ( 27, 18) = 0.238463E+00
- PKER_RACCS ( 27, 19) = 0.163223E+00
- PKER_RACCS ( 27, 20) = 0.130700E+00
- PKER_RACCS ( 27, 21) = 0.135369E+00
- PKER_RACCS ( 27, 22) = 0.164571E+00
- PKER_RACCS ( 27, 23) = 0.203879E+00
- PKER_RACCS ( 27, 24) = 0.242868E+00
- PKER_RACCS ( 27, 25) = 0.276880E+00
- PKER_RACCS ( 27, 26) = 0.305049E+00
- PKER_RACCS ( 27, 27) = 0.328022E+00
- PKER_RACCS ( 27, 28) = 0.346718E+00
- PKER_RACCS ( 27, 29) = 0.361946E+00
- PKER_RACCS ( 27, 30) = 0.374368E+00
- PKER_RACCS ( 27, 31) = 0.384516E+00
- PKER_RACCS ( 27, 32) = 0.392817E+00
- PKER_RACCS ( 27, 33) = 0.399617E+00
- PKER_RACCS ( 27, 34) = 0.405192E+00
- PKER_RACCS ( 27, 35) = 0.409769E+00
- PKER_RACCS ( 27, 36) = 0.413529E+00
- PKER_RACCS ( 27, 37) = 0.416620E+00
- PKER_RACCS ( 27, 38) = 0.419163E+00
- PKER_RACCS ( 27, 39) = 0.421256E+00
- PKER_RACCS ( 27, 40) = 0.422980E+00
- PKER_RACCS ( 28, 1) = 0.153787E+02
- PKER_RACCS ( 28, 2) = 0.126718E+02
- PKER_RACCS ( 28, 3) = 0.104307E+02
- PKER_RACCS ( 28, 4) = 0.857492E+01
- PKER_RACCS ( 28, 5) = 0.703823E+01
- PKER_RACCS ( 28, 6) = 0.576563E+01
- PKER_RACCS ( 28, 7) = 0.471159E+01
- PKER_RACCS ( 28, 8) = 0.383843E+01
- PKER_RACCS ( 28, 9) = 0.311494E+01
- PKER_RACCS ( 28, 10) = 0.251526E+01
- PKER_RACCS ( 28, 11) = 0.201799E+01
- PKER_RACCS ( 28, 12) = 0.160542E+01
- PKER_RACCS ( 28, 13) = 0.126288E+01
- PKER_RACCS ( 28, 14) = 0.978347E+00
- PKER_RACCS ( 28, 15) = 0.742102E+00
- PKER_RACCS ( 28, 16) = 0.546792E+00
- PKER_RACCS ( 28, 17) = 0.387821E+00
- PKER_RACCS ( 28, 18) = 0.264011E+00
- PKER_RACCS ( 28, 19) = 0.177228E+00
- PKER_RACCS ( 28, 20) = 0.129810E+00
- PKER_RACCS ( 28, 21) = 0.120099E+00
- PKER_RACCS ( 28, 22) = 0.139117E+00
- PKER_RACCS ( 28, 23) = 0.173453E+00
- PKER_RACCS ( 28, 24) = 0.211216E+00
- PKER_RACCS ( 28, 25) = 0.245678E+00
- PKER_RACCS ( 28, 26) = 0.274712E+00
- PKER_RACCS ( 28, 27) = 0.298492E+00
- PKER_RACCS ( 28, 28) = 0.317842E+00
- PKER_RACCS ( 28, 29) = 0.333584E+00
- PKER_RACCS ( 28, 30) = 0.346404E+00
- PKER_RACCS ( 28, 31) = 0.356858E+00
- PKER_RACCS ( 28, 32) = 0.365393E+00
- PKER_RACCS ( 28, 33) = 0.372373E+00
- PKER_RACCS ( 28, 34) = 0.378086E+00
- PKER_RACCS ( 28, 35) = 0.382769E+00
- PKER_RACCS ( 28, 36) = 0.386611E+00
- PKER_RACCS ( 28, 37) = 0.389765E+00
- PKER_RACCS ( 28, 38) = 0.392357E+00
- PKER_RACCS ( 28, 39) = 0.394489E+00
- PKER_RACCS ( 28, 40) = 0.396242E+00
- PKER_RACCS ( 29, 1) = 0.154034E+02
- PKER_RACCS ( 29, 2) = 0.126968E+02
- PKER_RACCS ( 29, 3) = 0.104560E+02
- PKER_RACCS ( 29, 4) = 0.860059E+01
- PKER_RACCS ( 29, 5) = 0.706430E+01
- PKER_RACCS ( 29, 6) = 0.579212E+01
- PKER_RACCS ( 29, 7) = 0.473855E+01
- PKER_RACCS ( 29, 8) = 0.386591E+01
- PKER_RACCS ( 29, 9) = 0.314299E+01
- PKER_RACCS ( 29, 10) = 0.254395E+01
- PKER_RACCS ( 29, 11) = 0.204738E+01
- PKER_RACCS ( 29, 12) = 0.163556E+01
- PKER_RACCS ( 29, 13) = 0.129383E+01
- PKER_RACCS ( 29, 14) = 0.101007E+01
- PKER_RACCS ( 29, 15) = 0.774394E+00
- PKER_RACCS ( 29, 16) = 0.579032E+00
- PKER_RACCS ( 29, 17) = 0.418516E+00
- PKER_RACCS ( 29, 18) = 0.290262E+00
- PKER_RACCS ( 29, 19) = 0.194914E+00
- PKER_RACCS ( 29, 20) = 0.134958E+00
- PKER_RACCS ( 29, 21) = 0.111247E+00
- PKER_RACCS ( 29, 22) = 0.118691E+00
- PKER_RACCS ( 29, 23) = 0.146181E+00
- PKER_RACCS ( 29, 24) = 0.181396E+00
- PKER_RACCS ( 29, 25) = 0.215756E+00
- PKER_RACCS ( 29, 26) = 0.245535E+00
- PKER_RACCS ( 29, 27) = 0.270155E+00
- PKER_RACCS ( 29, 28) = 0.290229E+00
- PKER_RACCS ( 29, 29) = 0.306555E+00
- PKER_RACCS ( 29, 30) = 0.319836E+00
- PKER_RACCS ( 29, 31) = 0.330648E+00
- PKER_RACCS ( 29, 32) = 0.339462E+00
- PKER_RACCS ( 29, 33) = 0.346655E+00
- PKER_RACCS ( 29, 34) = 0.352533E+00
- PKER_RACCS ( 29, 35) = 0.357343E+00
- PKER_RACCS ( 29, 36) = 0.361282E+00
- PKER_RACCS ( 29, 37) = 0.364512E+00
- PKER_RACCS ( 29, 38) = 0.367163E+00
- PKER_RACCS ( 29, 39) = 0.369340E+00
- PKER_RACCS ( 29, 40) = 0.371129E+00
- PKER_RACCS ( 30, 1) = 0.154257E+02
- PKER_RACCS ( 30, 2) = 0.127194E+02
- PKER_RACCS ( 30, 3) = 0.104788E+02
- PKER_RACCS ( 30, 4) = 0.862370E+01
- PKER_RACCS ( 30, 5) = 0.708771E+01
- PKER_RACCS ( 30, 6) = 0.581587E+01
- PKER_RACCS ( 30, 7) = 0.476266E+01
- PKER_RACCS ( 30, 8) = 0.389043E+01
- PKER_RACCS ( 30, 9) = 0.316795E+01
- PKER_RACCS ( 30, 10) = 0.256941E+01
- PKER_RACCS ( 30, 11) = 0.207340E+01
- PKER_RACCS ( 30, 12) = 0.166220E+01
- PKER_RACCS ( 30, 13) = 0.132114E+01
- PKER_RACCS ( 30, 14) = 0.103807E+01
- PKER_RACCS ( 30, 15) = 0.803030E+00
- PKER_RACCS ( 30, 16) = 0.607970E+00
- PKER_RACCS ( 30, 17) = 0.446859E+00
- PKER_RACCS ( 30, 18) = 0.316050E+00
- PKER_RACCS ( 30, 19) = 0.214747E+00
- PKER_RACCS ( 30, 20) = 0.144869E+00
- PKER_RACCS ( 30, 21) = 0.108490E+00
- PKER_RACCS ( 30, 22) = 0.103788E+00
- PKER_RACCS ( 30, 23) = 0.122733E+00
- PKER_RACCS ( 30, 24) = 0.153869E+00
- PKER_RACCS ( 30, 25) = 0.187267E+00
- PKER_RACCS ( 30, 26) = 0.217494E+00
- PKER_RACCS ( 30, 27) = 0.242915E+00
- PKER_RACCS ( 30, 28) = 0.263753E+00
- PKER_RACCS ( 30, 29) = 0.280725E+00
- PKER_RACCS ( 30, 30) = 0.294528E+00
- PKER_RACCS ( 30, 31) = 0.305756E+00
- PKER_RACCS ( 30, 32) = 0.314894E+00
- PKER_RACCS ( 30, 33) = 0.322340E+00
- PKER_RACCS ( 30, 34) = 0.328414E+00
- PKER_RACCS ( 30, 35) = 0.333374E+00
- PKER_RACCS ( 30, 36) = 0.337431E+00
- PKER_RACCS ( 30, 37) = 0.340751E+00
- PKER_RACCS ( 30, 38) = 0.343472E+00
- PKER_RACCS ( 30, 39) = 0.345703E+00
- PKER_RACCS ( 30, 40) = 0.347534E+00
- PKER_RACCS ( 31, 1) = 0.154460E+02
- PKER_RACCS ( 31, 2) = 0.127399E+02
- PKER_RACCS ( 31, 3) = 0.104995E+02
- PKER_RACCS ( 31, 4) = 0.864461E+01
- PKER_RACCS ( 31, 5) = 0.710885E+01
- PKER_RACCS ( 31, 6) = 0.583727E+01
- PKER_RACCS ( 31, 7) = 0.478435E+01
- PKER_RACCS ( 31, 8) = 0.391243E+01
- PKER_RACCS ( 31, 9) = 0.319031E+01
- PKER_RACCS ( 31, 10) = 0.259216E+01
- PKER_RACCS ( 31, 11) = 0.209658E+01
- PKER_RACCS ( 31, 12) = 0.168588E+01
- PKER_RACCS ( 31, 13) = 0.134536E+01
- PKER_RACCS ( 31, 14) = 0.106288E+01
- PKER_RACCS ( 31, 15) = 0.828426E+00
- PKER_RACCS ( 31, 16) = 0.633811E+00
- PKER_RACCS ( 31, 17) = 0.472627E+00
- PKER_RACCS ( 31, 18) = 0.340455E+00
- PKER_RACCS ( 31, 19) = 0.235395E+00
- PKER_RACCS ( 31, 20) = 0.158197E+00
- PKER_RACCS ( 31, 21) = 0.111047E+00
- PKER_RACCS ( 31, 22) = 0.944902E-01
- PKER_RACCS ( 31, 23) = 0.103740E+00
- PKER_RACCS ( 31, 24) = 0.129188E+00
- PKER_RACCS ( 31, 25) = 0.160505E+00
- PKER_RACCS ( 31, 26) = 0.190663E+00
- PKER_RACCS ( 31, 27) = 0.216732E+00
- PKER_RACCS ( 31, 28) = 0.238325E+00
- PKER_RACCS ( 31, 29) = 0.255978E+00
- PKER_RACCS ( 31, 30) = 0.270357E+00
- PKER_RACCS ( 31, 31) = 0.282055E+00
- PKER_RACCS ( 31, 32) = 0.291568E+00
- PKER_RACCS ( 31, 33) = 0.299310E+00
- PKER_RACCS ( 31, 34) = 0.305614E+00
- PKER_RACCS ( 31, 35) = 0.310754E+00
- PKER_RACCS ( 31, 36) = 0.314949E+00
- PKER_RACCS ( 31, 37) = 0.318377E+00
- PKER_RACCS ( 31, 38) = 0.321181E+00
- PKER_RACCS ( 31, 39) = 0.323477E+00
- PKER_RACCS ( 31, 40) = 0.325358E+00
- PKER_RACCS ( 32, 1) = 0.154645E+02
- PKER_RACCS ( 32, 2) = 0.127586E+02
- PKER_RACCS ( 32, 3) = 0.105183E+02
- PKER_RACCS ( 32, 4) = 0.866361E+01
- PKER_RACCS ( 32, 5) = 0.712804E+01
- PKER_RACCS ( 32, 6) = 0.585666E+01
- PKER_RACCS ( 32, 7) = 0.480396E+01
- PKER_RACCS ( 32, 8) = 0.393229E+01
- PKER_RACCS ( 32, 9) = 0.321044E+01
- PKER_RACCS ( 32, 10) = 0.261259E+01
- PKER_RACCS ( 32, 11) = 0.211736E+01
- PKER_RACCS ( 32, 12) = 0.170704E+01
- PKER_RACCS ( 32, 13) = 0.136696E+01
- PKER_RACCS ( 32, 14) = 0.108496E+01
- PKER_RACCS ( 32, 15) = 0.851011E+00
- PKER_RACCS ( 32, 16) = 0.656851E+00
- PKER_RACCS ( 32, 17) = 0.495858E+00
- PKER_RACCS ( 32, 18) = 0.363104E+00
- PKER_RACCS ( 32, 19) = 0.255729E+00
- PKER_RACCS ( 32, 20) = 0.173391E+00
- PKER_RACCS ( 32, 21) = 0.117751E+00
- PKER_RACCS ( 32, 22) = 0.904719E-01
- PKER_RACCS ( 32, 23) = 0.895825E-01
- PKER_RACCS ( 32, 24) = 0.107971E+00
- PKER_RACCS ( 32, 25) = 0.135888E+00
- PKER_RACCS ( 32, 26) = 0.165226E+00
- PKER_RACCS ( 32, 27) = 0.191642E+00
- PKER_RACCS ( 32, 28) = 0.213902E+00
- PKER_RACCS ( 32, 29) = 0.232232E+00
- PKER_RACCS ( 32, 30) = 0.247217E+00
- PKER_RACCS ( 32, 31) = 0.259430E+00
- PKER_RACCS ( 32, 32) = 0.269367E+00
- PKER_RACCS ( 32, 33) = 0.277448E+00
- PKER_RACCS ( 32, 34) = 0.284022E+00
- PKER_RACCS ( 32, 35) = 0.289372E+00
- PKER_RACCS ( 32, 36) = 0.293732E+00
- PKER_RACCS ( 32, 37) = 0.297288E+00
- PKER_RACCS ( 32, 38) = 0.300191E+00
- PKER_RACCS ( 32, 39) = 0.302565E+00
- PKER_RACCS ( 32, 40) = 0.304507E+00
- PKER_RACCS ( 33, 1) = 0.154815E+02
- PKER_RACCS ( 33, 2) = 0.127757E+02
- PKER_RACCS ( 33, 3) = 0.105355E+02
- PKER_RACCS ( 33, 4) = 0.868096E+01
- PKER_RACCS ( 33, 5) = 0.714554E+01
- PKER_RACCS ( 33, 6) = 0.587431E+01
- PKER_RACCS ( 33, 7) = 0.482179E+01
- PKER_RACCS ( 33, 8) = 0.395030E+01
- PKER_RACCS ( 33, 9) = 0.322867E+01
- PKER_RACCS ( 33, 10) = 0.263106E+01
- PKER_RACCS ( 33, 11) = 0.213609E+01
- PKER_RACCS ( 33, 12) = 0.172607E+01
- PKER_RACCS ( 33, 13) = 0.138633E+01
- PKER_RACCS ( 33, 14) = 0.110471E+01
- PKER_RACCS ( 33, 15) = 0.871183E+00
- PKER_RACCS ( 33, 16) = 0.677438E+00
- PKER_RACCS ( 33, 17) = 0.516731E+00
- PKER_RACCS ( 33, 18) = 0.383819E+00
- PKER_RACCS ( 33, 19) = 0.275185E+00
- PKER_RACCS ( 33, 20) = 0.189408E+00
- PKER_RACCS ( 33, 21) = 0.127387E+00
- PKER_RACCS ( 33, 22) = 0.909968E-01
- PKER_RACCS ( 33, 23) = 0.802651E-01
- PKER_RACCS ( 33, 24) = 0.906465E-01
- PKER_RACCS ( 33, 25) = 0.113901E+00
- PKER_RACCS ( 33, 26) = 0.141477E+00
- PKER_RACCS ( 33, 27) = 0.167764E+00
- PKER_RACCS ( 33, 28) = 0.190502E+00
- PKER_RACCS ( 33, 29) = 0.209445E+00
- PKER_RACCS ( 33, 30) = 0.225030E+00
- PKER_RACCS ( 33, 31) = 0.237783E+00
- PKER_RACCS ( 33, 32) = 0.248183E+00
- PKER_RACCS ( 33, 33) = 0.256648E+00
- PKER_RACCS ( 33, 34) = 0.263530E+00
- PKER_RACCS ( 33, 35) = 0.269127E+00
- PKER_RACCS ( 33, 36) = 0.273680E+00
- PKER_RACCS ( 33, 37) = 0.277387E+00
- PKER_RACCS ( 33, 38) = 0.280409E+00
- PKER_RACCS ( 33, 39) = 0.282874E+00
- PKER_RACCS ( 33, 40) = 0.284888E+00
- PKER_RACCS ( 34, 1) = 0.154971E+02
- PKER_RACCS ( 34, 2) = 0.127914E+02
- PKER_RACCS ( 34, 3) = 0.105513E+02
- PKER_RACCS ( 34, 4) = 0.869687E+01
- PKER_RACCS ( 34, 5) = 0.716155E+01
- PKER_RACCS ( 34, 6) = 0.589045E+01
- PKER_RACCS ( 34, 7) = 0.483806E+01
- PKER_RACCS ( 34, 8) = 0.396672E+01
- PKER_RACCS ( 34, 9) = 0.324525E+01
- PKER_RACCS ( 34, 10) = 0.264782E+01
- PKER_RACCS ( 34, 11) = 0.215307E+01
- PKER_RACCS ( 34, 12) = 0.174328E+01
- PKER_RACCS ( 34, 13) = 0.140380E+01
- PKER_RACCS ( 34, 14) = 0.112249E+01
- PKER_RACCS ( 34, 15) = 0.889288E+00
- PKER_RACCS ( 34, 16) = 0.695896E+00
- PKER_RACCS ( 34, 17) = 0.535492E+00
- PKER_RACCS ( 34, 18) = 0.402635E+00
- PKER_RACCS ( 34, 19) = 0.293345E+00
- PKER_RACCS ( 34, 20) = 0.205473E+00
- PKER_RACCS ( 34, 21) = 0.138918E+00
- PKER_RACCS ( 34, 22) = 0.951741E-01
- PKER_RACCS ( 34, 23) = 0.754374E-01
- PKER_RACCS ( 34, 24) = 0.774875E-01
- PKER_RACCS ( 34, 25) = 0.949890E-01
- PKER_RACCS ( 34, 26) = 0.119774E+00
- PKER_RACCS ( 34, 27) = 0.145296E+00
- PKER_RACCS ( 34, 28) = 0.168211E+00
- PKER_RACCS ( 34, 29) = 0.187630E+00
- PKER_RACCS ( 34, 30) = 0.203759E+00
- PKER_RACCS ( 34, 31) = 0.217043E+00
- PKER_RACCS ( 34, 32) = 0.227927E+00
- PKER_RACCS ( 34, 33) = 0.236809E+00
- PKER_RACCS ( 34, 34) = 0.244039E+00
- PKER_RACCS ( 34, 35) = 0.249918E+00
- PKER_RACCS ( 34, 36) = 0.254696E+00
- PKER_RACCS ( 34, 37) = 0.258581E+00
- PKER_RACCS ( 34, 38) = 0.261742E+00
- PKER_RACCS ( 34, 39) = 0.264317E+00
- PKER_RACCS ( 34, 40) = 0.266416E+00
- PKER_RACCS ( 35, 1) = 0.155115E+02
- PKER_RACCS ( 35, 2) = 0.128058E+02
- PKER_RACCS ( 35, 3) = 0.105659E+02
- PKER_RACCS ( 35, 4) = 0.871149E+01
- PKER_RACCS ( 35, 5) = 0.717627E+01
- PKER_RACCS ( 35, 6) = 0.590526E+01
- PKER_RACCS ( 35, 7) = 0.485298E+01
- PKER_RACCS ( 35, 8) = 0.398175E+01
- PKER_RACCS ( 35, 9) = 0.326040E+01
- PKER_RACCS ( 35, 10) = 0.266312E+01
- PKER_RACCS ( 35, 11) = 0.216852E+01
- PKER_RACCS ( 35, 12) = 0.175891E+01
- PKER_RACCS ( 35, 13) = 0.141964E+01
- PKER_RACCS ( 35, 14) = 0.113856E+01
- PKER_RACCS ( 35, 15) = 0.905624E+00
- PKER_RACCS ( 35, 16) = 0.712519E+00
- PKER_RACCS ( 35, 17) = 0.552390E+00
- PKER_RACCS ( 35, 18) = 0.419682E+00
- PKER_RACCS ( 35, 19) = 0.310127E+00
- PKER_RACCS ( 35, 20) = 0.220956E+00
- PKER_RACCS ( 35, 21) = 0.151287E+00
- PKER_RACCS ( 35, 22) = 0.101963E+00
- PKER_RACCS ( 35, 23) = 0.745072E-01
- PKER_RACCS ( 35, 24) = 0.684396E-01
- PKER_RACCS ( 35, 25) = 0.794810E-01
- PKER_RACCS ( 35, 26) = 0.100476E+00
- PKER_RACCS ( 35, 27) = 0.124496E+00
- PKER_RACCS ( 35, 28) = 0.147175E+00
- PKER_RACCS ( 35, 29) = 0.166857E+00
- PKER_RACCS ( 35, 30) = 0.183413E+00
- PKER_RACCS ( 35, 31) = 0.197175E+00
- PKER_RACCS ( 35, 32) = 0.208532E+00
- PKER_RACCS ( 35, 33) = 0.217848E+00
- PKER_RACCS ( 35, 34) = 0.225456E+00
- PKER_RACCS ( 35, 35) = 0.231651E+00
- PKER_RACCS ( 35, 36) = 0.236687E+00
- PKER_RACCS ( 35, 37) = 0.240779E+00
- PKER_RACCS ( 35, 38) = 0.244104E+00
- PKER_RACCS ( 35, 39) = 0.246808E+00
- PKER_RACCS ( 35, 40) = 0.249007E+00
- PKER_RACCS ( 36, 1) = 0.155248E+02
- PKER_RACCS ( 36, 2) = 0.128192E+02
- PKER_RACCS ( 36, 3) = 0.105793E+02
- PKER_RACCS ( 36, 4) = 0.872498E+01
- PKER_RACCS ( 36, 5) = 0.718982E+01
- PKER_RACCS ( 36, 6) = 0.591889E+01
- PKER_RACCS ( 36, 7) = 0.486669E+01
- PKER_RACCS ( 36, 8) = 0.399555E+01
- PKER_RACCS ( 36, 9) = 0.327430E+01
- PKER_RACCS ( 36, 10) = 0.267713E+01
- PKER_RACCS ( 36, 11) = 0.218265E+01
- PKER_RACCS ( 36, 12) = 0.177318E+01
- PKER_RACCS ( 36, 13) = 0.143407E+01
- PKER_RACCS ( 36, 14) = 0.115317E+01
- PKER_RACCS ( 36, 15) = 0.920438E+00
- PKER_RACCS ( 36, 16) = 0.727562E+00
- PKER_RACCS ( 36, 17) = 0.567668E+00
- PKER_RACCS ( 36, 18) = 0.435133E+00
- PKER_RACCS ( 36, 19) = 0.325510E+00
- PKER_RACCS ( 36, 20) = 0.235636E+00
- PKER_RACCS ( 36, 21) = 0.163886E+00
- PKER_RACCS ( 36, 22) = 0.110458E+00
- PKER_RACCS ( 36, 23) = 0.766826E-01
- PKER_RACCS ( 36, 24) = 0.631683E-01
- PKER_RACCS ( 36, 25) = 0.674487E-01
- PKER_RACCS ( 36, 26) = 0.838666E-01
- PKER_RACCS ( 36, 27) = 0.105624E+00
- PKER_RACCS ( 36, 28) = 0.127576E+00
- PKER_RACCS ( 36, 29) = 0.147242E+00
- PKER_RACCS ( 36, 30) = 0.164054E+00
- PKER_RACCS ( 36, 31) = 0.178188E+00
- PKER_RACCS ( 36, 32) = 0.189965E+00
- PKER_RACCS ( 36, 33) = 0.199703E+00
- PKER_RACCS ( 36, 34) = 0.207702E+00
- PKER_RACCS ( 36, 35) = 0.214240E+00
- PKER_RACCS ( 36, 36) = 0.219565E+00
- PKER_RACCS ( 36, 37) = 0.223893E+00
- PKER_RACCS ( 36, 38) = 0.227409E+00
- PKER_RACCS ( 36, 39) = 0.230264E+00
- PKER_RACCS ( 36, 40) = 0.232583E+00
- PKER_RACCS ( 37, 1) = 0.155372E+02
- PKER_RACCS ( 37, 2) = 0.128316E+02
- PKER_RACCS ( 37, 3) = 0.105917E+02
- PKER_RACCS ( 37, 4) = 0.873745E+01
- PKER_RACCS ( 37, 5) = 0.720235E+01
- PKER_RACCS ( 37, 6) = 0.593147E+01
- PKER_RACCS ( 37, 7) = 0.487933E+01
- PKER_RACCS ( 37, 8) = 0.400827E+01
- PKER_RACCS ( 37, 9) = 0.328710E+01
- PKER_RACCS ( 37, 10) = 0.269001E+01
- PKER_RACCS ( 37, 11) = 0.219563E+01
- PKER_RACCS ( 37, 12) = 0.178626E+01
- PKER_RACCS ( 37, 13) = 0.144727E+01
- PKER_RACCS ( 37, 14) = 0.116651E+01
- PKER_RACCS ( 37, 15) = 0.933935E+00
- PKER_RACCS ( 37, 16) = 0.741238E+00
- PKER_RACCS ( 37, 17) = 0.581536E+00
- PKER_RACCS ( 37, 18) = 0.449170E+00
- PKER_RACCS ( 37, 19) = 0.339580E+00
- PKER_RACCS ( 37, 20) = 0.249319E+00
- PKER_RACCS ( 37, 21) = 0.176301E+00
- PKER_RACCS ( 37, 22) = 0.119980E+00
- PKER_RACCS ( 37, 23) = 0.812228E-01
- PKER_RACCS ( 37, 24) = 0.611617E-01
- PKER_RACCS ( 37, 25) = 0.588377E-01
- PKER_RACCS ( 37, 26) = 0.701370E-01
- PKER_RACCS ( 37, 27) = 0.889143E-01
- PKER_RACCS ( 37, 28) = 0.109599E+00
- PKER_RACCS ( 37, 29) = 0.128927E+00
- PKER_RACCS ( 37, 30) = 0.145782E+00
- PKER_RACCS ( 37, 31) = 0.160136E+00
- PKER_RACCS ( 37, 32) = 0.172235E+00
- PKER_RACCS ( 37, 33) = 0.182345E+00
- PKER_RACCS ( 37, 34) = 0.190722E+00
- PKER_RACCS ( 37, 35) = 0.197614E+00
- PKER_RACCS ( 37, 36) = 0.203250E+00
- PKER_RACCS ( 37, 37) = 0.207843E+00
- PKER_RACCS ( 37, 38) = 0.211576E+00
- PKER_RACCS ( 37, 39) = 0.214606E+00
- PKER_RACCS ( 37, 40) = 0.217065E+00
- PKER_RACCS ( 38, 1) = 0.155486E+02
- PKER_RACCS ( 38, 2) = 0.128431E+02
- PKER_RACCS ( 38, 3) = 0.106033E+02
- PKER_RACCS ( 38, 4) = 0.874901E+01
- PKER_RACCS ( 38, 5) = 0.721394E+01
- PKER_RACCS ( 38, 6) = 0.594312E+01
- PKER_RACCS ( 38, 7) = 0.489103E+01
- PKER_RACCS ( 38, 8) = 0.402001E+01
- PKER_RACCS ( 38, 9) = 0.329890E+01
- PKER_RACCS ( 38, 10) = 0.270188E+01
- PKER_RACCS ( 38, 11) = 0.220757E+01
- PKER_RACCS ( 38, 12) = 0.179829E+01
- PKER_RACCS ( 38, 13) = 0.145939E+01
- PKER_RACCS ( 38, 14) = 0.117873E+01
- PKER_RACCS ( 38, 15) = 0.946284E+00
- PKER_RACCS ( 38, 16) = 0.753726E+00
- PKER_RACCS ( 38, 17) = 0.594177E+00
- PKER_RACCS ( 38, 18) = 0.461958E+00
- PKER_RACCS ( 38, 19) = 0.352443E+00
- PKER_RACCS ( 38, 20) = 0.262014E+00
- PKER_RACCS ( 38, 21) = 0.188177E+00
- PKER_RACCS ( 38, 22) = 0.129859E+00
- PKER_RACCS ( 38, 23) = 0.873684E-01
- PKER_RACCS ( 38, 24) = 0.618482E-01
- PKER_RACCS ( 38, 25) = 0.533670E-01
- PKER_RACCS ( 38, 26) = 0.593061E-01
- PKER_RACCS ( 38, 27) = 0.745116E-01
- PKER_RACCS ( 38, 28) = 0.934019E-01
- PKER_RACCS ( 38, 29) = 0.112045E+00
- PKER_RACCS ( 38, 30) = 0.128716E+00
- PKER_RACCS ( 38, 31) = 0.143109E+00
- PKER_RACCS ( 38, 32) = 0.155390E+00
- PKER_RACCS ( 38, 33) = 0.165779E+00
- PKER_RACCS ( 38, 34) = 0.174487E+00
- PKER_RACCS ( 38, 35) = 0.181718E+00
- PKER_RACCS ( 38, 36) = 0.187676E+00
- PKER_RACCS ( 38, 37) = 0.192553E+00
- PKER_RACCS ( 38, 38) = 0.196528E+00
- PKER_RACCS ( 38, 39) = 0.199758E+00
- PKER_RACCS ( 38, 40) = 0.202379E+00
- PKER_RACCS ( 39, 1) = 0.155593E+02
- PKER_RACCS ( 39, 2) = 0.128537E+02
- PKER_RACCS ( 39, 3) = 0.106139E+02
- PKER_RACCS ( 39, 4) = 0.875973E+01
- PKER_RACCS ( 39, 5) = 0.722471E+01
- PKER_RACCS ( 39, 6) = 0.595391E+01
- PKER_RACCS ( 39, 7) = 0.490186E+01
- PKER_RACCS ( 39, 8) = 0.403089E+01
- PKER_RACCS ( 39, 9) = 0.330982E+01
- PKER_RACCS ( 39, 10) = 0.271285E+01
- PKER_RACCS ( 39, 11) = 0.221860E+01
- PKER_RACCS ( 39, 12) = 0.180938E+01
- PKER_RACCS ( 39, 13) = 0.147055E+01
- PKER_RACCS ( 39, 14) = 0.118998E+01
- PKER_RACCS ( 39, 15) = 0.957626E+00
- PKER_RACCS ( 39, 16) = 0.765175E+00
- PKER_RACCS ( 39, 17) = 0.605746E+00
- PKER_RACCS ( 39, 18) = 0.473650E+00
- PKER_RACCS ( 39, 19) = 0.364221E+00
- PKER_RACCS ( 39, 20) = 0.273730E+00
- PKER_RACCS ( 39, 21) = 0.199436E+00
- PKER_RACCS ( 39, 22) = 0.139756E+00
- PKER_RACCS ( 39, 23) = 0.945196E-01
- PKER_RACCS ( 39, 24) = 0.645897E-01
- PKER_RACCS ( 39, 25) = 0.506197E-01
- PKER_RACCS ( 39, 26) = 0.512198E-01
- PKER_RACCS ( 39, 27) = 0.624590E-01
- PKER_RACCS ( 39, 28) = 0.790782E-01
- PKER_RACCS ( 39, 29) = 0.966942E-01
- PKER_RACCS ( 39, 30) = 0.112959E+00
- PKER_RACCS ( 39, 31) = 0.127212E+00
- PKER_RACCS ( 39, 32) = 0.139513E+00
- PKER_RACCS ( 39, 33) = 0.150051E+00
- PKER_RACCS ( 39, 34) = 0.159002E+00
- PKER_RACCS ( 39, 35) = 0.166528E+00
- PKER_RACCS ( 39, 36) = 0.172792E+00
- PKER_RACCS ( 39, 37) = 0.177962E+00
- PKER_RACCS ( 39, 38) = 0.182197E+00
- PKER_RACCS ( 39, 39) = 0.185650E+00
- PKER_RACCS ( 39, 40) = 0.188455E+00
- PKER_RACCS ( 40, 1) = 0.155692E+02
- PKER_RACCS ( 40, 2) = 0.128637E+02
- PKER_RACCS ( 40, 3) = 0.106239E+02
- PKER_RACCS ( 40, 4) = 0.876971E+01
- PKER_RACCS ( 40, 5) = 0.723471E+01
- PKER_RACCS ( 40, 6) = 0.596394E+01
- PKER_RACCS ( 40, 7) = 0.491192E+01
- PKER_RACCS ( 40, 8) = 0.404098E+01
- PKER_RACCS ( 40, 9) = 0.331995E+01
- PKER_RACCS ( 40, 10) = 0.272302E+01
- PKER_RACCS ( 40, 11) = 0.222881E+01
- PKER_RACCS ( 40, 12) = 0.181964E+01
- PKER_RACCS ( 40, 13) = 0.148087E+01
- PKER_RACCS ( 40, 14) = 0.120036E+01
- PKER_RACCS ( 40, 15) = 0.968076E+00
- PKER_RACCS ( 40, 16) = 0.775708E+00
- PKER_RACCS ( 40, 17) = 0.616371E+00
- PKER_RACCS ( 40, 18) = 0.484375E+00
- PKER_RACCS ( 40, 19) = 0.375030E+00
- PKER_RACCS ( 40, 20) = 0.284536E+00
- PKER_RACCS ( 40, 21) = 0.209971E+00
- PKER_RACCS ( 40, 22) = 0.149448E+00
- PKER_RACCS ( 40, 23) = 0.102257E+00
- PKER_RACCS ( 40, 24) = 0.688589E-01
- PKER_RACCS ( 40, 25) = 0.501439E-01
- PKER_RACCS ( 40, 26) = 0.457017E-01
- PKER_RACCS ( 40, 27) = 0.527560E-01
- PKER_RACCS ( 40, 28) = 0.666825E-01
- PKER_RACCS ( 40, 29) = 0.829271E-01
- PKER_RACCS ( 40, 30) = 0.985768E-01
- PKER_RACCS ( 40, 31) = 0.112531E+00
- PKER_RACCS ( 40, 32) = 0.124696E+00
- PKER_RACCS ( 40, 33) = 0.135236E+00
- PKER_RACCS ( 40, 34) = 0.144309E+00
- PKER_RACCS ( 40, 35) = 0.152047E+00
- PKER_RACCS ( 40, 36) = 0.158575E+00
- PKER_RACCS ( 40, 37) = 0.164022E+00
- PKER_RACCS ( 40, 38) = 0.168524E+00
- PKER_RACCS ( 40, 39) = 0.172216E+00
- PKER_RACCS ( 40, 40) = 0.175226E+00
+ PKER_RACCS ( 1, 1) = 0.134090E+02
+ PKER_RACCS ( 1, 2) = 0.107054E+02
+ PKER_RACCS ( 1, 3) = 0.848758E+01
+ PKER_RACCS ( 1, 4) = 0.667572E+01
+ PKER_RACCS ( 1, 5) = 0.520148E+01
+ PKER_RACCS ( 1, 6) = 0.400614E+01
+ PKER_RACCS ( 1, 7) = 0.303972E+01
+ PKER_RACCS ( 1, 8) = 0.226095E+01
+ PKER_RACCS ( 1, 9) = 0.163780E+01
+ PKER_RACCS ( 1, 10) = 0.114830E+01
+ PKER_RACCS ( 1, 11) = 0.781080E+00
+ PKER_RACCS ( 1, 12) = 0.532395E+00
+ PKER_RACCS ( 1, 13) = 0.400156E+00
+ PKER_RACCS ( 1, 14) = 0.373377E+00
+ PKER_RACCS ( 1, 15) = 0.425455E+00
+ PKER_RACCS ( 1, 16) = 0.520485E+00
+ PKER_RACCS ( 1, 17) = 0.626549E+00
+ PKER_RACCS ( 1, 18) = 0.724954E+00
+ PKER_RACCS ( 1, 19) = 0.809321E+00
+ PKER_RACCS ( 1, 20) = 0.879615E+00
+ PKER_RACCS ( 1, 21) = 0.937740E+00
+ PKER_RACCS ( 1, 22) = 0.985750E+00
+ PKER_RACCS ( 1, 23) = 0.102541E+01
+ PKER_RACCS ( 1, 24) = 0.105819E+01
+ PKER_RACCS ( 1, 25) = 0.108529E+01
+ PKER_RACCS ( 1, 26) = 0.110769E+01
+ PKER_RACCS ( 1, 27) = 0.112622E+01
+ PKER_RACCS ( 1, 28) = 0.114154E+01
+ PKER_RACCS ( 1, 29) = 0.115421E+01
+ PKER_RACCS ( 1, 30) = 0.116470E+01
+ PKER_RACCS ( 1, 31) = 0.117337E+01
+ PKER_RACCS ( 1, 32) = 0.118055E+01
+ PKER_RACCS ( 1, 33) = 0.118649E+01
+ PKER_RACCS ( 1, 34) = 0.119140E+01
+ PKER_RACCS ( 1, 35) = 0.119547E+01
+ PKER_RACCS ( 1, 36) = 0.119883E+01
+ PKER_RACCS ( 1, 37) = 0.120161E+01
+ PKER_RACCS ( 1, 38) = 0.120392E+01
+ PKER_RACCS ( 1, 39) = 0.120583E+01
+ PKER_RACCS ( 1, 40) = 0.120740E+01
+ PKER_RACCS ( 2, 1) = 0.135845E+02
+ PKER_RACCS ( 2, 2) = 0.108701E+02
+ PKER_RACCS ( 2, 3) = 0.863825E+01
+ PKER_RACCS ( 2, 4) = 0.681034E+01
+ PKER_RACCS ( 2, 5) = 0.531940E+01
+ PKER_RACCS ( 2, 6) = 0.410813E+01
+ PKER_RACCS ( 2, 7) = 0.312741E+01
+ PKER_RACCS ( 2, 8) = 0.233617E+01
+ PKER_RACCS ( 2, 9) = 0.170177E+01
+ PKER_RACCS ( 2, 10) = 0.120095E+01
+ PKER_RACCS ( 2, 11) = 0.820350E+00
+ PKER_RACCS ( 2, 12) = 0.555260E+00
+ PKER_RACCS ( 2, 13) = 0.404118E+00
+ PKER_RACCS ( 2, 14) = 0.358108E+00
+ PKER_RACCS ( 2, 15) = 0.395253E+00
+ PKER_RACCS ( 2, 16) = 0.481228E+00
+ PKER_RACCS ( 2, 17) = 0.583293E+00
+ PKER_RACCS ( 2, 18) = 0.680545E+00
+ PKER_RACCS ( 2, 19) = 0.764818E+00
+ PKER_RACCS ( 2, 20) = 0.835258E+00
+ PKER_RACCS ( 2, 21) = 0.893531E+00
+ PKER_RACCS ( 2, 22) = 0.941654E+00
+ PKER_RACCS ( 2, 23) = 0.981400E+00
+ PKER_RACCS ( 2, 24) = 0.101424E+01
+ PKER_RACCS ( 2, 25) = 0.104138E+01
+ PKER_RACCS ( 2, 26) = 0.106382E+01
+ PKER_RACCS ( 2, 27) = 0.108237E+01
+ PKER_RACCS ( 2, 28) = 0.109771E+01
+ PKER_RACCS ( 2, 29) = 0.111040E+01
+ PKER_RACCS ( 2, 30) = 0.112090E+01
+ PKER_RACCS ( 2, 31) = 0.112958E+01
+ PKER_RACCS ( 2, 32) = 0.113676E+01
+ PKER_RACCS ( 2, 33) = 0.114271E+01
+ PKER_RACCS ( 2, 34) = 0.114763E+01
+ PKER_RACCS ( 2, 35) = 0.115169E+01
+ PKER_RACCS ( 2, 36) = 0.115506E+01
+ PKER_RACCS ( 2, 37) = 0.115785E+01
+ PKER_RACCS ( 2, 38) = 0.116015E+01
+ PKER_RACCS ( 2, 39) = 0.116206E+01
+ PKER_RACCS ( 2, 40) = 0.116364E+01
+ PKER_RACCS ( 3, 1) = 0.137492E+02
+ PKER_RACCS ( 3, 2) = 0.110270E+02
+ PKER_RACCS ( 3, 3) = 0.878421E+01
+ PKER_RACCS ( 3, 4) = 0.694285E+01
+ PKER_RACCS ( 3, 5) = 0.543713E+01
+ PKER_RACCS ( 3, 6) = 0.421101E+01
+ PKER_RACCS ( 3, 7) = 0.321643E+01
+ PKER_RACCS ( 3, 8) = 0.241279E+01
+ PKER_RACCS ( 3, 9) = 0.176719E+01
+ PKER_RACCS ( 3, 10) = 0.125524E+01
+ PKER_RACCS ( 3, 11) = 0.862079E+00
+ PKER_RACCS ( 3, 12) = 0.581603E+00
+ PKER_RACCS ( 3, 13) = 0.411935E+00
+ PKER_RACCS ( 3, 14) = 0.347397E+00
+ PKER_RACCS ( 3, 15) = 0.368639E+00
+ PKER_RACCS ( 3, 16) = 0.444572E+00
+ PKER_RACCS ( 3, 17) = 0.541961E+00
+ PKER_RACCS ( 3, 18) = 0.637738E+00
+ PKER_RACCS ( 3, 19) = 0.721828E+00
+ PKER_RACCS ( 3, 20) = 0.792410E+00
+ PKER_RACCS ( 3, 21) = 0.850846E+00
+ PKER_RACCS ( 3, 22) = 0.899095E+00
+ PKER_RACCS ( 3, 23) = 0.938934E+00
+ PKER_RACCS ( 3, 24) = 0.971843E+00
+ PKER_RACCS ( 3, 25) = 0.999035E+00
+ PKER_RACCS ( 3, 26) = 0.102151E+01
+ PKER_RACCS ( 3, 27) = 0.104009E+01
+ PKER_RACCS ( 3, 28) = 0.105546E+01
+ PKER_RACCS ( 3, 29) = 0.106816E+01
+ PKER_RACCS ( 3, 30) = 0.107867E+01
+ PKER_RACCS ( 3, 31) = 0.108736E+01
+ PKER_RACCS ( 3, 32) = 0.109455E+01
+ PKER_RACCS ( 3, 33) = 0.110050E+01
+ PKER_RACCS ( 3, 34) = 0.110543E+01
+ PKER_RACCS ( 3, 35) = 0.110950E+01
+ PKER_RACCS ( 3, 36) = 0.111287E+01
+ PKER_RACCS ( 3, 37) = 0.111566E+01
+ PKER_RACCS ( 3, 38) = 0.111796E+01
+ PKER_RACCS ( 3, 39) = 0.111987E+01
+ PKER_RACCS ( 3, 40) = 0.112145E+01
+ PKER_RACCS ( 4, 1) = 0.139024E+02
+ PKER_RACCS ( 4, 2) = 0.111751E+02
+ PKER_RACCS ( 4, 3) = 0.892419E+01
+ PKER_RACCS ( 4, 4) = 0.707204E+01
+ PKER_RACCS ( 4, 5) = 0.555365E+01
+ PKER_RACCS ( 4, 6) = 0.431410E+01
+ PKER_RACCS ( 4, 7) = 0.330640E+01
+ PKER_RACCS ( 4, 8) = 0.249065E+01
+ PKER_RACCS ( 4, 9) = 0.183393E+01
+ PKER_RACCS ( 4, 10) = 0.131111E+01
+ PKER_RACCS ( 4, 11) = 0.905886E+00
+ PKER_RACCS ( 4, 12) = 0.610767E+00
+ PKER_RACCS ( 4, 13) = 0.423608E+00
+ PKER_RACCS ( 4, 14) = 0.340343E+00
+ PKER_RACCS ( 4, 15) = 0.345614E+00
+ PKER_RACCS ( 4, 16) = 0.410691E+00
+ PKER_RACCS ( 4, 17) = 0.502602E+00
+ PKER_RACCS ( 4, 18) = 0.596509E+00
+ PKER_RACCS ( 4, 19) = 0.680297E+00
+ PKER_RACCS ( 4, 20) = 0.751009E+00
+ PKER_RACCS ( 4, 21) = 0.809622E+00
+ PKER_RACCS ( 4, 22) = 0.858012E+00
+ PKER_RACCS ( 4, 23) = 0.897956E+00
+ PKER_RACCS ( 4, 24) = 0.930941E+00
+ PKER_RACCS ( 4, 25) = 0.958190E+00
+ PKER_RACCS ( 4, 26) = 0.980708E+00
+ PKER_RACCS ( 4, 27) = 0.999321E+00
+ PKER_RACCS ( 4, 28) = 0.101471E+01
+ PKER_RACCS ( 4, 29) = 0.102743E+01
+ PKER_RACCS ( 4, 30) = 0.103796E+01
+ PKER_RACCS ( 4, 31) = 0.104666E+01
+ PKER_RACCS ( 4, 32) = 0.105386E+01
+ PKER_RACCS ( 4, 33) = 0.105982E+01
+ PKER_RACCS ( 4, 34) = 0.106474E+01
+ PKER_RACCS ( 4, 35) = 0.106882E+01
+ PKER_RACCS ( 4, 36) = 0.107219E+01
+ PKER_RACCS ( 4, 37) = 0.107498E+01
+ PKER_RACCS ( 4, 38) = 0.107729E+01
+ PKER_RACCS ( 4, 39) = 0.107921E+01
+ PKER_RACCS ( 4, 40) = 0.108079E+01
+ PKER_RACCS ( 5, 1) = 0.140440E+02
+ PKER_RACCS ( 5, 2) = 0.113137E+02
+ PKER_RACCS ( 5, 3) = 0.905720E+01
+ PKER_RACCS ( 5, 4) = 0.719677E+01
+ PKER_RACCS ( 5, 5) = 0.566793E+01
+ PKER_RACCS ( 5, 6) = 0.441661E+01
+ PKER_RACCS ( 5, 7) = 0.339684E+01
+ PKER_RACCS ( 5, 8) = 0.256948E+01
+ PKER_RACCS ( 5, 9) = 0.190189E+01
+ PKER_RACCS ( 5, 10) = 0.136848E+01
+ PKER_RACCS ( 5, 11) = 0.951793E+00
+ PKER_RACCS ( 5, 12) = 0.642849E+00
+ PKER_RACCS ( 5, 13) = 0.439293E+00
+ PKER_RACCS ( 5, 14) = 0.337948E+00
+ PKER_RACCS ( 5, 15) = 0.326568E+00
+ PKER_RACCS ( 5, 16) = 0.379708E+00
+ PKER_RACCS ( 5, 17) = 0.465286E+00
+ PKER_RACCS ( 5, 18) = 0.556855E+00
+ PKER_RACCS ( 5, 19) = 0.640174E+00
+ PKER_RACCS ( 5, 20) = 0.710994E+00
+ PKER_RACCS ( 5, 21) = 0.769797E+00
+ PKER_RACCS ( 5, 22) = 0.818345E+00
+ PKER_RACCS ( 5, 23) = 0.858406E+00
+ PKER_RACCS ( 5, 24) = 0.891477E+00
+ PKER_RACCS ( 5, 25) = 0.918790E+00
+ PKER_RACCS ( 5, 26) = 0.941356E+00
+ PKER_RACCS ( 5, 27) = 0.960004E+00
+ PKER_RACCS ( 5, 28) = 0.975420E+00
+ PKER_RACCS ( 5, 29) = 0.988165E+00
+ PKER_RACCS ( 5, 30) = 0.998704E+00
+ PKER_RACCS ( 5, 31) = 0.100742E+01
+ PKER_RACCS ( 5, 32) = 0.101463E+01
+ PKER_RACCS ( 5, 33) = 0.102059E+01
+ PKER_RACCS ( 5, 34) = 0.102552E+01
+ PKER_RACCS ( 5, 35) = 0.102961E+01
+ PKER_RACCS ( 5, 36) = 0.103298E+01
+ PKER_RACCS ( 5, 37) = 0.103578E+01
+ PKER_RACCS ( 5, 38) = 0.103809E+01
+ PKER_RACCS ( 5, 39) = 0.104000E+01
+ PKER_RACCS ( 5, 40) = 0.104158E+01
+ PKER_RACCS ( 6, 1) = 0.141741E+02
+ PKER_RACCS ( 6, 2) = 0.114425E+02
+ PKER_RACCS ( 6, 3) = 0.918249E+01
+ PKER_RACCS ( 6, 4) = 0.731606E+01
+ PKER_RACCS ( 6, 5) = 0.577897E+01
+ PKER_RACCS ( 6, 6) = 0.451770E+01
+ PKER_RACCS ( 6, 7) = 0.348713E+01
+ PKER_RACCS ( 6, 8) = 0.264891E+01
+ PKER_RACCS ( 6, 9) = 0.197088E+01
+ PKER_RACCS ( 6, 10) = 0.142722E+01
+ PKER_RACCS ( 6, 11) = 0.999536E+00
+ PKER_RACCS ( 6, 12) = 0.677714E+00
+ PKER_RACCS ( 6, 13) = 0.458271E+00
+ PKER_RACCS ( 6, 14) = 0.339110E+00
+ PKER_RACCS ( 6, 15) = 0.311017E+00
+ PKER_RACCS ( 6, 16) = 0.351615E+00
+ PKER_RACCS ( 6, 17) = 0.430054E+00
+ PKER_RACCS ( 6, 18) = 0.518766E+00
+ PKER_RACCS ( 6, 19) = 0.601413E+00
+ PKER_RACCS ( 6, 20) = 0.672307E+00
+ PKER_RACCS ( 6, 21) = 0.731313E+00
+ PKER_RACCS ( 6, 22) = 0.780036E+00
+ PKER_RACCS ( 6, 23) = 0.820228E+00
+ PKER_RACCS ( 6, 24) = 0.853395E+00
+ PKER_RACCS ( 6, 25) = 0.880779E+00
+ PKER_RACCS ( 6, 26) = 0.903397E+00
+ PKER_RACCS ( 6, 27) = 0.922086E+00
+ PKER_RACCS ( 6, 28) = 0.937531E+00
+ PKER_RACCS ( 6, 29) = 0.950299E+00
+ PKER_RACCS ( 6, 30) = 0.960856E+00
+ PKER_RACCS ( 6, 31) = 0.969585E+00
+ PKER_RACCS ( 6, 32) = 0.976805E+00
+ PKER_RACCS ( 6, 33) = 0.982776E+00
+ PKER_RACCS ( 6, 34) = 0.987715E+00
+ PKER_RACCS ( 6, 35) = 0.991801E+00
+ PKER_RACCS ( 6, 36) = 0.995181E+00
+ PKER_RACCS ( 6, 37) = 0.997978E+00
+ PKER_RACCS ( 6, 38) = 0.100029E+01
+ PKER_RACCS ( 6, 39) = 0.100221E+01
+ PKER_RACCS ( 6, 40) = 0.100379E+01
+ PKER_RACCS ( 7, 1) = 0.142930E+02
+ PKER_RACCS ( 7, 2) = 0.115615E+02
+ PKER_RACCS ( 7, 3) = 0.929959E+01
+ PKER_RACCS ( 7, 4) = 0.742913E+01
+ PKER_RACCS ( 7, 5) = 0.588584E+01
+ PKER_RACCS ( 7, 6) = 0.461649E+01
+ PKER_RACCS ( 7, 7) = 0.357658E+01
+ PKER_RACCS ( 7, 8) = 0.272850E+01
+ PKER_RACCS ( 7, 9) = 0.204060E+01
+ PKER_RACCS ( 7, 10) = 0.148714E+01
+ PKER_RACCS ( 7, 11) = 0.104908E+01
+ PKER_RACCS ( 7, 12) = 0.714985E+00
+ PKER_RACCS ( 7, 13) = 0.480632E+00
+ PKER_RACCS ( 7, 14) = 0.344490E+00
+ PKER_RACCS ( 7, 15) = 0.299383E+00
+ PKER_RACCS ( 7, 16) = 0.326602E+00
+ PKER_RACCS ( 7, 17) = 0.397018E+00
+ PKER_RACCS ( 7, 18) = 0.482253E+00
+ PKER_RACCS ( 7, 19) = 0.563981E+00
+ PKER_RACCS ( 7, 20) = 0.634892E+00
+ PKER_RACCS ( 7, 21) = 0.694110E+00
+ PKER_RACCS ( 7, 22) = 0.743027E+00
+ PKER_RACCS ( 7, 23) = 0.783365E+00
+ PKER_RACCS ( 7, 24) = 0.816640E+00
+ PKER_RACCS ( 7, 25) = 0.844104E+00
+ PKER_RACCS ( 7, 26) = 0.866781E+00
+ PKER_RACCS ( 7, 27) = 0.885514E+00
+ PKER_RACCS ( 7, 28) = 0.900993E+00
+ PKER_RACCS ( 7, 29) = 0.913787E+00
+ PKER_RACCS ( 7, 30) = 0.924363E+00
+ PKER_RACCS ( 7, 31) = 0.933107E+00
+ PKER_RACCS ( 7, 32) = 0.940338E+00
+ PKER_RACCS ( 7, 33) = 0.946318E+00
+ PKER_RACCS ( 7, 34) = 0.951264E+00
+ PKER_RACCS ( 7, 35) = 0.955355E+00
+ PKER_RACCS ( 7, 36) = 0.958740E+00
+ PKER_RACCS ( 7, 37) = 0.961540E+00
+ PKER_RACCS ( 7, 38) = 0.963856E+00
+ PKER_RACCS ( 7, 39) = 0.965772E+00
+ PKER_RACCS ( 7, 40) = 0.967358E+00
+ PKER_RACCS ( 8, 1) = 0.144015E+02
+ PKER_RACCS ( 8, 2) = 0.116708E+02
+ PKER_RACCS ( 8, 3) = 0.940827E+01
+ PKER_RACCS ( 8, 4) = 0.753543E+01
+ PKER_RACCS ( 8, 5) = 0.598779E+01
+ PKER_RACCS ( 8, 6) = 0.471217E+01
+ PKER_RACCS ( 8, 7) = 0.366448E+01
+ PKER_RACCS ( 8, 8) = 0.280770E+01
+ PKER_RACCS ( 8, 9) = 0.211072E+01
+ PKER_RACCS ( 8, 10) = 0.154800E+01
+ PKER_RACCS ( 8, 11) = 0.110005E+01
+ PKER_RACCS ( 8, 12) = 0.754559E+00
+ PKER_RACCS ( 8, 13) = 0.506188E+00
+ PKER_RACCS ( 8, 14) = 0.353456E+00
+ PKER_RACCS ( 8, 15) = 0.291637E+00
+ PKER_RACCS ( 8, 16) = 0.304698E+00
+ PKER_RACCS ( 8, 17) = 0.366220E+00
+ PKER_RACCS ( 8, 18) = 0.447342E+00
+ PKER_RACCS ( 8, 19) = 0.527850E+00
+ PKER_RACCS ( 8, 20) = 0.598698E+00
+ PKER_RACCS ( 8, 21) = 0.658132E+00
+ PKER_RACCS ( 8, 22) = 0.707263E+00
+ PKER_RACCS ( 8, 23) = 0.747764E+00
+ PKER_RACCS ( 8, 24) = 0.781160E+00
+ PKER_RACCS ( 8, 25) = 0.808712E+00
+ PKER_RACCS ( 8, 26) = 0.831456E+00
+ PKER_RACCS ( 8, 27) = 0.850238E+00
+ PKER_RACCS ( 8, 28) = 0.865755E+00
+ PKER_RACCS ( 8, 29) = 0.878576E+00
+ PKER_RACCS ( 8, 30) = 0.889174E+00
+ PKER_RACCS ( 8, 31) = 0.897935E+00
+ PKER_RACCS ( 8, 32) = 0.905179E+00
+ PKER_RACCS ( 8, 33) = 0.911169E+00
+ PKER_RACCS ( 8, 34) = 0.916122E+00
+ PKER_RACCS ( 8, 35) = 0.920220E+00
+ PKER_RACCS ( 8, 36) = 0.923609E+00
+ PKER_RACCS ( 8, 37) = 0.926412E+00
+ PKER_RACCS ( 8, 38) = 0.928731E+00
+ PKER_RACCS ( 8, 39) = 0.930650E+00
+ PKER_RACCS ( 8, 40) = 0.932237E+00
+ PKER_RACCS ( 9, 1) = 0.145000E+02
+ PKER_RACCS ( 9, 2) = 0.117707E+02
+ PKER_RACCS ( 9, 3) = 0.950857E+01
+ PKER_RACCS ( 9, 4) = 0.763464E+01
+ PKER_RACCS ( 9, 5) = 0.608420E+01
+ PKER_RACCS ( 9, 6) = 0.480400E+01
+ PKER_RACCS ( 9, 7) = 0.375010E+01
+ PKER_RACCS ( 9, 8) = 0.288590E+01
+ PKER_RACCS ( 9, 9) = 0.218080E+01
+ PKER_RACCS ( 9, 10) = 0.160949E+01
+ PKER_RACCS ( 9, 11) = 0.115228E+01
+ PKER_RACCS ( 9, 12) = 0.796014E+00
+ PKER_RACCS ( 9, 13) = 0.534489E+00
+ PKER_RACCS ( 9, 14) = 0.365993E+00
+ PKER_RACCS ( 9, 15) = 0.287438E+00
+ PKER_RACCS ( 9, 16) = 0.286151E+00
+ PKER_RACCS ( 9, 17) = 0.337864E+00
+ PKER_RACCS ( 9, 18) = 0.414092E+00
+ PKER_RACCS ( 9, 19) = 0.492999E+00
+ PKER_RACCS ( 9, 20) = 0.563677E+00
+ PKER_RACCS ( 9, 21) = 0.623323E+00
+ PKER_RACCS ( 9, 22) = 0.672688E+00
+ PKER_RACCS ( 9, 23) = 0.713372E+00
+ PKER_RACCS ( 9, 24) = 0.746902E+00
+ PKER_RACCS ( 9, 25) = 0.774554E+00
+ PKER_RACCS ( 9, 26) = 0.797372E+00
+ PKER_RACCS ( 9, 27) = 0.816209E+00
+ PKER_RACCS ( 9, 28) = 0.831767E+00
+ PKER_RACCS ( 9, 29) = 0.844621E+00
+ PKER_RACCS ( 9, 30) = 0.855242E+00
+ PKER_RACCS ( 9, 31) = 0.864021E+00
+ PKER_RACCS ( 9, 32) = 0.871279E+00
+ PKER_RACCS ( 9, 33) = 0.877280E+00
+ PKER_RACCS ( 9, 34) = 0.882242E+00
+ PKER_RACCS ( 9, 35) = 0.886346E+00
+ PKER_RACCS ( 9, 36) = 0.889740E+00
+ PKER_RACCS ( 9, 37) = 0.892548E+00
+ PKER_RACCS ( 9, 38) = 0.894870E+00
+ PKER_RACCS ( 9, 39) = 0.896791E+00
+ PKER_RACCS ( 9, 40) = 0.898380E+00
+ PKER_RACCS ( 10, 1) = 0.145893E+02
+ PKER_RACCS ( 10, 2) = 0.118619E+02
+ PKER_RACCS ( 10, 3) = 0.960068E+01
+ PKER_RACCS ( 10, 4) = 0.772665E+01
+ PKER_RACCS ( 10, 5) = 0.617469E+01
+ PKER_RACCS ( 10, 6) = 0.489137E+01
+ PKER_RACCS ( 10, 7) = 0.383276E+01
+ PKER_RACCS ( 10, 8) = 0.296249E+01
+ PKER_RACCS ( 10, 9) = 0.225032E+01
+ PKER_RACCS ( 10, 10) = 0.167125E+01
+ PKER_RACCS ( 10, 11) = 0.120554E+01
+ PKER_RACCS ( 10, 12) = 0.839354E+00
+ PKER_RACCS ( 10, 13) = 0.565536E+00
+ PKER_RACCS ( 10, 14) = 0.382241E+00
+ PKER_RACCS ( 10, 15) = 0.287309E+00
+ PKER_RACCS ( 10, 16) = 0.271075E+00
+ PKER_RACCS ( 10, 17) = 0.312029E+00
+ PKER_RACCS ( 10, 18) = 0.382576E+00
+ PKER_RACCS ( 10, 19) = 0.459433E+00
+ PKER_RACCS ( 10, 20) = 0.529787E+00
+ PKER_RACCS ( 10, 21) = 0.589630E+00
+ PKER_RACCS ( 10, 22) = 0.639249E+00
+ PKER_RACCS ( 10, 23) = 0.680137E+00
+ PKER_RACCS ( 10, 24) = 0.713818E+00
+ PKER_RACCS ( 10, 25) = 0.741581E+00
+ PKER_RACCS ( 10, 26) = 0.764481E+00
+ PKER_RACCS ( 10, 27) = 0.783380E+00
+ PKER_RACCS ( 10, 28) = 0.798984E+00
+ PKER_RACCS ( 10, 29) = 0.811872E+00
+ PKER_RACCS ( 10, 30) = 0.822520E+00
+ PKER_RACCS ( 10, 31) = 0.831320E+00
+ PKER_RACCS ( 10, 32) = 0.838593E+00
+ PKER_RACCS ( 10, 33) = 0.844606E+00
+ PKER_RACCS ( 10, 34) = 0.849578E+00
+ PKER_RACCS ( 10, 35) = 0.853689E+00
+ PKER_RACCS ( 10, 36) = 0.857089E+00
+ PKER_RACCS ( 10, 37) = 0.859901E+00
+ PKER_RACCS ( 10, 38) = 0.862227E+00
+ PKER_RACCS ( 10, 39) = 0.864150E+00
+ PKER_RACCS ( 10, 40) = 0.865742E+00
+ PKER_RACCS ( 11, 1) = 0.146703E+02
+ PKER_RACCS ( 11, 2) = 0.119448E+02
+ PKER_RACCS ( 11, 3) = 0.968497E+01
+ PKER_RACCS ( 11, 4) = 0.781152E+01
+ PKER_RACCS ( 11, 5) = 0.625903E+01
+ PKER_RACCS ( 11, 6) = 0.497385E+01
+ PKER_RACCS ( 11, 7) = 0.391189E+01
+ PKER_RACCS ( 11, 8) = 0.303687E+01
+ PKER_RACCS ( 11, 9) = 0.231879E+01
+ PKER_RACCS ( 11, 10) = 0.173290E+01
+ PKER_RACCS ( 11, 11) = 0.125941E+01
+ PKER_RACCS ( 11, 12) = 0.884086E+00
+ PKER_RACCS ( 11, 13) = 0.598926E+00
+ PKER_RACCS ( 11, 14) = 0.401517E+00
+ PKER_RACCS ( 11, 15) = 0.290601E+00
+ PKER_RACCS ( 11, 16) = 0.259133E+00
+ PKER_RACCS ( 11, 17) = 0.288729E+00
+ PKER_RACCS ( 11, 18) = 0.352826E+00
+ PKER_RACCS ( 11, 19) = 0.427152E+00
+ PKER_RACCS ( 11, 20) = 0.496989E+00
+ PKER_RACCS ( 11, 21) = 0.557002E+00
+ PKER_RACCS ( 11, 22) = 0.606893E+00
+ PKER_RACCS ( 11, 23) = 0.648007E+00
+ PKER_RACCS ( 11, 24) = 0.681856E+00
+ PKER_RACCS ( 11, 25) = 0.709743E+00
+ PKER_RACCS ( 11, 26) = 0.732735E+00
+ PKER_RACCS ( 11, 27) = 0.751703E+00
+ PKER_RACCS ( 11, 28) = 0.767359E+00
+ PKER_RACCS ( 11, 29) = 0.780286E+00
+ PKER_RACCS ( 11, 30) = 0.790964E+00
+ PKER_RACCS ( 11, 31) = 0.799786E+00
+ PKER_RACCS ( 11, 32) = 0.807077E+00
+ PKER_RACCS ( 11, 33) = 0.813104E+00
+ PKER_RACCS ( 11, 34) = 0.818086E+00
+ PKER_RACCS ( 11, 35) = 0.822205E+00
+ PKER_RACCS ( 11, 36) = 0.825611E+00
+ PKER_RACCS ( 11, 37) = 0.828428E+00
+ PKER_RACCS ( 11, 38) = 0.830757E+00
+ PKER_RACCS ( 11, 39) = 0.832684E+00
+ PKER_RACCS ( 11, 40) = 0.834278E+00
+ PKER_RACCS ( 12, 1) = 0.147436E+02
+ PKER_RACCS ( 12, 2) = 0.120200E+02
+ PKER_RACCS ( 12, 3) = 0.976189E+01
+ PKER_RACCS ( 12, 4) = 0.788948E+01
+ PKER_RACCS ( 12, 5) = 0.633720E+01
+ PKER_RACCS ( 12, 6) = 0.505113E+01
+ PKER_RACCS ( 12, 7) = 0.398701E+01
+ PKER_RACCS ( 12, 8) = 0.310848E+01
+ PKER_RACCS ( 12, 9) = 0.238565E+01
+ PKER_RACCS ( 12, 10) = 0.179393E+01
+ PKER_RACCS ( 12, 11) = 0.131359E+01
+ PKER_RACCS ( 12, 12) = 0.930027E+00
+ PKER_RACCS ( 12, 13) = 0.634422E+00
+ PKER_RACCS ( 12, 14) = 0.423837E+00
+ PKER_RACCS ( 12, 15) = 0.297693E+00
+ PKER_RACCS ( 12, 16) = 0.250948E+00
+ PKER_RACCS ( 12, 17) = 0.268258E+00
+ PKER_RACCS ( 12, 18) = 0.324985E+00
+ PKER_RACCS ( 12, 19) = 0.396170E+00
+ PKER_RACCS ( 12, 20) = 0.465254E+00
+ PKER_RACCS ( 12, 21) = 0.525388E+00
+ PKER_RACCS ( 12, 22) = 0.575567E+00
+ PKER_RACCS ( 12, 23) = 0.616932E+00
+ PKER_RACCS ( 12, 24) = 0.650970E+00
+ PKER_RACCS ( 12, 25) = 0.678996E+00
+ PKER_RACCS ( 12, 26) = 0.702091E+00
+ PKER_RACCS ( 12, 27) = 0.721135E+00
+ PKER_RACCS ( 12, 28) = 0.736848E+00
+ PKER_RACCS ( 12, 29) = 0.749819E+00
+ PKER_RACCS ( 12, 30) = 0.760529E+00
+ PKER_RACCS ( 12, 31) = 0.769377E+00
+ PKER_RACCS ( 12, 32) = 0.776687E+00
+ PKER_RACCS ( 12, 33) = 0.782728E+00
+ PKER_RACCS ( 12, 34) = 0.787722E+00
+ PKER_RACCS ( 12, 35) = 0.791850E+00
+ PKER_RACCS ( 12, 36) = 0.795263E+00
+ PKER_RACCS ( 12, 37) = 0.798085E+00
+ PKER_RACCS ( 12, 38) = 0.800419E+00
+ PKER_RACCS ( 12, 39) = 0.802349E+00
+ PKER_RACCS ( 12, 40) = 0.803946E+00
+ PKER_RACCS ( 13, 1) = 0.148101E+02
+ PKER_RACCS ( 13, 2) = 0.120884E+02
+ PKER_RACCS ( 13, 3) = 0.983194E+01
+ PKER_RACCS ( 13, 4) = 0.796086E+01
+ PKER_RACCS ( 13, 5) = 0.640930E+01
+ PKER_RACCS ( 13, 6) = 0.512311E+01
+ PKER_RACCS ( 13, 7) = 0.405779E+01
+ PKER_RACCS ( 13, 8) = 0.317687E+01
+ PKER_RACCS ( 13, 9) = 0.245041E+01
+ PKER_RACCS ( 13, 10) = 0.185392E+01
+ PKER_RACCS ( 13, 11) = 0.136765E+01
+ PKER_RACCS ( 13, 12) = 0.976720E+00
+ PKER_RACCS ( 13, 13) = 0.671766E+00
+ PKER_RACCS ( 13, 14) = 0.449002E+00
+ PKER_RACCS ( 13, 15) = 0.308199E+00
+ PKER_RACCS ( 13, 16) = 0.246209E+00
+ PKER_RACCS ( 13, 17) = 0.250643E+00
+ PKER_RACCS ( 13, 18) = 0.299133E+00
+ PKER_RACCS ( 13, 19) = 0.366527E+00
+ PKER_RACCS ( 13, 20) = 0.434566E+00
+ PKER_RACCS ( 13, 21) = 0.494744E+00
+ PKER_RACCS ( 13, 22) = 0.545221E+00
+ PKER_RACCS ( 13, 23) = 0.586862E+00
+ PKER_RACCS ( 13, 24) = 0.621111E+00
+ PKER_RACCS ( 13, 25) = 0.649292E+00
+ PKER_RACCS ( 13, 26) = 0.672502E+00
+ PKER_RACCS ( 13, 27) = 0.691631E+00
+ PKER_RACCS ( 13, 28) = 0.707408E+00
+ PKER_RACCS ( 13, 29) = 0.720427E+00
+ PKER_RACCS ( 13, 30) = 0.731175E+00
+ PKER_RACCS ( 13, 31) = 0.740050E+00
+ PKER_RACCS ( 13, 32) = 0.747382E+00
+ PKER_RACCS ( 13, 33) = 0.753440E+00
+ PKER_RACCS ( 13, 34) = 0.758446E+00
+ PKER_RACCS ( 13, 35) = 0.762584E+00
+ PKER_RACCS ( 13, 36) = 0.766005E+00
+ PKER_RACCS ( 13, 37) = 0.768833E+00
+ PKER_RACCS ( 13, 38) = 0.771172E+00
+ PKER_RACCS ( 13, 39) = 0.773106E+00
+ PKER_RACCS ( 13, 40) = 0.774705E+00
+ PKER_RACCS ( 14, 1) = 0.148703E+02
+ PKER_RACCS ( 14, 2) = 0.121504E+02
+ PKER_RACCS ( 14, 3) = 0.989568E+01
+ PKER_RACCS ( 14, 4) = 0.802606E+01
+ PKER_RACCS ( 14, 5) = 0.647555E+01
+ PKER_RACCS ( 14, 6) = 0.518978E+01
+ PKER_RACCS ( 14, 7) = 0.412404E+01
+ PKER_RACCS ( 14, 8) = 0.324166E+01
+ PKER_RACCS ( 14, 9) = 0.251261E+01
+ PKER_RACCS ( 14, 10) = 0.191236E+01
+ PKER_RACCS ( 14, 11) = 0.142114E+01
+ PKER_RACCS ( 14, 12) = 0.102382E+01
+ PKER_RACCS ( 14, 13) = 0.710429E+00
+ PKER_RACCS ( 14, 14) = 0.476613E+00
+ PKER_RACCS ( 14, 15) = 0.321863E+00
+ PKER_RACCS ( 14, 16) = 0.244851E+00
+ PKER_RACCS ( 14, 17) = 0.236098E+00
+ PKER_RACCS ( 14, 18) = 0.275511E+00
+ PKER_RACCS ( 14, 19) = 0.338333E+00
+ PKER_RACCS ( 14, 20) = 0.404917E+00
+ PKER_RACCS ( 14, 21) = 0.465028E+00
+ PKER_RACCS ( 14, 22) = 0.515805E+00
+ PKER_RACCS ( 14, 23) = 0.557750E+00
+ PKER_RACCS ( 14, 24) = 0.592233E+00
+ PKER_RACCS ( 14, 25) = 0.620587E+00
+ PKER_RACCS ( 14, 26) = 0.643925E+00
+ PKER_RACCS ( 14, 27) = 0.663150E+00
+ PKER_RACCS ( 14, 28) = 0.678999E+00
+ PKER_RACCS ( 14, 29) = 0.692071E+00
+ PKER_RACCS ( 14, 30) = 0.702860E+00
+ PKER_RACCS ( 14, 31) = 0.711766E+00
+ PKER_RACCS ( 14, 32) = 0.719122E+00
+ PKER_RACCS ( 14, 33) = 0.725198E+00
+ PKER_RACCS ( 14, 34) = 0.730218E+00
+ PKER_RACCS ( 14, 35) = 0.734367E+00
+ PKER_RACCS ( 14, 36) = 0.737797E+00
+ PKER_RACCS ( 14, 37) = 0.740631E+00
+ PKER_RACCS ( 14, 38) = 0.742975E+00
+ PKER_RACCS ( 14, 39) = 0.744913E+00
+ PKER_RACCS ( 14, 40) = 0.746515E+00
+ PKER_RACCS ( 15, 1) = 0.149250E+02
+ PKER_RACCS ( 15, 2) = 0.122068E+02
+ PKER_RACCS ( 15, 3) = 0.995366E+01
+ PKER_RACCS ( 15, 4) = 0.808554E+01
+ PKER_RACCS ( 15, 5) = 0.653627E+01
+ PKER_RACCS ( 15, 6) = 0.525129E+01
+ PKER_RACCS ( 15, 7) = 0.418569E+01
+ PKER_RACCS ( 15, 8) = 0.330262E+01
+ PKER_RACCS ( 15, 9) = 0.257187E+01
+ PKER_RACCS ( 15, 10) = 0.196884E+01
+ PKER_RACCS ( 15, 11) = 0.147364E+01
+ PKER_RACCS ( 15, 12) = 0.107095E+01
+ PKER_RACCS ( 15, 13) = 0.750228E+00
+ PKER_RACCS ( 15, 14) = 0.506382E+00
+ PKER_RACCS ( 15, 15) = 0.338812E+00
+ PKER_RACCS ( 15, 16) = 0.247144E+00
+ PKER_RACCS ( 15, 17) = 0.224719E+00
+ PKER_RACCS ( 15, 18) = 0.254112E+00
+ PKER_RACCS ( 15, 19) = 0.311617E+00
+ PKER_RACCS ( 15, 20) = 0.376314E+00
+ PKER_RACCS ( 15, 21) = 0.436206E+00
+ PKER_RACCS ( 15, 22) = 0.487272E+00
+ PKER_RACCS ( 15, 23) = 0.529545E+00
+ PKER_RACCS ( 15, 24) = 0.564289E+00
+ PKER_RACCS ( 15, 25) = 0.592838E+00
+ PKER_RACCS ( 15, 26) = 0.616318E+00
+ PKER_RACCS ( 15, 27) = 0.635650E+00
+ PKER_RACCS ( 15, 28) = 0.651578E+00
+ PKER_RACCS ( 15, 29) = 0.664711E+00
+ PKER_RACCS ( 15, 30) = 0.675544E+00
+ PKER_RACCS ( 15, 31) = 0.684485E+00
+ PKER_RACCS ( 15, 32) = 0.691867E+00
+ PKER_RACCS ( 15, 33) = 0.697964E+00
+ PKER_RACCS ( 15, 34) = 0.703000E+00
+ PKER_RACCS ( 15, 35) = 0.707161E+00
+ PKER_RACCS ( 15, 36) = 0.710600E+00
+ PKER_RACCS ( 15, 37) = 0.713442E+00
+ PKER_RACCS ( 15, 38) = 0.715791E+00
+ PKER_RACCS ( 15, 39) = 0.717734E+00
+ PKER_RACCS ( 15, 40) = 0.719340E+00
+ PKER_RACCS ( 16, 1) = 0.149746E+02
+ PKER_RACCS ( 16, 2) = 0.122580E+02
+ PKER_RACCS ( 16, 3) = 0.100064E+02
+ PKER_RACCS ( 16, 4) = 0.813975E+01
+ PKER_RACCS ( 16, 5) = 0.659179E+01
+ PKER_RACCS ( 16, 6) = 0.530783E+01
+ PKER_RACCS ( 16, 7) = 0.424279E+01
+ PKER_RACCS ( 16, 8) = 0.335961E+01
+ PKER_RACCS ( 16, 9) = 0.262794E+01
+ PKER_RACCS ( 16, 10) = 0.202298E+01
+ PKER_RACCS ( 16, 11) = 0.152474E+01
+ PKER_RACCS ( 16, 12) = 0.111762E+01
+ PKER_RACCS ( 16, 13) = 0.790608E+00
+ PKER_RACCS ( 16, 14) = 0.537869E+00
+ PKER_RACCS ( 16, 15) = 0.358451E+00
+ PKER_RACCS ( 16, 16) = 0.252678E+00
+ PKER_RACCS ( 16, 17) = 0.216307E+00
+ PKER_RACCS ( 16, 18) = 0.235077E+00
+ PKER_RACCS ( 16, 19) = 0.286474E+00
+ PKER_RACCS ( 16, 20) = 0.348774E+00
+ PKER_RACCS ( 16, 21) = 0.408251E+00
+ PKER_RACCS ( 16, 22) = 0.459577E+00
+ PKER_RACCS ( 16, 23) = 0.502202E+00
+ PKER_RACCS ( 16, 24) = 0.537235E+00
+ PKER_RACCS ( 16, 25) = 0.565999E+00
+ PKER_RACCS ( 16, 26) = 0.589640E+00
+ PKER_RACCS ( 16, 27) = 0.609090E+00
+ PKER_RACCS ( 16, 28) = 0.625107E+00
+ PKER_RACCS ( 16, 29) = 0.638306E+00
+ PKER_RACCS ( 16, 30) = 0.649190E+00
+ PKER_RACCS ( 16, 31) = 0.658170E+00
+ PKER_RACCS ( 16, 32) = 0.665581E+00
+ PKER_RACCS ( 16, 33) = 0.671700E+00
+ PKER_RACCS ( 16, 34) = 0.676754E+00
+ PKER_RACCS ( 16, 35) = 0.680928E+00
+ PKER_RACCS ( 16, 36) = 0.684378E+00
+ PKER_RACCS ( 16, 37) = 0.687228E+00
+ PKER_RACCS ( 16, 38) = 0.689584E+00
+ PKER_RACCS ( 16, 39) = 0.691531E+00
+ PKER_RACCS ( 16, 40) = 0.693141E+00
+ PKER_RACCS ( 17, 1) = 0.150199E+02
+ PKER_RACCS ( 17, 2) = 0.123046E+02
+ PKER_RACCS ( 17, 3) = 0.100544E+02
+ PKER_RACCS ( 17, 4) = 0.818917E+01
+ PKER_RACCS ( 17, 5) = 0.664253E+01
+ PKER_RACCS ( 17, 6) = 0.535971E+01
+ PKER_RACCS ( 17, 7) = 0.429548E+01
+ PKER_RACCS ( 17, 8) = 0.341263E+01
+ PKER_RACCS ( 17, 9) = 0.268062E+01
+ PKER_RACCS ( 17, 10) = 0.207449E+01
+ PKER_RACCS ( 17, 11) = 0.157406E+01
+ PKER_RACCS ( 17, 12) = 0.116346E+01
+ PKER_RACCS ( 17, 13) = 0.831223E+00
+ PKER_RACCS ( 17, 14) = 0.570778E+00
+ PKER_RACCS ( 17, 15) = 0.380540E+00
+ PKER_RACCS ( 17, 16) = 0.261478E+00
+ PKER_RACCS ( 17, 17) = 0.211389E+00
+ PKER_RACCS ( 17, 18) = 0.218705E+00
+ PKER_RACCS ( 17, 19) = 0.263066E+00
+ PKER_RACCS ( 17, 20) = 0.322333E+00
+ PKER_RACCS ( 17, 21) = 0.381142E+00
+ PKER_RACCS ( 17, 22) = 0.432675E+00
+ PKER_RACCS ( 17, 23) = 0.475672E+00
+ PKER_RACCS ( 17, 24) = 0.511025E+00
+ PKER_RACCS ( 17, 25) = 0.540030E+00
+ PKER_RACCS ( 17, 26) = 0.563849E+00
+ PKER_RACCS ( 17, 27) = 0.583432E+00
+ PKER_RACCS ( 17, 28) = 0.599547E+00
+ PKER_RACCS ( 17, 29) = 0.612821E+00
+ PKER_RACCS ( 17, 30) = 0.623761E+00
+ PKER_RACCS ( 17, 31) = 0.632783E+00
+ PKER_RACCS ( 17, 32) = 0.640227E+00
+ PKER_RACCS ( 17, 33) = 0.646371E+00
+ PKER_RACCS ( 17, 34) = 0.651444E+00
+ PKER_RACCS ( 17, 35) = 0.655634E+00
+ PKER_RACCS ( 17, 36) = 0.659094E+00
+ PKER_RACCS ( 17, 37) = 0.661954E+00
+ PKER_RACCS ( 17, 38) = 0.664317E+00
+ PKER_RACCS ( 17, 39) = 0.666270E+00
+ PKER_RACCS ( 17, 40) = 0.667884E+00
+ PKER_RACCS ( 18, 1) = 0.150611E+02
+ PKER_RACCS ( 18, 2) = 0.123471E+02
+ PKER_RACCS ( 18, 3) = 0.100982E+02
+ PKER_RACCS ( 18, 4) = 0.823424E+01
+ PKER_RACCS ( 18, 5) = 0.668887E+01
+ PKER_RACCS ( 18, 6) = 0.540722E+01
+ PKER_RACCS ( 18, 7) = 0.434396E+01
+ PKER_RACCS ( 18, 8) = 0.346174E+01
+ PKER_RACCS ( 18, 9) = 0.272984E+01
+ PKER_RACCS ( 18, 10) = 0.212315E+01
+ PKER_RACCS ( 18, 11) = 0.162127E+01
+ PKER_RACCS ( 18, 12) = 0.120806E+01
+ PKER_RACCS ( 18, 13) = 0.871602E+00
+ PKER_RACCS ( 18, 14) = 0.604653E+00
+ PKER_RACCS ( 18, 15) = 0.404841E+00
+ PKER_RACCS ( 18, 16) = 0.273423E+00
+ PKER_RACCS ( 18, 17) = 0.209600E+00
+ PKER_RACCS ( 18, 18) = 0.205031E+00
+ PKER_RACCS ( 18, 19) = 0.241487E+00
+ PKER_RACCS ( 18, 20) = 0.297071E+00
+ PKER_RACCS ( 18, 21) = 0.354876E+00
+ PKER_RACCS ( 18, 22) = 0.406530E+00
+ PKER_RACCS ( 18, 23) = 0.449911E+00
+ PKER_RACCS ( 18, 24) = 0.485614E+00
+ PKER_RACCS ( 18, 25) = 0.514888E+00
+ PKER_RACCS ( 18, 26) = 0.538905E+00
+ PKER_RACCS ( 18, 27) = 0.558635E+00
+ PKER_RACCS ( 18, 28) = 0.574861E+00
+ PKER_RACCS ( 18, 29) = 0.588218E+00
+ PKER_RACCS ( 18, 30) = 0.599220E+00
+ PKER_RACCS ( 18, 31) = 0.608290E+00
+ PKER_RACCS ( 18, 32) = 0.615770E+00
+ PKER_RACCS ( 18, 33) = 0.621942E+00
+ PKER_RACCS ( 18, 34) = 0.627036E+00
+ PKER_RACCS ( 18, 35) = 0.631242E+00
+ PKER_RACCS ( 18, 36) = 0.634716E+00
+ PKER_RACCS ( 18, 37) = 0.637585E+00
+ PKER_RACCS ( 18, 38) = 0.639956E+00
+ PKER_RACCS ( 18, 39) = 0.641915E+00
+ PKER_RACCS ( 18, 40) = 0.643534E+00
+ PKER_RACCS ( 19, 1) = 0.150988E+02
+ PKER_RACCS ( 19, 2) = 0.123859E+02
+ PKER_RACCS ( 19, 3) = 0.101382E+02
+ PKER_RACCS ( 19, 4) = 0.827539E+01
+ PKER_RACCS ( 19, 5) = 0.673121E+01
+ PKER_RACCS ( 19, 6) = 0.545071E+01
+ PKER_RACCS ( 19, 7) = 0.438849E+01
+ PKER_RACCS ( 19, 8) = 0.350707E+01
+ PKER_RACCS ( 19, 9) = 0.277562E+01
+ PKER_RACCS ( 19, 10) = 0.216883E+01
+ PKER_RACCS ( 19, 11) = 0.166613E+01
+ PKER_RACCS ( 19, 12) = 0.125110E+01
+ PKER_RACCS ( 19, 13) = 0.911367E+00
+ PKER_RACCS ( 19, 14) = 0.639001E+00
+ PKER_RACCS ( 19, 15) = 0.430939E+00
+ PKER_RACCS ( 19, 16) = 0.287969E+00
+ PKER_RACCS ( 19, 17) = 0.210983E+00
+ PKER_RACCS ( 19, 18) = 0.194223E+00
+ PKER_RACCS ( 19, 19) = 0.221986E+00
+ PKER_RACCS ( 19, 20) = 0.273075E+00
+ PKER_RACCS ( 19, 21) = 0.329460E+00
+ PKER_RACCS ( 19, 22) = 0.381110E+00
+ PKER_RACCS ( 19, 23) = 0.424875E+00
+ PKER_RACCS ( 19, 24) = 0.460960E+00
+ PKER_RACCS ( 19, 25) = 0.490530E+00
+ PKER_RACCS ( 19, 26) = 0.514769E+00
+ PKER_RACCS ( 19, 27) = 0.534664E+00
+ PKER_RACCS ( 19, 28) = 0.551012E+00
+ PKER_RACCS ( 19, 29) = 0.564461E+00
+ PKER_RACCS ( 19, 30) = 0.575533E+00
+ PKER_RACCS ( 19, 31) = 0.584656E+00
+ PKER_RACCS ( 19, 32) = 0.592176E+00
+ PKER_RACCS ( 19, 33) = 0.598379E+00
+ PKER_RACCS ( 19, 34) = 0.603497E+00
+ PKER_RACCS ( 19, 35) = 0.607721E+00
+ PKER_RACCS ( 19, 36) = 0.611209E+00
+ PKER_RACCS ( 19, 37) = 0.614090E+00
+ PKER_RACCS ( 19, 38) = 0.616469E+00
+ PKER_RACCS ( 19, 39) = 0.618434E+00
+ PKER_RACCS ( 19, 40) = 0.620059E+00
+ PKER_RACCS ( 20, 1) = 0.151334E+02
+ PKER_RACCS ( 20, 2) = 0.124214E+02
+ PKER_RACCS ( 20, 3) = 0.101747E+02
+ PKER_RACCS ( 20, 4) = 0.831300E+01
+ PKER_RACCS ( 20, 5) = 0.676993E+01
+ PKER_RACCS ( 20, 6) = 0.549053E+01
+ PKER_RACCS ( 20, 7) = 0.442934E+01
+ PKER_RACCS ( 20, 8) = 0.354883E+01
+ PKER_RACCS ( 20, 9) = 0.281803E+01
+ PKER_RACCS ( 20, 10) = 0.221150E+01
+ PKER_RACCS ( 20, 11) = 0.170847E+01
+ PKER_RACCS ( 20, 12) = 0.129228E+01
+ PKER_RACCS ( 20, 13) = 0.950157E+00
+ PKER_RACCS ( 20, 14) = 0.673464E+00
+ PKER_RACCS ( 20, 15) = 0.458333E+00
+ PKER_RACCS ( 20, 16) = 0.305176E+00
+ PKER_RACCS ( 20, 17) = 0.215568E+00
+ PKER_RACCS ( 20, 18) = 0.186321E+00
+ PKER_RACCS ( 20, 19) = 0.204559E+00
+ PKER_RACCS ( 20, 20) = 0.250422E+00
+ PKER_RACCS ( 20, 21) = 0.304915E+00
+ PKER_RACCS ( 20, 22) = 0.356388E+00
+ PKER_RACCS ( 20, 23) = 0.400522E+00
+ PKER_RACCS ( 20, 24) = 0.437017E+00
+ PKER_RACCS ( 20, 25) = 0.466917E+00
+ PKER_RACCS ( 20, 26) = 0.491402E+00
+ PKER_RACCS ( 20, 27) = 0.511479E+00
+ PKER_RACCS ( 20, 28) = 0.527965E+00
+ PKER_RACCS ( 20, 29) = 0.541516E+00
+ PKER_RACCS ( 20, 30) = 0.552666E+00
+ PKER_RACCS ( 20, 31) = 0.561847E+00
+ PKER_RACCS ( 20, 32) = 0.569412E+00
+ PKER_RACCS ( 20, 33) = 0.575649E+00
+ PKER_RACCS ( 20, 34) = 0.580793E+00
+ PKER_RACCS ( 20, 35) = 0.585038E+00
+ PKER_RACCS ( 20, 36) = 0.588542E+00
+ PKER_RACCS ( 20, 37) = 0.591434E+00
+ PKER_RACCS ( 20, 38) = 0.593823E+00
+ PKER_RACCS ( 20, 39) = 0.595796E+00
+ PKER_RACCS ( 20, 40) = 0.597426E+00
+ PKER_RACCS ( 21, 1) = 0.151652E+02
+ PKER_RACCS ( 21, 2) = 0.124540E+02
+ PKER_RACCS ( 21, 3) = 0.102082E+02
+ PKER_RACCS ( 21, 4) = 0.834744E+01
+ PKER_RACCS ( 21, 5) = 0.680537E+01
+ PKER_RACCS ( 21, 6) = 0.552699E+01
+ PKER_RACCS ( 21, 7) = 0.446681E+01
+ PKER_RACCS ( 21, 8) = 0.358724E+01
+ PKER_RACCS ( 21, 9) = 0.285721E+01
+ PKER_RACCS ( 21, 10) = 0.225118E+01
+ PKER_RACCS ( 21, 11) = 0.174822E+01
+ PKER_RACCS ( 21, 12) = 0.133141E+01
+ PKER_RACCS ( 21, 13) = 0.987614E+00
+ PKER_RACCS ( 21, 14) = 0.707582E+00
+ PKER_RACCS ( 21, 15) = 0.486558E+00
+ PKER_RACCS ( 21, 16) = 0.324414E+00
+ PKER_RACCS ( 21, 17) = 0.223054E+00
+ PKER_RACCS ( 21, 18) = 0.181308E+00
+ PKER_RACCS ( 21, 19) = 0.189484E+00
+ PKER_RACCS ( 21, 20) = 0.229271E+00
+ PKER_RACCS ( 21, 21) = 0.281292E+00
+ PKER_RACCS ( 21, 22) = 0.332355E+00
+ PKER_RACCS ( 21, 23) = 0.376815E+00
+ PKER_RACCS ( 21, 24) = 0.413745E+00
+ PKER_RACCS ( 21, 25) = 0.444006E+00
+ PKER_RACCS ( 21, 26) = 0.468764E+00
+ PKER_RACCS ( 21, 27) = 0.489045E+00
+ PKER_RACCS ( 21, 28) = 0.505683E+00
+ PKER_RACCS ( 21, 29) = 0.519348E+00
+ PKER_RACCS ( 21, 30) = 0.530584E+00
+ PKER_RACCS ( 21, 31) = 0.539830E+00
+ PKER_RACCS ( 21, 32) = 0.547445E+00
+ PKER_RACCS ( 21, 33) = 0.553720E+00
+ PKER_RACCS ( 21, 34) = 0.558894E+00
+ PKER_RACCS ( 21, 35) = 0.563161E+00
+ PKER_RACCS ( 21, 36) = 0.566682E+00
+ PKER_RACCS ( 21, 37) = 0.569589E+00
+ PKER_RACCS ( 21, 38) = 0.571988E+00
+ PKER_RACCS ( 21, 39) = 0.573969E+00
+ PKER_RACCS ( 21, 40) = 0.575606E+00
+ PKER_RACCS ( 22, 1) = 0.151944E+02
+ PKER_RACCS ( 22, 2) = 0.124840E+02
+ PKER_RACCS ( 22, 3) = 0.102389E+02
+ PKER_RACCS ( 22, 4) = 0.837904E+01
+ PKER_RACCS ( 22, 5) = 0.683786E+01
+ PKER_RACCS ( 22, 6) = 0.556042E+01
+ PKER_RACCS ( 22, 7) = 0.450119E+01
+ PKER_RACCS ( 22, 8) = 0.362254E+01
+ PKER_RACCS ( 22, 9) = 0.289334E+01
+ PKER_RACCS ( 22, 10) = 0.228796E+01
+ PKER_RACCS ( 22, 11) = 0.178533E+01
+ PKER_RACCS ( 22, 12) = 0.136834E+01
+ PKER_RACCS ( 22, 13) = 0.102351E+01
+ PKER_RACCS ( 22, 14) = 0.741020E+00
+ PKER_RACCS ( 22, 15) = 0.515301E+00
+ PKER_RACCS ( 22, 16) = 0.345292E+00
+ PKER_RACCS ( 22, 17) = 0.233110E+00
+ PKER_RACCS ( 22, 18) = 0.179411E+00
+ PKER_RACCS ( 22, 19) = 0.176906E+00
+ PKER_RACCS ( 22, 20) = 0.209753E+00
+ PKER_RACCS ( 22, 21) = 0.258648E+00
+ PKER_RACCS ( 22, 22) = 0.309006E+00
+ PKER_RACCS ( 22, 23) = 0.353720E+00
+ PKER_RACCS ( 22, 24) = 0.391101E+00
+ PKER_RACCS ( 22, 25) = 0.421757E+00
+ PKER_RACCS ( 22, 26) = 0.446818E+00
+ PKER_RACCS ( 22, 27) = 0.467326E+00
+ PKER_RACCS ( 22, 28) = 0.484133E+00
+ PKER_RACCS ( 22, 29) = 0.497925E+00
+ PKER_RACCS ( 22, 30) = 0.509256E+00
+ PKER_RACCS ( 22, 31) = 0.518575E+00
+ PKER_RACCS ( 22, 32) = 0.526245E+00
+ PKER_RACCS ( 22, 33) = 0.532563E+00
+ PKER_RACCS ( 22, 34) = 0.537769E+00
+ PKER_RACCS ( 22, 35) = 0.542061E+00
+ PKER_RACCS ( 22, 36) = 0.545601E+00
+ PKER_RACCS ( 22, 37) = 0.548523E+00
+ PKER_RACCS ( 22, 38) = 0.550934E+00
+ PKER_RACCS ( 22, 39) = 0.552924E+00
+ PKER_RACCS ( 22, 40) = 0.554568E+00
+ PKER_RACCS ( 23, 1) = 0.152213E+02
+ PKER_RACCS ( 23, 2) = 0.125116E+02
+ PKER_RACCS ( 23, 3) = 0.102672E+02
+ PKER_RACCS ( 23, 4) = 0.840809E+01
+ PKER_RACCS ( 23, 5) = 0.686771E+01
+ PKER_RACCS ( 23, 6) = 0.559111E+01
+ PKER_RACCS ( 23, 7) = 0.453276E+01
+ PKER_RACCS ( 23, 8) = 0.365498E+01
+ PKER_RACCS ( 23, 9) = 0.292663E+01
+ PKER_RACCS ( 23, 10) = 0.232198E+01
+ PKER_RACCS ( 23, 11) = 0.181986E+01
+ PKER_RACCS ( 23, 12) = 0.140301E+01
+ PKER_RACCS ( 23, 13) = 0.105763E+01
+ PKER_RACCS ( 23, 14) = 0.773440E+00
+ PKER_RACCS ( 23, 15) = 0.544069E+00
+ PKER_RACCS ( 23, 16) = 0.367556E+00
+ PKER_RACCS ( 23, 17) = 0.245797E+00
+ PKER_RACCS ( 23, 18) = 0.180284E+00
+ PKER_RACCS ( 23, 19) = 0.166899E+00
+ PKER_RACCS ( 23, 20) = 0.192026E+00
+ PKER_RACCS ( 23, 21) = 0.237101E+00
+ PKER_RACCS ( 23, 22) = 0.286355E+00
+ PKER_RACCS ( 23, 23) = 0.331210E+00
+ PKER_RACCS ( 23, 24) = 0.369048E+00
+ PKER_RACCS ( 23, 25) = 0.400132E+00
+ PKER_RACCS ( 23, 26) = 0.425526E+00
+ PKER_RACCS ( 23, 27) = 0.446284E+00
+ PKER_RACCS ( 23, 28) = 0.463279E+00
+ PKER_RACCS ( 23, 29) = 0.477213E+00
+ PKER_RACCS ( 23, 30) = 0.488651E+00
+ PKER_RACCS ( 23, 31) = 0.498050E+00
+ PKER_RACCS ( 23, 32) = 0.505782E+00
+ PKER_RACCS ( 23, 33) = 0.512146E+00
+ PKER_RACCS ( 23, 34) = 0.517388E+00
+ PKER_RACCS ( 23, 35) = 0.521708E+00
+ PKER_RACCS ( 23, 36) = 0.525270E+00
+ PKER_RACCS ( 23, 37) = 0.528208E+00
+ PKER_RACCS ( 23, 38) = 0.530632E+00
+ PKER_RACCS ( 23, 39) = 0.532633E+00
+ PKER_RACCS ( 23, 40) = 0.534284E+00
+ PKER_RACCS ( 24, 1) = 0.152463E+02
+ PKER_RACCS ( 24, 2) = 0.125371E+02
+ PKER_RACCS ( 24, 3) = 0.102934E+02
+ PKER_RACCS ( 24, 4) = 0.843486E+01
+ PKER_RACCS ( 24, 5) = 0.689519E+01
+ PKER_RACCS ( 24, 6) = 0.561934E+01
+ PKER_RACCS ( 24, 7) = 0.456178E+01
+ PKER_RACCS ( 24, 8) = 0.368482E+01
+ PKER_RACCS ( 24, 9) = 0.295728E+01
+ PKER_RACCS ( 24, 10) = 0.235339E+01
+ PKER_RACCS ( 24, 11) = 0.185190E+01
+ PKER_RACCS ( 24, 12) = 0.143540E+01
+ PKER_RACCS ( 24, 13) = 0.108987E+01
+ PKER_RACCS ( 24, 14) = 0.804596E+00
+ PKER_RACCS ( 24, 15) = 0.572486E+00
+ PKER_RACCS ( 24, 16) = 0.390700E+00
+ PKER_RACCS ( 24, 17) = 0.260363E+00
+ PKER_RACCS ( 24, 18) = 0.184022E+00
+ PKER_RACCS ( 24, 19) = 0.159599E+00
+ PKER_RACCS ( 24, 20) = 0.176302E+00
+ PKER_RACCS ( 24, 21) = 0.216750E+00
+ PKER_RACCS ( 24, 22) = 0.264440E+00
+ PKER_RACCS ( 24, 23) = 0.309269E+00
+ PKER_RACCS ( 24, 24) = 0.347549E+00
+ PKER_RACCS ( 24, 25) = 0.379090E+00
+ PKER_RACCS ( 24, 26) = 0.404851E+00
+ PKER_RACCS ( 24, 27) = 0.425886E+00
+ PKER_RACCS ( 24, 28) = 0.443090E+00
+ PKER_RACCS ( 24, 29) = 0.457180E+00
+ PKER_RACCS ( 24, 30) = 0.468736E+00
+ PKER_RACCS ( 24, 31) = 0.478226E+00
+ PKER_RACCS ( 24, 32) = 0.486025E+00
+ PKER_RACCS ( 24, 33) = 0.492441E+00
+ PKER_RACCS ( 24, 34) = 0.497723E+00
+ PKER_RACCS ( 24, 35) = 0.502074E+00
+ PKER_RACCS ( 24, 36) = 0.505660E+00
+ PKER_RACCS ( 24, 37) = 0.508616E+00
+ PKER_RACCS ( 24, 38) = 0.511055E+00
+ PKER_RACCS ( 24, 39) = 0.513066E+00
+ PKER_RACCS ( 24, 40) = 0.514727E+00
+ PKER_RACCS ( 25, 1) = 0.152694E+02
+ PKER_RACCS ( 25, 2) = 0.125607E+02
+ PKER_RACCS ( 25, 3) = 0.103175E+02
+ PKER_RACCS ( 25, 4) = 0.845958E+01
+ PKER_RACCS ( 25, 5) = 0.692053E+01
+ PKER_RACCS ( 25, 6) = 0.564534E+01
+ PKER_RACCS ( 25, 7) = 0.458850E+01
+ PKER_RACCS ( 25, 8) = 0.371229E+01
+ PKER_RACCS ( 25, 9) = 0.298552E+01
+ PKER_RACCS ( 25, 10) = 0.238237E+01
+ PKER_RACCS ( 25, 11) = 0.188156E+01
+ PKER_RACCS ( 25, 12) = 0.146555E+01
+ PKER_RACCS ( 25, 13) = 0.112016E+01
+ PKER_RACCS ( 25, 14) = 0.834300E+00
+ PKER_RACCS ( 25, 15) = 0.600243E+00
+ PKER_RACCS ( 25, 16) = 0.414249E+00
+ PKER_RACCS ( 25, 17) = 0.276705E+00
+ PKER_RACCS ( 25, 18) = 0.190253E+00
+ PKER_RACCS ( 25, 19) = 0.154899E+00
+ PKER_RACCS ( 25, 20) = 0.162591E+00
+ PKER_RACCS ( 25, 21) = 0.197712E+00
+ PKER_RACCS ( 25, 22) = 0.243310E+00
+ PKER_RACCS ( 25, 23) = 0.287888E+00
+ PKER_RACCS ( 25, 24) = 0.326572E+00
+ PKER_RACCS ( 25, 25) = 0.358595E+00
+ PKER_RACCS ( 25, 26) = 0.384755E+00
+ PKER_RACCS ( 25, 27) = 0.406096E+00
+ PKER_RACCS ( 25, 28) = 0.423530E+00
+ PKER_RACCS ( 25, 29) = 0.437795E+00
+ PKER_RACCS ( 25, 30) = 0.449483E+00
+ PKER_RACCS ( 25, 31) = 0.459071E+00
+ PKER_RACCS ( 25, 32) = 0.466947E+00
+ PKER_RACCS ( 25, 33) = 0.473421E+00
+ PKER_RACCS ( 25, 34) = 0.478747E+00
+ PKER_RACCS ( 25, 35) = 0.483132E+00
+ PKER_RACCS ( 25, 36) = 0.486744E+00
+ PKER_RACCS ( 25, 37) = 0.489721E+00
+ PKER_RACCS ( 25, 38) = 0.492175E+00
+ PKER_RACCS ( 25, 39) = 0.494199E+00
+ PKER_RACCS ( 25, 40) = 0.495869E+00
+ PKER_RACCS ( 26, 1) = 0.152909E+02
+ PKER_RACCS ( 26, 2) = 0.125826E+02
+ PKER_RACCS ( 26, 3) = 0.103399E+02
+ PKER_RACCS ( 26, 4) = 0.848247E+01
+ PKER_RACCS ( 26, 5) = 0.694396E+01
+ PKER_RACCS ( 26, 6) = 0.566936E+01
+ PKER_RACCS ( 26, 7) = 0.461314E+01
+ PKER_RACCS ( 26, 8) = 0.373761E+01
+ PKER_RACCS ( 26, 9) = 0.301154E+01
+ PKER_RACCS ( 26, 10) = 0.240912E+01
+ PKER_RACCS ( 26, 11) = 0.190899E+01
+ PKER_RACCS ( 26, 12) = 0.149356E+01
+ PKER_RACCS ( 26, 13) = 0.114849E+01
+ PKER_RACCS ( 26, 14) = 0.862417E+00
+ PKER_RACCS ( 26, 15) = 0.627063E+00
+ PKER_RACCS ( 26, 16) = 0.437825E+00
+ PKER_RACCS ( 26, 17) = 0.294289E+00
+ PKER_RACCS ( 26, 18) = 0.198892E+00
+ PKER_RACCS ( 26, 19) = 0.152918E+00
+ PKER_RACCS ( 26, 20) = 0.151248E+00
+ PKER_RACCS ( 26, 21) = 0.180182E+00
+ PKER_RACCS ( 26, 22) = 0.223041E+00
+ PKER_RACCS ( 26, 23) = 0.267078E+00
+ PKER_RACCS ( 26, 24) = 0.306091E+00
+ PKER_RACCS ( 26, 25) = 0.338613E+00
+ PKER_RACCS ( 26, 26) = 0.365204E+00
+ PKER_RACCS ( 26, 27) = 0.386880E+00
+ PKER_RACCS ( 26, 28) = 0.404569E+00
+ PKER_RACCS ( 26, 29) = 0.419026E+00
+ PKER_RACCS ( 26, 30) = 0.430860E+00
+ PKER_RACCS ( 26, 31) = 0.440559E+00
+ PKER_RACCS ( 26, 32) = 0.448518E+00
+ PKER_RACCS ( 26, 33) = 0.455057E+00
+ PKER_RACCS ( 26, 34) = 0.460432E+00
+ PKER_RACCS ( 26, 35) = 0.464855E+00
+ PKER_RACCS ( 26, 36) = 0.468496E+00
+ PKER_RACCS ( 26, 37) = 0.471496E+00
+ PKER_RACCS ( 26, 38) = 0.473967E+00
+ PKER_RACCS ( 26, 39) = 0.476005E+00
+ PKER_RACCS ( 26, 40) = 0.477686E+00
+ PKER_RACCS ( 27, 1) = 0.153109E+02
+ PKER_RACCS ( 27, 2) = 0.126030E+02
+ PKER_RACCS ( 27, 3) = 0.103607E+02
+ PKER_RACCS ( 27, 4) = 0.850370E+01
+ PKER_RACCS ( 27, 5) = 0.696566E+01
+ PKER_RACCS ( 27, 6) = 0.569158E+01
+ PKER_RACCS ( 27, 7) = 0.463592E+01
+ PKER_RACCS ( 27, 8) = 0.376099E+01
+ PKER_RACCS ( 27, 9) = 0.303557E+01
+ PKER_RACCS ( 27, 10) = 0.243381E+01
+ PKER_RACCS ( 27, 11) = 0.193434E+01
+ PKER_RACCS ( 27, 12) = 0.151953E+01
+ PKER_RACCS ( 27, 13) = 0.117491E+01
+ PKER_RACCS ( 27, 14) = 0.888890E+00
+ PKER_RACCS ( 27, 15) = 0.652763E+00
+ PKER_RACCS ( 27, 16) = 0.461178E+00
+ PKER_RACCS ( 27, 17) = 0.312679E+00
+ PKER_RACCS ( 27, 18) = 0.209327E+00
+ PKER_RACCS ( 27, 19) = 0.153534E+00
+ PKER_RACCS ( 27, 20) = 0.142201E+00
+ PKER_RACCS ( 27, 21) = 0.164281E+00
+ PKER_RACCS ( 27, 22) = 0.203743E+00
+ PKER_RACCS ( 27, 23) = 0.246868E+00
+ PKER_RACCS ( 27, 24) = 0.286092E+00
+ PKER_RACCS ( 27, 25) = 0.319109E+00
+ PKER_RACCS ( 27, 26) = 0.346163E+00
+ PKER_RACCS ( 27, 27) = 0.368205E+00
+ PKER_RACCS ( 27, 28) = 0.386173E+00
+ PKER_RACCS ( 27, 29) = 0.400843E+00
+ PKER_RACCS ( 27, 30) = 0.412838E+00
+ PKER_RACCS ( 27, 31) = 0.422660E+00
+ PKER_RACCS ( 27, 32) = 0.430713E+00
+ PKER_RACCS ( 27, 33) = 0.437322E+00
+ PKER_RACCS ( 27, 34) = 0.442752E+00
+ PKER_RACCS ( 27, 35) = 0.447217E+00
+ PKER_RACCS ( 27, 36) = 0.450891E+00
+ PKER_RACCS ( 27, 37) = 0.453915E+00
+ PKER_RACCS ( 27, 38) = 0.456406E+00
+ PKER_RACCS ( 27, 39) = 0.458459E+00
+ PKER_RACCS ( 27, 40) = 0.460152E+00
+ PKER_RACCS ( 28, 1) = 0.153296E+02
+ PKER_RACCS ( 28, 2) = 0.126220E+02
+ PKER_RACCS ( 28, 3) = 0.103800E+02
+ PKER_RACCS ( 28, 4) = 0.852344E+01
+ PKER_RACCS ( 28, 5) = 0.698582E+01
+ PKER_RACCS ( 28, 6) = 0.571219E+01
+ PKER_RACCS ( 28, 7) = 0.465702E+01
+ PKER_RACCS ( 28, 8) = 0.378263E+01
+ PKER_RACCS ( 28, 9) = 0.305778E+01
+ PKER_RACCS ( 28, 10) = 0.245663E+01
+ PKER_RACCS ( 28, 11) = 0.195779E+01
+ PKER_RACCS ( 28, 12) = 0.154358E+01
+ PKER_RACCS ( 28, 13) = 0.119948E+01
+ PKER_RACCS ( 28, 14) = 0.913701E+00
+ PKER_RACCS ( 28, 15) = 0.677201E+00
+ PKER_RACCS ( 28, 16) = 0.483961E+00
+ PKER_RACCS ( 28, 17) = 0.331617E+00
+ PKER_RACCS ( 28, 18) = 0.221589E+00
+ PKER_RACCS ( 28, 19) = 0.156463E+00
+ PKER_RACCS ( 28, 20) = 0.135600E+00
+ PKER_RACCS ( 28, 21) = 0.150201E+00
+ PKER_RACCS ( 28, 22) = 0.185555E+00
+ PKER_RACCS ( 28, 23) = 0.227299E+00
+ PKER_RACCS ( 28, 24) = 0.266566E+00
+ PKER_RACCS ( 28, 25) = 0.300058E+00
+ PKER_RACCS ( 28, 26) = 0.327598E+00
+ PKER_RACCS ( 28, 27) = 0.350036E+00
+ PKER_RACCS ( 28, 28) = 0.368311E+00
+ PKER_RACCS ( 28, 29) = 0.383215E+00
+ PKER_RACCS ( 28, 30) = 0.395389E+00
+ PKER_RACCS ( 28, 31) = 0.405347E+00
+ PKER_RACCS ( 28, 32) = 0.413503E+00
+ PKER_RACCS ( 28, 33) = 0.420191E+00
+ PKER_RACCS ( 28, 34) = 0.425682E+00
+ PKER_RACCS ( 28, 35) = 0.430193E+00
+ PKER_RACCS ( 28, 36) = 0.433903E+00
+ PKER_RACCS ( 28, 37) = 0.436955E+00
+ PKER_RACCS ( 28, 38) = 0.439468E+00
+ PKER_RACCS ( 28, 39) = 0.441538E+00
+ PKER_RACCS ( 28, 40) = 0.443243E+00
+ PKER_RACCS ( 29, 1) = 0.153471E+02
+ PKER_RACCS ( 29, 2) = 0.126398E+02
+ PKER_RACCS ( 29, 3) = 0.103981E+02
+ PKER_RACCS ( 29, 4) = 0.854185E+01
+ PKER_RACCS ( 29, 5) = 0.700458E+01
+ PKER_RACCS ( 29, 6) = 0.573134E+01
+ PKER_RACCS ( 29, 7) = 0.467661E+01
+ PKER_RACCS ( 29, 8) = 0.380268E+01
+ PKER_RACCS ( 29, 9) = 0.307834E+01
+ PKER_RACCS ( 29, 10) = 0.247774E+01
+ PKER_RACCS ( 29, 11) = 0.197949E+01
+ PKER_RACCS ( 29, 12) = 0.156587E+01
+ PKER_RACCS ( 29, 13) = 0.122230E+01
+ PKER_RACCS ( 29, 14) = 0.936885E+00
+ PKER_RACCS ( 29, 15) = 0.700294E+00
+ PKER_RACCS ( 29, 16) = 0.505964E+00
+ PKER_RACCS ( 29, 17) = 0.350712E+00
+ PKER_RACCS ( 29, 18) = 0.234989E+00
+ PKER_RACCS ( 29, 19) = 0.161691E+00
+ PKER_RACCS ( 29, 20) = 0.131407E+00
+ PKER_RACCS ( 29, 21) = 0.138067E+00
+ PKER_RACCS ( 29, 22) = 0.168588E+00
+ PKER_RACCS ( 29, 23) = 0.208441E+00
+ PKER_RACCS ( 29, 24) = 0.247520E+00
+ PKER_RACCS ( 29, 25) = 0.281437E+00
+ PKER_RACCS ( 29, 26) = 0.309480E+00
+ PKER_RACCS ( 29, 27) = 0.332344E+00
+ PKER_RACCS ( 29, 28) = 0.350952E+00
+ PKER_RACCS ( 29, 29) = 0.366113E+00
+ PKER_RACCS ( 29, 30) = 0.378484E+00
+ PKER_RACCS ( 29, 31) = 0.388592E+00
+ PKER_RACCS ( 29, 32) = 0.396862E+00
+ PKER_RACCS ( 29, 33) = 0.403639E+00
+ PKER_RACCS ( 29, 34) = 0.409196E+00
+ PKER_RACCS ( 29, 35) = 0.413759E+00
+ PKER_RACCS ( 29, 36) = 0.417509E+00
+ PKER_RACCS ( 29, 37) = 0.420592E+00
+ PKER_RACCS ( 29, 38) = 0.423129E+00
+ PKER_RACCS ( 29, 39) = 0.425217E+00
+ PKER_RACCS ( 29, 40) = 0.426937E+00
+ PKER_RACCS ( 30, 1) = 0.153635E+02
+ PKER_RACCS ( 30, 2) = 0.126564E+02
+ PKER_RACCS ( 30, 3) = 0.104150E+02
+ PKER_RACCS ( 30, 4) = 0.855904E+01
+ PKER_RACCS ( 30, 5) = 0.702208E+01
+ PKER_RACCS ( 30, 6) = 0.574919E+01
+ PKER_RACCS ( 30, 7) = 0.469483E+01
+ PKER_RACCS ( 30, 8) = 0.382131E+01
+ PKER_RACCS ( 30, 9) = 0.309742E+01
+ PKER_RACCS ( 30, 10) = 0.249732E+01
+ PKER_RACCS ( 30, 11) = 0.199959E+01
+ PKER_RACCS ( 30, 12) = 0.158651E+01
+ PKER_RACCS ( 30, 13) = 0.124348E+01
+ PKER_RACCS ( 30, 14) = 0.958493E+00
+ PKER_RACCS ( 30, 15) = 0.722012E+00
+ PKER_RACCS ( 30, 16) = 0.527028E+00
+ PKER_RACCS ( 30, 17) = 0.369596E+00
+ PKER_RACCS ( 30, 18) = 0.249312E+00
+ PKER_RACCS ( 30, 19) = 0.168624E+00
+ PKER_RACCS ( 30, 20) = 0.129429E+00
+ PKER_RACCS ( 30, 21) = 0.127896E+00
+ PKER_RACCS ( 30, 22) = 0.152978E+00
+ PKER_RACCS ( 30, 23) = 0.190385E+00
+ PKER_RACCS ( 30, 24) = 0.228978E+00
+ PKER_RACCS ( 30, 25) = 0.263233E+00
+ PKER_RACCS ( 30, 26) = 0.291782E+00
+ PKER_RACCS ( 30, 27) = 0.315097E+00
+ PKER_RACCS ( 30, 28) = 0.334066E+00
+ PKER_RACCS ( 30, 29) = 0.349508E+00
+ PKER_RACCS ( 30, 30) = 0.362094E+00
+ PKER_RACCS ( 30, 31) = 0.372368E+00
+ PKER_RACCS ( 30, 32) = 0.380766E+00
+ PKER_RACCS ( 30, 33) = 0.387639E+00
+ PKER_RACCS ( 30, 34) = 0.393271E+00
+ PKER_RACCS ( 30, 35) = 0.397892E+00
+ PKER_RACCS ( 30, 36) = 0.401685E+00
+ PKER_RACCS ( 30, 37) = 0.404802E+00
+ PKER_RACCS ( 30, 38) = 0.407366E+00
+ PKER_RACCS ( 30, 39) = 0.409474E+00
+ PKER_RACCS ( 30, 40) = 0.411210E+00
+ PKER_RACCS ( 31, 1) = 0.153789E+02
+ PKER_RACCS ( 31, 2) = 0.126721E+02
+ PKER_RACCS ( 31, 3) = 0.104309E+02
+ PKER_RACCS ( 31, 4) = 0.857513E+01
+ PKER_RACCS ( 31, 5) = 0.703845E+01
+ PKER_RACCS ( 31, 6) = 0.576585E+01
+ PKER_RACCS ( 31, 7) = 0.471181E+01
+ PKER_RACCS ( 31, 8) = 0.383866E+01
+ PKER_RACCS ( 31, 9) = 0.311517E+01
+ PKER_RACCS ( 31, 10) = 0.251549E+01
+ PKER_RACCS ( 31, 11) = 0.201823E+01
+ PKER_RACCS ( 31, 12) = 0.160567E+01
+ PKER_RACCS ( 31, 13) = 0.126314E+01
+ PKER_RACCS ( 31, 14) = 0.978607E+00
+ PKER_RACCS ( 31, 15) = 0.742366E+00
+ PKER_RACCS ( 31, 16) = 0.547054E+00
+ PKER_RACCS ( 31, 17) = 0.388066E+00
+ PKER_RACCS ( 31, 18) = 0.264213E+00
+ PKER_RACCS ( 31, 19) = 0.177352E+00
+ PKER_RACCS ( 31, 20) = 0.129825E+00
+ PKER_RACCS ( 31, 21) = 0.120005E+00
+ PKER_RACCS ( 31, 22) = 0.138939E+00
+ PKER_RACCS ( 31, 23) = 0.173230E+00
+ PKER_RACCS ( 31, 24) = 0.210978E+00
+ PKER_RACCS ( 31, 25) = 0.245442E+00
+ PKER_RACCS ( 31, 26) = 0.274483E+00
+ PKER_RACCS ( 31, 27) = 0.298269E+00
+ PKER_RACCS ( 31, 28) = 0.317624E+00
+ PKER_RACCS ( 31, 29) = 0.333371E+00
+ PKER_RACCS ( 31, 30) = 0.346194E+00
+ PKER_RACCS ( 31, 31) = 0.356650E+00
+ PKER_RACCS ( 31, 32) = 0.365187E+00
+ PKER_RACCS ( 31, 33) = 0.372168E+00
+ PKER_RACCS ( 31, 34) = 0.377883E+00
+ PKER_RACCS ( 31, 35) = 0.382567E+00
+ PKER_RACCS ( 31, 36) = 0.386409E+00
+ PKER_RACCS ( 31, 37) = 0.389564E+00
+ PKER_RACCS ( 31, 38) = 0.392157E+00
+ PKER_RACCS ( 31, 39) = 0.394288E+00
+ PKER_RACCS ( 31, 40) = 0.396042E+00
+ PKER_RACCS ( 32, 1) = 0.153934E+02
+ PKER_RACCS ( 32, 2) = 0.126867E+02
+ PKER_RACCS ( 32, 3) = 0.104457E+02
+ PKER_RACCS ( 32, 4) = 0.859022E+01
+ PKER_RACCS ( 32, 5) = 0.705378E+01
+ PKER_RACCS ( 32, 6) = 0.578144E+01
+ PKER_RACCS ( 32, 7) = 0.472769E+01
+ PKER_RACCS ( 32, 8) = 0.385484E+01
+ PKER_RACCS ( 32, 9) = 0.313170E+01
+ PKER_RACCS ( 32, 10) = 0.253241E+01
+ PKER_RACCS ( 32, 11) = 0.203557E+01
+ PKER_RACCS ( 32, 12) = 0.162345E+01
+ PKER_RACCS ( 32, 13) = 0.128140E+01
+ PKER_RACCS ( 32, 14) = 0.997321E+00
+ PKER_RACCS ( 32, 15) = 0.761395E+00
+ PKER_RACCS ( 32, 16) = 0.565988E+00
+ PKER_RACCS ( 32, 17) = 0.405983E+00
+ PKER_RACCS ( 32, 18) = 0.279303E+00
+ PKER_RACCS ( 32, 19) = 0.187116E+00
+ PKER_RACCS ( 32, 20) = 0.132134E+00
+ PKER_RACCS ( 32, 21) = 0.114155E+00
+ PKER_RACCS ( 32, 22) = 0.126553E+00
+ PKER_RACCS ( 32, 23) = 0.157131E+00
+ PKER_RACCS ( 32, 24) = 0.193586E+00
+ PKER_RACCS ( 32, 25) = 0.228071E+00
+ PKER_RACCS ( 32, 26) = 0.257565E+00
+ PKER_RACCS ( 32, 27) = 0.281834E+00
+ PKER_RACCS ( 32, 28) = 0.301599E+00
+ PKER_RACCS ( 32, 29) = 0.317674E+00
+ PKER_RACCS ( 32, 30) = 0.330754E+00
+ PKER_RACCS ( 32, 31) = 0.341411E+00
+ PKER_RACCS ( 32, 32) = 0.350103E+00
+ PKER_RACCS ( 32, 33) = 0.357202E+00
+ PKER_RACCS ( 32, 34) = 0.363008E+00
+ PKER_RACCS ( 32, 35) = 0.367762E+00
+ PKER_RACCS ( 32, 36) = 0.371659E+00
+ PKER_RACCS ( 32, 37) = 0.374856E+00
+ PKER_RACCS ( 32, 38) = 0.377481E+00
+ PKER_RACCS ( 32, 39) = 0.379638E+00
+ PKER_RACCS ( 32, 40) = 0.381411E+00
+ PKER_RACCS ( 33, 1) = 0.154071E+02
+ PKER_RACCS ( 33, 2) = 0.127006E+02
+ PKER_RACCS ( 33, 3) = 0.104597E+02
+ PKER_RACCS ( 33, 4) = 0.860441E+01
+ PKER_RACCS ( 33, 5) = 0.706817E+01
+ PKER_RACCS ( 33, 6) = 0.579605E+01
+ PKER_RACCS ( 33, 7) = 0.474255E+01
+ PKER_RACCS ( 33, 8) = 0.386998E+01
+ PKER_RACCS ( 33, 9) = 0.314713E+01
+ PKER_RACCS ( 33, 10) = 0.254818E+01
+ PKER_RACCS ( 33, 11) = 0.205171E+01
+ PKER_RACCS ( 33, 12) = 0.164000E+01
+ PKER_RACCS ( 33, 13) = 0.129838E+01
+ PKER_RACCS ( 33, 14) = 0.101473E+01
+ PKER_RACCS ( 33, 15) = 0.779158E+00
+ PKER_RACCS ( 33, 16) = 0.583828E+00
+ PKER_RACCS ( 33, 17) = 0.423172E+00
+ PKER_RACCS ( 33, 18) = 0.294399E+00
+ PKER_RACCS ( 33, 19) = 0.197948E+00
+ PKER_RACCS ( 33, 20) = 0.136212E+00
+ PKER_RACCS ( 33, 21) = 0.110420E+00
+ PKER_RACCS ( 33, 22) = 0.115959E+00
+ PKER_RACCS ( 33, 23) = 0.142210E+00
+ PKER_RACCS ( 33, 24) = 0.176880E+00
+ PKER_RACCS ( 33, 25) = 0.211147E+00
+ PKER_RACCS ( 33, 26) = 0.241022E+00
+ PKER_RACCS ( 33, 27) = 0.265773E+00
+ PKER_RACCS ( 33, 28) = 0.285966E+00
+ PKER_RACCS ( 33, 29) = 0.302391E+00
+ PKER_RACCS ( 33, 30) = 0.315751E+00
+ PKER_RACCS ( 33, 31) = 0.326625E+00
+ PKER_RACCS ( 33, 32) = 0.335487E+00
+ PKER_RACCS ( 33, 33) = 0.342717E+00
+ PKER_RACCS ( 33, 34) = 0.348624E+00
+ PKER_RACCS ( 33, 35) = 0.353456E+00
+ PKER_RACCS ( 33, 36) = 0.357412E+00
+ PKER_RACCS ( 33, 37) = 0.360656E+00
+ PKER_RACCS ( 33, 38) = 0.363317E+00
+ PKER_RACCS ( 33, 39) = 0.365502E+00
+ PKER_RACCS ( 33, 40) = 0.367297E+00
+ PKER_RACCS ( 34, 1) = 0.154200E+02
+ PKER_RACCS ( 34, 2) = 0.127136E+02
+ PKER_RACCS ( 34, 3) = 0.104729E+02
+ PKER_RACCS ( 34, 4) = 0.861777E+01
+ PKER_RACCS ( 34, 5) = 0.708171E+01
+ PKER_RACCS ( 34, 6) = 0.580978E+01
+ PKER_RACCS ( 34, 7) = 0.475649E+01
+ PKER_RACCS ( 34, 8) = 0.388416E+01
+ PKER_RACCS ( 34, 9) = 0.316157E+01
+ PKER_RACCS ( 34, 10) = 0.256291E+01
+ PKER_RACCS ( 34, 11) = 0.206676E+01
+ PKER_RACCS ( 34, 12) = 0.165541E+01
+ PKER_RACCS ( 34, 13) = 0.131418E+01
+ PKER_RACCS ( 34, 14) = 0.103094E+01
+ PKER_RACCS ( 34, 15) = 0.795734E+00
+ PKER_RACCS ( 34, 16) = 0.600574E+00
+ PKER_RACCS ( 34, 17) = 0.439562E+00
+ PKER_RACCS ( 34, 18) = 0.309298E+00
+ PKER_RACCS ( 34, 19) = 0.209348E+00
+ PKER_RACCS ( 34, 20) = 0.141894E+00
+ PKER_RACCS ( 34, 21) = 0.108690E+00
+ PKER_RACCS ( 34, 22) = 0.107195E+00
+ PKER_RACCS ( 34, 23) = 0.128577E+00
+ PKER_RACCS ( 34, 24) = 0.160953E+00
+ PKER_RACCS ( 34, 25) = 0.194706E+00
+ PKER_RACCS ( 34, 26) = 0.224853E+00
+ PKER_RACCS ( 34, 27) = 0.250070E+00
+ PKER_RACCS ( 34, 28) = 0.270704E+00
+ PKER_RACCS ( 34, 29) = 0.287498E+00
+ PKER_RACCS ( 34, 30) = 0.301157E+00
+ PKER_RACCS ( 34, 31) = 0.312268E+00
+ PKER_RACCS ( 34, 32) = 0.321315E+00
+ PKER_RACCS ( 34, 33) = 0.328690E+00
+ PKER_RACCS ( 34, 34) = 0.334708E+00
+ PKER_RACCS ( 34, 35) = 0.339626E+00
+ PKER_RACCS ( 34, 36) = 0.343649E+00
+ PKER_RACCS ( 34, 37) = 0.346944E+00
+ PKER_RACCS ( 34, 38) = 0.349645E+00
+ PKER_RACCS ( 34, 39) = 0.351860E+00
+ PKER_RACCS ( 34, 40) = 0.353679E+00
+ PKER_RACCS ( 35, 1) = 0.154322E+02
+ PKER_RACCS ( 35, 2) = 0.127259E+02
+ PKER_RACCS ( 35, 3) = 0.104854E+02
+ PKER_RACCS ( 35, 4) = 0.863037E+01
+ PKER_RACCS ( 35, 5) = 0.709446E+01
+ PKER_RACCS ( 35, 6) = 0.582271E+01
+ PKER_RACCS ( 35, 7) = 0.476960E+01
+ PKER_RACCS ( 35, 8) = 0.389747E+01
+ PKER_RACCS ( 35, 9) = 0.317511E+01
+ PKER_RACCS ( 35, 10) = 0.257670E+01
+ PKER_RACCS ( 35, 11) = 0.208084E+01
+ PKER_RACCS ( 35, 12) = 0.166980E+01
+ PKER_RACCS ( 35, 13) = 0.132892E+01
+ PKER_RACCS ( 35, 14) = 0.104605E+01
+ PKER_RACCS ( 35, 15) = 0.811197E+00
+ PKER_RACCS ( 35, 16) = 0.616268E+00
+ PKER_RACCS ( 35, 17) = 0.455093E+00
+ PKER_RACCS ( 35, 18) = 0.323758E+00
+ PKER_RACCS ( 35, 19) = 0.221083E+00
+ PKER_RACCS ( 35, 20) = 0.148645E+00
+ PKER_RACCS ( 35, 21) = 0.108723E+00
+ PKER_RACCS ( 35, 22) = 0.100277E+00
+ PKER_RACCS ( 35, 23) = 0.116364E+00
+ PKER_RACCS ( 35, 24) = 0.145915E+00
+ PKER_RACCS ( 35, 25) = 0.178804E+00
+ PKER_RACCS ( 35, 26) = 0.209075E+00
+ PKER_RACCS ( 35, 27) = 0.234718E+00
+ PKER_RACCS ( 35, 28) = 0.255794E+00
+ PKER_RACCS ( 35, 29) = 0.272973E+00
+ PKER_RACCS ( 35, 30) = 0.286949E+00
+ PKER_RACCS ( 35, 31) = 0.298317E+00
+ PKER_RACCS ( 35, 32) = 0.307566E+00
+ PKER_RACCS ( 35, 33) = 0.315098E+00
+ PKER_RACCS ( 35, 34) = 0.321239E+00
+ PKER_RACCS ( 35, 35) = 0.326251E+00
+ PKER_RACCS ( 35, 36) = 0.330348E+00
+ PKER_RACCS ( 35, 37) = 0.333700E+00
+ PKER_RACCS ( 35, 38) = 0.336445E+00
+ PKER_RACCS ( 35, 39) = 0.338695E+00
+ PKER_RACCS ( 35, 40) = 0.340540E+00
+ PKER_RACCS ( 36, 1) = 0.154437E+02
+ PKER_RACCS ( 36, 2) = 0.127376E+02
+ PKER_RACCS ( 36, 3) = 0.104972E+02
+ PKER_RACCS ( 36, 4) = 0.864228E+01
+ PKER_RACCS ( 36, 5) = 0.710650E+01
+ PKER_RACCS ( 36, 6) = 0.583489E+01
+ PKER_RACCS ( 36, 7) = 0.478195E+01
+ PKER_RACCS ( 36, 8) = 0.390999E+01
+ PKER_RACCS ( 36, 9) = 0.318783E+01
+ PKER_RACCS ( 36, 10) = 0.258964E+01
+ PKER_RACCS ( 36, 11) = 0.209403E+01
+ PKER_RACCS ( 36, 12) = 0.168327E+01
+ PKER_RACCS ( 36, 13) = 0.134269E+01
+ PKER_RACCS ( 36, 14) = 0.106015E+01
+ PKER_RACCS ( 36, 15) = 0.825632E+00
+ PKER_RACCS ( 36, 16) = 0.630963E+00
+ PKER_RACCS ( 36, 17) = 0.469771E+00
+ PKER_RACCS ( 36, 18) = 0.337705E+00
+ PKER_RACCS ( 36, 19) = 0.233002E+00
+ PKER_RACCS ( 36, 20) = 0.156540E+00
+ PKER_RACCS ( 36, 21) = 0.110543E+00
+ PKER_RACCS ( 36, 22) = 0.952936E-01
+ PKER_RACCS ( 36, 23) = 0.105698E+00
+ PKER_RACCS ( 36, 24) = 0.131883E+00
+ PKER_RACCS ( 36, 25) = 0.163510E+00
+ PKER_RACCS ( 36, 26) = 0.193709E+00
+ PKER_RACCS ( 36, 27) = 0.219715E+00
+ PKER_RACCS ( 36, 28) = 0.241223E+00
+ PKER_RACCS ( 36, 29) = 0.258796E+00
+ PKER_RACCS ( 36, 30) = 0.273106E+00
+ PKER_RACCS ( 36, 31) = 0.284746E+00
+ PKER_RACCS ( 36, 32) = 0.294214E+00
+ PKER_RACCS ( 36, 33) = 0.301919E+00
+ PKER_RACCS ( 36, 34) = 0.308194E+00
+ PKER_RACCS ( 36, 35) = 0.313312E+00
+ PKER_RACCS ( 36, 36) = 0.317489E+00
+ PKER_RACCS ( 36, 37) = 0.320904E+00
+ PKER_RACCS ( 36, 38) = 0.323698E+00
+ PKER_RACCS ( 36, 39) = 0.325986E+00
+ PKER_RACCS ( 36, 40) = 0.327861E+00
+ PKER_RACCS ( 37, 1) = 0.154547E+02
+ PKER_RACCS ( 37, 2) = 0.127487E+02
+ PKER_RACCS ( 37, 3) = 0.105084E+02
+ PKER_RACCS ( 37, 4) = 0.865355E+01
+ PKER_RACCS ( 37, 5) = 0.711789E+01
+ PKER_RACCS ( 37, 6) = 0.584640E+01
+ PKER_RACCS ( 37, 7) = 0.479360E+01
+ PKER_RACCS ( 37, 8) = 0.392180E+01
+ PKER_RACCS ( 37, 9) = 0.319981E+01
+ PKER_RACCS ( 37, 10) = 0.260181E+01
+ PKER_RACCS ( 37, 11) = 0.210640E+01
+ PKER_RACCS ( 37, 12) = 0.169588E+01
+ PKER_RACCS ( 37, 13) = 0.135558E+01
+ PKER_RACCS ( 37, 14) = 0.107334E+01
+ PKER_RACCS ( 37, 15) = 0.839123E+00
+ PKER_RACCS ( 37, 16) = 0.644719E+00
+ PKER_RACCS ( 37, 17) = 0.483597E+00
+ PKER_RACCS ( 37, 18) = 0.351093E+00
+ PKER_RACCS ( 37, 19) = 0.244805E+00
+ PKER_RACCS ( 37, 20) = 0.164956E+00
+ PKER_RACCS ( 37, 21) = 0.113667E+00
+ PKER_RACCS ( 37, 22) = 0.920176E-01
+ PKER_RACCS ( 37, 23) = 0.966205E-01
+ PKER_RACCS ( 37, 24) = 0.118987E+00
+ PKER_RACCS ( 37, 25) = 0.148905E+00
+ PKER_RACCS ( 37, 26) = 0.178792E+00
+ PKER_RACCS ( 37, 27) = 0.205068E+00
+ PKER_RACCS ( 37, 28) = 0.226984E+00
+ PKER_RACCS ( 37, 29) = 0.244952E+00
+ PKER_RACCS ( 37, 30) = 0.259607E+00
+ PKER_RACCS ( 37, 31) = 0.271536E+00
+ PKER_RACCS ( 37, 32) = 0.281239E+00
+ PKER_RACCS ( 37, 33) = 0.289131E+00
+ PKER_RACCS ( 37, 34) = 0.295554E+00
+ PKER_RACCS ( 37, 35) = 0.300786E+00
+ PKER_RACCS ( 37, 36) = 0.305053E+00
+ PKER_RACCS ( 37, 37) = 0.308537E+00
+ PKER_RACCS ( 37, 38) = 0.311385E+00
+ PKER_RACCS ( 37, 39) = 0.313715E+00
+ PKER_RACCS ( 37, 40) = 0.315623E+00
+ PKER_RACCS ( 38, 1) = 0.154651E+02
+ PKER_RACCS ( 38, 2) = 0.127592E+02
+ PKER_RACCS ( 38, 3) = 0.105189E+02
+ PKER_RACCS ( 38, 4) = 0.866424E+01
+ PKER_RACCS ( 38, 5) = 0.712867E+01
+ PKER_RACCS ( 38, 6) = 0.585730E+01
+ PKER_RACCS ( 38, 7) = 0.480461E+01
+ PKER_RACCS ( 38, 8) = 0.393294E+01
+ PKER_RACCS ( 38, 9) = 0.321110E+01
+ PKER_RACCS ( 38, 10) = 0.261326E+01
+ PKER_RACCS ( 38, 11) = 0.211804E+01
+ PKER_RACCS ( 38, 12) = 0.170773E+01
+ PKER_RACCS ( 38, 13) = 0.136766E+01
+ PKER_RACCS ( 38, 14) = 0.108568E+01
+ PKER_RACCS ( 38, 15) = 0.851746E+00
+ PKER_RACCS ( 38, 16) = 0.657601E+00
+ PKER_RACCS ( 38, 17) = 0.496617E+00
+ PKER_RACCS ( 38, 18) = 0.363853E+00
+ PKER_RACCS ( 38, 19) = 0.256418E+00
+ PKER_RACCS ( 38, 20) = 0.173936E+00
+ PKER_RACCS ( 38, 21) = 0.118035E+00
+ PKER_RACCS ( 38, 22) = 0.904182E-01
+ PKER_RACCS ( 38, 23) = 0.891827E-01
+ PKER_RACCS ( 38, 24) = 0.107309E+00
+ PKER_RACCS ( 38, 25) = 0.135085E+00
+ PKER_RACCS ( 38, 26) = 0.164376E+00
+ PKER_RACCS ( 38, 27) = 0.190797E+00
+ PKER_RACCS ( 38, 28) = 0.213077E+00
+ PKER_RACCS ( 38, 29) = 0.231429E+00
+ PKER_RACCS ( 38, 30) = 0.246435E+00
+ PKER_RACCS ( 38, 31) = 0.258666E+00
+ PKER_RACCS ( 38, 32) = 0.268619E+00
+ PKER_RACCS ( 38, 33) = 0.276713E+00
+ PKER_RACCS ( 38, 34) = 0.283296E+00
+ PKER_RACCS ( 38, 35) = 0.288655E+00
+ PKER_RACCS ( 38, 36) = 0.293021E+00
+ PKER_RACCS ( 38, 37) = 0.296581E+00
+ PKER_RACCS ( 38, 38) = 0.299489E+00
+ PKER_RACCS ( 38, 39) = 0.301865E+00
+ PKER_RACCS ( 38, 40) = 0.303809E+00
+ PKER_RACCS ( 39, 1) = 0.154751E+02
+ PKER_RACCS ( 39, 2) = 0.127692E+02
+ PKER_RACCS ( 39, 3) = 0.105290E+02
+ PKER_RACCS ( 39, 4) = 0.867437E+01
+ PKER_RACCS ( 39, 5) = 0.713890E+01
+ PKER_RACCS ( 39, 6) = 0.586761E+01
+ PKER_RACCS ( 39, 7) = 0.481503E+01
+ PKER_RACCS ( 39, 8) = 0.394348E+01
+ PKER_RACCS ( 39, 9) = 0.322176E+01
+ PKER_RACCS ( 39, 10) = 0.262407E+01
+ PKER_RACCS ( 39, 11) = 0.212901E+01
+ PKER_RACCS ( 39, 12) = 0.171888E+01
+ PKER_RACCS ( 39, 13) = 0.137901E+01
+ PKER_RACCS ( 39, 14) = 0.109726E+01
+ PKER_RACCS ( 39, 15) = 0.863575E+00
+ PKER_RACCS ( 39, 16) = 0.669676E+00
+ PKER_RACCS ( 39, 17) = 0.508853E+00
+ PKER_RACCS ( 39, 18) = 0.375974E+00
+ PKER_RACCS ( 39, 19) = 0.267742E+00
+ PKER_RACCS ( 39, 20) = 0.183133E+00
+ PKER_RACCS ( 39, 21) = 0.123400E+00
+ PKER_RACCS ( 39, 22) = 0.903156E-01
+ PKER_RACCS ( 39, 23) = 0.833086E-01
+ PKER_RACCS ( 39, 24) = 0.969146E-01
+ PKER_RACCS ( 39, 25) = 0.122138E+00
+ PKER_RACCS ( 39, 26) = 0.150523E+00
+ PKER_RACCS ( 39, 27) = 0.176926E+00
+ PKER_RACCS ( 39, 28) = 0.199507E+00
+ PKER_RACCS ( 39, 29) = 0.218223E+00
+ PKER_RACCS ( 39, 30) = 0.233578E+00
+ PKER_RACCS ( 39, 31) = 0.246119E+00
+ PKER_RACCS ( 39, 32) = 0.256334E+00
+ PKER_RACCS ( 39, 33) = 0.264645E+00
+ PKER_RACCS ( 39, 34) = 0.271402E+00
+ PKER_RACCS ( 39, 35) = 0.276898E+00
+ PKER_RACCS ( 39, 36) = 0.281372E+00
+ PKER_RACCS ( 39, 37) = 0.285017E+00
+ PKER_RACCS ( 39, 38) = 0.287991E+00
+ PKER_RACCS ( 39, 39) = 0.290418E+00
+ PKER_RACCS ( 39, 40) = 0.292402E+00
+ PKER_RACCS ( 40, 1) = 0.154845E+02
+ PKER_RACCS ( 40, 2) = 0.127787E+02
+ PKER_RACCS ( 40, 3) = 0.105386E+02
+ PKER_RACCS ( 40, 4) = 0.868401E+01
+ PKER_RACCS ( 40, 5) = 0.714861E+01
+ PKER_RACCS ( 40, 6) = 0.587741E+01
+ PKER_RACCS ( 40, 7) = 0.482491E+01
+ PKER_RACCS ( 40, 8) = 0.395346E+01
+ PKER_RACCS ( 40, 9) = 0.323185E+01
+ PKER_RACCS ( 40, 10) = 0.263428E+01
+ PKER_RACCS ( 40, 11) = 0.213936E+01
+ PKER_RACCS ( 40, 12) = 0.172939E+01
+ PKER_RACCS ( 40, 13) = 0.138969E+01
+ PKER_RACCS ( 40, 14) = 0.110814E+01
+ PKER_RACCS ( 40, 15) = 0.874679E+00
+ PKER_RACCS ( 40, 16) = 0.681005E+00
+ PKER_RACCS ( 40, 17) = 0.520355E+00
+ PKER_RACCS ( 40, 18) = 0.387440E+00
+ PKER_RACCS ( 40, 19) = 0.278646E+00
+ PKER_RACCS ( 40, 20) = 0.192385E+00
+ PKER_RACCS ( 40, 21) = 0.129387E+00
+ PKER_RACCS ( 40, 22) = 0.915189E-01
+ PKER_RACCS ( 40, 23) = 0.790250E-01
+ PKER_RACCS ( 40, 24) = 0.878891E-01
+ PKER_RACCS ( 40, 25) = 0.110149E+00
+ PKER_RACCS ( 40, 26) = 0.137298E+00
+ PKER_RACCS ( 40, 27) = 0.163493E+00
+ PKER_RACCS ( 40, 28) = 0.186290E+00
+ PKER_RACCS ( 40, 29) = 0.205334E+00
+ PKER_RACCS ( 40, 30) = 0.221025E+00
+ PKER_RACCS ( 40, 31) = 0.233879E+00
+ PKER_RACCS ( 40, 32) = 0.244367E+00
+ PKER_RACCS ( 40, 33) = 0.252907E+00
+ PKER_RACCS ( 40, 34) = 0.259851E+00
+ PKER_RACCS ( 40, 35) = 0.265497E+00
+ PKER_RACCS ( 40, 36) = 0.270089E+00
+ PKER_RACCS ( 40, 37) = 0.273828E+00
+ PKER_RACCS ( 40, 38) = 0.276873E+00
+ PKER_RACCS ( 40, 39) = 0.279358E+00
+ PKER_RACCS ( 40, 40) = 0.281386E+00
END IF
!
IF( PRESENT(PKER_SACCRG) ) THEN
- PKER_SACCRG( 1, 1) = 0.403346E-01
- PKER_SACCRG( 1, 2) = 0.679214E-01
- PKER_SACCRG( 1, 3) = 0.105303E+00
- PKER_SACCRG( 1, 4) = 0.191884E+00
- PKER_SACCRG( 1, 5) = 0.356499E+00
- PKER_SACCRG( 1, 6) = 0.645361E+00
- PKER_SACCRG( 1, 7) = 0.109656E+01
- PKER_SACCRG( 1, 8) = 0.172233E+01
- PKER_SACCRG( 1, 9) = 0.249565E+01
- PKER_SACCRG( 1, 10) = 0.335221E+01
- PKER_SACCRG( 1, 11) = 0.421020E+01
- PKER_SACCRG( 1, 12) = 0.500014E+01
- PKER_SACCRG( 1, 13) = 0.568528E+01
- PKER_SACCRG( 1, 14) = 0.626334E+01
- PKER_SACCRG( 1, 15) = 0.675253E+01
- PKER_SACCRG( 1, 16) = 0.717505E+01
- PKER_SACCRG( 1, 17) = 0.754648E+01
- PKER_SACCRG( 1, 18) = 0.787497E+01
- PKER_SACCRG( 1, 19) = 0.816359E+01
- PKER_SACCRG( 1, 20) = 0.839531E+01
- PKER_SACCRG( 1, 21) = 0.861132E+01
- PKER_SACCRG( 1, 22) = 0.879448E+01
- PKER_SACCRG( 1, 23) = 0.891918E+01
- PKER_SACCRG( 1, 24) = 0.905216E+01
- PKER_SACCRG( 1, 25) = 0.913347E+01
- PKER_SACCRG( 1, 26) = 0.920118E+01
- PKER_SACCRG( 1, 27) = 0.926006E+01
- PKER_SACCRG( 1, 28) = 0.928744E+01
- PKER_SACCRG( 1, 29) = 0.931698E+01
- PKER_SACCRG( 1, 30) = 0.934860E+01
- PKER_SACCRG( 1, 31) = 0.936637E+01
- PKER_SACCRG( 1, 32) = 0.937727E+01
- PKER_SACCRG( 1, 33) = 0.938596E+01
- PKER_SACCRG( 1, 34) = 0.938735E+01
- PKER_SACCRG( 1, 35) = 0.939455E+01
- PKER_SACCRG( 1, 36) = 0.940989E+01
- PKER_SACCRG( 1, 37) = 0.000000E+00
- PKER_SACCRG( 1, 38) = 0.000000E+00
- PKER_SACCRG( 1, 39) = 0.000000E+00
- PKER_SACCRG( 1, 40) = 0.000000E+00
- PKER_SACCRG( 2, 1) = 0.232705E-01
- PKER_SACCRG( 2, 2) = 0.335875E-01
- PKER_SACCRG( 2, 3) = 0.565187E-01
- PKER_SACCRG( 2, 4) = 0.875474E-01
- PKER_SACCRG( 2, 5) = 0.159343E+00
- PKER_SACCRG( 2, 6) = 0.295630E+00
- PKER_SACCRG( 2, 7) = 0.534289E+00
- PKER_SACCRG( 2, 8) = 0.906069E+00
- PKER_SACCRG( 2, 9) = 0.141997E+01
- PKER_SACCRG( 2, 10) = 0.205255E+01
- PKER_SACCRG( 2, 11) = 0.274997E+01
- PKER_SACCRG( 2, 12) = 0.344544E+01
- PKER_SACCRG( 2, 13) = 0.408314E+01
- PKER_SACCRG( 2, 14) = 0.463534E+01
- PKER_SACCRG( 2, 15) = 0.510239E+01
- PKER_SACCRG( 2, 16) = 0.550069E+01
- PKER_SACCRG( 2, 17) = 0.584817E+01
- PKER_SACCRG( 2, 18) = 0.615710E+01
- PKER_SACCRG( 2, 19) = 0.643286E+01
- PKER_SACCRG( 2, 20) = 0.665945E+01
- PKER_SACCRG( 2, 21) = 0.687323E+01
- PKER_SACCRG( 2, 22) = 0.705716E+01
- PKER_SACCRG( 2, 23) = 0.718460E+01
- PKER_SACCRG( 2, 24) = 0.732011E+01
- PKER_SACCRG( 2, 25) = 0.740395E+01
- PKER_SACCRG( 2, 26) = 0.747372E+01
- PKER_SACCRG( 2, 27) = 0.753430E+01
- PKER_SACCRG( 2, 28) = 0.756268E+01
- PKER_SACCRG( 2, 29) = 0.759307E+01
- PKER_SACCRG( 2, 30) = 0.762550E+01
- PKER_SACCRG( 2, 31) = 0.764373E+01
- PKER_SACCRG( 2, 32) = 0.765493E+01
- PKER_SACCRG( 2, 33) = 0.766384E+01
- PKER_SACCRG( 2, 34) = 0.766528E+01
- PKER_SACCRG( 2, 35) = 0.767265E+01
- PKER_SACCRG( 2, 36) = 0.768832E+01
- PKER_SACCRG( 2, 37) = 0.000000E+00
- PKER_SACCRG( 2, 38) = 0.000000E+00
- PKER_SACCRG( 2, 39) = 0.000000E+00
- PKER_SACCRG( 2, 40) = 0.000000E+00
- PKER_SACCRG( 3, 1) = 0.183931E-01
- PKER_SACCRG( 3, 2) = 0.194765E-01
- PKER_SACCRG( 3, 3) = 0.280964E-01
- PKER_SACCRG( 3, 4) = 0.472341E-01
- PKER_SACCRG( 3, 5) = 0.730819E-01
- PKER_SACCRG( 3, 6) = 0.132827E+00
- PKER_SACCRG( 3, 7) = 0.245992E+00
- PKER_SACCRG( 3, 8) = 0.443632E+00
- PKER_SACCRG( 3, 9) = 0.750424E+00
- PKER_SACCRG( 3, 10) = 0.117268E+01
- PKER_SACCRG( 3, 11) = 0.168954E+01
- PKER_SACCRG( 3, 12) = 0.225593E+01
- PKER_SACCRG( 3, 13) = 0.281701E+01
- PKER_SACCRG( 3, 14) = 0.332851E+01
- PKER_SACCRG( 3, 15) = 0.377021E+01
- PKER_SACCRG( 3, 16) = 0.414495E+01
- PKER_SACCRG( 3, 17) = 0.446759E+01
- PKER_SACCRG( 3, 18) = 0.475325E+01
- PKER_SACCRG( 3, 19) = 0.501103E+01
- PKER_SACCRG( 3, 20) = 0.522794E+01
- PKER_SACCRG( 3, 21) = 0.543570E+01
- PKER_SACCRG( 3, 22) = 0.561785E+01
- PKER_SACCRG( 3, 23) = 0.574685E+01
- PKER_SACCRG( 3, 24) = 0.588391E+01
- PKER_SACCRG( 3, 25) = 0.597001E+01
- PKER_SACCRG( 3, 26) = 0.604169E+01
- PKER_SACCRG( 3, 27) = 0.610387E+01
- PKER_SACCRG( 3, 28) = 0.613328E+01
- PKER_SACCRG( 3, 29) = 0.616451E+01
- PKER_SACCRG( 3, 30) = 0.619771E+01
- PKER_SACCRG( 3, 31) = 0.621641E+01
- PKER_SACCRG( 3, 32) = 0.622789E+01
- PKER_SACCRG( 3, 33) = 0.623702E+01
- PKER_SACCRG( 3, 34) = 0.623852E+01
- PKER_SACCRG( 3, 35) = 0.624605E+01
- PKER_SACCRG( 3, 36) = 0.626204E+01
- PKER_SACCRG( 3, 37) = 0.000000E+00
- PKER_SACCRG( 3, 38) = 0.000000E+00
- PKER_SACCRG( 3, 39) = 0.000000E+00
- PKER_SACCRG( 3, 40) = 0.000000E+00
- PKER_SACCRG( 4, 1) = 0.114393E-01
- PKER_SACCRG( 4, 2) = 0.155094E-01
- PKER_SACCRG( 4, 3) = 0.164106E-01
- PKER_SACCRG( 4, 4) = 0.236526E-01
- PKER_SACCRG( 4, 5) = 0.397213E-01
- PKER_SACCRG( 4, 6) = 0.613666E-01
- PKER_SACCRG( 4, 7) = 0.111326E+00
- PKER_SACCRG( 4, 8) = 0.205685E+00
- PKER_SACCRG( 4, 9) = 0.369928E+00
- PKER_SACCRG( 4, 10) = 0.623698E+00
- PKER_SACCRG( 4, 11) = 0.970783E+00
- PKER_SACCRG( 4, 12) = 0.139255E+01
- PKER_SACCRG( 4, 13) = 0.185072E+01
- PKER_SACCRG( 4, 14) = 0.230015E+01
- PKER_SACCRG( 4, 15) = 0.270627E+01
- PKER_SACCRG( 4, 16) = 0.305559E+01
- PKER_SACCRG( 4, 17) = 0.335340E+01
- PKER_SACCRG( 4, 18) = 0.361392E+01
- PKER_SACCRG( 4, 19) = 0.384970E+01
- PKER_SACCRG( 4, 20) = 0.405246E+01
- PKER_SACCRG( 4, 21) = 0.425002E+01
- PKER_SACCRG( 4, 22) = 0.442724E+01
- PKER_SACCRG( 4, 23) = 0.455616E+01
- PKER_SACCRG( 4, 24) = 0.469337E+01
- PKER_SACCRG( 4, 25) = 0.478122E+01
- PKER_SACCRG( 4, 26) = 0.485452E+01
- PKER_SACCRG( 4, 27) = 0.491813E+01
- PKER_SACCRG( 4, 28) = 0.494855E+01
- PKER_SACCRG( 4, 29) = 0.498058E+01
- PKER_SACCRG( 4, 30) = 0.501450E+01
- PKER_SACCRG( 4, 31) = 0.503365E+01
- PKER_SACCRG( 4, 32) = 0.504542E+01
- PKER_SACCRG( 4, 33) = 0.505475E+01
- PKER_SACCRG( 4, 34) = 0.505631E+01
- PKER_SACCRG( 4, 35) = 0.506399E+01
- PKER_SACCRG( 4, 36) = 0.508029E+01
- PKER_SACCRG( 4, 37) = 0.000000E+00
- PKER_SACCRG( 4, 38) = 0.000000E+00
- PKER_SACCRG( 4, 39) = 0.000000E+00
- PKER_SACCRG( 4, 40) = 0.000000E+00
- PKER_SACCRG( 5, 1) = 0.885989E-02
- PKER_SACCRG( 5, 2) = 0.975839E-02
- PKER_SACCRG( 5, 3) = 0.132035E-01
- PKER_SACCRG( 5, 4) = 0.139558E-01
- PKER_SACCRG( 5, 5) = 0.200916E-01
- PKER_SACCRG( 5, 6) = 0.296110E-01
- PKER_SACCRG( 5, 7) = 0.519536E-01
- PKER_SACCRG( 5, 8) = 0.940172E-01
- PKER_SACCRG( 5, 9) = 0.173205E+00
- PKER_SACCRG( 5, 10) = 0.310322E+00
- PKER_SACCRG( 5, 11) = 0.520780E+00
- PKER_SACCRG( 5, 12) = 0.806566E+00
- PKER_SACCRG( 5, 13) = 0.115020E+01
- PKER_SACCRG( 5, 14) = 0.151872E+01
- PKER_SACCRG( 5, 15) = 0.187497E+01
- PKER_SACCRG( 5, 16) = 0.219377E+01
- PKER_SACCRG( 5, 17) = 0.246641E+01
- PKER_SACCRG( 5, 18) = 0.270162E+01
- PKER_SACCRG( 5, 19) = 0.291200E+01
- PKER_SACCRG( 5, 20) = 0.309558E+01
- PKER_SACCRG( 5, 21) = 0.327751E+01
- PKER_SACCRG( 5, 22) = 0.344551E+01
- PKER_SACCRG( 5, 23) = 0.357190E+01
- PKER_SACCRG( 5, 24) = 0.370734E+01
- PKER_SACCRG( 5, 25) = 0.379614E+01
- PKER_SACCRG( 5, 26) = 0.387059E+01
- PKER_SACCRG( 5, 27) = 0.393531E+01
- PKER_SACCRG( 5, 28) = 0.396669E+01
- PKER_SACCRG( 5, 29) = 0.399944E+01
- PKER_SACCRG( 5, 30) = 0.403397E+01
- PKER_SACCRG( 5, 31) = 0.405353E+01
- PKER_SACCRG( 5, 32) = 0.406555E+01
- PKER_SACCRG( 5, 33) = 0.407508E+01
- PKER_SACCRG( 5, 34) = 0.407671E+01
- PKER_SACCRG( 5, 35) = 0.408453E+01
- PKER_SACCRG( 5, 36) = 0.410107E+01
- PKER_SACCRG( 5, 37) = 0.000000E+00
- PKER_SACCRG( 5, 38) = 0.000000E+00
- PKER_SACCRG( 5, 39) = 0.000000E+00
- PKER_SACCRG( 5, 40) = 0.000000E+00
- PKER_SACCRG( 6, 1) = 0.939278E-02
- PKER_SACCRG( 6, 2) = 0.770370E-02
- PKER_SACCRG( 6, 3) = 0.844219E-02
- PKER_SACCRG( 6, 4) = 0.113902E-01
- PKER_SACCRG( 6, 5) = 0.120225E-01
- PKER_SACCRG( 6, 6) = 0.172828E-01
- PKER_SACCRG( 6, 7) = 0.254190E-01
- PKER_SACCRG( 6, 8) = 0.444876E-01
- PKER_SACCRG( 6, 9) = 0.802697E-01
- PKER_SACCRG( 6, 10) = 0.147308E+00
- PKER_SACCRG( 6, 11) = 0.262153E+00
- PKER_SACCRG( 6, 12) = 0.437891E+00
- PKER_SACCRG( 6, 13) = 0.673319E+00
- PKER_SACCRG( 6, 14) = 0.951922E+00
- PKER_SACCRG( 6, 15) = 0.124486E+01
- PKER_SACCRG( 6, 16) = 0.152378E+01
- PKER_SACCRG( 6, 17) = 0.176859E+01
- PKER_SACCRG( 6, 18) = 0.197911E+01
- PKER_SACCRG( 6, 19) = 0.216406E+01
- PKER_SACCRG( 6, 20) = 0.232602E+01
- PKER_SACCRG( 6, 21) = 0.248802E+01
- PKER_SACCRG( 6, 22) = 0.264189E+01
- PKER_SACCRG( 6, 23) = 0.276205E+01
- PKER_SACCRG( 6, 24) = 0.289262E+01
- PKER_SACCRG( 6, 25) = 0.298091E+01
- PKER_SACCRG( 6, 26) = 0.305566E+01
- PKER_SACCRG( 6, 27) = 0.312099E+01
- PKER_SACCRG( 6, 28) = 0.315321E+01
- PKER_SACCRG( 6, 29) = 0.318651E+01
- PKER_SACCRG( 6, 30) = 0.322151E+01
- PKER_SACCRG( 6, 31) = 0.324141E+01
- PKER_SACCRG( 6, 32) = 0.325366E+01
- PKER_SACCRG( 6, 33) = 0.326335E+01
- PKER_SACCRG( 6, 34) = 0.326504E+01
- PKER_SACCRG( 6, 35) = 0.327297E+01
- PKER_SACCRG( 6, 36) = 0.328972E+01
- PKER_SACCRG( 6, 37) = 0.000000E+00
- PKER_SACCRG( 6, 38) = 0.000000E+00
- PKER_SACCRG( 6, 39) = 0.000000E+00
- PKER_SACCRG( 6, 40) = 0.000000E+00
- PKER_SACCRG( 7, 1) = 0.197193E-02
- PKER_SACCRG( 7, 2) = 0.840926E-02
- PKER_SACCRG( 7, 3) = 0.684203E-02
- PKER_SACCRG( 7, 4) = 0.744934E-02
- PKER_SACCRG( 7, 5) = 0.100142E-01
- PKER_SACCRG( 7, 6) = 0.105435E-01
- PKER_SACCRG( 7, 7) = 0.151114E-01
- PKER_SACCRG( 7, 8) = 0.221799E-01
- PKER_SACCRG( 7, 9) = 0.387273E-01
- PKER_SACCRG( 7, 10) = 0.696342E-01
- PKER_SACCRG( 7, 11) = 0.126786E+00
- PKER_SACCRG( 7, 12) = 0.224173E+00
- PKER_SACCRG( 7, 13) = 0.371284E+00
- PKER_SACCRG( 7, 14) = 0.564401E+00
- PKER_SACCRG( 7, 15) = 0.787177E+00
- PKER_SACCRG( 7, 16) = 0.101687E+01
- PKER_SACCRG( 7, 17) = 0.122807E+01
- PKER_SACCRG( 7, 18) = 0.141258E+01
- PKER_SACCRG( 7, 19) = 0.157270E+01
- PKER_SACCRG( 7, 20) = 0.171283E+01
- PKER_SACCRG( 7, 21) = 0.185341E+01
- PKER_SACCRG( 7, 22) = 0.199032E+01
- PKER_SACCRG( 7, 23) = 0.210129E+01
- PKER_SACCRG( 7, 24) = 0.222356E+01
- PKER_SACCRG( 7, 25) = 0.230903E+01
- PKER_SACCRG( 7, 26) = 0.238240E+01
- PKER_SACCRG( 7, 27) = 0.244719E+01
- PKER_SACCRG( 7, 28) = 0.247983E+01
- PKER_SACCRG( 7, 29) = 0.251337E+01
- PKER_SACCRG( 7, 30) = 0.254858E+01
- PKER_SACCRG( 7, 31) = 0.256871E+01
- PKER_SACCRG( 7, 32) = 0.258114E+01
- PKER_SACCRG( 7, 33) = 0.259094E+01
- PKER_SACCRG( 7, 34) = 0.259270E+01
- PKER_SACCRG( 7, 35) = 0.260070E+01
- PKER_SACCRG( 7, 36) = 0.261756E+01
- PKER_SACCRG( 7, 37) = 0.000000E+00
- PKER_SACCRG( 7, 38) = 0.000000E+00
- PKER_SACCRG( 7, 39) = 0.000000E+00
- PKER_SACCRG( 7, 40) = 0.000000E+00
- PKER_SACCRG( 8, 1) = 0.287028E-02
- PKER_SACCRG( 8, 2) = 0.183962E-02
- PKER_SACCRG( 8, 3) = 0.778156E-02
- PKER_SACCRG( 8, 4) = 0.626956E-02
- PKER_SACCRG( 8, 5) = 0.676623E-02
- PKER_SACCRG( 8, 6) = 0.546166E-02
- PKER_SACCRG( 8, 7) = 0.943103E-02
- PKER_SACCRG( 8, 8) = 0.135380E-01
- PKER_SACCRG( 8, 9) = 0.198532E-01
- PKER_SACCRG( 8, 10) = 0.345712E-01
- PKER_SACCRG( 8, 11) = 0.614306E-01
- PKER_SACCRG( 8, 12) = 0.111431E+00
- PKER_SACCRG( 8, 13) = 0.195294E+00
- PKER_SACCRG( 8, 14) = 0.318747E+00
- PKER_SACCRG( 8, 15) = 0.475607E+00
- PKER_SACCRG( 8, 16) = 0.653793E+00
- PKER_SACCRG( 8, 17) = 0.827434E+00
- PKER_SACCRG( 8, 18) = 0.984457E+00
- PKER_SACCRG( 8, 19) = 0.111823E+01
- PKER_SACCRG( 8, 20) = 0.123445E+01
- PKER_SACCRG( 8, 21) = 0.135038E+01
- PKER_SACCRG( 8, 22) = 0.146703E+01
- PKER_SACCRG( 8, 23) = 0.156617E+01
- PKER_SACCRG( 8, 24) = 0.167765E+01
- PKER_SACCRG( 8, 25) = 0.175863E+01
- PKER_SACCRG( 8, 26) = 0.182918E+01
- PKER_SACCRG( 8, 27) = 0.189212E+01
- PKER_SACCRG( 8, 28) = 0.192450E+01
- PKER_SACCRG( 8, 29) = 0.195757E+01
- PKER_SACCRG( 8, 30) = 0.199227E+01
- PKER_SACCRG( 8, 31) = 0.201226E+01
- PKER_SACCRG( 8, 32) = 0.202464E+01
- PKER_SACCRG( 8, 33) = 0.203441E+01
- PKER_SACCRG( 8, 34) = 0.203619E+01
- PKER_SACCRG( 8, 35) = 0.204416E+01
- PKER_SACCRG( 8, 36) = 0.206100E+01
- PKER_SACCRG( 8, 37) = 0.000000E+00
- PKER_SACCRG( 8, 38) = 0.000000E+00
- PKER_SACCRG( 8, 39) = 0.000000E+00
- PKER_SACCRG( 8, 40) = 0.000000E+00
- PKER_SACCRG( 9, 1) = 0.227973E-03
- PKER_SACCRG( 9, 2) = 0.282707E-02
- PKER_SACCRG( 9, 3) = 0.180146E-02
- PKER_SACCRG( 9, 4) = 0.195291E-02
- PKER_SACCRG( 9, 5) = 0.601462E-02
- PKER_SACCRG( 9, 6) = 0.639847E-02
- PKER_SACCRG( 9, 7) = 0.503409E-02
- PKER_SACCRG( 9, 8) = 0.874760E-02
- PKER_SACCRG( 9, 9) = 0.125924E-01
- PKER_SACCRG( 9, 10) = 0.187098E-01
- PKER_SACCRG( 9, 11) = 0.315437E-01
- PKER_SACCRG( 9, 12) = 0.563136E-01
- PKER_SACCRG( 9, 13) = 0.100517E+00
- PKER_SACCRG( 9, 14) = 0.173643E+00
- PKER_SACCRG( 9, 15) = 0.275822E+00
- PKER_SACCRG( 9, 16) = 0.405835E+00
- PKER_SACCRG( 9, 17) = 0.540959E+00
- PKER_SACCRG( 9, 18) = 0.670349E+00
- PKER_SACCRG( 9, 19) = 0.779801E+00
- PKER_SACCRG( 9, 20) = 0.873659E+00
- PKER_SACCRG( 9, 21) = 0.964651E+00
- PKER_SACCRG( 9, 22) = 0.105792E+01
- PKER_SACCRG( 9, 23) = 0.114069E+01
- PKER_SACCRG( 9, 24) = 0.123707E+01
- PKER_SACCRG( 9, 25) = 0.131072E+01
- PKER_SACCRG( 9, 26) = 0.137674E+01
- PKER_SACCRG( 9, 27) = 0.143675E+01
- PKER_SACCRG( 9, 28) = 0.146856E+01
- PKER_SACCRG( 9, 29) = 0.150083E+01
- PKER_SACCRG( 9, 30) = 0.153465E+01
- PKER_SACCRG( 9, 31) = 0.155430E+01
- PKER_SACCRG( 9, 32) = 0.156652E+01
- PKER_SACCRG( 9, 33) = 0.157614E+01
- PKER_SACCRG( 9, 34) = 0.157797E+01
- PKER_SACCRG( 9, 35) = 0.158578E+01
- PKER_SACCRG( 9, 36) = 0.160221E+01
- PKER_SACCRG( 9, 37) = 0.000000E+00
- PKER_SACCRG( 9, 38) = 0.000000E+00
- PKER_SACCRG( 9, 39) = 0.000000E+00
- PKER_SACCRG( 9, 40) = 0.000000E+00
- PKER_SACCRG( 10, 1) = 0.836884E-05
- PKER_SACCRG( 10, 2) = 0.241023E-03
- PKER_SACCRG( 10, 3) = 0.298555E-02
- PKER_SACCRG( 10, 4) = 0.189539E-02
- PKER_SACCRG( 10, 5) = 0.204013E-02
- PKER_SACCRG( 10, 6) = 0.618434E-02
- PKER_SACCRG( 10, 7) = 0.624911E-02
- PKER_SACCRG( 10, 8) = 0.493580E-02
- PKER_SACCRG( 10, 9) = 0.859150E-02
- PKER_SACCRG( 10, 10) = 0.132122E-01
- PKER_SACCRG( 10, 11) = 0.178104E-01
- PKER_SACCRG( 10, 12) = 0.313842E-01
- PKER_SACCRG( 10, 13) = 0.543137E-01
- PKER_SACCRG( 10, 14) = 0.957524E-01
- PKER_SACCRG( 10, 15) = 0.158366E+00
- PKER_SACCRG( 10, 16) = 0.250247E+00
- PKER_SACCRG( 10, 17) = 0.351339E+00
- PKER_SACCRG( 10, 18) = 0.455229E+00
- PKER_SACCRG( 10, 19) = 0.541376E+00
- PKER_SACCRG( 10, 20) = 0.613508E+00
- PKER_SACCRG( 10, 21) = 0.679512E+00
- PKER_SACCRG( 10, 22) = 0.748499E+00
- PKER_SACCRG( 10, 23) = 0.812917E+00
- PKER_SACCRG( 10, 24) = 0.891097E+00
- PKER_SACCRG( 10, 25) = 0.953782E+00
- PKER_SACCRG( 10, 26) = 0.101178E+01
- PKER_SACCRG( 10, 27) = 0.106610E+01
- PKER_SACCRG( 10, 28) = 0.109586E+01
- PKER_SACCRG( 10, 29) = 0.112638E+01
- PKER_SACCRG( 10, 30) = 0.115867E+01
- PKER_SACCRG( 10, 31) = 0.117769E+01
- PKER_SACCRG( 10, 32) = 0.118959E+01
- PKER_SACCRG( 10, 33) = 0.119896E+01
- PKER_SACCRG( 10, 34) = 0.120079E+01
- PKER_SACCRG( 10, 35) = 0.120838E+01
- PKER_SACCRG( 10, 36) = 0.122431E+01
- PKER_SACCRG( 10, 37) = 0.000000E+00
- PKER_SACCRG( 10, 38) = 0.000000E+00
- PKER_SACCRG( 10, 39) = 0.000000E+00
- PKER_SACCRG( 10, 40) = 0.000000E+00
- PKER_SACCRG( 11, 1) = 0.000000E+00
- PKER_SACCRG( 11, 2) = 0.984489E-05
- PKER_SACCRG( 11, 3) = 0.280498E-03
- PKER_SACCRG( 11, 4) = 0.349195E-02
- PKER_SACCRG( 11, 5) = 0.223140E-02
- PKER_SACCRG( 11, 6) = 0.240058E-02
- PKER_SACCRG( 11, 7) = 0.683543E-02
- PKER_SACCRG( 11, 8) = 0.692007E-02
- PKER_SACCRG( 11, 9) = 0.514199E-02
- PKER_SACCRG( 11, 10) = 0.114977E-01
- PKER_SACCRG( 11, 11) = 0.109728E-01
- PKER_SACCRG( 11, 12) = 0.211442E-01
- PKER_SACCRG( 11, 13) = 0.346586E-01
- PKER_SACCRG( 11, 14) = 0.591042E-01
- PKER_SACCRG( 11, 15) = 0.961841E-01
- PKER_SACCRG( 11, 16) = 0.162562E+00
- PKER_SACCRG( 11, 17) = 0.237843E+00
- PKER_SACCRG( 11, 18) = 0.321714E+00
- PKER_SACCRG( 11, 19) = 0.387542E+00
- PKER_SACCRG( 11, 20) = 0.440755E+00
- PKER_SACCRG( 11, 21) = 0.483048E+00
- PKER_SACCRG( 11, 22) = 0.527421E+00
- PKER_SACCRG( 11, 23) = 0.571319E+00
- PKER_SACCRG( 11, 24) = 0.628617E+00
- PKER_SACCRG( 11, 25) = 0.677728E+00
- PKER_SACCRG( 11, 26) = 0.725464E+00
- PKER_SACCRG( 11, 27) = 0.771793E+00
- PKER_SACCRG( 11, 28) = 0.798056E+00
- PKER_SACCRG( 11, 29) = 0.825035E+00
- PKER_SACCRG( 11, 30) = 0.853830E+00
- PKER_SACCRG( 11, 31) = 0.871001E+00
- PKER_SACCRG( 11, 32) = 0.881834E+00
- PKER_SACCRG( 11, 33) = 0.890401E+00
- PKER_SACCRG( 11, 34) = 0.892044E+00
- PKER_SACCRG( 11, 35) = 0.899026E+00
- PKER_SACCRG( 11, 36) = 0.913978E+00
- PKER_SACCRG( 11, 37) = 0.000000E+00
- PKER_SACCRG( 11, 38) = 0.000000E+00
- PKER_SACCRG( 11, 39) = 0.000000E+00
- PKER_SACCRG( 11, 40) = 0.000000E+00
- PKER_SACCRG( 12, 1) = 0.000000E+00
- PKER_SACCRG( 12, 2) = 0.000000E+00
- PKER_SACCRG( 12, 3) = 0.131525E-04
- PKER_SACCRG( 12, 4) = 0.376734E-03
- PKER_SACCRG( 12, 5) = 0.481352E-02
- PKER_SACCRG( 12, 6) = 0.318057E-02
- PKER_SACCRG( 12, 7) = 0.345470E-02
- PKER_SACCRG( 12, 8) = 0.420666E-02
- PKER_SACCRG( 12, 9) = 0.383001E-02
- PKER_SACCRG( 12, 10) = 0.110848E-01
- PKER_SACCRG( 12, 11) = 0.934829E-02
- PKER_SACCRG( 12, 12) = 0.183949E-01
- PKER_SACCRG( 12, 13) = 0.295675E-01
- PKER_SACCRG( 12, 14) = 0.470543E-01
- PKER_SACCRG( 12, 15) = 0.695886E-01
- PKER_SACCRG( 12, 16) = 0.122527E+00
- PKER_SACCRG( 12, 17) = 0.181754E+00
- PKER_SACCRG( 12, 18) = 0.253508E+00
- PKER_SACCRG( 12, 19) = 0.304324E+00
- PKER_SACCRG( 12, 20) = 0.342444E+00
- PKER_SACCRG( 12, 21) = 0.363399E+00
- PKER_SACCRG( 12, 22) = 0.384221E+00
- PKER_SACCRG( 12, 23) = 0.406941E+00
- PKER_SACCRG( 12, 24) = 0.441951E+00
- PKER_SACCRG( 12, 25) = 0.474892E+00
- PKER_SACCRG( 12, 26) = 0.509393E+00
- PKER_SACCRG( 12, 27) = 0.545053E+00
- PKER_SACCRG( 12, 28) = 0.566107E+00
- PKER_SACCRG( 12, 29) = 0.588592E+00
- PKER_SACCRG( 12, 30) = 0.613355E+00
- PKER_SACCRG( 12, 31) = 0.628544E+00
- PKER_SACCRG( 12, 32) = 0.638273E+00
- PKER_SACCRG( 12, 33) = 0.646003E+00
- PKER_SACCRG( 12, 34) = 0.647602E+00
- PKER_SACCRG( 12, 35) = 0.653888E+00
- PKER_SACCRG( 12, 36) = 0.667119E+00
- PKER_SACCRG( 12, 37) = 0.000000E+00
- PKER_SACCRG( 12, 38) = 0.000000E+00
- PKER_SACCRG( 12, 39) = 0.000000E+00
- PKER_SACCRG( 12, 40) = 0.000000E+00
- PKER_SACCRG( 13, 1) = 0.000000E+00
- PKER_SACCRG( 13, 2) = 0.000000E+00
- PKER_SACCRG( 13, 3) = 0.715754E-07
- PKER_SACCRG( 13, 4) = 0.213213E-04
- PKER_SACCRG( 13, 5) = 0.638125E-03
- PKER_SACCRG( 13, 6) = 0.842445E-03
- PKER_SACCRG( 13, 7) = 0.719221E-02
- PKER_SACCRG( 13, 8) = 0.932081E-02
- PKER_SACCRG( 13, 9) = 0.442957E-02
- PKER_SACCRG( 13, 10) = 0.154869E-01
- PKER_SACCRG( 13, 11) = 0.137909E-01
- PKER_SACCRG( 13, 12) = 0.248513E-01
- PKER_SACCRG( 13, 13) = 0.394496E-01
- PKER_SACCRG( 13, 14) = 0.513911E-01
- PKER_SACCRG( 13, 15) = 0.661668E-01
- PKER_SACCRG( 13, 16) = 0.115529E+00
- PKER_SACCRG( 13, 17) = 0.166381E+00
- PKER_SACCRG( 13, 18) = 0.234091E+00
- PKER_SACCRG( 13, 19) = 0.276281E+00
- PKER_SACCRG( 13, 20) = 0.304686E+00
- PKER_SACCRG( 13, 21) = 0.307989E+00
- PKER_SACCRG( 13, 22) = 0.307891E+00
- PKER_SACCRG( 13, 23) = 0.310412E+00
- PKER_SACCRG( 13, 24) = 0.323293E+00
- PKER_SACCRG( 13, 25) = 0.338766E+00
- PKER_SACCRG( 13, 26) = 0.358236E+00
- PKER_SACCRG( 13, 27) = 0.380952E+00
- PKER_SACCRG( 13, 28) = 0.395254E+00
- PKER_SACCRG( 13, 29) = 0.411396E+00
- PKER_SACCRG( 13, 30) = 0.429868E+00
- PKER_SACCRG( 13, 31) = 0.441480E+00
- PKER_SACCRG( 13, 32) = 0.449014E+00
- PKER_SACCRG( 13, 33) = 0.455042E+00
- PKER_SACCRG( 13, 34) = 0.456301E+00
- PKER_SACCRG( 13, 35) = 0.461238E+00
- PKER_SACCRG( 13, 36) = 0.471725E+00
- PKER_SACCRG( 13, 37) = 0.000000E+00
- PKER_SACCRG( 13, 38) = 0.000000E+00
- PKER_SACCRG( 13, 39) = 0.000000E+00
- PKER_SACCRG( 13, 40) = 0.000000E+00
- PKER_SACCRG( 14, 1) = 0.000000E+00
- PKER_SACCRG( 14, 2) = 0.000000E+00
- PKER_SACCRG( 14, 3) = 0.000000E+00
- PKER_SACCRG( 14, 4) = 0.381946E-06
- PKER_SACCRG( 14, 5) = 0.473573E-04
- PKER_SACCRG( 14, 6) = 0.165120E-02
- PKER_SACCRG( 14, 7) = 0.389733E-02
- PKER_SACCRG( 14, 8) = 0.389488E-01
- PKER_SACCRG( 14, 9) = 0.960356E-02
- PKER_SACCRG( 14, 10) = 0.289006E-01
- PKER_SACCRG( 14, 11) = 0.219911E-01
- PKER_SACCRG( 14, 12) = 0.526837E-01
- PKER_SACCRG( 14, 13) = 0.654887E-01
- PKER_SACCRG( 14, 14) = 0.683643E-01
- PKER_SACCRG( 14, 15) = 0.802145E-01
- PKER_SACCRG( 14, 16) = 0.134652E+00
- PKER_SACCRG( 14, 17) = 0.180678E+00
- PKER_SACCRG( 14, 18) = 0.248857E+00
- PKER_SACCRG( 14, 19) = 0.287693E+00
- PKER_SACCRG( 14, 20) = 0.311977E+00
- PKER_SACCRG( 14, 21) = 0.302501E+00
- PKER_SACCRG( 14, 22) = 0.285666E+00
- PKER_SACCRG( 14, 23) = 0.270663E+00
- PKER_SACCRG( 14, 24) = 0.263508E+00
- PKER_SACCRG( 14, 25) = 0.261858E+00
- PKER_SACCRG( 14, 26) = 0.265704E+00
- PKER_SACCRG( 14, 27) = 0.274260E+00
- PKER_SACCRG( 14, 28) = 0.280343E+00
- PKER_SACCRG( 14, 29) = 0.288745E+00
- PKER_SACCRG( 14, 30) = 0.299555E+00
- PKER_SACCRG( 14, 31) = 0.306742E+00
- PKER_SACCRG( 14, 32) = 0.311519E+00
- PKER_SACCRG( 14, 33) = 0.315446E+00
- PKER_SACCRG( 14, 34) = 0.316143E+00
- PKER_SACCRG( 14, 35) = 0.319453E+00
- PKER_SACCRG( 14, 36) = 0.326846E+00
- PKER_SACCRG( 14, 37) = 0.000000E+00
- PKER_SACCRG( 14, 38) = 0.000000E+00
- PKER_SACCRG( 14, 39) = 0.000000E+00
- PKER_SACCRG( 14, 40) = 0.000000E+00
- PKER_SACCRG( 15, 1) = 0.000000E+00
- PKER_SACCRG( 15, 2) = 0.000000E+00
- PKER_SACCRG( 15, 3) = 0.000000E+00
- PKER_SACCRG( 15, 4) = 0.000000E+00
- PKER_SACCRG( 15, 5) = 0.156840E-05
- PKER_SACCRG( 15, 6) = 0.190758E-03
- PKER_SACCRG( 15, 7) = 0.213304E-01
- PKER_SACCRG( 15, 8) = 0.441574E-01
- PKER_SACCRG( 15, 9) = 0.400468E-01
- PKER_SACCRG( 15, 10) = 0.704682E-01
- PKER_SACCRG( 15, 11) = 0.469944E-01
- PKER_SACCRG( 15, 12) = 0.981183E-01
- PKER_SACCRG( 15, 13) = 0.100527E+00
- PKER_SACCRG( 15, 14) = 0.109911E+00
- PKER_SACCRG( 15, 15) = 0.122766E+00
- PKER_SACCRG( 15, 16) = 0.166781E+00
- PKER_SACCRG( 15, 17) = 0.213821E+00
- PKER_SACCRG( 15, 18) = 0.285192E+00
- PKER_SACCRG( 15, 19) = 0.323590E+00
- PKER_SACCRG( 15, 20) = 0.348069E+00
- PKER_SACCRG( 15, 21) = 0.330921E+00
- PKER_SACCRG( 15, 22) = 0.302486E+00
- PKER_SACCRG( 15, 23) = 0.274134E+00
- PKER_SACCRG( 15, 24) = 0.250992E+00
- PKER_SACCRG( 15, 25) = 0.234616E+00
- PKER_SACCRG( 15, 26) = 0.224211E+00
- PKER_SACCRG( 15, 27) = 0.219091E+00
- PKER_SACCRG( 15, 28) = 0.216667E+00
- PKER_SACCRG( 15, 29) = 0.216954E+00
- PKER_SACCRG( 15, 30) = 0.219635E+00
- PKER_SACCRG( 15, 31) = 0.221903E+00
- PKER_SACCRG( 15, 32) = 0.223652E+00
- PKER_SACCRG( 15, 33) = 0.225260E+00
- PKER_SACCRG( 15, 34) = 0.225539E+00
- PKER_SACCRG( 15, 35) = 0.227017E+00
- PKER_SACCRG( 15, 36) = 0.230425E+00
- PKER_SACCRG( 15, 37) = 0.000000E+00
- PKER_SACCRG( 15, 38) = 0.000000E+00
- PKER_SACCRG( 15, 39) = 0.000000E+00
- PKER_SACCRG( 15, 40) = 0.000000E+00
- PKER_SACCRG( 16, 1) = 0.000000E+00
- PKER_SACCRG( 16, 2) = 0.000000E+00
- PKER_SACCRG( 16, 3) = 0.000000E+00
- PKER_SACCRG( 16, 4) = 0.000000E+00
- PKER_SACCRG( 16, 5) = 0.000000E+00
- PKER_SACCRG( 16, 6) = 0.119071E-04
- PKER_SACCRG( 16, 7) = 0.989929E-02
- PKER_SACCRG( 16, 8) = 0.528890E+00
- PKER_SACCRG( 16, 9) = 0.450696E-01
- PKER_SACCRG( 16, 10) = 0.655297E-01
- PKER_SACCRG( 16, 11) = 0.132187E+00
- PKER_SACCRG( 16, 12) = 0.215348E+00
- PKER_SACCRG( 16, 13) = 0.167588E+00
- PKER_SACCRG( 16, 14) = 0.216205E+00
- PKER_SACCRG( 16, 15) = 0.162196E+00
- PKER_SACCRG( 16, 16) = 0.244005E+00
- PKER_SACCRG( 16, 17) = 0.269648E+00
- PKER_SACCRG( 16, 18) = 0.340900E+00
- PKER_SACCRG( 16, 19) = 0.372264E+00
- PKER_SACCRG( 16, 20) = 0.398617E+00
- PKER_SACCRG( 16, 21) = 0.377733E+00
- PKER_SACCRG( 16, 22) = 0.342874E+00
- PKER_SACCRG( 16, 23) = 0.305984E+00
- PKER_SACCRG( 16, 24) = 0.271888E+00
- PKER_SACCRG( 16, 25) = 0.244614E+00
- PKER_SACCRG( 16, 26) = 0.222952E+00
- PKER_SACCRG( 16, 27) = 0.206393E+00
- PKER_SACCRG( 16, 28) = 0.196281E+00
- PKER_SACCRG( 16, 29) = 0.189043E+00
- PKER_SACCRG( 16, 30) = 0.183996E+00
- PKER_SACCRG( 16, 31) = 0.181421E+00
- PKER_SACCRG( 16, 32) = 0.180072E+00
- PKER_SACCRG( 16, 33) = 0.179344E+00
- PKER_SACCRG( 16, 34) = 0.178990E+00
- PKER_SACCRG( 16, 35) = 0.178753E+00
- PKER_SACCRG( 16, 36) = 0.178876E+00
- PKER_SACCRG( 16, 37) = 0.000000E+00
- PKER_SACCRG( 16, 38) = 0.000000E+00
- PKER_SACCRG( 16, 39) = 0.000000E+00
- PKER_SACCRG( 16, 40) = 0.000000E+00
- PKER_SACCRG( 17, 1) = 0.000000E+00
- PKER_SACCRG( 17, 2) = 0.000000E+00
- PKER_SACCRG( 17, 3) = 0.000000E+00
- PKER_SACCRG( 17, 4) = 0.000000E+00
- PKER_SACCRG( 17, 5) = 0.000000E+00
- PKER_SACCRG( 17, 6) = 0.284464E-06
- PKER_SACCRG( 17, 7) = 0.376463E-02
- PKER_SACCRG( 17, 8) = 0.586668E+00
- PKER_SACCRG( 17, 9) = 0.500034E-01
- PKER_SACCRG( 17, 10) = 0.220639E+00
- PKER_SACCRG( 17, 11) = 0.146258E+00
- PKER_SACCRG( 17, 12) = 0.237708E+00
- PKER_SACCRG( 17, 13) = 0.306782E+00
- PKER_SACCRG( 17, 14) = 0.354063E+00
- PKER_SACCRG( 17, 15) = 0.280860E+00
- PKER_SACCRG( 17, 16) = 0.308089E+00
- PKER_SACCRG( 17, 17) = 0.339505E+00
- PKER_SACCRG( 17, 18) = 0.414880E+00
- PKER_SACCRG( 17, 19) = 0.430629E+00
- PKER_SACCRG( 17, 20) = 0.452781E+00
- PKER_SACCRG( 17, 21) = 0.429564E+00
- PKER_SACCRG( 17, 22) = 0.392080E+00
- PKER_SACCRG( 17, 23) = 0.351048E+00
- PKER_SACCRG( 17, 24) = 0.310955E+00
- PKER_SACCRG( 17, 25) = 0.277207E+00
- PKER_SACCRG( 17, 26) = 0.248275E+00
- PKER_SACCRG( 17, 27) = 0.223790E+00
- PKER_SACCRG( 17, 28) = 0.208062E+00
- PKER_SACCRG( 17, 29) = 0.195017E+00
- PKER_SACCRG( 17, 30) = 0.183624E+00
- PKER_SACCRG( 17, 31) = 0.176886E+00
- PKER_SACCRG( 17, 32) = 0.172790E+00
- PKER_SACCRG( 17, 33) = 0.169882E+00
- PKER_SACCRG( 17, 34) = 0.169010E+00
- PKER_SACCRG( 17, 35) = 0.166994E+00
- PKER_SACCRG( 17, 36) = 0.163299E+00
- PKER_SACCRG( 17, 37) = 0.000000E+00
- PKER_SACCRG( 17, 38) = 0.000000E+00
- PKER_SACCRG( 17, 39) = 0.000000E+00
- PKER_SACCRG( 17, 40) = 0.000000E+00
- PKER_SACCRG( 18, 1) = 0.000000E+00
- PKER_SACCRG( 18, 2) = 0.000000E+00
- PKER_SACCRG( 18, 3) = 0.000000E+00
- PKER_SACCRG( 18, 4) = 0.000000E+00
- PKER_SACCRG( 18, 5) = 0.000000E+00
- PKER_SACCRG( 18, 6) = 0.000000E+00
- PKER_SACCRG( 18, 7) = 0.105382E-02
- PKER_SACCRG( 18, 8) = 0.635938E+00
- PKER_SACCRG( 18, 9) = 0.581236E+00
- PKER_SACCRG( 18, 10) = 0.175918E+00
- PKER_SACCRG( 18, 11) = 0.158333E+00
- PKER_SACCRG( 18, 12) = 0.645276E+00
- PKER_SACCRG( 18, 13) = 0.647795E+00
- PKER_SACCRG( 18, 14) = 0.383206E+00
- PKER_SACCRG( 18, 15) = 0.415829E+00
- PKER_SACCRG( 18, 16) = 0.392871E+00
- PKER_SACCRG( 18, 17) = 0.447385E+00
- PKER_SACCRG( 18, 18) = 0.473465E+00
- PKER_SACCRG( 18, 19) = 0.487585E+00
- PKER_SACCRG( 18, 20) = 0.505825E+00
- PKER_SACCRG( 18, 21) = 0.478975E+00
- PKER_SACCRG( 18, 22) = 0.440594E+00
- PKER_SACCRG( 18, 23) = 0.398291E+00
- PKER_SACCRG( 18, 24) = 0.355953E+00
- PKER_SACCRG( 18, 25) = 0.319332E+00
- PKER_SACCRG( 18, 26) = 0.286857E+00
- PKER_SACCRG( 18, 27) = 0.258053E+00
- PKER_SACCRG( 18, 28) = 0.239021E+00
- PKER_SACCRG( 18, 29) = 0.222386E+00
- PKER_SACCRG( 18, 30) = 0.206903E+00
- PKER_SACCRG( 18, 31) = 0.197361E+00
- PKER_SACCRG( 18, 32) = 0.191347E+00
- PKER_SACCRG( 18, 33) = 0.186901E+00
- PKER_SACCRG( 18, 34) = 0.185599E+00
- PKER_SACCRG( 18, 35) = 0.182341E+00
- PKER_SACCRG( 18, 36) = 0.176179E+00
- PKER_SACCRG( 18, 37) = 0.000000E+00
- PKER_SACCRG( 18, 38) = 0.000000E+00
- PKER_SACCRG( 18, 39) = 0.000000E+00
- PKER_SACCRG( 18, 40) = 0.000000E+00
- PKER_SACCRG( 19, 1) = 0.000000E+00
- PKER_SACCRG( 19, 2) = 0.000000E+00
- PKER_SACCRG( 19, 3) = 0.000000E+00
- PKER_SACCRG( 19, 4) = 0.000000E+00
- PKER_SACCRG( 19, 5) = 0.000000E+00
- PKER_SACCRG( 19, 6) = 0.000000E+00
- PKER_SACCRG( 19, 7) = 0.194865E-03
- PKER_SACCRG( 19, 8) = 0.676347E+00
- PKER_SACCRG( 19, 9) = 0.621969E+00
- PKER_SACCRG( 19, 10) = 0.131032E+00
- PKER_SACCRG( 19, 11) = 0.658583E+00
- PKER_SACCRG( 19, 12) = 0.685804E+00
- PKER_SACCRG( 19, 13) = 0.688335E+00
- PKER_SACCRG( 19, 14) = 0.677066E+00
- PKER_SACCRG( 19, 15) = 0.442768E+00
- PKER_SACCRG( 19, 16) = 0.511298E+00
- PKER_SACCRG( 19, 17) = 0.544390E+00
- PKER_SACCRG( 19, 18) = 0.574263E+00
- PKER_SACCRG( 19, 19) = 0.551361E+00
- PKER_SACCRG( 19, 20) = 0.554396E+00
- PKER_SACCRG( 19, 21) = 0.521768E+00
- PKER_SACCRG( 19, 22) = 0.483164E+00
- PKER_SACCRG( 19, 23) = 0.440915E+00
- PKER_SACCRG( 19, 24) = 0.398417E+00
- PKER_SACCRG( 19, 25) = 0.361201E+00
- PKER_SACCRG( 19, 26) = 0.327700E+00
- PKER_SACCRG( 19, 27) = 0.297381E+00
- PKER_SACCRG( 19, 28) = 0.276977E+00
- PKER_SACCRG( 19, 29) = 0.258775E+00
- PKER_SACCRG( 19, 30) = 0.241338E+00
- PKER_SACCRG( 19, 31) = 0.230370E+00
- PKER_SACCRG( 19, 32) = 0.223349E+00
- PKER_SACCRG( 19, 33) = 0.218072E+00
- PKER_SACCRG( 19, 34) = 0.216544E+00
- PKER_SACCRG( 19, 35) = 0.212586E+00
- PKER_SACCRG( 19, 36) = 0.204880E+00
- PKER_SACCRG( 19, 37) = 0.000000E+00
- PKER_SACCRG( 19, 38) = 0.000000E+00
- PKER_SACCRG( 19, 39) = 0.000000E+00
- PKER_SACCRG( 19, 40) = 0.000000E+00
- PKER_SACCRG( 20, 1) = 0.000000E+00
- PKER_SACCRG( 20, 2) = 0.000000E+00
- PKER_SACCRG( 20, 3) = 0.000000E+00
- PKER_SACCRG( 20, 4) = 0.000000E+00
- PKER_SACCRG( 20, 5) = 0.000000E+00
- PKER_SACCRG( 20, 6) = 0.000000E+00
- PKER_SACCRG( 20, 7) = 0.210974E-04
- PKER_SACCRG( 20, 8) = 0.709956E+00
- PKER_SACCRG( 20, 9) = 0.655815E+00
- PKER_SACCRG( 20, 10) = 0.956725E-01
- PKER_SACCRG( 20, 11) = 0.692386E+00
- PKER_SACCRG( 20, 12) = 0.719525E+00
- PKER_SACCRG( 20, 13) = 0.722068E+00
- PKER_SACCRG( 20, 14) = 0.710869E+00
- PKER_SACCRG( 20, 15) = 0.691117E+00
- PKER_SACCRG( 20, 16) = 0.690018E+00
- PKER_SACCRG( 20, 17) = 0.573065E+00
- PKER_SACCRG( 20, 18) = 0.605475E+00
- PKER_SACCRG( 20, 19) = 0.604580E+00
- PKER_SACCRG( 20, 20) = 0.595016E+00
- PKER_SACCRG( 20, 21) = 0.559020E+00
- PKER_SACCRG( 20, 22) = 0.519154E+00
- PKER_SACCRG( 20, 23) = 0.477263E+00
- PKER_SACCRG( 20, 24) = 0.435286E+00
- PKER_SACCRG( 20, 25) = 0.398364E+00
- PKER_SACCRG( 20, 26) = 0.364991E+00
- PKER_SACCRG( 20, 27) = 0.334611E+00
- PKER_SACCRG( 20, 28) = 0.313905E+00
- PKER_SACCRG( 20, 29) = 0.295342E+00
- PKER_SACCRG( 20, 30) = 0.277428E+00
- PKER_SACCRG( 20, 31) = 0.266023E+00
- PKER_SACCRG( 20, 32) = 0.258671E+00
- PKER_SACCRG( 20, 33) = 0.253118E+00
- PKER_SACCRG( 20, 34) = 0.251504E+00
- PKER_SACCRG( 20, 35) = 0.247323E+00
- PKER_SACCRG( 20, 36) = 0.239150E+00
- PKER_SACCRG( 20, 37) = 0.000000E+00
- PKER_SACCRG( 20, 38) = 0.000000E+00
- PKER_SACCRG( 20, 39) = 0.000000E+00
- PKER_SACCRG( 20, 40) = 0.000000E+00
- PKER_SACCRG( 21, 1) = 0.000000E+00
- PKER_SACCRG( 21, 2) = 0.000000E+00
- PKER_SACCRG( 21, 3) = 0.000000E+00
- PKER_SACCRG( 21, 4) = 0.000000E+00
- PKER_SACCRG( 21, 5) = 0.000000E+00
- PKER_SACCRG( 21, 6) = 0.000000E+00
- PKER_SACCRG( 21, 7) = 0.115787E-05
- PKER_SACCRG( 21, 8) = 0.737622E+00
- PKER_SACCRG( 21, 9) = 0.683641E+00
- PKER_SACCRG( 21, 10) = 0.742791E-01
- PKER_SACCRG( 21, 11) = 0.720196E+00
- PKER_SACCRG( 21, 12) = 0.747281E+00
- PKER_SACCRG( 21, 13) = 0.749836E+00
- PKER_SACCRG( 21, 14) = 0.738685E+00
- PKER_SACCRG( 21, 15) = 0.719015E+00
- PKER_SACCRG( 21, 16) = 0.717958E+00
- PKER_SACCRG( 21, 17) = 0.702249E+00
- PKER_SACCRG( 21, 18) = 0.688360E+00
- PKER_SACCRG( 21, 19) = 0.631563E+00
- PKER_SACCRG( 21, 20) = 0.632341E+00
- PKER_SACCRG( 21, 21) = 0.589665E+00
- PKER_SACCRG( 21, 22) = 0.548711E+00
- PKER_SACCRG( 21, 23) = 0.507170E+00
- PKER_SACCRG( 21, 24) = 0.465784E+00
- PKER_SACCRG( 21, 25) = 0.429322E+00
- PKER_SACCRG( 21, 26) = 0.396378E+00
- PKER_SACCRG( 21, 27) = 0.366391E+00
- PKER_SACCRG( 21, 28) = 0.345783E+00
- PKER_SACCRG( 21, 29) = 0.327346E+00
- PKER_SACCRG( 21, 30) = 0.309575E+00
- PKER_SACCRG( 21, 31) = 0.298199E+00
- PKER_SACCRG( 21, 32) = 0.290842E+00
- PKER_SACCRG( 21, 33) = 0.285284E+00
- PKER_SACCRG( 21, 34) = 0.283648E+00
- PKER_SACCRG( 21, 35) = 0.279467E+00
- PKER_SACCRG( 21, 36) = 0.271303E+00
- PKER_SACCRG( 21, 37) = 0.000000E+00
- PKER_SACCRG( 21, 38) = 0.000000E+00
- PKER_SACCRG( 21, 39) = 0.000000E+00
- PKER_SACCRG( 21, 40) = 0.000000E+00
- PKER_SACCRG( 22, 1) = 0.000000E+00
- PKER_SACCRG( 22, 2) = 0.000000E+00
- PKER_SACCRG( 22, 3) = 0.000000E+00
- PKER_SACCRG( 22, 4) = 0.000000E+00
- PKER_SACCRG( 22, 5) = 0.000000E+00
- PKER_SACCRG( 22, 6) = 0.000000E+00
- PKER_SACCRG( 22, 7) = 0.153493E-07
- PKER_SACCRG( 22, 8) = 0.760420E+00
- PKER_SACCRG( 22, 9) = 0.706545E+00
- PKER_SACCRG( 22, 10) = 0.650587E-01
- PKER_SACCRG( 22, 11) = 0.743098E+00
- PKER_SACCRG( 22, 12) = 0.770151E+00
- PKER_SACCRG( 22, 13) = 0.772714E+00
- PKER_SACCRG( 22, 14) = 0.761598E+00
- PKER_SACCRG( 22, 15) = 0.741985E+00
- PKER_SACCRG( 22, 16) = 0.740959E+00
- PKER_SACCRG( 22, 17) = 0.725323E+00
- PKER_SACCRG( 22, 18) = 0.711529E+00
- PKER_SACCRG( 22, 19) = 0.653730E+00
- PKER_SACCRG( 22, 20) = 0.655849E+00
- PKER_SACCRG( 22, 21) = 0.613326E+00
- PKER_SACCRG( 22, 22) = 0.573001E+00
- PKER_SACCRG( 22, 23) = 0.531612E+00
- PKER_SACCRG( 22, 24) = 0.490679E+00
- PKER_SACCRG( 22, 25) = 0.454592E+00
- PKER_SACCRG( 22, 26) = 0.422026E+00
- PKER_SACCRG( 22, 27) = 0.392436E+00
- PKER_SACCRG( 22, 28) = 0.371968E+00
- PKER_SACCRG( 22, 29) = 0.353731E+00
- PKER_SACCRG( 22, 30) = 0.336228E+00
- PKER_SACCRG( 22, 31) = 0.324990E+00
- PKER_SACCRG( 22, 32) = 0.317714E+00
- PKER_SACCRG( 22, 33) = 0.312229E+00
- PKER_SACCRG( 22, 34) = 0.310590E+00
- PKER_SACCRG( 22, 35) = 0.306480E+00
- PKER_SACCRG( 22, 36) = 0.298487E+00
- PKER_SACCRG( 22, 37) = 0.000000E+00
- PKER_SACCRG( 22, 38) = 0.000000E+00
- PKER_SACCRG( 22, 39) = 0.000000E+00
- PKER_SACCRG( 22, 40) = 0.000000E+00
- PKER_SACCRG( 23, 1) = 0.000000E+00
- PKER_SACCRG( 23, 2) = 0.000000E+00
- PKER_SACCRG( 23, 3) = 0.000000E+00
- PKER_SACCRG( 23, 4) = 0.000000E+00
- PKER_SACCRG( 23, 5) = 0.000000E+00
- PKER_SACCRG( 23, 6) = 0.000000E+00
- PKER_SACCRG( 23, 7) = 0.000000E+00
- PKER_SACCRG( 23, 8) = 0.779223E+00
- PKER_SACCRG( 23, 9) = 0.725418E+00
- PKER_SACCRG( 23, 10) = 0.629066E-01
- PKER_SACCRG( 23, 11) = 0.761978E+00
- PKER_SACCRG( 23, 12) = 0.789011E+00
- PKER_SACCRG( 23, 13) = 0.791581E+00
- PKER_SACCRG( 23, 14) = 0.780490E+00
- PKER_SACCRG( 23, 15) = 0.760916E+00
- PKER_SACCRG( 23, 16) = 0.759915E+00
- PKER_SACCRG( 23, 17) = 0.744331E+00
- PKER_SACCRG( 23, 18) = 0.730605E+00
- PKER_SACCRG( 23, 19) = 0.703564E+00
- PKER_SACCRG( 23, 20) = 0.675170E+00
- PKER_SACCRG( 23, 21) = 0.632741E+00
- PKER_SACCRG( 23, 22) = 0.592686E+00
- PKER_SACCRG( 23, 23) = 0.551579E+00
- PKER_SACCRG( 23, 24) = 0.510978E+00
- PKER_SACCRG( 23, 25) = 0.475153E+00
- PKER_SACCRG( 23, 26) = 0.442855E+00
- PKER_SACCRG( 23, 27) = 0.413554E+00
- PKER_SACCRG( 23, 28) = 0.393180E+00
- PKER_SACCRG( 23, 29) = 0.375093E+00
- PKER_SACCRG( 23, 30) = 0.357805E+00
- PKER_SACCRG( 23, 31) = 0.346682E+00
- PKER_SACCRG( 23, 32) = 0.339475E+00
- PKER_SACCRG( 23, 33) = 0.334055E+00
- PKER_SACCRG( 23, 34) = 0.332413E+00
- PKER_SACCRG( 23, 35) = 0.328367E+00
- PKER_SACCRG( 23, 36) = 0.320537E+00
- PKER_SACCRG( 23, 37) = 0.000000E+00
- PKER_SACCRG( 23, 38) = 0.000000E+00
- PKER_SACCRG( 23, 39) = 0.000000E+00
- PKER_SACCRG( 23, 40) = 0.000000E+00
- PKER_SACCRG( 24, 1) = 0.000000E+00
- PKER_SACCRG( 24, 2) = 0.000000E+00
- PKER_SACCRG( 24, 3) = 0.000000E+00
- PKER_SACCRG( 24, 4) = 0.000000E+00
- PKER_SACCRG( 24, 5) = 0.000000E+00
- PKER_SACCRG( 24, 6) = 0.000000E+00
- PKER_SACCRG( 24, 7) = 0.000000E+00
- PKER_SACCRG( 24, 8) = 0.794744E+00
- PKER_SACCRG( 24, 9) = 0.740984E+00
- PKER_SACCRG( 24, 10) = 0.633801E-01
- PKER_SACCRG( 24, 11) = 0.777556E+00
- PKER_SACCRG( 24, 12) = 0.804576E+00
- PKER_SACCRG( 24, 13) = 0.807152E+00
- PKER_SACCRG( 24, 14) = 0.796079E+00
- PKER_SACCRG( 24, 15) = 0.776533E+00
- PKER_SACCRG( 24, 16) = 0.775550E+00
- PKER_SACCRG( 24, 17) = 0.760004E+00
- PKER_SACCRG( 24, 18) = 0.746329E+00
- PKER_SACCRG( 24, 19) = 0.719365E+00
- PKER_SACCRG( 24, 20) = 0.691070E+00
- PKER_SACCRG( 24, 21) = 0.651450E+00
- PKER_SACCRG( 24, 22) = 0.608840E+00
- PKER_SACCRG( 24, 23) = 0.567932E+00
- PKER_SACCRG( 24, 24) = 0.527565E+00
- PKER_SACCRG( 24, 25) = 0.491917E+00
- PKER_SACCRG( 24, 26) = 0.459798E+00
- PKER_SACCRG( 24, 27) = 0.430691E+00
- PKER_SACCRG( 24, 28) = 0.410367E+00
- PKER_SACCRG( 24, 29) = 0.392372E+00
- PKER_SACCRG( 24, 30) = 0.375227E+00
- PKER_SACCRG( 24, 31) = 0.364178E+00
- PKER_SACCRG( 24, 32) = 0.357015E+00
- PKER_SACCRG( 24, 33) = 0.351637E+00
- PKER_SACCRG( 24, 34) = 0.349989E+00
- PKER_SACCRG( 24, 35) = 0.345989E+00
- PKER_SACCRG( 24, 36) = 0.338276E+00
- PKER_SACCRG( 24, 37) = 0.000000E+00
- PKER_SACCRG( 24, 38) = 0.000000E+00
- PKER_SACCRG( 24, 39) = 0.000000E+00
- PKER_SACCRG( 24, 40) = 0.000000E+00
- PKER_SACCRG( 25, 1) = 0.000000E+00
- PKER_SACCRG( 25, 2) = 0.000000E+00
- PKER_SACCRG( 25, 3) = 0.000000E+00
- PKER_SACCRG( 25, 4) = 0.000000E+00
- PKER_SACCRG( 25, 5) = 0.000000E+00
- PKER_SACCRG( 25, 6) = 0.000000E+00
- PKER_SACCRG( 25, 7) = 0.000000E+00
- PKER_SACCRG( 25, 8) = 0.807563E+00
- PKER_SACCRG( 25, 9) = 0.753833E+00
- PKER_SACCRG( 25, 10) = 0.643394E-01
- PKER_SACCRG( 25, 11) = 0.790417E+00
- PKER_SACCRG( 25, 12) = 0.817430E+00
- PKER_SACCRG( 25, 13) = 0.820012E+00
- PKER_SACCRG( 25, 14) = 0.808951E+00
- PKER_SACCRG( 25, 15) = 0.789425E+00
- PKER_SACCRG( 25, 16) = 0.788455E+00
- PKER_SACCRG( 25, 17) = 0.772937E+00
- PKER_SACCRG( 25, 18) = 0.759299E+00
- PKER_SACCRG( 25, 19) = 0.732392E+00
- PKER_SACCRG( 25, 20) = 0.704169E+00
- PKER_SACCRG( 25, 21) = 0.664647E+00
- PKER_SACCRG( 25, 22) = 0.622123E+00
- PKER_SACCRG( 25, 23) = 0.581352E+00
- PKER_SACCRG( 25, 24) = 0.541148E+00
- PKER_SACCRG( 25, 25) = 0.505619E+00
- PKER_SACCRG( 25, 26) = 0.473619E+00
- PKER_SACCRG( 25, 27) = 0.444639E+00
- PKER_SACCRG( 25, 28) = 0.424336E+00
- PKER_SACCRG( 25, 29) = 0.406394E+00
- PKER_SACCRG( 25, 30) = 0.389340E+00
- PKER_SACCRG( 25, 31) = 0.378332E+00
- PKER_SACCRG( 25, 32) = 0.371193E+00
- PKER_SACCRG( 25, 33) = 0.365840E+00
- PKER_SACCRG( 25, 34) = 0.364185E+00
- PKER_SACCRG( 25, 35) = 0.360213E+00
- PKER_SACCRG( 25, 36) = 0.352580E+00
- PKER_SACCRG( 25, 37) = 0.000000E+00
- PKER_SACCRG( 25, 38) = 0.000000E+00
- PKER_SACCRG( 25, 39) = 0.000000E+00
- PKER_SACCRG( 25, 40) = 0.000000E+00
- PKER_SACCRG( 26, 1) = 0.000000E+00
- PKER_SACCRG( 26, 2) = 0.000000E+00
- PKER_SACCRG( 26, 3) = 0.000000E+00
- PKER_SACCRG( 26, 4) = 0.000000E+00
- PKER_SACCRG( 26, 5) = 0.000000E+00
- PKER_SACCRG( 26, 6) = 0.000000E+00
- PKER_SACCRG( 26, 7) = 0.000000E+00
- PKER_SACCRG( 26, 8) = 0.818155E+00
- PKER_SACCRG( 26, 9) = 0.764445E+00
- PKER_SACCRG( 26, 10) = 0.652138E-01
- PKER_SACCRG( 26, 11) = 0.801042E+00
- PKER_SACCRG( 26, 12) = 0.828051E+00
- PKER_SACCRG( 26, 13) = 0.830636E+00
- PKER_SACCRG( 26, 14) = 0.819585E+00
- PKER_SACCRG( 26, 15) = 0.800072E+00
- PKER_SACCRG( 26, 16) = 0.799113E+00
- PKER_SACCRG( 26, 17) = 0.783616E+00
- PKER_SACCRG( 26, 18) = 0.770006E+00
- PKER_SACCRG( 26, 19) = 0.743140E+00
- PKER_SACCRG( 26, 20) = 0.714971E+00
- PKER_SACCRG( 26, 21) = 0.675519E+00
- PKER_SACCRG( 26, 22) = 0.633061E+00
- PKER_SACCRG( 26, 23) = 0.592381E+00
- PKER_SACCRG( 26, 24) = 0.552293E+00
- PKER_SACCRG( 26, 25) = 0.516845E+00
- PKER_SACCRG( 26, 26) = 0.484922E+00
- PKER_SACCRG( 26, 27) = 0.456026E+00
- PKER_SACCRG( 26, 28) = 0.435725E+00
- PKER_SACCRG( 26, 29) = 0.417811E+00
- PKER_SACCRG( 26, 30) = 0.400812E+00
- PKER_SACCRG( 26, 31) = 0.389826E+00
- PKER_SACCRG( 26, 32) = 0.382698E+00
- PKER_SACCRG( 26, 33) = 0.377358E+00
- PKER_SACCRG( 26, 34) = 0.375696E+00
- PKER_SACCRG( 26, 35) = 0.371742E+00
- PKER_SACCRG( 26, 36) = 0.364161E+00
- PKER_SACCRG( 26, 37) = 0.000000E+00
- PKER_SACCRG( 26, 38) = 0.000000E+00
- PKER_SACCRG( 26, 39) = 0.000000E+00
- PKER_SACCRG( 26, 40) = 0.000000E+00
- PKER_SACCRG( 27, 1) = 0.000000E+00
- PKER_SACCRG( 27, 2) = 0.000000E+00
- PKER_SACCRG( 27, 3) = 0.000000E+00
- PKER_SACCRG( 27, 4) = 0.000000E+00
- PKER_SACCRG( 27, 5) = 0.000000E+00
- PKER_SACCRG( 27, 6) = 0.000000E+00
- PKER_SACCRG( 27, 7) = 0.000000E+00
- PKER_SACCRG( 27, 8) = 0.826912E+00
- PKER_SACCRG( 27, 9) = 0.773214E+00
- PKER_SACCRG( 27, 10) = 0.722825E+00
- PKER_SACCRG( 27, 11) = 0.809822E+00
- PKER_SACCRG( 27, 12) = 0.836829E+00
- PKER_SACCRG( 27, 13) = 0.839417E+00
- PKER_SACCRG( 27, 14) = 0.828373E+00
- PKER_SACCRG( 27, 15) = 0.808870E+00
- PKER_SACCRG( 27, 16) = 0.807920E+00
- PKER_SACCRG( 27, 17) = 0.792438E+00
- PKER_SACCRG( 27, 18) = 0.778848E+00
- PKER_SACCRG( 27, 19) = 0.752014E+00
- PKER_SACCRG( 27, 20) = 0.723884E+00
- PKER_SACCRG( 27, 21) = 0.684484E+00
- PKER_SACCRG( 27, 22) = 0.642077E+00
- PKER_SACCRG( 27, 23) = 0.601458E+00
- PKER_SACCRG( 27, 24) = 0.561451E+00
- PKER_SACCRG( 27, 25) = 0.526058E+00
- PKER_SACCRG( 27, 26) = 0.494186E+00
- PKER_SACCRG( 27, 27) = 0.465344E+00
- PKER_SACCRG( 27, 28) = 0.445036E+00
- PKER_SACCRG( 27, 29) = 0.427133E+00
- PKER_SACCRG( 27, 30) = 0.410167E+00
- PKER_SACCRG( 27, 31) = 0.399191E+00
- PKER_SACCRG( 27, 32) = 0.392065E+00
- PKER_SACCRG( 27, 33) = 0.386731E+00
- PKER_SACCRG( 27, 34) = 0.385063E+00
- PKER_SACCRG( 27, 35) = 0.381119E+00
- PKER_SACCRG( 27, 36) = 0.373572E+00
- PKER_SACCRG( 27, 37) = 0.000000E+00
- PKER_SACCRG( 27, 38) = 0.000000E+00
- PKER_SACCRG( 27, 39) = 0.000000E+00
- PKER_SACCRG( 27, 40) = 0.000000E+00
- PKER_SACCRG( 28, 1) = 0.000000E+00
- PKER_SACCRG( 28, 2) = 0.000000E+00
- PKER_SACCRG( 28, 3) = 0.000000E+00
- PKER_SACCRG( 28, 4) = 0.000000E+00
- PKER_SACCRG( 28, 5) = 0.000000E+00
- PKER_SACCRG( 28, 6) = 0.000000E+00
- PKER_SACCRG( 28, 7) = 0.000000E+00
- PKER_SACCRG( 28, 8) = 0.834152E+00
- PKER_SACCRG( 28, 9) = 0.780463E+00
- PKER_SACCRG( 28, 10) = 0.730085E+00
- PKER_SACCRG( 28, 11) = 0.817081E+00
- PKER_SACCRG( 28, 12) = 0.844087E+00
- PKER_SACCRG( 28, 13) = 0.846678E+00
- PKER_SACCRG( 28, 14) = 0.835638E+00
- PKER_SACCRG( 28, 15) = 0.816143E+00
- PKER_SACCRG( 28, 16) = 0.815199E+00
- PKER_SACCRG( 28, 17) = 0.799728E+00
- PKER_SACCRG( 28, 18) = 0.786155E+00
- PKER_SACCRG( 28, 19) = 0.759343E+00
- PKER_SACCRG( 28, 20) = 0.731242E+00
- PKER_SACCRG( 28, 21) = 0.691881E+00
- PKER_SACCRG( 28, 22) = 0.649512E+00
- PKER_SACCRG( 28, 23) = 0.608935E+00
- PKER_SACCRG( 28, 24) = 0.568988E+00
- PKER_SACCRG( 28, 25) = 0.533631E+00
- PKER_SACCRG( 28, 26) = 0.501792E+00
- PKER_SACCRG( 28, 27) = 0.472984E+00
- PKER_SACCRG( 28, 28) = 0.452665E+00
- PKER_SACCRG( 28, 29) = 0.434765E+00
- PKER_SACCRG( 28, 30) = 0.417816E+00
- PKER_SACCRG( 28, 31) = 0.406842E+00
- PKER_SACCRG( 28, 32) = 0.399715E+00
- PKER_SACCRG( 28, 33) = 0.394383E+00
- PKER_SACCRG( 28, 34) = 0.392708E+00
- PKER_SACCRG( 28, 35) = 0.388770E+00
- PKER_SACCRG( 28, 36) = 0.381244E+00
- PKER_SACCRG( 28, 37) = 0.000000E+00
- PKER_SACCRG( 28, 38) = 0.000000E+00
- PKER_SACCRG( 28, 39) = 0.000000E+00
- PKER_SACCRG( 28, 40) = 0.000000E+00
- PKER_SACCRG( 29, 1) = 0.000000E+00
- PKER_SACCRG( 29, 2) = 0.000000E+00
- PKER_SACCRG( 29, 3) = 0.000000E+00
- PKER_SACCRG( 29, 4) = 0.000000E+00
- PKER_SACCRG( 29, 5) = 0.000000E+00
- PKER_SACCRG( 29, 6) = 0.000000E+00
- PKER_SACCRG( 29, 7) = 0.000000E+00
- PKER_SACCRG( 29, 8) = 0.840140E+00
- PKER_SACCRG( 29, 9) = 0.786456E+00
- PKER_SACCRG( 29, 10) = 0.736085E+00
- PKER_SACCRG( 29, 11) = 0.823083E+00
- PKER_SACCRG( 29, 12) = 0.850089E+00
- PKER_SACCRG( 29, 13) = 0.852682E+00
- PKER_SACCRG( 29, 14) = 0.841646E+00
- PKER_SACCRG( 29, 15) = 0.822156E+00
- PKER_SACCRG( 29, 16) = 0.821217E+00
- PKER_SACCRG( 29, 17) = 0.805755E+00
- PKER_SACCRG( 29, 18) = 0.792194E+00
- PKER_SACCRG( 29, 19) = 0.765399E+00
- PKER_SACCRG( 29, 20) = 0.737321E+00
- PKER_SACCRG( 29, 21) = 0.697987E+00
- PKER_SACCRG( 29, 22) = 0.655647E+00
- PKER_SACCRG( 29, 23) = 0.615100E+00
- PKER_SACCRG( 29, 24) = 0.575195E+00
- PKER_SACCRG( 29, 25) = 0.539863E+00
- PKER_SACCRG( 29, 26) = 0.508047E+00
- PKER_SACCRG( 29, 27) = 0.479260E+00
- PKER_SACCRG( 29, 28) = 0.458928E+00
- PKER_SACCRG( 29, 29) = 0.441026E+00
- PKER_SACCRG( 29, 30) = 0.424085E+00
- PKER_SACCRG( 29, 31) = 0.413109E+00
- PKER_SACCRG( 29, 32) = 0.405979E+00
- PKER_SACCRG( 29, 33) = 0.400646E+00
- PKER_SACCRG( 29, 34) = 0.398965E+00
- PKER_SACCRG( 29, 35) = 0.395030E+00
- PKER_SACCRG( 29, 36) = 0.387518E+00
- PKER_SACCRG( 29, 37) = 0.000000E+00
- PKER_SACCRG( 29, 38) = 0.000000E+00
- PKER_SACCRG( 29, 39) = 0.000000E+00
- PKER_SACCRG( 29, 40) = 0.000000E+00
- PKER_SACCRG( 30, 1) = 0.000000E+00
- PKER_SACCRG( 30, 2) = 0.000000E+00
- PKER_SACCRG( 30, 3) = 0.000000E+00
- PKER_SACCRG( 30, 4) = 0.000000E+00
- PKER_SACCRG( 30, 5) = 0.000000E+00
- PKER_SACCRG( 30, 6) = 0.000000E+00
- PKER_SACCRG( 30, 7) = 0.000000E+00
- PKER_SACCRG( 30, 8) = 0.845094E+00
- PKER_SACCRG( 30, 9) = 0.791414E+00
- PKER_SACCRG( 30, 10) = 0.741047E+00
- PKER_SACCRG( 30, 11) = 0.828048E+00
- PKER_SACCRG( 30, 12) = 0.855054E+00
- PKER_SACCRG( 30, 13) = 0.857648E+00
- PKER_SACCRG( 30, 14) = 0.846615E+00
- PKER_SACCRG( 30, 15) = 0.827129E+00
- PKER_SACCRG( 30, 16) = 0.826194E+00
- PKER_SACCRG( 30, 17) = 0.810738E+00
- PKER_SACCRG( 30, 18) = 0.797187E+00
- PKER_SACCRG( 30, 19) = 0.770405E+00
- PKER_SACCRG( 30, 20) = 0.742343E+00
- PKER_SACCRG( 30, 21) = 0.703031E+00
- PKER_SACCRG( 30, 22) = 0.660711E+00
- PKER_SACCRG( 30, 23) = 0.620186E+00
- PKER_SACCRG( 30, 24) = 0.580313E+00
- PKER_SACCRG( 30, 25) = 0.544997E+00
- PKER_SACCRG( 30, 26) = 0.513195E+00
- PKER_SACCRG( 30, 27) = 0.484422E+00
- PKER_SACCRG( 30, 28) = 0.464077E+00
- PKER_SACCRG( 30, 29) = 0.446170E+00
- PKER_SACCRG( 30, 30) = 0.429233E+00
- PKER_SACCRG( 30, 31) = 0.418253E+00
- PKER_SACCRG( 30, 32) = 0.411117E+00
- PKER_SACCRG( 30, 33) = 0.405783E+00
- PKER_SACCRG( 30, 34) = 0.404097E+00
- PKER_SACCRG( 30, 35) = 0.400163E+00
- PKER_SACCRG( 30, 36) = 0.392659E+00
- PKER_SACCRG( 30, 37) = 0.000000E+00
- PKER_SACCRG( 30, 38) = 0.000000E+00
- PKER_SACCRG( 30, 39) = 0.000000E+00
- PKER_SACCRG( 30, 40) = 0.000000E+00
- PKER_SACCRG( 31, 1) = 0.000000E+00
- PKER_SACCRG( 31, 2) = 0.000000E+00
- PKER_SACCRG( 31, 3) = 0.000000E+00
- PKER_SACCRG( 31, 4) = 0.000000E+00
- PKER_SACCRG( 31, 5) = 0.000000E+00
- PKER_SACCRG( 31, 6) = 0.000000E+00
- PKER_SACCRG( 31, 7) = 0.000000E+00
- PKER_SACCRG( 31, 8) = 0.849193E+00
- PKER_SACCRG( 31, 9) = 0.795515E+00
- PKER_SACCRG( 31, 10) = 0.745151E+00
- PKER_SACCRG( 31, 11) = 0.832155E+00
- PKER_SACCRG( 31, 12) = 0.859161E+00
- PKER_SACCRG( 31, 13) = 0.861757E+00
- PKER_SACCRG( 31, 14) = 0.850726E+00
- PKER_SACCRG( 31, 15) = 0.831243E+00
- PKER_SACCRG( 31, 16) = 0.830311E+00
- PKER_SACCRG( 31, 17) = 0.814860E+00
- PKER_SACCRG( 31, 18) = 0.801315E+00
- PKER_SACCRG( 31, 19) = 0.774544E+00
- PKER_SACCRG( 31, 20) = 0.746495E+00
- PKER_SACCRG( 31, 21) = 0.707199E+00
- PKER_SACCRG( 31, 22) = 0.665314E+00
- PKER_SACCRG( 31, 23) = 0.624385E+00
- PKER_SACCRG( 31, 24) = 0.584535E+00
- PKER_SACCRG( 31, 25) = 0.549231E+00
- PKER_SACCRG( 31, 26) = 0.517437E+00
- PKER_SACCRG( 31, 27) = 0.488673E+00
- PKER_SACCRG( 31, 28) = 0.468316E+00
- PKER_SACCRG( 31, 29) = 0.450402E+00
- PKER_SACCRG( 31, 30) = 0.433466E+00
- PKER_SACCRG( 31, 31) = 0.422481E+00
- PKER_SACCRG( 31, 32) = 0.415341E+00
- PKER_SACCRG( 31, 33) = 0.410003E+00
- PKER_SACCRG( 31, 34) = 0.408314E+00
- PKER_SACCRG( 31, 35) = 0.404379E+00
- PKER_SACCRG( 31, 36) = 0.396881E+00
- PKER_SACCRG( 31, 37) = 0.000000E+00
- PKER_SACCRG( 31, 38) = 0.000000E+00
- PKER_SACCRG( 31, 39) = 0.000000E+00
- PKER_SACCRG( 31, 40) = 0.000000E+00
- PKER_SACCRG( 32, 1) = 0.000000E+00
- PKER_SACCRG( 32, 2) = 0.000000E+00
- PKER_SACCRG( 32, 3) = 0.000000E+00
- PKER_SACCRG( 32, 4) = 0.000000E+00
- PKER_SACCRG( 32, 5) = 0.000000E+00
- PKER_SACCRG( 32, 6) = 0.000000E+00
- PKER_SACCRG( 32, 7) = 0.000000E+00
- PKER_SACCRG( 32, 8) = 0.852585E+00
- PKER_SACCRG( 32, 9) = 0.798908E+00
- PKER_SACCRG( 32, 10) = 0.748546E+00
- PKER_SACCRG( 32, 11) = 0.835553E+00
- PKER_SACCRG( 32, 12) = 0.862560E+00
- PKER_SACCRG( 32, 13) = 0.865156E+00
- PKER_SACCRG( 32, 14) = 0.854127E+00
- PKER_SACCRG( 32, 15) = 0.834646E+00
- PKER_SACCRG( 32, 16) = 0.833717E+00
- PKER_SACCRG( 32, 17) = 0.818269E+00
- PKER_SACCRG( 32, 18) = 0.804730E+00
- PKER_SACCRG( 32, 19) = 0.777966E+00
- PKER_SACCRG( 32, 20) = 0.749927E+00
- PKER_SACCRG( 32, 21) = 0.710643E+00
- PKER_SACCRG( 32, 22) = 0.668772E+00
- PKER_SACCRG( 32, 23) = 0.627853E+00
- PKER_SACCRG( 32, 24) = 0.588019E+00
- PKER_SACCRG( 32, 25) = 0.552723E+00
- PKER_SACCRG( 32, 26) = 0.520936E+00
- PKER_SACCRG( 32, 27) = 0.492177E+00
- PKER_SACCRG( 32, 28) = 0.471809E+00
- PKER_SACCRG( 32, 29) = 0.453889E+00
- PKER_SACCRG( 32, 30) = 0.436952E+00
- PKER_SACCRG( 32, 31) = 0.425962E+00
- PKER_SACCRG( 32, 32) = 0.418817E+00
- PKER_SACCRG( 32, 33) = 0.413477E+00
- PKER_SACCRG( 32, 34) = 0.411784E+00
- PKER_SACCRG( 32, 35) = 0.407849E+00
- PKER_SACCRG( 32, 36) = 0.400353E+00
- PKER_SACCRG( 32, 37) = 0.000000E+00
- PKER_SACCRG( 32, 38) = 0.000000E+00
- PKER_SACCRG( 32, 39) = 0.000000E+00
- PKER_SACCRG( 32, 40) = 0.000000E+00
- PKER_SACCRG( 33, 1) = 0.000000E+00
- PKER_SACCRG( 33, 2) = 0.000000E+00
- PKER_SACCRG( 33, 3) = 0.000000E+00
- PKER_SACCRG( 33, 4) = 0.000000E+00
- PKER_SACCRG( 33, 5) = 0.000000E+00
- PKER_SACCRG( 33, 6) = 0.000000E+00
- PKER_SACCRG( 33, 7) = 0.000000E+00
- PKER_SACCRG( 33, 8) = 0.855391E+00
- PKER_SACCRG( 33, 9) = 0.801716E+00
- PKER_SACCRG( 33, 10) = 0.751355E+00
- PKER_SACCRG( 33, 11) = 0.838364E+00
- PKER_SACCRG( 33, 12) = 0.865372E+00
- PKER_SACCRG( 33, 13) = 0.867969E+00
- PKER_SACCRG( 33, 14) = 0.856941E+00
- PKER_SACCRG( 33, 15) = 0.837462E+00
- PKER_SACCRG( 33, 16) = 0.836534E+00
- PKER_SACCRG( 33, 17) = 0.821090E+00
- PKER_SACCRG( 33, 18) = 0.807555E+00
- PKER_SACCRG( 33, 19) = 0.780797E+00
- PKER_SACCRG( 33, 20) = 0.752765E+00
- PKER_SACCRG( 33, 21) = 0.713491E+00
- PKER_SACCRG( 33, 22) = 0.671630E+00
- PKER_SACCRG( 33, 23) = 0.630717E+00
- PKER_SACCRG( 33, 24) = 0.590897E+00
- PKER_SACCRG( 33, 25) = 0.555606E+00
- PKER_SACCRG( 33, 26) = 0.523823E+00
- PKER_SACCRG( 33, 27) = 0.495067E+00
- PKER_SACCRG( 33, 28) = 0.474689E+00
- PKER_SACCRG( 33, 29) = 0.456764E+00
- PKER_SACCRG( 33, 30) = 0.439825E+00
- PKER_SACCRG( 33, 31) = 0.428830E+00
- PKER_SACCRG( 33, 32) = 0.421681E+00
- PKER_SACCRG( 33, 33) = 0.416338E+00
- PKER_SACCRG( 33, 34) = 0.414643E+00
- PKER_SACCRG( 33, 35) = 0.410707E+00
- PKER_SACCRG( 33, 36) = 0.403213E+00
- PKER_SACCRG( 33, 37) = 0.000000E+00
- PKER_SACCRG( 33, 38) = 0.000000E+00
- PKER_SACCRG( 33, 39) = 0.000000E+00
- PKER_SACCRG( 33, 40) = 0.000000E+00
- PKER_SACCRG( 34, 1) = 0.000000E+00
- PKER_SACCRG( 34, 2) = 0.000000E+00
- PKER_SACCRG( 34, 3) = 0.000000E+00
- PKER_SACCRG( 34, 4) = 0.000000E+00
- PKER_SACCRG( 34, 5) = 0.000000E+00
- PKER_SACCRG( 34, 6) = 0.000000E+00
- PKER_SACCRG( 34, 7) = 0.000000E+00
- PKER_SACCRG( 34, 8) = 0.857714E+00
- PKER_SACCRG( 34, 9) = 0.804039E+00
- PKER_SACCRG( 34, 10) = 0.753680E+00
- PKER_SACCRG( 34, 11) = 0.840691E+00
- PKER_SACCRG( 34, 12) = 0.867699E+00
- PKER_SACCRG( 34, 13) = 0.870297E+00
- PKER_SACCRG( 34, 14) = 0.859270E+00
- PKER_SACCRG( 34, 15) = 0.839792E+00
- PKER_SACCRG( 34, 16) = 0.838866E+00
- PKER_SACCRG( 34, 17) = 0.823423E+00
- PKER_SACCRG( 34, 18) = 0.809892E+00
- PKER_SACCRG( 34, 19) = 0.783139E+00
- PKER_SACCRG( 34, 20) = 0.755113E+00
- PKER_SACCRG( 34, 21) = 0.715845E+00
- PKER_SACCRG( 34, 22) = 0.673992E+00
- PKER_SACCRG( 34, 23) = 0.633085E+00
- PKER_SACCRG( 34, 24) = 0.593274E+00
- PKER_SACCRG( 34, 25) = 0.557987E+00
- PKER_SACCRG( 34, 26) = 0.526206E+00
- PKER_SACCRG( 34, 27) = 0.497452E+00
- PKER_SACCRG( 34, 28) = 0.477066E+00
- PKER_SACCRG( 34, 29) = 0.459136E+00
- PKER_SACCRG( 34, 30) = 0.442195E+00
- PKER_SACCRG( 34, 31) = 0.431196E+00
- PKER_SACCRG( 34, 32) = 0.424043E+00
- PKER_SACCRG( 34, 33) = 0.418698E+00
- PKER_SACCRG( 34, 34) = 0.417000E+00
- PKER_SACCRG( 34, 35) = 0.413064E+00
- PKER_SACCRG( 34, 36) = 0.405570E+00
- PKER_SACCRG( 34, 37) = 0.000000E+00
- PKER_SACCRG( 34, 38) = 0.000000E+00
- PKER_SACCRG( 34, 39) = 0.000000E+00
- PKER_SACCRG( 34, 40) = 0.000000E+00
- PKER_SACCRG( 35, 1) = 0.000000E+00
- PKER_SACCRG( 35, 2) = 0.000000E+00
- PKER_SACCRG( 35, 3) = 0.000000E+00
- PKER_SACCRG( 35, 4) = 0.000000E+00
- PKER_SACCRG( 35, 5) = 0.000000E+00
- PKER_SACCRG( 35, 6) = 0.000000E+00
- PKER_SACCRG( 35, 7) = 0.000000E+00
- PKER_SACCRG( 35, 8) = 0.859637E+00
- PKER_SACCRG( 35, 9) = 0.805962E+00
- PKER_SACCRG( 35, 10) = 0.755603E+00
- PKER_SACCRG( 35, 11) = 0.842616E+00
- PKER_SACCRG( 35, 12) = 0.869625E+00
- PKER_SACCRG( 35, 13) = 0.872223E+00
- PKER_SACCRG( 35, 14) = 0.861197E+00
- PKER_SACCRG( 35, 15) = 0.841720E+00
- PKER_SACCRG( 35, 16) = 0.840795E+00
- PKER_SACCRG( 35, 17) = 0.825354E+00
- PKER_SACCRG( 35, 18) = 0.811826E+00
- PKER_SACCRG( 35, 19) = 0.785076E+00
- PKER_SACCRG( 35, 20) = 0.757054E+00
- PKER_SACCRG( 35, 21) = 0.717792E+00
- PKER_SACCRG( 35, 22) = 0.675945E+00
- PKER_SACCRG( 35, 23) = 0.635042E+00
- PKER_SACCRG( 35, 24) = 0.595238E+00
- PKER_SACCRG( 35, 25) = 0.559954E+00
- PKER_SACCRG( 35, 26) = 0.528174E+00
- PKER_SACCRG( 35, 27) = 0.499421E+00
- PKER_SACCRG( 35, 28) = 0.479029E+00
- PKER_SACCRG( 35, 29) = 0.461094E+00
- PKER_SACCRG( 35, 30) = 0.444151E+00
- PKER_SACCRG( 35, 31) = 0.433148E+00
- PKER_SACCRG( 35, 32) = 0.425993E+00
- PKER_SACCRG( 35, 33) = 0.420646E+00
- PKER_SACCRG( 35, 34) = 0.418946E+00
- PKER_SACCRG( 35, 35) = 0.415009E+00
- PKER_SACCRG( 35, 36) = 0.407516E+00
- PKER_SACCRG( 35, 37) = 0.000000E+00
- PKER_SACCRG( 35, 38) = 0.000000E+00
- PKER_SACCRG( 35, 39) = 0.000000E+00
- PKER_SACCRG( 35, 40) = 0.000000E+00
- PKER_SACCRG( 36, 1) = 0.000000E+00
- PKER_SACCRG( 36, 2) = 0.000000E+00
- PKER_SACCRG( 36, 3) = 0.000000E+00
- PKER_SACCRG( 36, 4) = 0.000000E+00
- PKER_SACCRG( 36, 5) = 0.000000E+00
- PKER_SACCRG( 36, 6) = 0.000000E+00
- PKER_SACCRG( 36, 7) = 0.000000E+00
- PKER_SACCRG( 36, 8) = 0.861228E+00
- PKER_SACCRG( 36, 9) = 0.807554E+00
- PKER_SACCRG( 36, 10) = 0.757195E+00
- PKER_SACCRG( 36, 11) = 0.844210E+00
- PKER_SACCRG( 36, 12) = 0.871219E+00
- PKER_SACCRG( 36, 13) = 0.873817E+00
- PKER_SACCRG( 36, 14) = 0.862791E+00
- PKER_SACCRG( 36, 15) = 0.843315E+00
- PKER_SACCRG( 36, 16) = 0.842391E+00
- PKER_SACCRG( 36, 17) = 0.826952E+00
- PKER_SACCRG( 36, 18) = 0.813425E+00
- PKER_SACCRG( 36, 19) = 0.786678E+00
- PKER_SACCRG( 36, 20) = 0.758660E+00
- PKER_SACCRG( 36, 21) = 0.719402E+00
- PKER_SACCRG( 36, 22) = 0.677560E+00
- PKER_SACCRG( 36, 23) = 0.636660E+00
- PKER_SACCRG( 36, 24) = 0.596861E+00
- PKER_SACCRG( 36, 25) = 0.561579E+00
- PKER_SACCRG( 36, 26) = 0.529800E+00
- PKER_SACCRG( 36, 27) = 0.501048E+00
- PKER_SACCRG( 36, 28) = 0.480650E+00
- PKER_SACCRG( 36, 29) = 0.462712E+00
- PKER_SACCRG( 36, 30) = 0.445767E+00
- PKER_SACCRG( 36, 31) = 0.434761E+00
- PKER_SACCRG( 36, 32) = 0.427602E+00
- PKER_SACCRG( 36, 33) = 0.422254E+00
- PKER_SACCRG( 36, 34) = 0.420553E+00
- PKER_SACCRG( 36, 35) = 0.416615E+00
- PKER_SACCRG( 36, 36) = 0.409122E+00
- PKER_SACCRG( 36, 37) = 0.000000E+00
- PKER_SACCRG( 36, 38) = 0.000000E+00
- PKER_SACCRG( 36, 39) = 0.000000E+00
- PKER_SACCRG( 36, 40) = 0.000000E+00
- PKER_SACCRG( 37, 1) = 0.000000E+00
- PKER_SACCRG( 37, 2) = 0.000000E+00
- PKER_SACCRG( 37, 3) = 0.000000E+00
- PKER_SACCRG( 37, 4) = 0.000000E+00
- PKER_SACCRG( 37, 5) = 0.000000E+00
- PKER_SACCRG( 37, 6) = 0.000000E+00
- PKER_SACCRG( 37, 7) = 0.000000E+00
- PKER_SACCRG( 37, 8) = 0.862545E+00
- PKER_SACCRG( 37, 9) = 0.808871E+00
- PKER_SACCRG( 37, 10) = 0.758513E+00
- PKER_SACCRG( 37, 11) = 0.845529E+00
- PKER_SACCRG( 37, 12) = 0.872538E+00
- PKER_SACCRG( 37, 13) = 0.875137E+00
- PKER_SACCRG( 37, 14) = 0.864111E+00
- PKER_SACCRG( 37, 15) = 0.844636E+00
- PKER_SACCRG( 37, 16) = 0.843713E+00
- PKER_SACCRG( 37, 17) = 0.828275E+00
- PKER_SACCRG( 37, 18) = 0.814749E+00
- PKER_SACCRG( 37, 19) = 0.788004E+00
- PKER_SACCRG( 37, 20) = 0.759989E+00
- PKER_SACCRG( 37, 21) = 0.720734E+00
- PKER_SACCRG( 37, 22) = 0.678896E+00
- PKER_SACCRG( 37, 23) = 0.637998E+00
- PKER_SACCRG( 37, 24) = 0.598203E+00
- PKER_SACCRG( 37, 25) = 0.562923E+00
- PKER_SACCRG( 37, 26) = 0.531144E+00
- PKER_SACCRG( 37, 27) = 0.502392E+00
- PKER_SACCRG( 37, 28) = 0.481990E+00
- PKER_SACCRG( 37, 29) = 0.464049E+00
- PKER_SACCRG( 37, 30) = 0.447102E+00
- PKER_SACCRG( 37, 31) = 0.436093E+00
- PKER_SACCRG( 37, 32) = 0.428933E+00
- PKER_SACCRG( 37, 33) = 0.423583E+00
- PKER_SACCRG( 37, 34) = 0.421881E+00
- PKER_SACCRG( 37, 35) = 0.417942E+00
- PKER_SACCRG( 37, 36) = 0.410449E+00
- PKER_SACCRG( 37, 37) = 0.000000E+00
- PKER_SACCRG( 37, 38) = 0.000000E+00
- PKER_SACCRG( 37, 39) = 0.000000E+00
- PKER_SACCRG( 37, 40) = 0.000000E+00
- PKER_SACCRG( 38, 1) = 0.000000E+00
- PKER_SACCRG( 38, 2) = 0.000000E+00
- PKER_SACCRG( 38, 3) = 0.000000E+00
- PKER_SACCRG( 38, 4) = 0.000000E+00
- PKER_SACCRG( 38, 5) = 0.000000E+00
- PKER_SACCRG( 38, 6) = 0.000000E+00
- PKER_SACCRG( 38, 7) = 0.000000E+00
- PKER_SACCRG( 38, 8) = 0.864084E+00
- PKER_SACCRG( 38, 9) = 0.810382E+00
- PKER_SACCRG( 38, 10) = 0.759998E+00
- PKER_SACCRG( 38, 11) = 0.847060E+00
- PKER_SACCRG( 38, 12) = 0.874083E+00
- PKER_SACCRG( 38, 13) = 0.876684E+00
- PKER_SACCRG( 38, 14) = 0.865653E+00
- PKER_SACCRG( 38, 15) = 0.846168E+00
- PKER_SACCRG( 38, 16) = 0.845245E+00
- PKER_SACCRG( 38, 17) = 0.829800E+00
- PKER_SACCRG( 38, 18) = 0.816269E+00
- PKER_SACCRG( 38, 19) = 0.789511E+00
- PKER_SACCRG( 38, 20) = 0.761484E+00
- PKER_SACCRG( 38, 21) = 0.722211E+00
- PKER_SACCRG( 38, 22) = 0.680354E+00
- PKER_SACCRG( 38, 23) = 0.639436E+00
- PKER_SACCRG( 38, 24) = 0.599624E+00
- PKER_SACCRG( 38, 25) = 0.564327E+00
- PKER_SACCRG( 38, 26) = 0.532532E+00
- PKER_SACCRG( 38, 27) = 0.503764E+00
- PKER_SACCRG( 38, 28) = 0.483348E+00
- PKER_SACCRG( 38, 29) = 0.465395E+00
- PKER_SACCRG( 38, 30) = 0.448438E+00
- PKER_SACCRG( 38, 31) = 0.437422E+00
- PKER_SACCRG( 38, 32) = 0.430256E+00
- PKER_SACCRG( 38, 33) = 0.424902E+00
- PKER_SACCRG( 38, 34) = 0.423198E+00
- PKER_SACCRG( 38, 35) = 0.419256E+00
- PKER_SACCRG( 38, 36) = 0.411759E+00
- PKER_SACCRG( 38, 37) = 0.000000E+00
- PKER_SACCRG( 38, 38) = 0.000000E+00
- PKER_SACCRG( 38, 39) = 0.000000E+00
- PKER_SACCRG( 38, 40) = 0.000000E+00
- PKER_SACCRG( 39, 1) = 0.000000E+00
- PKER_SACCRG( 39, 2) = 0.000000E+00
- PKER_SACCRG( 39, 3) = 0.000000E+00
- PKER_SACCRG( 39, 4) = 0.000000E+00
- PKER_SACCRG( 39, 5) = 0.000000E+00
- PKER_SACCRG( 39, 6) = 0.000000E+00
- PKER_SACCRG( 39, 7) = 0.000000E+00
- PKER_SACCRG( 39, 8) = 0.864538E+00
- PKER_SACCRG( 39, 9) = 0.810864E+00
- PKER_SACCRG( 39, 10) = 0.760506E+00
- PKER_SACCRG( 39, 11) = 0.847524E+00
- PKER_SACCRG( 39, 12) = 0.874534E+00
- PKER_SACCRG( 39, 13) = 0.877133E+00
- PKER_SACCRG( 39, 14) = 0.866108E+00
- PKER_SACCRG( 39, 15) = 0.846633E+00
- PKER_SACCRG( 39, 16) = 0.845711E+00
- PKER_SACCRG( 39, 17) = 0.830275E+00
- PKER_SACCRG( 39, 18) = 0.816752E+00
- PKER_SACCRG( 39, 19) = 0.790009E+00
- PKER_SACCRG( 39, 20) = 0.761998E+00
- PKER_SACCRG( 39, 21) = 0.722748E+00
- PKER_SACCRG( 39, 22) = 0.680914E+00
- PKER_SACCRG( 39, 23) = 0.640019E+00
- PKER_SACCRG( 39, 24) = 0.600230E+00
- PKER_SACCRG( 39, 25) = 0.564952E+00
- PKER_SACCRG( 39, 26) = 0.533174E+00
- PKER_SACCRG( 39, 27) = 0.504421E+00
- PKER_SACCRG( 39, 28) = 0.484013E+00
- PKER_SACCRG( 39, 29) = 0.466067E+00
- PKER_SACCRG( 39, 30) = 0.449117E+00
- PKER_SACCRG( 39, 31) = 0.438105E+00
- PKER_SACCRG( 39, 32) = 0.430941E+00
- PKER_SACCRG( 39, 33) = 0.425589E+00
- PKER_SACCRG( 39, 34) = 0.423885E+00
- PKER_SACCRG( 39, 35) = 0.419946E+00
- PKER_SACCRG( 39, 36) = 0.412452E+00
- PKER_SACCRG( 39, 37) = 0.000000E+00
- PKER_SACCRG( 39, 38) = 0.000000E+00
- PKER_SACCRG( 39, 39) = 0.000000E+00
- PKER_SACCRG( 39, 40) = 0.000000E+00
- PKER_SACCRG( 40, 1) = 0.000000E+00
- PKER_SACCRG( 40, 2) = 0.000000E+00
- PKER_SACCRG( 40, 3) = 0.000000E+00
- PKER_SACCRG( 40, 4) = 0.000000E+00
- PKER_SACCRG( 40, 5) = 0.000000E+00
- PKER_SACCRG( 40, 6) = 0.000000E+00
- PKER_SACCRG( 40, 7) = 0.000000E+00
- PKER_SACCRG( 40, 8) = 0.865285E+00
- PKER_SACCRG( 40, 9) = 0.811611E+00
- PKER_SACCRG( 40, 10) = 0.761253E+00
- PKER_SACCRG( 40, 11) = 0.848272E+00
- PKER_SACCRG( 40, 12) = 0.875282E+00
- PKER_SACCRG( 40, 13) = 0.877881E+00
- PKER_SACCRG( 40, 14) = 0.866857E+00
- PKER_SACCRG( 40, 15) = 0.847382E+00
- PKER_SACCRG( 40, 16) = 0.846460E+00
- PKER_SACCRG( 40, 17) = 0.831024E+00
- PKER_SACCRG( 40, 18) = 0.817502E+00
- PKER_SACCRG( 40, 19) = 0.790761E+00
- PKER_SACCRG( 40, 20) = 0.762751E+00
- PKER_SACCRG( 40, 21) = 0.723502E+00
- PKER_SACCRG( 40, 22) = 0.681670E+00
- PKER_SACCRG( 40, 23) = 0.640776E+00
- PKER_SACCRG( 40, 24) = 0.600989E+00
- PKER_SACCRG( 40, 25) = 0.565711E+00
- PKER_SACCRG( 40, 26) = 0.533933E+00
- PKER_SACCRG( 40, 27) = 0.505180E+00
- PKER_SACCRG( 40, 28) = 0.484770E+00
- PKER_SACCRG( 40, 29) = 0.466822E+00
- PKER_SACCRG( 40, 30) = 0.449871E+00
- PKER_SACCRG( 40, 31) = 0.438858E+00
- PKER_SACCRG( 40, 32) = 0.431693E+00
- PKER_SACCRG( 40, 33) = 0.426340E+00
- PKER_SACCRG( 40, 34) = 0.424636E+00
- PKER_SACCRG( 40, 35) = 0.420696E+00
- PKER_SACCRG( 40, 36) = 0.413202E+00
- PKER_SACCRG( 40, 37) = 0.000000E+00
- PKER_SACCRG( 40, 38) = 0.000000E+00
- PKER_SACCRG( 40, 39) = 0.000000E+00
- PKER_SACCRG( 40, 40) = 0.000000E+00
+ PKER_SACCRG( 1, 1) = 0.399987E+01
+ PKER_SACCRG( 1, 2) = 0.447717E+01
+ PKER_SACCRG( 1, 3) = 0.492595E+01
+ PKER_SACCRG( 1, 4) = 0.533995E+01
+ PKER_SACCRG( 1, 5) = 0.571728E+01
+ PKER_SACCRG( 1, 6) = 0.605883E+01
+ PKER_SACCRG( 1, 7) = 0.636828E+01
+ PKER_SACCRG( 1, 8) = 0.664992E+01
+ PKER_SACCRG( 1, 9) = 0.690800E+01
+ PKER_SACCRG( 1, 10) = 0.714623E+01
+ PKER_SACCRG( 1, 11) = 0.736743E+01
+ PKER_SACCRG( 1, 12) = 0.757359E+01
+ PKER_SACCRG( 1, 13) = 0.776564E+01
+ PKER_SACCRG( 1, 14) = 0.794440E+01
+ PKER_SACCRG( 1, 15) = 0.811000E+01
+ PKER_SACCRG( 1, 16) = 0.826282E+01
+ PKER_SACCRG( 1, 17) = 0.838457E+01
+ PKER_SACCRG( 1, 18) = 0.851396E+01
+ PKER_SACCRG( 1, 19) = 0.863196E+01
+ PKER_SACCRG( 1, 20) = 0.873920E+01
+ PKER_SACCRG( 1, 21) = 0.883640E+01
+ PKER_SACCRG( 1, 22) = 0.889422E+01
+ PKER_SACCRG( 1, 23) = 0.897596E+01
+ PKER_SACCRG( 1, 24) = 0.904984E+01
+ PKER_SACCRG( 1, 25) = 0.908430E+01
+ PKER_SACCRG( 1, 26) = 0.914732E+01
+ PKER_SACCRG( 1, 27) = 0.917281E+01
+ PKER_SACCRG( 1, 28) = 0.922714E+01
+ PKER_SACCRG( 1, 29) = 0.924793E+01
+ PKER_SACCRG( 1, 30) = 0.926803E+01
+ PKER_SACCRG( 1, 31) = 0.928805E+01
+ PKER_SACCRG( 1, 32) = 0.930820E+01
+ PKER_SACCRG( 1, 33) = 0.932851E+01
+ PKER_SACCRG( 1, 34) = 0.932992E+01
+ PKER_SACCRG( 1, 35) = 0.935211E+01
+ PKER_SACCRG( 1, 36) = 0.935868E+01
+ PKER_SACCRG( 1, 37) = 0.936799E+01
+ PKER_SACCRG( 1, 38) = 0.936746E+01
+ PKER_SACCRG( 1, 39) = 0.938188E+01
+ PKER_SACCRG( 1, 40) = 0.938790E+01
+ PKER_SACCRG( 2, 1) = 0.257317E+01
+ PKER_SACCRG( 2, 2) = 0.297953E+01
+ PKER_SACCRG( 2, 3) = 0.337807E+01
+ PKER_SACCRG( 2, 4) = 0.375843E+01
+ PKER_SACCRG( 2, 5) = 0.411347E+01
+ PKER_SACCRG( 2, 6) = 0.443938E+01
+ PKER_SACCRG( 2, 7) = 0.473590E+01
+ PKER_SACCRG( 2, 8) = 0.500487E+01
+ PKER_SACCRG( 2, 9) = 0.524955E+01
+ PKER_SACCRG( 2, 10) = 0.547369E+01
+ PKER_SACCRG( 2, 11) = 0.568073E+01
+ PKER_SACCRG( 2, 12) = 0.587360E+01
+ PKER_SACCRG( 2, 13) = 0.605386E+01
+ PKER_SACCRG( 2, 14) = 0.622304E+01
+ PKER_SACCRG( 2, 15) = 0.638125E+01
+ PKER_SACCRG( 2, 16) = 0.652893E+01
+ PKER_SACCRG( 2, 17) = 0.664892E+01
+ PKER_SACCRG( 2, 18) = 0.677643E+01
+ PKER_SACCRG( 2, 19) = 0.689384E+01
+ PKER_SACCRG( 2, 20) = 0.700141E+01
+ PKER_SACCRG( 2, 21) = 0.709957E+01
+ PKER_SACCRG( 2, 22) = 0.715927E+01
+ PKER_SACCRG( 2, 23) = 0.724236E+01
+ PKER_SACCRG( 2, 24) = 0.731774E+01
+ PKER_SACCRG( 2, 25) = 0.735370E+01
+ PKER_SACCRG( 2, 26) = 0.741812E+01
+ PKER_SACCRG( 2, 27) = 0.744470E+01
+ PKER_SACCRG( 2, 28) = 0.750030E+01
+ PKER_SACCRG( 2, 29) = 0.752188E+01
+ PKER_SACCRG( 2, 30) = 0.754267E+01
+ PKER_SACCRG( 2, 31) = 0.756331E+01
+ PKER_SACCRG( 2, 32) = 0.758402E+01
+ PKER_SACCRG( 2, 33) = 0.760486E+01
+ PKER_SACCRG( 2, 34) = 0.760641E+01
+ PKER_SACCRG( 2, 35) = 0.762912E+01
+ PKER_SACCRG( 2, 36) = 0.763588E+01
+ PKER_SACCRG( 2, 37) = 0.764543E+01
+ PKER_SACCRG( 2, 38) = 0.764492E+01
+ PKER_SACCRG( 2, 39) = 0.765966E+01
+ PKER_SACCRG( 2, 40) = 0.766582E+01
+ PKER_SACCRG( 3, 1) = 0.155359E+01
+ PKER_SACCRG( 3, 2) = 0.187100E+01
+ PKER_SACCRG( 3, 3) = 0.219896E+01
+ PKER_SACCRG( 3, 4) = 0.252674E+01
+ PKER_SACCRG( 3, 5) = 0.284459E+01
+ PKER_SACCRG( 3, 6) = 0.314498E+01
+ PKER_SACCRG( 3, 7) = 0.342333E+01
+ PKER_SACCRG( 3, 8) = 0.367781E+01
+ PKER_SACCRG( 3, 9) = 0.390918E+01
+ PKER_SACCRG( 3, 10) = 0.411969E+01
+ PKER_SACCRG( 3, 11) = 0.431258E+01
+ PKER_SACCRG( 3, 12) = 0.449120E+01
+ PKER_SACCRG( 3, 13) = 0.465765E+01
+ PKER_SACCRG( 3, 14) = 0.481462E+01
+ PKER_SACCRG( 3, 15) = 0.496245E+01
+ PKER_SACCRG( 3, 16) = 0.510197E+01
+ PKER_SACCRG( 3, 17) = 0.521783E+01
+ PKER_SACCRG( 3, 18) = 0.534109E+01
+ PKER_SACCRG( 3, 19) = 0.545596E+01
+ PKER_SACCRG( 3, 20) = 0.556232E+01
+ PKER_SACCRG( 3, 21) = 0.566026E+01
+ PKER_SACCRG( 3, 22) = 0.572137E+01
+ PKER_SACCRG( 3, 23) = 0.580512E+01
+ PKER_SACCRG( 3, 24) = 0.588150E+01
+ PKER_SACCRG( 3, 25) = 0.591889E+01
+ PKER_SACCRG( 3, 26) = 0.598444E+01
+ PKER_SACCRG( 3, 27) = 0.601211E+01
+ PKER_SACCRG( 3, 28) = 0.606880E+01
+ PKER_SACCRG( 3, 29) = 0.609120E+01
+ PKER_SACCRG( 3, 30) = 0.611268E+01
+ PKER_SACCRG( 3, 31) = 0.613391E+01
+ PKER_SACCRG( 3, 32) = 0.615518E+01
+ PKER_SACCRG( 3, 33) = 0.617653E+01
+ PKER_SACCRG( 3, 34) = 0.617824E+01
+ PKER_SACCRG( 3, 35) = 0.620144E+01
+ PKER_SACCRG( 3, 36) = 0.620840E+01
+ PKER_SACCRG( 3, 37) = 0.621818E+01
+ PKER_SACCRG( 3, 38) = 0.621770E+01
+ PKER_SACCRG( 3, 39) = 0.623274E+01
+ PKER_SACCRG( 3, 40) = 0.623904E+01
+ PKER_SACCRG( 4, 1) = 0.875860E+00
+ PKER_SACCRG( 4, 2) = 0.110134E+01
+ PKER_SACCRG( 4, 3) = 0.134822E+01
+ PKER_SACCRG( 4, 4) = 0.160881E+01
+ PKER_SACCRG( 4, 5) = 0.187421E+01
+ PKER_SACCRG( 4, 6) = 0.213579E+01
+ PKER_SACCRG( 4, 7) = 0.238622E+01
+ PKER_SACCRG( 4, 8) = 0.262044E+01
+ PKER_SACCRG( 4, 9) = 0.283583E+01
+ PKER_SACCRG( 4, 10) = 0.303210E+01
+ PKER_SACCRG( 4, 11) = 0.321087E+01
+ PKER_SACCRG( 4, 12) = 0.337513E+01
+ PKER_SACCRG( 4, 13) = 0.352689E+01
+ PKER_SACCRG( 4, 14) = 0.366996E+01
+ PKER_SACCRG( 4, 15) = 0.380504E+01
+ PKER_SACCRG( 4, 16) = 0.393372E+01
+ PKER_SACCRG( 4, 17) = 0.404297E+01
+ PKER_SACCRG( 4, 18) = 0.415945E+01
+ PKER_SACCRG( 4, 19) = 0.426955E+01
+ PKER_SACCRG( 4, 20) = 0.437282E+01
+ PKER_SACCRG( 4, 21) = 0.446904E+01
+ PKER_SACCRG( 4, 22) = 0.453084E+01
+ PKER_SACCRG( 4, 23) = 0.461428E+01
+ PKER_SACCRG( 4, 24) = 0.469094E+01
+ PKER_SACCRG( 4, 25) = 0.472959E+01
+ PKER_SACCRG( 4, 26) = 0.479583E+01
+ PKER_SACCRG( 4, 27) = 0.482454E+01
+ PKER_SACCRG( 4, 28) = 0.488206E+01
+ PKER_SACCRG( 4, 29) = 0.490526E+01
+ PKER_SACCRG( 4, 30) = 0.492739E+01
+ PKER_SACCRG( 4, 31) = 0.494920E+01
+ PKER_SACCRG( 4, 32) = 0.497098E+01
+ PKER_SACCRG( 4, 33) = 0.499281E+01
+ PKER_SACCRG( 4, 34) = 0.499471E+01
+ PKER_SACCRG( 4, 35) = 0.501835E+01
+ PKER_SACCRG( 4, 36) = 0.502550E+01
+ PKER_SACCRG( 4, 37) = 0.503550E+01
+ PKER_SACCRG( 4, 38) = 0.503506E+01
+ PKER_SACCRG( 4, 39) = 0.505039E+01
+ PKER_SACCRG( 4, 40) = 0.505681E+01
+ PKER_SACCRG( 5, 1) = 0.460895E+00
+ PKER_SACCRG( 5, 2) = 0.605919E+00
+ PKER_SACCRG( 5, 3) = 0.775143E+00
+ PKER_SACCRG( 5, 4) = 0.964417E+00
+ PKER_SACCRG( 5, 5) = 0.116869E+01
+ PKER_SACCRG( 5, 6) = 0.138013E+01
+ PKER_SACCRG( 5, 7) = 0.159243E+01
+ PKER_SACCRG( 5, 8) = 0.179838E+01
+ PKER_SACCRG( 5, 9) = 0.199273E+01
+ PKER_SACCRG( 5, 10) = 0.217235E+01
+ PKER_SACCRG( 5, 11) = 0.233632E+01
+ PKER_SACCRG( 5, 12) = 0.248611E+01
+ PKER_SACCRG( 5, 13) = 0.262361E+01
+ PKER_SACCRG( 5, 14) = 0.275140E+01
+ PKER_SACCRG( 5, 15) = 0.287193E+01
+ PKER_SACCRG( 5, 16) = 0.298734E+01
+ PKER_SACCRG( 5, 17) = 0.308689E+01
+ PKER_SACCRG( 5, 18) = 0.319347E+01
+ PKER_SACCRG( 5, 19) = 0.329579E+01
+ PKER_SACCRG( 5, 20) = 0.339342E+01
+ PKER_SACCRG( 5, 21) = 0.348581E+01
+ PKER_SACCRG( 5, 22) = 0.354717E+01
+ PKER_SACCRG( 5, 23) = 0.362898E+01
+ PKER_SACCRG( 5, 24) = 0.370492E+01
+ PKER_SACCRG( 5, 25) = 0.374451E+01
+ PKER_SACCRG( 5, 26) = 0.381080E+01
+ PKER_SACCRG( 5, 27) = 0.384042E+01
+ PKER_SACCRG( 5, 28) = 0.389836E+01
+ PKER_SACCRG( 5, 29) = 0.392230E+01
+ PKER_SACCRG( 5, 30) = 0.394504E+01
+ PKER_SACCRG( 5, 31) = 0.396735E+01
+ PKER_SACCRG( 5, 32) = 0.398957E+01
+ PKER_SACCRG( 5, 33) = 0.401181E+01
+ PKER_SACCRG( 5, 34) = 0.401393E+01
+ PKER_SACCRG( 5, 35) = 0.403793E+01
+ PKER_SACCRG( 5, 36) = 0.404527E+01
+ PKER_SACCRG( 5, 37) = 0.405546E+01
+ PKER_SACCRG( 5, 38) = 0.405508E+01
+ PKER_SACCRG( 5, 39) = 0.407064E+01
+ PKER_SACCRG( 5, 40) = 0.407718E+01
+ PKER_SACCRG( 6, 1) = 0.228048E+00
+ PKER_SACCRG( 6, 2) = 0.312445E+00
+ PKER_SACCRG( 6, 3) = 0.417663E+00
+ PKER_SACCRG( 6, 4) = 0.542871E+00
+ PKER_SACCRG( 6, 5) = 0.686642E+00
+ PKER_SACCRG( 6, 6) = 0.843774E+00
+ PKER_SACCRG( 6, 7) = 0.101059E+01
+ PKER_SACCRG( 6, 8) = 0.118021E+01
+ PKER_SACCRG( 6, 9) = 0.134662E+01
+ PKER_SACCRG( 6, 10) = 0.150479E+01
+ PKER_SACCRG( 6, 11) = 0.165159E+01
+ PKER_SACCRG( 6, 12) = 0.178633E+01
+ PKER_SACCRG( 6, 13) = 0.190976E+01
+ PKER_SACCRG( 6, 14) = 0.202279E+01
+ PKER_SACCRG( 6, 15) = 0.212917E+01
+ PKER_SACCRG( 6, 16) = 0.223008E+01
+ PKER_SACCRG( 6, 17) = 0.231837E+01
+ PKER_SACCRG( 6, 18) = 0.241270E+01
+ PKER_SACCRG( 6, 19) = 0.250455E+01
+ PKER_SACCRG( 6, 20) = 0.259368E+01
+ PKER_SACCRG( 6, 21) = 0.267953E+01
+ PKER_SACCRG( 6, 22) = 0.273856E+01
+ PKER_SACCRG( 6, 23) = 0.281669E+01
+ PKER_SACCRG( 6, 24) = 0.289026E+01
+ PKER_SACCRG( 6, 25) = 0.293006E+01
+ PKER_SACCRG( 6, 26) = 0.299542E+01
+ PKER_SACCRG( 6, 27) = 0.302563E+01
+ PKER_SACCRG( 6, 28) = 0.308341E+01
+ PKER_SACCRG( 6, 29) = 0.310794E+01
+ PKER_SACCRG( 6, 30) = 0.313116E+01
+ PKER_SACCRG( 6, 31) = 0.315386E+01
+ PKER_SACCRG( 6, 32) = 0.317643E+01
+ PKER_SACCRG( 6, 33) = 0.319897E+01
+ PKER_SACCRG( 6, 34) = 0.320132E+01
+ PKER_SACCRG( 6, 35) = 0.322558E+01
+ PKER_SACCRG( 6, 36) = 0.323308E+01
+ PKER_SACCRG( 6, 37) = 0.324343E+01
+ PKER_SACCRG( 6, 38) = 0.324312E+01
+ PKER_SACCRG( 6, 39) = 0.325884E+01
+ PKER_SACCRG( 6, 40) = 0.326548E+01
+ PKER_SACCRG( 7, 1) = 0.108822E+00
+ PKER_SACCRG( 7, 2) = 0.153369E+00
+ PKER_SACCRG( 7, 3) = 0.212460E+00
+ PKER_SACCRG( 7, 4) = 0.287703E+00
+ PKER_SACCRG( 7, 5) = 0.380006E+00
+ PKER_SACCRG( 7, 6) = 0.486803E+00
+ PKER_SACCRG( 7, 7) = 0.607291E+00
+ PKER_SACCRG( 7, 8) = 0.736611E+00
+ PKER_SACCRG( 7, 9) = 0.869565E+00
+ PKER_SACCRG( 7, 10) = 0.100095E+01
+ PKER_SACCRG( 7, 11) = 0.112636E+01
+ PKER_SACCRG( 7, 12) = 0.124357E+01
+ PKER_SACCRG( 7, 13) = 0.135200E+01
+ PKER_SACCRG( 7, 14) = 0.145109E+01
+ PKER_SACCRG( 7, 15) = 0.154307E+01
+ PKER_SACCRG( 7, 16) = 0.162951E+01
+ PKER_SACCRG( 7, 17) = 0.170634E+01
+ PKER_SACCRG( 7, 18) = 0.178769E+01
+ PKER_SACCRG( 7, 19) = 0.186793E+01
+ PKER_SACCRG( 7, 20) = 0.194700E+01
+ PKER_SACCRG( 7, 21) = 0.202443E+01
+ PKER_SACCRG( 7, 22) = 0.207965E+01
+ PKER_SACCRG( 7, 23) = 0.215206E+01
+ PKER_SACCRG( 7, 24) = 0.222133E+01
+ PKER_SACCRG( 7, 25) = 0.226024E+01
+ PKER_SACCRG( 7, 26) = 0.232305E+01
+ PKER_SACCRG( 7, 27) = 0.235312E+01
+ PKER_SACCRG( 7, 28) = 0.240960E+01
+ PKER_SACCRG( 7, 29) = 0.243431E+01
+ PKER_SACCRG( 7, 30) = 0.245766E+01
+ PKER_SACCRG( 7, 31) = 0.248048E+01
+ PKER_SACCRG( 7, 32) = 0.250315E+01
+ PKER_SACCRG( 7, 33) = 0.252581E+01
+ PKER_SACCRG( 7, 34) = 0.252840E+01
+ PKER_SACCRG( 7, 35) = 0.255273E+01
+ PKER_SACCRG( 7, 36) = 0.256037E+01
+ PKER_SACCRG( 7, 37) = 0.257082E+01
+ PKER_SACCRG( 7, 38) = 0.257059E+01
+ PKER_SACCRG( 7, 39) = 0.258639E+01
+ PKER_SACCRG( 7, 40) = 0.259309E+01
+ PKER_SACCRG( 8, 1) = 0.528716E-01
+ PKER_SACCRG( 8, 2) = 0.738656E-01
+ PKER_SACCRG( 8, 3) = 0.104761E+00
+ PKER_SACCRG( 8, 4) = 0.145922E+00
+ PKER_SACCRG( 8, 5) = 0.200590E+00
+ PKER_SACCRG( 8, 6) = 0.266564E+00
+ PKER_SACCRG( 8, 7) = 0.347455E+00
+ PKER_SACCRG( 8, 8) = 0.439289E+00
+ PKER_SACCRG( 8, 9) = 0.538750E+00
+ PKER_SACCRG( 8, 10) = 0.641435E+00
+ PKER_SACCRG( 8, 11) = 0.742928E+00
+ PKER_SACCRG( 8, 12) = 0.840123E+00
+ PKER_SACCRG( 8, 13) = 0.933153E+00
+ PKER_SACCRG( 8, 14) = 0.101669E+01
+ PKER_SACCRG( 8, 15) = 0.109379E+01
+ PKER_SACCRG( 8, 16) = 0.116555E+01
+ PKER_SACCRG( 8, 17) = 0.122901E+01
+ PKER_SACCRG( 8, 18) = 0.129587E+01
+ PKER_SACCRG( 8, 19) = 0.136253E+01
+ PKER_SACCRG( 8, 20) = 0.142961E+01
+ PKER_SACCRG( 8, 21) = 0.149682E+01
+ PKER_SACCRG( 8, 22) = 0.154680E+01
+ PKER_SACCRG( 8, 23) = 0.161203E+01
+ PKER_SACCRG( 8, 24) = 0.167558E+01
+ PKER_SACCRG( 8, 25) = 0.171288E+01
+ PKER_SACCRG( 8, 26) = 0.177187E+01
+ PKER_SACCRG( 8, 27) = 0.180128E+01
+ PKER_SACCRG( 8, 28) = 0.185526E+01
+ PKER_SACCRG( 8, 29) = 0.187967E+01
+ PKER_SACCRG( 8, 30) = 0.190269E+01
+ PKER_SACCRG( 8, 31) = 0.192514E+01
+ PKER_SACCRG( 8, 32) = 0.194743E+01
+ PKER_SACCRG( 8, 33) = 0.196972E+01
+ PKER_SACCRG( 8, 34) = 0.197248E+01
+ PKER_SACCRG( 8, 35) = 0.199642E+01
+ PKER_SACCRG( 8, 36) = 0.200404E+01
+ PKER_SACCRG( 8, 37) = 0.201440E+01
+ PKER_SACCRG( 8, 38) = 0.201423E+01
+ PKER_SACCRG( 8, 39) = 0.202988E+01
+ PKER_SACCRG( 8, 40) = 0.203655E+01
+ PKER_SACCRG( 9, 1) = 0.278736E-01
+ PKER_SACCRG( 9, 2) = 0.380862E-01
+ PKER_SACCRG( 9, 3) = 0.527022E-01
+ PKER_SACCRG( 9, 4) = 0.728700E-01
+ PKER_SACCRG( 9, 5) = 0.103495E+00
+ PKER_SACCRG( 9, 6) = 0.140384E+00
+ PKER_SACCRG( 9, 7) = 0.190987E+00
+ PKER_SACCRG( 9, 8) = 0.252072E+00
+ PKER_SACCRG( 9, 9) = 0.321788E+00
+ PKER_SACCRG( 9, 10) = 0.397021E+00
+ PKER_SACCRG( 9, 11) = 0.474298E+00
+ PKER_SACCRG( 9, 12) = 0.550671E+00
+ PKER_SACCRG( 9, 13) = 0.628126E+00
+ PKER_SACCRG( 9, 14) = 0.696224E+00
+ PKER_SACCRG( 9, 15) = 0.760530E+00
+ PKER_SACCRG( 9, 16) = 0.818368E+00
+ PKER_SACCRG( 9, 17) = 0.869376E+00
+ PKER_SACCRG( 9, 18) = 0.921962E+00
+ PKER_SACCRG( 9, 19) = 0.974261E+00
+ PKER_SACCRG( 9, 20) = 0.102767E+01
+ PKER_SACCRG( 9, 21) = 0.108227E+01
+ PKER_SACCRG( 9, 22) = 0.112440E+01
+ PKER_SACCRG( 9, 23) = 0.117981E+01
+ PKER_SACCRG( 9, 24) = 0.123524E+01
+ PKER_SACCRG( 9, 25) = 0.126928E+01
+ PKER_SACCRG( 9, 26) = 0.132283E+01
+ PKER_SACCRG( 9, 27) = 0.135076E+01
+ PKER_SACCRG( 9, 28) = 0.140121E+01
+ PKER_SACCRG( 9, 29) = 0.142494E+01
+ PKER_SACCRG( 9, 30) = 0.144733E+01
+ PKER_SACCRG( 9, 31) = 0.146916E+01
+ PKER_SACCRG( 9, 32) = 0.149084E+01
+ PKER_SACCRG( 9, 33) = 0.151254E+01
+ PKER_SACCRG( 9, 34) = 0.151553E+01
+ PKER_SACCRG( 9, 35) = 0.153878E+01
+ PKER_SACCRG( 9, 36) = 0.154633E+01
+ PKER_SACCRG( 9, 37) = 0.155650E+01
+ PKER_SACCRG( 9, 38) = 0.155645E+01
+ PKER_SACCRG( 9, 39) = 0.157170E+01
+ PKER_SACCRG( 9, 40) = 0.157824E+01
+ PKER_SACCRG( 10, 1) = 0.166015E-01
+ PKER_SACCRG( 10, 2) = 0.207180E-01
+ PKER_SACCRG( 10, 3) = 0.294022E-01
+ PKER_SACCRG( 10, 4) = 0.391607E-01
+ PKER_SACCRG( 10, 5) = 0.559000E-01
+ PKER_SACCRG( 10, 6) = 0.744121E-01
+ PKER_SACCRG( 10, 7) = 0.105256E+00
+ PKER_SACCRG( 10, 8) = 0.144477E+00
+ PKER_SACCRG( 10, 9) = 0.191560E+00
+ PKER_SACCRG( 10, 10) = 0.244595E+00
+ PKER_SACCRG( 10, 11) = 0.300939E+00
+ PKER_SACCRG( 10, 12) = 0.358043E+00
+ PKER_SACCRG( 10, 13) = 0.421591E+00
+ PKER_SACCRG( 10, 14) = 0.475395E+00
+ PKER_SACCRG( 10, 15) = 0.526709E+00
+ PKER_SACCRG( 10, 16) = 0.571706E+00
+ PKER_SACCRG( 10, 17) = 0.610208E+00
+ PKER_SACCRG( 10, 18) = 0.648730E+00
+ PKER_SACCRG( 10, 19) = 0.686542E+00
+ PKER_SACCRG( 10, 20) = 0.725822E+00
+ PKER_SACCRG( 10, 21) = 0.767019E+00
+ PKER_SACCRG( 10, 22) = 0.800082E+00
+ PKER_SACCRG( 10, 23) = 0.844217E+00
+ PKER_SACCRG( 10, 24) = 0.889576E+00
+ PKER_SACCRG( 10, 25) = 0.918526E+00
+ PKER_SACCRG( 10, 26) = 0.964209E+00
+ PKER_SACCRG( 10, 27) = 0.988904E+00
+ PKER_SACCRG( 10, 28) = 0.103361E+01
+ PKER_SACCRG( 10, 29) = 0.105534E+01
+ PKER_SACCRG( 10, 30) = 0.107605E+01
+ PKER_SACCRG( 10, 31) = 0.109642E+01
+ PKER_SACCRG( 10, 32) = 0.111684E+01
+ PKER_SACCRG( 10, 33) = 0.113743E+01
+ PKER_SACCRG( 10, 34) = 0.114050E+01
+ PKER_SACCRG( 10, 35) = 0.116270E+01
+ PKER_SACCRG( 10, 36) = 0.117006E+01
+ PKER_SACCRG( 10, 37) = 0.117989E+01
+ PKER_SACCRG( 10, 38) = 0.117995E+01
+ PKER_SACCRG( 10, 39) = 0.119464E+01
+ PKER_SACCRG( 10, 40) = 0.120099E+01
+ PKER_SACCRG( 11, 1) = 0.111044E-01
+ PKER_SACCRG( 11, 2) = 0.140992E-01
+ PKER_SACCRG( 11, 3) = 0.200609E-01
+ PKER_SACCRG( 11, 4) = 0.232439E-01
+ PKER_SACCRG( 11, 5) = 0.354694E-01
+ PKER_SACCRG( 11, 6) = 0.436900E-01
+ PKER_SACCRG( 11, 7) = 0.632818E-01
+ PKER_SACCRG( 11, 8) = 0.896661E-01
+ PKER_SACCRG( 11, 9) = 0.121930E+00
+ PKER_SACCRG( 11, 10) = 0.159502E+00
+ PKER_SACCRG( 11, 11) = 0.200025E+00
+ PKER_SACCRG( 11, 12) = 0.241698E+00
+ PKER_SACCRG( 11, 13) = 0.295144E+00
+ PKER_SACCRG( 11, 14) = 0.336006E+00
+ PKER_SACCRG( 11, 15) = 0.377386E+00
+ PKER_SACCRG( 11, 16) = 0.411206E+00
+ PKER_SACCRG( 11, 17) = 0.438302E+00
+ PKER_SACCRG( 11, 18) = 0.463886E+00
+ PKER_SACCRG( 11, 19) = 0.487520E+00
+ PKER_SACCRG( 11, 20) = 0.512578E+00
+ PKER_SACCRG( 11, 21) = 0.539738E+00
+ PKER_SACCRG( 11, 22) = 0.562324E+00
+ PKER_SACCRG( 11, 23) = 0.593764E+00
+ PKER_SACCRG( 11, 24) = 0.627461E+00
+ PKER_SACCRG( 11, 25) = 0.649948E+00
+ PKER_SACCRG( 11, 26) = 0.686103E+00
+ PKER_SACCRG( 11, 27) = 0.706568E+00
+ PKER_SACCRG( 11, 28) = 0.743765E+00
+ PKER_SACCRG( 11, 29) = 0.762569E+00
+ PKER_SACCRG( 11, 30) = 0.780660E+00
+ PKER_SACCRG( 11, 31) = 0.798542E+00
+ PKER_SACCRG( 11, 32) = 0.816528E+00
+ PKER_SACCRG( 11, 33) = 0.834806E+00
+ PKER_SACCRG( 11, 34) = 0.837659E+00
+ PKER_SACCRG( 11, 35) = 0.857477E+00
+ PKER_SACCRG( 11, 36) = 0.864115E+00
+ PKER_SACCRG( 11, 37) = 0.873008E+00
+ PKER_SACCRG( 11, 38) = 0.873061E+00
+ PKER_SACCRG( 11, 39) = 0.886446E+00
+ PKER_SACCRG( 11, 40) = 0.892271E+00
+ PKER_SACCRG( 12, 1) = 0.112036E-01
+ PKER_SACCRG( 12, 2) = 0.114329E-01
+ PKER_SACCRG( 12, 3) = 0.178923E-01
+ PKER_SACCRG( 12, 4) = 0.188532E-01
+ PKER_SACCRG( 12, 5) = 0.299182E-01
+ PKER_SACCRG( 12, 6) = 0.308733E-01
+ PKER_SACCRG( 12, 7) = 0.473754E-01
+ PKER_SACCRG( 12, 8) = 0.689542E-01
+ PKER_SACCRG( 12, 9) = 0.934473E-01
+ PKER_SACCRG( 12, 10) = 0.121252E+00
+ PKER_SACCRG( 12, 11) = 0.151891E+00
+ PKER_SACCRG( 12, 12) = 0.183271E+00
+ PKER_SACCRG( 12, 13) = 0.231566E+00
+ PKER_SACCRG( 12, 14) = 0.262842E+00
+ PKER_SACCRG( 12, 15) = 0.297656E+00
+ PKER_SACCRG( 12, 16) = 0.323172E+00
+ PKER_SACCRG( 12, 17) = 0.340540E+00
+ PKER_SACCRG( 12, 18) = 0.354846E+00
+ PKER_SACCRG( 12, 19) = 0.365491E+00
+ PKER_SACCRG( 12, 20) = 0.377022E+00
+ PKER_SACCRG( 12, 21) = 0.390392E+00
+ PKER_SACCRG( 12, 22) = 0.401842E+00
+ PKER_SACCRG( 12, 23) = 0.420150E+00
+ PKER_SACCRG( 12, 24) = 0.441206E+00
+ PKER_SACCRG( 12, 25) = 0.455697E+00
+ PKER_SACCRG( 12, 26) = 0.480831E+00
+ PKER_SACCRG( 12, 27) = 0.495365E+00
+ PKER_SACCRG( 12, 28) = 0.523291E+00
+ PKER_SACCRG( 12, 29) = 0.537770E+00
+ PKER_SACCRG( 12, 30) = 0.552060E+00
+ PKER_SACCRG( 12, 31) = 0.566509E+00
+ PKER_SACCRG( 12, 32) = 0.581415E+00
+ PKER_SACCRG( 12, 33) = 0.596879E+00
+ PKER_SACCRG( 12, 34) = 0.599387E+00
+ PKER_SACCRG( 12, 35) = 0.616587E+00
+ PKER_SACCRG( 12, 36) = 0.622495E+00
+ PKER_SACCRG( 12, 37) = 0.630411E+00
+ PKER_SACCRG( 12, 38) = 0.630571E+00
+ PKER_SACCRG( 12, 39) = 0.642452E+00
+ PKER_SACCRG( 12, 40) = 0.647681E+00
+ PKER_SACCRG( 13, 1) = 0.131271E-01
+ PKER_SACCRG( 13, 2) = 0.104043E-01
+ PKER_SACCRG( 13, 3) = 0.247665E-01
+ PKER_SACCRG( 13, 4) = 0.205990E-01
+ PKER_SACCRG( 13, 5) = 0.395001E-01
+ PKER_SACCRG( 13, 6) = 0.312666E-01
+ PKER_SACCRG( 13, 7) = 0.477825E-01
+ PKER_SACCRG( 13, 8) = 0.683581E-01
+ PKER_SACCRG( 13, 9) = 0.919629E-01
+ PKER_SACCRG( 13, 10) = 0.115448E+00
+ PKER_SACCRG( 13, 11) = 0.140886E+00
+ PKER_SACCRG( 13, 12) = 0.165972E+00
+ PKER_SACCRG( 13, 13) = 0.214164E+00
+ PKER_SACCRG( 13, 14) = 0.239404E+00
+ PKER_SACCRG( 13, 15) = 0.271635E+00
+ PKER_SACCRG( 13, 16) = 0.292801E+00
+ PKER_SACCRG( 13, 17) = 0.302897E+00
+ PKER_SACCRG( 13, 18) = 0.308546E+00
+ PKER_SACCRG( 13, 19) = 0.308094E+00
+ PKER_SACCRG( 13, 20) = 0.307713E+00
+ PKER_SACCRG( 13, 21) = 0.308408E+00
+ PKER_SACCRG( 13, 22) = 0.309140E+00
+ PKER_SACCRG( 13, 23) = 0.314537E+00
+ PKER_SACCRG( 13, 24) = 0.322967E+00
+ PKER_SACCRG( 13, 25) = 0.328752E+00
+ PKER_SACCRG( 13, 26) = 0.342013E+00
+ PKER_SACCRG( 13, 27) = 0.349707E+00
+ PKER_SACCRG( 13, 28) = 0.366946E+00
+ PKER_SACCRG( 13, 29) = 0.376098E+00
+ PKER_SACCRG( 13, 30) = 0.385551E+00
+ PKER_SACCRG( 13, 31) = 0.395538E+00
+ PKER_SACCRG( 13, 32) = 0.406180E+00
+ PKER_SACCRG( 13, 33) = 0.417508E+00
+ PKER_SACCRG( 13, 34) = 0.419391E+00
+ PKER_SACCRG( 13, 35) = 0.432329E+00
+ PKER_SACCRG( 13, 36) = 0.436853E+00
+ PKER_SACCRG( 13, 37) = 0.442935E+00
+ PKER_SACCRG( 13, 38) = 0.443078E+00
+ PKER_SACCRG( 13, 39) = 0.452270E+00
+ PKER_SACCRG( 13, 40) = 0.456355E+00
+ PKER_SACCRG( 14, 1) = 0.220972E-01
+ PKER_SACCRG( 14, 2) = 0.225095E-01
+ PKER_SACCRG( 14, 3) = 0.530807E-01
+ PKER_SACCRG( 14, 4) = 0.350162E-01
+ PKER_SACCRG( 14, 5) = 0.652405E-01
+ PKER_SACCRG( 14, 6) = 0.408581E-01
+ PKER_SACCRG( 14, 7) = 0.676352E-01
+ PKER_SACCRG( 14, 8) = 0.883821E-01
+ PKER_SACCRG( 14, 9) = 0.111280E+00
+ PKER_SACCRG( 14, 10) = 0.135342E+00
+ PKER_SACCRG( 14, 11) = 0.155830E+00
+ PKER_SACCRG( 14, 12) = 0.177813E+00
+ PKER_SACCRG( 14, 13) = 0.229268E+00
+ PKER_SACCRG( 14, 14) = 0.250281E+00
+ PKER_SACCRG( 14, 15) = 0.283477E+00
+ PKER_SACCRG( 14, 16) = 0.304267E+00
+ PKER_SACCRG( 14, 17) = 0.309800E+00
+ PKER_SACCRG( 14, 18) = 0.310052E+00
+ PKER_SACCRG( 14, 19) = 0.301145E+00
+ PKER_SACCRG( 14, 20) = 0.291190E+00
+ PKER_SACCRG( 14, 21) = 0.281443E+00
+ PKER_SACCRG( 14, 22) = 0.272681E+00
+ PKER_SACCRG( 14, 23) = 0.266753E+00
+ PKER_SACCRG( 14, 24) = 0.263570E+00
+ PKER_SACCRG( 14, 25) = 0.260816E+00
+ PKER_SACCRG( 14, 26) = 0.262490E+00
+ PKER_SACCRG( 14, 27) = 0.262938E+00
+ PKER_SACCRG( 14, 28) = 0.269023E+00
+ PKER_SACCRG( 14, 29) = 0.271997E+00
+ PKER_SACCRG( 14, 30) = 0.275827E+00
+ PKER_SACCRG( 14, 31) = 0.280494E+00
+ PKER_SACCRG( 14, 32) = 0.285992E+00
+ PKER_SACCRG( 14, 33) = 0.292310E+00
+ PKER_SACCRG( 14, 34) = 0.293159E+00
+ PKER_SACCRG( 14, 35) = 0.300976E+00
+ PKER_SACCRG( 14, 36) = 0.303711E+00
+ PKER_SACCRG( 14, 37) = 0.307540E+00
+ PKER_SACCRG( 14, 38) = 0.307562E+00
+ PKER_SACCRG( 14, 39) = 0.313606E+00
+ PKER_SACCRG( 14, 40) = 0.316326E+00
+ PKER_SACCRG( 15, 1) = 0.480528E-01
+ PKER_SACCRG( 15, 2) = 0.460914E-01
+ PKER_SACCRG( 15, 3) = 0.991170E-01
+ PKER_SACCRG( 15, 4) = 0.567181E-01
+ PKER_SACCRG( 15, 5) = 0.100010E+00
+ PKER_SACCRG( 15, 6) = 0.697060E-01
+ PKER_SACCRG( 15, 7) = 0.107823E+00
+ PKER_SACCRG( 15, 8) = 0.125346E+00
+ PKER_SACCRG( 15, 9) = 0.161990E+00
+ PKER_SACCRG( 15, 10) = 0.179953E+00
+ PKER_SACCRG( 15, 11) = 0.199216E+00
+ PKER_SACCRG( 15, 12) = 0.212246E+00
+ PKER_SACCRG( 15, 13) = 0.266104E+00
+ PKER_SACCRG( 15, 14) = 0.283092E+00
+ PKER_SACCRG( 15, 15) = 0.318102E+00
+ PKER_SACCRG( 15, 16) = 0.341638E+00
+ PKER_SACCRG( 15, 17) = 0.344908E+00
+ PKER_SACCRG( 15, 18) = 0.342998E+00
+ PKER_SACCRG( 15, 19) = 0.328675E+00
+ PKER_SACCRG( 15, 20) = 0.312172E+00
+ PKER_SACCRG( 15, 21) = 0.294796E+00
+ PKER_SACCRG( 15, 22) = 0.278738E+00
+ PKER_SACCRG( 15, 23) = 0.263956E+00
+ PKER_SACCRG( 15, 24) = 0.251370E+00
+ PKER_SACCRG( 15, 25) = 0.241265E+00
+ PKER_SACCRG( 15, 26) = 0.232919E+00
+ PKER_SACCRG( 15, 27) = 0.226634E+00
+ PKER_SACCRG( 15, 28) = 0.222478E+00
+ PKER_SACCRG( 15, 29) = 0.219366E+00
+ PKER_SACCRG( 15, 30) = 0.217473E+00
+ PKER_SACCRG( 15, 31) = 0.216686E+00
+ PKER_SACCRG( 15, 32) = 0.216856E+00
+ PKER_SACCRG( 15, 33) = 0.217936E+00
+ PKER_SACCRG( 15, 34) = 0.217490E+00
+ PKER_SACCRG( 15, 35) = 0.219960E+00
+ PKER_SACCRG( 15, 36) = 0.220717E+00
+ PKER_SACCRG( 15, 37) = 0.222091E+00
+ PKER_SACCRG( 15, 38) = 0.221940E+00
+ PKER_SACCRG( 15, 39) = 0.224482E+00
+ PKER_SACCRG( 15, 40) = 0.225640E+00
+ PKER_SACCRG( 16, 1) = 0.135520E+00
+ PKER_SACCRG( 16, 2) = 0.511950E-01
+ PKER_SACCRG( 16, 3) = 0.217525E+00
+ PKER_SACCRG( 16, 4) = 0.105404E+00
+ PKER_SACCRG( 16, 5) = 0.166738E+00
+ PKER_SACCRG( 16, 6) = 0.106414E+00
+ PKER_SACCRG( 16, 7) = 0.155389E+00
+ PKER_SACCRG( 16, 8) = 0.202391E+00
+ PKER_SACCRG( 16, 9) = 0.244428E+00
+ PKER_SACCRG( 16, 10) = 0.245798E+00
+ PKER_SACCRG( 16, 11) = 0.254901E+00
+ PKER_SACCRG( 16, 12) = 0.267555E+00
+ PKER_SACCRG( 16, 13) = 0.327857E+00
+ PKER_SACCRG( 16, 14) = 0.332092E+00
+ PKER_SACCRG( 16, 15) = 0.367307E+00
+ PKER_SACCRG( 16, 16) = 0.392455E+00
+ PKER_SACCRG( 16, 17) = 0.394028E+00
+ PKER_SACCRG( 16, 18) = 0.392223E+00
+ PKER_SACCRG( 16, 19) = 0.375124E+00
+ PKER_SACCRG( 16, 20) = 0.354933E+00
+ PKER_SACCRG( 16, 21) = 0.332995E+00
+ PKER_SACCRG( 16, 22) = 0.312234E+00
+ PKER_SACCRG( 16, 23) = 0.291567E+00
+ PKER_SACCRG( 16, 24) = 0.272491E+00
+ PKER_SACCRG( 16, 25) = 0.256940E+00
+ PKER_SACCRG( 16, 26) = 0.241153E+00
+ PKER_SACCRG( 16, 27) = 0.229504E+00
+ PKER_SACCRG( 16, 28) = 0.217125E+00
+ PKER_SACCRG( 16, 29) = 0.208776E+00
+ PKER_SACCRG( 16, 30) = 0.201869E+00
+ PKER_SACCRG( 16, 31) = 0.196184E+00
+ PKER_SACCRG( 16, 32) = 0.191474E+00
+ PKER_SACCRG( 16, 33) = 0.187627E+00
+ PKER_SACCRG( 16, 34) = 0.185787E+00
+ PKER_SACCRG( 16, 35) = 0.183153E+00
+ PKER_SACCRG( 16, 36) = 0.181879E+00
+ PKER_SACCRG( 16, 37) = 0.180812E+00
+ PKER_SACCRG( 16, 38) = 0.180310E+00
+ PKER_SACCRG( 16, 39) = 0.179588E+00
+ PKER_SACCRG( 16, 40) = 0.179256E+00
+ PKER_SACCRG( 17, 1) = 0.149690E+00
+ PKER_SACCRG( 17, 2) = 0.141906E+00
+ PKER_SACCRG( 17, 3) = 0.239915E+00
+ PKER_SACCRG( 17, 4) = 0.227359E+00
+ PKER_SACCRG( 17, 5) = 0.305318E+00
+ PKER_SACCRG( 17, 6) = 0.174320E+00
+ PKER_SACCRG( 17, 7) = 0.234389E+00
+ PKER_SACCRG( 17, 8) = 0.286831E+00
+ PKER_SACCRG( 17, 9) = 0.330246E+00
+ PKER_SACCRG( 17, 10) = 0.364514E+00
+ PKER_SACCRG( 17, 11) = 0.342438E+00
+ PKER_SACCRG( 17, 12) = 0.336986E+00
+ PKER_SACCRG( 17, 13) = 0.395814E+00
+ PKER_SACCRG( 17, 14) = 0.394930E+00
+ PKER_SACCRG( 17, 15) = 0.422717E+00
+ PKER_SACCRG( 17, 16) = 0.449479E+00
+ PKER_SACCRG( 17, 17) = 0.446458E+00
+ PKER_SACCRG( 17, 18) = 0.445329E+00
+ PKER_SACCRG( 17, 19) = 0.426914E+00
+ PKER_SACCRG( 17, 20) = 0.405255E+00
+ PKER_SACCRG( 17, 21) = 0.381244E+00
+ PKER_SACCRG( 17, 22) = 0.358154E+00
+ PKER_SACCRG( 17, 23) = 0.334400E+00
+ PKER_SACCRG( 17, 24) = 0.311688E+00
+ PKER_SACCRG( 17, 25) = 0.293019E+00
+ PKER_SACCRG( 17, 26) = 0.272662E+00
+ PKER_SACCRG( 17, 27) = 0.257596E+00
+ PKER_SACCRG( 17, 28) = 0.239717E+00
+ PKER_SACCRG( 17, 29) = 0.227718E+00
+ PKER_SACCRG( 17, 30) = 0.217234E+00
+ PKER_SACCRG( 17, 31) = 0.207875E+00
+ PKER_SACCRG( 17, 32) = 0.199391E+00
+ PKER_SACCRG( 17, 33) = 0.191669E+00
+ PKER_SACCRG( 17, 34) = 0.188808E+00
+ PKER_SACCRG( 17, 35) = 0.181843E+00
+ PKER_SACCRG( 17, 36) = 0.178876E+00
+ PKER_SACCRG( 17, 37) = 0.175666E+00
+ PKER_SACCRG( 17, 38) = 0.174997E+00
+ PKER_SACCRG( 17, 39) = 0.171113E+00
+ PKER_SACCRG( 17, 40) = 0.169320E+00
+ PKER_SACCRG( 18, 1) = 0.631893E+00
+ PKER_SACCRG( 18, 2) = 0.153945E+00
+ PKER_SACCRG( 18, 3) = 0.650972E+00
+ PKER_SACCRG( 18, 4) = 0.246364E+00
+ PKER_SACCRG( 18, 5) = 0.329959E+00
+ PKER_SACCRG( 18, 6) = 0.313802E+00
+ PKER_SACCRG( 18, 7) = 0.376499E+00
+ PKER_SACCRG( 18, 8) = 0.424102E+00
+ PKER_SACCRG( 18, 9) = 0.458899E+00
+ PKER_SACCRG( 18, 10) = 0.483029E+00
+ PKER_SACCRG( 18, 11) = 0.423961E+00
+ PKER_SACCRG( 18, 12) = 0.444275E+00
+ PKER_SACCRG( 18, 13) = 0.488870E+00
+ PKER_SACCRG( 18, 14) = 0.465758E+00
+ PKER_SACCRG( 18, 15) = 0.479440E+00
+ PKER_SACCRG( 18, 16) = 0.503775E+00
+ PKER_SACCRG( 18, 17) = 0.497695E+00
+ PKER_SACCRG( 18, 18) = 0.495552E+00
+ PKER_SACCRG( 18, 19) = 0.476283E+00
+ PKER_SACCRG( 18, 20) = 0.454089E+00
+ PKER_SACCRG( 18, 21) = 0.429503E+00
+ PKER_SACCRG( 18, 22) = 0.405667E+00
+ PKER_SACCRG( 18, 23) = 0.380824E+00
+ PKER_SACCRG( 18, 24) = 0.356738E+00
+ PKER_SACCRG( 18, 25) = 0.336694E+00
+ PKER_SACCRG( 18, 26) = 0.314290E+00
+ PKER_SACCRG( 18, 27) = 0.297525E+00
+ PKER_SACCRG( 18, 28) = 0.276852E+00
+ PKER_SACCRG( 18, 29) = 0.262848E+00
+ PKER_SACCRG( 18, 30) = 0.250291E+00
+ PKER_SACCRG( 18, 31) = 0.238780E+00
+ PKER_SACCRG( 18, 32) = 0.228015E+00
+ PKER_SACCRG( 18, 33) = 0.217832E+00
+ PKER_SACCRG( 18, 34) = 0.214245E+00
+ PKER_SACCRG( 18, 35) = 0.204475E+00
+ PKER_SACCRG( 18, 36) = 0.200354E+00
+ PKER_SACCRG( 18, 37) = 0.195678E+00
+ PKER_SACCRG( 18, 38) = 0.194830E+00
+ PKER_SACCRG( 18, 39) = 0.188818E+00
+ PKER_SACCRG( 18, 40) = 0.186017E+00
+ PKER_SACCRG( 19, 1) = 0.672459E+00
+ PKER_SACCRG( 19, 2) = 0.163837E+00
+ PKER_SACCRG( 19, 3) = 0.691468E+00
+ PKER_SACCRG( 19, 4) = 0.261952E+00
+ PKER_SACCRG( 19, 5) = 0.685434E+00
+ PKER_SACCRG( 19, 6) = 0.334035E+00
+ PKER_SACCRG( 19, 7) = 0.400420E+00
+ PKER_SACCRG( 19, 8) = 0.669587E+00
+ PKER_SACCRG( 19, 9) = 0.667157E+00
+ PKER_SACCRG( 19, 10) = 0.514395E+00
+ PKER_SACCRG( 19, 11) = 0.531395E+00
+ PKER_SACCRG( 19, 12) = 0.540837E+00
+ PKER_SACCRG( 19, 13) = 0.569345E+00
+ PKER_SACCRG( 19, 14) = 0.526146E+00
+ PKER_SACCRG( 19, 15) = 0.546382E+00
+ PKER_SACCRG( 19, 16) = 0.559661E+00
+ PKER_SACCRG( 19, 17) = 0.544617E+00
+ PKER_SACCRG( 19, 18) = 0.539552E+00
+ PKER_SACCRG( 19, 19) = 0.519707E+00
+ PKER_SACCRG( 19, 20) = 0.496750E+00
+ PKER_SACCRG( 19, 21) = 0.472143E+00
+ PKER_SACCRG( 19, 22) = 0.448291E+00
+ PKER_SACCRG( 19, 23) = 0.423441E+00
+ PKER_SACCRG( 19, 24) = 0.399209E+00
+ PKER_SACCRG( 19, 25) = 0.378889E+00
+ PKER_SACCRG( 19, 26) = 0.356036E+00
+ PKER_SACCRG( 19, 27) = 0.338767E+00
+ PKER_SACCRG( 19, 28) = 0.317227E+00
+ PKER_SACCRG( 19, 29) = 0.302476E+00
+ PKER_SACCRG( 19, 30) = 0.289109E+00
+ PKER_SACCRG( 19, 31) = 0.276715E+00
+ PKER_SACCRG( 19, 32) = 0.264965E+00
+ PKER_SACCRG( 19, 33) = 0.253649E+00
+ PKER_SACCRG( 19, 34) = 0.249729E+00
+ PKER_SACCRG( 19, 35) = 0.238588E+00
+ PKER_SACCRG( 19, 36) = 0.233884E+00
+ PKER_SACCRG( 19, 37) = 0.228445E+00
+ PKER_SACCRG( 19, 38) = 0.227525E+00
+ PKER_SACCRG( 19, 39) = 0.220364E+00
+ PKER_SACCRG( 19, 40) = 0.217009E+00
+ PKER_SACCRG( 20, 1) = 0.706202E+00
+ PKER_SACCRG( 20, 2) = 0.674724E+00
+ PKER_SACCRG( 20, 3) = 0.725166E+00
+ PKER_SACCRG( 20, 4) = 0.693017E+00
+ PKER_SACCRG( 20, 5) = 0.719179E+00
+ PKER_SACCRG( 20, 6) = 0.350831E+00
+ PKER_SACCRG( 20, 7) = 0.699643E+00
+ PKER_SACCRG( 20, 8) = 0.703444E+00
+ PKER_SACCRG( 20, 9) = 0.701049E+00
+ PKER_SACCRG( 20, 10) = 0.694012E+00
+ PKER_SACCRG( 20, 11) = 0.683408E+00
+ PKER_SACCRG( 20, 12) = 0.569529E+00
+ PKER_SACCRG( 20, 13) = 0.599833E+00
+ PKER_SACCRG( 20, 14) = 0.594737E+00
+ PKER_SACCRG( 20, 15) = 0.575600E+00
+ PKER_SACCRG( 20, 16) = 0.606275E+00
+ PKER_SACCRG( 20, 17) = 0.583940E+00
+ PKER_SACCRG( 20, 18) = 0.579501E+00
+ PKER_SACCRG( 20, 19) = 0.555831E+00
+ PKER_SACCRG( 20, 20) = 0.532892E+00
+ PKER_SACCRG( 20, 21) = 0.508257E+00
+ PKER_SACCRG( 20, 22) = 0.484543E+00
+ PKER_SACCRG( 20, 23) = 0.459997E+00
+ PKER_SACCRG( 20, 24) = 0.436069E+00
+ PKER_SACCRG( 20, 25) = 0.415864E+00
+ PKER_SACCRG( 20, 26) = 0.393252E+00
+ PKER_SACCRG( 20, 27) = 0.375986E+00
+ PKER_SACCRG( 20, 28) = 0.354568E+00
+ PKER_SACCRG( 20, 29) = 0.339711E+00
+ PKER_SACCRG( 20, 30) = 0.326208E+00
+ PKER_SACCRG( 20, 31) = 0.313640E+00
+ PKER_SACCRG( 20, 32) = 0.301685E+00
+ PKER_SACCRG( 20, 33) = 0.290116E+00
+ PKER_SACCRG( 20, 34) = 0.286041E+00
+ PKER_SACCRG( 20, 35) = 0.274570E+00
+ PKER_SACCRG( 20, 36) = 0.269672E+00
+ PKER_SACCRG( 20, 37) = 0.264008E+00
+ PKER_SACCRG( 20, 38) = 0.263022E+00
+ PKER_SACCRG( 20, 39) = 0.255533E+00
+ PKER_SACCRG( 20, 40) = 0.251995E+00
+ PKER_SACCRG( 21, 1) = 0.733970E+00
+ PKER_SACCRG( 21, 2) = 0.702591E+00
+ PKER_SACCRG( 21, 3) = 0.752907E+00
+ PKER_SACCRG( 21, 4) = 0.720853E+00
+ PKER_SACCRG( 21, 5) = 0.746955E+00
+ PKER_SACCRG( 21, 6) = 0.715100E+00
+ PKER_SACCRG( 21, 7) = 0.727495E+00
+ PKER_SACCRG( 21, 8) = 0.731302E+00
+ PKER_SACCRG( 21, 9) = 0.728932E+00
+ PKER_SACCRG( 21, 10) = 0.721938E+00
+ PKER_SACCRG( 21, 11) = 0.711393E+00
+ PKER_SACCRG( 21, 12) = 0.593102E+00
+ PKER_SACCRG( 21, 13) = 0.695541E+00
+ PKER_SACCRG( 21, 14) = 0.620207E+00
+ PKER_SACCRG( 21, 15) = 0.628080E+00
+ PKER_SACCRG( 21, 16) = 0.652667E+00
+ PKER_SACCRG( 21, 17) = 0.620258E+00
+ PKER_SACCRG( 21, 18) = 0.612351E+00
+ PKER_SACCRG( 21, 19) = 0.586131E+00
+ PKER_SACCRG( 21, 20) = 0.562595E+00
+ PKER_SACCRG( 21, 21) = 0.537939E+00
+ PKER_SACCRG( 21, 22) = 0.514380E+00
+ PKER_SACCRG( 21, 23) = 0.490128E+00
+ PKER_SACCRG( 21, 24) = 0.466554E+00
+ PKER_SACCRG( 21, 25) = 0.446527E+00
+ PKER_SACCRG( 21, 26) = 0.424301E+00
+ PKER_SACCRG( 21, 27) = 0.407171E+00
+ PKER_SACCRG( 21, 28) = 0.386147E+00
+ PKER_SACCRG( 21, 29) = 0.371397E+00
+ PKER_SACCRG( 21, 30) = 0.357992E+00
+ PKER_SACCRG( 21, 31) = 0.345523E+00
+ PKER_SACCRG( 21, 32) = 0.333669E+00
+ PKER_SACCRG( 21, 33) = 0.322203E+00
+ PKER_SACCRG( 21, 34) = 0.318066E+00
+ PKER_SACCRG( 21, 35) = 0.306710E+00
+ PKER_SACCRG( 21, 36) = 0.301805E+00
+ PKER_SACCRG( 21, 37) = 0.296159E+00
+ PKER_SACCRG( 21, 38) = 0.295137E+00
+ PKER_SACCRG( 21, 39) = 0.287697E+00
+ PKER_SACCRG( 21, 40) = 0.284163E+00
+ PKER_SACCRG( 22, 1) = 0.756844E+00
+ PKER_SACCRG( 22, 2) = 0.725532E+00
+ PKER_SACCRG( 22, 3) = 0.775766E+00
+ PKER_SACCRG( 22, 4) = 0.743775E+00
+ PKER_SACCRG( 22, 5) = 0.769838E+00
+ PKER_SACCRG( 22, 6) = 0.738050E+00
+ PKER_SACCRG( 22, 7) = 0.750432E+00
+ PKER_SACCRG( 22, 8) = 0.754243E+00
+ PKER_SACCRG( 22, 9) = 0.751893E+00
+ PKER_SACCRG( 22, 10) = 0.744930E+00
+ PKER_SACCRG( 22, 11) = 0.734426E+00
+ PKER_SACCRG( 22, 12) = 0.721165E+00
+ PKER_SACCRG( 22, 13) = 0.718670E+00
+ PKER_SACCRG( 22, 14) = 0.641274E+00
+ PKER_SACCRG( 22, 15) = 0.649585E+00
+ PKER_SACCRG( 22, 16) = 0.676054E+00
+ PKER_SACCRG( 22, 17) = 0.643178E+00
+ PKER_SACCRG( 22, 18) = 0.635995E+00
+ PKER_SACCRG( 22, 19) = 0.609851E+00
+ PKER_SACCRG( 22, 20) = 0.586561E+00
+ PKER_SACCRG( 22, 21) = 0.562281E+00
+ PKER_SACCRG( 22, 22) = 0.538734E+00
+ PKER_SACCRG( 22, 23) = 0.514737E+00
+ PKER_SACCRG( 22, 24) = 0.491439E+00
+ PKER_SACCRG( 22, 25) = 0.471548E+00
+ PKER_SACCRG( 22, 26) = 0.449647E+00
+ PKER_SACCRG( 22, 27) = 0.432634E+00
+ PKER_SACCRG( 22, 28) = 0.411979E+00
+ PKER_SACCRG( 22, 29) = 0.397342E+00
+ PKER_SACCRG( 22, 30) = 0.384054E+00
+ PKER_SACCRG( 22, 31) = 0.371713E+00
+ PKER_SACCRG( 22, 32) = 0.360005E+00
+ PKER_SACCRG( 22, 33) = 0.348703E+00
+ PKER_SACCRG( 22, 34) = 0.344524E+00
+ PKER_SACCRG( 22, 35) = 0.333379E+00
+ PKER_SACCRG( 22, 36) = 0.328512E+00
+ PKER_SACCRG( 22, 37) = 0.322944E+00
+ PKER_SACCRG( 22, 38) = 0.321892E+00
+ PKER_SACCRG( 22, 39) = 0.314603E+00
+ PKER_SACCRG( 22, 40) = 0.311127E+00
+ PKER_SACCRG( 23, 1) = 0.775706E+00
+ PKER_SACCRG( 23, 2) = 0.744439E+00
+ PKER_SACCRG( 23, 3) = 0.794619E+00
+ PKER_SACCRG( 23, 4) = 0.762671E+00
+ PKER_SACCRG( 23, 5) = 0.788709E+00
+ PKER_SACCRG( 23, 6) = 0.756967E+00
+ PKER_SACCRG( 23, 7) = 0.769340E+00
+ PKER_SACCRG( 23, 8) = 0.773156E+00
+ PKER_SACCRG( 23, 9) = 0.770820E+00
+ PKER_SACCRG( 23, 10) = 0.763878E+00
+ PKER_SACCRG( 23, 11) = 0.753405E+00
+ PKER_SACCRG( 23, 12) = 0.740181E+00
+ PKER_SACCRG( 23, 13) = 0.737717E+00
+ PKER_SACCRG( 23, 14) = 0.658644E+00
+ PKER_SACCRG( 23, 15) = 0.667482E+00
+ PKER_SACCRG( 23, 16) = 0.695288E+00
+ PKER_SACCRG( 23, 17) = 0.662065E+00
+ PKER_SACCRG( 23, 18) = 0.655413E+00
+ PKER_SACCRG( 23, 19) = 0.631353E+00
+ PKER_SACCRG( 23, 20) = 0.606862E+00
+ PKER_SACCRG( 23, 21) = 0.582096E+00
+ PKER_SACCRG( 23, 22) = 0.558680E+00
+ PKER_SACCRG( 23, 23) = 0.534834E+00
+ PKER_SACCRG( 23, 24) = 0.511732E+00
+ PKER_SACCRG( 23, 25) = 0.491930E+00
+ PKER_SACCRG( 23, 26) = 0.470265E+00
+ PKER_SACCRG( 23, 27) = 0.453327E+00
+ PKER_SACCRG( 23, 28) = 0.432946E+00
+ PKER_SACCRG( 23, 29) = 0.418385E+00
+ PKER_SACCRG( 23, 30) = 0.405177E+00
+ PKER_SACCRG( 23, 31) = 0.392930E+00
+ PKER_SACCRG( 23, 32) = 0.381332E+00
+ PKER_SACCRG( 23, 33) = 0.370158E+00
+ PKER_SACCRG( 23, 34) = 0.365940E+00
+ PKER_SACCRG( 23, 35) = 0.354967E+00
+ PKER_SACCRG( 23, 36) = 0.350131E+00
+ PKER_SACCRG( 23, 37) = 0.344630E+00
+ PKER_SACCRG( 23, 38) = 0.343550E+00
+ PKER_SACCRG( 23, 39) = 0.336395E+00
+ PKER_SACCRG( 23, 40) = 0.332970E+00
+ PKER_SACCRG( 24, 1) = 0.791271E+00
+ PKER_SACCRG( 24, 2) = 0.760034E+00
+ PKER_SACCRG( 24, 3) = 0.810179E+00
+ PKER_SACCRG( 24, 4) = 0.778261E+00
+ PKER_SACCRG( 24, 5) = 0.804283E+00
+ PKER_SACCRG( 24, 6) = 0.772571E+00
+ PKER_SACCRG( 24, 7) = 0.784940E+00
+ PKER_SACCRG( 24, 8) = 0.788760E+00
+ PKER_SACCRG( 24, 9) = 0.786434E+00
+ PKER_SACCRG( 24, 10) = 0.779509E+00
+ PKER_SACCRG( 24, 11) = 0.769057E+00
+ PKER_SACCRG( 24, 12) = 0.755859E+00
+ PKER_SACCRG( 24, 13) = 0.753420E+00
+ PKER_SACCRG( 24, 14) = 0.672962E+00
+ PKER_SACCRG( 24, 15) = 0.682290E+00
+ PKER_SACCRG( 24, 16) = 0.711126E+00
+ PKER_SACCRG( 24, 17) = 0.677623E+00
+ PKER_SACCRG( 24, 18) = 0.671382E+00
+ PKER_SACCRG( 24, 19) = 0.647406E+00
+ PKER_SACCRG( 24, 20) = 0.623008E+00
+ PKER_SACCRG( 24, 21) = 0.598346E+00
+ PKER_SACCRG( 24, 22) = 0.574999E+00
+ PKER_SACCRG( 24, 23) = 0.551276E+00
+ PKER_SACCRG( 24, 24) = 0.528313E+00
+ PKER_SACCRG( 24, 25) = 0.508569E+00
+ PKER_SACCRG( 24, 26) = 0.487068E+00
+ PKER_SACCRG( 24, 27) = 0.470175E+00
+ PKER_SACCRG( 24, 28) = 0.449986E+00
+ PKER_SACCRG( 24, 29) = 0.435469E+00
+ PKER_SACCRG( 24, 30) = 0.422310E+00
+ PKER_SACCRG( 24, 31) = 0.410120E+00
+ PKER_SACCRG( 24, 32) = 0.398592E+00
+ PKER_SACCRG( 24, 33) = 0.387503E+00
+ PKER_SACCRG( 24, 34) = 0.383248E+00
+ PKER_SACCRG( 24, 35) = 0.372395E+00
+ PKER_SACCRG( 24, 36) = 0.367574E+00
+ PKER_SACCRG( 24, 37) = 0.362117E+00
+ PKER_SACCRG( 24, 38) = 0.361015E+00
+ PKER_SACCRG( 24, 39) = 0.353953E+00
+ PKER_SACCRG( 24, 40) = 0.350564E+00
+ PKER_SACCRG( 25, 1) = 0.804124E+00
+ PKER_SACCRG( 25, 2) = 0.772907E+00
+ PKER_SACCRG( 25, 3) = 0.823030E+00
+ PKER_SACCRG( 25, 4) = 0.791131E+00
+ PKER_SACCRG( 25, 5) = 0.817144E+00
+ PKER_SACCRG( 25, 6) = 0.785453E+00
+ PKER_SACCRG( 25, 7) = 0.797819E+00
+ PKER_SACCRG( 25, 8) = 0.801643E+00
+ PKER_SACCRG( 25, 9) = 0.799325E+00
+ PKER_SACCRG( 25, 10) = 0.792411E+00
+ PKER_SACCRG( 25, 11) = 0.781974E+00
+ PKER_SACCRG( 25, 12) = 0.768796E+00
+ PKER_SACCRG( 25, 13) = 0.766375E+00
+ PKER_SACCRG( 25, 14) = 0.747397E+00
+ PKER_SACCRG( 25, 15) = 0.694512E+00
+ PKER_SACCRG( 25, 16) = 0.724180E+00
+ PKER_SACCRG( 25, 17) = 0.690443E+00
+ PKER_SACCRG( 25, 18) = 0.684531E+00
+ PKER_SACCRG( 25, 19) = 0.660615E+00
+ PKER_SACCRG( 25, 20) = 0.636284E+00
+ PKER_SACCRG( 25, 21) = 0.611695E+00
+ PKER_SACCRG( 25, 22) = 0.588394E+00
+ PKER_SACCRG( 25, 23) = 0.564758E+00
+ PKER_SACCRG( 25, 24) = 0.541893E+00
+ PKER_SACCRG( 25, 25) = 0.522183E+00
+ PKER_SACCRG( 25, 26) = 0.500798E+00
+ PKER_SACCRG( 25, 27) = 0.483930E+00
+ PKER_SACCRG( 25, 28) = 0.463874E+00
+ PKER_SACCRG( 25, 29) = 0.449381E+00
+ PKER_SACCRG( 25, 30) = 0.436248E+00
+ PKER_SACCRG( 25, 31) = 0.424091E+00
+ PKER_SACCRG( 25, 32) = 0.412606E+00
+ PKER_SACCRG( 25, 33) = 0.401570E+00
+ PKER_SACCRG( 25, 34) = 0.397282E+00
+ PKER_SACCRG( 25, 35) = 0.386507E+00
+ PKER_SACCRG( 25, 36) = 0.381693E+00
+ PKER_SACCRG( 25, 37) = 0.376263E+00
+ PKER_SACCRG( 25, 38) = 0.375140E+00
+ PKER_SACCRG( 25, 39) = 0.368141E+00
+ PKER_SACCRG( 25, 40) = 0.364774E+00
+ PKER_SACCRG( 26, 1) = 0.814743E+00
+ PKER_SACCRG( 26, 2) = 0.783539E+00
+ PKER_SACCRG( 26, 3) = 0.833649E+00
+ PKER_SACCRG( 26, 4) = 0.801763E+00
+ PKER_SACCRG( 26, 5) = 0.827770E+00
+ PKER_SACCRG( 26, 6) = 0.796092E+00
+ PKER_SACCRG( 26, 7) = 0.808458E+00
+ PKER_SACCRG( 26, 8) = 0.812284E+00
+ PKER_SACCRG( 26, 9) = 0.809972E+00
+ PKER_SACCRG( 26, 10) = 0.803067E+00
+ PKER_SACCRG( 26, 11) = 0.792642E+00
+ PKER_SACCRG( 26, 12) = 0.779477E+00
+ PKER_SACCRG( 26, 13) = 0.777070E+00
+ PKER_SACCRG( 26, 14) = 0.758113E+00
+ PKER_SACCRG( 26, 15) = 0.746182E+00
+ PKER_SACCRG( 26, 16) = 0.734949E+00
+ PKER_SACCRG( 26, 17) = 0.714296E+00
+ PKER_SACCRG( 26, 18) = 0.695369E+00
+ PKER_SACCRG( 26, 19) = 0.671496E+00
+ PKER_SACCRG( 26, 20) = 0.647212E+00
+ PKER_SACCRG( 26, 21) = 0.622676E+00
+ PKER_SACCRG( 26, 22) = 0.599406E+00
+ PKER_SACCRG( 26, 23) = 0.575832E+00
+ PKER_SACCRG( 26, 24) = 0.553035E+00
+ PKER_SACCRG( 26, 25) = 0.533347E+00
+ PKER_SACCRG( 26, 26) = 0.512043E+00
+ PKER_SACCRG( 26, 27) = 0.495187E+00
+ PKER_SACCRG( 26, 28) = 0.475225E+00
+ PKER_SACCRG( 26, 29) = 0.460742E+00
+ PKER_SACCRG( 26, 30) = 0.447621E+00
+ PKER_SACCRG( 26, 31) = 0.435481E+00
+ PKER_SACCRG( 26, 32) = 0.424021E+00
+ PKER_SACCRG( 26, 33) = 0.413018E+00
+ PKER_SACCRG( 26, 34) = 0.408700E+00
+ PKER_SACCRG( 26, 35) = 0.397977E+00
+ PKER_SACCRG( 26, 36) = 0.393162E+00
+ PKER_SACCRG( 26, 37) = 0.387747E+00
+ PKER_SACCRG( 26, 38) = 0.386608E+00
+ PKER_SACCRG( 26, 39) = 0.379650E+00
+ PKER_SACCRG( 26, 40) = 0.376296E+00
+ PKER_SACCRG( 27, 1) = 0.823519E+00
+ PKER_SACCRG( 27, 2) = 0.792324E+00
+ PKER_SACCRG( 27, 3) = 0.842426E+00
+ PKER_SACCRG( 27, 4) = 0.810549E+00
+ PKER_SACCRG( 27, 5) = 0.836552E+00
+ PKER_SACCRG( 27, 6) = 0.804884E+00
+ PKER_SACCRG( 27, 7) = 0.817249E+00
+ PKER_SACCRG( 27, 8) = 0.821078E+00
+ PKER_SACCRG( 27, 9) = 0.818771E+00
+ PKER_SACCRG( 27, 10) = 0.811873E+00
+ PKER_SACCRG( 27, 11) = 0.801455E+00
+ PKER_SACCRG( 27, 12) = 0.788301E+00
+ PKER_SACCRG( 27, 13) = 0.785904E+00
+ PKER_SACCRG( 27, 14) = 0.766962E+00
+ PKER_SACCRG( 27, 15) = 0.755049E+00
+ PKER_SACCRG( 27, 16) = 0.743837E+00
+ PKER_SACCRG( 27, 17) = 0.723206E+00
+ PKER_SACCRG( 27, 18) = 0.704309E+00
+ PKER_SACCRG( 27, 19) = 0.680467E+00
+ PKER_SACCRG( 27, 20) = 0.656218E+00
+ PKER_SACCRG( 27, 21) = 0.631719E+00
+ PKER_SACCRG( 27, 22) = 0.608470E+00
+ PKER_SACCRG( 27, 23) = 0.584940E+00
+ PKER_SACCRG( 27, 24) = 0.562192E+00
+ PKER_SACCRG( 27, 25) = 0.542517E+00
+ PKER_SACCRG( 27, 26) = 0.521269E+00
+ PKER_SACCRG( 27, 27) = 0.504419E+00
+ PKER_SACCRG( 27, 28) = 0.484522E+00
+ PKER_SACCRG( 27, 29) = 0.470042E+00
+ PKER_SACCRG( 27, 30) = 0.456925E+00
+ PKER_SACCRG( 27, 31) = 0.444793E+00
+ PKER_SACCRG( 27, 32) = 0.433346E+00
+ PKER_SACCRG( 27, 33) = 0.422362E+00
+ PKER_SACCRG( 27, 34) = 0.418019E+00
+ PKER_SACCRG( 27, 35) = 0.407328E+00
+ PKER_SACCRG( 27, 36) = 0.402510E+00
+ PKER_SACCRG( 27, 37) = 0.397103E+00
+ PKER_SACCRG( 27, 38) = 0.395950E+00
+ PKER_SACCRG( 27, 39) = 0.389019E+00
+ PKER_SACCRG( 27, 40) = 0.385673E+00
+ PKER_SACCRG( 28, 1) = 0.830775E+00
+ PKER_SACCRG( 28, 2) = 0.799587E+00
+ PKER_SACCRG( 28, 3) = 0.849682E+00
+ PKER_SACCRG( 28, 4) = 0.817812E+00
+ PKER_SACCRG( 28, 5) = 0.843813E+00
+ PKER_SACCRG( 28, 6) = 0.812152E+00
+ PKER_SACCRG( 28, 7) = 0.824517E+00
+ PKER_SACCRG( 28, 8) = 0.828348E+00
+ PKER_SACCRG( 28, 9) = 0.826044E+00
+ PKER_SACCRG( 28, 10) = 0.819151E+00
+ PKER_SACCRG( 28, 11) = 0.808739E+00
+ PKER_SACCRG( 28, 12) = 0.795593E+00
+ PKER_SACCRG( 28, 13) = 0.793204E+00
+ PKER_SACCRG( 28, 14) = 0.774273E+00
+ PKER_SACCRG( 28, 15) = 0.762373E+00
+ PKER_SACCRG( 28, 16) = 0.751178E+00
+ PKER_SACCRG( 28, 17) = 0.730562E+00
+ PKER_SACCRG( 28, 18) = 0.711688E+00
+ PKER_SACCRG( 28, 19) = 0.687869E+00
+ PKER_SACCRG( 28, 20) = 0.663645E+00
+ PKER_SACCRG( 28, 21) = 0.639174E+00
+ PKER_SACCRG( 28, 22) = 0.615938E+00
+ PKER_SACCRG( 28, 23) = 0.592440E+00
+ PKER_SACCRG( 28, 24) = 0.569727E+00
+ PKER_SACCRG( 28, 25) = 0.550059E+00
+ PKER_SACCRG( 28, 26) = 0.528852E+00
+ PKER_SACCRG( 28, 27) = 0.512002E+00
+ PKER_SACCRG( 28, 28) = 0.492152E+00
+ PKER_SACCRG( 28, 29) = 0.477670E+00
+ PKER_SACCRG( 28, 30) = 0.464553E+00
+ PKER_SACCRG( 28, 31) = 0.452423E+00
+ PKER_SACCRG( 28, 32) = 0.440982E+00
+ PKER_SACCRG( 28, 33) = 0.430009E+00
+ PKER_SACCRG( 28, 34) = 0.425644E+00
+ PKER_SACCRG( 28, 35) = 0.414973E+00
+ PKER_SACCRG( 28, 36) = 0.410151E+00
+ PKER_SACCRG( 28, 37) = 0.404747E+00
+ PKER_SACCRG( 28, 38) = 0.403582E+00
+ PKER_SACCRG( 28, 39) = 0.396668E+00
+ PKER_SACCRG( 28, 40) = 0.393326E+00
+ PKER_SACCRG( 29, 1) = 0.836776E+00
+ PKER_SACCRG( 29, 2) = 0.805592E+00
+ PKER_SACCRG( 29, 3) = 0.855684E+00
+ PKER_SACCRG( 29, 4) = 0.823818E+00
+ PKER_SACCRG( 29, 5) = 0.849817E+00
+ PKER_SACCRG( 29, 6) = 0.818161E+00
+ PKER_SACCRG( 29, 7) = 0.830527E+00
+ PKER_SACCRG( 29, 8) = 0.834359E+00
+ PKER_SACCRG( 29, 9) = 0.832058E+00
+ PKER_SACCRG( 29, 10) = 0.825168E+00
+ PKER_SACCRG( 29, 11) = 0.814761E+00
+ PKER_SACCRG( 29, 12) = 0.801620E+00
+ PKER_SACCRG( 29, 13) = 0.799238E+00
+ PKER_SACCRG( 29, 14) = 0.780315E+00
+ PKER_SACCRG( 29, 15) = 0.768425E+00
+ PKER_SACCRG( 29, 16) = 0.757243E+00
+ PKER_SACCRG( 29, 17) = 0.736638E+00
+ PKER_SACCRG( 29, 18) = 0.717781E+00
+ PKER_SACCRG( 29, 19) = 0.693979E+00
+ PKER_SACCRG( 29, 20) = 0.669774E+00
+ PKER_SACCRG( 29, 21) = 0.645322E+00
+ PKER_SACCRG( 29, 22) = 0.622097E+00
+ PKER_SACCRG( 29, 23) = 0.598621E+00
+ PKER_SACCRG( 29, 24) = 0.575934E+00
+ PKER_SACCRG( 29, 25) = 0.556269E+00
+ PKER_SACCRG( 29, 26) = 0.535091E+00
+ PKER_SACCRG( 29, 27) = 0.518240E+00
+ PKER_SACCRG( 29, 28) = 0.498423E+00
+ PKER_SACCRG( 29, 29) = 0.483938E+00
+ PKER_SACCRG( 29, 30) = 0.470817E+00
+ PKER_SACCRG( 29, 31) = 0.458687E+00
+ PKER_SACCRG( 29, 32) = 0.447247E+00
+ PKER_SACCRG( 29, 33) = 0.436279E+00
+ PKER_SACCRG( 29, 34) = 0.431896E+00
+ PKER_SACCRG( 29, 35) = 0.421239E+00
+ PKER_SACCRG( 29, 36) = 0.416410E+00
+ PKER_SACCRG( 29, 37) = 0.411007E+00
+ PKER_SACCRG( 29, 38) = 0.409833E+00
+ PKER_SACCRG( 29, 39) = 0.402930E+00
+ PKER_SACCRG( 29, 40) = 0.399589E+00
+ PKER_SACCRG( 30, 1) = 0.841739E+00
+ PKER_SACCRG( 30, 2) = 0.810558E+00
+ PKER_SACCRG( 30, 3) = 0.860648E+00
+ PKER_SACCRG( 30, 4) = 0.828785E+00
+ PKER_SACCRG( 30, 5) = 0.854784E+00
+ PKER_SACCRG( 30, 6) = 0.823131E+00
+ PKER_SACCRG( 30, 7) = 0.835497E+00
+ PKER_SACCRG( 30, 8) = 0.839331E+00
+ PKER_SACCRG( 30, 9) = 0.837032E+00
+ PKER_SACCRG( 30, 10) = 0.830145E+00
+ PKER_SACCRG( 30, 11) = 0.819741E+00
+ PKER_SACCRG( 30, 12) = 0.806604E+00
+ PKER_SACCRG( 30, 13) = 0.804228E+00
+ PKER_SACCRG( 30, 14) = 0.785311E+00
+ PKER_SACCRG( 30, 15) = 0.773428E+00
+ PKER_SACCRG( 30, 16) = 0.762256E+00
+ PKER_SACCRG( 30, 17) = 0.741659E+00
+ PKER_SACCRG( 30, 18) = 0.722815E+00
+ PKER_SACCRG( 30, 19) = 0.699025E+00
+ PKER_SACCRG( 30, 20) = 0.674834E+00
+ PKER_SACCRG( 30, 21) = 0.650397E+00
+ PKER_SACCRG( 30, 22) = 0.627179E+00
+ PKER_SACCRG( 30, 23) = 0.603719E+00
+ PKER_SACCRG( 30, 24) = 0.581051E+00
+ PKER_SACCRG( 30, 25) = 0.561387E+00
+ PKER_SACCRG( 30, 26) = 0.540231E+00
+ PKER_SACCRG( 30, 27) = 0.523377E+00
+ PKER_SACCRG( 30, 28) = 0.503583E+00
+ PKER_SACCRG( 30, 29) = 0.489094E+00
+ PKER_SACCRG( 30, 30) = 0.475968E+00
+ PKER_SACCRG( 30, 31) = 0.463836E+00
+ PKER_SACCRG( 30, 32) = 0.452396E+00
+ PKER_SACCRG( 30, 33) = 0.441430E+00
+ PKER_SACCRG( 30, 34) = 0.437032E+00
+ PKER_SACCRG( 30, 35) = 0.426382E+00
+ PKER_SACCRG( 30, 36) = 0.421549E+00
+ PKER_SACCRG( 30, 37) = 0.416144E+00
+ PKER_SACCRG( 30, 38) = 0.414964E+00
+ PKER_SACCRG( 30, 39) = 0.408066E+00
+ PKER_SACCRG( 30, 40) = 0.404726E+00
+ PKER_SACCRG( 31, 1) = 0.845845E+00
+ PKER_SACCRG( 31, 2) = 0.814666E+00
+ PKER_SACCRG( 31, 3) = 0.864755E+00
+ PKER_SACCRG( 31, 4) = 0.832894E+00
+ PKER_SACCRG( 31, 5) = 0.858893E+00
+ PKER_SACCRG( 31, 6) = 0.827242E+00
+ PKER_SACCRG( 31, 7) = 0.839609E+00
+ PKER_SACCRG( 31, 8) = 0.843443E+00
+ PKER_SACCRG( 31, 9) = 0.841146E+00
+ PKER_SACCRG( 31, 10) = 0.834261E+00
+ PKER_SACCRG( 31, 11) = 0.823860E+00
+ PKER_SACCRG( 31, 12) = 0.810727E+00
+ PKER_SACCRG( 31, 13) = 0.808354E+00
+ PKER_SACCRG( 31, 14) = 0.789441E+00
+ PKER_SACCRG( 31, 15) = 0.777564E+00
+ PKER_SACCRG( 31, 16) = 0.766399E+00
+ PKER_SACCRG( 31, 17) = 0.745810E+00
+ PKER_SACCRG( 31, 18) = 0.726974E+00
+ PKER_SACCRG( 31, 19) = 0.703195E+00
+ PKER_SACCRG( 31, 20) = 0.679014E+00
+ PKER_SACCRG( 31, 21) = 0.654588E+00
+ PKER_SACCRG( 31, 22) = 0.631374E+00
+ PKER_SACCRG( 31, 23) = 0.607927E+00
+ PKER_SACCRG( 31, 24) = 0.585272E+00
+ PKER_SACCRG( 31, 25) = 0.565609E+00
+ PKER_SACCRG( 31, 26) = 0.544468E+00
+ PKER_SACCRG( 31, 27) = 0.527611E+00
+ PKER_SACCRG( 31, 28) = 0.507834E+00
+ PKER_SACCRG( 31, 29) = 0.493340E+00
+ PKER_SACCRG( 31, 30) = 0.480210E+00
+ PKER_SACCRG( 31, 31) = 0.468075E+00
+ PKER_SACCRG( 31, 32) = 0.456634E+00
+ PKER_SACCRG( 31, 33) = 0.445668E+00
+ PKER_SACCRG( 31, 34) = 0.441257E+00
+ PKER_SACCRG( 31, 35) = 0.430612E+00
+ PKER_SACCRG( 31, 36) = 0.425773E+00
+ PKER_SACCRG( 31, 37) = 0.420368E+00
+ PKER_SACCRG( 31, 38) = 0.419181E+00
+ PKER_SACCRG( 31, 39) = 0.412287E+00
+ PKER_SACCRG( 31, 40) = 0.408947E+00
+ PKER_SACCRG( 32, 1) = 0.849243E+00
+ PKER_SACCRG( 32, 2) = 0.818065E+00
+ PKER_SACCRG( 32, 3) = 0.868153E+00
+ PKER_SACCRG( 32, 4) = 0.836294E+00
+ PKER_SACCRG( 32, 5) = 0.862292E+00
+ PKER_SACCRG( 32, 6) = 0.830643E+00
+ PKER_SACCRG( 32, 7) = 0.843010E+00
+ PKER_SACCRG( 32, 8) = 0.846846E+00
+ PKER_SACCRG( 32, 9) = 0.844549E+00
+ PKER_SACCRG( 32, 10) = 0.837666E+00
+ PKER_SACCRG( 32, 11) = 0.827268E+00
+ PKER_SACCRG( 32, 12) = 0.814136E+00
+ PKER_SACCRG( 32, 13) = 0.811766E+00
+ PKER_SACCRG( 32, 14) = 0.792857E+00
+ PKER_SACCRG( 32, 15) = 0.780985E+00
+ PKER_SACCRG( 32, 16) = 0.769826E+00
+ PKER_SACCRG( 32, 17) = 0.749241E+00
+ PKER_SACCRG( 32, 18) = 0.730413E+00
+ PKER_SACCRG( 32, 19) = 0.706641E+00
+ PKER_SACCRG( 32, 20) = 0.682467E+00
+ PKER_SACCRG( 32, 21) = 0.658050E+00
+ PKER_SACCRG( 32, 22) = 0.634839E+00
+ PKER_SACCRG( 32, 23) = 0.611401E+00
+ PKER_SACCRG( 32, 24) = 0.588756E+00
+ PKER_SACCRG( 32, 25) = 0.569093E+00
+ PKER_SACCRG( 32, 26) = 0.547963E+00
+ PKER_SACCRG( 32, 27) = 0.531103E+00
+ PKER_SACCRG( 32, 28) = 0.511339E+00
+ PKER_SACCRG( 32, 29) = 0.496840E+00
+ PKER_SACCRG( 32, 30) = 0.483707E+00
+ PKER_SACCRG( 32, 31) = 0.471568E+00
+ PKER_SACCRG( 32, 32) = 0.460125E+00
+ PKER_SACCRG( 32, 33) = 0.449158E+00
+ PKER_SACCRG( 32, 34) = 0.444737E+00
+ PKER_SACCRG( 32, 35) = 0.434095E+00
+ PKER_SACCRG( 32, 36) = 0.429252E+00
+ PKER_SACCRG( 32, 37) = 0.423844E+00
+ PKER_SACCRG( 32, 38) = 0.422653E+00
+ PKER_SACCRG( 32, 39) = 0.415761E+00
+ PKER_SACCRG( 32, 40) = 0.412421E+00
+ PKER_SACCRG( 33, 1) = 0.852054E+00
+ PKER_SACCRG( 33, 2) = 0.820877E+00
+ PKER_SACCRG( 33, 3) = 0.870965E+00
+ PKER_SACCRG( 33, 4) = 0.839107E+00
+ PKER_SACCRG( 33, 5) = 0.865105E+00
+ PKER_SACCRG( 33, 6) = 0.833457E+00
+ PKER_SACCRG( 33, 7) = 0.845825E+00
+ PKER_SACCRG( 33, 8) = 0.849661E+00
+ PKER_SACCRG( 33, 9) = 0.847366E+00
+ PKER_SACCRG( 33, 10) = 0.840484E+00
+ PKER_SACCRG( 33, 11) = 0.830086E+00
+ PKER_SACCRG( 33, 12) = 0.816957E+00
+ PKER_SACCRG( 33, 13) = 0.814589E+00
+ PKER_SACCRG( 33, 14) = 0.795683E+00
+ PKER_SACCRG( 33, 15) = 0.783814E+00
+ PKER_SACCRG( 33, 16) = 0.772660E+00
+ PKER_SACCRG( 33, 17) = 0.752078E+00
+ PKER_SACCRG( 33, 18) = 0.733256E+00
+ PKER_SACCRG( 33, 19) = 0.709489E+00
+ PKER_SACCRG( 33, 20) = 0.685322E+00
+ PKER_SACCRG( 33, 21) = 0.660911E+00
+ PKER_SACCRG( 33, 22) = 0.637702E+00
+ PKER_SACCRG( 33, 23) = 0.614271E+00
+ PKER_SACCRG( 33, 24) = 0.591633E+00
+ PKER_SACCRG( 33, 25) = 0.571969E+00
+ PKER_SACCRG( 33, 26) = 0.550848E+00
+ PKER_SACCRG( 33, 27) = 0.533985E+00
+ PKER_SACCRG( 33, 28) = 0.514230E+00
+ PKER_SACCRG( 33, 29) = 0.499728E+00
+ PKER_SACCRG( 33, 30) = 0.486590E+00
+ PKER_SACCRG( 33, 31) = 0.474448E+00
+ PKER_SACCRG( 33, 32) = 0.463003E+00
+ PKER_SACCRG( 33, 33) = 0.452035E+00
+ PKER_SACCRG( 33, 34) = 0.447606E+00
+ PKER_SACCRG( 33, 35) = 0.436965E+00
+ PKER_SACCRG( 33, 36) = 0.432118E+00
+ PKER_SACCRG( 33, 37) = 0.426709E+00
+ PKER_SACCRG( 33, 38) = 0.425514E+00
+ PKER_SACCRG( 33, 39) = 0.418623E+00
+ PKER_SACCRG( 33, 40) = 0.415282E+00
+ PKER_SACCRG( 34, 1) = 0.854380E+00
+ PKER_SACCRG( 34, 2) = 0.823204E+00
+ PKER_SACCRG( 34, 3) = 0.873292E+00
+ PKER_SACCRG( 34, 4) = 0.841435E+00
+ PKER_SACCRG( 34, 5) = 0.867433E+00
+ PKER_SACCRG( 34, 6) = 0.835786E+00
+ PKER_SACCRG( 34, 7) = 0.848154E+00
+ PKER_SACCRG( 34, 8) = 0.851991E+00
+ PKER_SACCRG( 34, 9) = 0.849696E+00
+ PKER_SACCRG( 34, 10) = 0.842815E+00
+ PKER_SACCRG( 34, 11) = 0.832419E+00
+ PKER_SACCRG( 34, 12) = 0.819291E+00
+ PKER_SACCRG( 34, 13) = 0.816925E+00
+ PKER_SACCRG( 34, 14) = 0.798021E+00
+ PKER_SACCRG( 34, 15) = 0.786154E+00
+ PKER_SACCRG( 34, 16) = 0.775003E+00
+ PKER_SACCRG( 34, 17) = 0.754425E+00
+ PKER_SACCRG( 34, 18) = 0.735607E+00
+ PKER_SACCRG( 34, 19) = 0.711844E+00
+ PKER_SACCRG( 34, 20) = 0.687682E+00
+ PKER_SACCRG( 34, 21) = 0.663275E+00
+ PKER_SACCRG( 34, 22) = 0.640068E+00
+ PKER_SACCRG( 34, 23) = 0.616642E+00
+ PKER_SACCRG( 34, 24) = 0.594010E+00
+ PKER_SACCRG( 34, 25) = 0.574345E+00
+ PKER_SACCRG( 34, 26) = 0.553231E+00
+ PKER_SACCRG( 34, 27) = 0.536365E+00
+ PKER_SACCRG( 34, 28) = 0.516617E+00
+ PKER_SACCRG( 34, 29) = 0.502111E+00
+ PKER_SACCRG( 34, 30) = 0.488970E+00
+ PKER_SACCRG( 34, 31) = 0.476825E+00
+ PKER_SACCRG( 34, 32) = 0.465378E+00
+ PKER_SACCRG( 34, 33) = 0.454409E+00
+ PKER_SACCRG( 34, 34) = 0.449974E+00
+ PKER_SACCRG( 34, 35) = 0.439333E+00
+ PKER_SACCRG( 34, 36) = 0.434483E+00
+ PKER_SACCRG( 34, 37) = 0.429072E+00
+ PKER_SACCRG( 34, 38) = 0.427873E+00
+ PKER_SACCRG( 34, 39) = 0.420984E+00
+ PKER_SACCRG( 34, 40) = 0.417642E+00
+ PKER_SACCRG( 35, 1) = 0.856306E+00
+ PKER_SACCRG( 35, 2) = 0.825130E+00
+ PKER_SACCRG( 35, 3) = 0.875218E+00
+ PKER_SACCRG( 35, 4) = 0.843361E+00
+ PKER_SACCRG( 35, 5) = 0.869359E+00
+ PKER_SACCRG( 35, 6) = 0.837713E+00
+ PKER_SACCRG( 35, 7) = 0.850081E+00
+ PKER_SACCRG( 35, 8) = 0.853918E+00
+ PKER_SACCRG( 35, 9) = 0.851624E+00
+ PKER_SACCRG( 35, 10) = 0.844744E+00
+ PKER_SACCRG( 35, 11) = 0.834349E+00
+ PKER_SACCRG( 35, 12) = 0.821222E+00
+ PKER_SACCRG( 35, 13) = 0.818858E+00
+ PKER_SACCRG( 35, 14) = 0.799955E+00
+ PKER_SACCRG( 35, 15) = 0.788090E+00
+ PKER_SACCRG( 35, 16) = 0.776942E+00
+ PKER_SACCRG( 35, 17) = 0.756366E+00
+ PKER_SACCRG( 35, 18) = 0.737552E+00
+ PKER_SACCRG( 35, 19) = 0.713792E+00
+ PKER_SACCRG( 35, 20) = 0.689633E+00
+ PKER_SACCRG( 35, 21) = 0.665230E+00
+ PKER_SACCRG( 35, 22) = 0.642024E+00
+ PKER_SACCRG( 35, 23) = 0.618601E+00
+ PKER_SACCRG( 35, 24) = 0.595974E+00
+ PKER_SACCRG( 35, 25) = 0.576309E+00
+ PKER_SACCRG( 35, 26) = 0.555199E+00
+ PKER_SACCRG( 35, 27) = 0.538331E+00
+ PKER_SACCRG( 35, 28) = 0.518588E+00
+ PKER_SACCRG( 35, 29) = 0.504079E+00
+ PKER_SACCRG( 35, 30) = 0.490935E+00
+ PKER_SACCRG( 35, 31) = 0.478788E+00
+ PKER_SACCRG( 35, 32) = 0.467339E+00
+ PKER_SACCRG( 35, 33) = 0.456368E+00
+ PKER_SACCRG( 35, 34) = 0.451928E+00
+ PKER_SACCRG( 35, 35) = 0.441287E+00
+ PKER_SACCRG( 35, 36) = 0.436435E+00
+ PKER_SACCRG( 35, 37) = 0.431022E+00
+ PKER_SACCRG( 35, 38) = 0.429821E+00
+ PKER_SACCRG( 35, 39) = 0.422932E+00
+ PKER_SACCRG( 35, 40) = 0.419589E+00
+ PKER_SACCRG( 36, 1) = 0.857899E+00
+ PKER_SACCRG( 36, 2) = 0.826724E+00
+ PKER_SACCRG( 36, 3) = 0.876812E+00
+ PKER_SACCRG( 36, 4) = 0.844955E+00
+ PKER_SACCRG( 36, 5) = 0.870954E+00
+ PKER_SACCRG( 36, 6) = 0.839308E+00
+ PKER_SACCRG( 36, 7) = 0.851676E+00
+ PKER_SACCRG( 36, 8) = 0.855514E+00
+ PKER_SACCRG( 36, 9) = 0.853220E+00
+ PKER_SACCRG( 36, 10) = 0.846340E+00
+ PKER_SACCRG( 36, 11) = 0.835946E+00
+ PKER_SACCRG( 36, 12) = 0.822820E+00
+ PKER_SACCRG( 36, 13) = 0.820457E+00
+ PKER_SACCRG( 36, 14) = 0.801555E+00
+ PKER_SACCRG( 36, 15) = 0.789692E+00
+ PKER_SACCRG( 36, 16) = 0.778546E+00
+ PKER_SACCRG( 36, 17) = 0.757972E+00
+ PKER_SACCRG( 36, 18) = 0.739160E+00
+ PKER_SACCRG( 36, 19) = 0.715403E+00
+ PKER_SACCRG( 36, 20) = 0.691246E+00
+ PKER_SACCRG( 36, 21) = 0.666846E+00
+ PKER_SACCRG( 36, 22) = 0.643641E+00
+ PKER_SACCRG( 36, 23) = 0.620221E+00
+ PKER_SACCRG( 36, 24) = 0.597598E+00
+ PKER_SACCRG( 36, 25) = 0.577931E+00
+ PKER_SACCRG( 36, 26) = 0.556825E+00
+ PKER_SACCRG( 36, 27) = 0.539955E+00
+ PKER_SACCRG( 36, 28) = 0.520216E+00
+ PKER_SACCRG( 36, 29) = 0.505705E+00
+ PKER_SACCRG( 36, 30) = 0.492559E+00
+ PKER_SACCRG( 36, 31) = 0.480409E+00
+ PKER_SACCRG( 36, 32) = 0.468959E+00
+ PKER_SACCRG( 36, 33) = 0.457987E+00
+ PKER_SACCRG( 36, 34) = 0.453542E+00
+ PKER_SACCRG( 36, 35) = 0.442901E+00
+ PKER_SACCRG( 36, 36) = 0.438047E+00
+ PKER_SACCRG( 36, 37) = 0.432633E+00
+ PKER_SACCRG( 36, 38) = 0.431430E+00
+ PKER_SACCRG( 36, 39) = 0.424541E+00
+ PKER_SACCRG( 36, 40) = 0.421197E+00
+ PKER_SACCRG( 37, 1) = 0.859218E+00
+ PKER_SACCRG( 37, 2) = 0.828043E+00
+ PKER_SACCRG( 37, 3) = 0.878131E+00
+ PKER_SACCRG( 37, 4) = 0.846275E+00
+ PKER_SACCRG( 37, 5) = 0.872273E+00
+ PKER_SACCRG( 37, 6) = 0.840628E+00
+ PKER_SACCRG( 37, 7) = 0.852996E+00
+ PKER_SACCRG( 37, 8) = 0.856834E+00
+ PKER_SACCRG( 37, 9) = 0.854541E+00
+ PKER_SACCRG( 37, 10) = 0.847662E+00
+ PKER_SACCRG( 37, 11) = 0.837268E+00
+ PKER_SACCRG( 37, 12) = 0.824142E+00
+ PKER_SACCRG( 37, 13) = 0.821780E+00
+ PKER_SACCRG( 37, 14) = 0.802879E+00
+ PKER_SACCRG( 37, 15) = 0.791018E+00
+ PKER_SACCRG( 37, 16) = 0.779873E+00
+ PKER_SACCRG( 37, 17) = 0.759300E+00
+ PKER_SACCRG( 37, 18) = 0.740491E+00
+ PKER_SACCRG( 37, 19) = 0.716735E+00
+ PKER_SACCRG( 37, 20) = 0.692581E+00
+ PKER_SACCRG( 37, 21) = 0.668183E+00
+ PKER_SACCRG( 37, 22) = 0.644978E+00
+ PKER_SACCRG( 37, 23) = 0.621561E+00
+ PKER_SACCRG( 37, 24) = 0.598940E+00
+ PKER_SACCRG( 37, 25) = 0.579273E+00
+ PKER_SACCRG( 37, 26) = 0.558169E+00
+ PKER_SACCRG( 37, 27) = 0.541298E+00
+ PKER_SACCRG( 37, 28) = 0.521561E+00
+ PKER_SACCRG( 37, 29) = 0.507048E+00
+ PKER_SACCRG( 37, 30) = 0.493900E+00
+ PKER_SACCRG( 37, 31) = 0.481749E+00
+ PKER_SACCRG( 37, 32) = 0.470297E+00
+ PKER_SACCRG( 37, 33) = 0.459324E+00
+ PKER_SACCRG( 37, 34) = 0.454876E+00
+ PKER_SACCRG( 37, 35) = 0.444235E+00
+ PKER_SACCRG( 37, 36) = 0.439379E+00
+ PKER_SACCRG( 37, 37) = 0.433964E+00
+ PKER_SACCRG( 37, 38) = 0.432759E+00
+ PKER_SACCRG( 37, 39) = 0.425870E+00
+ PKER_SACCRG( 37, 40) = 0.422526E+00
+ PKER_SACCRG( 38, 1) = 0.860756E+00
+ PKER_SACCRG( 38, 2) = 0.829566E+00
+ PKER_SACCRG( 38, 3) = 0.879679E+00
+ PKER_SACCRG( 38, 4) = 0.847807E+00
+ PKER_SACCRG( 38, 5) = 0.873819E+00
+ PKER_SACCRG( 38, 6) = 0.842157E+00
+ PKER_SACCRG( 38, 7) = 0.854532E+00
+ PKER_SACCRG( 38, 8) = 0.858372E+00
+ PKER_SACCRG( 38, 9) = 0.856078E+00
+ PKER_SACCRG( 38, 10) = 0.849196E+00
+ PKER_SACCRG( 38, 11) = 0.838797E+00
+ PKER_SACCRG( 38, 12) = 0.825665E+00
+ PKER_SACCRG( 38, 13) = 0.823303E+00
+ PKER_SACCRG( 38, 14) = 0.804393E+00
+ PKER_SACCRG( 38, 15) = 0.792526E+00
+ PKER_SACCRG( 38, 16) = 0.781377E+00
+ PKER_SACCRG( 38, 17) = 0.760794E+00
+ PKER_SACCRG( 38, 18) = 0.741977E+00
+ PKER_SACCRG( 38, 19) = 0.718211E+00
+ PKER_SACCRG( 38, 20) = 0.694045E+00
+ PKER_SACCRG( 38, 21) = 0.669636E+00
+ PKER_SACCRG( 38, 22) = 0.646420E+00
+ PKER_SACCRG( 38, 23) = 0.622992E+00
+ PKER_SACCRG( 38, 24) = 0.600361E+00
+ PKER_SACCRG( 38, 25) = 0.580683E+00
+ PKER_SACCRG( 38, 26) = 0.559571E+00
+ PKER_SACCRG( 38, 27) = 0.542690E+00
+ PKER_SACCRG( 38, 28) = 0.522945E+00
+ PKER_SACCRG( 38, 29) = 0.508423E+00
+ PKER_SACCRG( 38, 30) = 0.495266E+00
+ PKER_SACCRG( 38, 31) = 0.483108E+00
+ PKER_SACCRG( 38, 32) = 0.471648E+00
+ PKER_SACCRG( 38, 33) = 0.460669E+00
+ PKER_SACCRG( 38, 34) = 0.456216E+00
+ PKER_SACCRG( 38, 35) = 0.445569E+00
+ PKER_SACCRG( 38, 36) = 0.440709E+00
+ PKER_SACCRG( 38, 37) = 0.435290E+00
+ PKER_SACCRG( 38, 38) = 0.434084E+00
+ PKER_SACCRG( 38, 39) = 0.427190E+00
+ PKER_SACCRG( 38, 40) = 0.423844E+00
+ PKER_SACCRG( 39, 1) = 0.861213E+00
+ PKER_SACCRG( 39, 2) = 0.830039E+00
+ PKER_SACCRG( 39, 3) = 0.880127E+00
+ PKER_SACCRG( 39, 4) = 0.848271E+00
+ PKER_SACCRG( 39, 5) = 0.874269E+00
+ PKER_SACCRG( 39, 6) = 0.842624E+00
+ PKER_SACCRG( 39, 7) = 0.854993E+00
+ PKER_SACCRG( 39, 8) = 0.858831E+00
+ PKER_SACCRG( 39, 9) = 0.856539E+00
+ PKER_SACCRG( 39, 10) = 0.849660E+00
+ PKER_SACCRG( 39, 11) = 0.839267E+00
+ PKER_SACCRG( 39, 12) = 0.826142E+00
+ PKER_SACCRG( 39, 13) = 0.823781E+00
+ PKER_SACCRG( 39, 14) = 0.804882E+00
+ PKER_SACCRG( 39, 15) = 0.793022E+00
+ PKER_SACCRG( 39, 16) = 0.781880E+00
+ PKER_SACCRG( 39, 17) = 0.761309E+00
+ PKER_SACCRG( 39, 18) = 0.742502E+00
+ PKER_SACCRG( 39, 19) = 0.718749E+00
+ PKER_SACCRG( 39, 20) = 0.694597E+00
+ PKER_SACCRG( 39, 21) = 0.670202E+00
+ PKER_SACCRG( 39, 22) = 0.646998E+00
+ PKER_SACCRG( 39, 23) = 0.623585E+00
+ PKER_SACCRG( 39, 24) = 0.600967E+00
+ PKER_SACCRG( 39, 25) = 0.581299E+00
+ PKER_SACCRG( 39, 26) = 0.560199E+00
+ PKER_SACCRG( 39, 27) = 0.543325E+00
+ PKER_SACCRG( 39, 28) = 0.523593E+00
+ PKER_SACCRG( 39, 29) = 0.509076E+00
+ PKER_SACCRG( 39, 30) = 0.495926E+00
+ PKER_SACCRG( 39, 31) = 0.483772E+00
+ PKER_SACCRG( 39, 32) = 0.472318E+00
+ PKER_SACCRG( 39, 33) = 0.461343E+00
+ PKER_SACCRG( 39, 34) = 0.456891E+00
+ PKER_SACCRG( 39, 35) = 0.446249E+00
+ PKER_SACCRG( 39, 36) = 0.441390E+00
+ PKER_SACCRG( 39, 37) = 0.435974E+00
+ PKER_SACCRG( 39, 38) = 0.434767E+00
+ PKER_SACCRG( 39, 39) = 0.427877E+00
+ PKER_SACCRG( 39, 40) = 0.424532E+00
+ PKER_SACCRG( 40, 1) = 0.861961E+00
+ PKER_SACCRG( 40, 2) = 0.830787E+00
+ PKER_SACCRG( 40, 3) = 0.880875E+00
+ PKER_SACCRG( 40, 4) = 0.849019E+00
+ PKER_SACCRG( 40, 5) = 0.875018E+00
+ PKER_SACCRG( 40, 6) = 0.843373E+00
+ PKER_SACCRG( 40, 7) = 0.855742E+00
+ PKER_SACCRG( 40, 8) = 0.859580E+00
+ PKER_SACCRG( 40, 9) = 0.857287E+00
+ PKER_SACCRG( 40, 10) = 0.850409E+00
+ PKER_SACCRG( 40, 11) = 0.840016E+00
+ PKER_SACCRG( 40, 12) = 0.826892E+00
+ PKER_SACCRG( 40, 13) = 0.824532E+00
+ PKER_SACCRG( 40, 14) = 0.805632E+00
+ PKER_SACCRG( 40, 15) = 0.793773E+00
+ PKER_SACCRG( 40, 16) = 0.782632E+00
+ PKER_SACCRG( 40, 17) = 0.762061E+00
+ PKER_SACCRG( 40, 18) = 0.743256E+00
+ PKER_SACCRG( 40, 19) = 0.719504E+00
+ PKER_SACCRG( 40, 20) = 0.695353E+00
+ PKER_SACCRG( 40, 21) = 0.670959E+00
+ PKER_SACCRG( 40, 22) = 0.647755E+00
+ PKER_SACCRG( 40, 23) = 0.624342E+00
+ PKER_SACCRG( 40, 24) = 0.601725E+00
+ PKER_SACCRG( 40, 25) = 0.582057E+00
+ PKER_SACCRG( 40, 26) = 0.560958E+00
+ PKER_SACCRG( 40, 27) = 0.544084E+00
+ PKER_SACCRG( 40, 28) = 0.524353E+00
+ PKER_SACCRG( 40, 29) = 0.509835E+00
+ PKER_SACCRG( 40, 30) = 0.496684E+00
+ PKER_SACCRG( 40, 31) = 0.484529E+00
+ PKER_SACCRG( 40, 32) = 0.473074E+00
+ PKER_SACCRG( 40, 33) = 0.462099E+00
+ PKER_SACCRG( 40, 34) = 0.457644E+00
+ PKER_SACCRG( 40, 35) = 0.447003E+00
+ PKER_SACCRG( 40, 36) = 0.442143E+00
+ PKER_SACCRG( 40, 37) = 0.436726E+00
+ PKER_SACCRG( 40, 38) = 0.435518E+00
+ PKER_SACCRG( 40, 39) = 0.428628E+00
+ PKER_SACCRG( 40, 40) = 0.425283E+00
END IF
-
!
END SUBROUTINE LIMA_READ_XKER_RACCS
diff --git a/src/mesonh/micro/lima_read_xker_sdryg.f90 b/src/mesonh/micro/lima_read_xker_sdryg.f90
index b47dc11a0..f3c2377e5 100644
--- a/src/mesonh/micro/lima_read_xker_sdryg.f90
+++ b/src/mesonh/micro/lima_read_xker_sdryg.f90
@@ -13,10 +13,10 @@
! ###########################
!
INTERFACE
- SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,PKER_SDRYG )
+ SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY,PKER_SDRYG )
!
INTEGER, INTENT(OUT) :: KND,KDRYLBDAG,KDRYLBDAS
REAL, INTENT(OUT) :: PALPHAG
@@ -29,6 +29,7 @@ REAL, INTENT(OUT) :: PCG
REAL, INTENT(OUT) :: PDG
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PDRYLBDAG_MAX
REAL, INTENT(OUT) :: PDRYLBDAS_MAX
REAL, INTENT(OUT) :: PDRYLBDAG_MIN
@@ -42,10 +43,10 @@ END INTERFACE
!
END MODULE MODI_LIMA_READ_XKER_SDRYG
! ########################################################################
- SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
- PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS, &
- PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
- PFDINFTY,PKER_SDRYG )
+ SUBROUTINE LIMA_READ_XKER_SDRYG (KDRYLBDAG,KDRYLBDAS,KND, &
+ PALPHAG,PNUG,PALPHAS,PNUS,PEGS,PBS,PCG,PDG,PCS,PDS,PFVELOS, &
+ PDRYLBDAG_MAX,PDRYLBDAS_MAX,PDRYLBDAG_MIN,PDRYLBDAS_MIN, &
+ PFDINFTY,PKER_SDRYG )
! ########################################################################
!
!!**** * * - initialize the kernels for the snow-graupel dry growth process
@@ -101,6 +102,7 @@ REAL, INTENT(OUT) :: PCG
REAL, INTENT(OUT) :: PDG
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PDRYLBDAG_MAX
REAL, INTENT(OUT) :: PDRYLBDAS_MAX
REAL, INTENT(OUT) :: PDRYLBDAG_MIN
@@ -125,3213 +127,3214 @@ PCG= 0.122000E+03
PDG= 0.660000E+00
PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PDRYLBDAG_MAX= 0.100000E+08
-PDRYLBDAS_MAX= 0.250000E+10
+PDRYLBDAS_MAX= 0.100000E+06
PDRYLBDAG_MIN= 0.100000E+04
-PDRYLBDAS_MIN= 0.250000E+02
+PDRYLBDAS_MIN= 0.500000E+03
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_SDRYG) ) THEN
-PKER_SDRYG( 1, 1) = 0.181263E+01
-PKER_SDRYG( 1, 2) = 0.163147E+01
-PKER_SDRYG( 1, 3) = 0.146558E+01
-PKER_SDRYG( 1, 4) = 0.131501E+01
-PKER_SDRYG( 1, 5) = 0.117971E+01
-PKER_SDRYG( 1, 6) = 0.105940E+01
-PKER_SDRYG( 1, 7) = 0.954664E+00
-PKER_SDRYG( 1, 8) = 0.865241E+00
-PKER_SDRYG( 1, 9) = 0.791190E+00
-PKER_SDRYG( 1, 10) = 0.733135E+00
-PKER_SDRYG( 1, 11) = 0.691332E+00
-PKER_SDRYG( 1, 12) = 0.666135E+00
-PKER_SDRYG( 1, 13) = 0.658669E+00
-PKER_SDRYG( 1, 14) = 0.669468E+00
-PKER_SDRYG( 1, 15) = 0.699407E+00
-PKER_SDRYG( 1, 16) = 0.749020E+00
-PKER_SDRYG( 1, 17) = 0.817882E+00
-PKER_SDRYG( 1, 18) = 0.905102E+00
-PKER_SDRYG( 1, 19) = 0.100805E+01
-PKER_SDRYG( 1, 20) = 0.112208E+01
-PKER_SDRYG( 1, 21) = 0.124139E+01
-PKER_SDRYG( 1, 22) = 0.136056E+01
-PKER_SDRYG( 1, 23) = 0.147535E+01
-PKER_SDRYG( 1, 24) = 0.158271E+01
-PKER_SDRYG( 1, 25) = 0.168072E+01
-PKER_SDRYG( 1, 26) = 0.176838E+01
-PKER_SDRYG( 1, 27) = 0.184560E+01
-PKER_SDRYG( 1, 28) = 0.191298E+01
-PKER_SDRYG( 1, 29) = 0.197156E+01
-PKER_SDRYG( 1, 30) = 0.202257E+01
-PKER_SDRYG( 1, 31) = 0.206716E+01
-PKER_SDRYG( 1, 32) = 0.210638E+01
-PKER_SDRYG( 1, 33) = 0.214108E+01
-PKER_SDRYG( 1, 34) = 0.217197E+01
-PKER_SDRYG( 1, 35) = 0.219964E+01
-PKER_SDRYG( 1, 36) = 0.222456E+01
-PKER_SDRYG( 1, 37) = 0.224714E+01
-PKER_SDRYG( 1, 38) = 0.226768E+01
-PKER_SDRYG( 1, 39) = 0.228645E+01
-PKER_SDRYG( 1, 40) = 0.230366E+01
-PKER_SDRYG( 1, 41) = 0.231950E+01
-PKER_SDRYG( 1, 42) = 0.233413E+01
-PKER_SDRYG( 1, 43) = 0.234766E+01
-PKER_SDRYG( 1, 44) = 0.236020E+01
-PKER_SDRYG( 1, 45) = 0.237186E+01
-PKER_SDRYG( 1, 46) = 0.238271E+01
-PKER_SDRYG( 1, 47) = 0.239281E+01
-PKER_SDRYG( 1, 48) = 0.240224E+01
-PKER_SDRYG( 1, 49) = 0.241105E+01
-PKER_SDRYG( 1, 50) = 0.241928E+01
-PKER_SDRYG( 1, 51) = 0.242698E+01
-PKER_SDRYG( 1, 52) = 0.243418E+01
-PKER_SDRYG( 1, 53) = 0.244092E+01
-PKER_SDRYG( 1, 54) = 0.244724E+01
-PKER_SDRYG( 1, 55) = 0.245316E+01
-PKER_SDRYG( 1, 56) = 0.245871E+01
-PKER_SDRYG( 1, 57) = 0.246392E+01
-PKER_SDRYG( 1, 58) = 0.246880E+01
-PKER_SDRYG( 1, 59) = 0.247338E+01
-PKER_SDRYG( 1, 60) = 0.247767E+01
-PKER_SDRYG( 1, 61) = 0.248171E+01
-PKER_SDRYG( 1, 62) = 0.248549E+01
-PKER_SDRYG( 1, 63) = 0.248904E+01
-PKER_SDRYG( 1, 64) = 0.249237E+01
-PKER_SDRYG( 1, 65) = 0.249550E+01
-PKER_SDRYG( 1, 66) = 0.249843E+01
-PKER_SDRYG( 1, 67) = 0.250119E+01
-PKER_SDRYG( 1, 68) = 0.250377E+01
-PKER_SDRYG( 1, 69) = 0.250620E+01
-PKER_SDRYG( 1, 70) = 0.250848E+01
-PKER_SDRYG( 1, 71) = 0.251062E+01
-PKER_SDRYG( 1, 72) = 0.251263E+01
-PKER_SDRYG( 1, 73) = 0.251452E+01
-PKER_SDRYG( 1, 74) = 0.251629E+01
-PKER_SDRYG( 1, 75) = 0.251796E+01
-PKER_SDRYG( 1, 76) = 0.251952E+01
-PKER_SDRYG( 1, 77) = 0.252099E+01
-PKER_SDRYG( 1, 78) = 0.252236E+01
-PKER_SDRYG( 1, 79) = 0.252366E+01
-PKER_SDRYG( 1, 80) = 0.252487E+01
-PKER_SDRYG( 2, 1) = 0.199024E+01
-PKER_SDRYG( 2, 2) = 0.180156E+01
-PKER_SDRYG( 2, 3) = 0.162637E+01
-PKER_SDRYG( 2, 4) = 0.146459E+01
-PKER_SDRYG( 2, 5) = 0.131591E+01
-PKER_SDRYG( 2, 6) = 0.118046E+01
-PKER_SDRYG( 2, 7) = 0.105818E+01
-PKER_SDRYG( 2, 8) = 0.949189E+00
-PKER_SDRYG( 2, 9) = 0.853560E+00
-PKER_SDRYG( 2, 10) = 0.771539E+00
-PKER_SDRYG( 2, 11) = 0.703653E+00
-PKER_SDRYG( 2, 12) = 0.650109E+00
-PKER_SDRYG( 2, 13) = 0.611685E+00
-PKER_SDRYG( 2, 14) = 0.589133E+00
-PKER_SDRYG( 2, 15) = 0.583308E+00
-PKER_SDRYG( 2, 16) = 0.595133E+00
-PKER_SDRYG( 2, 17) = 0.625162E+00
-PKER_SDRYG( 2, 18) = 0.673359E+00
-PKER_SDRYG( 2, 19) = 0.738907E+00
-PKER_SDRYG( 2, 20) = 0.819564E+00
-PKER_SDRYG( 2, 21) = 0.912202E+00
-PKER_SDRYG( 2, 22) = 0.101189E+01
-PKER_SDRYG( 2, 23) = 0.111334E+01
-PKER_SDRYG( 2, 24) = 0.121202E+01
-PKER_SDRYG( 2, 25) = 0.130478E+01
-PKER_SDRYG( 2, 26) = 0.138982E+01
-PKER_SDRYG( 2, 27) = 0.146651E+01
-PKER_SDRYG( 2, 28) = 0.153473E+01
-PKER_SDRYG( 2, 29) = 0.159487E+01
-PKER_SDRYG( 2, 30) = 0.164760E+01
-PKER_SDRYG( 2, 31) = 0.169376E+01
-PKER_SDRYG( 2, 32) = 0.173428E+01
-PKER_SDRYG( 2, 33) = 0.177003E+01
-PKER_SDRYG( 2, 34) = 0.180176E+01
-PKER_SDRYG( 2, 35) = 0.183010E+01
-PKER_SDRYG( 2, 36) = 0.185555E+01
-PKER_SDRYG( 2, 37) = 0.187853E+01
-PKER_SDRYG( 2, 38) = 0.189939E+01
-PKER_SDRYG( 2, 39) = 0.191841E+01
-PKER_SDRYG( 2, 40) = 0.193583E+01
-PKER_SDRYG( 2, 41) = 0.195183E+01
-PKER_SDRYG( 2, 42) = 0.196657E+01
-PKER_SDRYG( 2, 43) = 0.198020E+01
-PKER_SDRYG( 2, 44) = 0.199282E+01
-PKER_SDRYG( 2, 45) = 0.200454E+01
-PKER_SDRYG( 2, 46) = 0.201543E+01
-PKER_SDRYG( 2, 47) = 0.202557E+01
-PKER_SDRYG( 2, 48) = 0.203503E+01
-PKER_SDRYG( 2, 49) = 0.204386E+01
-PKER_SDRYG( 2, 50) = 0.205211E+01
-PKER_SDRYG( 2, 51) = 0.205982E+01
-PKER_SDRYG( 2, 52) = 0.206703E+01
-PKER_SDRYG( 2, 53) = 0.207379E+01
-PKER_SDRYG( 2, 54) = 0.208011E+01
-PKER_SDRYG( 2, 55) = 0.208604E+01
-PKER_SDRYG( 2, 56) = 0.209159E+01
-PKER_SDRYG( 2, 57) = 0.209680E+01
-PKER_SDRYG( 2, 58) = 0.210169E+01
-PKER_SDRYG( 2, 59) = 0.210627E+01
-PKER_SDRYG( 2, 60) = 0.211056E+01
-PKER_SDRYG( 2, 61) = 0.211460E+01
-PKER_SDRYG( 2, 62) = 0.211838E+01
-PKER_SDRYG( 2, 63) = 0.212193E+01
-PKER_SDRYG( 2, 64) = 0.212526E+01
-PKER_SDRYG( 2, 65) = 0.212839E+01
-PKER_SDRYG( 2, 66) = 0.213133E+01
-PKER_SDRYG( 2, 67) = 0.213408E+01
-PKER_SDRYG( 2, 68) = 0.213667E+01
-PKER_SDRYG( 2, 69) = 0.213910E+01
-PKER_SDRYG( 2, 70) = 0.214138E+01
-PKER_SDRYG( 2, 71) = 0.214352E+01
-PKER_SDRYG( 2, 72) = 0.214553E+01
-PKER_SDRYG( 2, 73) = 0.214742E+01
-PKER_SDRYG( 2, 74) = 0.214919E+01
-PKER_SDRYG( 2, 75) = 0.215085E+01
-PKER_SDRYG( 2, 76) = 0.215242E+01
-PKER_SDRYG( 2, 77) = 0.215388E+01
-PKER_SDRYG( 2, 78) = 0.215526E+01
-PKER_SDRYG( 2, 79) = 0.215655E+01
-PKER_SDRYG( 2, 80) = 0.215777E+01
-PKER_SDRYG( 3, 1) = 0.215301E+01
-PKER_SDRYG( 3, 2) = 0.196106E+01
-PKER_SDRYG( 3, 3) = 0.178154E+01
-PKER_SDRYG( 3, 4) = 0.161399E+01
-PKER_SDRYG( 3, 5) = 0.145810E+01
-PKER_SDRYG( 3, 6) = 0.131365E+01
-PKER_SDRYG( 3, 7) = 0.118061E+01
-PKER_SDRYG( 3, 8) = 0.105881E+01
-PKER_SDRYG( 3, 9) = 0.948427E+00
-PKER_SDRYG( 3, 10) = 0.849613E+00
-PKER_SDRYG( 3, 11) = 0.762396E+00
-PKER_SDRYG( 3, 12) = 0.687541E+00
-PKER_SDRYG( 3, 13) = 0.625331E+00
-PKER_SDRYG( 3, 14) = 0.576279E+00
-PKER_SDRYG( 3, 15) = 0.541413E+00
-PKER_SDRYG( 3, 16) = 0.521621E+00
-PKER_SDRYG( 3, 17) = 0.517675E+00
-PKER_SDRYG( 3, 18) = 0.530574E+00
-PKER_SDRYG( 3, 19) = 0.560443E+00
-PKER_SDRYG( 3, 20) = 0.606854E+00
-PKER_SDRYG( 3, 21) = 0.668028E+00
-PKER_SDRYG( 3, 22) = 0.741035E+00
-PKER_SDRYG( 3, 23) = 0.822187E+00
-PKER_SDRYG( 3, 24) = 0.907057E+00
-PKER_SDRYG( 3, 25) = 0.991322E+00
-PKER_SDRYG( 3, 26) = 0.107147E+01
-PKER_SDRYG( 3, 27) = 0.114544E+01
-PKER_SDRYG( 3, 28) = 0.121245E+01
-PKER_SDRYG( 3, 29) = 0.127245E+01
-PKER_SDRYG( 3, 30) = 0.132580E+01
-PKER_SDRYG( 3, 31) = 0.137302E+01
-PKER_SDRYG( 3, 32) = 0.141473E+01
-PKER_SDRYG( 3, 33) = 0.145157E+01
-PKER_SDRYG( 3, 34) = 0.148421E+01
-PKER_SDRYG( 3, 35) = 0.151328E+01
-PKER_SDRYG( 3, 36) = 0.153931E+01
-PKER_SDRYG( 3, 37) = 0.156275E+01
-PKER_SDRYG( 3, 38) = 0.158397E+01
-PKER_SDRYG( 3, 39) = 0.160327E+01
-PKER_SDRYG( 3, 40) = 0.162090E+01
-PKER_SDRYG( 3, 41) = 0.163707E+01
-PKER_SDRYG( 3, 42) = 0.165195E+01
-PKER_SDRYG( 3, 43) = 0.166569E+01
-PKER_SDRYG( 3, 44) = 0.167839E+01
-PKER_SDRYG( 3, 45) = 0.169017E+01
-PKER_SDRYG( 3, 46) = 0.170112E+01
-PKER_SDRYG( 3, 47) = 0.171130E+01
-PKER_SDRYG( 3, 48) = 0.172079E+01
-PKER_SDRYG( 3, 49) = 0.172965E+01
-PKER_SDRYG( 3, 50) = 0.173791E+01
-PKER_SDRYG( 3, 51) = 0.174564E+01
-PKER_SDRYG( 3, 52) = 0.175287E+01
-PKER_SDRYG( 3, 53) = 0.175963E+01
-PKER_SDRYG( 3, 54) = 0.176596E+01
-PKER_SDRYG( 3, 55) = 0.177190E+01
-PKER_SDRYG( 3, 56) = 0.177746E+01
-PKER_SDRYG( 3, 57) = 0.178267E+01
-PKER_SDRYG( 3, 58) = 0.178755E+01
-PKER_SDRYG( 3, 59) = 0.179214E+01
-PKER_SDRYG( 3, 60) = 0.179644E+01
-PKER_SDRYG( 3, 61) = 0.180047E+01
-PKER_SDRYG( 3, 62) = 0.180425E+01
-PKER_SDRYG( 3, 63) = 0.180781E+01
-PKER_SDRYG( 3, 64) = 0.181114E+01
-PKER_SDRYG( 3, 65) = 0.181427E+01
-PKER_SDRYG( 3, 66) = 0.181720E+01
-PKER_SDRYG( 3, 67) = 0.181996E+01
-PKER_SDRYG( 3, 68) = 0.182255E+01
-PKER_SDRYG( 3, 69) = 0.182498E+01
-PKER_SDRYG( 3, 70) = 0.182726E+01
-PKER_SDRYG( 3, 71) = 0.182940E+01
-PKER_SDRYG( 3, 72) = 0.183141E+01
-PKER_SDRYG( 3, 73) = 0.183330E+01
-PKER_SDRYG( 3, 74) = 0.183507E+01
-PKER_SDRYG( 3, 75) = 0.183673E+01
-PKER_SDRYG( 3, 76) = 0.183829E+01
-PKER_SDRYG( 3, 77) = 0.183976E+01
-PKER_SDRYG( 3, 78) = 0.184114E+01
-PKER_SDRYG( 3, 79) = 0.184243E+01
-PKER_SDRYG( 3, 80) = 0.184365E+01
-PKER_SDRYG( 4, 1) = 0.229654E+01
-PKER_SDRYG( 4, 2) = 0.210356E+01
-PKER_SDRYG( 4, 3) = 0.192245E+01
-PKER_SDRYG( 4, 4) = 0.175260E+01
-PKER_SDRYG( 4, 5) = 0.159350E+01
-PKER_SDRYG( 4, 6) = 0.144476E+01
-PKER_SDRYG( 4, 7) = 0.130608E+01
-PKER_SDRYG( 4, 8) = 0.117720E+01
-PKER_SDRYG( 4, 9) = 0.105807E+01
-PKER_SDRYG( 4, 10) = 0.948604E+00
-PKER_SDRYG( 4, 11) = 0.849002E+00
-PKER_SDRYG( 4, 12) = 0.759416E+00
-PKER_SDRYG( 4, 13) = 0.680260E+00
-PKER_SDRYG( 4, 14) = 0.611882E+00
-PKER_SDRYG( 4, 15) = 0.554963E+00
-PKER_SDRYG( 4, 16) = 0.510479E+00
-PKER_SDRYG( 4, 17) = 0.479128E+00
-PKER_SDRYG( 4, 18) = 0.462033E+00
-PKER_SDRYG( 4, 19) = 0.460154E+00
-PKER_SDRYG( 4, 20) = 0.473966E+00
-PKER_SDRYG( 4, 21) = 0.503313E+00
-PKER_SDRYG( 4, 22) = 0.547021E+00
-PKER_SDRYG( 4, 23) = 0.602691E+00
-PKER_SDRYG( 4, 24) = 0.667130E+00
-PKER_SDRYG( 4, 25) = 0.736445E+00
-PKER_SDRYG( 4, 26) = 0.807101E+00
-PKER_SDRYG( 4, 27) = 0.875737E+00
-PKER_SDRYG( 4, 28) = 0.940003E+00
-PKER_SDRYG( 4, 29) = 0.998698E+00
-PKER_SDRYG( 4, 30) = 0.105152E+01
-PKER_SDRYG( 4, 31) = 0.109873E+01
-PKER_SDRYG( 4, 32) = 0.114082E+01
-PKER_SDRYG( 4, 33) = 0.117832E+01
-PKER_SDRYG( 4, 34) = 0.121173E+01
-PKER_SDRYG( 4, 35) = 0.124152E+01
-PKER_SDRYG( 4, 36) = 0.126818E+01
-PKER_SDRYG( 4, 37) = 0.129212E+01
-PKER_SDRYG( 4, 38) = 0.131373E+01
-PKER_SDRYG( 4, 39) = 0.133335E+01
-PKER_SDRYG( 4, 40) = 0.135123E+01
-PKER_SDRYG( 4, 41) = 0.136759E+01
-PKER_SDRYG( 4, 42) = 0.138262E+01
-PKER_SDRYG( 4, 43) = 0.139647E+01
-PKER_SDRYG( 4, 44) = 0.140927E+01
-PKER_SDRYG( 4, 45) = 0.142112E+01
-PKER_SDRYG( 4, 46) = 0.143212E+01
-PKER_SDRYG( 4, 47) = 0.144235E+01
-PKER_SDRYG( 4, 48) = 0.145188E+01
-PKER_SDRYG( 4, 49) = 0.146076E+01
-PKER_SDRYG( 4, 50) = 0.146905E+01
-PKER_SDRYG( 4, 51) = 0.147679E+01
-PKER_SDRYG( 4, 52) = 0.148403E+01
-PKER_SDRYG( 4, 53) = 0.149081E+01
-PKER_SDRYG( 4, 54) = 0.149715E+01
-PKER_SDRYG( 4, 55) = 0.150309E+01
-PKER_SDRYG( 4, 56) = 0.150865E+01
-PKER_SDRYG( 4, 57) = 0.151387E+01
-PKER_SDRYG( 4, 58) = 0.151876E+01
-PKER_SDRYG( 4, 59) = 0.152334E+01
-PKER_SDRYG( 4, 60) = 0.152764E+01
-PKER_SDRYG( 4, 61) = 0.153168E+01
-PKER_SDRYG( 4, 62) = 0.153546E+01
-PKER_SDRYG( 4, 63) = 0.153902E+01
-PKER_SDRYG( 4, 64) = 0.154235E+01
-PKER_SDRYG( 4, 65) = 0.154548E+01
-PKER_SDRYG( 4, 66) = 0.154842E+01
-PKER_SDRYG( 4, 67) = 0.155117E+01
-PKER_SDRYG( 4, 68) = 0.155376E+01
-PKER_SDRYG( 4, 69) = 0.155619E+01
-PKER_SDRYG( 4, 70) = 0.155847E+01
-PKER_SDRYG( 4, 71) = 0.156061E+01
-PKER_SDRYG( 4, 72) = 0.156262E+01
-PKER_SDRYG( 4, 73) = 0.156451E+01
-PKER_SDRYG( 4, 74) = 0.156628E+01
-PKER_SDRYG( 4, 75) = 0.156795E+01
-PKER_SDRYG( 4, 76) = 0.156951E+01
-PKER_SDRYG( 4, 77) = 0.157098E+01
-PKER_SDRYG( 4, 78) = 0.157235E+01
-PKER_SDRYG( 4, 79) = 0.157365E+01
-PKER_SDRYG( 4, 80) = 0.157486E+01
-PKER_SDRYG( 5, 1) = 0.242058E+01
-PKER_SDRYG( 5, 2) = 0.222747E+01
-PKER_SDRYG( 5, 3) = 0.204603E+01
-PKER_SDRYG( 5, 4) = 0.187558E+01
-PKER_SDRYG( 5, 5) = 0.171547E+01
-PKER_SDRYG( 5, 6) = 0.156517E+01
-PKER_SDRYG( 5, 7) = 0.142419E+01
-PKER_SDRYG( 5, 8) = 0.129215E+01
-PKER_SDRYG( 5, 9) = 0.116874E+01
-PKER_SDRYG( 5, 10) = 0.105374E+01
-PKER_SDRYG( 5, 11) = 0.947064E+00
-PKER_SDRYG( 5, 12) = 0.848754E+00
-PKER_SDRYG( 5, 13) = 0.758866E+00
-PKER_SDRYG( 5, 14) = 0.677714E+00
-PKER_SDRYG( 5, 15) = 0.605727E+00
-PKER_SDRYG( 5, 16) = 0.543389E+00
-PKER_SDRYG( 5, 17) = 0.491619E+00
-PKER_SDRYG( 5, 18) = 0.451355E+00
-PKER_SDRYG( 5, 19) = 0.423473E+00
-PKER_SDRYG( 5, 20) = 0.409129E+00
-PKER_SDRYG( 5, 21) = 0.409111E+00
-PKER_SDRYG( 5, 22) = 0.423458E+00
-PKER_SDRYG( 5, 23) = 0.451630E+00
-PKER_SDRYG( 5, 24) = 0.491797E+00
-PKER_SDRYG( 5, 25) = 0.541294E+00
-PKER_SDRYG( 5, 26) = 0.596703E+00
-PKER_SDRYG( 5, 27) = 0.654696E+00
-PKER_SDRYG( 5, 28) = 0.712443E+00
-PKER_SDRYG( 5, 29) = 0.767659E+00
-PKER_SDRYG( 5, 30) = 0.818920E+00
-PKER_SDRYG( 5, 31) = 0.865491E+00
-PKER_SDRYG( 5, 32) = 0.907343E+00
-PKER_SDRYG( 5, 33) = 0.944838E+00
-PKER_SDRYG( 5, 34) = 0.978432E+00
-PKER_SDRYG( 5, 35) = 0.100859E+01
-PKER_SDRYG( 5, 36) = 0.103569E+01
-PKER_SDRYG( 5, 37) = 0.106011E+01
-PKER_SDRYG( 5, 38) = 0.108214E+01
-PKER_SDRYG( 5, 39) = 0.110210E+01
-PKER_SDRYG( 5, 40) = 0.112025E+01
-PKER_SDRYG( 5, 41) = 0.113682E+01
-PKER_SDRYG( 5, 42) = 0.115202E+01
-PKER_SDRYG( 5, 43) = 0.116600E+01
-PKER_SDRYG( 5, 44) = 0.117890E+01
-PKER_SDRYG( 5, 45) = 0.119084E+01
-PKER_SDRYG( 5, 46) = 0.120190E+01
-PKER_SDRYG( 5, 47) = 0.121218E+01
-PKER_SDRYG( 5, 48) = 0.122174E+01
-PKER_SDRYG( 5, 49) = 0.123065E+01
-PKER_SDRYG( 5, 50) = 0.123897E+01
-PKER_SDRYG( 5, 51) = 0.124673E+01
-PKER_SDRYG( 5, 52) = 0.125398E+01
-PKER_SDRYG( 5, 53) = 0.126077E+01
-PKER_SDRYG( 5, 54) = 0.126712E+01
-PKER_SDRYG( 5, 55) = 0.127307E+01
-PKER_SDRYG( 5, 56) = 0.127864E+01
-PKER_SDRYG( 5, 57) = 0.128386E+01
-PKER_SDRYG( 5, 58) = 0.128875E+01
-PKER_SDRYG( 5, 59) = 0.129334E+01
-PKER_SDRYG( 5, 60) = 0.129764E+01
-PKER_SDRYG( 5, 61) = 0.130168E+01
-PKER_SDRYG( 5, 62) = 0.130547E+01
-PKER_SDRYG( 5, 63) = 0.130902E+01
-PKER_SDRYG( 5, 64) = 0.131236E+01
-PKER_SDRYG( 5, 65) = 0.131549E+01
-PKER_SDRYG( 5, 66) = 0.131842E+01
-PKER_SDRYG( 5, 67) = 0.132118E+01
-PKER_SDRYG( 5, 68) = 0.132377E+01
-PKER_SDRYG( 5, 69) = 0.132620E+01
-PKER_SDRYG( 5, 70) = 0.132848E+01
-PKER_SDRYG( 5, 71) = 0.133062E+01
-PKER_SDRYG( 5, 72) = 0.133263E+01
-PKER_SDRYG( 5, 73) = 0.133452E+01
-PKER_SDRYG( 5, 74) = 0.133629E+01
-PKER_SDRYG( 5, 75) = 0.133796E+01
-PKER_SDRYG( 5, 76) = 0.133952E+01
-PKER_SDRYG( 5, 77) = 0.134098E+01
-PKER_SDRYG( 5, 78) = 0.134236E+01
-PKER_SDRYG( 5, 79) = 0.134365E+01
-PKER_SDRYG( 5, 80) = 0.134487E+01
-PKER_SDRYG( 6, 1) = 0.252692E+01
-PKER_SDRYG( 6, 2) = 0.233392E+01
-PKER_SDRYG( 6, 3) = 0.215256E+01
-PKER_SDRYG( 6, 4) = 0.198212E+01
-PKER_SDRYG( 6, 5) = 0.182193E+01
-PKER_SDRYG( 6, 6) = 0.167134E+01
-PKER_SDRYG( 6, 7) = 0.152979E+01
-PKER_SDRYG( 6, 8) = 0.139676E+01
-PKER_SDRYG( 6, 9) = 0.127181E+01
-PKER_SDRYG( 6, 10) = 0.115455E+01
-PKER_SDRYG( 6, 11) = 0.104468E+01
-PKER_SDRYG( 6, 12) = 0.942046E+00
-PKER_SDRYG( 6, 13) = 0.846498E+00
-PKER_SDRYG( 6, 14) = 0.758078E+00
-PKER_SDRYG( 6, 15) = 0.676915E+00
-PKER_SDRYG( 6, 16) = 0.603393E+00
-PKER_SDRYG( 6, 17) = 0.537925E+00
-PKER_SDRYG( 6, 18) = 0.481299E+00
-PKER_SDRYG( 6, 19) = 0.434300E+00
-PKER_SDRYG( 6, 20) = 0.397962E+00
-PKER_SDRYG( 6, 21) = 0.373555E+00
-PKER_SDRYG( 6, 22) = 0.361810E+00
-PKER_SDRYG( 6, 23) = 0.363261E+00
-PKER_SDRYG( 6, 24) = 0.377804E+00
-PKER_SDRYG( 6, 25) = 0.404141E+00
-PKER_SDRYG( 6, 26) = 0.440111E+00
-PKER_SDRYG( 6, 27) = 0.482932E+00
-PKER_SDRYG( 6, 28) = 0.529526E+00
-PKER_SDRYG( 6, 29) = 0.577250E+00
-PKER_SDRYG( 6, 30) = 0.623904E+00
-PKER_SDRYG( 6, 31) = 0.668115E+00
-PKER_SDRYG( 6, 32) = 0.708971E+00
-PKER_SDRYG( 6, 33) = 0.746106E+00
-PKER_SDRYG( 6, 34) = 0.779586E+00
-PKER_SDRYG( 6, 35) = 0.809709E+00
-PKER_SDRYG( 6, 36) = 0.836864E+00
-PKER_SDRYG( 6, 37) = 0.861427E+00
-PKER_SDRYG( 6, 38) = 0.883701E+00
-PKER_SDRYG( 6, 39) = 0.903939E+00
-PKER_SDRYG( 6, 40) = 0.922359E+00
-PKER_SDRYG( 6, 41) = 0.939166E+00
-PKER_SDRYG( 6, 42) = 0.954549E+00
-PKER_SDRYG( 6, 43) = 0.968675E+00
-PKER_SDRYG( 6, 44) = 0.981689E+00
-PKER_SDRYG( 6, 45) = 0.993712E+00
-PKER_SDRYG( 6, 46) = 0.100485E+01
-PKER_SDRYG( 6, 47) = 0.101518E+01
-PKER_SDRYG( 6, 48) = 0.102479E+01
-PKER_SDRYG( 6, 49) = 0.103373E+01
-PKER_SDRYG( 6, 50) = 0.104207E+01
-PKER_SDRYG( 6, 51) = 0.104986E+01
-PKER_SDRYG( 6, 52) = 0.105713E+01
-PKER_SDRYG( 6, 53) = 0.106393E+01
-PKER_SDRYG( 6, 54) = 0.107029E+01
-PKER_SDRYG( 6, 55) = 0.107624E+01
-PKER_SDRYG( 6, 56) = 0.108182E+01
-PKER_SDRYG( 6, 57) = 0.108704E+01
-PKER_SDRYG( 6, 58) = 0.109194E+01
-PKER_SDRYG( 6, 59) = 0.109653E+01
-PKER_SDRYG( 6, 60) = 0.110084E+01
-PKER_SDRYG( 6, 61) = 0.110488E+01
-PKER_SDRYG( 6, 62) = 0.110866E+01
-PKER_SDRYG( 6, 63) = 0.111222E+01
-PKER_SDRYG( 6, 64) = 0.111556E+01
-PKER_SDRYG( 6, 65) = 0.111869E+01
-PKER_SDRYG( 6, 66) = 0.112162E+01
-PKER_SDRYG( 6, 67) = 0.112438E+01
-PKER_SDRYG( 6, 68) = 0.112697E+01
-PKER_SDRYG( 6, 69) = 0.112940E+01
-PKER_SDRYG( 6, 70) = 0.113168E+01
-PKER_SDRYG( 6, 71) = 0.113382E+01
-PKER_SDRYG( 6, 72) = 0.113583E+01
-PKER_SDRYG( 6, 73) = 0.113772E+01
-PKER_SDRYG( 6, 74) = 0.113949E+01
-PKER_SDRYG( 6, 75) = 0.114116E+01
-PKER_SDRYG( 6, 76) = 0.114272E+01
-PKER_SDRYG( 6, 77) = 0.114419E+01
-PKER_SDRYG( 6, 78) = 0.114556E+01
-PKER_SDRYG( 6, 79) = 0.114686E+01
-PKER_SDRYG( 6, 80) = 0.114807E+01
-PKER_SDRYG( 7, 1) = 0.261786E+01
-PKER_SDRYG( 7, 2) = 0.242499E+01
-PKER_SDRYG( 7, 3) = 0.224378E+01
-PKER_SDRYG( 7, 4) = 0.207350E+01
-PKER_SDRYG( 7, 5) = 0.191346E+01
-PKER_SDRYG( 7, 6) = 0.176300E+01
-PKER_SDRYG( 7, 7) = 0.162153E+01
-PKER_SDRYG( 7, 8) = 0.148846E+01
-PKER_SDRYG( 7, 9) = 0.136328E+01
-PKER_SDRYG( 7, 10) = 0.124549E+01
-PKER_SDRYG( 7, 11) = 0.113468E+01
-PKER_SDRYG( 7, 12) = 0.103050E+01
-PKER_SDRYG( 7, 13) = 0.932669E+00
-PKER_SDRYG( 7, 14) = 0.840960E+00
-PKER_SDRYG( 7, 15) = 0.755294E+00
-PKER_SDRYG( 7, 16) = 0.675723E+00
-PKER_SDRYG( 7, 17) = 0.602410E+00
-PKER_SDRYG( 7, 18) = 0.535732E+00
-PKER_SDRYG( 7, 19) = 0.476253E+00
-PKER_SDRYG( 7, 20) = 0.424743E+00
-PKER_SDRYG( 7, 21) = 0.382214E+00
-PKER_SDRYG( 7, 22) = 0.349787E+00
-PKER_SDRYG( 7, 23) = 0.328527E+00
-PKER_SDRYG( 7, 24) = 0.319129E+00
-PKER_SDRYG( 7, 25) = 0.321804E+00
-PKER_SDRYG( 7, 26) = 0.335925E+00
-PKER_SDRYG( 7, 27) = 0.359789E+00
-PKER_SDRYG( 7, 28) = 0.391183E+00
-PKER_SDRYG( 7, 29) = 0.427436E+00
-PKER_SDRYG( 7, 30) = 0.466046E+00
-PKER_SDRYG( 7, 31) = 0.504837E+00
-PKER_SDRYG( 7, 32) = 0.542368E+00
-PKER_SDRYG( 7, 33) = 0.577763E+00
-PKER_SDRYG( 7, 34) = 0.610469E+00
-PKER_SDRYG( 7, 35) = 0.640344E+00
-PKER_SDRYG( 7, 36) = 0.667411E+00
-PKER_SDRYG( 7, 37) = 0.691907E+00
-PKER_SDRYG( 7, 38) = 0.714147E+00
-PKER_SDRYG( 7, 39) = 0.734403E+00
-PKER_SDRYG( 7, 40) = 0.752915E+00
-PKER_SDRYG( 7, 41) = 0.769870E+00
-PKER_SDRYG( 7, 42) = 0.785417E+00
-PKER_SDRYG( 7, 43) = 0.799696E+00
-PKER_SDRYG( 7, 44) = 0.812835E+00
-PKER_SDRYG( 7, 45) = 0.824958E+00
-PKER_SDRYG( 7, 46) = 0.836170E+00
-PKER_SDRYG( 7, 47) = 0.846564E+00
-PKER_SDRYG( 7, 48) = 0.856219E+00
-PKER_SDRYG( 7, 49) = 0.865201E+00
-PKER_SDRYG( 7, 50) = 0.873570E+00
-PKER_SDRYG( 7, 51) = 0.881376E+00
-PKER_SDRYG( 7, 52) = 0.888666E+00
-PKER_SDRYG( 7, 53) = 0.895479E+00
-PKER_SDRYG( 7, 54) = 0.901851E+00
-PKER_SDRYG( 7, 55) = 0.907814E+00
-PKER_SDRYG( 7, 56) = 0.913398E+00
-PKER_SDRYG( 7, 57) = 0.918628E+00
-PKER_SDRYG( 7, 58) = 0.923530E+00
-PKER_SDRYG( 7, 59) = 0.928125E+00
-PKER_SDRYG( 7, 60) = 0.932433E+00
-PKER_SDRYG( 7, 61) = 0.936474E+00
-PKER_SDRYG( 7, 62) = 0.940264E+00
-PKER_SDRYG( 7, 63) = 0.943820E+00
-PKER_SDRYG( 7, 64) = 0.947157E+00
-PKER_SDRYG( 7, 65) = 0.950288E+00
-PKER_SDRYG( 7, 66) = 0.953227E+00
-PKER_SDRYG( 7, 67) = 0.955985E+00
-PKER_SDRYG( 7, 68) = 0.958574E+00
-PKER_SDRYG( 7, 69) = 0.961004E+00
-PKER_SDRYG( 7, 70) = 0.963286E+00
-PKER_SDRYG( 7, 71) = 0.965428E+00
-PKER_SDRYG( 7, 72) = 0.967438E+00
-PKER_SDRYG( 7, 73) = 0.969326E+00
-PKER_SDRYG( 7, 74) = 0.971099E+00
-PKER_SDRYG( 7, 75) = 0.972763E+00
-PKER_SDRYG( 7, 76) = 0.974325E+00
-PKER_SDRYG( 7, 77) = 0.975792E+00
-PKER_SDRYG( 7, 78) = 0.977169E+00
-PKER_SDRYG( 7, 79) = 0.978462E+00
-PKER_SDRYG( 7, 80) = 0.979677E+00
-PKER_SDRYG( 8, 1) = 0.269561E+01
-PKER_SDRYG( 8, 2) = 0.250283E+01
-PKER_SDRYG( 8, 3) = 0.232174E+01
-PKER_SDRYG( 8, 4) = 0.215161E+01
-PKER_SDRYG( 8, 5) = 0.199174E+01
-PKER_SDRYG( 8, 6) = 0.184149E+01
-PKER_SDRYG( 8, 7) = 0.170023E+01
-PKER_SDRYG( 8, 8) = 0.156739E+01
-PKER_SDRYG( 8, 9) = 0.144242E+01
-PKER_SDRYG( 8, 10) = 0.132479E+01
-PKER_SDRYG( 8, 11) = 0.121403E+01
-PKER_SDRYG( 8, 12) = 0.110969E+01
-PKER_SDRYG( 8, 13) = 0.101137E+01
-PKER_SDRYG( 8, 14) = 0.918736E+00
-PKER_SDRYG( 8, 15) = 0.831495E+00
-PKER_SDRYG( 8, 16) = 0.749451E+00
-PKER_SDRYG( 8, 17) = 0.672563E+00
-PKER_SDRYG( 8, 18) = 0.600835E+00
-PKER_SDRYG( 8, 19) = 0.534485E+00
-PKER_SDRYG( 8, 20) = 0.473951E+00
-PKER_SDRYG( 8, 21) = 0.419909E+00
-PKER_SDRYG( 8, 22) = 0.373149E+00
-PKER_SDRYG( 8, 23) = 0.334877E+00
-PKER_SDRYG( 8, 24) = 0.306095E+00
-PKER_SDRYG( 8, 25) = 0.287726E+00
-PKER_SDRYG( 8, 26) = 0.280481E+00
-PKER_SDRYG( 8, 27) = 0.283946E+00
-PKER_SDRYG( 8, 28) = 0.297076E+00
-PKER_SDRYG( 8, 29) = 0.318238E+00
-PKER_SDRYG( 8, 30) = 0.345049E+00
-PKER_SDRYG( 8, 31) = 0.375221E+00
-PKER_SDRYG( 8, 32) = 0.406792E+00
-PKER_SDRYG( 8, 33) = 0.438182E+00
-PKER_SDRYG( 8, 34) = 0.468400E+00
-PKER_SDRYG( 8, 35) = 0.496851E+00
-PKER_SDRYG( 8, 36) = 0.523262E+00
-PKER_SDRYG( 8, 37) = 0.547514E+00
-PKER_SDRYG( 8, 38) = 0.569649E+00
-PKER_SDRYG( 8, 39) = 0.589826E+00
-PKER_SDRYG( 8, 40) = 0.608254E+00
-PKER_SDRYG( 8, 41) = 0.625149E+00
-PKER_SDRYG( 8, 42) = 0.640693E+00
-PKER_SDRYG( 8, 43) = 0.655025E+00
-PKER_SDRYG( 8, 44) = 0.668253E+00
-PKER_SDRYG( 8, 45) = 0.680470E+00
-PKER_SDRYG( 8, 46) = 0.691766E+00
-PKER_SDRYG( 8, 47) = 0.702228E+00
-PKER_SDRYG( 8, 48) = 0.711935E+00
-PKER_SDRYG( 8, 49) = 0.720959E+00
-PKER_SDRYG( 8, 50) = 0.729360E+00
-PKER_SDRYG( 8, 51) = 0.737193E+00
-PKER_SDRYG( 8, 52) = 0.744502E+00
-PKER_SDRYG( 8, 53) = 0.751331E+00
-PKER_SDRYG( 8, 54) = 0.757715E+00
-PKER_SDRYG( 8, 55) = 0.763688E+00
-PKER_SDRYG( 8, 56) = 0.769279E+00
-PKER_SDRYG( 8, 57) = 0.774516E+00
-PKER_SDRYG( 8, 58) = 0.779422E+00
-PKER_SDRYG( 8, 59) = 0.784021E+00
-PKER_SDRYG( 8, 60) = 0.788332E+00
-PKER_SDRYG( 8, 61) = 0.792375E+00
-PKER_SDRYG( 8, 62) = 0.796167E+00
-PKER_SDRYG( 8, 63) = 0.799725E+00
-PKER_SDRYG( 8, 64) = 0.803062E+00
-PKER_SDRYG( 8, 65) = 0.806194E+00
-PKER_SDRYG( 8, 66) = 0.809134E+00
-PKER_SDRYG( 8, 67) = 0.811893E+00
-PKER_SDRYG( 8, 68) = 0.814482E+00
-PKER_SDRYG( 8, 69) = 0.816913E+00
-PKER_SDRYG( 8, 70) = 0.819194E+00
-PKER_SDRYG( 8, 71) = 0.821336E+00
-PKER_SDRYG( 8, 72) = 0.823347E+00
-PKER_SDRYG( 8, 73) = 0.825235E+00
-PKER_SDRYG( 8, 74) = 0.827008E+00
-PKER_SDRYG( 8, 75) = 0.828672E+00
-PKER_SDRYG( 8, 76) = 0.830234E+00
-PKER_SDRYG( 8, 77) = 0.831701E+00
-PKER_SDRYG( 8, 78) = 0.833078E+00
-PKER_SDRYG( 8, 79) = 0.834372E+00
-PKER_SDRYG( 8, 80) = 0.835586E+00
-PKER_SDRYG( 9, 1) = 0.276207E+01
-PKER_SDRYG( 9, 2) = 0.256937E+01
-PKER_SDRYG( 9, 3) = 0.238837E+01
-PKER_SDRYG( 9, 4) = 0.221834E+01
-PKER_SDRYG( 9, 5) = 0.205861E+01
-PKER_SDRYG( 9, 6) = 0.190852E+01
-PKER_SDRYG( 9, 7) = 0.176746E+01
-PKER_SDRYG( 9, 8) = 0.163486E+01
-PKER_SDRYG( 9, 9) = 0.151015E+01
-PKER_SDRYG( 9, 10) = 0.139283E+01
-PKER_SDRYG( 9, 11) = 0.128239E+01
-PKER_SDRYG( 9, 12) = 0.117836E+01
-PKER_SDRYG( 9, 13) = 0.108030E+01
-PKER_SDRYG( 9, 14) = 0.987804E+00
-PKER_SDRYG( 9, 15) = 0.900480E+00
-PKER_SDRYG( 9, 16) = 0.818006E+00
-PKER_SDRYG( 9, 17) = 0.740119E+00
-PKER_SDRYG( 9, 18) = 0.666640E+00
-PKER_SDRYG( 9, 19) = 0.597469E+00
-PKER_SDRYG( 9, 20) = 0.532692E+00
-PKER_SDRYG( 9, 21) = 0.472590E+00
-PKER_SDRYG( 9, 22) = 0.417593E+00
-PKER_SDRYG( 9, 23) = 0.368487E+00
-PKER_SDRYG( 9, 24) = 0.326216E+00
-PKER_SDRYG( 9, 25) = 0.291847E+00
-PKER_SDRYG( 9, 26) = 0.266518E+00
-PKER_SDRYG( 9, 27) = 0.250973E+00
-PKER_SDRYG( 9, 28) = 0.245401E+00
-PKER_SDRYG( 9, 29) = 0.249224E+00
-PKER_SDRYG( 9, 30) = 0.261135E+00
-PKER_SDRYG( 9, 31) = 0.279371E+00
-PKER_SDRYG( 9, 32) = 0.301823E+00
-PKER_SDRYG( 9, 33) = 0.326652E+00
-PKER_SDRYG( 9, 34) = 0.352342E+00
-PKER_SDRYG( 9, 35) = 0.377786E+00
-PKER_SDRYG( 9, 36) = 0.402202E+00
-PKER_SDRYG( 9, 37) = 0.425256E+00
-PKER_SDRYG( 9, 38) = 0.446772E+00
-PKER_SDRYG( 9, 39) = 0.466663E+00
-PKER_SDRYG( 9, 40) = 0.484977E+00
-PKER_SDRYG( 9, 41) = 0.501779E+00
-PKER_SDRYG( 9, 42) = 0.517214E+00
-PKER_SDRYG( 9, 43) = 0.531452E+00
-PKER_SDRYG( 9, 44) = 0.544618E+00
-PKER_SDRYG( 9, 45) = 0.556824E+00
-PKER_SDRYG( 9, 46) = 0.568153E+00
-PKER_SDRYG( 9, 47) = 0.578667E+00
-PKER_SDRYG( 9, 48) = 0.588428E+00
-PKER_SDRYG( 9, 49) = 0.597497E+00
-PKER_SDRYG( 9, 50) = 0.605935E+00
-PKER_SDRYG( 9, 51) = 0.613795E+00
-PKER_SDRYG( 9, 52) = 0.621127E+00
-PKER_SDRYG( 9, 53) = 0.627973E+00
-PKER_SDRYG( 9, 54) = 0.634371E+00
-PKER_SDRYG( 9, 55) = 0.640354E+00
-PKER_SDRYG( 9, 56) = 0.645954E+00
-PKER_SDRYG( 9, 57) = 0.651197E+00
-PKER_SDRYG( 9, 58) = 0.656109E+00
-PKER_SDRYG( 9, 59) = 0.660711E+00
-PKER_SDRYG( 9, 60) = 0.665026E+00
-PKER_SDRYG( 9, 61) = 0.669071E+00
-PKER_SDRYG( 9, 62) = 0.672865E+00
-PKER_SDRYG( 9, 63) = 0.676424E+00
-PKER_SDRYG( 9, 64) = 0.679763E+00
-PKER_SDRYG( 9, 65) = 0.682897E+00
-PKER_SDRYG( 9, 66) = 0.685837E+00
-PKER_SDRYG( 9, 67) = 0.688596E+00
-PKER_SDRYG( 9, 68) = 0.691186E+00
-PKER_SDRYG( 9, 69) = 0.693617E+00
-PKER_SDRYG( 9, 70) = 0.695899E+00
-PKER_SDRYG( 9, 71) = 0.698041E+00
-PKER_SDRYG( 9, 72) = 0.700052E+00
-PKER_SDRYG( 9, 73) = 0.701940E+00
-PKER_SDRYG( 9, 74) = 0.703713E+00
-PKER_SDRYG( 9, 75) = 0.705377E+00
-PKER_SDRYG( 9, 76) = 0.706940E+00
-PKER_SDRYG( 9, 77) = 0.708407E+00
-PKER_SDRYG( 9, 78) = 0.709784E+00
-PKER_SDRYG( 9, 79) = 0.711077E+00
-PKER_SDRYG( 9, 80) = 0.712292E+00
-PKER_SDRYG( 10, 1) = 0.281890E+01
-PKER_SDRYG( 10, 2) = 0.262625E+01
-PKER_SDRYG( 10, 3) = 0.244531E+01
-PKER_SDRYG( 10, 4) = 0.227537E+01
-PKER_SDRYG( 10, 5) = 0.211573E+01
-PKER_SDRYG( 10, 6) = 0.196576E+01
-PKER_SDRYG( 10, 7) = 0.182485E+01
-PKER_SDRYG( 10, 8) = 0.169243E+01
-PKER_SDRYG( 10, 9) = 0.156795E+01
-PKER_SDRYG( 10, 10) = 0.145089E+01
-PKER_SDRYG( 10, 11) = 0.134077E+01
-PKER_SDRYG( 10, 12) = 0.123711E+01
-PKER_SDRYG( 10, 13) = 0.113947E+01
-PKER_SDRYG( 10, 14) = 0.104741E+01
-PKER_SDRYG( 10, 15) = 0.960534E+00
-PKER_SDRYG( 10, 16) = 0.878447E+00
-PKER_SDRYG( 10, 17) = 0.800800E+00
-PKER_SDRYG( 10, 18) = 0.727272E+00
-PKER_SDRYG( 10, 19) = 0.657611E+00
-PKER_SDRYG( 10, 20) = 0.591632E+00
-PKER_SDRYG( 10, 21) = 0.529264E+00
-PKER_SDRYG( 10, 22) = 0.470668E+00
-PKER_SDRYG( 10, 23) = 0.416097E+00
-PKER_SDRYG( 10, 24) = 0.366106E+00
-PKER_SDRYG( 10, 25) = 0.321553E+00
-PKER_SDRYG( 10, 26) = 0.283464E+00
-PKER_SDRYG( 10, 27) = 0.252856E+00
-PKER_SDRYG( 10, 28) = 0.230814E+00
-PKER_SDRYG( 10, 29) = 0.217753E+00
-PKER_SDRYG( 10, 30) = 0.213511E+00
-PKER_SDRYG( 10, 31) = 0.217435E+00
-PKER_SDRYG( 10, 32) = 0.227916E+00
-PKER_SDRYG( 10, 33) = 0.243286E+00
-PKER_SDRYG( 10, 34) = 0.261931E+00
-PKER_SDRYG( 10, 35) = 0.282270E+00
-PKER_SDRYG( 10, 36) = 0.303153E+00
-PKER_SDRYG( 10, 37) = 0.323799E+00
-PKER_SDRYG( 10, 38) = 0.343682E+00
-PKER_SDRYG( 10, 39) = 0.362526E+00
-PKER_SDRYG( 10, 40) = 0.380218E+00
-PKER_SDRYG( 10, 41) = 0.396712E+00
-PKER_SDRYG( 10, 42) = 0.412002E+00
-PKER_SDRYG( 10, 43) = 0.426131E+00
-PKER_SDRYG( 10, 44) = 0.439189E+00
-PKER_SDRYG( 10, 45) = 0.451282E+00
-PKER_SDRYG( 10, 46) = 0.462518E+00
-PKER_SDRYG( 10, 47) = 0.472980E+00
-PKER_SDRYG( 10, 48) = 0.482733E+00
-PKER_SDRYG( 10, 49) = 0.491822E+00
-PKER_SDRYG( 10, 50) = 0.500291E+00
-PKER_SDRYG( 10, 51) = 0.508181E+00
-PKER_SDRYG( 10, 52) = 0.515537E+00
-PKER_SDRYG( 10, 53) = 0.522403E+00
-PKER_SDRYG( 10, 54) = 0.528816E+00
-PKER_SDRYG( 10, 55) = 0.534811E+00
-PKER_SDRYG( 10, 56) = 0.540420E+00
-PKER_SDRYG( 10, 57) = 0.545671E+00
-PKER_SDRYG( 10, 58) = 0.550588E+00
-PKER_SDRYG( 10, 59) = 0.555195E+00
-PKER_SDRYG( 10, 60) = 0.559513E+00
-PKER_SDRYG( 10, 61) = 0.563561E+00
-PKER_SDRYG( 10, 62) = 0.567358E+00
-PKER_SDRYG( 10, 63) = 0.570918E+00
-PKER_SDRYG( 10, 64) = 0.574259E+00
-PKER_SDRYG( 10, 65) = 0.577393E+00
-PKER_SDRYG( 10, 66) = 0.580334E+00
-PKER_SDRYG( 10, 67) = 0.583094E+00
-PKER_SDRYG( 10, 68) = 0.585685E+00
-PKER_SDRYG( 10, 69) = 0.588116E+00
-PKER_SDRYG( 10, 70) = 0.590398E+00
-PKER_SDRYG( 10, 71) = 0.592541E+00
-PKER_SDRYG( 10, 72) = 0.594552E+00
-PKER_SDRYG( 10, 73) = 0.596440E+00
-PKER_SDRYG( 10, 74) = 0.598213E+00
-PKER_SDRYG( 10, 75) = 0.599877E+00
-PKER_SDRYG( 10, 76) = 0.601440E+00
-PKER_SDRYG( 10, 77) = 0.602907E+00
-PKER_SDRYG( 10, 78) = 0.604284E+00
-PKER_SDRYG( 10, 79) = 0.605578E+00
-PKER_SDRYG( 10, 80) = 0.606792E+00
-PKER_SDRYG( 11, 1) = 0.286750E+01
-PKER_SDRYG( 11, 2) = 0.267488E+01
-PKER_SDRYG( 11, 3) = 0.249399E+01
-PKER_SDRYG( 11, 4) = 0.232410E+01
-PKER_SDRYG( 11, 5) = 0.216454E+01
-PKER_SDRYG( 11, 6) = 0.201465E+01
-PKER_SDRYG( 11, 7) = 0.187385E+01
-PKER_SDRYG( 11, 8) = 0.174156E+01
-PKER_SDRYG( 11, 9) = 0.161724E+01
-PKER_SDRYG( 11, 10) = 0.150038E+01
-PKER_SDRYG( 11, 11) = 0.139051E+01
-PKER_SDRYG( 11, 12) = 0.128715E+01
-PKER_SDRYG( 11, 13) = 0.118986E+01
-PKER_SDRYG( 11, 14) = 0.109824E+01
-PKER_SDRYG( 11, 15) = 0.101186E+01
-PKER_SDRYG( 11, 16) = 0.930332E+00
-PKER_SDRYG( 11, 17) = 0.853282E+00
-PKER_SDRYG( 11, 18) = 0.780348E+00
-PKER_SDRYG( 11, 19) = 0.711193E+00
-PKER_SDRYG( 11, 20) = 0.645511E+00
-PKER_SDRYG( 11, 21) = 0.583060E+00
-PKER_SDRYG( 11, 22) = 0.523685E+00
-PKER_SDRYG( 11, 23) = 0.467360E+00
-PKER_SDRYG( 11, 24) = 0.414210E+00
-PKER_SDRYG( 11, 25) = 0.364609E+00
-PKER_SDRYG( 11, 26) = 0.319253E+00
-PKER_SDRYG( 11, 27) = 0.278944E+00
-PKER_SDRYG( 11, 28) = 0.244812E+00
-PKER_SDRYG( 11, 29) = 0.217874E+00
-PKER_SDRYG( 11, 30) = 0.198828E+00
-PKER_SDRYG( 11, 31) = 0.187973E+00
-PKER_SDRYG( 11, 32) = 0.184872E+00
-PKER_SDRYG( 11, 33) = 0.188508E+00
-PKER_SDRYG( 11, 34) = 0.197506E+00
-PKER_SDRYG( 11, 35) = 0.210328E+00
-PKER_SDRYG( 11, 36) = 0.225647E+00
-PKER_SDRYG( 11, 37) = 0.242242E+00
-PKER_SDRYG( 11, 38) = 0.259254E+00
-PKER_SDRYG( 11, 39) = 0.276128E+00
-PKER_SDRYG( 11, 40) = 0.292461E+00
-PKER_SDRYG( 11, 41) = 0.308005E+00
-PKER_SDRYG( 11, 42) = 0.322690E+00
-PKER_SDRYG( 11, 43) = 0.336481E+00
-PKER_SDRYG( 11, 44) = 0.349355E+00
-PKER_SDRYG( 11, 45) = 0.361342E+00
-PKER_SDRYG( 11, 46) = 0.372471E+00
-PKER_SDRYG( 11, 47) = 0.382818E+00
-PKER_SDRYG( 11, 48) = 0.392468E+00
-PKER_SDRYG( 11, 49) = 0.401482E+00
-PKER_SDRYG( 11, 50) = 0.409913E+00
-PKER_SDRYG( 11, 51) = 0.417799E+00
-PKER_SDRYG( 11, 52) = 0.425169E+00
-PKER_SDRYG( 11, 53) = 0.432052E+00
-PKER_SDRYG( 11, 54) = 0.438481E+00
-PKER_SDRYG( 11, 55) = 0.444490E+00
-PKER_SDRYG( 11, 56) = 0.450109E+00
-PKER_SDRYG( 11, 57) = 0.455368E+00
-PKER_SDRYG( 11, 58) = 0.460292E+00
-PKER_SDRYG( 11, 59) = 0.464904E+00
-PKER_SDRYG( 11, 60) = 0.469226E+00
-PKER_SDRYG( 11, 61) = 0.473277E+00
-PKER_SDRYG( 11, 62) = 0.477076E+00
-PKER_SDRYG( 11, 63) = 0.480638E+00
-PKER_SDRYG( 11, 64) = 0.483980E+00
-PKER_SDRYG( 11, 65) = 0.487116E+00
-PKER_SDRYG( 11, 66) = 0.490058E+00
-PKER_SDRYG( 11, 67) = 0.492818E+00
-PKER_SDRYG( 11, 68) = 0.495409E+00
-PKER_SDRYG( 11, 69) = 0.497841E+00
-PKER_SDRYG( 11, 70) = 0.500124E+00
-PKER_SDRYG( 11, 71) = 0.502267E+00
-PKER_SDRYG( 11, 72) = 0.504278E+00
-PKER_SDRYG( 11, 73) = 0.506166E+00
-PKER_SDRYG( 11, 74) = 0.507939E+00
-PKER_SDRYG( 11, 75) = 0.509604E+00
-PKER_SDRYG( 11, 76) = 0.511166E+00
-PKER_SDRYG( 11, 77) = 0.512633E+00
-PKER_SDRYG( 11, 78) = 0.514011E+00
-PKER_SDRYG( 11, 79) = 0.515304E+00
-PKER_SDRYG( 11, 80) = 0.516519E+00
-PKER_SDRYG( 12, 1) = 0.290906E+01
-PKER_SDRYG( 12, 2) = 0.271647E+01
-PKER_SDRYG( 12, 3) = 0.253562E+01
-PKER_SDRYG( 12, 4) = 0.236577E+01
-PKER_SDRYG( 12, 5) = 0.220625E+01
-PKER_SDRYG( 12, 6) = 0.205643E+01
-PKER_SDRYG( 12, 7) = 0.191570E+01
-PKER_SDRYG( 12, 8) = 0.178350E+01
-PKER_SDRYG( 12, 9) = 0.165930E+01
-PKER_SDRYG( 12, 10) = 0.154259E+01
-PKER_SDRYG( 12, 11) = 0.143289E+01
-PKER_SDRYG( 12, 12) = 0.132974E+01
-PKER_SDRYG( 12, 13) = 0.123273E+01
-PKER_SDRYG( 12, 14) = 0.114144E+01
-PKER_SDRYG( 12, 15) = 0.105546E+01
-PKER_SDRYG( 12, 16) = 0.974419E+00
-PKER_SDRYG( 12, 17) = 0.897945E+00
-PKER_SDRYG( 12, 18) = 0.825675E+00
-PKER_SDRYG( 12, 19) = 0.757259E+00
-PKER_SDRYG( 12, 20) = 0.692357E+00
-PKER_SDRYG( 12, 21) = 0.630647E+00
-PKER_SDRYG( 12, 22) = 0.571852E+00
-PKER_SDRYG( 12, 23) = 0.515731E+00
-PKER_SDRYG( 12, 24) = 0.462161E+00
-PKER_SDRYG( 12, 25) = 0.411137E+00
-PKER_SDRYG( 12, 26) = 0.362843E+00
-PKER_SDRYG( 12, 27) = 0.317811E+00
-PKER_SDRYG( 12, 28) = 0.276701E+00
-PKER_SDRYG( 12, 29) = 0.240451E+00
-PKER_SDRYG( 12, 30) = 0.210140E+00
-PKER_SDRYG( 12, 31) = 0.186654E+00
-PKER_SDRYG( 12, 32) = 0.170411E+00
-PKER_SDRYG( 12, 33) = 0.161472E+00
-PKER_SDRYG( 12, 34) = 0.159162E+00
-PKER_SDRYG( 12, 35) = 0.162388E+00
-PKER_SDRYG( 12, 36) = 0.169994E+00
-PKER_SDRYG( 12, 37) = 0.180588E+00
-PKER_SDRYG( 12, 38) = 0.193112E+00
-PKER_SDRYG( 12, 39) = 0.206687E+00
-PKER_SDRYG( 12, 40) = 0.220641E+00
-PKER_SDRYG( 12, 41) = 0.234505E+00
-PKER_SDRYG( 12, 42) = 0.247994E+00
-PKER_SDRYG( 12, 43) = 0.260933E+00
-PKER_SDRYG( 12, 44) = 0.273225E+00
-PKER_SDRYG( 12, 45) = 0.284842E+00
-PKER_SDRYG( 12, 46) = 0.295768E+00
-PKER_SDRYG( 12, 47) = 0.305996E+00
-PKER_SDRYG( 12, 48) = 0.315542E+00
-PKER_SDRYG( 12, 49) = 0.324451E+00
-PKER_SDRYG( 12, 50) = 0.332775E+00
-PKER_SDRYG( 12, 51) = 0.340574E+00
-PKER_SDRYG( 12, 52) = 0.347888E+00
-PKER_SDRYG( 12, 53) = 0.354748E+00
-PKER_SDRYG( 12, 54) = 0.361176E+00
-PKER_SDRYG( 12, 55) = 0.367194E+00
-PKER_SDRYG( 12, 56) = 0.372824E+00
-PKER_SDRYG( 12, 57) = 0.378091E+00
-PKER_SDRYG( 12, 58) = 0.383022E+00
-PKER_SDRYG( 12, 59) = 0.387639E+00
-PKER_SDRYG( 12, 60) = 0.391966E+00
-PKER_SDRYG( 12, 61) = 0.396020E+00
-PKER_SDRYG( 12, 62) = 0.399822E+00
-PKER_SDRYG( 12, 63) = 0.403386E+00
-PKER_SDRYG( 12, 64) = 0.406730E+00
-PKER_SDRYG( 12, 65) = 0.409867E+00
-PKER_SDRYG( 12, 66) = 0.412810E+00
-PKER_SDRYG( 12, 67) = 0.415571E+00
-PKER_SDRYG( 12, 68) = 0.418163E+00
-PKER_SDRYG( 12, 69) = 0.420595E+00
-PKER_SDRYG( 12, 70) = 0.422878E+00
-PKER_SDRYG( 12, 71) = 0.425021E+00
-PKER_SDRYG( 12, 72) = 0.427033E+00
-PKER_SDRYG( 12, 73) = 0.428922E+00
-PKER_SDRYG( 12, 74) = 0.430695E+00
-PKER_SDRYG( 12, 75) = 0.432359E+00
-PKER_SDRYG( 12, 76) = 0.433922E+00
-PKER_SDRYG( 12, 77) = 0.435389E+00
-PKER_SDRYG( 12, 78) = 0.436767E+00
-PKER_SDRYG( 12, 79) = 0.438060E+00
-PKER_SDRYG( 12, 80) = 0.439274E+00
-PKER_SDRYG( 13, 1) = 0.294461E+01
-PKER_SDRYG( 13, 2) = 0.275204E+01
-PKER_SDRYG( 13, 3) = 0.257121E+01
-PKER_SDRYG( 13, 4) = 0.240139E+01
-PKER_SDRYG( 13, 5) = 0.224191E+01
-PKER_SDRYG( 13, 6) = 0.209213E+01
-PKER_SDRYG( 13, 7) = 0.195146E+01
-PKER_SDRYG( 13, 8) = 0.181933E+01
-PKER_SDRYG( 13, 9) = 0.169521E+01
-PKER_SDRYG( 13, 10) = 0.157859E+01
-PKER_SDRYG( 13, 11) = 0.146902E+01
-PKER_SDRYG( 13, 12) = 0.136604E+01
-PKER_SDRYG( 13, 13) = 0.126922E+01
-PKER_SDRYG( 13, 14) = 0.117816E+01
-PKER_SDRYG( 13, 15) = 0.109248E+01
-PKER_SDRYG( 13, 16) = 0.101180E+01
-PKER_SDRYG( 13, 17) = 0.935773E+00
-PKER_SDRYG( 13, 18) = 0.864045E+00
-PKER_SDRYG( 13, 19) = 0.796277E+00
-PKER_SDRYG( 13, 20) = 0.732136E+00
-PKER_SDRYG( 13, 21) = 0.671293E+00
-PKER_SDRYG( 13, 22) = 0.613429E+00
-PKER_SDRYG( 13, 23) = 0.558244E+00
-PKER_SDRYG( 13, 24) = 0.505468E+00
-PKER_SDRYG( 13, 25) = 0.454895E+00
-PKER_SDRYG( 13, 26) = 0.406428E+00
-PKER_SDRYG( 13, 27) = 0.360131E+00
-PKER_SDRYG( 13, 28) = 0.316299E+00
-PKER_SDRYG( 13, 29) = 0.275456E+00
-PKER_SDRYG( 13, 30) = 0.238374E+00
-PKER_SDRYG( 13, 31) = 0.206109E+00
-PKER_SDRYG( 13, 32) = 0.179451E+00
-PKER_SDRYG( 13, 33) = 0.159190E+00
-PKER_SDRYG( 13, 34) = 0.145545E+00
-PKER_SDRYG( 13, 35) = 0.138171E+00
-PKER_SDRYG( 13, 36) = 0.136403E+00
-PKER_SDRYG( 13, 37) = 0.139198E+00
-PKER_SDRYG( 13, 38) = 0.145447E+00
-PKER_SDRYG( 13, 39) = 0.154142E+00
-PKER_SDRYG( 13, 40) = 0.164364E+00
-PKER_SDRYG( 13, 41) = 0.175488E+00
-PKER_SDRYG( 13, 42) = 0.186961E+00
-PKER_SDRYG( 13, 43) = 0.198418E+00
-PKER_SDRYG( 13, 44) = 0.209659E+00
-PKER_SDRYG( 13, 45) = 0.220512E+00
-PKER_SDRYG( 13, 46) = 0.230875E+00
-PKER_SDRYG( 13, 47) = 0.240723E+00
-PKER_SDRYG( 13, 48) = 0.250043E+00
-PKER_SDRYG( 13, 49) = 0.258814E+00
-PKER_SDRYG( 13, 50) = 0.267045E+00
-PKER_SDRYG( 13, 51) = 0.274749E+00
-PKER_SDRYG( 13, 52) = 0.281964E+00
-PKER_SDRYG( 13, 53) = 0.288735E+00
-PKER_SDRYG( 13, 54) = 0.295096E+00
-PKER_SDRYG( 13, 55) = 0.301076E+00
-PKER_SDRYG( 13, 56) = 0.306693E+00
-PKER_SDRYG( 13, 57) = 0.311961E+00
-PKER_SDRYG( 13, 58) = 0.316898E+00
-PKER_SDRYG( 13, 59) = 0.321521E+00
-PKER_SDRYG( 13, 60) = 0.325852E+00
-PKER_SDRYG( 13, 61) = 0.329911E+00
-PKER_SDRYG( 13, 62) = 0.333715E+00
-PKER_SDRYG( 13, 63) = 0.337282E+00
-PKER_SDRYG( 13, 64) = 0.340628E+00
-PKER_SDRYG( 13, 65) = 0.343766E+00
-PKER_SDRYG( 13, 66) = 0.346710E+00
-PKER_SDRYG( 13, 67) = 0.349472E+00
-PKER_SDRYG( 13, 68) = 0.352064E+00
-PKER_SDRYG( 13, 69) = 0.354497E+00
-PKER_SDRYG( 13, 70) = 0.356781E+00
-PKER_SDRYG( 13, 71) = 0.358924E+00
-PKER_SDRYG( 13, 72) = 0.360936E+00
-PKER_SDRYG( 13, 73) = 0.362825E+00
-PKER_SDRYG( 13, 74) = 0.364598E+00
-PKER_SDRYG( 13, 75) = 0.366263E+00
-PKER_SDRYG( 13, 76) = 0.367826E+00
-PKER_SDRYG( 13, 77) = 0.369293E+00
-PKER_SDRYG( 13, 78) = 0.370671E+00
-PKER_SDRYG( 13, 79) = 0.371964E+00
-PKER_SDRYG( 13, 80) = 0.373178E+00
-PKER_SDRYG( 14, 1) = 0.297502E+01
-PKER_SDRYG( 14, 2) = 0.278247E+01
-PKER_SDRYG( 14, 3) = 0.260165E+01
-PKER_SDRYG( 14, 4) = 0.243185E+01
-PKER_SDRYG( 14, 5) = 0.227240E+01
-PKER_SDRYG( 14, 6) = 0.212265E+01
-PKER_SDRYG( 14, 7) = 0.198202E+01
-PKER_SDRYG( 14, 8) = 0.184993E+01
-PKER_SDRYG( 14, 9) = 0.172587E+01
-PKER_SDRYG( 14, 10) = 0.160933E+01
-PKER_SDRYG( 14, 11) = 0.149985E+01
-PKER_SDRYG( 14, 12) = 0.139698E+01
-PKER_SDRYG( 14, 13) = 0.130029E+01
-PKER_SDRYG( 14, 14) = 0.120941E+01
-PKER_SDRYG( 14, 15) = 0.112394E+01
-PKER_SDRYG( 14, 16) = 0.104352E+01
-PKER_SDRYG( 14, 17) = 0.967815E+00
-PKER_SDRYG( 14, 18) = 0.896486E+00
-PKER_SDRYG( 14, 19) = 0.829209E+00
-PKER_SDRYG( 14, 20) = 0.765666E+00
-PKER_SDRYG( 14, 21) = 0.705545E+00
-PKER_SDRYG( 14, 22) = 0.648535E+00
-PKER_SDRYG( 14, 23) = 0.594329E+00
-PKER_SDRYG( 14, 24) = 0.542628E+00
-PKER_SDRYG( 14, 25) = 0.493150E+00
-PKER_SDRYG( 14, 26) = 0.445651E+00
-PKER_SDRYG( 14, 27) = 0.399968E+00
-PKER_SDRYG( 14, 28) = 0.356041E+00
-PKER_SDRYG( 14, 29) = 0.314021E+00
-PKER_SDRYG( 14, 30) = 0.274267E+00
-PKER_SDRYG( 14, 31) = 0.237374E+00
-PKER_SDRYG( 14, 32) = 0.204260E+00
-PKER_SDRYG( 14, 33) = 0.175765E+00
-PKER_SDRYG( 14, 34) = 0.152637E+00
-PKER_SDRYG( 14, 35) = 0.135365E+00
-PKER_SDRYG( 14, 36) = 0.123949E+00
-PKER_SDRYG( 14, 37) = 0.117859E+00
-PKER_SDRYG( 14, 38) = 0.116422E+00
-PKER_SDRYG( 14, 39) = 0.118727E+00
-PKER_SDRYG( 14, 40) = 0.123806E+00
-PKER_SDRYG( 14, 41) = 0.130898E+00
-PKER_SDRYG( 14, 42) = 0.139254E+00
-PKER_SDRYG( 14, 43) = 0.148386E+00
-PKER_SDRYG( 14, 44) = 0.157857E+00
-PKER_SDRYG( 14, 45) = 0.167407E+00
-PKER_SDRYG( 14, 46) = 0.176814E+00
-PKER_SDRYG( 14, 47) = 0.185950E+00
-PKER_SDRYG( 14, 48) = 0.194744E+00
-PKER_SDRYG( 14, 49) = 0.203138E+00
-PKER_SDRYG( 14, 50) = 0.211120E+00
-PKER_SDRYG( 14, 51) = 0.218676E+00
-PKER_SDRYG( 14, 52) = 0.225795E+00
-PKER_SDRYG( 14, 53) = 0.232480E+00
-PKER_SDRYG( 14, 54) = 0.238754E+00
-PKER_SDRYG( 14, 55) = 0.244647E+00
-PKER_SDRYG( 14, 56) = 0.250193E+00
-PKER_SDRYG( 14, 57) = 0.255414E+00
-PKER_SDRYG( 14, 58) = 0.260327E+00
-PKER_SDRYG( 14, 59) = 0.264945E+00
-PKER_SDRYG( 14, 60) = 0.269277E+00
-PKER_SDRYG( 14, 61) = 0.273339E+00
-PKER_SDRYG( 14, 62) = 0.277147E+00
-PKER_SDRYG( 14, 63) = 0.280716E+00
-PKER_SDRYG( 14, 64) = 0.284064E+00
-PKER_SDRYG( 14, 65) = 0.287203E+00
-PKER_SDRYG( 14, 66) = 0.290149E+00
-PKER_SDRYG( 14, 67) = 0.292912E+00
-PKER_SDRYG( 14, 68) = 0.295505E+00
-PKER_SDRYG( 14, 69) = 0.297939E+00
-PKER_SDRYG( 14, 70) = 0.300223E+00
-PKER_SDRYG( 14, 71) = 0.302366E+00
-PKER_SDRYG( 14, 72) = 0.304379E+00
-PKER_SDRYG( 14, 73) = 0.306268E+00
-PKER_SDRYG( 14, 74) = 0.308041E+00
-PKER_SDRYG( 14, 75) = 0.309706E+00
-PKER_SDRYG( 14, 76) = 0.311269E+00
-PKER_SDRYG( 14, 77) = 0.312736E+00
-PKER_SDRYG( 14, 78) = 0.314114E+00
-PKER_SDRYG( 14, 79) = 0.315407E+00
-PKER_SDRYG( 14, 80) = 0.316622E+00
-PKER_SDRYG( 15, 1) = 0.300103E+01
-PKER_SDRYG( 15, 2) = 0.280849E+01
-PKER_SDRYG( 15, 3) = 0.262769E+01
-PKER_SDRYG( 15, 4) = 0.245790E+01
-PKER_SDRYG( 15, 5) = 0.229847E+01
-PKER_SDRYG( 15, 6) = 0.214875E+01
-PKER_SDRYG( 15, 7) = 0.200814E+01
-PKER_SDRYG( 15, 8) = 0.187609E+01
-PKER_SDRYG( 15, 9) = 0.175207E+01
-PKER_SDRYG( 15, 10) = 0.163559E+01
-PKER_SDRYG( 15, 11) = 0.152617E+01
-PKER_SDRYG( 15, 12) = 0.142337E+01
-PKER_SDRYG( 15, 13) = 0.132679E+01
-PKER_SDRYG( 15, 14) = 0.123602E+01
-PKER_SDRYG( 15, 15) = 0.115070E+01
-PKER_SDRYG( 15, 16) = 0.107047E+01
-PKER_SDRYG( 15, 17) = 0.994997E+00
-PKER_SDRYG( 15, 18) = 0.923952E+00
-PKER_SDRYG( 15, 19) = 0.857028E+00
-PKER_SDRYG( 15, 20) = 0.793920E+00
-PKER_SDRYG( 15, 21) = 0.734336E+00
-PKER_SDRYG( 15, 22) = 0.677982E+00
-PKER_SDRYG( 15, 23) = 0.624570E+00
-PKER_SDRYG( 15, 24) = 0.573810E+00
-PKER_SDRYG( 15, 25) = 0.525415E+00
-PKER_SDRYG( 15, 26) = 0.479106E+00
-PKER_SDRYG( 15, 27) = 0.434625E+00
-PKER_SDRYG( 15, 28) = 0.391766E+00
-PKER_SDRYG( 15, 29) = 0.350403E+00
-PKER_SDRYG( 15, 30) = 0.310560E+00
-PKER_SDRYG( 15, 31) = 0.272465E+00
-PKER_SDRYG( 15, 32) = 0.236568E+00
-PKER_SDRYG( 15, 33) = 0.203576E+00
-PKER_SDRYG( 15, 34) = 0.174281E+00
-PKER_SDRYG( 15, 35) = 0.149398E+00
-PKER_SDRYG( 15, 36) = 0.129630E+00
-PKER_SDRYG( 15, 37) = 0.114988E+00
-PKER_SDRYG( 15, 38) = 0.105420E+00
-PKER_SDRYG( 15, 39) = 0.100387E+00
-PKER_SDRYG( 15, 40) = 0.991260E-01
-PKER_SDRYG( 15, 41) = 0.100927E+00
-PKER_SDRYG( 15, 42) = 0.105008E+00
-PKER_SDRYG( 15, 43) = 0.110722E+00
-PKER_SDRYG( 15, 44) = 0.117557E+00
-PKER_SDRYG( 15, 45) = 0.125044E+00
-PKER_SDRYG( 15, 46) = 0.132897E+00
-PKER_SDRYG( 15, 47) = 0.140870E+00
-PKER_SDRYG( 15, 48) = 0.148774E+00
-PKER_SDRYG( 15, 49) = 0.156516E+00
-PKER_SDRYG( 15, 50) = 0.164008E+00
-PKER_SDRYG( 15, 51) = 0.171192E+00
-PKER_SDRYG( 15, 52) = 0.178051E+00
-PKER_SDRYG( 15, 53) = 0.184577E+00
-PKER_SDRYG( 15, 54) = 0.190747E+00
-PKER_SDRYG( 15, 55) = 0.196565E+00
-PKER_SDRYG( 15, 56) = 0.202034E+00
-PKER_SDRYG( 15, 57) = 0.207177E+00
-PKER_SDRYG( 15, 58) = 0.212021E+00
-PKER_SDRYG( 15, 59) = 0.216585E+00
-PKER_SDRYG( 15, 60) = 0.220887E+00
-PKER_SDRYG( 15, 61) = 0.224936E+00
-PKER_SDRYG( 15, 62) = 0.228741E+00
-PKER_SDRYG( 15, 63) = 0.232312E+00
-PKER_SDRYG( 15, 64) = 0.235662E+00
-PKER_SDRYG( 15, 65) = 0.238803E+00
-PKER_SDRYG( 15, 66) = 0.241750E+00
-PKER_SDRYG( 15, 67) = 0.244514E+00
-PKER_SDRYG( 15, 68) = 0.247108E+00
-PKER_SDRYG( 15, 69) = 0.249543E+00
-PKER_SDRYG( 15, 70) = 0.251827E+00
-PKER_SDRYG( 15, 71) = 0.253971E+00
-PKER_SDRYG( 15, 72) = 0.255984E+00
-PKER_SDRYG( 15, 73) = 0.257873E+00
-PKER_SDRYG( 15, 74) = 0.259647E+00
-PKER_SDRYG( 15, 75) = 0.261312E+00
-PKER_SDRYG( 15, 76) = 0.262875E+00
-PKER_SDRYG( 15, 77) = 0.264342E+00
-PKER_SDRYG( 15, 78) = 0.265720E+00
-PKER_SDRYG( 15, 79) = 0.267013E+00
-PKER_SDRYG( 15, 80) = 0.268228E+00
-PKER_SDRYG( 16, 1) = 0.302329E+01
-PKER_SDRYG( 16, 2) = 0.283075E+01
-PKER_SDRYG( 16, 3) = 0.264996E+01
-PKER_SDRYG( 16, 4) = 0.248019E+01
-PKER_SDRYG( 16, 5) = 0.232076E+01
-PKER_SDRYG( 16, 6) = 0.217106E+01
-PKER_SDRYG( 16, 7) = 0.203047E+01
-PKER_SDRYG( 16, 8) = 0.189845E+01
-PKER_SDRYG( 16, 9) = 0.177446E+01
-PKER_SDRYG( 16, 10) = 0.165801E+01
-PKER_SDRYG( 16, 11) = 0.154864E+01
-PKER_SDRYG( 16, 12) = 0.144590E+01
-PKER_SDRYG( 16, 13) = 0.134939E+01
-PKER_SDRYG( 16, 14) = 0.125871E+01
-PKER_SDRYG( 16, 15) = 0.117350E+01
-PKER_SDRYG( 16, 16) = 0.109340E+01
-PKER_SDRYG( 16, 17) = 0.101809E+01
-PKER_SDRYG( 16, 18) = 0.947248E+00
-PKER_SDRYG( 16, 19) = 0.880574E+00
-PKER_SDRYG( 16, 20) = 0.817777E+00
-PKER_SDRYG( 16, 21) = 0.758577E+00
-PKER_SDRYG( 16, 22) = 0.702699E+00
-PKER_SDRYG( 16, 23) = 0.649873E+00
-PKER_SDRYG( 16, 24) = 0.599828E+00
-PKER_SDRYG( 16, 25) = 0.552297E+00
-PKER_SDRYG( 16, 26) = 0.507010E+00
-PKER_SDRYG( 16, 27) = 0.463701E+00
-PKER_SDRYG( 16, 28) = 0.422113E+00
-PKER_SDRYG( 16, 29) = 0.382023E+00
-PKER_SDRYG( 16, 30) = 0.343269E+00
-PKER_SDRYG( 16, 31) = 0.305794E+00
-PKER_SDRYG( 16, 32) = 0.269715E+00
-PKER_SDRYG( 16, 33) = 0.235329E+00
-PKER_SDRYG( 16, 34) = 0.203179E+00
-PKER_SDRYG( 16, 35) = 0.173939E+00
-PKER_SDRYG( 16, 36) = 0.148290E+00
-PKER_SDRYG( 16, 37) = 0.126911E+00
-PKER_SDRYG( 16, 38) = 0.110074E+00
-PKER_SDRYG( 16, 39) = 0.977722E-01
-PKER_SDRYG( 16, 40) = 0.897236E-01
-PKER_SDRYG( 16, 41) = 0.854547E-01
-PKER_SDRYG( 16, 42) = 0.842616E-01
-PKER_SDRYG( 16, 43) = 0.855520E-01
-PKER_SDRYG( 16, 44) = 0.887781E-01
-PKER_SDRYG( 16, 45) = 0.933675E-01
-PKER_SDRYG( 16, 46) = 0.989218E-01
-PKER_SDRYG( 16, 47) = 0.105082E+00
-PKER_SDRYG( 16, 48) = 0.111617E+00
-PKER_SDRYG( 16, 49) = 0.118278E+00
-PKER_SDRYG( 16, 50) = 0.124959E+00
-PKER_SDRYG( 16, 51) = 0.131533E+00
-PKER_SDRYG( 16, 52) = 0.137923E+00
-PKER_SDRYG( 16, 53) = 0.144095E+00
-PKER_SDRYG( 16, 54) = 0.150006E+00
-PKER_SDRYG( 16, 55) = 0.155648E+00
-PKER_SDRYG( 16, 56) = 0.161010E+00
-PKER_SDRYG( 16, 57) = 0.166080E+00
-PKER_SDRYG( 16, 58) = 0.170856E+00
-PKER_SDRYG( 16, 59) = 0.175353E+00
-PKER_SDRYG( 16, 60) = 0.179587E+00
-PKER_SDRYG( 16, 61) = 0.183582E+00
-PKER_SDRYG( 16, 62) = 0.187351E+00
-PKER_SDRYG( 16, 63) = 0.190904E+00
-PKER_SDRYG( 16, 64) = 0.194247E+00
-PKER_SDRYG( 16, 65) = 0.197388E+00
-PKER_SDRYG( 16, 66) = 0.200335E+00
-PKER_SDRYG( 16, 67) = 0.203101E+00
-PKER_SDRYG( 16, 68) = 0.205696E+00
-PKER_SDRYG( 16, 69) = 0.208131E+00
-PKER_SDRYG( 16, 70) = 0.210416E+00
-PKER_SDRYG( 16, 71) = 0.212560E+00
-PKER_SDRYG( 16, 72) = 0.214573E+00
-PKER_SDRYG( 16, 73) = 0.216463E+00
-PKER_SDRYG( 16, 74) = 0.218237E+00
-PKER_SDRYG( 16, 75) = 0.219902E+00
-PKER_SDRYG( 16, 76) = 0.221465E+00
-PKER_SDRYG( 16, 77) = 0.222933E+00
-PKER_SDRYG( 16, 78) = 0.224310E+00
-PKER_SDRYG( 16, 79) = 0.225604E+00
-PKER_SDRYG( 16, 80) = 0.226819E+00
-PKER_SDRYG( 17, 1) = 0.304233E+01
-PKER_SDRYG( 17, 2) = 0.284980E+01
-PKER_SDRYG( 17, 3) = 0.266901E+01
-PKER_SDRYG( 17, 4) = 0.249924E+01
-PKER_SDRYG( 17, 5) = 0.233983E+01
-PKER_SDRYG( 17, 6) = 0.219014E+01
-PKER_SDRYG( 17, 7) = 0.204957E+01
-PKER_SDRYG( 17, 8) = 0.191757E+01
-PKER_SDRYG( 17, 9) = 0.179360E+01
-PKER_SDRYG( 17, 10) = 0.167718E+01
-PKER_SDRYG( 17, 11) = 0.156784E+01
-PKER_SDRYG( 17, 12) = 0.146515E+01
-PKER_SDRYG( 17, 13) = 0.136868E+01
-PKER_SDRYG( 17, 14) = 0.127807E+01
-PKER_SDRYG( 17, 15) = 0.119293E+01
-PKER_SDRYG( 17, 16) = 0.111293E+01
-PKER_SDRYG( 17, 17) = 0.103773E+01
-PKER_SDRYG( 17, 18) = 0.967037E+00
-PKER_SDRYG( 17, 19) = 0.900542E+00
-PKER_SDRYG( 17, 20) = 0.837966E+00
-PKER_SDRYG( 17, 21) = 0.779040E+00
-PKER_SDRYG( 17, 22) = 0.723501E+00
-PKER_SDRYG( 17, 23) = 0.671093E+00
-PKER_SDRYG( 17, 24) = 0.621566E+00
-PKER_SDRYG( 17, 25) = 0.574672E+00
-PKER_SDRYG( 17, 26) = 0.530159E+00
-PKER_SDRYG( 17, 27) = 0.487780E+00
-PKER_SDRYG( 17, 28) = 0.447283E+00
-PKER_SDRYG( 17, 29) = 0.408426E+00
-PKER_SDRYG( 17, 30) = 0.370984E+00
-PKER_SDRYG( 17, 31) = 0.334777E+00
-PKER_SDRYG( 17, 32) = 0.299703E+00
-PKER_SDRYG( 17, 33) = 0.265795E+00
-PKER_SDRYG( 17, 34) = 0.233237E+00
-PKER_SDRYG( 17, 35) = 0.202426E+00
-PKER_SDRYG( 17, 36) = 0.173914E+00
-PKER_SDRYG( 17, 37) = 0.148301E+00
-PKER_SDRYG( 17, 38) = 0.126202E+00
-PKER_SDRYG( 17, 39) = 0.107984E+00
-PKER_SDRYG( 17, 40) = 0.936873E-01
-PKER_SDRYG( 17, 41) = 0.833770E-01
-PKER_SDRYG( 17, 42) = 0.765063E-01
-PKER_SDRYG( 17, 43) = 0.727630E-01
-PKER_SDRYG( 17, 44) = 0.715986E-01
-PKER_SDRYG( 17, 45) = 0.724633E-01
-PKER_SDRYG( 17, 46) = 0.749323E-01
-PKER_SDRYG( 17, 47) = 0.785778E-01
-PKER_SDRYG( 17, 48) = 0.830719E-01
-PKER_SDRYG( 17, 49) = 0.881403E-01
-PKER_SDRYG( 17, 50) = 0.935486E-01
-PKER_SDRYG( 17, 51) = 0.991378E-01
-PKER_SDRYG( 17, 52) = 0.104781E+00
-PKER_SDRYG( 17, 53) = 0.110369E+00
-PKER_SDRYG( 17, 54) = 0.115842E+00
-PKER_SDRYG( 17, 55) = 0.121148E+00
-PKER_SDRYG( 17, 56) = 0.126252E+00
-PKER_SDRYG( 17, 57) = 0.131138E+00
-PKER_SDRYG( 17, 58) = 0.135801E+00
-PKER_SDRYG( 17, 59) = 0.140221E+00
-PKER_SDRYG( 17, 60) = 0.144398E+00
-PKER_SDRYG( 17, 61) = 0.148334E+00
-PKER_SDRYG( 17, 62) = 0.152044E+00
-PKER_SDRYG( 17, 63) = 0.155543E+00
-PKER_SDRYG( 17, 64) = 0.158847E+00
-PKER_SDRYG( 17, 65) = 0.161964E+00
-PKER_SDRYG( 17, 66) = 0.164902E+00
-PKER_SDRYG( 17, 67) = 0.167664E+00
-PKER_SDRYG( 17, 68) = 0.170259E+00
-PKER_SDRYG( 17, 69) = 0.172695E+00
-PKER_SDRYG( 17, 70) = 0.174981E+00
-PKER_SDRYG( 17, 71) = 0.177126E+00
-PKER_SDRYG( 17, 72) = 0.179139E+00
-PKER_SDRYG( 17, 73) = 0.181029E+00
-PKER_SDRYG( 17, 74) = 0.182803E+00
-PKER_SDRYG( 17, 75) = 0.184468E+00
-PKER_SDRYG( 17, 76) = 0.186032E+00
-PKER_SDRYG( 17, 77) = 0.187499E+00
-PKER_SDRYG( 17, 78) = 0.188877E+00
-PKER_SDRYG( 17, 79) = 0.190171E+00
-PKER_SDRYG( 17, 80) = 0.191386E+00
-PKER_SDRYG( 18, 1) = 0.305861E+01
-PKER_SDRYG( 18, 2) = 0.286609E+01
-PKER_SDRYG( 18, 3) = 0.268530E+01
-PKER_SDRYG( 18, 4) = 0.251555E+01
-PKER_SDRYG( 18, 5) = 0.235614E+01
-PKER_SDRYG( 18, 6) = 0.220646E+01
-PKER_SDRYG( 18, 7) = 0.206590E+01
-PKER_SDRYG( 18, 8) = 0.193391E+01
-PKER_SDRYG( 18, 9) = 0.180996E+01
-PKER_SDRYG( 18, 10) = 0.169356E+01
-PKER_SDRYG( 18, 11) = 0.158425E+01
-PKER_SDRYG( 18, 12) = 0.148158E+01
-PKER_SDRYG( 18, 13) = 0.138516E+01
-PKER_SDRYG( 18, 14) = 0.129459E+01
-PKER_SDRYG( 18, 15) = 0.120951E+01
-PKER_SDRYG( 18, 16) = 0.112957E+01
-PKER_SDRYG( 18, 17) = 0.105446E+01
-PKER_SDRYG( 18, 18) = 0.983869E+00
-PKER_SDRYG( 18, 19) = 0.917502E+00
-PKER_SDRYG( 18, 20) = 0.855084E+00
-PKER_SDRYG( 18, 21) = 0.796353E+00
-PKER_SDRYG( 18, 22) = 0.741055E+00
-PKER_SDRYG( 18, 23) = 0.688947E+00
-PKER_SDRYG( 18, 24) = 0.639789E+00
-PKER_SDRYG( 18, 25) = 0.593351E+00
-PKER_SDRYG( 18, 26) = 0.549400E+00
-PKER_SDRYG( 18, 27) = 0.507707E+00
-PKER_SDRYG( 18, 28) = 0.468042E+00
-PKER_SDRYG( 18, 29) = 0.430173E+00
-PKER_SDRYG( 18, 30) = 0.393871E+00
-PKER_SDRYG( 18, 31) = 0.358924E+00
-PKER_SDRYG( 18, 32) = 0.325148E+00
-PKER_SDRYG( 18, 33) = 0.292420E+00
-PKER_SDRYG( 18, 34) = 0.260716E+00
-PKER_SDRYG( 18, 35) = 0.230147E+00
-PKER_SDRYG( 18, 36) = 0.200989E+00
-PKER_SDRYG( 18, 37) = 0.173670E+00
-PKER_SDRYG( 18, 38) = 0.148685E+00
-PKER_SDRYG( 18, 39) = 0.126560E+00
-PKER_SDRYG( 18, 40) = 0.107668E+00
-PKER_SDRYG( 18, 41) = 0.921800E-01
-PKER_SDRYG( 18, 42) = 0.801537E-01
-PKER_SDRYG( 18, 43) = 0.713567E-01
-PKER_SDRYG( 18, 44) = 0.654782E-01
-PKER_SDRYG( 18, 45) = 0.621068E-01
-PKER_SDRYG( 18, 46) = 0.608901E-01
-PKER_SDRYG( 18, 47) = 0.613554E-01
-PKER_SDRYG( 18, 48) = 0.631511E-01
-PKER_SDRYG( 18, 49) = 0.660247E-01
-PKER_SDRYG( 18, 50) = 0.696433E-01
-PKER_SDRYG( 18, 51) = 0.737836E-01
-PKER_SDRYG( 18, 52) = 0.782701E-01
-PKER_SDRYG( 18, 53) = 0.829722E-01
-PKER_SDRYG( 18, 54) = 0.877276E-01
-PKER_SDRYG( 18, 55) = 0.924938E-01
-PKER_SDRYG( 18, 56) = 0.971825E-01
-PKER_SDRYG( 18, 57) = 0.101744E+00
-PKER_SDRYG( 18, 58) = 0.106160E+00
-PKER_SDRYG( 18, 59) = 0.110397E+00
-PKER_SDRYG( 18, 60) = 0.114449E+00
-PKER_SDRYG( 18, 61) = 0.118307E+00
-PKER_SDRYG( 18, 62) = 0.121962E+00
-PKER_SDRYG( 18, 63) = 0.125411E+00
-PKER_SDRYG( 18, 64) = 0.128663E+00
-PKER_SDRYG( 18, 65) = 0.131730E+00
-PKER_SDRYG( 18, 66) = 0.134628E+00
-PKER_SDRYG( 18, 67) = 0.137364E+00
-PKER_SDRYG( 18, 68) = 0.139945E+00
-PKER_SDRYG( 18, 69) = 0.142375E+00
-PKER_SDRYG( 18, 70) = 0.144660E+00
-PKER_SDRYG( 18, 71) = 0.146805E+00
-PKER_SDRYG( 18, 72) = 0.148819E+00
-PKER_SDRYG( 18, 73) = 0.150709E+00
-PKER_SDRYG( 18, 74) = 0.152483E+00
-PKER_SDRYG( 18, 75) = 0.154149E+00
-PKER_SDRYG( 18, 76) = 0.155712E+00
-PKER_SDRYG( 18, 77) = 0.157180E+00
-PKER_SDRYG( 18, 78) = 0.158558E+00
-PKER_SDRYG( 18, 79) = 0.159852E+00
-PKER_SDRYG( 18, 80) = 0.161067E+00
-PKER_SDRYG( 19, 1) = 0.307255E+01
-PKER_SDRYG( 19, 2) = 0.288003E+01
-PKER_SDRYG( 19, 3) = 0.269925E+01
-PKER_SDRYG( 19, 4) = 0.252949E+01
-PKER_SDRYG( 19, 5) = 0.237010E+01
-PKER_SDRYG( 19, 6) = 0.222042E+01
-PKER_SDRYG( 19, 7) = 0.207987E+01
-PKER_SDRYG( 19, 8) = 0.194789E+01
-PKER_SDRYG( 19, 9) = 0.182395E+01
-PKER_SDRYG( 19, 10) = 0.170757E+01
-PKER_SDRYG( 19, 11) = 0.159827E+01
-PKER_SDRYG( 19, 12) = 0.149563E+01
-PKER_SDRYG( 19, 13) = 0.139923E+01
-PKER_SDRYG( 19, 14) = 0.130869E+01
-PKER_SDRYG( 19, 15) = 0.122365E+01
-PKER_SDRYG( 19, 16) = 0.114377E+01
-PKER_SDRYG( 19, 17) = 0.106872E+01
-PKER_SDRYG( 19, 18) = 0.998202E+00
-PKER_SDRYG( 19, 19) = 0.931926E+00
-PKER_SDRYG( 19, 20) = 0.869623E+00
-PKER_SDRYG( 19, 21) = 0.811031E+00
-PKER_SDRYG( 19, 22) = 0.755906E+00
-PKER_SDRYG( 19, 23) = 0.704011E+00
-PKER_SDRYG( 19, 24) = 0.655117E+00
-PKER_SDRYG( 19, 25) = 0.609004E+00
-PKER_SDRYG( 19, 26) = 0.565455E+00
-PKER_SDRYG( 19, 27) = 0.524258E+00
-PKER_SDRYG( 19, 28) = 0.485199E+00
-PKER_SDRYG( 19, 29) = 0.448065E+00
-PKER_SDRYG( 19, 30) = 0.412644E+00
-PKER_SDRYG( 19, 31) = 0.378726E+00
-PKER_SDRYG( 19, 32) = 0.346109E+00
-PKER_SDRYG( 19, 33) = 0.314617E+00
-PKER_SDRYG( 19, 34) = 0.284120E+00
-PKER_SDRYG( 19, 35) = 0.254566E+00
-PKER_SDRYG( 19, 36) = 0.226009E+00
-PKER_SDRYG( 19, 37) = 0.198643E+00
-PKER_SDRYG( 19, 38) = 0.172786E+00
-PKER_SDRYG( 19, 39) = 0.148830E+00
-PKER_SDRYG( 19, 40) = 0.127216E+00
-PKER_SDRYG( 19, 41) = 0.108286E+00
-PKER_SDRYG( 19, 42) = 0.922237E-01
-PKER_SDRYG( 19, 43) = 0.791616E-01
-PKER_SDRYG( 19, 44) = 0.689769E-01
-PKER_SDRYG( 19, 45) = 0.613748E-01
-PKER_SDRYG( 19, 46) = 0.562746E-01
-PKER_SDRYG( 19, 47) = 0.531554E-01
-PKER_SDRYG( 19, 48) = 0.518361E-01
-PKER_SDRYG( 19, 49) = 0.519775E-01
-PKER_SDRYG( 19, 50) = 0.532667E-01
-PKER_SDRYG( 19, 51) = 0.554628E-01
-PKER_SDRYG( 19, 52) = 0.583379E-01
-PKER_SDRYG( 19, 53) = 0.617174E-01
-PKER_SDRYG( 19, 54) = 0.654271E-01
-PKER_SDRYG( 19, 55) = 0.693467E-01
-PKER_SDRYG( 19, 56) = 0.733724E-01
-PKER_SDRYG( 19, 57) = 0.774227E-01
-PKER_SDRYG( 19, 58) = 0.814369E-01
-PKER_SDRYG( 19, 59) = 0.853677E-01
-PKER_SDRYG( 19, 60) = 0.891824E-01
-PKER_SDRYG( 19, 61) = 0.928586E-01
-PKER_SDRYG( 19, 62) = 0.963820E-01
-PKER_SDRYG( 19, 63) = 0.997497E-01
-PKER_SDRYG( 19, 64) = 0.102946E+00
-PKER_SDRYG( 19, 65) = 0.105969E+00
-PKER_SDRYG( 19, 66) = 0.108823E+00
-PKER_SDRYG( 19, 67) = 0.111515E+00
-PKER_SDRYG( 19, 68) = 0.114057E+00
-PKER_SDRYG( 19, 69) = 0.116458E+00
-PKER_SDRYG( 19, 70) = 0.118726E+00
-PKER_SDRYG( 19, 71) = 0.120863E+00
-PKER_SDRYG( 19, 72) = 0.122875E+00
-PKER_SDRYG( 19, 73) = 0.124765E+00
-PKER_SDRYG( 19, 74) = 0.126539E+00
-PKER_SDRYG( 19, 75) = 0.128205E+00
-PKER_SDRYG( 19, 76) = 0.129769E+00
-PKER_SDRYG( 19, 77) = 0.131237E+00
-PKER_SDRYG( 19, 78) = 0.132615E+00
-PKER_SDRYG( 19, 79) = 0.133909E+00
-PKER_SDRYG( 19, 80) = 0.135123E+00
-PKER_SDRYG( 20, 1) = 0.308447E+01
-PKER_SDRYG( 20, 2) = 0.289195E+01
-PKER_SDRYG( 20, 3) = 0.271117E+01
-PKER_SDRYG( 20, 4) = 0.254143E+01
-PKER_SDRYG( 20, 5) = 0.238203E+01
-PKER_SDRYG( 20, 6) = 0.223236E+01
-PKER_SDRYG( 20, 7) = 0.209182E+01
-PKER_SDRYG( 20, 8) = 0.195984E+01
-PKER_SDRYG( 20, 9) = 0.183591E+01
-PKER_SDRYG( 20, 10) = 0.171954E+01
-PKER_SDRYG( 20, 11) = 0.161026E+01
-PKER_SDRYG( 20, 12) = 0.150763E+01
-PKER_SDRYG( 20, 13) = 0.141126E+01
-PKER_SDRYG( 20, 14) = 0.132074E+01
-PKER_SDRYG( 20, 15) = 0.123573E+01
-PKER_SDRYG( 20, 16) = 0.115588E+01
-PKER_SDRYG( 20, 17) = 0.108088E+01
-PKER_SDRYG( 20, 18) = 0.101042E+01
-PKER_SDRYG( 20, 19) = 0.944207E+00
-PKER_SDRYG( 20, 20) = 0.881986E+00
-PKER_SDRYG( 20, 21) = 0.823495E+00
-PKER_SDRYG( 20, 22) = 0.768494E+00
-PKER_SDRYG( 20, 23) = 0.716752E+00
-PKER_SDRYG( 20, 24) = 0.668047E+00
-PKER_SDRYG( 20, 25) = 0.622167E+00
-PKER_SDRYG( 20, 26) = 0.578906E+00
-PKER_SDRYG( 20, 27) = 0.538063E+00
-PKER_SDRYG( 20, 28) = 0.499440E+00
-PKER_SDRYG( 20, 29) = 0.462841E+00
-PKER_SDRYG( 20, 30) = 0.428070E+00
-PKER_SDRYG( 20, 31) = 0.394930E+00
-PKER_SDRYG( 20, 32) = 0.363228E+00
-PKER_SDRYG( 20, 33) = 0.332779E+00
-PKER_SDRYG( 20, 34) = 0.303417E+00
-PKER_SDRYG( 20, 35) = 0.275014E+00
-PKER_SDRYG( 20, 36) = 0.247503E+00
-PKER_SDRYG( 20, 37) = 0.220909E+00
-PKER_SDRYG( 20, 38) = 0.195362E+00
-PKER_SDRYG( 20, 39) = 0.171100E+00
-PKER_SDRYG( 20, 40) = 0.148434E+00
-PKER_SDRYG( 20, 41) = 0.127703E+00
-PKER_SDRYG( 20, 42) = 0.109201E+00
-PKER_SDRYG( 20, 43) = 0.931127E-01
-PKER_SDRYG( 20, 44) = 0.795450E-01
-PKER_SDRYG( 20, 45) = 0.684619E-01
-PKER_SDRYG( 20, 46) = 0.597138E-01
-PKER_SDRYG( 20, 47) = 0.531640E-01
-PKER_SDRYG( 20, 48) = 0.485713E-01
-PKER_SDRYG( 20, 49) = 0.457023E-01
-PKER_SDRYG( 20, 50) = 0.442778E-01
-PKER_SDRYG( 20, 51) = 0.441239E-01
-PKER_SDRYG( 20, 52) = 0.449550E-01
-PKER_SDRYG( 20, 53) = 0.465614E-01
-PKER_SDRYG( 20, 54) = 0.488440E-01
-PKER_SDRYG( 20, 55) = 0.515730E-01
-PKER_SDRYG( 20, 56) = 0.546214E-01
-PKER_SDRYG( 20, 57) = 0.578936E-01
-PKER_SDRYG( 20, 58) = 0.612990E-01
-PKER_SDRYG( 20, 59) = 0.647325E-01
-PKER_SDRYG( 20, 60) = 0.681741E-01
-PKER_SDRYG( 20, 61) = 0.715569E-01
-PKER_SDRYG( 20, 62) = 0.748508E-01
-PKER_SDRYG( 20, 63) = 0.780435E-01
-PKER_SDRYG( 20, 64) = 0.811089E-01
-PKER_SDRYG( 20, 65) = 0.840439E-01
-PKER_SDRYG( 20, 66) = 0.868407E-01
-PKER_SDRYG( 20, 67) = 0.894925E-01
-PKER_SDRYG( 20, 68) = 0.919967E-01
-PKER_SDRYG( 20, 69) = 0.943597E-01
-PKER_SDRYG( 20, 70) = 0.965903E-01
-PKER_SDRYG( 20, 71) = 0.986983E-01
-PKER_SDRYG( 20, 72) = 0.100690E+00
-PKER_SDRYG( 20, 73) = 0.102570E+00
-PKER_SDRYG( 20, 74) = 0.104341E+00
-PKER_SDRYG( 20, 75) = 0.106005E+00
-PKER_SDRYG( 20, 76) = 0.107569E+00
-PKER_SDRYG( 20, 77) = 0.109037E+00
-PKER_SDRYG( 20, 78) = 0.110416E+00
-PKER_SDRYG( 20, 79) = 0.111710E+00
-PKER_SDRYG( 20, 80) = 0.112924E+00
-PKER_SDRYG( 21, 1) = 0.309467E+01
-PKER_SDRYG( 21, 2) = 0.290215E+01
-PKER_SDRYG( 21, 3) = 0.272138E+01
-PKER_SDRYG( 21, 4) = 0.255163E+01
-PKER_SDRYG( 21, 5) = 0.239224E+01
-PKER_SDRYG( 21, 6) = 0.224257E+01
-PKER_SDRYG( 21, 7) = 0.210203E+01
-PKER_SDRYG( 21, 8) = 0.197007E+01
-PKER_SDRYG( 21, 9) = 0.184615E+01
-PKER_SDRYG( 21, 10) = 0.172978E+01
-PKER_SDRYG( 21, 11) = 0.162051E+01
-PKER_SDRYG( 21, 12) = 0.151789E+01
-PKER_SDRYG( 21, 13) = 0.142153E+01
-PKER_SDRYG( 21, 14) = 0.133104E+01
-PKER_SDRYG( 21, 15) = 0.124605E+01
-PKER_SDRYG( 21, 16) = 0.116623E+01
-PKER_SDRYG( 21, 17) = 0.109126E+01
-PKER_SDRYG( 21, 18) = 0.102083E+01
-PKER_SDRYG( 21, 19) = 0.954672E+00
-PKER_SDRYG( 21, 20) = 0.892510E+00
-PKER_SDRYG( 21, 21) = 0.834093E+00
-PKER_SDRYG( 21, 22) = 0.779182E+00
-PKER_SDRYG( 21, 23) = 0.727550E+00
-PKER_SDRYG( 21, 24) = 0.678981E+00
-PKER_SDRYG( 21, 25) = 0.633268E+00
-PKER_SDRYG( 21, 26) = 0.590214E+00
-PKER_SDRYG( 21, 27) = 0.549625E+00
-PKER_SDRYG( 21, 28) = 0.511316E+00
-PKER_SDRYG( 21, 29) = 0.475102E+00
-PKER_SDRYG( 21, 30) = 0.440802E+00
-PKER_SDRYG( 21, 31) = 0.408235E+00
-PKER_SDRYG( 21, 32) = 0.377220E+00
-PKER_SDRYG( 21, 33) = 0.347581E+00
-PKER_SDRYG( 21, 34) = 0.319145E+00
-PKER_SDRYG( 21, 35) = 0.291760E+00
-PKER_SDRYG( 21, 36) = 0.265305E+00
-PKER_SDRYG( 21, 37) = 0.239708E+00
-PKER_SDRYG( 21, 38) = 0.214974E+00
-PKER_SDRYG( 21, 39) = 0.191196E+00
-PKER_SDRYG( 21, 40) = 0.168553E+00
-PKER_SDRYG( 21, 41) = 0.147284E+00
-PKER_SDRYG( 21, 42) = 0.127658E+00
-PKER_SDRYG( 21, 43) = 0.109904E+00
-PKER_SDRYG( 21, 44) = 0.941689E-01
-PKER_SDRYG( 21, 45) = 0.805651E-01
-PKER_SDRYG( 21, 46) = 0.690716E-01
-PKER_SDRYG( 21, 47) = 0.595900E-01
-PKER_SDRYG( 21, 48) = 0.520709E-01
-PKER_SDRYG( 21, 49) = 0.463366E-01
-PKER_SDRYG( 21, 50) = 0.421453E-01
-PKER_SDRYG( 21, 51) = 0.394599E-01
-PKER_SDRYG( 21, 52) = 0.379410E-01
-PKER_SDRYG( 21, 53) = 0.375222E-01
-PKER_SDRYG( 21, 54) = 0.379878E-01
-PKER_SDRYG( 21, 55) = 0.391684E-01
-PKER_SDRYG( 21, 56) = 0.409134E-01
-PKER_SDRYG( 21, 57) = 0.430879E-01
-PKER_SDRYG( 21, 58) = 0.455943E-01
-PKER_SDRYG( 21, 59) = 0.483097E-01
-PKER_SDRYG( 21, 60) = 0.511611E-01
-PKER_SDRYG( 21, 61) = 0.540832E-01
-PKER_SDRYG( 21, 62) = 0.570182E-01
-PKER_SDRYG( 21, 63) = 0.599262E-01
-PKER_SDRYG( 21, 64) = 0.627739E-01
-PKER_SDRYG( 21, 65) = 0.655385E-01
-PKER_SDRYG( 21, 66) = 0.682053E-01
-PKER_SDRYG( 21, 67) = 0.707625E-01
-PKER_SDRYG( 21, 68) = 0.732087E-01
-PKER_SDRYG( 21, 69) = 0.755315E-01
-PKER_SDRYG( 21, 70) = 0.777294E-01
-PKER_SDRYG( 21, 71) = 0.798052E-01
-PKER_SDRYG( 21, 72) = 0.817651E-01
-PKER_SDRYG( 21, 73) = 0.836157E-01
-PKER_SDRYG( 21, 74) = 0.853654E-01
-PKER_SDRYG( 21, 75) = 0.870178E-01
-PKER_SDRYG( 21, 76) = 0.885760E-01
-PKER_SDRYG( 21, 77) = 0.900423E-01
-PKER_SDRYG( 21, 78) = 0.914203E-01
-PKER_SDRYG( 21, 79) = 0.927143E-01
-PKER_SDRYG( 21, 80) = 0.939293E-01
-PKER_SDRYG( 22, 1) = 0.310340E+01
-PKER_SDRYG( 22, 2) = 0.291088E+01
-PKER_SDRYG( 22, 3) = 0.273011E+01
-PKER_SDRYG( 22, 4) = 0.256036E+01
-PKER_SDRYG( 22, 5) = 0.240098E+01
-PKER_SDRYG( 22, 6) = 0.225131E+01
-PKER_SDRYG( 22, 7) = 0.211078E+01
-PKER_SDRYG( 22, 8) = 0.197881E+01
-PKER_SDRYG( 22, 9) = 0.185490E+01
-PKER_SDRYG( 22, 10) = 0.173854E+01
-PKER_SDRYG( 22, 11) = 0.162927E+01
-PKER_SDRYG( 22, 12) = 0.152667E+01
-PKER_SDRYG( 22, 13) = 0.143032E+01
-PKER_SDRYG( 22, 14) = 0.133984E+01
-PKER_SDRYG( 22, 15) = 0.125486E+01
-PKER_SDRYG( 22, 16) = 0.117506E+01
-PKER_SDRYG( 22, 17) = 0.110011E+01
-PKER_SDRYG( 22, 18) = 0.102972E+01
-PKER_SDRYG( 22, 19) = 0.963596E+00
-PKER_SDRYG( 22, 20) = 0.901477E+00
-PKER_SDRYG( 22, 21) = 0.843114E+00
-PKER_SDRYG( 22, 22) = 0.788268E+00
-PKER_SDRYG( 22, 23) = 0.736716E+00
-PKER_SDRYG( 22, 24) = 0.688246E+00
-PKER_SDRYG( 22, 25) = 0.642654E+00
-PKER_SDRYG( 22, 26) = 0.599749E+00
-PKER_SDRYG( 22, 27) = 0.559343E+00
-PKER_SDRYG( 22, 28) = 0.521260E+00
-PKER_SDRYG( 22, 29) = 0.485324E+00
-PKER_SDRYG( 22, 30) = 0.451364E+00
-PKER_SDRYG( 22, 31) = 0.419213E+00
-PKER_SDRYG( 22, 32) = 0.388704E+00
-PKER_SDRYG( 22, 33) = 0.359670E+00
-PKER_SDRYG( 22, 34) = 0.331948E+00
-PKER_SDRYG( 22, 35) = 0.305382E+00
-PKER_SDRYG( 22, 36) = 0.279831E+00
-PKER_SDRYG( 22, 37) = 0.255180E+00
-PKER_SDRYG( 22, 38) = 0.231361E+00
-PKER_SDRYG( 22, 39) = 0.208367E+00
-PKER_SDRYG( 22, 40) = 0.186266E+00
-PKER_SDRYG( 22, 41) = 0.165198E+00
-PKER_SDRYG( 22, 42) = 0.145353E+00
-PKER_SDRYG( 22, 43) = 0.126934E+00
-PKER_SDRYG( 22, 44) = 0.110117E+00
-PKER_SDRYG( 22, 45) = 0.950242E-01
-PKER_SDRYG( 22, 46) = 0.817187E-01
-PKER_SDRYG( 22, 47) = 0.701989E-01
-PKER_SDRYG( 22, 48) = 0.604077E-01
-PKER_SDRYG( 22, 49) = 0.522862E-01
-PKER_SDRYG( 22, 50) = 0.457355E-01
-PKER_SDRYG( 22, 51) = 0.406096E-01
-PKER_SDRYG( 22, 52) = 0.368134E-01
-PKER_SDRYG( 22, 53) = 0.342156E-01
-PKER_SDRYG( 22, 54) = 0.326793E-01
-PKER_SDRYG( 22, 55) = 0.320323E-01
-PKER_SDRYG( 22, 56) = 0.321937E-01
-PKER_SDRYG( 22, 57) = 0.329850E-01
-PKER_SDRYG( 22, 58) = 0.342698E-01
-PKER_SDRYG( 22, 59) = 0.360064E-01
-PKER_SDRYG( 22, 60) = 0.380365E-01
-PKER_SDRYG( 22, 61) = 0.402760E-01
-PKER_SDRYG( 22, 62) = 0.426662E-01
-PKER_SDRYG( 22, 63) = 0.451444E-01
-PKER_SDRYG( 22, 64) = 0.476417E-01
-PKER_SDRYG( 22, 65) = 0.501412E-01
-PKER_SDRYG( 22, 66) = 0.525978E-01
-PKER_SDRYG( 22, 67) = 0.549924E-01
-PKER_SDRYG( 22, 68) = 0.573119E-01
-PKER_SDRYG( 22, 69) = 0.595407E-01
-PKER_SDRYG( 22, 70) = 0.616759E-01
-PKER_SDRYG( 22, 71) = 0.637106E-01
-PKER_SDRYG( 22, 72) = 0.656407E-01
-PKER_SDRYG( 22, 73) = 0.674641E-01
-PKER_SDRYG( 22, 74) = 0.691851E-01
-PKER_SDRYG( 22, 75) = 0.708107E-01
-PKER_SDRYG( 22, 76) = 0.723473E-01
-PKER_SDRYG( 22, 77) = 0.737996E-01
-PKER_SDRYG( 22, 78) = 0.751703E-01
-PKER_SDRYG( 22, 79) = 0.764615E-01
-PKER_SDRYG( 22, 80) = 0.776757E-01
-PKER_SDRYG( 23, 1) = 0.311087E+01
-PKER_SDRYG( 23, 2) = 0.291835E+01
-PKER_SDRYG( 23, 3) = 0.273758E+01
-PKER_SDRYG( 23, 4) = 0.256784E+01
-PKER_SDRYG( 23, 5) = 0.240845E+01
-PKER_SDRYG( 23, 6) = 0.225879E+01
-PKER_SDRYG( 23, 7) = 0.211825E+01
-PKER_SDRYG( 23, 8) = 0.198629E+01
-PKER_SDRYG( 23, 9) = 0.186238E+01
-PKER_SDRYG( 23, 10) = 0.174603E+01
-PKER_SDRYG( 23, 11) = 0.163677E+01
-PKER_SDRYG( 23, 12) = 0.153417E+01
-PKER_SDRYG( 23, 13) = 0.143783E+01
-PKER_SDRYG( 23, 14) = 0.134736E+01
-PKER_SDRYG( 23, 15) = 0.126240E+01
-PKER_SDRYG( 23, 16) = 0.118261E+01
-PKER_SDRYG( 23, 17) = 0.110768E+01
-PKER_SDRYG( 23, 18) = 0.103731E+01
-PKER_SDRYG( 23, 19) = 0.971209E+00
-PKER_SDRYG( 23, 20) = 0.909123E+00
-PKER_SDRYG( 23, 21) = 0.850799E+00
-PKER_SDRYG( 23, 22) = 0.796001E+00
-PKER_SDRYG( 23, 23) = 0.744508E+00
-PKER_SDRYG( 23, 24) = 0.696109E+00
-PKER_SDRYG( 23, 25) = 0.650606E+00
-PKER_SDRYG( 23, 26) = 0.607808E+00
-PKER_SDRYG( 23, 27) = 0.567535E+00
-PKER_SDRYG( 23, 28) = 0.529615E+00
-PKER_SDRYG( 23, 29) = 0.493879E+00
-PKER_SDRYG( 23, 30) = 0.460166E+00
-PKER_SDRYG( 23, 31) = 0.428317E+00
-PKER_SDRYG( 23, 32) = 0.398176E+00
-PKER_SDRYG( 23, 33) = 0.369589E+00
-PKER_SDRYG( 23, 34) = 0.342402E+00
-PKER_SDRYG( 23, 35) = 0.316466E+00
-PKER_SDRYG( 23, 36) = 0.291637E+00
-PKER_SDRYG( 23, 37) = 0.267784E+00
-PKER_SDRYG( 23, 38) = 0.244803E+00
-PKER_SDRYG( 23, 39) = 0.222628E+00
-PKER_SDRYG( 23, 40) = 0.201247E+00
-PKER_SDRYG( 23, 41) = 0.180713E+00
-PKER_SDRYG( 23, 42) = 0.161137E+00
-PKER_SDRYG( 23, 43) = 0.142671E+00
-PKER_SDRYG( 23, 44) = 0.125476E+00
-PKER_SDRYG( 23, 45) = 0.109687E+00
-PKER_SDRYG( 23, 46) = 0.953871E-01
-PKER_SDRYG( 23, 47) = 0.826169E-01
-PKER_SDRYG( 23, 48) = 0.713617E-01
-PKER_SDRYG( 23, 49) = 0.615668E-01
-PKER_SDRYG( 23, 50) = 0.531991E-01
-PKER_SDRYG( 23, 51) = 0.461730E-01
-PKER_SDRYG( 23, 52) = 0.403882E-01
-PKER_SDRYG( 23, 53) = 0.358096E-01
-PKER_SDRYG( 23, 54) = 0.323398E-01
-PKER_SDRYG( 23, 55) = 0.298278E-01
-PKER_SDRYG( 23, 56) = 0.282645E-01
-PKER_SDRYG( 23, 57) = 0.274478E-01
-PKER_SDRYG( 23, 58) = 0.273472E-01
-PKER_SDRYG( 23, 59) = 0.278235E-01
-PKER_SDRYG( 23, 60) = 0.287808E-01
-PKER_SDRYG( 23, 61) = 0.301115E-01
-PKER_SDRYG( 23, 62) = 0.317312E-01
-PKER_SDRYG( 23, 63) = 0.335818E-01
-PKER_SDRYG( 23, 64) = 0.355711E-01
-PKER_SDRYG( 23, 65) = 0.376525E-01
-PKER_SDRYG( 23, 66) = 0.397832E-01
-PKER_SDRYG( 23, 67) = 0.419209E-01
-PKER_SDRYG( 23, 68) = 0.440372E-01
-PKER_SDRYG( 23, 69) = 0.461097E-01
-PKER_SDRYG( 23, 70) = 0.481216E-01
-PKER_SDRYG( 23, 71) = 0.500634E-01
-PKER_SDRYG( 23, 72) = 0.519255E-01
-PKER_SDRYG( 23, 73) = 0.537073E-01
-PKER_SDRYG( 23, 74) = 0.553996E-01
-PKER_SDRYG( 23, 75) = 0.570010E-01
-PKER_SDRYG( 23, 76) = 0.585138E-01
-PKER_SDRYG( 23, 77) = 0.599425E-01
-PKER_SDRYG( 23, 78) = 0.612921E-01
-PKER_SDRYG( 23, 79) = 0.625682E-01
-PKER_SDRYG( 23, 80) = 0.637735E-01
-PKER_SDRYG( 24, 1) = 0.311725E+01
-PKER_SDRYG( 24, 2) = 0.292474E+01
-PKER_SDRYG( 24, 3) = 0.274397E+01
-PKER_SDRYG( 24, 4) = 0.257423E+01
-PKER_SDRYG( 24, 5) = 0.241484E+01
-PKER_SDRYG( 24, 6) = 0.226518E+01
-PKER_SDRYG( 24, 7) = 0.212465E+01
-PKER_SDRYG( 24, 8) = 0.199269E+01
-PKER_SDRYG( 24, 9) = 0.186878E+01
-PKER_SDRYG( 24, 10) = 0.175243E+01
-PKER_SDRYG( 24, 11) = 0.164318E+01
-PKER_SDRYG( 24, 12) = 0.154059E+01
-PKER_SDRYG( 24, 13) = 0.144425E+01
-PKER_SDRYG( 24, 14) = 0.135379E+01
-PKER_SDRYG( 24, 15) = 0.126883E+01
-PKER_SDRYG( 24, 16) = 0.118906E+01
-PKER_SDRYG( 24, 17) = 0.111414E+01
-PKER_SDRYG( 24, 18) = 0.104379E+01
-PKER_SDRYG( 24, 19) = 0.977708E+00
-PKER_SDRYG( 24, 20) = 0.915646E+00
-PKER_SDRYG( 24, 21) = 0.857350E+00
-PKER_SDRYG( 24, 22) = 0.802588E+00
-PKER_SDRYG( 24, 23) = 0.751138E+00
-PKER_SDRYG( 24, 24) = 0.702792E+00
-PKER_SDRYG( 24, 25) = 0.657353E+00
-PKER_SDRYG( 24, 26) = 0.614634E+00
-PKER_SDRYG( 24, 27) = 0.574458E+00
-PKER_SDRYG( 24, 28) = 0.536656E+00
-PKER_SDRYG( 24, 29) = 0.501065E+00
-PKER_SDRYG( 24, 30) = 0.467530E+00
-PKER_SDRYG( 24, 31) = 0.435900E+00
-PKER_SDRYG( 24, 32) = 0.406028E+00
-PKER_SDRYG( 24, 33) = 0.377767E+00
-PKER_SDRYG( 24, 34) = 0.350976E+00
-PKER_SDRYG( 24, 35) = 0.325513E+00
-PKER_SDRYG( 24, 36) = 0.301240E+00
-PKER_SDRYG( 24, 37) = 0.278025E+00
-PKER_SDRYG( 24, 38) = 0.255748E+00
-PKER_SDRYG( 24, 39) = 0.234312E+00
-PKER_SDRYG( 24, 40) = 0.213656E+00
-PKER_SDRYG( 24, 41) = 0.193765E+00
-PKER_SDRYG( 24, 42) = 0.174681E+00
-PKER_SDRYG( 24, 43) = 0.156497E+00
-PKER_SDRYG( 24, 44) = 0.139338E+00
-PKER_SDRYG( 24, 45) = 0.123333E+00
-PKER_SDRYG( 24, 46) = 0.108586E+00
-PKER_SDRYG( 24, 47) = 0.951564E-01
-PKER_SDRYG( 24, 48) = 0.830549E-01
-PKER_SDRYG( 24, 49) = 0.722530E-01
-PKER_SDRYG( 24, 50) = 0.627027E-01
-PKER_SDRYG( 24, 51) = 0.543516E-01
-PKER_SDRYG( 24, 52) = 0.471379E-01
-PKER_SDRYG( 24, 53) = 0.410008E-01
-PKER_SDRYG( 24, 54) = 0.358942E-01
-PKER_SDRYG( 24, 55) = 0.317729E-01
-PKER_SDRYG( 24, 56) = 0.285445E-01
-PKER_SDRYG( 24, 57) = 0.261582E-01
-PKER_SDRYG( 24, 58) = 0.245542E-01
-PKER_SDRYG( 24, 59) = 0.236475E-01
-PKER_SDRYG( 24, 60) = 0.233281E-01
-PKER_SDRYG( 24, 61) = 0.235527E-01
-PKER_SDRYG( 24, 62) = 0.242044E-01
-PKER_SDRYG( 24, 63) = 0.251935E-01
-PKER_SDRYG( 24, 64) = 0.264894E-01
-PKER_SDRYG( 24, 65) = 0.279912E-01
-PKER_SDRYG( 24, 66) = 0.296368E-01
-PKER_SDRYG( 24, 67) = 0.313850E-01
-PKER_SDRYG( 24, 68) = 0.331947E-01
-PKER_SDRYG( 24, 69) = 0.350172E-01
-PKER_SDRYG( 24, 70) = 0.368385E-01
-PKER_SDRYG( 24, 71) = 0.386288E-01
-PKER_SDRYG( 24, 72) = 0.403749E-01
-PKER_SDRYG( 24, 73) = 0.420647E-01
-PKER_SDRYG( 24, 74) = 0.436892E-01
-PKER_SDRYG( 24, 75) = 0.452460E-01
-PKER_SDRYG( 24, 76) = 0.467291E-01
-PKER_SDRYG( 24, 77) = 0.481362E-01
-PKER_SDRYG( 24, 78) = 0.494656E-01
-PKER_SDRYG( 24, 79) = 0.507207E-01
-PKER_SDRYG( 24, 80) = 0.519066E-01
-PKER_SDRYG( 25, 1) = 0.312272E+01
-PKER_SDRYG( 25, 2) = 0.293021E+01
-PKER_SDRYG( 25, 3) = 0.274944E+01
-PKER_SDRYG( 25, 4) = 0.257970E+01
-PKER_SDRYG( 25, 5) = 0.242031E+01
-PKER_SDRYG( 25, 6) = 0.227065E+01
-PKER_SDRYG( 25, 7) = 0.213012E+01
-PKER_SDRYG( 25, 8) = 0.199817E+01
-PKER_SDRYG( 25, 9) = 0.187426E+01
-PKER_SDRYG( 25, 10) = 0.175791E+01
-PKER_SDRYG( 25, 11) = 0.164866E+01
-PKER_SDRYG( 25, 12) = 0.154607E+01
-PKER_SDRYG( 25, 13) = 0.144974E+01
-PKER_SDRYG( 25, 14) = 0.135928E+01
-PKER_SDRYG( 25, 15) = 0.127434E+01
-PKER_SDRYG( 25, 16) = 0.119457E+01
-PKER_SDRYG( 25, 17) = 0.111967E+01
-PKER_SDRYG( 25, 18) = 0.104932E+01
-PKER_SDRYG( 25, 19) = 0.983257E+00
-PKER_SDRYG( 25, 20) = 0.921213E+00
-PKER_SDRYG( 25, 21) = 0.862939E+00
-PKER_SDRYG( 25, 22) = 0.808203E+00
-PKER_SDRYG( 25, 23) = 0.756785E+00
-PKER_SDRYG( 25, 24) = 0.708478E+00
-PKER_SDRYG( 25, 25) = 0.663086E+00
-PKER_SDRYG( 25, 26) = 0.620425E+00
-PKER_SDRYG( 25, 27) = 0.580319E+00
-PKER_SDRYG( 25, 28) = 0.542604E+00
-PKER_SDRYG( 25, 29) = 0.507119E+00
-PKER_SDRYG( 25, 30) = 0.473714E+00
-PKER_SDRYG( 25, 31) = 0.442243E+00
-PKER_SDRYG( 25, 32) = 0.412566E+00
-PKER_SDRYG( 25, 33) = 0.384544E+00
-PKER_SDRYG( 25, 34) = 0.358043E+00
-PKER_SDRYG( 25, 35) = 0.332931E+00
-PKER_SDRYG( 25, 36) = 0.309077E+00
-PKER_SDRYG( 25, 37) = 0.286354E+00
-PKER_SDRYG( 25, 38) = 0.264640E+00
-PKER_SDRYG( 25, 39) = 0.243825E+00
-PKER_SDRYG( 25, 40) = 0.223821E+00
-PKER_SDRYG( 25, 41) = 0.204568E+00
-PKER_SDRYG( 25, 42) = 0.186052E+00
-PKER_SDRYG( 25, 43) = 0.168306E+00
-PKER_SDRYG( 25, 44) = 0.151409E+00
-PKER_SDRYG( 25, 45) = 0.135468E+00
-PKER_SDRYG( 25, 46) = 0.120590E+00
-PKER_SDRYG( 25, 47) = 0.106855E+00
-PKER_SDRYG( 25, 48) = 0.943025E-01
-PKER_SDRYG( 25, 49) = 0.829276E-01
-PKER_SDRYG( 25, 50) = 0.726914E-01
-PKER_SDRYG( 25, 51) = 0.635357E-01
-PKER_SDRYG( 25, 52) = 0.554038E-01
-PKER_SDRYG( 25, 53) = 0.482351E-01
-PKER_SDRYG( 25, 54) = 0.419759E-01
-PKER_SDRYG( 25, 55) = 0.365989E-01
-PKER_SDRYG( 25, 56) = 0.320611E-01
-PKER_SDRYG( 25, 57) = 0.283066E-01
-PKER_SDRYG( 25, 58) = 0.253217E-01
-PKER_SDRYG( 25, 59) = 0.230681E-01
-PKER_SDRYG( 25, 60) = 0.214485E-01
-PKER_SDRYG( 25, 61) = 0.204594E-01
-PKER_SDRYG( 25, 62) = 0.199802E-01
-PKER_SDRYG( 25, 63) = 0.199893E-01
-PKER_SDRYG( 25, 64) = 0.203928E-01
-PKER_SDRYG( 25, 65) = 0.211342E-01
-PKER_SDRYG( 25, 66) = 0.221323E-01
-PKER_SDRYG( 25, 67) = 0.233322E-01
-PKER_SDRYG( 25, 68) = 0.246954E-01
-PKER_SDRYG( 25, 69) = 0.261541E-01
-PKER_SDRYG( 25, 70) = 0.276764E-01
-PKER_SDRYG( 25, 71) = 0.292337E-01
-PKER_SDRYG( 25, 72) = 0.307948E-01
-PKER_SDRYG( 25, 73) = 0.323388E-01
-PKER_SDRYG( 25, 74) = 0.338507E-01
-PKER_SDRYG( 25, 75) = 0.353179E-01
-PKER_SDRYG( 25, 76) = 0.367344E-01
-PKER_SDRYG( 25, 77) = 0.380928E-01
-PKER_SDRYG( 25, 78) = 0.393925E-01
-PKER_SDRYG( 25, 79) = 0.406269E-01
-PKER_SDRYG( 25, 80) = 0.417949E-01
-PKER_SDRYG( 26, 1) = 0.312740E+01
-PKER_SDRYG( 26, 2) = 0.293488E+01
-PKER_SDRYG( 26, 3) = 0.275412E+01
-PKER_SDRYG( 26, 4) = 0.258438E+01
-PKER_SDRYG( 26, 5) = 0.242499E+01
-PKER_SDRYG( 26, 6) = 0.227533E+01
-PKER_SDRYG( 26, 7) = 0.213481E+01
-PKER_SDRYG( 26, 8) = 0.200285E+01
-PKER_SDRYG( 26, 9) = 0.187895E+01
-PKER_SDRYG( 26, 10) = 0.176260E+01
-PKER_SDRYG( 26, 11) = 0.165335E+01
-PKER_SDRYG( 26, 12) = 0.155077E+01
-PKER_SDRYG( 26, 13) = 0.145444E+01
-PKER_SDRYG( 26, 14) = 0.136398E+01
-PKER_SDRYG( 26, 15) = 0.127904E+01
-PKER_SDRYG( 26, 16) = 0.119928E+01
-PKER_SDRYG( 26, 17) = 0.112439E+01
-PKER_SDRYG( 26, 18) = 0.105405E+01
-PKER_SDRYG( 26, 19) = 0.987997E+00
-PKER_SDRYG( 26, 20) = 0.925966E+00
-PKER_SDRYG( 26, 21) = 0.867709E+00
-PKER_SDRYG( 26, 22) = 0.812992E+00
-PKER_SDRYG( 26, 23) = 0.761598E+00
-PKER_SDRYG( 26, 24) = 0.713319E+00
-PKER_SDRYG( 26, 25) = 0.667963E+00
-PKER_SDRYG( 26, 26) = 0.625344E+00
-PKER_SDRYG( 26, 27) = 0.585291E+00
-PKER_SDRYG( 26, 28) = 0.547639E+00
-PKER_SDRYG( 26, 29) = 0.512232E+00
-PKER_SDRYG( 26, 30) = 0.478922E+00
-PKER_SDRYG( 26, 31) = 0.447567E+00
-PKER_SDRYG( 26, 32) = 0.418032E+00
-PKER_SDRYG( 26, 33) = 0.390184E+00
-PKER_SDRYG( 26, 34) = 0.363896E+00
-PKER_SDRYG( 26, 35) = 0.339042E+00
-PKER_SDRYG( 26, 36) = 0.315501E+00
-PKER_SDRYG( 26, 37) = 0.293150E+00
-PKER_SDRYG( 26, 38) = 0.271872E+00
-PKER_SDRYG( 26, 39) = 0.251556E+00
-PKER_SDRYG( 26, 40) = 0.232100E+00
-PKER_SDRYG( 26, 41) = 0.213421E+00
-PKER_SDRYG( 26, 42) = 0.195465E+00
-PKER_SDRYG( 26, 43) = 0.178217E+00
-PKER_SDRYG( 26, 44) = 0.161705E+00
-PKER_SDRYG( 26, 45) = 0.145996E+00
-PKER_SDRYG( 26, 46) = 0.131182E+00
-PKER_SDRYG( 26, 47) = 0.117353E+00
-PKER_SDRYG( 26, 48) = 0.104576E+00
-PKER_SDRYG( 26, 49) = 0.928753E-01
-PKER_SDRYG( 26, 50) = 0.822363E-01
-PKER_SDRYG( 26, 51) = 0.726111E-01
-PKER_SDRYG( 26, 52) = 0.639383E-01
-PKER_SDRYG( 26, 53) = 0.561507E-01
-PKER_SDRYG( 26, 54) = 0.491858E-01
-PKER_SDRYG( 26, 55) = 0.429946E-01
-PKER_SDRYG( 26, 56) = 0.375430E-01
-PKER_SDRYG( 26, 57) = 0.327992E-01
-PKER_SDRYG( 26, 58) = 0.287370E-01
-PKER_SDRYG( 26, 59) = 0.253369E-01
-PKER_SDRYG( 26, 60) = 0.225882E-01
-PKER_SDRYG( 26, 61) = 0.204316E-01
-PKER_SDRYG( 26, 62) = 0.188398E-01
-PKER_SDRYG( 26, 63) = 0.177875E-01
-PKER_SDRYG( 26, 64) = 0.172085E-01
-PKER_SDRYG( 26, 65) = 0.170417E-01
-PKER_SDRYG( 26, 66) = 0.172497E-01
-PKER_SDRYG( 26, 67) = 0.177584E-01
-PKER_SDRYG( 26, 68) = 0.185080E-01
-PKER_SDRYG( 26, 69) = 0.194673E-01
-PKER_SDRYG( 26, 70) = 0.205752E-01
-PKER_SDRYG( 26, 71) = 0.217845E-01
-PKER_SDRYG( 26, 72) = 0.230647E-01
-PKER_SDRYG( 26, 73) = 0.243883E-01
-PKER_SDRYG( 26, 74) = 0.257208E-01
-PKER_SDRYG( 26, 75) = 0.270503E-01
-PKER_SDRYG( 26, 76) = 0.283574E-01
-PKER_SDRYG( 26, 77) = 0.296325E-01
-PKER_SDRYG( 26, 78) = 0.308653E-01
-PKER_SDRYG( 26, 79) = 0.320509E-01
-PKER_SDRYG( 26, 80) = 0.331872E-01
-PKER_SDRYG( 27, 1) = 0.313140E+01
-PKER_SDRYG( 27, 2) = 0.293889E+01
-PKER_SDRYG( 27, 3) = 0.275812E+01
-PKER_SDRYG( 27, 4) = 0.258838E+01
-PKER_SDRYG( 27, 5) = 0.242900E+01
-PKER_SDRYG( 27, 6) = 0.227934E+01
-PKER_SDRYG( 27, 7) = 0.213881E+01
-PKER_SDRYG( 27, 8) = 0.200686E+01
-PKER_SDRYG( 27, 9) = 0.188295E+01
-PKER_SDRYG( 27, 10) = 0.176661E+01
-PKER_SDRYG( 27, 11) = 0.165736E+01
-PKER_SDRYG( 27, 12) = 0.155478E+01
-PKER_SDRYG( 27, 13) = 0.145845E+01
-PKER_SDRYG( 27, 14) = 0.136800E+01
-PKER_SDRYG( 27, 15) = 0.128307E+01
-PKER_SDRYG( 27, 16) = 0.120331E+01
-PKER_SDRYG( 27, 17) = 0.112842E+01
-PKER_SDRYG( 27, 18) = 0.105809E+01
-PKER_SDRYG( 27, 19) = 0.992047E+00
-PKER_SDRYG( 27, 20) = 0.930026E+00
-PKER_SDRYG( 27, 21) = 0.871781E+00
-PKER_SDRYG( 27, 22) = 0.817079E+00
-PKER_SDRYG( 27, 23) = 0.765702E+00
-PKER_SDRYG( 27, 24) = 0.717445E+00
-PKER_SDRYG( 27, 25) = 0.672115E+00
-PKER_SDRYG( 27, 26) = 0.629528E+00
-PKER_SDRYG( 27, 27) = 0.589513E+00
-PKER_SDRYG( 27, 28) = 0.551908E+00
-PKER_SDRYG( 27, 29) = 0.516558E+00
-PKER_SDRYG( 27, 30) = 0.483318E+00
-PKER_SDRYG( 27, 31) = 0.452049E+00
-PKER_SDRYG( 27, 32) = 0.422618E+00
-PKER_SDRYG( 27, 33) = 0.394898E+00
-PKER_SDRYG( 27, 34) = 0.368766E+00
-PKER_SDRYG( 27, 35) = 0.344102E+00
-PKER_SDRYG( 27, 36) = 0.320791E+00
-PKER_SDRYG( 27, 37) = 0.298718E+00
-PKER_SDRYG( 27, 38) = 0.277772E+00
-PKER_SDRYG( 27, 39) = 0.257843E+00
-PKER_SDRYG( 27, 40) = 0.238828E+00
-PKER_SDRYG( 27, 41) = 0.220635E+00
-PKER_SDRYG( 27, 42) = 0.203186E+00
-PKER_SDRYG( 27, 43) = 0.186431E+00
-PKER_SDRYG( 27, 44) = 0.170354E+00
-PKER_SDRYG( 27, 45) = 0.154979E+00
-PKER_SDRYG( 27, 46) = 0.140365E+00
-PKER_SDRYG( 27, 47) = 0.126590E+00
-PKER_SDRYG( 27, 48) = 0.113733E+00
-PKER_SDRYG( 27, 49) = 0.101848E+00
-PKER_SDRYG( 27, 50) = 0.909527E-01
-PKER_SDRYG( 27, 51) = 0.810258E-01
-PKER_SDRYG( 27, 52) = 0.720165E-01
-PKER_SDRYG( 27, 53) = 0.638590E-01
-PKER_SDRYG( 27, 54) = 0.564823E-01
-PKER_SDRYG( 27, 55) = 0.498226E-01
-PKER_SDRYG( 27, 56) = 0.438282E-01
-PKER_SDRYG( 27, 57) = 0.384597E-01
-PKER_SDRYG( 27, 58) = 0.336864E-01
-PKER_SDRYG( 27, 59) = 0.294887E-01
-PKER_SDRYG( 27, 60) = 0.258548E-01
-PKER_SDRYG( 27, 61) = 0.227747E-01
-PKER_SDRYG( 27, 62) = 0.202164E-01
-PKER_SDRYG( 27, 63) = 0.181747E-01
-PKER_SDRYG( 27, 64) = 0.166401E-01
-PKER_SDRYG( 27, 65) = 0.155455E-01
-PKER_SDRYG( 27, 66) = 0.148848E-01
-PKER_SDRYG( 27, 67) = 0.145861E-01
-PKER_SDRYG( 27, 68) = 0.146311E-01
-PKER_SDRYG( 27, 69) = 0.149518E-01
-PKER_SDRYG( 27, 70) = 0.155127E-01
-PKER_SDRYG( 27, 71) = 0.162573E-01
-PKER_SDRYG( 27, 72) = 0.171427E-01
-PKER_SDRYG( 27, 73) = 0.181459E-01
-PKER_SDRYG( 27, 74) = 0.192163E-01
-PKER_SDRYG( 27, 75) = 0.203307E-01
-PKER_SDRYG( 27, 76) = 0.214704E-01
-PKER_SDRYG( 27, 77) = 0.226118E-01
-PKER_SDRYG( 27, 78) = 0.237398E-01
-PKER_SDRYG( 27, 79) = 0.248439E-01
-PKER_SDRYG( 27, 80) = 0.259151E-01
-PKER_SDRYG( 28, 1) = 0.313482E+01
-PKER_SDRYG( 28, 2) = 0.294231E+01
-PKER_SDRYG( 28, 3) = 0.276154E+01
-PKER_SDRYG( 28, 4) = 0.259180E+01
-PKER_SDRYG( 28, 5) = 0.243242E+01
-PKER_SDRYG( 28, 6) = 0.228277E+01
-PKER_SDRYG( 28, 7) = 0.214224E+01
-PKER_SDRYG( 28, 8) = 0.201029E+01
-PKER_SDRYG( 28, 9) = 0.188638E+01
-PKER_SDRYG( 28, 10) = 0.177004E+01
-PKER_SDRYG( 28, 11) = 0.166079E+01
-PKER_SDRYG( 28, 12) = 0.155821E+01
-PKER_SDRYG( 28, 13) = 0.146189E+01
-PKER_SDRYG( 28, 14) = 0.137144E+01
-PKER_SDRYG( 28, 15) = 0.128651E+01
-PKER_SDRYG( 28, 16) = 0.120676E+01
-PKER_SDRYG( 28, 17) = 0.113187E+01
-PKER_SDRYG( 28, 18) = 0.106155E+01
-PKER_SDRYG( 28, 19) = 0.995508E+00
-PKER_SDRYG( 28, 20) = 0.933495E+00
-PKER_SDRYG( 28, 21) = 0.875258E+00
-PKER_SDRYG( 28, 22) = 0.820568E+00
-PKER_SDRYG( 28, 23) = 0.769204E+00
-PKER_SDRYG( 28, 24) = 0.720964E+00
-PKER_SDRYG( 28, 25) = 0.675653E+00
-PKER_SDRYG( 28, 26) = 0.633090E+00
-PKER_SDRYG( 28, 27) = 0.593104E+00
-PKER_SDRYG( 28, 28) = 0.555533E+00
-PKER_SDRYG( 28, 29) = 0.520226E+00
-PKER_SDRYG( 28, 30) = 0.487038E+00
-PKER_SDRYG( 28, 31) = 0.455832E+00
-PKER_SDRYG( 28, 32) = 0.426477E+00
-PKER_SDRYG( 28, 33) = 0.398851E+00
-PKER_SDRYG( 28, 34) = 0.372833E+00
-PKER_SDRYG( 28, 35) = 0.348309E+00
-PKER_SDRYG( 28, 36) = 0.325168E+00
-PKER_SDRYG( 28, 37) = 0.303302E+00
-PKER_SDRYG( 28, 38) = 0.282604E+00
-PKER_SDRYG( 28, 39) = 0.262970E+00
-PKER_SDRYG( 28, 40) = 0.244301E+00
-PKER_SDRYG( 28, 41) = 0.226500E+00
-PKER_SDRYG( 28, 42) = 0.209481E+00
-PKER_SDRYG( 28, 43) = 0.193174E+00
-PKER_SDRYG( 28, 44) = 0.177531E+00
-PKER_SDRYG( 28, 45) = 0.162537E+00
-PKER_SDRYG( 28, 46) = 0.148212E+00
-PKER_SDRYG( 28, 47) = 0.134605E+00
-PKER_SDRYG( 28, 48) = 0.121788E+00
-PKER_SDRYG( 28, 49) = 0.109827E+00
-PKER_SDRYG( 28, 50) = 0.987695E-01
-PKER_SDRYG( 28, 51) = 0.886258E-01
-PKER_SDRYG( 28, 52) = 0.793726E-01
-PKER_SDRYG( 28, 53) = 0.709584E-01
-PKER_SDRYG( 28, 54) = 0.633172E-01
-PKER_SDRYG( 28, 55) = 0.563782E-01
-PKER_SDRYG( 28, 56) = 0.500750E-01
-PKER_SDRYG( 28, 57) = 0.443534E-01
-PKER_SDRYG( 28, 58) = 0.391703E-01
-PKER_SDRYG( 28, 59) = 0.344918E-01
-PKER_SDRYG( 28, 60) = 0.302964E-01
-PKER_SDRYG( 28, 61) = 0.265756E-01
-PKER_SDRYG( 28, 62) = 0.233172E-01
-PKER_SDRYG( 28, 63) = 0.205132E-01
-PKER_SDRYG( 28, 64) = 0.181605E-01
-PKER_SDRYG( 28, 65) = 0.162558E-01
-PKER_SDRYG( 28, 66) = 0.147609E-01
-PKER_SDRYG( 28, 67) = 0.136620E-01
-PKER_SDRYG( 28, 68) = 0.129448E-01
-PKER_SDRYG( 28, 69) = 0.125564E-01
-PKER_SDRYG( 28, 70) = 0.124665E-01
-PKER_SDRYG( 28, 71) = 0.126409E-01
-PKER_SDRYG( 28, 72) = 0.130274E-01
-PKER_SDRYG( 28, 73) = 0.135904E-01
-PKER_SDRYG( 28, 74) = 0.142998E-01
-PKER_SDRYG( 28, 75) = 0.151150E-01
-PKER_SDRYG( 28, 76) = 0.160038E-01
-PKER_SDRYG( 28, 77) = 0.169418E-01
-PKER_SDRYG( 28, 78) = 0.179108E-01
-PKER_SDRYG( 28, 79) = 0.188859E-01
-PKER_SDRYG( 28, 80) = 0.198573E-01
-PKER_SDRYG( 29, 1) = 0.313775E+01
-PKER_SDRYG( 29, 2) = 0.294524E+01
-PKER_SDRYG( 29, 3) = 0.276447E+01
-PKER_SDRYG( 29, 4) = 0.259474E+01
-PKER_SDRYG( 29, 5) = 0.243535E+01
-PKER_SDRYG( 29, 6) = 0.228570E+01
-PKER_SDRYG( 29, 7) = 0.214517E+01
-PKER_SDRYG( 29, 8) = 0.201322E+01
-PKER_SDRYG( 29, 9) = 0.188932E+01
-PKER_SDRYG( 29, 10) = 0.177297E+01
-PKER_SDRYG( 29, 11) = 0.166373E+01
-PKER_SDRYG( 29, 12) = 0.156115E+01
-PKER_SDRYG( 29, 13) = 0.146483E+01
-PKER_SDRYG( 29, 14) = 0.137438E+01
-PKER_SDRYG( 29, 15) = 0.128945E+01
-PKER_SDRYG( 29, 16) = 0.120970E+01
-PKER_SDRYG( 29, 17) = 0.113482E+01
-PKER_SDRYG( 29, 18) = 0.106450E+01
-PKER_SDRYG( 29, 19) = 0.998466E+00
-PKER_SDRYG( 29, 20) = 0.936458E+00
-PKER_SDRYG( 29, 21) = 0.878229E+00
-PKER_SDRYG( 29, 22) = 0.823547E+00
-PKER_SDRYG( 29, 23) = 0.772194E+00
-PKER_SDRYG( 29, 24) = 0.723965E+00
-PKER_SDRYG( 29, 25) = 0.678669E+00
-PKER_SDRYG( 29, 26) = 0.636124E+00
-PKER_SDRYG( 29, 27) = 0.596159E+00
-PKER_SDRYG( 29, 28) = 0.558615E+00
-PKER_SDRYG( 29, 29) = 0.523340E+00
-PKER_SDRYG( 29, 30) = 0.490190E+00
-PKER_SDRYG( 29, 31) = 0.459030E+00
-PKER_SDRYG( 29, 32) = 0.429733E+00
-PKER_SDRYG( 29, 33) = 0.402176E+00
-PKER_SDRYG( 29, 34) = 0.376242E+00
-PKER_SDRYG( 29, 35) = 0.351822E+00
-PKER_SDRYG( 29, 36) = 0.328807E+00
-PKER_SDRYG( 29, 37) = 0.307093E+00
-PKER_SDRYG( 29, 38) = 0.286580E+00
-PKER_SDRYG( 29, 39) = 0.267168E+00
-PKER_SDRYG( 29, 40) = 0.248763E+00
-PKER_SDRYG( 29, 41) = 0.231269E+00
-PKER_SDRYG( 29, 42) = 0.214600E+00
-PKER_SDRYG( 29, 43) = 0.198675E+00
-PKER_SDRYG( 29, 44) = 0.183429E+00
-PKER_SDRYG( 29, 45) = 0.168818E+00
-PKER_SDRYG( 29, 46) = 0.154826E+00
-PKER_SDRYG( 29, 47) = 0.141470E+00
-PKER_SDRYG( 29, 48) = 0.128793E+00
-PKER_SDRYG( 29, 49) = 0.116859E+00
-PKER_SDRYG( 29, 50) = 0.105725E+00
-PKER_SDRYG( 29, 51) = 0.954304E-01
-PKER_SDRYG( 29, 52) = 0.859836E-01
-PKER_SDRYG( 29, 53) = 0.773596E-01
-PKER_SDRYG( 29, 54) = 0.695082E-01
-PKER_SDRYG( 29, 55) = 0.623650E-01
-PKER_SDRYG( 29, 56) = 0.558611E-01
-PKER_SDRYG( 29, 57) = 0.499316E-01
-PKER_SDRYG( 29, 58) = 0.445208E-01
-PKER_SDRYG( 29, 59) = 0.395814E-01
-PKER_SDRYG( 29, 60) = 0.350788E-01
-PKER_SDRYG( 29, 61) = 0.309897E-01
-PKER_SDRYG( 29, 62) = 0.272977E-01
-PKER_SDRYG( 29, 63) = 0.239931E-01
-PKER_SDRYG( 29, 64) = 0.210731E-01
-PKER_SDRYG( 29, 65) = 0.185324E-01
-PKER_SDRYG( 29, 66) = 0.163751E-01
-PKER_SDRYG( 29, 67) = 0.145805E-01
-PKER_SDRYG( 29, 68) = 0.131445E-01
-PKER_SDRYG( 29, 69) = 0.120720E-01
-PKER_SDRYG( 29, 70) = 0.113116E-01
-PKER_SDRYG( 29, 71) = 0.108560E-01
-PKER_SDRYG( 29, 72) = 0.106640E-01
-PKER_SDRYG( 29, 73) = 0.107167E-01
-PKER_SDRYG( 29, 74) = 0.109632E-01
-PKER_SDRYG( 29, 75) = 0.113846E-01
-PKER_SDRYG( 29, 76) = 0.119375E-01
-PKER_SDRYG( 29, 77) = 0.125899E-01
-PKER_SDRYG( 29, 78) = 0.133280E-01
-PKER_SDRYG( 29, 79) = 0.141136E-01
-PKER_SDRYG( 29, 80) = 0.149298E-01
-PKER_SDRYG( 30, 1) = 0.314026E+01
-PKER_SDRYG( 30, 2) = 0.294775E+01
-PKER_SDRYG( 30, 3) = 0.276698E+01
-PKER_SDRYG( 30, 4) = 0.259724E+01
-PKER_SDRYG( 30, 5) = 0.243786E+01
-PKER_SDRYG( 30, 6) = 0.228821E+01
-PKER_SDRYG( 30, 7) = 0.214768E+01
-PKER_SDRYG( 30, 8) = 0.201573E+01
-PKER_SDRYG( 30, 9) = 0.189183E+01
-PKER_SDRYG( 30, 10) = 0.177549E+01
-PKER_SDRYG( 30, 11) = 0.166624E+01
-PKER_SDRYG( 30, 12) = 0.156366E+01
-PKER_SDRYG( 30, 13) = 0.146734E+01
-PKER_SDRYG( 30, 14) = 0.137690E+01
-PKER_SDRYG( 30, 15) = 0.129197E+01
-PKER_SDRYG( 30, 16) = 0.121222E+01
-PKER_SDRYG( 30, 17) = 0.113734E+01
-PKER_SDRYG( 30, 18) = 0.106702E+01
-PKER_SDRYG( 30, 19) = 0.100099E+01
-PKER_SDRYG( 30, 20) = 0.938991E+00
-PKER_SDRYG( 30, 21) = 0.880767E+00
-PKER_SDRYG( 30, 22) = 0.826092E+00
-PKER_SDRYG( 30, 23) = 0.774746E+00
-PKER_SDRYG( 30, 24) = 0.726527E+00
-PKER_SDRYG( 30, 25) = 0.681242E+00
-PKER_SDRYG( 30, 26) = 0.638710E+00
-PKER_SDRYG( 30, 27) = 0.598762E+00
-PKER_SDRYG( 30, 28) = 0.561237E+00
-PKER_SDRYG( 30, 29) = 0.525986E+00
-PKER_SDRYG( 30, 30) = 0.492864E+00
-PKER_SDRYG( 30, 31) = 0.461740E+00
-PKER_SDRYG( 30, 32) = 0.432485E+00
-PKER_SDRYG( 30, 33) = 0.404979E+00
-PKER_SDRYG( 30, 34) = 0.379109E+00
-PKER_SDRYG( 30, 35) = 0.354764E+00
-PKER_SDRYG( 30, 36) = 0.331842E+00
-PKER_SDRYG( 30, 37) = 0.310241E+00
-PKER_SDRYG( 30, 38) = 0.289866E+00
-PKER_SDRYG( 30, 39) = 0.270620E+00
-PKER_SDRYG( 30, 40) = 0.252414E+00
-PKER_SDRYG( 30, 41) = 0.235157E+00
-PKER_SDRYG( 30, 42) = 0.218763E+00
-PKER_SDRYG( 30, 43) = 0.203150E+00
-PKER_SDRYG( 30, 44) = 0.188244E+00
-PKER_SDRYG( 30, 45) = 0.173985E+00
-PKER_SDRYG( 30, 46) = 0.160331E+00
-PKER_SDRYG( 30, 47) = 0.147268E+00
-PKER_SDRYG( 30, 48) = 0.134807E+00
-PKER_SDRYG( 30, 49) = 0.122990E+00
-PKER_SDRYG( 30, 50) = 0.111870E+00
-PKER_SDRYG( 30, 51) = 0.101498E+00
-PKER_SDRYG( 30, 52) = 0.919089E-01
-PKER_SDRYG( 30, 53) = 0.831067E-01
-PKER_SDRYG( 30, 54) = 0.750668E-01
-PKER_SDRYG( 30, 55) = 0.677413E-01
-PKER_SDRYG( 30, 56) = 0.610688E-01
-PKER_SDRYG( 30, 57) = 0.549841E-01
-PKER_SDRYG( 30, 58) = 0.494242E-01
-PKER_SDRYG( 30, 59) = 0.443338E-01
-PKER_SDRYG( 30, 60) = 0.396667E-01
-PKER_SDRYG( 30, 61) = 0.353851E-01
-PKER_SDRYG( 30, 62) = 0.314617E-01
-PKER_SDRYG( 30, 63) = 0.278788E-01
-PKER_SDRYG( 30, 64) = 0.246216E-01
-PKER_SDRYG( 30, 65) = 0.216840E-01
-PKER_SDRYG( 30, 66) = 0.190676E-01
-PKER_SDRYG( 30, 67) = 0.167678E-01
-PKER_SDRYG( 30, 68) = 0.147843E-01
-PKER_SDRYG( 30, 69) = 0.131194E-01
-PKER_SDRYG( 30, 70) = 0.117708E-01
-PKER_SDRYG( 30, 71) = 0.107143E-01
-PKER_SDRYG( 30, 72) = 0.994008E-02
-PKER_SDRYG( 30, 73) = 0.944116E-02
-PKER_SDRYG( 30, 74) = 0.917473E-02
-PKER_SDRYG( 30, 75) = 0.912540E-02
-PKER_SDRYG( 30, 76) = 0.926519E-02
-PKER_SDRYG( 30, 77) = 0.955670E-02
-PKER_SDRYG( 30, 78) = 0.997708E-02
-PKER_SDRYG( 30, 79) = 0.105008E-01
-PKER_SDRYG( 30, 80) = 0.111005E-01
-PKER_SDRYG( 31, 1) = 0.314241E+01
-PKER_SDRYG( 31, 2) = 0.294989E+01
-PKER_SDRYG( 31, 3) = 0.276913E+01
-PKER_SDRYG( 31, 4) = 0.259939E+01
-PKER_SDRYG( 31, 5) = 0.244001E+01
-PKER_SDRYG( 31, 6) = 0.229035E+01
-PKER_SDRYG( 31, 7) = 0.214983E+01
-PKER_SDRYG( 31, 8) = 0.201788E+01
-PKER_SDRYG( 31, 9) = 0.189397E+01
-PKER_SDRYG( 31, 10) = 0.177763E+01
-PKER_SDRYG( 31, 11) = 0.166839E+01
-PKER_SDRYG( 31, 12) = 0.156581E+01
-PKER_SDRYG( 31, 13) = 0.146949E+01
-PKER_SDRYG( 31, 14) = 0.137905E+01
-PKER_SDRYG( 31, 15) = 0.129412E+01
-PKER_SDRYG( 31, 16) = 0.121438E+01
-PKER_SDRYG( 31, 17) = 0.113950E+01
-PKER_SDRYG( 31, 18) = 0.106918E+01
-PKER_SDRYG( 31, 19) = 0.100316E+01
-PKER_SDRYG( 31, 20) = 0.941157E+00
-PKER_SDRYG( 31, 21) = 0.882937E+00
-PKER_SDRYG( 31, 22) = 0.828266E+00
-PKER_SDRYG( 31, 23) = 0.776926E+00
-PKER_SDRYG( 31, 24) = 0.728714E+00
-PKER_SDRYG( 31, 25) = 0.683437E+00
-PKER_SDRYG( 31, 26) = 0.640916E+00
-PKER_SDRYG( 31, 27) = 0.600980E+00
-PKER_SDRYG( 31, 28) = 0.563470E+00
-PKER_SDRYG( 31, 29) = 0.528236E+00
-PKER_SDRYG( 31, 30) = 0.495137E+00
-PKER_SDRYG( 31, 31) = 0.464039E+00
-PKER_SDRYG( 31, 32) = 0.434815E+00
-PKER_SDRYG( 31, 33) = 0.407348E+00
-PKER_SDRYG( 31, 34) = 0.381525E+00
-PKER_SDRYG( 31, 35) = 0.357237E+00
-PKER_SDRYG( 31, 36) = 0.334384E+00
-PKER_SDRYG( 31, 37) = 0.312867E+00
-PKER_SDRYG( 31, 38) = 0.292593E+00
-PKER_SDRYG( 31, 39) = 0.273472E+00
-PKER_SDRYG( 31, 40) = 0.255415E+00
-PKER_SDRYG( 31, 41) = 0.238337E+00
-PKER_SDRYG( 31, 42) = 0.222155E+00
-PKER_SDRYG( 31, 43) = 0.206789E+00
-PKER_SDRYG( 31, 44) = 0.192162E+00
-PKER_SDRYG( 31, 45) = 0.178206E+00
-PKER_SDRYG( 31, 46) = 0.164865E+00
-PKER_SDRYG( 31, 47) = 0.152101E+00
-PKER_SDRYG( 31, 48) = 0.139898E+00
-PKER_SDRYG( 31, 49) = 0.128268E+00
-PKER_SDRYG( 31, 50) = 0.117245E+00
-PKER_SDRYG( 31, 51) = 0.106877E+00
-PKER_SDRYG( 31, 52) = 0.972093E-01
-PKER_SDRYG( 31, 53) = 0.882710E-01
-PKER_SDRYG( 31, 54) = 0.800646E-01
-PKER_SDRYG( 31, 55) = 0.725658E-01
-PKER_SDRYG( 31, 56) = 0.657293E-01
-PKER_SDRYG( 31, 57) = 0.594973E-01
-PKER_SDRYG( 31, 58) = 0.538082E-01
-PKER_SDRYG( 31, 59) = 0.486029E-01
-PKER_SDRYG( 31, 60) = 0.438281E-01
-PKER_SDRYG( 31, 61) = 0.394382E-01
-PKER_SDRYG( 31, 62) = 0.353958E-01
-PKER_SDRYG( 31, 63) = 0.316723E-01
-PKER_SDRYG( 31, 64) = 0.282443E-01
-PKER_SDRYG( 31, 65) = 0.250971E-01
-PKER_SDRYG( 31, 66) = 0.222220E-01
-PKER_SDRYG( 31, 67) = 0.196134E-01
-PKER_SDRYG( 31, 68) = 0.172700E-01
-PKER_SDRYG( 31, 69) = 0.151950E-01
-PKER_SDRYG( 31, 70) = 0.133842E-01
-PKER_SDRYG( 31, 71) = 0.118468E-01
-PKER_SDRYG( 31, 72) = 0.105682E-01
-PKER_SDRYG( 31, 73) = 0.954383E-02
-PKER_SDRYG( 31, 74) = 0.878311E-02
-PKER_SDRYG( 31, 75) = 0.824730E-02
-PKER_SDRYG( 31, 76) = 0.792838E-02
-PKER_SDRYG( 31, 77) = 0.780258E-02
-PKER_SDRYG( 31, 78) = 0.785165E-02
-PKER_SDRYG( 31, 79) = 0.803984E-02
-PKER_SDRYG( 31, 80) = 0.835401E-02
-PKER_SDRYG( 32, 1) = 0.314424E+01
-PKER_SDRYG( 32, 2) = 0.295173E+01
-PKER_SDRYG( 32, 3) = 0.277096E+01
-PKER_SDRYG( 32, 4) = 0.260122E+01
-PKER_SDRYG( 32, 5) = 0.244184E+01
-PKER_SDRYG( 32, 6) = 0.229219E+01
-PKER_SDRYG( 32, 7) = 0.215166E+01
-PKER_SDRYG( 32, 8) = 0.201971E+01
-PKER_SDRYG( 32, 9) = 0.189581E+01
-PKER_SDRYG( 32, 10) = 0.177947E+01
-PKER_SDRYG( 32, 11) = 0.167023E+01
-PKER_SDRYG( 32, 12) = 0.156765E+01
-PKER_SDRYG( 32, 13) = 0.147133E+01
-PKER_SDRYG( 32, 14) = 0.138089E+01
-PKER_SDRYG( 32, 15) = 0.129596E+01
-PKER_SDRYG( 32, 16) = 0.121622E+01
-PKER_SDRYG( 32, 17) = 0.114134E+01
-PKER_SDRYG( 32, 18) = 0.107103E+01
-PKER_SDRYG( 32, 19) = 0.100500E+01
-PKER_SDRYG( 32, 20) = 0.943008E+00
-PKER_SDRYG( 32, 21) = 0.884791E+00
-PKER_SDRYG( 32, 22) = 0.830124E+00
-PKER_SDRYG( 32, 23) = 0.778789E+00
-PKER_SDRYG( 32, 24) = 0.730582E+00
-PKER_SDRYG( 32, 25) = 0.685312E+00
-PKER_SDRYG( 32, 26) = 0.642798E+00
-PKER_SDRYG( 32, 27) = 0.602872E+00
-PKER_SDRYG( 32, 28) = 0.565373E+00
-PKER_SDRYG( 32, 29) = 0.530153E+00
-PKER_SDRYG( 32, 30) = 0.497070E+00
-PKER_SDRYG( 32, 31) = 0.465991E+00
-PKER_SDRYG( 32, 32) = 0.436792E+00
-PKER_SDRYG( 32, 33) = 0.409354E+00
-PKER_SDRYG( 32, 34) = 0.383565E+00
-PKER_SDRYG( 32, 35) = 0.359320E+00
-PKER_SDRYG( 32, 36) = 0.336518E+00
-PKER_SDRYG( 32, 37) = 0.315064E+00
-PKER_SDRYG( 32, 38) = 0.294866E+00
-PKER_SDRYG( 32, 39) = 0.275837E+00
-PKER_SDRYG( 32, 40) = 0.257892E+00
-PKER_SDRYG( 32, 41) = 0.240949E+00
-PKER_SDRYG( 32, 42) = 0.224929E+00
-PKER_SDRYG( 32, 43) = 0.209753E+00
-PKER_SDRYG( 32, 44) = 0.195347E+00
-PKER_SDRYG( 32, 45) = 0.181641E+00
-PKER_SDRYG( 32, 46) = 0.168572E+00
-PKER_SDRYG( 32, 47) = 0.156087E+00
-PKER_SDRYG( 32, 48) = 0.144150E+00
-PKER_SDRYG( 32, 49) = 0.132746E+00
-PKER_SDRYG( 32, 50) = 0.121885E+00
-PKER_SDRYG( 32, 51) = 0.111598E+00
-PKER_SDRYG( 32, 52) = 0.101925E+00
-PKER_SDRYG( 32, 53) = 0.929079E-01
-PKER_SDRYG( 32, 54) = 0.845713E-01
-PKER_SDRYG( 32, 55) = 0.769159E-01
-PKER_SDRYG( 32, 56) = 0.699183E-01
-PKER_SDRYG( 32, 57) = 0.635355E-01
-PKER_SDRYG( 32, 58) = 0.577136E-01
-PKER_SDRYG( 32, 59) = 0.523950E-01
-PKER_SDRYG( 32, 60) = 0.475243E-01
-PKER_SDRYG( 32, 61) = 0.430512E-01
-PKER_SDRYG( 32, 62) = 0.389325E-01
-PKER_SDRYG( 32, 63) = 0.351313E-01
-PKER_SDRYG( 32, 64) = 0.316183E-01
-PKER_SDRYG( 32, 65) = 0.283700E-01
-PKER_SDRYG( 32, 66) = 0.253685E-01
-PKER_SDRYG( 32, 67) = 0.226014E-01
-PKER_SDRYG( 32, 68) = 0.200616E-01
-PKER_SDRYG( 32, 69) = 0.177438E-01
-PKER_SDRYG( 32, 70) = 0.156482E-01
-PKER_SDRYG( 32, 71) = 0.137766E-01
-PKER_SDRYG( 32, 72) = 0.121294E-01
-PKER_SDRYG( 32, 73) = 0.107083E-01
-PKER_SDRYG( 32, 74) = 0.951507E-02
-PKER_SDRYG( 32, 75) = 0.854960E-02
-PKER_SDRYG( 32, 76) = 0.779589E-02
-PKER_SDRYG( 32, 77) = 0.724397E-02
-PKER_SDRYG( 32, 78) = 0.689318E-02
-PKER_SDRYG( 32, 79) = 0.670835E-02
-PKER_SDRYG( 32, 80) = 0.668173E-02
-PKER_SDRYG( 33, 1) = 0.314581E+01
-PKER_SDRYG( 33, 2) = 0.295330E+01
-PKER_SDRYG( 33, 3) = 0.277253E+01
-PKER_SDRYG( 33, 4) = 0.260280E+01
-PKER_SDRYG( 33, 5) = 0.244341E+01
-PKER_SDRYG( 33, 6) = 0.229376E+01
-PKER_SDRYG( 33, 7) = 0.215323E+01
-PKER_SDRYG( 33, 8) = 0.202128E+01
-PKER_SDRYG( 33, 9) = 0.189738E+01
-PKER_SDRYG( 33, 10) = 0.178104E+01
-PKER_SDRYG( 33, 11) = 0.167180E+01
-PKER_SDRYG( 33, 12) = 0.156922E+01
-PKER_SDRYG( 33, 13) = 0.147291E+01
-PKER_SDRYG( 33, 14) = 0.138246E+01
-PKER_SDRYG( 33, 15) = 0.129754E+01
-PKER_SDRYG( 33, 16) = 0.121780E+01
-PKER_SDRYG( 33, 17) = 0.114292E+01
-PKER_SDRYG( 33, 18) = 0.107261E+01
-PKER_SDRYG( 33, 19) = 0.100659E+01
-PKER_SDRYG( 33, 20) = 0.944590E+00
-PKER_SDRYG( 33, 21) = 0.886376E+00
-PKER_SDRYG( 33, 22) = 0.831711E+00
-PKER_SDRYG( 33, 23) = 0.780380E+00
-PKER_SDRYG( 33, 24) = 0.732177E+00
-PKER_SDRYG( 33, 25) = 0.686912E+00
-PKER_SDRYG( 33, 26) = 0.644404E+00
-PKER_SDRYG( 33, 27) = 0.604485E+00
-PKER_SDRYG( 33, 28) = 0.566995E+00
-PKER_SDRYG( 33, 29) = 0.531785E+00
-PKER_SDRYG( 33, 30) = 0.498715E+00
-PKER_SDRYG( 33, 31) = 0.467651E+00
-PKER_SDRYG( 33, 32) = 0.438470E+00
-PKER_SDRYG( 33, 33) = 0.411054E+00
-PKER_SDRYG( 33, 34) = 0.385291E+00
-PKER_SDRYG( 33, 35) = 0.361078E+00
-PKER_SDRYG( 33, 36) = 0.338315E+00
-PKER_SDRYG( 33, 37) = 0.316908E+00
-PKER_SDRYG( 33, 38) = 0.296767E+00
-PKER_SDRYG( 33, 39) = 0.277807E+00
-PKER_SDRYG( 33, 40) = 0.259946E+00
-PKER_SDRYG( 33, 41) = 0.243104E+00
-PKER_SDRYG( 33, 42) = 0.227205E+00
-PKER_SDRYG( 33, 43) = 0.212175E+00
-PKER_SDRYG( 33, 44) = 0.197941E+00
-PKER_SDRYG( 33, 45) = 0.184435E+00
-PKER_SDRYG( 33, 46) = 0.171590E+00
-PKER_SDRYG( 33, 47) = 0.159348E+00
-PKER_SDRYG( 33, 48) = 0.147660E+00
-PKER_SDRYG( 33, 49) = 0.136493E+00
-PKER_SDRYG( 33, 50) = 0.125832E+00
-PKER_SDRYG( 33, 51) = 0.115684E+00
-PKER_SDRYG( 33, 52) = 0.106078E+00
-PKER_SDRYG( 33, 53) = 0.970492E-01
-PKER_SDRYG( 33, 54) = 0.886343E-01
-PKER_SDRYG( 33, 55) = 0.808544E-01
-PKER_SDRYG( 33, 56) = 0.737092E-01
-PKER_SDRYG( 33, 57) = 0.671759E-01
-PKER_SDRYG( 33, 58) = 0.612140E-01
-PKER_SDRYG( 33, 59) = 0.557733E-01
-PKER_SDRYG( 33, 60) = 0.508001E-01
-PKER_SDRYG( 33, 61) = 0.462428E-01
-PKER_SDRYG( 33, 62) = 0.420544E-01
-PKER_SDRYG( 33, 63) = 0.381941E-01
-PKER_SDRYG( 33, 64) = 0.346270E-01
-PKER_SDRYG( 33, 65) = 0.313244E-01
-PKER_SDRYG( 33, 66) = 0.282623E-01
-PKER_SDRYG( 33, 67) = 0.254222E-01
-PKER_SDRYG( 33, 68) = 0.227902E-01
-PKER_SDRYG( 33, 69) = 0.203548E-01
-PKER_SDRYG( 33, 70) = 0.181098E-01
-PKER_SDRYG( 33, 71) = 0.160530E-01
-PKER_SDRYG( 33, 72) = 0.141818E-01
-PKER_SDRYG( 33, 73) = 0.124982E-01
-PKER_SDRYG( 33, 74) = 0.110068E-01
-PKER_SDRYG( 33, 75) = 0.970368E-02
-PKER_SDRYG( 33, 76) = 0.859751E-02
-PKER_SDRYG( 33, 77) = 0.767929E-02
-PKER_SDRYG( 33, 78) = 0.694381E-02
-PKER_SDRYG( 33, 79) = 0.639919E-02
-PKER_SDRYG( 33, 80) = 0.601899E-02
-PKER_SDRYG( 34, 1) = 0.314716E+01
-PKER_SDRYG( 34, 2) = 0.295464E+01
-PKER_SDRYG( 34, 3) = 0.277388E+01
-PKER_SDRYG( 34, 4) = 0.260414E+01
-PKER_SDRYG( 34, 5) = 0.244476E+01
-PKER_SDRYG( 34, 6) = 0.229510E+01
-PKER_SDRYG( 34, 7) = 0.215458E+01
-PKER_SDRYG( 34, 8) = 0.202263E+01
-PKER_SDRYG( 34, 9) = 0.189873E+01
-PKER_SDRYG( 34, 10) = 0.178239E+01
-PKER_SDRYG( 34, 11) = 0.167315E+01
-PKER_SDRYG( 34, 12) = 0.157057E+01
-PKER_SDRYG( 34, 13) = 0.147425E+01
-PKER_SDRYG( 34, 14) = 0.138381E+01
-PKER_SDRYG( 34, 15) = 0.129889E+01
-PKER_SDRYG( 34, 16) = 0.121914E+01
-PKER_SDRYG( 34, 17) = 0.114427E+01
-PKER_SDRYG( 34, 18) = 0.107396E+01
-PKER_SDRYG( 34, 19) = 0.100794E+01
-PKER_SDRYG( 34, 20) = 0.945943E+00
-PKER_SDRYG( 34, 21) = 0.887731E+00
-PKER_SDRYG( 34, 22) = 0.833069E+00
-PKER_SDRYG( 34, 23) = 0.781740E+00
-PKER_SDRYG( 34, 24) = 0.733540E+00
-PKER_SDRYG( 34, 25) = 0.688279E+00
-PKER_SDRYG( 34, 26) = 0.645776E+00
-PKER_SDRYG( 34, 27) = 0.605862E+00
-PKER_SDRYG( 34, 28) = 0.568379E+00
-PKER_SDRYG( 34, 29) = 0.533177E+00
-PKER_SDRYG( 34, 30) = 0.500116E+00
-PKER_SDRYG( 34, 31) = 0.469064E+00
-PKER_SDRYG( 34, 32) = 0.439896E+00
-PKER_SDRYG( 34, 33) = 0.412496E+00
-PKER_SDRYG( 34, 34) = 0.386754E+00
-PKER_SDRYG( 34, 35) = 0.362565E+00
-PKER_SDRYG( 34, 36) = 0.339831E+00
-PKER_SDRYG( 34, 37) = 0.318459E+00
-PKER_SDRYG( 34, 38) = 0.298361E+00
-PKER_SDRYG( 34, 39) = 0.279453E+00
-PKER_SDRYG( 34, 40) = 0.261654E+00
-PKER_SDRYG( 34, 41) = 0.244888E+00
-PKER_SDRYG( 34, 42) = 0.229081E+00
-PKER_SDRYG( 34, 43) = 0.214161E+00
-PKER_SDRYG( 34, 44) = 0.200059E+00
-PKER_SDRYG( 34, 45) = 0.186708E+00
-PKER_SDRYG( 34, 46) = 0.174043E+00
-PKER_SDRYG( 34, 47) = 0.162003E+00
-PKER_SDRYG( 34, 48) = 0.150534E+00
-PKER_SDRYG( 34, 49) = 0.139590E+00
-PKER_SDRYG( 34, 50) = 0.129139E+00
-PKER_SDRYG( 34, 51) = 0.119169E+00
-PKER_SDRYG( 34, 52) = 0.109684E+00
-PKER_SDRYG( 34, 53) = 0.100710E+00
-PKER_SDRYG( 34, 54) = 0.922778E-01
-PKER_SDRYG( 34, 55) = 0.844206E-01
-PKER_SDRYG( 34, 56) = 0.771566E-01
-PKER_SDRYG( 34, 57) = 0.704841E-01
-PKER_SDRYG( 34, 58) = 0.643812E-01
-PKER_SDRYG( 34, 59) = 0.588101E-01
-PKER_SDRYG( 34, 60) = 0.537237E-01
-PKER_SDRYG( 34, 61) = 0.490721E-01
-PKER_SDRYG( 34, 62) = 0.448073E-01
-PKER_SDRYG( 34, 63) = 0.408857E-01
-PKER_SDRYG( 34, 64) = 0.372690E-01
-PKER_SDRYG( 34, 65) = 0.339245E-01
-PKER_SDRYG( 34, 66) = 0.308247E-01
-PKER_SDRYG( 34, 67) = 0.279467E-01
-PKER_SDRYG( 34, 68) = 0.252716E-01
-PKER_SDRYG( 34, 69) = 0.227841E-01
-PKER_SDRYG( 34, 70) = 0.204724E-01
-PKER_SDRYG( 34, 71) = 0.183278E-01
-PKER_SDRYG( 34, 72) = 0.163442E-01
-PKER_SDRYG( 34, 73) = 0.145187E-01
-PKER_SDRYG( 34, 74) = 0.128499E-01
-PKER_SDRYG( 34, 75) = 0.113397E-01
-PKER_SDRYG( 34, 76) = 0.998905E-02
-PKER_SDRYG( 34, 77) = 0.880025E-02
-PKER_SDRYG( 34, 78) = 0.777536E-02
-PKER_SDRYG( 34, 79) = 0.691458E-02
-PKER_SDRYG( 34, 80) = 0.621944E-02
-PKER_SDRYG( 35, 1) = 0.314831E+01
-PKER_SDRYG( 35, 2) = 0.295579E+01
-PKER_SDRYG( 35, 3) = 0.277503E+01
-PKER_SDRYG( 35, 4) = 0.260529E+01
-PKER_SDRYG( 35, 5) = 0.244591E+01
-PKER_SDRYG( 35, 6) = 0.229625E+01
-PKER_SDRYG( 35, 7) = 0.215573E+01
-PKER_SDRYG( 35, 8) = 0.202378E+01
-PKER_SDRYG( 35, 9) = 0.189988E+01
-PKER_SDRYG( 35, 10) = 0.178354E+01
-PKER_SDRYG( 35, 11) = 0.167430E+01
-PKER_SDRYG( 35, 12) = 0.157172E+01
-PKER_SDRYG( 35, 13) = 0.147540E+01
-PKER_SDRYG( 35, 14) = 0.138496E+01
-PKER_SDRYG( 35, 15) = 0.130004E+01
-PKER_SDRYG( 35, 16) = 0.122030E+01
-PKER_SDRYG( 35, 17) = 0.114542E+01
-PKER_SDRYG( 35, 18) = 0.107511E+01
-PKER_SDRYG( 35, 19) = 0.100909E+01
-PKER_SDRYG( 35, 20) = 0.947100E+00
-PKER_SDRYG( 35, 21) = 0.888890E+00
-PKER_SDRYG( 35, 22) = 0.834229E+00
-PKER_SDRYG( 35, 23) = 0.782902E+00
-PKER_SDRYG( 35, 24) = 0.734705E+00
-PKER_SDRYG( 35, 25) = 0.689447E+00
-PKER_SDRYG( 35, 26) = 0.646947E+00
-PKER_SDRYG( 35, 27) = 0.607038E+00
-PKER_SDRYG( 35, 28) = 0.569560E+00
-PKER_SDRYG( 35, 29) = 0.534364E+00
-PKER_SDRYG( 35, 30) = 0.501310E+00
-PKER_SDRYG( 35, 31) = 0.470267E+00
-PKER_SDRYG( 35, 32) = 0.441110E+00
-PKER_SDRYG( 35, 33) = 0.413722E+00
-PKER_SDRYG( 35, 34) = 0.387995E+00
-PKER_SDRYG( 35, 35) = 0.363825E+00
-PKER_SDRYG( 35, 36) = 0.341113E+00
-PKER_SDRYG( 35, 37) = 0.319768E+00
-PKER_SDRYG( 35, 38) = 0.299702E+00
-PKER_SDRYG( 35, 39) = 0.280832E+00
-PKER_SDRYG( 35, 40) = 0.263081E+00
-PKER_SDRYG( 35, 41) = 0.246372E+00
-PKER_SDRYG( 35, 42) = 0.230634E+00
-PKER_SDRYG( 35, 43) = 0.215798E+00
-PKER_SDRYG( 35, 44) = 0.201796E+00
-PKER_SDRYG( 35, 45) = 0.188564E+00
-PKER_SDRYG( 35, 46) = 0.176039E+00
-PKER_SDRYG( 35, 47) = 0.164162E+00
-PKER_SDRYG( 35, 48) = 0.152875E+00
-PKER_SDRYG( 35, 49) = 0.142127E+00
-PKER_SDRYG( 35, 50) = 0.131877E+00
-PKER_SDRYG( 35, 51) = 0.122094E+00
-PKER_SDRYG( 35, 52) = 0.112767E+00
-PKER_SDRYG( 35, 53) = 0.103898E+00
-PKER_SDRYG( 35, 54) = 0.955102E-01
-PKER_SDRYG( 35, 55) = 0.876322E-01
-PKER_SDRYG( 35, 56) = 0.802923E-01
-PKER_SDRYG( 35, 57) = 0.735065E-01
-PKER_SDRYG( 35, 58) = 0.672725E-01
-PKER_SDRYG( 35, 59) = 0.615692E-01
-PKER_SDRYG( 35, 60) = 0.563610E-01
-PKER_SDRYG( 35, 61) = 0.516040E-01
-PKER_SDRYG( 35, 62) = 0.472519E-01
-PKER_SDRYG( 35, 63) = 0.432599E-01
-PKER_SDRYG( 35, 64) = 0.395875E-01
-PKER_SDRYG( 35, 65) = 0.361991E-01
-PKER_SDRYG( 35, 66) = 0.330642E-01
-PKER_SDRYG( 35, 67) = 0.301570E-01
-PKER_SDRYG( 35, 68) = 0.274555E-01
-PKER_SDRYG( 35, 69) = 0.249416E-01
-PKER_SDRYG( 35, 70) = 0.226001E-01
-PKER_SDRYG( 35, 71) = 0.204182E-01
-PKER_SDRYG( 35, 72) = 0.183863E-01
-PKER_SDRYG( 35, 73) = 0.164969E-01
-PKER_SDRYG( 35, 74) = 0.147442E-01
-PKER_SDRYG( 35, 75) = 0.131255E-01
-PKER_SDRYG( 35, 76) = 0.116402E-01
-PKER_SDRYG( 35, 77) = 0.102875E-01
-PKER_SDRYG( 35, 78) = 0.906989E-02
-PKER_SDRYG( 35, 79) = 0.799132E-02
-PKER_SDRYG( 35, 80) = 0.704902E-02
-PKER_SDRYG( 36, 1) = 0.314929E+01
-PKER_SDRYG( 36, 2) = 0.295678E+01
-PKER_SDRYG( 36, 3) = 0.277601E+01
-PKER_SDRYG( 36, 4) = 0.260627E+01
-PKER_SDRYG( 36, 5) = 0.244689E+01
-PKER_SDRYG( 36, 6) = 0.229724E+01
-PKER_SDRYG( 36, 7) = 0.215671E+01
-PKER_SDRYG( 36, 8) = 0.202476E+01
-PKER_SDRYG( 36, 9) = 0.190086E+01
-PKER_SDRYG( 36, 10) = 0.178452E+01
-PKER_SDRYG( 36, 11) = 0.167528E+01
-PKER_SDRYG( 36, 12) = 0.157271E+01
-PKER_SDRYG( 36, 13) = 0.147639E+01
-PKER_SDRYG( 36, 14) = 0.138595E+01
-PKER_SDRYG( 36, 15) = 0.130103E+01
-PKER_SDRYG( 36, 16) = 0.122128E+01
-PKER_SDRYG( 36, 17) = 0.114641E+01
-PKER_SDRYG( 36, 18) = 0.107610E+01
-PKER_SDRYG( 36, 19) = 0.101008E+01
-PKER_SDRYG( 36, 20) = 0.948090E+00
-PKER_SDRYG( 36, 21) = 0.889880E+00
-PKER_SDRYG( 36, 22) = 0.835221E+00
-PKER_SDRYG( 36, 23) = 0.783896E+00
-PKER_SDRYG( 36, 24) = 0.735701E+00
-PKER_SDRYG( 36, 25) = 0.690445E+00
-PKER_SDRYG( 36, 26) = 0.647948E+00
-PKER_SDRYG( 36, 27) = 0.608042E+00
-PKER_SDRYG( 36, 28) = 0.570567E+00
-PKER_SDRYG( 36, 29) = 0.535376E+00
-PKER_SDRYG( 36, 30) = 0.502328E+00
-PKER_SDRYG( 36, 31) = 0.471291E+00
-PKER_SDRYG( 36, 32) = 0.442142E+00
-PKER_SDRYG( 36, 33) = 0.414765E+00
-PKER_SDRYG( 36, 34) = 0.389049E+00
-PKER_SDRYG( 36, 35) = 0.364893E+00
-PKER_SDRYG( 36, 36) = 0.342198E+00
-PKER_SDRYG( 36, 37) = 0.320873E+00
-PKER_SDRYG( 36, 38) = 0.300831E+00
-PKER_SDRYG( 36, 39) = 0.281991E+00
-PKER_SDRYG( 36, 40) = 0.264276E+00
-PKER_SDRYG( 36, 41) = 0.247610E+00
-PKER_SDRYG( 36, 42) = 0.231924E+00
-PKER_SDRYG( 36, 43) = 0.217150E+00
-PKER_SDRYG( 36, 44) = 0.203224E+00
-PKER_SDRYG( 36, 45) = 0.190084E+00
-PKER_SDRYG( 36, 46) = 0.177667E+00
-PKER_SDRYG( 36, 47) = 0.165917E+00
-PKER_SDRYG( 36, 48) = 0.154777E+00
-PKER_SDRYG( 36, 49) = 0.144194E+00
-PKER_SDRYG( 36, 50) = 0.134122E+00
-PKER_SDRYG( 36, 51) = 0.124519E+00
-PKER_SDRYG( 36, 52) = 0.115360E+00
-PKER_SDRYG( 36, 53) = 0.106630E+00
-PKER_SDRYG( 36, 54) = 0.983351E-01
-PKER_SDRYG( 36, 55) = 0.904924E-01
-PKER_SDRYG( 36, 56) = 0.831287E-01
-PKER_SDRYG( 36, 57) = 0.762689E-01
-PKER_SDRYG( 36, 58) = 0.699271E-01
-PKER_SDRYG( 36, 59) = 0.641001E-01
-PKER_SDRYG( 36, 60) = 0.587680E-01
-PKER_SDRYG( 36, 61) = 0.538972E-01
-PKER_SDRYG( 36, 62) = 0.494467E-01
-PKER_SDRYG( 36, 63) = 0.453735E-01
-PKER_SDRYG( 36, 64) = 0.416358E-01
-PKER_SDRYG( 36, 65) = 0.381961E-01
-PKER_SDRYG( 36, 66) = 0.350213E-01
-PKER_SDRYG( 36, 67) = 0.320830E-01
-PKER_SDRYG( 36, 68) = 0.293569E-01
-PKER_SDRYG( 36, 69) = 0.268227E-01
-PKER_SDRYG( 36, 70) = 0.244628E-01
-PKER_SDRYG( 36, 71) = 0.222628E-01
-PKER_SDRYG( 36, 72) = 0.202100E-01
-PKER_SDRYG( 36, 73) = 0.182942E-01
-PKER_SDRYG( 36, 74) = 0.165070E-01
-PKER_SDRYG( 36, 75) = 0.148415E-01
-PKER_SDRYG( 36, 76) = 0.132934E-01
-PKER_SDRYG( 36, 77) = 0.118592E-01
-PKER_SDRYG( 36, 78) = 0.105376E-01
-PKER_SDRYG( 36, 79) = 0.932874E-02
-PKER_SDRYG( 36, 80) = 0.823481E-02
-PKER_SDRYG( 37, 1) = 0.315013E+01
-PKER_SDRYG( 37, 2) = 0.295762E+01
-PKER_SDRYG( 37, 3) = 0.277685E+01
-PKER_SDRYG( 37, 4) = 0.260712E+01
-PKER_SDRYG( 37, 5) = 0.244774E+01
-PKER_SDRYG( 37, 6) = 0.229808E+01
-PKER_SDRYG( 37, 7) = 0.215756E+01
-PKER_SDRYG( 37, 8) = 0.202561E+01
-PKER_SDRYG( 37, 9) = 0.190171E+01
-PKER_SDRYG( 37, 10) = 0.178537E+01
-PKER_SDRYG( 37, 11) = 0.167613E+01
-PKER_SDRYG( 37, 12) = 0.157355E+01
-PKER_SDRYG( 37, 13) = 0.147723E+01
-PKER_SDRYG( 37, 14) = 0.138679E+01
-PKER_SDRYG( 37, 15) = 0.130187E+01
-PKER_SDRYG( 37, 16) = 0.122213E+01
-PKER_SDRYG( 37, 17) = 0.114725E+01
-PKER_SDRYG( 37, 18) = 0.107695E+01
-PKER_SDRYG( 37, 19) = 0.101093E+01
-PKER_SDRYG( 37, 20) = 0.948936E+00
-PKER_SDRYG( 37, 21) = 0.890727E+00
-PKER_SDRYG( 37, 22) = 0.836069E+00
-PKER_SDRYG( 37, 23) = 0.784745E+00
-PKER_SDRYG( 37, 24) = 0.736552E+00
-PKER_SDRYG( 37, 25) = 0.691298E+00
-PKER_SDRYG( 37, 26) = 0.648803E+00
-PKER_SDRYG( 37, 27) = 0.608899E+00
-PKER_SDRYG( 37, 28) = 0.571428E+00
-PKER_SDRYG( 37, 29) = 0.536240E+00
-PKER_SDRYG( 37, 30) = 0.503196E+00
-PKER_SDRYG( 37, 31) = 0.472165E+00
-PKER_SDRYG( 37, 32) = 0.443022E+00
-PKER_SDRYG( 37, 33) = 0.415652E+00
-PKER_SDRYG( 37, 34) = 0.389946E+00
-PKER_SDRYG( 37, 35) = 0.365800E+00
-PKER_SDRYG( 37, 36) = 0.343117E+00
-PKER_SDRYG( 37, 37) = 0.321808E+00
-PKER_SDRYG( 37, 38) = 0.301785E+00
-PKER_SDRYG( 37, 39) = 0.282968E+00
-PKER_SDRYG( 37, 40) = 0.265279E+00
-PKER_SDRYG( 37, 41) = 0.248646E+00
-PKER_SDRYG( 37, 42) = 0.232999E+00
-PKER_SDRYG( 37, 43) = 0.218273E+00
-PKER_SDRYG( 37, 44) = 0.204405E+00
-PKER_SDRYG( 37, 45) = 0.191333E+00
-PKER_SDRYG( 37, 46) = 0.179000E+00
-PKER_SDRYG( 37, 47) = 0.167348E+00
-PKER_SDRYG( 37, 48) = 0.156324E+00
-PKER_SDRYG( 37, 49) = 0.145874E+00
-PKER_SDRYG( 37, 50) = 0.135951E+00
-PKER_SDRYG( 37, 51) = 0.126509E+00
-PKER_SDRYG( 37, 52) = 0.117512E+00
-PKER_SDRYG( 37, 53) = 0.108934E+00
-PKER_SDRYG( 37, 54) = 0.100762E+00
-PKER_SDRYG( 37, 55) = 0.930002E-01
-PKER_SDRYG( 37, 56) = 0.856646E-01
-PKER_SDRYG( 37, 57) = 0.787788E-01
-PKER_SDRYG( 37, 58) = 0.723653E-01
-PKER_SDRYG( 37, 59) = 0.664358E-01
-PKER_SDRYG( 37, 60) = 0.609872E-01
-PKER_SDRYG( 37, 61) = 0.560001E-01
-PKER_SDRYG( 37, 62) = 0.514432E-01
-PKER_SDRYG( 37, 63) = 0.472782E-01
-PKER_SDRYG( 37, 64) = 0.434648E-01
-PKER_SDRYG( 37, 65) = 0.399644E-01
-PKER_SDRYG( 37, 66) = 0.367420E-01
-PKER_SDRYG( 37, 67) = 0.337668E-01
-PKER_SDRYG( 37, 68) = 0.310124E-01
-PKER_SDRYG( 37, 69) = 0.284563E-01
-PKER_SDRYG( 37, 70) = 0.260793E-01
-PKER_SDRYG( 37, 71) = 0.238651E-01
-PKER_SDRYG( 37, 72) = 0.217997E-01
-PKER_SDRYG( 37, 73) = 0.198713E-01
-PKER_SDRYG( 37, 74) = 0.180696E-01
-PKER_SDRYG( 37, 75) = 0.163859E-01
-PKER_SDRYG( 37, 76) = 0.148129E-01
-PKER_SDRYG( 37, 77) = 0.133450E-01
-PKER_SDRYG( 37, 78) = 0.119777E-01
-PKER_SDRYG( 37, 79) = 0.107079E-01
-PKER_SDRYG( 37, 80) = 0.953408E-02
-PKER_SDRYG( 38, 1) = 0.315085E+01
-PKER_SDRYG( 38, 2) = 0.295834E+01
-PKER_SDRYG( 38, 3) = 0.277757E+01
-PKER_SDRYG( 38, 4) = 0.260784E+01
-PKER_SDRYG( 38, 5) = 0.244846E+01
-PKER_SDRYG( 38, 6) = 0.229880E+01
-PKER_SDRYG( 38, 7) = 0.215828E+01
-PKER_SDRYG( 38, 8) = 0.202633E+01
-PKER_SDRYG( 38, 9) = 0.190243E+01
-PKER_SDRYG( 38, 10) = 0.178609E+01
-PKER_SDRYG( 38, 11) = 0.167685E+01
-PKER_SDRYG( 38, 12) = 0.157427E+01
-PKER_SDRYG( 38, 13) = 0.147795E+01
-PKER_SDRYG( 38, 14) = 0.138751E+01
-PKER_SDRYG( 38, 15) = 0.130259E+01
-PKER_SDRYG( 38, 16) = 0.122285E+01
-PKER_SDRYG( 38, 17) = 0.114798E+01
-PKER_SDRYG( 38, 18) = 0.107767E+01
-PKER_SDRYG( 38, 19) = 0.101165E+01
-PKER_SDRYG( 38, 20) = 0.949660E+00
-PKER_SDRYG( 38, 21) = 0.891452E+00
-PKER_SDRYG( 38, 22) = 0.836795E+00
-PKER_SDRYG( 38, 23) = 0.785472E+00
-PKER_SDRYG( 38, 24) = 0.737279E+00
-PKER_SDRYG( 38, 25) = 0.692026E+00
-PKER_SDRYG( 38, 26) = 0.649533E+00
-PKER_SDRYG( 38, 27) = 0.609632E+00
-PKER_SDRYG( 38, 28) = 0.572163E+00
-PKER_SDRYG( 38, 29) = 0.536978E+00
-PKER_SDRYG( 38, 30) = 0.503937E+00
-PKER_SDRYG( 38, 31) = 0.472910E+00
-PKER_SDRYG( 38, 32) = 0.443772E+00
-PKER_SDRYG( 38, 33) = 0.416408E+00
-PKER_SDRYG( 38, 34) = 0.390708E+00
-PKER_SDRYG( 38, 35) = 0.366570E+00
-PKER_SDRYG( 38, 36) = 0.343898E+00
-PKER_SDRYG( 38, 37) = 0.322600E+00
-PKER_SDRYG( 38, 38) = 0.302592E+00
-PKER_SDRYG( 38, 39) = 0.283791E+00
-PKER_SDRYG( 38, 40) = 0.266123E+00
-PKER_SDRYG( 38, 41) = 0.249515E+00
-PKER_SDRYG( 38, 42) = 0.233898E+00
-PKER_SDRYG( 38, 43) = 0.219208E+00
-PKER_SDRYG( 38, 44) = 0.205383E+00
-PKER_SDRYG( 38, 45) = 0.192364E+00
-PKER_SDRYG( 38, 46) = 0.180094E+00
-PKER_SDRYG( 38, 47) = 0.168518E+00
-PKER_SDRYG( 38, 48) = 0.157584E+00
-PKER_SDRYG( 38, 49) = 0.147240E+00
-PKER_SDRYG( 38, 50) = 0.137437E+00
-PKER_SDRYG( 38, 51) = 0.128131E+00
-PKER_SDRYG( 38, 52) = 0.119279E+00
-PKER_SDRYG( 38, 53) = 0.110847E+00
-PKER_SDRYG( 38, 54) = 0.102812E+00
-PKER_SDRYG( 38, 55) = 0.951603E-01
-PKER_SDRYG( 38, 56) = 0.878956E-01
-PKER_SDRYG( 38, 57) = 0.810320E-01
-PKER_SDRYG( 38, 58) = 0.745909E-01
-PKER_SDRYG( 38, 59) = 0.685921E-01
-PKER_SDRYG( 38, 60) = 0.630462E-01
-PKER_SDRYG( 38, 61) = 0.579494E-01
-PKER_SDRYG( 38, 62) = 0.532834E-01
-PKER_SDRYG( 38, 63) = 0.490188E-01
-PKER_SDRYG( 38, 64) = 0.451197E-01
-PKER_SDRYG( 38, 65) = 0.415486E-01
-PKER_SDRYG( 38, 66) = 0.382697E-01
-PKER_SDRYG( 38, 67) = 0.352502E-01
-PKER_SDRYG( 38, 68) = 0.324616E-01
-PKER_SDRYG( 38, 69) = 0.298793E-01
-PKER_SDRYG( 38, 70) = 0.274823E-01
-PKER_SDRYG( 38, 71) = 0.252528E-01
-PKER_SDRYG( 38, 72) = 0.231754E-01
-PKER_SDRYG( 38, 73) = 0.212373E-01
-PKER_SDRYG( 38, 74) = 0.194269E-01
-PKER_SDRYG( 38, 75) = 0.177345E-01
-PKER_SDRYG( 38, 76) = 0.161517E-01
-PKER_SDRYG( 38, 77) = 0.146709E-01
-PKER_SDRYG( 38, 78) = 0.132861E-01
-PKER_SDRYG( 38, 79) = 0.119920E-01
-PKER_SDRYG( 38, 80) = 0.107845E-01
-PKER_SDRYG( 39, 1) = 0.315147E+01
-PKER_SDRYG( 39, 2) = 0.295896E+01
-PKER_SDRYG( 39, 3) = 0.277819E+01
-PKER_SDRYG( 39, 4) = 0.260845E+01
-PKER_SDRYG( 39, 5) = 0.244907E+01
-PKER_SDRYG( 39, 6) = 0.229942E+01
-PKER_SDRYG( 39, 7) = 0.215889E+01
-PKER_SDRYG( 39, 8) = 0.202694E+01
-PKER_SDRYG( 39, 9) = 0.190304E+01
-PKER_SDRYG( 39, 10) = 0.178670E+01
-PKER_SDRYG( 39, 11) = 0.167746E+01
-PKER_SDRYG( 39, 12) = 0.157489E+01
-PKER_SDRYG( 39, 13) = 0.147857E+01
-PKER_SDRYG( 39, 14) = 0.138813E+01
-PKER_SDRYG( 39, 15) = 0.130321E+01
-PKER_SDRYG( 39, 16) = 0.122347E+01
-PKER_SDRYG( 39, 17) = 0.114859E+01
-PKER_SDRYG( 39, 18) = 0.107829E+01
-PKER_SDRYG( 39, 19) = 0.101227E+01
-PKER_SDRYG( 39, 20) = 0.950279E+00
-PKER_SDRYG( 39, 21) = 0.892072E+00
-PKER_SDRYG( 39, 22) = 0.837415E+00
-PKER_SDRYG( 39, 23) = 0.786093E+00
-PKER_SDRYG( 39, 24) = 0.737901E+00
-PKER_SDRYG( 39, 25) = 0.692649E+00
-PKER_SDRYG( 39, 26) = 0.650158E+00
-PKER_SDRYG( 39, 27) = 0.610257E+00
-PKER_SDRYG( 39, 28) = 0.572790E+00
-PKER_SDRYG( 39, 29) = 0.537608E+00
-PKER_SDRYG( 39, 30) = 0.504570E+00
-PKER_SDRYG( 39, 31) = 0.473545E+00
-PKER_SDRYG( 39, 32) = 0.444411E+00
-PKER_SDRYG( 39, 33) = 0.417051E+00
-PKER_SDRYG( 39, 34) = 0.391357E+00
-PKER_SDRYG( 39, 35) = 0.367225E+00
-PKER_SDRYG( 39, 36) = 0.344561E+00
-PKER_SDRYG( 39, 37) = 0.323272E+00
-PKER_SDRYG( 39, 38) = 0.303274E+00
-PKER_SDRYG( 39, 39) = 0.284487E+00
-PKER_SDRYG( 39, 40) = 0.266835E+00
-PKER_SDRYG( 39, 41) = 0.250245E+00
-PKER_SDRYG( 39, 42) = 0.234652E+00
-PKER_SDRYG( 39, 43) = 0.219989E+00
-PKER_SDRYG( 39, 44) = 0.206198E+00
-PKER_SDRYG( 39, 45) = 0.193218E+00
-PKER_SDRYG( 39, 46) = 0.180996E+00
-PKER_SDRYG( 39, 47) = 0.169478E+00
-PKER_SDRYG( 39, 48) = 0.158613E+00
-PKER_SDRYG( 39, 49) = 0.148351E+00
-PKER_SDRYG( 39, 50) = 0.138645E+00
-PKER_SDRYG( 39, 51) = 0.129448E+00
-PKER_SDRYG( 39, 52) = 0.120720E+00
-PKER_SDRYG( 39, 53) = 0.112420E+00
-PKER_SDRYG( 39, 54) = 0.104517E+00
-PKER_SDRYG( 39, 55) = 0.969883E-01
-PKER_SDRYG( 39, 56) = 0.898223E-01
-PKER_SDRYG( 39, 57) = 0.830208E-01
-PKER_SDRYG( 39, 58) = 0.765970E-01
-PKER_SDRYG( 39, 59) = 0.705698E-01
-PKER_SDRYG( 39, 60) = 0.649571E-01
-PKER_SDRYG( 39, 61) = 0.597681E-01
-PKER_SDRYG( 39, 62) = 0.549988E-01
-PKER_SDRYG( 39, 63) = 0.506318E-01
-PKER_SDRYG( 39, 64) = 0.466394E-01
-PKER_SDRYG( 39, 65) = 0.429883E-01
-PKER_SDRYG( 39, 66) = 0.396433E-01
-PKER_SDRYG( 39, 67) = 0.365711E-01
-PKER_SDRYG( 39, 68) = 0.337413E-01
-PKER_SDRYG( 39, 69) = 0.311271E-01
-PKER_SDRYG( 39, 70) = 0.287058E-01
-PKER_SDRYG( 39, 71) = 0.264578E-01
-PKER_SDRYG( 39, 72) = 0.243664E-01
-PKER_SDRYG( 39, 73) = 0.224176E-01
-PKER_SDRYG( 39, 74) = 0.205989E-01
-PKER_SDRYG( 39, 75) = 0.188998E-01
-PKER_SDRYG( 39, 76) = 0.173110E-01
-PKER_SDRYG( 39, 77) = 0.158243E-01
-PKER_SDRYG( 39, 78) = 0.144326E-01
-PKER_SDRYG( 39, 79) = 0.131297E-01
-PKER_SDRYG( 39, 80) = 0.119101E-01
-PKER_SDRYG( 40, 1) = 0.315200E+01
-PKER_SDRYG( 40, 2) = 0.295948E+01
-PKER_SDRYG( 40, 3) = 0.277872E+01
-PKER_SDRYG( 40, 4) = 0.260898E+01
-PKER_SDRYG( 40, 5) = 0.244960E+01
-PKER_SDRYG( 40, 6) = 0.229994E+01
-PKER_SDRYG( 40, 7) = 0.215942E+01
-PKER_SDRYG( 40, 8) = 0.202747E+01
-PKER_SDRYG( 40, 9) = 0.190357E+01
-PKER_SDRYG( 40, 10) = 0.178723E+01
-PKER_SDRYG( 40, 11) = 0.167799E+01
-PKER_SDRYG( 40, 12) = 0.157542E+01
-PKER_SDRYG( 40, 13) = 0.147910E+01
-PKER_SDRYG( 40, 14) = 0.138866E+01
-PKER_SDRYG( 40, 15) = 0.130374E+01
-PKER_SDRYG( 40, 16) = 0.122400E+01
-PKER_SDRYG( 40, 17) = 0.114912E+01
-PKER_SDRYG( 40, 18) = 0.107882E+01
-PKER_SDRYG( 40, 19) = 0.101280E+01
-PKER_SDRYG( 40, 20) = 0.950809E+00
-PKER_SDRYG( 40, 21) = 0.892602E+00
-PKER_SDRYG( 40, 22) = 0.837945E+00
-PKER_SDRYG( 40, 23) = 0.786624E+00
-PKER_SDRYG( 40, 24) = 0.738433E+00
-PKER_SDRYG( 40, 25) = 0.693182E+00
-PKER_SDRYG( 40, 26) = 0.650691E+00
-PKER_SDRYG( 40, 27) = 0.610792E+00
-PKER_SDRYG( 40, 28) = 0.573327E+00
-PKER_SDRYG( 40, 29) = 0.538146E+00
-PKER_SDRYG( 40, 30) = 0.505110E+00
-PKER_SDRYG( 40, 31) = 0.474088E+00
-PKER_SDRYG( 40, 32) = 0.444957E+00
-PKER_SDRYG( 40, 33) = 0.417600E+00
-PKER_SDRYG( 40, 34) = 0.391910E+00
-PKER_SDRYG( 40, 35) = 0.367783E+00
-PKER_SDRYG( 40, 36) = 0.345124E+00
-PKER_SDRYG( 40, 37) = 0.323843E+00
-PKER_SDRYG( 40, 38) = 0.303853E+00
-PKER_SDRYG( 40, 39) = 0.285076E+00
-PKER_SDRYG( 40, 40) = 0.267436E+00
-PKER_SDRYG( 40, 41) = 0.250861E+00
-PKER_SDRYG( 40, 42) = 0.235285E+00
-PKER_SDRYG( 40, 43) = 0.220643E+00
-PKER_SDRYG( 40, 44) = 0.206877E+00
-PKER_SDRYG( 40, 45) = 0.193928E+00
-PKER_SDRYG( 40, 46) = 0.181743E+00
-PKER_SDRYG( 40, 47) = 0.170269E+00
-PKER_SDRYG( 40, 48) = 0.159457E+00
-PKER_SDRYG( 40, 49) = 0.149258E+00
-PKER_SDRYG( 40, 50) = 0.139627E+00
-PKER_SDRYG( 40, 51) = 0.130518E+00
-PKER_SDRYG( 40, 52) = 0.121890E+00
-PKER_SDRYG( 40, 53) = 0.113703E+00
-PKER_SDRYG( 40, 54) = 0.105920E+00
-PKER_SDRYG( 40, 55) = 0.985112E-01
-PKER_SDRYG( 40, 56) = 0.914559E-01
-PKER_SDRYG( 40, 57) = 0.847430E-01
-PKER_SDRYG( 40, 58) = 0.783738E-01
-PKER_SDRYG( 40, 59) = 0.723597E-01
-PKER_SDRYG( 40, 60) = 0.667182E-01
-PKER_SDRYG( 40, 61) = 0.614651E-01
-PKER_SDRYG( 40, 62) = 0.566085E-01
-PKER_SDRYG( 40, 63) = 0.521442E-01
-PKER_SDRYG( 40, 64) = 0.480558E-01
-PKER_SDRYG( 40, 65) = 0.443173E-01
-PKER_SDRYG( 40, 66) = 0.408974E-01
-PKER_SDRYG( 40, 67) = 0.377635E-01
-PKER_SDRYG( 40, 68) = 0.348844E-01
-PKER_SDRYG( 40, 69) = 0.322318E-01
-PKER_SDRYG( 40, 70) = 0.297808E-01
-PKER_SDRYG( 40, 71) = 0.275102E-01
-PKER_SDRYG( 40, 72) = 0.254017E-01
-PKER_SDRYG( 40, 73) = 0.234398E-01
-PKER_SDRYG( 40, 74) = 0.216113E-01
-PKER_SDRYG( 40, 75) = 0.199047E-01
-PKER_SDRYG( 40, 76) = 0.183101E-01
-PKER_SDRYG( 40, 77) = 0.168188E-01
-PKER_SDRYG( 40, 78) = 0.154231E-01
-PKER_SDRYG( 40, 79) = 0.141161E-01
-PKER_SDRYG( 40, 80) = 0.128918E-01
+PKER_SDRYG( 1, 1) = 0.666685E+00
+PKER_SDRYG( 1, 2) = 0.672365E+00
+PKER_SDRYG( 1, 3) = 0.679829E+00
+PKER_SDRYG( 1, 4) = 0.688824E+00
+PKER_SDRYG( 1, 5) = 0.699333E+00
+PKER_SDRYG( 1, 6) = 0.711679E+00
+PKER_SDRYG( 1, 7) = 0.725422E+00
+PKER_SDRYG( 1, 8) = 0.740971E+00
+PKER_SDRYG( 1, 9) = 0.757968E+00
+PKER_SDRYG( 1, 10) = 0.776729E+00
+PKER_SDRYG( 1, 11) = 0.796890E+00
+PKER_SDRYG( 1, 12) = 0.818787E+00
+PKER_SDRYG( 1, 13) = 0.842128E+00
+PKER_SDRYG( 1, 14) = 0.866900E+00
+PKER_SDRYG( 1, 15) = 0.893208E+00
+PKER_SDRYG( 1, 16) = 0.920851E+00
+PKER_SDRYG( 1, 17) = 0.949726E+00
+PKER_SDRYG( 1, 18) = 0.979745E+00
+PKER_SDRYG( 1, 19) = 0.101079E+01
+PKER_SDRYG( 1, 20) = 0.104275E+01
+PKER_SDRYG( 1, 21) = 0.107554E+01
+PKER_SDRYG( 1, 22) = 0.110893E+01
+PKER_SDRYG( 1, 23) = 0.114279E+01
+PKER_SDRYG( 1, 24) = 0.117697E+01
+PKER_SDRYG( 1, 25) = 0.121145E+01
+PKER_SDRYG( 1, 26) = 0.124599E+01
+PKER_SDRYG( 1, 27) = 0.128045E+01
+PKER_SDRYG( 1, 28) = 0.131481E+01
+PKER_SDRYG( 1, 29) = 0.134894E+01
+PKER_SDRYG( 1, 30) = 0.138265E+01
+PKER_SDRYG( 1, 31) = 0.141603E+01
+PKER_SDRYG( 1, 32) = 0.144885E+01
+PKER_SDRYG( 1, 33) = 0.148112E+01
+PKER_SDRYG( 1, 34) = 0.151275E+01
+PKER_SDRYG( 1, 35) = 0.154370E+01
+PKER_SDRYG( 1, 36) = 0.157390E+01
+PKER_SDRYG( 1, 37) = 0.160336E+01
+PKER_SDRYG( 1, 38) = 0.163198E+01
+PKER_SDRYG( 1, 39) = 0.165979E+01
+PKER_SDRYG( 1, 40) = 0.168675E+01
+PKER_SDRYG( 1, 41) = 0.171285E+01
+PKER_SDRYG( 1, 42) = 0.173807E+01
+PKER_SDRYG( 1, 43) = 0.176242E+01
+PKER_SDRYG( 1, 44) = 0.178590E+01
+PKER_SDRYG( 1, 45) = 0.180853E+01
+PKER_SDRYG( 1, 46) = 0.183030E+01
+PKER_SDRYG( 1, 47) = 0.185124E+01
+PKER_SDRYG( 1, 48) = 0.187137E+01
+PKER_SDRYG( 1, 49) = 0.189071E+01
+PKER_SDRYG( 1, 50) = 0.190929E+01
+PKER_SDRYG( 1, 51) = 0.192714E+01
+PKER_SDRYG( 1, 52) = 0.194427E+01
+PKER_SDRYG( 1, 53) = 0.196074E+01
+PKER_SDRYG( 1, 54) = 0.197655E+01
+PKER_SDRYG( 1, 55) = 0.199175E+01
+PKER_SDRYG( 1, 56) = 0.200636E+01
+PKER_SDRYG( 1, 57) = 0.202041E+01
+PKER_SDRYG( 1, 58) = 0.203393E+01
+PKER_SDRYG( 1, 59) = 0.204694E+01
+PKER_SDRYG( 1, 60) = 0.205946E+01
+PKER_SDRYG( 1, 61) = 0.207153E+01
+PKER_SDRYG( 1, 62) = 0.208317E+01
+PKER_SDRYG( 1, 63) = 0.209438E+01
+PKER_SDRYG( 1, 64) = 0.210521E+01
+PKER_SDRYG( 1, 65) = 0.211566E+01
+PKER_SDRYG( 1, 66) = 0.212575E+01
+PKER_SDRYG( 1, 67) = 0.213550E+01
+PKER_SDRYG( 1, 68) = 0.214493E+01
+PKER_SDRYG( 1, 69) = 0.215405E+01
+PKER_SDRYG( 1, 70) = 0.216288E+01
+PKER_SDRYG( 1, 71) = 0.217143E+01
+PKER_SDRYG( 1, 72) = 0.217971E+01
+PKER_SDRYG( 1, 73) = 0.218774E+01
+PKER_SDRYG( 1, 74) = 0.219553E+01
+PKER_SDRYG( 1, 75) = 0.220308E+01
+PKER_SDRYG( 1, 76) = 0.221041E+01
+PKER_SDRYG( 1, 77) = 0.221753E+01
+PKER_SDRYG( 1, 78) = 0.222445E+01
+PKER_SDRYG( 1, 79) = 0.223117E+01
+PKER_SDRYG( 1, 80) = 0.223771E+01
+PKER_SDRYG( 2, 1) = 0.591409E+00
+PKER_SDRYG( 2, 2) = 0.587347E+00
+PKER_SDRYG( 2, 3) = 0.584431E+00
+PKER_SDRYG( 2, 4) = 0.583238E+00
+PKER_SDRYG( 2, 5) = 0.583302E+00
+PKER_SDRYG( 2, 6) = 0.584855E+00
+PKER_SDRYG( 2, 7) = 0.587852E+00
+PKER_SDRYG( 2, 8) = 0.592353E+00
+PKER_SDRYG( 2, 9) = 0.598391E+00
+PKER_SDRYG( 2, 10) = 0.605935E+00
+PKER_SDRYG( 2, 11) = 0.614955E+00
+PKER_SDRYG( 2, 12) = 0.625617E+00
+PKER_SDRYG( 2, 13) = 0.637665E+00
+PKER_SDRYG( 2, 14) = 0.651266E+00
+PKER_SDRYG( 2, 15) = 0.666361E+00
+PKER_SDRYG( 2, 16) = 0.682821E+00
+PKER_SDRYG( 2, 17) = 0.700830E+00
+PKER_SDRYG( 2, 18) = 0.720073E+00
+PKER_SDRYG( 2, 19) = 0.740744E+00
+PKER_SDRYG( 2, 20) = 0.762619E+00
+PKER_SDRYG( 2, 21) = 0.785651E+00
+PKER_SDRYG( 2, 22) = 0.809891E+00
+PKER_SDRYG( 2, 23) = 0.835118E+00
+PKER_SDRYG( 2, 24) = 0.861263E+00
+PKER_SDRYG( 2, 25) = 0.888230E+00
+PKER_SDRYG( 2, 26) = 0.915921E+00
+PKER_SDRYG( 2, 27) = 0.944168E+00
+PKER_SDRYG( 2, 28) = 0.972844E+00
+PKER_SDRYG( 2, 29) = 0.100186E+01
+PKER_SDRYG( 2, 30) = 0.103109E+01
+PKER_SDRYG( 2, 31) = 0.106035E+01
+PKER_SDRYG( 2, 32) = 0.108954E+01
+PKER_SDRYG( 2, 33) = 0.111856E+01
+PKER_SDRYG( 2, 34) = 0.114738E+01
+PKER_SDRYG( 2, 35) = 0.117581E+01
+PKER_SDRYG( 2, 36) = 0.120379E+01
+PKER_SDRYG( 2, 37) = 0.123136E+01
+PKER_SDRYG( 2, 38) = 0.125835E+01
+PKER_SDRYG( 2, 39) = 0.128475E+01
+PKER_SDRYG( 2, 40) = 0.131057E+01
+PKER_SDRYG( 2, 41) = 0.133569E+01
+PKER_SDRYG( 2, 42) = 0.136020E+01
+PKER_SDRYG( 2, 43) = 0.138397E+01
+PKER_SDRYG( 2, 44) = 0.140710E+01
+PKER_SDRYG( 2, 45) = 0.142949E+01
+PKER_SDRYG( 2, 46) = 0.145119E+01
+PKER_SDRYG( 2, 47) = 0.147218E+01
+PKER_SDRYG( 2, 48) = 0.149246E+01
+PKER_SDRYG( 2, 49) = 0.151206E+01
+PKER_SDRYG( 2, 50) = 0.153097E+01
+PKER_SDRYG( 2, 51) = 0.154921E+01
+PKER_SDRYG( 2, 52) = 0.156679E+01
+PKER_SDRYG( 2, 53) = 0.158372E+01
+PKER_SDRYG( 2, 54) = 0.160002E+01
+PKER_SDRYG( 2, 55) = 0.161572E+01
+PKER_SDRYG( 2, 56) = 0.163083E+01
+PKER_SDRYG( 2, 57) = 0.164537E+01
+PKER_SDRYG( 2, 58) = 0.165936E+01
+PKER_SDRYG( 2, 59) = 0.167283E+01
+PKER_SDRYG( 2, 60) = 0.168579E+01
+PKER_SDRYG( 2, 61) = 0.169828E+01
+PKER_SDRYG( 2, 62) = 0.171031E+01
+PKER_SDRYG( 2, 63) = 0.172190E+01
+PKER_SDRYG( 2, 64) = 0.173307E+01
+PKER_SDRYG( 2, 65) = 0.174385E+01
+PKER_SDRYG( 2, 66) = 0.175425E+01
+PKER_SDRYG( 2, 67) = 0.176430E+01
+PKER_SDRYG( 2, 68) = 0.177400E+01
+PKER_SDRYG( 2, 69) = 0.178338E+01
+PKER_SDRYG( 2, 70) = 0.179244E+01
+PKER_SDRYG( 2, 71) = 0.180121E+01
+PKER_SDRYG( 2, 72) = 0.180971E+01
+PKER_SDRYG( 2, 73) = 0.181793E+01
+PKER_SDRYG( 2, 74) = 0.182589E+01
+PKER_SDRYG( 2, 75) = 0.183362E+01
+PKER_SDRYG( 2, 76) = 0.184111E+01
+PKER_SDRYG( 2, 77) = 0.184837E+01
+PKER_SDRYG( 2, 78) = 0.185543E+01
+PKER_SDRYG( 2, 79) = 0.186228E+01
+PKER_SDRYG( 2, 80) = 0.186893E+01
+PKER_SDRYG( 3, 1) = 0.582819E+00
+PKER_SDRYG( 3, 2) = 0.570782E+00
+PKER_SDRYG( 3, 3) = 0.559789E+00
+PKER_SDRYG( 3, 4) = 0.550024E+00
+PKER_SDRYG( 3, 5) = 0.541462E+00
+PKER_SDRYG( 3, 6) = 0.534177E+00
+PKER_SDRYG( 3, 7) = 0.528114E+00
+PKER_SDRYG( 3, 8) = 0.523441E+00
+PKER_SDRYG( 3, 9) = 0.520015E+00
+PKER_SDRYG( 3, 10) = 0.517884E+00
+PKER_SDRYG( 3, 11) = 0.517144E+00
+PKER_SDRYG( 3, 12) = 0.517734E+00
+PKER_SDRYG( 3, 13) = 0.519790E+00
+PKER_SDRYG( 3, 14) = 0.523238E+00
+PKER_SDRYG( 3, 15) = 0.527991E+00
+PKER_SDRYG( 3, 16) = 0.534220E+00
+PKER_SDRYG( 3, 17) = 0.541957E+00
+PKER_SDRYG( 3, 18) = 0.551025E+00
+PKER_SDRYG( 3, 19) = 0.561409E+00
+PKER_SDRYG( 3, 20) = 0.573252E+00
+PKER_SDRYG( 3, 21) = 0.586445E+00
+PKER_SDRYG( 3, 22) = 0.600830E+00
+PKER_SDRYG( 3, 23) = 0.616630E+00
+PKER_SDRYG( 3, 24) = 0.633503E+00
+PKER_SDRYG( 3, 25) = 0.651554E+00
+PKER_SDRYG( 3, 26) = 0.670618E+00
+PKER_SDRYG( 3, 27) = 0.690703E+00
+PKER_SDRYG( 3, 28) = 0.711611E+00
+PKER_SDRYG( 3, 29) = 0.733416E+00
+PKER_SDRYG( 3, 30) = 0.755855E+00
+PKER_SDRYG( 3, 31) = 0.778915E+00
+PKER_SDRYG( 3, 32) = 0.802540E+00
+PKER_SDRYG( 3, 33) = 0.826537E+00
+PKER_SDRYG( 3, 34) = 0.850812E+00
+PKER_SDRYG( 3, 35) = 0.875262E+00
+PKER_SDRYG( 3, 36) = 0.899782E+00
+PKER_SDRYG( 3, 37) = 0.924265E+00
+PKER_SDRYG( 3, 38) = 0.948667E+00
+PKER_SDRYG( 3, 39) = 0.972838E+00
+PKER_SDRYG( 3, 40) = 0.996697E+00
+PKER_SDRYG( 3, 41) = 0.102018E+01
+PKER_SDRYG( 3, 42) = 0.104327E+01
+PKER_SDRYG( 3, 43) = 0.106589E+01
+PKER_SDRYG( 3, 44) = 0.108798E+01
+PKER_SDRYG( 3, 45) = 0.110953E+01
+PKER_SDRYG( 3, 46) = 0.113055E+01
+PKER_SDRYG( 3, 47) = 0.115095E+01
+PKER_SDRYG( 3, 48) = 0.117080E+01
+PKER_SDRYG( 3, 49) = 0.119006E+01
+PKER_SDRYG( 3, 50) = 0.120872E+01
+PKER_SDRYG( 3, 51) = 0.122681E+01
+PKER_SDRYG( 3, 52) = 0.124431E+01
+PKER_SDRYG( 3, 53) = 0.126125E+01
+PKER_SDRYG( 3, 54) = 0.127763E+01
+PKER_SDRYG( 3, 55) = 0.129345E+01
+PKER_SDRYG( 3, 56) = 0.130876E+01
+PKER_SDRYG( 3, 57) = 0.132353E+01
+PKER_SDRYG( 3, 58) = 0.133779E+01
+PKER_SDRYG( 3, 59) = 0.135156E+01
+PKER_SDRYG( 3, 60) = 0.136485E+01
+PKER_SDRYG( 3, 61) = 0.137767E+01
+PKER_SDRYG( 3, 62) = 0.139004E+01
+PKER_SDRYG( 3, 63) = 0.140197E+01
+PKER_SDRYG( 3, 64) = 0.141349E+01
+PKER_SDRYG( 3, 65) = 0.142459E+01
+PKER_SDRYG( 3, 66) = 0.143532E+01
+PKER_SDRYG( 3, 67) = 0.144566E+01
+PKER_SDRYG( 3, 68) = 0.145566E+01
+PKER_SDRYG( 3, 69) = 0.146531E+01
+PKER_SDRYG( 3, 70) = 0.147464E+01
+PKER_SDRYG( 3, 71) = 0.148365E+01
+PKER_SDRYG( 3, 72) = 0.149237E+01
+PKER_SDRYG( 3, 73) = 0.150081E+01
+PKER_SDRYG( 3, 74) = 0.150897E+01
+PKER_SDRYG( 3, 75) = 0.151688E+01
+PKER_SDRYG( 3, 76) = 0.152455E+01
+PKER_SDRYG( 3, 77) = 0.153198E+01
+PKER_SDRYG( 3, 78) = 0.153919E+01
+PKER_SDRYG( 3, 79) = 0.154618E+01
+PKER_SDRYG( 3, 80) = 0.155297E+01
+PKER_SDRYG( 4, 1) = 0.621592E+00
+PKER_SDRYG( 4, 2) = 0.603510E+00
+PKER_SDRYG( 4, 3) = 0.586372E+00
+PKER_SDRYG( 4, 4) = 0.570290E+00
+PKER_SDRYG( 4, 5) = 0.555055E+00
+PKER_SDRYG( 4, 6) = 0.540968E+00
+PKER_SDRYG( 4, 7) = 0.527929E+00
+PKER_SDRYG( 4, 8) = 0.515868E+00
+PKER_SDRYG( 4, 9) = 0.504933E+00
+PKER_SDRYG( 4, 10) = 0.495015E+00
+PKER_SDRYG( 4, 11) = 0.486393E+00
+PKER_SDRYG( 4, 12) = 0.478851E+00
+PKER_SDRYG( 4, 13) = 0.472378E+00
+PKER_SDRYG( 4, 14) = 0.467306E+00
+PKER_SDRYG( 4, 15) = 0.463389E+00
+PKER_SDRYG( 4, 16) = 0.460623E+00
+PKER_SDRYG( 4, 17) = 0.459283E+00
+PKER_SDRYG( 4, 18) = 0.459095E+00
+PKER_SDRYG( 4, 19) = 0.460303E+00
+PKER_SDRYG( 4, 20) = 0.462694E+00
+PKER_SDRYG( 4, 21) = 0.466531E+00
+PKER_SDRYG( 4, 22) = 0.471576E+00
+PKER_SDRYG( 4, 23) = 0.478020E+00
+PKER_SDRYG( 4, 24) = 0.485639E+00
+PKER_SDRYG( 4, 25) = 0.494505E+00
+PKER_SDRYG( 4, 26) = 0.504731E+00
+PKER_SDRYG( 4, 27) = 0.516072E+00
+PKER_SDRYG( 4, 28) = 0.528481E+00
+PKER_SDRYG( 4, 29) = 0.542123E+00
+PKER_SDRYG( 4, 30) = 0.556704E+00
+PKER_SDRYG( 4, 31) = 0.572221E+00
+PKER_SDRYG( 4, 32) = 0.588686E+00
+PKER_SDRYG( 4, 33) = 0.605819E+00
+PKER_SDRYG( 4, 34) = 0.623811E+00
+PKER_SDRYG( 4, 35) = 0.642281E+00
+PKER_SDRYG( 4, 36) = 0.661399E+00
+PKER_SDRYG( 4, 37) = 0.680867E+00
+PKER_SDRYG( 4, 38) = 0.700713E+00
+PKER_SDRYG( 4, 39) = 0.720816E+00
+PKER_SDRYG( 4, 40) = 0.741069E+00
+PKER_SDRYG( 4, 41) = 0.761417E+00
+PKER_SDRYG( 4, 42) = 0.781787E+00
+PKER_SDRYG( 4, 43) = 0.802062E+00
+PKER_SDRYG( 4, 44) = 0.822176E+00
+PKER_SDRYG( 4, 45) = 0.842061E+00
+PKER_SDRYG( 4, 46) = 0.861674E+00
+PKER_SDRYG( 4, 47) = 0.880971E+00
+PKER_SDRYG( 4, 48) = 0.899879E+00
+PKER_SDRYG( 4, 49) = 0.918359E+00
+PKER_SDRYG( 4, 50) = 0.936383E+00
+PKER_SDRYG( 4, 51) = 0.953982E+00
+PKER_SDRYG( 4, 52) = 0.971082E+00
+PKER_SDRYG( 4, 53) = 0.987675E+00
+PKER_SDRYG( 4, 54) = 0.100381E+01
+PKER_SDRYG( 4, 55) = 0.101944E+01
+PKER_SDRYG( 4, 56) = 0.103457E+01
+PKER_SDRYG( 4, 57) = 0.104926E+01
+PKER_SDRYG( 4, 58) = 0.106346E+01
+PKER_SDRYG( 4, 59) = 0.107722E+01
+PKER_SDRYG( 4, 60) = 0.109052E+01
+PKER_SDRYG( 4, 61) = 0.110340E+01
+PKER_SDRYG( 4, 62) = 0.111585E+01
+PKER_SDRYG( 4, 63) = 0.112791E+01
+PKER_SDRYG( 4, 64) = 0.113956E+01
+PKER_SDRYG( 4, 65) = 0.115083E+01
+PKER_SDRYG( 4, 66) = 0.116174E+01
+PKER_SDRYG( 4, 67) = 0.117229E+01
+PKER_SDRYG( 4, 68) = 0.118249E+01
+PKER_SDRYG( 4, 69) = 0.119236E+01
+PKER_SDRYG( 4, 70) = 0.120191E+01
+PKER_SDRYG( 4, 71) = 0.121115E+01
+PKER_SDRYG( 4, 72) = 0.122009E+01
+PKER_SDRYG( 4, 73) = 0.122874E+01
+PKER_SDRYG( 4, 74) = 0.123711E+01
+PKER_SDRYG( 4, 75) = 0.124522E+01
+PKER_SDRYG( 4, 76) = 0.125307E+01
+PKER_SDRYG( 4, 77) = 0.126068E+01
+PKER_SDRYG( 4, 78) = 0.126805E+01
+PKER_SDRYG( 4, 79) = 0.127520E+01
+PKER_SDRYG( 4, 80) = 0.128214E+01
+PKER_SDRYG( 5, 1) = 0.689528E+00
+PKER_SDRYG( 5, 2) = 0.667460E+00
+PKER_SDRYG( 5, 3) = 0.646101E+00
+PKER_SDRYG( 5, 4) = 0.625570E+00
+PKER_SDRYG( 5, 5) = 0.605850E+00
+PKER_SDRYG( 5, 6) = 0.586882E+00
+PKER_SDRYG( 5, 7) = 0.568764E+00
+PKER_SDRYG( 5, 8) = 0.551406E+00
+PKER_SDRYG( 5, 9) = 0.535073E+00
+PKER_SDRYG( 5, 10) = 0.519503E+00
+PKER_SDRYG( 5, 11) = 0.504847E+00
+PKER_SDRYG( 5, 12) = 0.491093E+00
+PKER_SDRYG( 5, 13) = 0.478354E+00
+PKER_SDRYG( 5, 14) = 0.466461E+00
+PKER_SDRYG( 5, 15) = 0.455713E+00
+PKER_SDRYG( 5, 16) = 0.445935E+00
+PKER_SDRYG( 5, 17) = 0.437223E+00
+PKER_SDRYG( 5, 18) = 0.429500E+00
+PKER_SDRYG( 5, 19) = 0.422957E+00
+PKER_SDRYG( 5, 20) = 0.417493E+00
+PKER_SDRYG( 5, 21) = 0.413209E+00
+PKER_SDRYG( 5, 22) = 0.409997E+00
+PKER_SDRYG( 5, 23) = 0.408058E+00
+PKER_SDRYG( 5, 24) = 0.407302E+00
+PKER_SDRYG( 5, 25) = 0.407744E+00
+PKER_SDRYG( 5, 26) = 0.409399E+00
+PKER_SDRYG( 5, 27) = 0.412171E+00
+PKER_SDRYG( 5, 28) = 0.416232E+00
+PKER_SDRYG( 5, 29) = 0.421358E+00
+PKER_SDRYG( 5, 30) = 0.427793E+00
+PKER_SDRYG( 5, 31) = 0.435282E+00
+PKER_SDRYG( 5, 32) = 0.443818E+00
+PKER_SDRYG( 5, 33) = 0.453426E+00
+PKER_SDRYG( 5, 34) = 0.464054E+00
+PKER_SDRYG( 5, 35) = 0.475597E+00
+PKER_SDRYG( 5, 36) = 0.487969E+00
+PKER_SDRYG( 5, 37) = 0.501167E+00
+PKER_SDRYG( 5, 38) = 0.515120E+00
+PKER_SDRYG( 5, 39) = 0.529635E+00
+PKER_SDRYG( 5, 40) = 0.544770E+00
+PKER_SDRYG( 5, 41) = 0.560353E+00
+PKER_SDRYG( 5, 42) = 0.576316E+00
+PKER_SDRYG( 5, 43) = 0.592609E+00
+PKER_SDRYG( 5, 44) = 0.609106E+00
+PKER_SDRYG( 5, 45) = 0.625771E+00
+PKER_SDRYG( 5, 46) = 0.642527E+00
+PKER_SDRYG( 5, 47) = 0.659265E+00
+PKER_SDRYG( 5, 48) = 0.676002E+00
+PKER_SDRYG( 5, 49) = 0.692637E+00
+PKER_SDRYG( 5, 50) = 0.709111E+00
+PKER_SDRYG( 5, 51) = 0.725379E+00
+PKER_SDRYG( 5, 52) = 0.741399E+00
+PKER_SDRYG( 5, 53) = 0.757134E+00
+PKER_SDRYG( 5, 54) = 0.772549E+00
+PKER_SDRYG( 5, 55) = 0.787642E+00
+PKER_SDRYG( 5, 56) = 0.802370E+00
+PKER_SDRYG( 5, 57) = 0.816707E+00
+PKER_SDRYG( 5, 58) = 0.830644E+00
+PKER_SDRYG( 5, 59) = 0.844197E+00
+PKER_SDRYG( 5, 60) = 0.857362E+00
+PKER_SDRYG( 5, 61) = 0.870118E+00
+PKER_SDRYG( 5, 62) = 0.882476E+00
+PKER_SDRYG( 5, 63) = 0.894477E+00
+PKER_SDRYG( 5, 64) = 0.906086E+00
+PKER_SDRYG( 5, 65) = 0.917334E+00
+PKER_SDRYG( 5, 66) = 0.928238E+00
+PKER_SDRYG( 5, 67) = 0.938787E+00
+PKER_SDRYG( 5, 68) = 0.949025E+00
+PKER_SDRYG( 5, 69) = 0.958929E+00
+PKER_SDRYG( 5, 70) = 0.968541E+00
+PKER_SDRYG( 5, 71) = 0.977849E+00
+PKER_SDRYG( 5, 72) = 0.986872E+00
+PKER_SDRYG( 5, 73) = 0.995625E+00
+PKER_SDRYG( 5, 74) = 0.100411E+01
+PKER_SDRYG( 5, 75) = 0.101233E+01
+PKER_SDRYG( 5, 76) = 0.102032E+01
+PKER_SDRYG( 5, 77) = 0.102806E+01
+PKER_SDRYG( 5, 78) = 0.103557E+01
+PKER_SDRYG( 5, 79) = 0.104286E+01
+PKER_SDRYG( 5, 80) = 0.104993E+01
+PKER_SDRYG( 6, 1) = 0.771103E+00
+PKER_SDRYG( 6, 2) = 0.746650E+00
+PKER_SDRYG( 6, 3) = 0.722877E+00
+PKER_SDRYG( 6, 4) = 0.699666E+00
+PKER_SDRYG( 6, 5) = 0.677055E+00
+PKER_SDRYG( 6, 6) = 0.655147E+00
+PKER_SDRYG( 6, 7) = 0.633838E+00
+PKER_SDRYG( 6, 8) = 0.613131E+00
+PKER_SDRYG( 6, 9) = 0.593174E+00
+PKER_SDRYG( 6, 10) = 0.573822E+00
+PKER_SDRYG( 6, 11) = 0.555201E+00
+PKER_SDRYG( 6, 12) = 0.537215E+00
+PKER_SDRYG( 6, 13) = 0.520079E+00
+PKER_SDRYG( 6, 14) = 0.503587E+00
+PKER_SDRYG( 6, 15) = 0.487912E+00
+PKER_SDRYG( 6, 16) = 0.472993E+00
+PKER_SDRYG( 6, 17) = 0.458846E+00
+PKER_SDRYG( 6, 18) = 0.445678E+00
+PKER_SDRYG( 6, 19) = 0.433263E+00
+PKER_SDRYG( 6, 20) = 0.421739E+00
+PKER_SDRYG( 6, 21) = 0.411187E+00
+PKER_SDRYG( 6, 22) = 0.401494E+00
+PKER_SDRYG( 6, 23) = 0.392805E+00
+PKER_SDRYG( 6, 24) = 0.385176E+00
+PKER_SDRYG( 6, 25) = 0.378444E+00
+PKER_SDRYG( 6, 26) = 0.372855E+00
+PKER_SDRYG( 6, 27) = 0.368192E+00
+PKER_SDRYG( 6, 28) = 0.364790E+00
+PKER_SDRYG( 6, 29) = 0.362372E+00
+PKER_SDRYG( 6, 30) = 0.361018E+00
+PKER_SDRYG( 6, 31) = 0.360835E+00
+PKER_SDRYG( 6, 32) = 0.361746E+00
+PKER_SDRYG( 6, 33) = 0.363671E+00
+PKER_SDRYG( 6, 34) = 0.366816E+00
+PKER_SDRYG( 6, 35) = 0.370929E+00
+PKER_SDRYG( 6, 36) = 0.376087E+00
+PKER_SDRYG( 6, 37) = 0.382210E+00
+PKER_SDRYG( 6, 38) = 0.389318E+00
+PKER_SDRYG( 6, 39) = 0.397327E+00
+PKER_SDRYG( 6, 40) = 0.406225E+00
+PKER_SDRYG( 6, 41) = 0.415835E+00
+PKER_SDRYG( 6, 42) = 0.426173E+00
+PKER_SDRYG( 6, 43) = 0.437264E+00
+PKER_SDRYG( 6, 44) = 0.448881E+00
+PKER_SDRYG( 6, 45) = 0.460962E+00
+PKER_SDRYG( 6, 46) = 0.473559E+00
+PKER_SDRYG( 6, 47) = 0.486498E+00
+PKER_SDRYG( 6, 48) = 0.499685E+00
+PKER_SDRYG( 6, 49) = 0.513183E+00
+PKER_SDRYG( 6, 50) = 0.526761E+00
+PKER_SDRYG( 6, 51) = 0.540489E+00
+PKER_SDRYG( 6, 52) = 0.554210E+00
+PKER_SDRYG( 6, 53) = 0.567959E+00
+PKER_SDRYG( 6, 54) = 0.581597E+00
+PKER_SDRYG( 6, 55) = 0.595183E+00
+PKER_SDRYG( 6, 56) = 0.608601E+00
+PKER_SDRYG( 6, 57) = 0.621835E+00
+PKER_SDRYG( 6, 58) = 0.634901E+00
+PKER_SDRYG( 6, 59) = 0.647728E+00
+PKER_SDRYG( 6, 60) = 0.660297E+00
+PKER_SDRYG( 6, 61) = 0.672592E+00
+PKER_SDRYG( 6, 62) = 0.684598E+00
+PKER_SDRYG( 6, 63) = 0.696308E+00
+PKER_SDRYG( 6, 64) = 0.707731E+00
+PKER_SDRYG( 6, 65) = 0.718838E+00
+PKER_SDRYG( 6, 66) = 0.729625E+00
+PKER_SDRYG( 6, 67) = 0.740093E+00
+PKER_SDRYG( 6, 68) = 0.750276E+00
+PKER_SDRYG( 6, 69) = 0.760149E+00
+PKER_SDRYG( 6, 70) = 0.769716E+00
+PKER_SDRYG( 6, 71) = 0.779003E+00
+PKER_SDRYG( 6, 72) = 0.788016E+00
+PKER_SDRYG( 6, 73) = 0.796745E+00
+PKER_SDRYG( 6, 74) = 0.805231E+00
+PKER_SDRYG( 6, 75) = 0.813458E+00
+PKER_SDRYG( 6, 76) = 0.821446E+00
+PKER_SDRYG( 6, 77) = 0.829203E+00
+PKER_SDRYG( 6, 78) = 0.836737E+00
+PKER_SDRYG( 6, 79) = 0.844055E+00
+PKER_SDRYG( 6, 80) = 0.851171E+00
+PKER_SDRYG( 7, 1) = 0.854539E+00
+PKER_SDRYG( 7, 2) = 0.829014E+00
+PKER_SDRYG( 7, 3) = 0.804002E+00
+PKER_SDRYG( 7, 4) = 0.779460E+00
+PKER_SDRYG( 7, 5) = 0.755444E+00
+PKER_SDRYG( 7, 6) = 0.731897E+00
+PKER_SDRYG( 7, 7) = 0.708916E+00
+PKER_SDRYG( 7, 8) = 0.686397E+00
+PKER_SDRYG( 7, 9) = 0.664435E+00
+PKER_SDRYG( 7, 10) = 0.642951E+00
+PKER_SDRYG( 7, 11) = 0.621997E+00
+PKER_SDRYG( 7, 12) = 0.601596E+00
+PKER_SDRYG( 7, 13) = 0.581719E+00
+PKER_SDRYG( 7, 14) = 0.562434E+00
+PKER_SDRYG( 7, 15) = 0.543705E+00
+PKER_SDRYG( 7, 16) = 0.525584E+00
+PKER_SDRYG( 7, 17) = 0.508020E+00
+PKER_SDRYG( 7, 18) = 0.491158E+00
+PKER_SDRYG( 7, 19) = 0.474872E+00
+PKER_SDRYG( 7, 20) = 0.459237E+00
+PKER_SDRYG( 7, 21) = 0.444288E+00
+PKER_SDRYG( 7, 22) = 0.430124E+00
+PKER_SDRYG( 7, 23) = 0.416603E+00
+PKER_SDRYG( 7, 24) = 0.403876E+00
+PKER_SDRYG( 7, 25) = 0.391893E+00
+PKER_SDRYG( 7, 26) = 0.380791E+00
+PKER_SDRYG( 7, 27) = 0.370505E+00
+PKER_SDRYG( 7, 28) = 0.361051E+00
+PKER_SDRYG( 7, 29) = 0.352493E+00
+PKER_SDRYG( 7, 30) = 0.344908E+00
+PKER_SDRYG( 7, 31) = 0.338147E+00
+PKER_SDRYG( 7, 32) = 0.332454E+00
+PKER_SDRYG( 7, 33) = 0.327740E+00
+PKER_SDRYG( 7, 34) = 0.323979E+00
+PKER_SDRYG( 7, 35) = 0.321202E+00
+PKER_SDRYG( 7, 36) = 0.319424E+00
+PKER_SDRYG( 7, 37) = 0.318708E+00
+PKER_SDRYG( 7, 38) = 0.318968E+00
+PKER_SDRYG( 7, 39) = 0.320117E+00
+PKER_SDRYG( 7, 40) = 0.322385E+00
+PKER_SDRYG( 7, 41) = 0.325548E+00
+PKER_SDRYG( 7, 42) = 0.329587E+00
+PKER_SDRYG( 7, 43) = 0.334559E+00
+PKER_SDRYG( 7, 44) = 0.340259E+00
+PKER_SDRYG( 7, 45) = 0.346838E+00
+PKER_SDRYG( 7, 46) = 0.354033E+00
+PKER_SDRYG( 7, 47) = 0.362033E+00
+PKER_SDRYG( 7, 48) = 0.370564E+00
+PKER_SDRYG( 7, 49) = 0.379654E+00
+PKER_SDRYG( 7, 50) = 0.389192E+00
+PKER_SDRYG( 7, 51) = 0.399158E+00
+PKER_SDRYG( 7, 52) = 0.409501E+00
+PKER_SDRYG( 7, 53) = 0.420112E+00
+PKER_SDRYG( 7, 54) = 0.430929E+00
+PKER_SDRYG( 7, 55) = 0.441974E+00
+PKER_SDRYG( 7, 56) = 0.453089E+00
+PKER_SDRYG( 7, 57) = 0.464283E+00
+PKER_SDRYG( 7, 58) = 0.475511E+00
+PKER_SDRYG( 7, 59) = 0.486683E+00
+PKER_SDRYG( 7, 60) = 0.497845E+00
+PKER_SDRYG( 7, 61) = 0.508872E+00
+PKER_SDRYG( 7, 62) = 0.519816E+00
+PKER_SDRYG( 7, 63) = 0.530597E+00
+PKER_SDRYG( 7, 64) = 0.541212E+00
+PKER_SDRYG( 7, 65) = 0.551662E+00
+PKER_SDRYG( 7, 66) = 0.561914E+00
+PKER_SDRYG( 7, 67) = 0.571960E+00
+PKER_SDRYG( 7, 68) = 0.581790E+00
+PKER_SDRYG( 7, 69) = 0.591397E+00
+PKER_SDRYG( 7, 70) = 0.600766E+00
+PKER_SDRYG( 7, 71) = 0.609897E+00
+PKER_SDRYG( 7, 72) = 0.618798E+00
+PKER_SDRYG( 7, 73) = 0.627466E+00
+PKER_SDRYG( 7, 74) = 0.635892E+00
+PKER_SDRYG( 7, 75) = 0.644076E+00
+PKER_SDRYG( 7, 76) = 0.652030E+00
+PKER_SDRYG( 7, 77) = 0.659772E+00
+PKER_SDRYG( 7, 78) = 0.667285E+00
+PKER_SDRYG( 7, 79) = 0.674576E+00
+PKER_SDRYG( 7, 80) = 0.681680E+00
+PKER_SDRYG( 8, 1) = 0.932489E+00
+PKER_SDRYG( 8, 2) = 0.906619E+00
+PKER_SDRYG( 8, 3) = 0.881182E+00
+PKER_SDRYG( 8, 4) = 0.856190E+00
+PKER_SDRYG( 8, 5) = 0.831649E+00
+PKER_SDRYG( 8, 6) = 0.807528E+00
+PKER_SDRYG( 8, 7) = 0.783827E+00
+PKER_SDRYG( 8, 8) = 0.760550E+00
+PKER_SDRYG( 8, 9) = 0.737690E+00
+PKER_SDRYG( 8, 10) = 0.715286E+00
+PKER_SDRYG( 8, 11) = 0.693289E+00
+PKER_SDRYG( 8, 12) = 0.671702E+00
+PKER_SDRYG( 8, 13) = 0.650551E+00
+PKER_SDRYG( 8, 14) = 0.629824E+00
+PKER_SDRYG( 8, 15) = 0.609541E+00
+PKER_SDRYG( 8, 16) = 0.589715E+00
+PKER_SDRYG( 8, 17) = 0.570311E+00
+PKER_SDRYG( 8, 18) = 0.551395E+00
+PKER_SDRYG( 8, 19) = 0.532896E+00
+PKER_SDRYG( 8, 20) = 0.514940E+00
+PKER_SDRYG( 8, 21) = 0.497439E+00
+PKER_SDRYG( 8, 22) = 0.480424E+00
+PKER_SDRYG( 8, 23) = 0.464002E+00
+PKER_SDRYG( 8, 24) = 0.448088E+00
+PKER_SDRYG( 8, 25) = 0.432715E+00
+PKER_SDRYG( 8, 26) = 0.417983E+00
+PKER_SDRYG( 8, 27) = 0.403837E+00
+PKER_SDRYG( 8, 28) = 0.390333E+00
+PKER_SDRYG( 8, 29) = 0.377416E+00
+PKER_SDRYG( 8, 30) = 0.365283E+00
+PKER_SDRYG( 8, 31) = 0.353813E+00
+PKER_SDRYG( 8, 32) = 0.343099E+00
+PKER_SDRYG( 8, 33) = 0.333143E+00
+PKER_SDRYG( 8, 34) = 0.323903E+00
+PKER_SDRYG( 8, 35) = 0.315664E+00
+PKER_SDRYG( 8, 36) = 0.308142E+00
+PKER_SDRYG( 8, 37) = 0.301508E+00
+PKER_SDRYG( 8, 38) = 0.295768E+00
+PKER_SDRYG( 8, 39) = 0.290915E+00
+PKER_SDRYG( 8, 40) = 0.286917E+00
+PKER_SDRYG( 8, 41) = 0.283956E+00
+PKER_SDRYG( 8, 42) = 0.281817E+00
+PKER_SDRYG( 8, 43) = 0.280653E+00
+PKER_SDRYG( 8, 44) = 0.280292E+00
+PKER_SDRYG( 8, 45) = 0.280925E+00
+PKER_SDRYG( 8, 46) = 0.282355E+00
+PKER_SDRYG( 8, 47) = 0.284632E+00
+PKER_SDRYG( 8, 48) = 0.287687E+00
+PKER_SDRYG( 8, 49) = 0.291537E+00
+PKER_SDRYG( 8, 50) = 0.296088E+00
+PKER_SDRYG( 8, 51) = 0.301346E+00
+PKER_SDRYG( 8, 52) = 0.307195E+00
+PKER_SDRYG( 8, 53) = 0.313580E+00
+PKER_SDRYG( 8, 54) = 0.320495E+00
+PKER_SDRYG( 8, 55) = 0.327837E+00
+PKER_SDRYG( 8, 56) = 0.335630E+00
+PKER_SDRYG( 8, 57) = 0.343748E+00
+PKER_SDRYG( 8, 58) = 0.352109E+00
+PKER_SDRYG( 8, 59) = 0.360724E+00
+PKER_SDRYG( 8, 60) = 0.369567E+00
+PKER_SDRYG( 8, 61) = 0.378523E+00
+PKER_SDRYG( 8, 62) = 0.387543E+00
+PKER_SDRYG( 8, 63) = 0.396650E+00
+PKER_SDRYG( 8, 64) = 0.405786E+00
+PKER_SDRYG( 8, 65) = 0.414869E+00
+PKER_SDRYG( 8, 66) = 0.423962E+00
+PKER_SDRYG( 8, 67) = 0.432953E+00
+PKER_SDRYG( 8, 68) = 0.441864E+00
+PKER_SDRYG( 8, 69) = 0.450659E+00
+PKER_SDRYG( 8, 70) = 0.459336E+00
+PKER_SDRYG( 8, 71) = 0.467863E+00
+PKER_SDRYG( 8, 72) = 0.476261E+00
+PKER_SDRYG( 8, 73) = 0.484485E+00
+PKER_SDRYG( 8, 74) = 0.492552E+00
+PKER_SDRYG( 8, 75) = 0.500466E+00
+PKER_SDRYG( 8, 76) = 0.508202E+00
+PKER_SDRYG( 8, 77) = 0.515759E+00
+PKER_SDRYG( 8, 78) = 0.523137E+00
+PKER_SDRYG( 8, 79) = 0.530334E+00
+PKER_SDRYG( 8, 80) = 0.537348E+00
+PKER_SDRYG( 9, 1) = 0.100155E+01
+PKER_SDRYG( 9, 2) = 0.975693E+00
+PKER_SDRYG( 9, 3) = 0.950261E+00
+PKER_SDRYG( 9, 4) = 0.925247E+00
+PKER_SDRYG( 9, 5) = 0.900634E+00
+PKER_SDRYG( 9, 6) = 0.876429E+00
+PKER_SDRYG( 9, 7) = 0.852618E+00
+PKER_SDRYG( 9, 8) = 0.829188E+00
+PKER_SDRYG( 9, 9) = 0.806140E+00
+PKER_SDRYG( 9, 10) = 0.783483E+00
+PKER_SDRYG( 9, 11) = 0.761183E+00
+PKER_SDRYG( 9, 12) = 0.739242E+00
+PKER_SDRYG( 9, 13) = 0.717671E+00
+PKER_SDRYG( 9, 14) = 0.696477E+00
+PKER_SDRYG( 9, 15) = 0.675628E+00
+PKER_SDRYG( 9, 16) = 0.655124E+00
+PKER_SDRYG( 9, 17) = 0.634983E+00
+PKER_SDRYG( 9, 18) = 0.615213E+00
+PKER_SDRYG( 9, 19) = 0.595797E+00
+PKER_SDRYG( 9, 20) = 0.576751E+00
+PKER_SDRYG( 9, 21) = 0.558045E+00
+PKER_SDRYG( 9, 22) = 0.539727E+00
+PKER_SDRYG( 9, 23) = 0.521777E+00
+PKER_SDRYG( 9, 24) = 0.504250E+00
+PKER_SDRYG( 9, 25) = 0.487099E+00
+PKER_SDRYG( 9, 26) = 0.470385E+00
+PKER_SDRYG( 9, 27) = 0.454072E+00
+PKER_SDRYG( 9, 28) = 0.438169E+00
+PKER_SDRYG( 9, 29) = 0.422784E+00
+PKER_SDRYG( 9, 30) = 0.407827E+00
+PKER_SDRYG( 9, 31) = 0.393375E+00
+PKER_SDRYG( 9, 32) = 0.379484E+00
+PKER_SDRYG( 9, 33) = 0.366122E+00
+PKER_SDRYG( 9, 34) = 0.353283E+00
+PKER_SDRYG( 9, 35) = 0.341123E+00
+PKER_SDRYG( 9, 36) = 0.329509E+00
+PKER_SDRYG( 9, 37) = 0.318574E+00
+PKER_SDRYG( 9, 38) = 0.308264E+00
+PKER_SDRYG( 9, 39) = 0.298774E+00
+PKER_SDRYG( 9, 40) = 0.289917E+00
+PKER_SDRYG( 9, 41) = 0.281846E+00
+PKER_SDRYG( 9, 42) = 0.274514E+00
+PKER_SDRYG( 9, 43) = 0.267992E+00
+PKER_SDRYG( 9, 44) = 0.262331E+00
+PKER_SDRYG( 9, 45) = 0.257442E+00
+PKER_SDRYG( 9, 46) = 0.253372E+00
+PKER_SDRYG( 9, 47) = 0.250185E+00
+PKER_SDRYG( 9, 48) = 0.247736E+00
+PKER_SDRYG( 9, 49) = 0.246184E+00
+PKER_SDRYG( 9, 50) = 0.245463E+00
+PKER_SDRYG( 9, 51) = 0.245467E+00
+PKER_SDRYG( 9, 52) = 0.246263E+00
+PKER_SDRYG( 9, 53) = 0.247727E+00
+PKER_SDRYG( 9, 54) = 0.250006E+00
+PKER_SDRYG( 9, 55) = 0.252889E+00
+PKER_SDRYG( 9, 56) = 0.256335E+00
+PKER_SDRYG( 9, 57) = 0.260447E+00
+PKER_SDRYG( 9, 58) = 0.265064E+00
+PKER_SDRYG( 9, 59) = 0.270110E+00
+PKER_SDRYG( 9, 60) = 0.275671E+00
+PKER_SDRYG( 9, 61) = 0.281550E+00
+PKER_SDRYG( 9, 62) = 0.287794E+00
+PKER_SDRYG( 9, 63) = 0.294279E+00
+PKER_SDRYG( 9, 64) = 0.301060E+00
+PKER_SDRYG( 9, 65) = 0.308013E+00
+PKER_SDRYG( 9, 66) = 0.315158E+00
+PKER_SDRYG( 9, 67) = 0.322377E+00
+PKER_SDRYG( 9, 68) = 0.329679E+00
+PKER_SDRYG( 9, 69) = 0.337092E+00
+PKER_SDRYG( 9, 70) = 0.344496E+00
+PKER_SDRYG( 9, 71) = 0.351870E+00
+PKER_SDRYG( 9, 72) = 0.359276E+00
+PKER_SDRYG( 9, 73) = 0.366611E+00
+PKER_SDRYG( 9, 74) = 0.373874E+00
+PKER_SDRYG( 9, 75) = 0.381088E+00
+PKER_SDRYG( 9, 76) = 0.388175E+00
+PKER_SDRYG( 9, 77) = 0.395202E+00
+PKER_SDRYG( 9, 78) = 0.402085E+00
+PKER_SDRYG( 9, 79) = 0.408884E+00
+PKER_SDRYG( 9, 80) = 0.415539E+00
+PKER_SDRYG( 10, 1) = 0.106109E+01
+PKER_SDRYG( 10, 2) = 0.103536E+01
+PKER_SDRYG( 10, 3) = 0.101006E+01
+PKER_SDRYG( 10, 4) = 0.985170E+00
+PKER_SDRYG( 10, 5) = 0.960687E+00
+PKER_SDRYG( 10, 6) = 0.936599E+00
+PKER_SDRYG( 10, 7) = 0.912899E+00
+PKER_SDRYG( 10, 8) = 0.889578E+00
+PKER_SDRYG( 10, 9) = 0.866628E+00
+PKER_SDRYG( 10, 10) = 0.844041E+00
+PKER_SDRYG( 10, 11) = 0.821805E+00
+PKER_SDRYG( 10, 12) = 0.799925E+00
+PKER_SDRYG( 10, 13) = 0.778379E+00
+PKER_SDRYG( 10, 14) = 0.757163E+00
+PKER_SDRYG( 10, 15) = 0.736284E+00
+PKER_SDRYG( 10, 16) = 0.715722E+00
+PKER_SDRYG( 10, 17) = 0.695469E+00
+PKER_SDRYG( 10, 18) = 0.675539E+00
+PKER_SDRYG( 10, 19) = 0.655917E+00
+PKER_SDRYG( 10, 20) = 0.636588E+00
+PKER_SDRYG( 10, 21) = 0.617558E+00
+PKER_SDRYG( 10, 22) = 0.598845E+00
+PKER_SDRYG( 10, 23) = 0.580429E+00
+PKER_SDRYG( 10, 24) = 0.562306E+00
+PKER_SDRYG( 10, 25) = 0.544475E+00
+PKER_SDRYG( 10, 26) = 0.526942E+00
+PKER_SDRYG( 10, 27) = 0.509758E+00
+PKER_SDRYG( 10, 28) = 0.492862E+00
+PKER_SDRYG( 10, 29) = 0.476288E+00
+PKER_SDRYG( 10, 30) = 0.460033E+00
+PKER_SDRYG( 10, 31) = 0.444125E+00
+PKER_SDRYG( 10, 32) = 0.428554E+00
+PKER_SDRYG( 10, 33) = 0.413395E+00
+PKER_SDRYG( 10, 34) = 0.398570E+00
+PKER_SDRYG( 10, 35) = 0.384197E+00
+PKER_SDRYG( 10, 36) = 0.370186E+00
+PKER_SDRYG( 10, 37) = 0.356648E+00
+PKER_SDRYG( 10, 38) = 0.343559E+00
+PKER_SDRYG( 10, 39) = 0.330927E+00
+PKER_SDRYG( 10, 40) = 0.318871E+00
+PKER_SDRYG( 10, 41) = 0.307316E+00
+PKER_SDRYG( 10, 42) = 0.296341E+00
+PKER_SDRYG( 10, 43) = 0.285947E+00
+PKER_SDRYG( 10, 44) = 0.276214E+00
+PKER_SDRYG( 10, 45) = 0.267088E+00
+PKER_SDRYG( 10, 46) = 0.258592E+00
+PKER_SDRYG( 10, 47) = 0.250824E+00
+PKER_SDRYG( 10, 48) = 0.243801E+00
+PKER_SDRYG( 10, 49) = 0.237446E+00
+PKER_SDRYG( 10, 50) = 0.231860E+00
+PKER_SDRYG( 10, 51) = 0.226960E+00
+PKER_SDRYG( 10, 52) = 0.222939E+00
+PKER_SDRYG( 10, 53) = 0.219601E+00
+PKER_SDRYG( 10, 54) = 0.217000E+00
+PKER_SDRYG( 10, 55) = 0.215125E+00
+PKER_SDRYG( 10, 56) = 0.214017E+00
+PKER_SDRYG( 10, 57) = 0.213518E+00
+PKER_SDRYG( 10, 58) = 0.213799E+00
+PKER_SDRYG( 10, 59) = 0.214699E+00
+PKER_SDRYG( 10, 60) = 0.216203E+00
+PKER_SDRYG( 10, 61) = 0.218238E+00
+PKER_SDRYG( 10, 62) = 0.220847E+00
+PKER_SDRYG( 10, 63) = 0.223948E+00
+PKER_SDRYG( 10, 64) = 0.227504E+00
+PKER_SDRYG( 10, 65) = 0.231421E+00
+PKER_SDRYG( 10, 66) = 0.235772E+00
+PKER_SDRYG( 10, 67) = 0.240443E+00
+PKER_SDRYG( 10, 68) = 0.245394E+00
+PKER_SDRYG( 10, 69) = 0.250604E+00
+PKER_SDRYG( 10, 70) = 0.255979E+00
+PKER_SDRYG( 10, 71) = 0.261572E+00
+PKER_SDRYG( 10, 72) = 0.267254E+00
+PKER_SDRYG( 10, 73) = 0.273124E+00
+PKER_SDRYG( 10, 74) = 0.279043E+00
+PKER_SDRYG( 10, 75) = 0.285007E+00
+PKER_SDRYG( 10, 76) = 0.291003E+00
+PKER_SDRYG( 10, 77) = 0.297030E+00
+PKER_SDRYG( 10, 78) = 0.303050E+00
+PKER_SDRYG( 10, 79) = 0.309033E+00
+PKER_SDRYG( 10, 80) = 0.314984E+00
+PKER_SDRYG( 11, 1) = 0.111185E+01
+PKER_SDRYG( 11, 2) = 0.108625E+01
+PKER_SDRYG( 11, 3) = 0.106109E+01
+PKER_SDRYG( 11, 4) = 0.103634E+01
+PKER_SDRYG( 11, 5) = 0.101201E+01
+PKER_SDRYG( 11, 6) = 0.988077E+00
+PKER_SDRYG( 11, 7) = 0.964538E+00
+PKER_SDRYG( 11, 8) = 0.941382E+00
+PKER_SDRYG( 11, 9) = 0.918600E+00
+PKER_SDRYG( 11, 10) = 0.896184E+00
+PKER_SDRYG( 11, 11) = 0.874125E+00
+PKER_SDRYG( 11, 12) = 0.852414E+00
+PKER_SDRYG( 11, 13) = 0.831043E+00
+PKER_SDRYG( 11, 14) = 0.810005E+00
+PKER_SDRYG( 11, 15) = 0.789289E+00
+PKER_SDRYG( 11, 16) = 0.768890E+00
+PKER_SDRYG( 11, 17) = 0.748798E+00
+PKER_SDRYG( 11, 18) = 0.729008E+00
+PKER_SDRYG( 11, 19) = 0.709510E+00
+PKER_SDRYG( 11, 20) = 0.690297E+00
+PKER_SDRYG( 11, 21) = 0.671372E+00
+PKER_SDRYG( 11, 22) = 0.652712E+00
+PKER_SDRYG( 11, 23) = 0.634323E+00
+PKER_SDRYG( 11, 24) = 0.616205E+00
+PKER_SDRYG( 11, 25) = 0.598339E+00
+PKER_SDRYG( 11, 26) = 0.580725E+00
+PKER_SDRYG( 11, 27) = 0.563381E+00
+PKER_SDRYG( 11, 28) = 0.546277E+00
+PKER_SDRYG( 11, 29) = 0.529412E+00
+PKER_SDRYG( 11, 30) = 0.512803E+00
+PKER_SDRYG( 11, 31) = 0.496467E+00
+PKER_SDRYG( 11, 32) = 0.480372E+00
+PKER_SDRYG( 11, 33) = 0.464522E+00
+PKER_SDRYG( 11, 34) = 0.448939E+00
+PKER_SDRYG( 11, 35) = 0.433627E+00
+PKER_SDRYG( 11, 36) = 0.418613E+00
+PKER_SDRYG( 11, 37) = 0.403885E+00
+PKER_SDRYG( 11, 38) = 0.389434E+00
+PKER_SDRYG( 11, 39) = 0.375309E+00
+PKER_SDRYG( 11, 40) = 0.361507E+00
+PKER_SDRYG( 11, 41) = 0.348077E+00
+PKER_SDRYG( 11, 42) = 0.335019E+00
+PKER_SDRYG( 11, 43) = 0.322349E+00
+PKER_SDRYG( 11, 44) = 0.310097E+00
+PKER_SDRYG( 11, 45) = 0.298235E+00
+PKER_SDRYG( 11, 46) = 0.286905E+00
+PKER_SDRYG( 11, 47) = 0.276018E+00
+PKER_SDRYG( 11, 48) = 0.265635E+00
+PKER_SDRYG( 11, 49) = 0.255857E+00
+PKER_SDRYG( 11, 50) = 0.246619E+00
+PKER_SDRYG( 11, 51) = 0.237934E+00
+PKER_SDRYG( 11, 52) = 0.229935E+00
+PKER_SDRYG( 11, 53) = 0.222522E+00
+PKER_SDRYG( 11, 54) = 0.215777E+00
+PKER_SDRYG( 11, 55) = 0.209630E+00
+PKER_SDRYG( 11, 56) = 0.204263E+00
+PKER_SDRYG( 11, 57) = 0.199506E+00
+PKER_SDRYG( 11, 58) = 0.195454E+00
+PKER_SDRYG( 11, 59) = 0.192053E+00
+PKER_SDRYG( 11, 60) = 0.189286E+00
+PKER_SDRYG( 11, 61) = 0.187302E+00
+PKER_SDRYG( 11, 62) = 0.185866E+00
+PKER_SDRYG( 11, 63) = 0.185043E+00
+PKER_SDRYG( 11, 64) = 0.184857E+00
+PKER_SDRYG( 11, 65) = 0.185184E+00
+PKER_SDRYG( 11, 66) = 0.186050E+00
+PKER_SDRYG( 11, 67) = 0.187483E+00
+PKER_SDRYG( 11, 68) = 0.189302E+00
+PKER_SDRYG( 11, 69) = 0.191608E+00
+PKER_SDRYG( 11, 70) = 0.194223E+00
+PKER_SDRYG( 11, 71) = 0.197302E+00
+PKER_SDRYG( 11, 72) = 0.200645E+00
+PKER_SDRYG( 11, 73) = 0.204253E+00
+PKER_SDRYG( 11, 74) = 0.208136E+00
+PKER_SDRYG( 11, 75) = 0.212247E+00
+PKER_SDRYG( 11, 76) = 0.216515E+00
+PKER_SDRYG( 11, 77) = 0.220994E+00
+PKER_SDRYG( 11, 78) = 0.225569E+00
+PKER_SDRYG( 11, 79) = 0.230248E+00
+PKER_SDRYG( 11, 80) = 0.235003E+00
+PKER_SDRYG( 12, 1) = 0.115499E+01
+PKER_SDRYG( 12, 2) = 0.112950E+01
+PKER_SDRYG( 12, 3) = 0.110445E+01
+PKER_SDRYG( 12, 4) = 0.107982E+01
+PKER_SDRYG( 12, 5) = 0.105561E+01
+PKER_SDRYG( 12, 6) = 0.103181E+01
+PKER_SDRYG( 12, 7) = 0.100841E+01
+PKER_SDRYG( 12, 8) = 0.985396E+00
+PKER_SDRYG( 12, 9) = 0.962767E+00
+PKER_SDRYG( 12, 10) = 0.940511E+00
+PKER_SDRYG( 12, 11) = 0.918620E+00
+PKER_SDRYG( 12, 12) = 0.897084E+00
+PKER_SDRYG( 12, 13) = 0.875896E+00
+PKER_SDRYG( 12, 14) = 0.855047E+00
+PKER_SDRYG( 12, 15) = 0.834529E+00
+PKER_SDRYG( 12, 16) = 0.814333E+00
+PKER_SDRYG( 12, 17) = 0.794451E+00
+PKER_SDRYG( 12, 18) = 0.774873E+00
+PKER_SDRYG( 12, 19) = 0.755596E+00
+PKER_SDRYG( 12, 20) = 0.736607E+00
+PKER_SDRYG( 12, 21) = 0.717900E+00
+PKER_SDRYG( 12, 22) = 0.699469E+00
+PKER_SDRYG( 12, 23) = 0.681304E+00
+PKER_SDRYG( 12, 24) = 0.663398E+00
+PKER_SDRYG( 12, 25) = 0.645746E+00
+PKER_SDRYG( 12, 26) = 0.628338E+00
+PKER_SDRYG( 12, 27) = 0.611172E+00
+PKER_SDRYG( 12, 28) = 0.594236E+00
+PKER_SDRYG( 12, 29) = 0.577532E+00
+PKER_SDRYG( 12, 30) = 0.561051E+00
+PKER_SDRYG( 12, 31) = 0.544780E+00
+PKER_SDRYG( 12, 32) = 0.528733E+00
+PKER_SDRYG( 12, 33) = 0.512895E+00
+PKER_SDRYG( 12, 34) = 0.497260E+00
+PKER_SDRYG( 12, 35) = 0.481839E+00
+PKER_SDRYG( 12, 36) = 0.466635E+00
+PKER_SDRYG( 12, 37) = 0.451626E+00
+PKER_SDRYG( 12, 38) = 0.436823E+00
+PKER_SDRYG( 12, 39) = 0.422247E+00
+PKER_SDRYG( 12, 40) = 0.407905E+00
+PKER_SDRYG( 12, 41) = 0.393778E+00
+PKER_SDRYG( 12, 42) = 0.379873E+00
+PKER_SDRYG( 12, 43) = 0.366217E+00
+PKER_SDRYG( 12, 44) = 0.352856E+00
+PKER_SDRYG( 12, 45) = 0.339752E+00
+PKER_SDRYG( 12, 46) = 0.326945E+00
+PKER_SDRYG( 12, 47) = 0.314420E+00
+PKER_SDRYG( 12, 48) = 0.302243E+00
+PKER_SDRYG( 12, 49) = 0.290393E+00
+PKER_SDRYG( 12, 50) = 0.278976E+00
+PKER_SDRYG( 12, 51) = 0.267921E+00
+PKER_SDRYG( 12, 52) = 0.257324E+00
+PKER_SDRYG( 12, 53) = 0.247133E+00
+PKER_SDRYG( 12, 54) = 0.237409E+00
+PKER_SDRYG( 12, 55) = 0.228211E+00
+PKER_SDRYG( 12, 56) = 0.219497E+00
+PKER_SDRYG( 12, 57) = 0.211359E+00
+PKER_SDRYG( 12, 58) = 0.203782E+00
+PKER_SDRYG( 12, 59) = 0.196798E+00
+PKER_SDRYG( 12, 60) = 0.190362E+00
+PKER_SDRYG( 12, 61) = 0.184610E+00
+PKER_SDRYG( 12, 62) = 0.179405E+00
+PKER_SDRYG( 12, 63) = 0.174802E+00
+PKER_SDRYG( 12, 64) = 0.170803E+00
+PKER_SDRYG( 12, 65) = 0.167491E+00
+PKER_SDRYG( 12, 66) = 0.164695E+00
+PKER_SDRYG( 12, 67) = 0.162507E+00
+PKER_SDRYG( 12, 68) = 0.160843E+00
+PKER_SDRYG( 12, 69) = 0.159780E+00
+PKER_SDRYG( 12, 70) = 0.159236E+00
+PKER_SDRYG( 12, 71) = 0.159152E+00
+PKER_SDRYG( 12, 72) = 0.159532E+00
+PKER_SDRYG( 12, 73) = 0.160381E+00
+PKER_SDRYG( 12, 74) = 0.161566E+00
+PKER_SDRYG( 12, 75) = 0.163193E+00
+PKER_SDRYG( 12, 76) = 0.165165E+00
+PKER_SDRYG( 12, 77) = 0.167420E+00
+PKER_SDRYG( 12, 78) = 0.169949E+00
+PKER_SDRYG( 12, 79) = 0.172717E+00
+PKER_SDRYG( 12, 80) = 0.175750E+00
+PKER_SDRYG( 13, 1) = 0.119167E+01
+PKER_SDRYG( 13, 2) = 0.116626E+01
+PKER_SDRYG( 13, 3) = 0.114129E+01
+PKER_SDRYG( 13, 4) = 0.111675E+01
+PKER_SDRYG( 13, 5) = 0.109263E+01
+PKER_SDRYG( 13, 6) = 0.106892E+01
+PKER_SDRYG( 13, 7) = 0.104562E+01
+PKER_SDRYG( 13, 8) = 0.102272E+01
+PKER_SDRYG( 13, 9) = 0.100021E+01
+PKER_SDRYG( 13, 10) = 0.978077E+00
+PKER_SDRYG( 13, 11) = 0.956315E+00
+PKER_SDRYG( 13, 12) = 0.934918E+00
+PKER_SDRYG( 13, 13) = 0.913875E+00
+PKER_SDRYG( 13, 14) = 0.893180E+00
+PKER_SDRYG( 13, 15) = 0.872824E+00
+PKER_SDRYG( 13, 16) = 0.852799E+00
+PKER_SDRYG( 13, 17) = 0.833098E+00
+PKER_SDRYG( 13, 18) = 0.813711E+00
+PKER_SDRYG( 13, 19) = 0.794632E+00
+PKER_SDRYG( 13, 20) = 0.775851E+00
+PKER_SDRYG( 13, 21) = 0.757363E+00
+PKER_SDRYG( 13, 22) = 0.739158E+00
+PKER_SDRYG( 13, 23) = 0.721228E+00
+PKER_SDRYG( 13, 24) = 0.703567E+00
+PKER_SDRYG( 13, 25) = 0.686167E+00
+PKER_SDRYG( 13, 26) = 0.669019E+00
+PKER_SDRYG( 13, 27) = 0.652116E+00
+PKER_SDRYG( 13, 28) = 0.635452E+00
+PKER_SDRYG( 13, 29) = 0.619018E+00
+PKER_SDRYG( 13, 30) = 0.602808E+00
+PKER_SDRYG( 13, 31) = 0.586816E+00
+PKER_SDRYG( 13, 32) = 0.571032E+00
+PKER_SDRYG( 13, 33) = 0.555454E+00
+PKER_SDRYG( 13, 34) = 0.540072E+00
+PKER_SDRYG( 13, 35) = 0.524884E+00
+PKER_SDRYG( 13, 36) = 0.509883E+00
+PKER_SDRYG( 13, 37) = 0.495061E+00
+PKER_SDRYG( 13, 38) = 0.480429E+00
+PKER_SDRYG( 13, 39) = 0.465964E+00
+PKER_SDRYG( 13, 40) = 0.451670E+00
+PKER_SDRYG( 13, 41) = 0.437562E+00
+PKER_SDRYG( 13, 42) = 0.423620E+00
+PKER_SDRYG( 13, 43) = 0.409843E+00
+PKER_SDRYG( 13, 44) = 0.396264E+00
+PKER_SDRYG( 13, 45) = 0.382858E+00
+PKER_SDRYG( 13, 46) = 0.369623E+00
+PKER_SDRYG( 13, 47) = 0.356589E+00
+PKER_SDRYG( 13, 48) = 0.343780E+00
+PKER_SDRYG( 13, 49) = 0.331178E+00
+PKER_SDRYG( 13, 50) = 0.318794E+00
+PKER_SDRYG( 13, 51) = 0.306644E+00
+PKER_SDRYG( 13, 52) = 0.294750E+00
+PKER_SDRYG( 13, 53) = 0.283178E+00
+PKER_SDRYG( 13, 54) = 0.271884E+00
+PKER_SDRYG( 13, 55) = 0.260890E+00
+PKER_SDRYG( 13, 56) = 0.250243E+00
+PKER_SDRYG( 13, 57) = 0.239957E+00
+PKER_SDRYG( 13, 58) = 0.230064E+00
+PKER_SDRYG( 13, 59) = 0.220616E+00
+PKER_SDRYG( 13, 60) = 0.211570E+00
+PKER_SDRYG( 13, 61) = 0.203017E+00
+PKER_SDRYG( 13, 62) = 0.194881E+00
+PKER_SDRYG( 13, 63) = 0.187304E+00
+PKER_SDRYG( 13, 64) = 0.180204E+00
+PKER_SDRYG( 13, 65) = 0.173608E+00
+PKER_SDRYG( 13, 66) = 0.167615E+00
+PKER_SDRYG( 13, 67) = 0.162140E+00
+PKER_SDRYG( 13, 68) = 0.157198E+00
+PKER_SDRYG( 13, 69) = 0.152843E+00
+PKER_SDRYG( 13, 70) = 0.149028E+00
+PKER_SDRYG( 13, 71) = 0.145738E+00
+PKER_SDRYG( 13, 72) = 0.142917E+00
+PKER_SDRYG( 13, 73) = 0.140686E+00
+PKER_SDRYG( 13, 74) = 0.138929E+00
+PKER_SDRYG( 13, 75) = 0.137637E+00
+PKER_SDRYG( 13, 76) = 0.136795E+00
+PKER_SDRYG( 13, 77) = 0.136328E+00
+PKER_SDRYG( 13, 78) = 0.136399E+00
+PKER_SDRYG( 13, 79) = 0.136769E+00
+PKER_SDRYG( 13, 80) = 0.137493E+00
+PKER_SDRYG( 14, 1) = 0.122289E+01
+PKER_SDRYG( 14, 2) = 0.119753E+01
+PKER_SDRYG( 14, 3) = 0.117262E+01
+PKER_SDRYG( 14, 4) = 0.114814E+01
+PKER_SDRYG( 14, 5) = 0.112409E+01
+PKER_SDRYG( 14, 6) = 0.110045E+01
+PKER_SDRYG( 14, 7) = 0.107723E+01
+PKER_SDRYG( 14, 8) = 0.105440E+01
+PKER_SDRYG( 14, 9) = 0.103197E+01
+PKER_SDRYG( 14, 10) = 0.100993E+01
+PKER_SDRYG( 14, 11) = 0.988262E+00
+PKER_SDRYG( 14, 12) = 0.966964E+00
+PKER_SDRYG( 14, 13) = 0.946029E+00
+PKER_SDRYG( 14, 14) = 0.925447E+00
+PKER_SDRYG( 14, 15) = 0.905211E+00
+PKER_SDRYG( 14, 16) = 0.885313E+00
+PKER_SDRYG( 14, 17) = 0.865747E+00
+PKER_SDRYG( 14, 18) = 0.846504E+00
+PKER_SDRYG( 14, 19) = 0.827577E+00
+PKER_SDRYG( 14, 20) = 0.808958E+00
+PKER_SDRYG( 14, 21) = 0.790639E+00
+PKER_SDRYG( 14, 22) = 0.772615E+00
+PKER_SDRYG( 14, 23) = 0.754876E+00
+PKER_SDRYG( 14, 24) = 0.737415E+00
+PKER_SDRYG( 14, 25) = 0.720226E+00
+PKER_SDRYG( 14, 26) = 0.703301E+00
+PKER_SDRYG( 14, 27) = 0.686631E+00
+PKER_SDRYG( 14, 28) = 0.670211E+00
+PKER_SDRYG( 14, 29) = 0.654033E+00
+PKER_SDRYG( 14, 30) = 0.638089E+00
+PKER_SDRYG( 14, 31) = 0.622373E+00
+PKER_SDRYG( 14, 32) = 0.606876E+00
+PKER_SDRYG( 14, 33) = 0.591592E+00
+PKER_SDRYG( 14, 34) = 0.576515E+00
+PKER_SDRYG( 14, 35) = 0.561635E+00
+PKER_SDRYG( 14, 36) = 0.546949E+00
+PKER_SDRYG( 14, 37) = 0.532447E+00
+PKER_SDRYG( 14, 38) = 0.518125E+00
+PKER_SDRYG( 14, 39) = 0.503976E+00
+PKER_SDRYG( 14, 40) = 0.489996E+00
+PKER_SDRYG( 14, 41) = 0.476174E+00
+PKER_SDRYG( 14, 42) = 0.462515E+00
+PKER_SDRYG( 14, 43) = 0.449005E+00
+PKER_SDRYG( 14, 44) = 0.435648E+00
+PKER_SDRYG( 14, 45) = 0.422434E+00
+PKER_SDRYG( 14, 46) = 0.409368E+00
+PKER_SDRYG( 14, 47) = 0.396451E+00
+PKER_SDRYG( 14, 48) = 0.383668E+00
+PKER_SDRYG( 14, 49) = 0.371039E+00
+PKER_SDRYG( 14, 50) = 0.358562E+00
+PKER_SDRYG( 14, 51) = 0.346232E+00
+PKER_SDRYG( 14, 52) = 0.334061E+00
+PKER_SDRYG( 14, 53) = 0.322081E+00
+PKER_SDRYG( 14, 54) = 0.310260E+00
+PKER_SDRYG( 14, 55) = 0.298617E+00
+PKER_SDRYG( 14, 56) = 0.287186E+00
+PKER_SDRYG( 14, 57) = 0.276001E+00
+PKER_SDRYG( 14, 58) = 0.265035E+00
+PKER_SDRYG( 14, 59) = 0.254303E+00
+PKER_SDRYG( 14, 60) = 0.243848E+00
+PKER_SDRYG( 14, 61) = 0.233707E+00
+PKER_SDRYG( 14, 62) = 0.223885E+00
+PKER_SDRYG( 14, 63) = 0.214404E+00
+PKER_SDRYG( 14, 64) = 0.205248E+00
+PKER_SDRYG( 14, 65) = 0.196483E+00
+PKER_SDRYG( 14, 66) = 0.188114E+00
+PKER_SDRYG( 14, 67) = 0.180201E+00
+PKER_SDRYG( 14, 68) = 0.172717E+00
+PKER_SDRYG( 14, 69) = 0.165704E+00
+PKER_SDRYG( 14, 70) = 0.159136E+00
+PKER_SDRYG( 14, 71) = 0.153007E+00
+PKER_SDRYG( 14, 72) = 0.147428E+00
+PKER_SDRYG( 14, 73) = 0.142282E+00
+PKER_SDRYG( 14, 74) = 0.137636E+00
+PKER_SDRYG( 14, 75) = 0.133523E+00
+PKER_SDRYG( 14, 76) = 0.129879E+00
+PKER_SDRYG( 14, 77) = 0.126669E+00
+PKER_SDRYG( 14, 78) = 0.123991E+00
+PKER_SDRYG( 14, 79) = 0.121704E+00
+PKER_SDRYG( 14, 80) = 0.119863E+00
+PKER_SDRYG( 15, 1) = 0.124949E+01
+PKER_SDRYG( 15, 2) = 0.122417E+01
+PKER_SDRYG( 15, 3) = 0.119929E+01
+PKER_SDRYG( 15, 4) = 0.117486E+01
+PKER_SDRYG( 15, 5) = 0.115085E+01
+PKER_SDRYG( 15, 6) = 0.112727E+01
+PKER_SDRYG( 15, 7) = 0.110409E+01
+PKER_SDRYG( 15, 8) = 0.108133E+01
+PKER_SDRYG( 15, 9) = 0.105896E+01
+PKER_SDRYG( 15, 10) = 0.103698E+01
+PKER_SDRYG( 15, 11) = 0.101538E+01
+PKER_SDRYG( 15, 12) = 0.994149E+00
+PKER_SDRYG( 15, 13) = 0.973289E+00
+PKER_SDRYG( 15, 14) = 0.952788E+00
+PKER_SDRYG( 15, 15) = 0.932638E+00
+PKER_SDRYG( 15, 16) = 0.912832E+00
+PKER_SDRYG( 15, 17) = 0.893363E+00
+PKER_SDRYG( 15, 18) = 0.874223E+00
+PKER_SDRYG( 15, 19) = 0.855405E+00
+PKER_SDRYG( 15, 20) = 0.836903E+00
+PKER_SDRYG( 15, 21) = 0.818709E+00
+PKER_SDRYG( 15, 22) = 0.800816E+00
+PKER_SDRYG( 15, 23) = 0.783217E+00
+PKER_SDRYG( 15, 24) = 0.765905E+00
+PKER_SDRYG( 15, 25) = 0.748873E+00
+PKER_SDRYG( 15, 26) = 0.732115E+00
+PKER_SDRYG( 15, 27) = 0.715623E+00
+PKER_SDRYG( 15, 28) = 0.699390E+00
+PKER_SDRYG( 15, 29) = 0.683410E+00
+PKER_SDRYG( 15, 30) = 0.667676E+00
+PKER_SDRYG( 15, 31) = 0.652180E+00
+PKER_SDRYG( 15, 32) = 0.636917E+00
+PKER_SDRYG( 15, 33) = 0.621879E+00
+PKER_SDRYG( 15, 34) = 0.607058E+00
+PKER_SDRYG( 15, 35) = 0.592449E+00
+PKER_SDRYG( 15, 36) = 0.578045E+00
+PKER_SDRYG( 15, 37) = 0.563838E+00
+PKER_SDRYG( 15, 38) = 0.549822E+00
+PKER_SDRYG( 15, 39) = 0.535990E+00
+PKER_SDRYG( 15, 40) = 0.522336E+00
+PKER_SDRYG( 15, 41) = 0.508852E+00
+PKER_SDRYG( 15, 42) = 0.495534E+00
+PKER_SDRYG( 15, 43) = 0.482373E+00
+PKER_SDRYG( 15, 44) = 0.469364E+00
+PKER_SDRYG( 15, 45) = 0.456505E+00
+PKER_SDRYG( 15, 46) = 0.443784E+00
+PKER_SDRYG( 15, 47) = 0.431200E+00
+PKER_SDRYG( 15, 48) = 0.418751E+00
+PKER_SDRYG( 15, 49) = 0.406429E+00
+PKER_SDRYG( 15, 50) = 0.394232E+00
+PKER_SDRYG( 15, 51) = 0.382160E+00
+PKER_SDRYG( 15, 52) = 0.370208E+00
+PKER_SDRYG( 15, 53) = 0.358380E+00
+PKER_SDRYG( 15, 54) = 0.346670E+00
+PKER_SDRYG( 15, 55) = 0.335098E+00
+PKER_SDRYG( 15, 56) = 0.323648E+00
+PKER_SDRYG( 15, 57) = 0.312324E+00
+PKER_SDRYG( 15, 58) = 0.301156E+00
+PKER_SDRYG( 15, 59) = 0.290133E+00
+PKER_SDRYG( 15, 60) = 0.279260E+00
+PKER_SDRYG( 15, 61) = 0.268577E+00
+PKER_SDRYG( 15, 62) = 0.258082E+00
+PKER_SDRYG( 15, 63) = 0.247768E+00
+PKER_SDRYG( 15, 64) = 0.237666E+00
+PKER_SDRYG( 15, 65) = 0.227828E+00
+PKER_SDRYG( 15, 66) = 0.218248E+00
+PKER_SDRYG( 15, 67) = 0.208926E+00
+PKER_SDRYG( 15, 68) = 0.199881E+00
+PKER_SDRYG( 15, 69) = 0.191143E+00
+PKER_SDRYG( 15, 70) = 0.182799E+00
+PKER_SDRYG( 15, 71) = 0.174778E+00
+PKER_SDRYG( 15, 72) = 0.167122E+00
+PKER_SDRYG( 15, 73) = 0.159834E+00
+PKER_SDRYG( 15, 74) = 0.152955E+00
+PKER_SDRYG( 15, 75) = 0.146470E+00
+PKER_SDRYG( 15, 76) = 0.140472E+00
+PKER_SDRYG( 15, 77) = 0.134851E+00
+PKER_SDRYG( 15, 78) = 0.129715E+00
+PKER_SDRYG( 15, 79) = 0.124950E+00
+PKER_SDRYG( 15, 80) = 0.120643E+00
+PKER_SDRYG( 16, 1) = 0.127216E+01
+PKER_SDRYG( 16, 2) = 0.124687E+01
+PKER_SDRYG( 16, 3) = 0.122203E+01
+PKER_SDRYG( 16, 4) = 0.119762E+01
+PKER_SDRYG( 16, 5) = 0.117365E+01
+PKER_SDRYG( 16, 6) = 0.115010E+01
+PKER_SDRYG( 16, 7) = 0.112696E+01
+PKER_SDRYG( 16, 8) = 0.110424E+01
+PKER_SDRYG( 16, 9) = 0.108191E+01
+PKER_SDRYG( 16, 10) = 0.105997E+01
+PKER_SDRYG( 16, 11) = 0.103842E+01
+PKER_SDRYG( 16, 12) = 0.101724E+01
+PKER_SDRYG( 16, 13) = 0.996438E+00
+PKER_SDRYG( 16, 14) = 0.975994E+00
+PKER_SDRYG( 16, 15) = 0.955906E+00
+PKER_SDRYG( 16, 16) = 0.936165E+00
+PKER_SDRYG( 16, 17) = 0.916764E+00
+PKER_SDRYG( 16, 18) = 0.897698E+00
+PKER_SDRYG( 16, 19) = 0.878959E+00
+PKER_SDRYG( 16, 20) = 0.860539E+00
+PKER_SDRYG( 16, 21) = 0.842433E+00
+PKER_SDRYG( 16, 22) = 0.824634E+00
+PKER_SDRYG( 16, 23) = 0.807135E+00
+PKER_SDRYG( 16, 24) = 0.789930E+00
+PKER_SDRYG( 16, 25) = 0.773011E+00
+PKER_SDRYG( 16, 26) = 0.756373E+00
+PKER_SDRYG( 16, 27) = 0.740008E+00
+PKER_SDRYG( 16, 28) = 0.723911E+00
+PKER_SDRYG( 16, 29) = 0.708076E+00
+PKER_SDRYG( 16, 30) = 0.692494E+00
+PKER_SDRYG( 16, 31) = 0.677161E+00
+PKER_SDRYG( 16, 32) = 0.662070E+00
+PKER_SDRYG( 16, 33) = 0.647215E+00
+PKER_SDRYG( 16, 34) = 0.632588E+00
+PKER_SDRYG( 16, 35) = 0.618184E+00
+PKER_SDRYG( 16, 36) = 0.603996E+00
+PKER_SDRYG( 16, 37) = 0.590018E+00
+PKER_SDRYG( 16, 38) = 0.576244E+00
+PKER_SDRYG( 16, 39) = 0.562666E+00
+PKER_SDRYG( 16, 40) = 0.549280E+00
+PKER_SDRYG( 16, 41) = 0.536077E+00
+PKER_SDRYG( 16, 42) = 0.523052E+00
+PKER_SDRYG( 16, 43) = 0.510198E+00
+PKER_SDRYG( 16, 44) = 0.497510E+00
+PKER_SDRYG( 16, 45) = 0.484980E+00
+PKER_SDRYG( 16, 46) = 0.472603E+00
+PKER_SDRYG( 16, 47) = 0.460373E+00
+PKER_SDRYG( 16, 48) = 0.448283E+00
+PKER_SDRYG( 16, 49) = 0.436328E+00
+PKER_SDRYG( 16, 50) = 0.424503E+00
+PKER_SDRYG( 16, 51) = 0.412803E+00
+PKER_SDRYG( 16, 52) = 0.401221E+00
+PKER_SDRYG( 16, 53) = 0.389757E+00
+PKER_SDRYG( 16, 54) = 0.378404E+00
+PKER_SDRYG( 16, 55) = 0.367159E+00
+PKER_SDRYG( 16, 56) = 0.356021E+00
+PKER_SDRYG( 16, 57) = 0.344989E+00
+PKER_SDRYG( 16, 58) = 0.334060E+00
+PKER_SDRYG( 16, 59) = 0.323240E+00
+PKER_SDRYG( 16, 60) = 0.312525E+00
+PKER_SDRYG( 16, 61) = 0.301923E+00
+PKER_SDRYG( 16, 62) = 0.291433E+00
+PKER_SDRYG( 16, 63) = 0.281062E+00
+PKER_SDRYG( 16, 64) = 0.270836E+00
+PKER_SDRYG( 16, 65) = 0.260729E+00
+PKER_SDRYG( 16, 66) = 0.250775E+00
+PKER_SDRYG( 16, 67) = 0.240994E+00
+PKER_SDRYG( 16, 68) = 0.231377E+00
+PKER_SDRYG( 16, 69) = 0.221942E+00
+PKER_SDRYG( 16, 70) = 0.212741E+00
+PKER_SDRYG( 16, 71) = 0.203744E+00
+PKER_SDRYG( 16, 72) = 0.194967E+00
+PKER_SDRYG( 16, 73) = 0.186455E+00
+PKER_SDRYG( 16, 74) = 0.178256E+00
+PKER_SDRYG( 16, 75) = 0.170333E+00
+PKER_SDRYG( 16, 76) = 0.162696E+00
+PKER_SDRYG( 16, 77) = 0.155380E+00
+PKER_SDRYG( 16, 78) = 0.148405E+00
+PKER_SDRYG( 16, 79) = 0.141822E+00
+PKER_SDRYG( 16, 80) = 0.135586E+00
+PKER_SDRYG( 17, 1) = 0.129151E+01
+PKER_SDRYG( 17, 2) = 0.126624E+01
+PKER_SDRYG( 17, 3) = 0.124141E+01
+PKER_SDRYG( 17, 4) = 0.121703E+01
+PKER_SDRYG( 17, 5) = 0.119308E+01
+PKER_SDRYG( 17, 6) = 0.116956E+01
+PKER_SDRYG( 17, 7) = 0.114645E+01
+PKER_SDRYG( 17, 8) = 0.112375E+01
+PKER_SDRYG( 17, 9) = 0.110145E+01
+PKER_SDRYG( 17, 10) = 0.107955E+01
+PKER_SDRYG( 17, 11) = 0.105803E+01
+PKER_SDRYG( 17, 12) = 0.103689E+01
+PKER_SDRYG( 17, 13) = 0.101612E+01
+PKER_SDRYG( 17, 14) = 0.995720E+00
+PKER_SDRYG( 17, 15) = 0.975675E+00
+PKER_SDRYG( 17, 16) = 0.955980E+00
+PKER_SDRYG( 17, 17) = 0.936629E+00
+PKER_SDRYG( 17, 18) = 0.917615E+00
+PKER_SDRYG( 17, 19) = 0.898931E+00
+PKER_SDRYG( 17, 20) = 0.880571E+00
+PKER_SDRYG( 17, 21) = 0.862528E+00
+PKER_SDRYG( 17, 22) = 0.844796E+00
+PKER_SDRYG( 17, 23) = 0.827368E+00
+PKER_SDRYG( 17, 24) = 0.810238E+00
+PKER_SDRYG( 17, 25) = 0.793400E+00
+PKER_SDRYG( 17, 26) = 0.776847E+00
+PKER_SDRYG( 17, 27) = 0.760573E+00
+PKER_SDRYG( 17, 28) = 0.744573E+00
+PKER_SDRYG( 17, 29) = 0.728840E+00
+PKER_SDRYG( 17, 30) = 0.713368E+00
+PKER_SDRYG( 17, 31) = 0.698152E+00
+PKER_SDRYG( 17, 32) = 0.683184E+00
+PKER_SDRYG( 17, 33) = 0.668459E+00
+PKER_SDRYG( 17, 34) = 0.653972E+00
+PKER_SDRYG( 17, 35) = 0.639716E+00
+PKER_SDRYG( 17, 36) = 0.625686E+00
+PKER_SDRYG( 17, 37) = 0.611875E+00
+PKER_SDRYG( 17, 38) = 0.598278E+00
+PKER_SDRYG( 17, 39) = 0.584888E+00
+PKER_SDRYG( 17, 40) = 0.571700E+00
+PKER_SDRYG( 17, 41) = 0.558708E+00
+PKER_SDRYG( 17, 42) = 0.545905E+00
+PKER_SDRYG( 17, 43) = 0.533287E+00
+PKER_SDRYG( 17, 44) = 0.520846E+00
+PKER_SDRYG( 17, 45) = 0.508577E+00
+PKER_SDRYG( 17, 46) = 0.496475E+00
+PKER_SDRYG( 17, 47) = 0.484532E+00
+PKER_SDRYG( 17, 48) = 0.472744E+00
+PKER_SDRYG( 17, 49) = 0.461103E+00
+PKER_SDRYG( 17, 50) = 0.449606E+00
+PKER_SDRYG( 17, 51) = 0.438244E+00
+PKER_SDRYG( 17, 52) = 0.427014E+00
+PKER_SDRYG( 17, 53) = 0.415910E+00
+PKER_SDRYG( 17, 54) = 0.404926E+00
+PKER_SDRYG( 17, 55) = 0.394057E+00
+PKER_SDRYG( 17, 56) = 0.383298E+00
+PKER_SDRYG( 17, 57) = 0.372646E+00
+PKER_SDRYG( 17, 58) = 0.362095E+00
+PKER_SDRYG( 17, 59) = 0.351645E+00
+PKER_SDRYG( 17, 60) = 0.341290E+00
+PKER_SDRYG( 17, 61) = 0.331027E+00
+PKER_SDRYG( 17, 62) = 0.320860E+00
+PKER_SDRYG( 17, 63) = 0.310784E+00
+PKER_SDRYG( 17, 64) = 0.300799E+00
+PKER_SDRYG( 17, 65) = 0.290912E+00
+PKER_SDRYG( 17, 66) = 0.281122E+00
+PKER_SDRYG( 17, 67) = 0.271430E+00
+PKER_SDRYG( 17, 68) = 0.261851E+00
+PKER_SDRYG( 17, 69) = 0.252381E+00
+PKER_SDRYG( 17, 70) = 0.243037E+00
+PKER_SDRYG( 17, 71) = 0.233820E+00
+PKER_SDRYG( 17, 72) = 0.224753E+00
+PKER_SDRYG( 17, 73) = 0.215842E+00
+PKER_SDRYG( 17, 74) = 0.207082E+00
+PKER_SDRYG( 17, 75) = 0.198519E+00
+PKER_SDRYG( 17, 76) = 0.190149E+00
+PKER_SDRYG( 17, 77) = 0.181983E+00
+PKER_SDRYG( 17, 78) = 0.174047E+00
+PKER_SDRYG( 17, 79) = 0.166374E+00
+PKER_SDRYG( 17, 80) = 0.158930E+00
+PKER_SDRYG( 18, 1) = 0.130802E+01
+PKER_SDRYG( 18, 2) = 0.128276E+01
+PKER_SDRYG( 18, 3) = 0.125796E+01
+PKER_SDRYG( 18, 4) = 0.123359E+01
+PKER_SDRYG( 18, 5) = 0.120966E+01
+PKER_SDRYG( 18, 6) = 0.118615E+01
+PKER_SDRYG( 18, 7) = 0.116306E+01
+PKER_SDRYG( 18, 8) = 0.114038E+01
+PKER_SDRYG( 18, 9) = 0.111811E+01
+PKER_SDRYG( 18, 10) = 0.109623E+01
+PKER_SDRYG( 18, 11) = 0.107473E+01
+PKER_SDRYG( 18, 12) = 0.105362E+01
+PKER_SDRYG( 18, 13) = 0.103288E+01
+PKER_SDRYG( 18, 14) = 0.101251E+01
+PKER_SDRYG( 18, 15) = 0.992493E+00
+PKER_SDRYG( 18, 16) = 0.972831E+00
+PKER_SDRYG( 18, 17) = 0.953516E+00
+PKER_SDRYG( 18, 18) = 0.934539E+00
+PKER_SDRYG( 18, 19) = 0.915895E+00
+PKER_SDRYG( 18, 20) = 0.897577E+00
+PKER_SDRYG( 18, 21) = 0.879579E+00
+PKER_SDRYG( 18, 22) = 0.861895E+00
+PKER_SDRYG( 18, 23) = 0.844517E+00
+PKER_SDRYG( 18, 24) = 0.827441E+00
+PKER_SDRYG( 18, 25) = 0.810660E+00
+PKER_SDRYG( 18, 26) = 0.794169E+00
+PKER_SDRYG( 18, 27) = 0.777960E+00
+PKER_SDRYG( 18, 28) = 0.762029E+00
+PKER_SDRYG( 18, 29) = 0.746369E+00
+PKER_SDRYG( 18, 30) = 0.730975E+00
+PKER_SDRYG( 18, 31) = 0.715841E+00
+PKER_SDRYG( 18, 32) = 0.700961E+00
+PKER_SDRYG( 18, 33) = 0.686330E+00
+PKER_SDRYG( 18, 34) = 0.671942E+00
+PKER_SDRYG( 18, 35) = 0.657792E+00
+PKER_SDRYG( 18, 36) = 0.643874E+00
+PKER_SDRYG( 18, 37) = 0.630183E+00
+PKER_SDRYG( 18, 38) = 0.616712E+00
+PKER_SDRYG( 18, 39) = 0.603457E+00
+PKER_SDRYG( 18, 40) = 0.590412E+00
+PKER_SDRYG( 18, 41) = 0.577572E+00
+PKER_SDRYG( 18, 42) = 0.564930E+00
+PKER_SDRYG( 18, 43) = 0.552483E+00
+PKER_SDRYG( 18, 44) = 0.540224E+00
+PKER_SDRYG( 18, 45) = 0.528147E+00
+PKER_SDRYG( 18, 46) = 0.516247E+00
+PKER_SDRYG( 18, 47) = 0.504520E+00
+PKER_SDRYG( 18, 48) = 0.492958E+00
+PKER_SDRYG( 18, 49) = 0.481557E+00
+PKER_SDRYG( 18, 50) = 0.470312E+00
+PKER_SDRYG( 18, 51) = 0.459216E+00
+PKER_SDRYG( 18, 52) = 0.448264E+00
+PKER_SDRYG( 18, 53) = 0.437451E+00
+PKER_SDRYG( 18, 54) = 0.426771E+00
+PKER_SDRYG( 18, 55) = 0.416219E+00
+PKER_SDRYG( 18, 56) = 0.405790E+00
+PKER_SDRYG( 18, 57) = 0.395479E+00
+PKER_SDRYG( 18, 58) = 0.385280E+00
+PKER_SDRYG( 18, 59) = 0.375188E+00
+PKER_SDRYG( 18, 60) = 0.365201E+00
+PKER_SDRYG( 18, 61) = 0.355312E+00
+PKER_SDRYG( 18, 62) = 0.345518E+00
+PKER_SDRYG( 18, 63) = 0.335816E+00
+PKER_SDRYG( 18, 64) = 0.326203E+00
+PKER_SDRYG( 18, 65) = 0.316675E+00
+PKER_SDRYG( 18, 66) = 0.307233E+00
+PKER_SDRYG( 18, 67) = 0.297874E+00
+PKER_SDRYG( 18, 68) = 0.288600E+00
+PKER_SDRYG( 18, 69) = 0.279408E+00
+PKER_SDRYG( 18, 70) = 0.270301E+00
+PKER_SDRYG( 18, 71) = 0.261287E+00
+PKER_SDRYG( 18, 72) = 0.252363E+00
+PKER_SDRYG( 18, 73) = 0.243535E+00
+PKER_SDRYG( 18, 74) = 0.234815E+00
+PKER_SDRYG( 18, 75) = 0.226202E+00
+PKER_SDRYG( 18, 76) = 0.217712E+00
+PKER_SDRYG( 18, 77) = 0.209350E+00
+PKER_SDRYG( 18, 78) = 0.201128E+00
+PKER_SDRYG( 18, 79) = 0.193055E+00
+PKER_SDRYG( 18, 80) = 0.185138E+00
+PKER_SDRYG( 19, 1) = 0.132212E+01
+PKER_SDRYG( 19, 2) = 0.129687E+01
+PKER_SDRYG( 19, 3) = 0.127208E+01
+PKER_SDRYG( 19, 4) = 0.124772E+01
+PKER_SDRYG( 19, 5) = 0.122380E+01
+PKER_SDRYG( 19, 6) = 0.120031E+01
+PKER_SDRYG( 19, 7) = 0.117724E+01
+PKER_SDRYG( 19, 8) = 0.115457E+01
+PKER_SDRYG( 19, 9) = 0.113231E+01
+PKER_SDRYG( 19, 10) = 0.111045E+01
+PKER_SDRYG( 19, 11) = 0.108897E+01
+PKER_SDRYG( 19, 12) = 0.106788E+01
+PKER_SDRYG( 19, 13) = 0.104716E+01
+PKER_SDRYG( 19, 14) = 0.102681E+01
+PKER_SDRYG( 19, 15) = 0.100681E+01
+PKER_SDRYG( 19, 16) = 0.987177E+00
+PKER_SDRYG( 19, 17) = 0.967887E+00
+PKER_SDRYG( 19, 18) = 0.948938E+00
+PKER_SDRYG( 19, 19) = 0.930322E+00
+PKER_SDRYG( 19, 20) = 0.912035E+00
+PKER_SDRYG( 19, 21) = 0.894069E+00
+PKER_SDRYG( 19, 22) = 0.876419E+00
+PKER_SDRYG( 19, 23) = 0.859078E+00
+PKER_SDRYG( 19, 24) = 0.842041E+00
+PKER_SDRYG( 19, 25) = 0.825301E+00
+PKER_SDRYG( 19, 26) = 0.808853E+00
+PKER_SDRYG( 19, 27) = 0.792690E+00
+PKER_SDRYG( 19, 28) = 0.776808E+00
+PKER_SDRYG( 19, 29) = 0.761201E+00
+PKER_SDRYG( 19, 30) = 0.745862E+00
+PKER_SDRYG( 19, 31) = 0.730787E+00
+PKER_SDRYG( 19, 32) = 0.715971E+00
+PKER_SDRYG( 19, 33) = 0.701406E+00
+PKER_SDRYG( 19, 34) = 0.687090E+00
+PKER_SDRYG( 19, 35) = 0.673015E+00
+PKER_SDRYG( 19, 36) = 0.659177E+00
+PKER_SDRYG( 19, 37) = 0.645570E+00
+PKER_SDRYG( 19, 38) = 0.632190E+00
+PKER_SDRYG( 19, 39) = 0.619032E+00
+PKER_SDRYG( 19, 40) = 0.606089E+00
+PKER_SDRYG( 19, 41) = 0.593357E+00
+PKER_SDRYG( 19, 42) = 0.580831E+00
+PKER_SDRYG( 19, 43) = 0.568506E+00
+PKER_SDRYG( 19, 44) = 0.556377E+00
+PKER_SDRYG( 19, 45) = 0.544438E+00
+PKER_SDRYG( 19, 46) = 0.532686E+00
+PKER_SDRYG( 19, 47) = 0.521113E+00
+PKER_SDRYG( 19, 48) = 0.509716E+00
+PKER_SDRYG( 19, 49) = 0.498490E+00
+PKER_SDRYG( 19, 50) = 0.487429E+00
+PKER_SDRYG( 19, 51) = 0.476529E+00
+PKER_SDRYG( 19, 52) = 0.465783E+00
+PKER_SDRYG( 19, 53) = 0.455188E+00
+PKER_SDRYG( 19, 54) = 0.444738E+00
+PKER_SDRYG( 19, 55) = 0.434428E+00
+PKER_SDRYG( 19, 56) = 0.424253E+00
+PKER_SDRYG( 19, 57) = 0.414208E+00
+PKER_SDRYG( 19, 58) = 0.404288E+00
+PKER_SDRYG( 19, 59) = 0.394489E+00
+PKER_SDRYG( 19, 60) = 0.384804E+00
+PKER_SDRYG( 19, 61) = 0.375230E+00
+PKER_SDRYG( 19, 62) = 0.365762E+00
+PKER_SDRYG( 19, 63) = 0.356395E+00
+PKER_SDRYG( 19, 64) = 0.347125E+00
+PKER_SDRYG( 19, 65) = 0.337949E+00
+PKER_SDRYG( 19, 66) = 0.328862E+00
+PKER_SDRYG( 19, 67) = 0.319861E+00
+PKER_SDRYG( 19, 68) = 0.310944E+00
+PKER_SDRYG( 19, 69) = 0.302108E+00
+PKER_SDRYG( 19, 70) = 0.293350E+00
+PKER_SDRYG( 19, 71) = 0.284670E+00
+PKER_SDRYG( 19, 72) = 0.276068E+00
+PKER_SDRYG( 19, 73) = 0.267543E+00
+PKER_SDRYG( 19, 74) = 0.259097E+00
+PKER_SDRYG( 19, 75) = 0.250731E+00
+PKER_SDRYG( 19, 76) = 0.242448E+00
+PKER_SDRYG( 19, 77) = 0.234253E+00
+PKER_SDRYG( 19, 78) = 0.226147E+00
+PKER_SDRYG( 19, 79) = 0.218142E+00
+PKER_SDRYG( 19, 80) = 0.210240E+00
+PKER_SDRYG( 20, 1) = 0.133417E+01
+PKER_SDRYG( 20, 2) = 0.130893E+01
+PKER_SDRYG( 20, 3) = 0.128414E+01
+PKER_SDRYG( 20, 4) = 0.125979E+01
+PKER_SDRYG( 20, 5) = 0.123588E+01
+PKER_SDRYG( 20, 6) = 0.121240E+01
+PKER_SDRYG( 20, 7) = 0.118933E+01
+PKER_SDRYG( 20, 8) = 0.116668E+01
+PKER_SDRYG( 20, 9) = 0.114443E+01
+PKER_SDRYG( 20, 10) = 0.112258E+01
+PKER_SDRYG( 20, 11) = 0.110112E+01
+PKER_SDRYG( 20, 12) = 0.108004E+01
+PKER_SDRYG( 20, 13) = 0.105933E+01
+PKER_SDRYG( 20, 14) = 0.103900E+01
+PKER_SDRYG( 20, 15) = 0.101902E+01
+PKER_SDRYG( 20, 16) = 0.999401E+00
+PKER_SDRYG( 20, 17) = 0.980130E+00
+PKER_SDRYG( 20, 18) = 0.961200E+00
+PKER_SDRYG( 20, 19) = 0.942605E+00
+PKER_SDRYG( 20, 20) = 0.924340E+00
+PKER_SDRYG( 20, 21) = 0.906397E+00
+PKER_SDRYG( 20, 22) = 0.888772E+00
+PKER_SDRYG( 20, 23) = 0.871457E+00
+PKER_SDRYG( 20, 24) = 0.854448E+00
+PKER_SDRYG( 20, 25) = 0.837738E+00
+PKER_SDRYG( 20, 26) = 0.821321E+00
+PKER_SDRYG( 20, 27) = 0.805192E+00
+PKER_SDRYG( 20, 28) = 0.789345E+00
+PKER_SDRYG( 20, 29) = 0.773776E+00
+PKER_SDRYG( 20, 30) = 0.758477E+00
+PKER_SDRYG( 20, 31) = 0.743445E+00
+PKER_SDRYG( 20, 32) = 0.728673E+00
+PKER_SDRYG( 20, 33) = 0.714156E+00
+PKER_SDRYG( 20, 34) = 0.699891E+00
+PKER_SDRYG( 20, 35) = 0.685870E+00
+PKER_SDRYG( 20, 36) = 0.672089E+00
+PKER_SDRYG( 20, 37) = 0.658544E+00
+PKER_SDRYG( 20, 38) = 0.645228E+00
+PKER_SDRYG( 20, 39) = 0.632138E+00
+PKER_SDRYG( 20, 40) = 0.619269E+00
+PKER_SDRYG( 20, 41) = 0.606615E+00
+PKER_SDRYG( 20, 42) = 0.594171E+00
+PKER_SDRYG( 20, 43) = 0.581934E+00
+PKER_SDRYG( 20, 44) = 0.569898E+00
+PKER_SDRYG( 20, 45) = 0.558058E+00
+PKER_SDRYG( 20, 46) = 0.546411E+00
+PKER_SDRYG( 20, 47) = 0.534950E+00
+PKER_SDRYG( 20, 48) = 0.523671E+00
+PKER_SDRYG( 20, 49) = 0.512571E+00
+PKER_SDRYG( 20, 50) = 0.501643E+00
+PKER_SDRYG( 20, 51) = 0.490884E+00
+PKER_SDRYG( 20, 52) = 0.480288E+00
+PKER_SDRYG( 20, 53) = 0.469851E+00
+PKER_SDRYG( 20, 54) = 0.459569E+00
+PKER_SDRYG( 20, 55) = 0.449437E+00
+PKER_SDRYG( 20, 56) = 0.439449E+00
+PKER_SDRYG( 20, 57) = 0.429602E+00
+PKER_SDRYG( 20, 58) = 0.419891E+00
+PKER_SDRYG( 20, 59) = 0.410310E+00
+PKER_SDRYG( 20, 60) = 0.400856E+00
+PKER_SDRYG( 20, 61) = 0.391524E+00
+PKER_SDRYG( 20, 62) = 0.382309E+00
+PKER_SDRYG( 20, 63) = 0.373207E+00
+PKER_SDRYG( 20, 64) = 0.364213E+00
+PKER_SDRYG( 20, 65) = 0.355324E+00
+PKER_SDRYG( 20, 66) = 0.346534E+00
+PKER_SDRYG( 20, 67) = 0.337839E+00
+PKER_SDRYG( 20, 68) = 0.329237E+00
+PKER_SDRYG( 20, 69) = 0.320723E+00
+PKER_SDRYG( 20, 70) = 0.312294E+00
+PKER_SDRYG( 20, 71) = 0.303946E+00
+PKER_SDRYG( 20, 72) = 0.295677E+00
+PKER_SDRYG( 20, 73) = 0.287486E+00
+PKER_SDRYG( 20, 74) = 0.279369E+00
+PKER_SDRYG( 20, 75) = 0.271326E+00
+PKER_SDRYG( 20, 76) = 0.263356E+00
+PKER_SDRYG( 20, 77) = 0.255460E+00
+PKER_SDRYG( 20, 78) = 0.247636E+00
+PKER_SDRYG( 20, 79) = 0.239888E+00
+PKER_SDRYG( 20, 80) = 0.232217E+00
+PKER_SDRYG( 21, 1) = 0.134446E+01
+PKER_SDRYG( 21, 2) = 0.131922E+01
+PKER_SDRYG( 21, 3) = 0.129444E+01
+PKER_SDRYG( 21, 4) = 0.127010E+01
+PKER_SDRYG( 21, 5) = 0.124620E+01
+PKER_SDRYG( 21, 6) = 0.122272E+01
+PKER_SDRYG( 21, 7) = 0.119967E+01
+PKER_SDRYG( 21, 8) = 0.117702E+01
+PKER_SDRYG( 21, 9) = 0.115478E+01
+PKER_SDRYG( 21, 10) = 0.113294E+01
+PKER_SDRYG( 21, 11) = 0.111148E+01
+PKER_SDRYG( 21, 12) = 0.109041E+01
+PKER_SDRYG( 21, 13) = 0.106972E+01
+PKER_SDRYG( 21, 14) = 0.104940E+01
+PKER_SDRYG( 21, 15) = 0.102943E+01
+PKER_SDRYG( 21, 16) = 0.100982E+01
+PKER_SDRYG( 21, 17) = 0.990566E+00
+PKER_SDRYG( 21, 18) = 0.971651E+00
+PKER_SDRYG( 21, 19) = 0.953071E+00
+PKER_SDRYG( 21, 20) = 0.934822E+00
+PKER_SDRYG( 21, 21) = 0.916897E+00
+PKER_SDRYG( 21, 22) = 0.899289E+00
+PKER_SDRYG( 21, 23) = 0.881994E+00
+PKER_SDRYG( 21, 24) = 0.865005E+00
+PKER_SDRYG( 21, 25) = 0.848316E+00
+PKER_SDRYG( 21, 26) = 0.831922E+00
+PKER_SDRYG( 21, 27) = 0.815817E+00
+PKER_SDRYG( 21, 28) = 0.799996E+00
+PKER_SDRYG( 21, 29) = 0.784453E+00
+PKER_SDRYG( 21, 30) = 0.769184E+00
+PKER_SDRYG( 21, 31) = 0.754182E+00
+PKER_SDRYG( 21, 32) = 0.739443E+00
+PKER_SDRYG( 21, 33) = 0.724961E+00
+PKER_SDRYG( 21, 34) = 0.710732E+00
+PKER_SDRYG( 21, 35) = 0.696750E+00
+PKER_SDRYG( 21, 36) = 0.683011E+00
+PKER_SDRYG( 21, 37) = 0.669509E+00
+PKER_SDRYG( 21, 38) = 0.656240E+00
+PKER_SDRYG( 21, 39) = 0.643200E+00
+PKER_SDRYG( 21, 40) = 0.630383E+00
+PKER_SDRYG( 21, 41) = 0.617784E+00
+PKER_SDRYG( 21, 42) = 0.605400E+00
+PKER_SDRYG( 21, 43) = 0.593226E+00
+PKER_SDRYG( 21, 44) = 0.581257E+00
+PKER_SDRYG( 21, 45) = 0.569488E+00
+PKER_SDRYG( 21, 46) = 0.557915E+00
+PKER_SDRYG( 21, 47) = 0.546534E+00
+PKER_SDRYG( 21, 48) = 0.535341E+00
+PKER_SDRYG( 21, 49) = 0.524331E+00
+PKER_SDRYG( 21, 50) = 0.513499E+00
+PKER_SDRYG( 21, 51) = 0.502841E+00
+PKER_SDRYG( 21, 52) = 0.492353E+00
+PKER_SDRYG( 21, 53) = 0.482031E+00
+PKER_SDRYG( 21, 54) = 0.471870E+00
+PKER_SDRYG( 21, 55) = 0.461866E+00
+PKER_SDRYG( 21, 56) = 0.452014E+00
+PKER_SDRYG( 21, 57) = 0.442311E+00
+PKER_SDRYG( 21, 58) = 0.432752E+00
+PKER_SDRYG( 21, 59) = 0.423333E+00
+PKER_SDRYG( 21, 60) = 0.414049E+00
+PKER_SDRYG( 21, 61) = 0.404896E+00
+PKER_SDRYG( 21, 62) = 0.395870E+00
+PKER_SDRYG( 21, 63) = 0.386967E+00
+PKER_SDRYG( 21, 64) = 0.378182E+00
+PKER_SDRYG( 21, 65) = 0.369511E+00
+PKER_SDRYG( 21, 66) = 0.360951E+00
+PKER_SDRYG( 21, 67) = 0.352496E+00
+PKER_SDRYG( 21, 68) = 0.344143E+00
+PKER_SDRYG( 21, 69) = 0.335888E+00
+PKER_SDRYG( 21, 70) = 0.327727E+00
+PKER_SDRYG( 21, 71) = 0.319656E+00
+PKER_SDRYG( 21, 72) = 0.311672E+00
+PKER_SDRYG( 21, 73) = 0.303772E+00
+PKER_SDRYG( 21, 74) = 0.295953E+00
+PKER_SDRYG( 21, 75) = 0.288212E+00
+PKER_SDRYG( 21, 76) = 0.280546E+00
+PKER_SDRYG( 21, 77) = 0.272953E+00
+PKER_SDRYG( 21, 78) = 0.265432E+00
+PKER_SDRYG( 21, 79) = 0.257982E+00
+PKER_SDRYG( 21, 80) = 0.250602E+00
+PKER_SDRYG( 22, 1) = 0.135325E+01
+PKER_SDRYG( 22, 2) = 0.132802E+01
+PKER_SDRYG( 22, 3) = 0.130325E+01
+PKER_SDRYG( 22, 4) = 0.127891E+01
+PKER_SDRYG( 22, 5) = 0.125501E+01
+PKER_SDRYG( 22, 6) = 0.123154E+01
+PKER_SDRYG( 22, 7) = 0.120849E+01
+PKER_SDRYG( 22, 8) = 0.118585E+01
+PKER_SDRYG( 22, 9) = 0.116362E+01
+PKER_SDRYG( 22, 10) = 0.114178E+01
+PKER_SDRYG( 22, 11) = 0.112034E+01
+PKER_SDRYG( 22, 12) = 0.109927E+01
+PKER_SDRYG( 22, 13) = 0.107859E+01
+PKER_SDRYG( 22, 14) = 0.105827E+01
+PKER_SDRYG( 22, 15) = 0.103832E+01
+PKER_SDRYG( 22, 16) = 0.101872E+01
+PKER_SDRYG( 22, 17) = 0.999469E+00
+PKER_SDRYG( 22, 18) = 0.980564E+00
+PKER_SDRYG( 22, 19) = 0.961996E+00
+PKER_SDRYG( 22, 20) = 0.943758E+00
+PKER_SDRYG( 22, 21) = 0.925845E+00
+PKER_SDRYG( 22, 22) = 0.908251E+00
+PKER_SDRYG( 22, 23) = 0.890970E+00
+PKER_SDRYG( 22, 24) = 0.873995E+00
+PKER_SDRYG( 22, 25) = 0.857322E+00
+PKER_SDRYG( 22, 26) = 0.840945E+00
+PKER_SDRYG( 22, 27) = 0.824858E+00
+PKER_SDRYG( 22, 28) = 0.809055E+00
+PKER_SDRYG( 22, 29) = 0.793533E+00
+PKER_SDRYG( 22, 30) = 0.778284E+00
+PKER_SDRYG( 22, 31) = 0.763304E+00
+PKER_SDRYG( 22, 32) = 0.748589E+00
+PKER_SDRYG( 22, 33) = 0.734132E+00
+PKER_SDRYG( 22, 34) = 0.719929E+00
+PKER_SDRYG( 22, 35) = 0.705976E+00
+PKER_SDRYG( 22, 36) = 0.692266E+00
+PKER_SDRYG( 22, 37) = 0.678796E+00
+PKER_SDRYG( 22, 38) = 0.665561E+00
+PKER_SDRYG( 22, 39) = 0.652556E+00
+PKER_SDRYG( 22, 40) = 0.639777E+00
+PKER_SDRYG( 22, 41) = 0.627219E+00
+PKER_SDRYG( 22, 42) = 0.614878E+00
+PKER_SDRYG( 22, 43) = 0.602749E+00
+PKER_SDRYG( 22, 44) = 0.590828E+00
+PKER_SDRYG( 22, 45) = 0.579110E+00
+PKER_SDRYG( 22, 46) = 0.567592E+00
+PKER_SDRYG( 22, 47) = 0.556269E+00
+PKER_SDRYG( 22, 48) = 0.545136E+00
+PKER_SDRYG( 22, 49) = 0.534191E+00
+PKER_SDRYG( 22, 50) = 0.523428E+00
+PKER_SDRYG( 22, 51) = 0.512843E+00
+PKER_SDRYG( 22, 52) = 0.502433E+00
+PKER_SDRYG( 22, 53) = 0.492193E+00
+PKER_SDRYG( 22, 54) = 0.482119E+00
+PKER_SDRYG( 22, 55) = 0.472208E+00
+PKER_SDRYG( 22, 56) = 0.462455E+00
+PKER_SDRYG( 22, 57) = 0.452856E+00
+PKER_SDRYG( 22, 58) = 0.443408E+00
+PKER_SDRYG( 22, 59) = 0.434105E+00
+PKER_SDRYG( 22, 60) = 0.424945E+00
+PKER_SDRYG( 22, 61) = 0.415923E+00
+PKER_SDRYG( 22, 62) = 0.407036E+00
+PKER_SDRYG( 22, 63) = 0.398279E+00
+PKER_SDRYG( 22, 64) = 0.389648E+00
+PKER_SDRYG( 22, 65) = 0.381140E+00
+PKER_SDRYG( 22, 66) = 0.372750E+00
+PKER_SDRYG( 22, 67) = 0.364475E+00
+PKER_SDRYG( 22, 68) = 0.356311E+00
+PKER_SDRYG( 22, 69) = 0.348254E+00
+PKER_SDRYG( 22, 70) = 0.340300E+00
+PKER_SDRYG( 22, 71) = 0.332445E+00
+PKER_SDRYG( 22, 72) = 0.324686E+00
+PKER_SDRYG( 22, 73) = 0.317020E+00
+PKER_SDRYG( 22, 74) = 0.309442E+00
+PKER_SDRYG( 22, 75) = 0.301949E+00
+PKER_SDRYG( 22, 76) = 0.294539E+00
+PKER_SDRYG( 22, 77) = 0.287208E+00
+PKER_SDRYG( 22, 78) = 0.279954E+00
+PKER_SDRYG( 22, 79) = 0.272774E+00
+PKER_SDRYG( 22, 80) = 0.265667E+00
+PKER_SDRYG( 23, 1) = 0.136077E+01
+PKER_SDRYG( 23, 2) = 0.133555E+01
+PKER_SDRYG( 23, 3) = 0.131077E+01
+PKER_SDRYG( 23, 4) = 0.128644E+01
+PKER_SDRYG( 23, 5) = 0.126255E+01
+PKER_SDRYG( 23, 6) = 0.123908E+01
+PKER_SDRYG( 23, 7) = 0.121603E+01
+PKER_SDRYG( 23, 8) = 0.119340E+01
+PKER_SDRYG( 23, 9) = 0.117117E+01
+PKER_SDRYG( 23, 10) = 0.114934E+01
+PKER_SDRYG( 23, 11) = 0.112790E+01
+PKER_SDRYG( 23, 12) = 0.110684E+01
+PKER_SDRYG( 23, 13) = 0.108616E+01
+PKER_SDRYG( 23, 14) = 0.106585E+01
+PKER_SDRYG( 23, 15) = 0.104590E+01
+PKER_SDRYG( 23, 16) = 0.102631E+01
+PKER_SDRYG( 23, 17) = 0.100707E+01
+PKER_SDRYG( 23, 18) = 0.988170E+00
+PKER_SDRYG( 23, 19) = 0.969610E+00
+PKER_SDRYG( 23, 20) = 0.951381E+00
+PKER_SDRYG( 23, 21) = 0.933477E+00
+PKER_SDRYG( 23, 22) = 0.915893E+00
+PKER_SDRYG( 23, 23) = 0.898622E+00
+PKER_SDRYG( 23, 24) = 0.881658E+00
+PKER_SDRYG( 23, 25) = 0.864997E+00
+PKER_SDRYG( 23, 26) = 0.848631E+00
+PKER_SDRYG( 23, 27) = 0.832557E+00
+PKER_SDRYG( 23, 28) = 0.816769E+00
+PKER_SDRYG( 23, 29) = 0.801260E+00
+PKER_SDRYG( 23, 30) = 0.786027E+00
+PKER_SDRYG( 23, 31) = 0.771064E+00
+PKER_SDRYG( 23, 32) = 0.756365E+00
+PKER_SDRYG( 23, 33) = 0.741927E+00
+PKER_SDRYG( 23, 34) = 0.727744E+00
+PKER_SDRYG( 23, 35) = 0.713810E+00
+PKER_SDRYG( 23, 36) = 0.700123E+00
+PKER_SDRYG( 23, 37) = 0.686676E+00
+PKER_SDRYG( 23, 38) = 0.673465E+00
+PKER_SDRYG( 23, 39) = 0.660487E+00
+PKER_SDRYG( 23, 40) = 0.647735E+00
+PKER_SDRYG( 23, 41) = 0.635206E+00
+PKER_SDRYG( 23, 42) = 0.622896E+00
+PKER_SDRYG( 23, 43) = 0.610800E+00
+PKER_SDRYG( 23, 44) = 0.598913E+00
+PKER_SDRYG( 23, 45) = 0.587233E+00
+PKER_SDRYG( 23, 46) = 0.575754E+00
+PKER_SDRYG( 23, 47) = 0.564472E+00
+PKER_SDRYG( 23, 48) = 0.553384E+00
+PKER_SDRYG( 23, 49) = 0.542485E+00
+PKER_SDRYG( 23, 50) = 0.531772E+00
+PKER_SDRYG( 23, 51) = 0.521240E+00
+PKER_SDRYG( 23, 52) = 0.510886E+00
+PKER_SDRYG( 23, 53) = 0.500706E+00
+PKER_SDRYG( 23, 54) = 0.490695E+00
+PKER_SDRYG( 23, 55) = 0.480851E+00
+PKER_SDRYG( 23, 56) = 0.471169E+00
+PKER_SDRYG( 23, 57) = 0.461646E+00
+PKER_SDRYG( 23, 58) = 0.452277E+00
+PKER_SDRYG( 23, 59) = 0.443059E+00
+PKER_SDRYG( 23, 60) = 0.433989E+00
+PKER_SDRYG( 23, 61) = 0.425062E+00
+PKER_SDRYG( 23, 62) = 0.416276E+00
+PKER_SDRYG( 23, 63) = 0.407625E+00
+PKER_SDRYG( 23, 64) = 0.399107E+00
+PKER_SDRYG( 23, 65) = 0.390718E+00
+PKER_SDRYG( 23, 66) = 0.382455E+00
+PKER_SDRYG( 23, 67) = 0.374313E+00
+PKER_SDRYG( 23, 68) = 0.366289E+00
+PKER_SDRYG( 23, 69) = 0.358379E+00
+PKER_SDRYG( 23, 70) = 0.350580E+00
+PKER_SDRYG( 23, 71) = 0.342888E+00
+PKER_SDRYG( 23, 72) = 0.335300E+00
+PKER_SDRYG( 23, 73) = 0.327812E+00
+PKER_SDRYG( 23, 74) = 0.320421E+00
+PKER_SDRYG( 23, 75) = 0.313123E+00
+PKER_SDRYG( 23, 76) = 0.305915E+00
+PKER_SDRYG( 23, 77) = 0.298794E+00
+PKER_SDRYG( 23, 78) = 0.291756E+00
+PKER_SDRYG( 23, 79) = 0.284799E+00
+PKER_SDRYG( 23, 80) = 0.277920E+00
+PKER_SDRYG( 24, 1) = 0.136720E+01
+PKER_SDRYG( 24, 2) = 0.134198E+01
+PKER_SDRYG( 24, 3) = 0.131720E+01
+PKER_SDRYG( 24, 4) = 0.129288E+01
+PKER_SDRYG( 24, 5) = 0.126898E+01
+PKER_SDRYG( 24, 6) = 0.124552E+01
+PKER_SDRYG( 24, 7) = 0.122248E+01
+PKER_SDRYG( 24, 8) = 0.119984E+01
+PKER_SDRYG( 24, 9) = 0.117762E+01
+PKER_SDRYG( 24, 10) = 0.115579E+01
+PKER_SDRYG( 24, 11) = 0.113435E+01
+PKER_SDRYG( 24, 12) = 0.111330E+01
+PKER_SDRYG( 24, 13) = 0.109263E+01
+PKER_SDRYG( 24, 14) = 0.107232E+01
+PKER_SDRYG( 24, 15) = 0.105238E+01
+PKER_SDRYG( 24, 16) = 0.103279E+01
+PKER_SDRYG( 24, 17) = 0.101356E+01
+PKER_SDRYG( 24, 18) = 0.994663E+00
+PKER_SDRYG( 24, 19) = 0.976109E+00
+PKER_SDRYG( 24, 20) = 0.957887E+00
+PKER_SDRYG( 24, 21) = 0.939990E+00
+PKER_SDRYG( 24, 22) = 0.922413E+00
+PKER_SDRYG( 24, 23) = 0.905149E+00
+PKER_SDRYG( 24, 24) = 0.888193E+00
+PKER_SDRYG( 24, 25) = 0.871540E+00
+PKER_SDRYG( 24, 26) = 0.855184E+00
+PKER_SDRYG( 24, 27) = 0.839120E+00
+PKER_SDRYG( 24, 28) = 0.823341E+00
+PKER_SDRYG( 24, 29) = 0.807844E+00
+PKER_SDRYG( 24, 30) = 0.792622E+00
+PKER_SDRYG( 24, 31) = 0.777670E+00
+PKER_SDRYG( 24, 32) = 0.762985E+00
+PKER_SDRYG( 24, 33) = 0.748560E+00
+PKER_SDRYG( 24, 34) = 0.734390E+00
+PKER_SDRYG( 24, 35) = 0.720472E+00
+PKER_SDRYG( 24, 36) = 0.706801E+00
+PKER_SDRYG( 24, 37) = 0.693371E+00
+PKER_SDRYG( 24, 38) = 0.680178E+00
+PKER_SDRYG( 24, 39) = 0.667218E+00
+PKER_SDRYG( 24, 40) = 0.654487E+00
+PKER_SDRYG( 24, 41) = 0.641979E+00
+PKER_SDRYG( 24, 42) = 0.629692E+00
+PKER_SDRYG( 24, 43) = 0.617619E+00
+PKER_SDRYG( 24, 44) = 0.605758E+00
+PKER_SDRYG( 24, 45) = 0.594105E+00
+PKER_SDRYG( 24, 46) = 0.582654E+00
+PKER_SDRYG( 24, 47) = 0.571403E+00
+PKER_SDRYG( 24, 48) = 0.560347E+00
+PKER_SDRYG( 24, 49) = 0.549482E+00
+PKER_SDRYG( 24, 50) = 0.538805E+00
+PKER_SDRYG( 24, 51) = 0.528312E+00
+PKER_SDRYG( 24, 52) = 0.517998E+00
+PKER_SDRYG( 24, 53) = 0.507861E+00
+PKER_SDRYG( 24, 54) = 0.497897E+00
+PKER_SDRYG( 24, 55) = 0.488101E+00
+PKER_SDRYG( 24, 56) = 0.478470E+00
+PKER_SDRYG( 24, 57) = 0.469001E+00
+PKER_SDRYG( 24, 58) = 0.459691E+00
+PKER_SDRYG( 24, 59) = 0.450534E+00
+PKER_SDRYG( 24, 60) = 0.441529E+00
+PKER_SDRYG( 24, 61) = 0.432672E+00
+PKER_SDRYG( 24, 62) = 0.423958E+00
+PKER_SDRYG( 24, 63) = 0.415385E+00
+PKER_SDRYG( 24, 64) = 0.406949E+00
+PKER_SDRYG( 24, 65) = 0.398648E+00
+PKER_SDRYG( 24, 66) = 0.390476E+00
+PKER_SDRYG( 24, 67) = 0.382431E+00
+PKER_SDRYG( 24, 68) = 0.374510E+00
+PKER_SDRYG( 24, 69) = 0.366709E+00
+PKER_SDRYG( 24, 70) = 0.359025E+00
+PKER_SDRYG( 24, 71) = 0.351454E+00
+PKER_SDRYG( 24, 72) = 0.343994E+00
+PKER_SDRYG( 24, 73) = 0.336640E+00
+PKER_SDRYG( 24, 74) = 0.329389E+00
+PKER_SDRYG( 24, 75) = 0.322239E+00
+PKER_SDRYG( 24, 76) = 0.315185E+00
+PKER_SDRYG( 24, 77) = 0.308226E+00
+PKER_SDRYG( 24, 78) = 0.301356E+00
+PKER_SDRYG( 24, 79) = 0.294575E+00
+PKER_SDRYG( 24, 80) = 0.287878E+00
+PKER_SDRYG( 25, 1) = 0.137270E+01
+PKER_SDRYG( 25, 2) = 0.134747E+01
+PKER_SDRYG( 25, 3) = 0.132270E+01
+PKER_SDRYG( 25, 4) = 0.129838E+01
+PKER_SDRYG( 25, 5) = 0.127449E+01
+PKER_SDRYG( 25, 6) = 0.125103E+01
+PKER_SDRYG( 25, 7) = 0.122798E+01
+PKER_SDRYG( 25, 8) = 0.120536E+01
+PKER_SDRYG( 25, 9) = 0.118313E+01
+PKER_SDRYG( 25, 10) = 0.116131E+01
+PKER_SDRYG( 25, 11) = 0.113987E+01
+PKER_SDRYG( 25, 12) = 0.111882E+01
+PKER_SDRYG( 25, 13) = 0.109815E+01
+PKER_SDRYG( 25, 14) = 0.107785E+01
+PKER_SDRYG( 25, 15) = 0.105791E+01
+PKER_SDRYG( 25, 16) = 0.103833E+01
+PKER_SDRYG( 25, 17) = 0.101910E+01
+PKER_SDRYG( 25, 18) = 0.100021E+01
+PKER_SDRYG( 25, 19) = 0.981659E+00
+PKER_SDRYG( 25, 20) = 0.963441E+00
+PKER_SDRYG( 25, 21) = 0.945549E+00
+PKER_SDRYG( 25, 22) = 0.927977E+00
+PKER_SDRYG( 25, 23) = 0.910720E+00
+PKER_SDRYG( 25, 24) = 0.893770E+00
+PKER_SDRYG( 25, 25) = 0.877123E+00
+PKER_SDRYG( 25, 26) = 0.860774E+00
+PKER_SDRYG( 25, 27) = 0.844716E+00
+PKER_SDRYG( 25, 28) = 0.828945E+00
+PKER_SDRYG( 25, 29) = 0.813456E+00
+PKER_SDRYG( 25, 30) = 0.798242E+00
+PKER_SDRYG( 25, 31) = 0.783300E+00
+PKER_SDRYG( 25, 32) = 0.768623E+00
+PKER_SDRYG( 25, 33) = 0.754208E+00
+PKER_SDRYG( 25, 34) = 0.740050E+00
+PKER_SDRYG( 25, 35) = 0.726143E+00
+PKER_SDRYG( 25, 36) = 0.712483E+00
+PKER_SDRYG( 25, 37) = 0.699065E+00
+PKER_SDRYG( 25, 38) = 0.685886E+00
+PKER_SDRYG( 25, 39) = 0.672940E+00
+PKER_SDRYG( 25, 40) = 0.660223E+00
+PKER_SDRYG( 25, 41) = 0.647731E+00
+PKER_SDRYG( 25, 42) = 0.635460E+00
+PKER_SDRYG( 25, 43) = 0.623406E+00
+PKER_SDRYG( 25, 44) = 0.611563E+00
+PKER_SDRYG( 25, 45) = 0.599929E+00
+PKER_SDRYG( 25, 46) = 0.588500E+00
+PKER_SDRYG( 25, 47) = 0.577271E+00
+PKER_SDRYG( 25, 48) = 0.566238E+00
+PKER_SDRYG( 25, 49) = 0.555398E+00
+PKER_SDRYG( 25, 50) = 0.544748E+00
+PKER_SDRYG( 25, 51) = 0.534282E+00
+PKER_SDRYG( 25, 52) = 0.523998E+00
+PKER_SDRYG( 25, 53) = 0.513893E+00
+PKER_SDRYG( 25, 54) = 0.503961E+00
+PKER_SDRYG( 25, 55) = 0.494201E+00
+PKER_SDRYG( 25, 56) = 0.484608E+00
+PKER_SDRYG( 25, 57) = 0.475179E+00
+PKER_SDRYG( 25, 58) = 0.465910E+00
+PKER_SDRYG( 25, 59) = 0.456798E+00
+PKER_SDRYG( 25, 60) = 0.447841E+00
+PKER_SDRYG( 25, 61) = 0.439033E+00
+PKER_SDRYG( 25, 62) = 0.430373E+00
+PKER_SDRYG( 25, 63) = 0.421857E+00
+PKER_SDRYG( 25, 64) = 0.413481E+00
+PKER_SDRYG( 25, 65) = 0.405242E+00
+PKER_SDRYG( 25, 66) = 0.397138E+00
+PKER_SDRYG( 25, 67) = 0.389164E+00
+PKER_SDRYG( 25, 68) = 0.381318E+00
+PKER_SDRYG( 25, 69) = 0.373597E+00
+PKER_SDRYG( 25, 70) = 0.365997E+00
+PKER_SDRYG( 25, 71) = 0.358515E+00
+PKER_SDRYG( 25, 72) = 0.351149E+00
+PKER_SDRYG( 25, 73) = 0.343894E+00
+PKER_SDRYG( 25, 74) = 0.336748E+00
+PKER_SDRYG( 25, 75) = 0.329708E+00
+PKER_SDRYG( 25, 76) = 0.322770E+00
+PKER_SDRYG( 25, 77) = 0.315933E+00
+PKER_SDRYG( 25, 78) = 0.309191E+00
+PKER_SDRYG( 25, 79) = 0.302543E+00
+PKER_SDRYG( 25, 80) = 0.295986E+00
+PKER_SDRYG( 26, 1) = 0.137740E+01
+PKER_SDRYG( 26, 2) = 0.135218E+01
+PKER_SDRYG( 26, 3) = 0.132741E+01
+PKER_SDRYG( 26, 4) = 0.130308E+01
+PKER_SDRYG( 26, 5) = 0.127919E+01
+PKER_SDRYG( 26, 6) = 0.125573E+01
+PKER_SDRYG( 26, 7) = 0.123269E+01
+PKER_SDRYG( 26, 8) = 0.121007E+01
+PKER_SDRYG( 26, 9) = 0.118785E+01
+PKER_SDRYG( 26, 10) = 0.116602E+01
+PKER_SDRYG( 26, 11) = 0.114459E+01
+PKER_SDRYG( 26, 12) = 0.112354E+01
+PKER_SDRYG( 26, 13) = 0.110287E+01
+PKER_SDRYG( 26, 14) = 0.108257E+01
+PKER_SDRYG( 26, 15) = 0.106264E+01
+PKER_SDRYG( 26, 16) = 0.104306E+01
+PKER_SDRYG( 26, 17) = 0.102383E+01
+PKER_SDRYG( 26, 18) = 0.100495E+01
+PKER_SDRYG( 26, 19) = 0.986399E+00
+PKER_SDRYG( 26, 20) = 0.968185E+00
+PKER_SDRYG( 26, 21) = 0.950297E+00
+PKER_SDRYG( 26, 22) = 0.932729E+00
+PKER_SDRYG( 26, 23) = 0.915476E+00
+PKER_SDRYG( 26, 24) = 0.898531E+00
+PKER_SDRYG( 26, 25) = 0.881889E+00
+PKER_SDRYG( 26, 26) = 0.865544E+00
+PKER_SDRYG( 26, 27) = 0.849492E+00
+PKER_SDRYG( 26, 28) = 0.833727E+00
+PKER_SDRYG( 26, 29) = 0.818243E+00
+PKER_SDRYG( 26, 30) = 0.803035E+00
+PKER_SDRYG( 26, 31) = 0.788100E+00
+PKER_SDRYG( 26, 32) = 0.773430E+00
+PKER_SDRYG( 26, 33) = 0.759023E+00
+PKER_SDRYG( 26, 34) = 0.744872E+00
+PKER_SDRYG( 26, 35) = 0.730973E+00
+PKER_SDRYG( 26, 36) = 0.717322E+00
+PKER_SDRYG( 26, 37) = 0.703914E+00
+PKER_SDRYG( 26, 38) = 0.690744E+00
+PKER_SDRYG( 26, 39) = 0.677808E+00
+PKER_SDRYG( 26, 40) = 0.665103E+00
+PKER_SDRYG( 26, 41) = 0.652622E+00
+PKER_SDRYG( 26, 42) = 0.640363E+00
+PKER_SDRYG( 26, 43) = 0.628322E+00
+PKER_SDRYG( 26, 44) = 0.616493E+00
+PKER_SDRYG( 26, 45) = 0.604874E+00
+PKER_SDRYG( 26, 46) = 0.593460E+00
+PKER_SDRYG( 26, 47) = 0.582247E+00
+PKER_SDRYG( 26, 48) = 0.571232E+00
+PKER_SDRYG( 26, 49) = 0.560410E+00
+PKER_SDRYG( 26, 50) = 0.549779E+00
+PKER_SDRYG( 26, 51) = 0.539334E+00
+PKER_SDRYG( 26, 52) = 0.529072E+00
+PKER_SDRYG( 26, 53) = 0.518989E+00
+PKER_SDRYG( 26, 54) = 0.509082E+00
+PKER_SDRYG( 26, 55) = 0.499347E+00
+PKER_SDRYG( 26, 56) = 0.489782E+00
+PKER_SDRYG( 26, 57) = 0.480382E+00
+PKER_SDRYG( 26, 58) = 0.471144E+00
+PKER_SDRYG( 26, 59) = 0.462065E+00
+PKER_SDRYG( 26, 60) = 0.453142E+00
+PKER_SDRYG( 26, 61) = 0.444371E+00
+PKER_SDRYG( 26, 62) = 0.435750E+00
+PKER_SDRYG( 26, 63) = 0.427274E+00
+PKER_SDRYG( 26, 64) = 0.418942E+00
+PKER_SDRYG( 26, 65) = 0.410750E+00
+PKER_SDRYG( 26, 66) = 0.402694E+00
+PKER_SDRYG( 26, 67) = 0.394773E+00
+PKER_SDRYG( 26, 68) = 0.386982E+00
+PKER_SDRYG( 26, 69) = 0.379319E+00
+PKER_SDRYG( 26, 70) = 0.371781E+00
+PKER_SDRYG( 26, 71) = 0.364364E+00
+PKER_SDRYG( 26, 72) = 0.357067E+00
+PKER_SDRYG( 26, 73) = 0.349885E+00
+PKER_SDRYG( 26, 74) = 0.342816E+00
+PKER_SDRYG( 26, 75) = 0.335858E+00
+PKER_SDRYG( 26, 76) = 0.329006E+00
+PKER_SDRYG( 26, 77) = 0.322259E+00
+PKER_SDRYG( 26, 78) = 0.315613E+00
+PKER_SDRYG( 26, 79) = 0.309066E+00
+PKER_SDRYG( 26, 80) = 0.302615E+00
+PKER_SDRYG( 27, 1) = 0.138142E+01
+PKER_SDRYG( 27, 2) = 0.135620E+01
+PKER_SDRYG( 27, 3) = 0.133143E+01
+PKER_SDRYG( 27, 4) = 0.130711E+01
+PKER_SDRYG( 27, 5) = 0.128322E+01
+PKER_SDRYG( 27, 6) = 0.125976E+01
+PKER_SDRYG( 27, 7) = 0.123672E+01
+PKER_SDRYG( 27, 8) = 0.121410E+01
+PKER_SDRYG( 27, 9) = 0.119188E+01
+PKER_SDRYG( 27, 10) = 0.117005E+01
+PKER_SDRYG( 27, 11) = 0.114862E+01
+PKER_SDRYG( 27, 12) = 0.112758E+01
+PKER_SDRYG( 27, 13) = 0.110691E+01
+PKER_SDRYG( 27, 14) = 0.108661E+01
+PKER_SDRYG( 27, 15) = 0.106668E+01
+PKER_SDRYG( 27, 16) = 0.104710E+01
+PKER_SDRYG( 27, 17) = 0.102787E+01
+PKER_SDRYG( 27, 18) = 0.100899E+01
+PKER_SDRYG( 27, 19) = 0.990449E+00
+PKER_SDRYG( 27, 20) = 0.972238E+00
+PKER_SDRYG( 27, 21) = 0.954353E+00
+PKER_SDRYG( 27, 22) = 0.936788E+00
+PKER_SDRYG( 27, 23) = 0.919537E+00
+PKER_SDRYG( 27, 24) = 0.902596E+00
+PKER_SDRYG( 27, 25) = 0.885957E+00
+PKER_SDRYG( 27, 26) = 0.869617E+00
+PKER_SDRYG( 27, 27) = 0.853568E+00
+PKER_SDRYG( 27, 28) = 0.837807E+00
+PKER_SDRYG( 27, 29) = 0.822328E+00
+PKER_SDRYG( 27, 30) = 0.807125E+00
+PKER_SDRYG( 27, 31) = 0.792194E+00
+PKER_SDRYG( 27, 32) = 0.777530E+00
+PKER_SDRYG( 27, 33) = 0.763128E+00
+PKER_SDRYG( 27, 34) = 0.748983E+00
+PKER_SDRYG( 27, 35) = 0.735091E+00
+PKER_SDRYG( 27, 36) = 0.721446E+00
+PKER_SDRYG( 27, 37) = 0.708045E+00
+PKER_SDRYG( 27, 38) = 0.694882E+00
+PKER_SDRYG( 27, 39) = 0.681954E+00
+PKER_SDRYG( 27, 40) = 0.669257E+00
+PKER_SDRYG( 27, 41) = 0.656785E+00
+PKER_SDRYG( 27, 42) = 0.644535E+00
+PKER_SDRYG( 27, 43) = 0.632503E+00
+PKER_SDRYG( 27, 44) = 0.620685E+00
+PKER_SDRYG( 27, 45) = 0.609076E+00
+PKER_SDRYG( 27, 46) = 0.597673E+00
+PKER_SDRYG( 27, 47) = 0.586473E+00
+PKER_SDRYG( 27, 48) = 0.575470E+00
+PKER_SDRYG( 27, 49) = 0.564662E+00
+PKER_SDRYG( 27, 50) = 0.554045E+00
+PKER_SDRYG( 27, 51) = 0.543615E+00
+PKER_SDRYG( 27, 52) = 0.533369E+00
+PKER_SDRYG( 27, 53) = 0.523304E+00
+PKER_SDRYG( 27, 54) = 0.513415E+00
+PKER_SDRYG( 27, 55) = 0.503699E+00
+PKER_SDRYG( 27, 56) = 0.494153E+00
+PKER_SDRYG( 27, 57) = 0.484775E+00
+PKER_SDRYG( 27, 58) = 0.475559E+00
+PKER_SDRYG( 27, 59) = 0.466504E+00
+PKER_SDRYG( 27, 60) = 0.457607E+00
+PKER_SDRYG( 27, 61) = 0.448863E+00
+PKER_SDRYG( 27, 62) = 0.440270E+00
+PKER_SDRYG( 27, 63) = 0.431825E+00
+PKER_SDRYG( 27, 64) = 0.423525E+00
+PKER_SDRYG( 27, 65) = 0.415366E+00
+PKER_SDRYG( 27, 66) = 0.407347E+00
+PKER_SDRYG( 27, 67) = 0.399463E+00
+PKER_SDRYG( 27, 68) = 0.391713E+00
+PKER_SDRYG( 27, 69) = 0.384092E+00
+PKER_SDRYG( 27, 70) = 0.376599E+00
+PKER_SDRYG( 27, 71) = 0.369231E+00
+PKER_SDRYG( 27, 72) = 0.361984E+00
+PKER_SDRYG( 27, 73) = 0.354856E+00
+PKER_SDRYG( 27, 74) = 0.347844E+00
+PKER_SDRYG( 27, 75) = 0.340945E+00
+PKER_SDRYG( 27, 76) = 0.334157E+00
+PKER_SDRYG( 27, 77) = 0.327477E+00
+PKER_SDRYG( 27, 78) = 0.320902E+00
+PKER_SDRYG( 27, 79) = 0.314430E+00
+PKER_SDRYG( 27, 80) = 0.308057E+00
+PKER_SDRYG( 28, 1) = 0.138485E+01
+PKER_SDRYG( 28, 2) = 0.135964E+01
+PKER_SDRYG( 28, 3) = 0.133487E+01
+PKER_SDRYG( 28, 4) = 0.131055E+01
+PKER_SDRYG( 28, 5) = 0.128666E+01
+PKER_SDRYG( 28, 6) = 0.126320E+01
+PKER_SDRYG( 28, 7) = 0.124016E+01
+PKER_SDRYG( 28, 8) = 0.121754E+01
+PKER_SDRYG( 28, 9) = 0.119532E+01
+PKER_SDRYG( 28, 10) = 0.117350E+01
+PKER_SDRYG( 28, 11) = 0.115207E+01
+PKER_SDRYG( 28, 12) = 0.113103E+01
+PKER_SDRYG( 28, 13) = 0.111036E+01
+PKER_SDRYG( 28, 14) = 0.109006E+01
+PKER_SDRYG( 28, 15) = 0.107013E+01
+PKER_SDRYG( 28, 16) = 0.105056E+01
+PKER_SDRYG( 28, 17) = 0.103133E+01
+PKER_SDRYG( 28, 18) = 0.101245E+01
+PKER_SDRYG( 28, 19) = 0.993910E+00
+PKER_SDRYG( 28, 20) = 0.975701E+00
+PKER_SDRYG( 28, 21) = 0.957818E+00
+PKER_SDRYG( 28, 22) = 0.940255E+00
+PKER_SDRYG( 28, 23) = 0.923007E+00
+PKER_SDRYG( 28, 24) = 0.906068E+00
+PKER_SDRYG( 28, 25) = 0.889433E+00
+PKER_SDRYG( 28, 26) = 0.873095E+00
+PKER_SDRYG( 28, 27) = 0.857050E+00
+PKER_SDRYG( 28, 28) = 0.841291E+00
+PKER_SDRYG( 28, 29) = 0.825815E+00
+PKER_SDRYG( 28, 30) = 0.810616E+00
+PKER_SDRYG( 28, 31) = 0.795689E+00
+PKER_SDRYG( 28, 32) = 0.781029E+00
+PKER_SDRYG( 28, 33) = 0.766631E+00
+PKER_SDRYG( 28, 34) = 0.752490E+00
+PKER_SDRYG( 28, 35) = 0.738602E+00
+PKER_SDRYG( 28, 36) = 0.724963E+00
+PKER_SDRYG( 28, 37) = 0.711567E+00
+PKER_SDRYG( 28, 38) = 0.698410E+00
+PKER_SDRYG( 28, 39) = 0.685488E+00
+PKER_SDRYG( 28, 40) = 0.672796E+00
+PKER_SDRYG( 28, 41) = 0.660331E+00
+PKER_SDRYG( 28, 42) = 0.648088E+00
+PKER_SDRYG( 28, 43) = 0.636063E+00
+PKER_SDRYG( 28, 44) = 0.624252E+00
+PKER_SDRYG( 28, 45) = 0.612651E+00
+PKER_SDRYG( 28, 46) = 0.601257E+00
+PKER_SDRYG( 28, 47) = 0.590065E+00
+PKER_SDRYG( 28, 48) = 0.579072E+00
+PKER_SDRYG( 28, 49) = 0.568275E+00
+PKER_SDRYG( 28, 50) = 0.557668E+00
+PKER_SDRYG( 28, 51) = 0.547250E+00
+PKER_SDRYG( 28, 52) = 0.537015E+00
+PKER_SDRYG( 28, 53) = 0.526962E+00
+PKER_SDRYG( 28, 54) = 0.517087E+00
+PKER_SDRYG( 28, 55) = 0.507385E+00
+PKER_SDRYG( 28, 56) = 0.497854E+00
+PKER_SDRYG( 28, 57) = 0.488491E+00
+PKER_SDRYG( 28, 58) = 0.479293E+00
+PKER_SDRYG( 28, 59) = 0.470256E+00
+PKER_SDRYG( 28, 60) = 0.461377E+00
+PKER_SDRYG( 28, 61) = 0.452653E+00
+PKER_SDRYG( 28, 62) = 0.444081E+00
+PKER_SDRYG( 28, 63) = 0.435658E+00
+PKER_SDRYG( 28, 64) = 0.427381E+00
+PKER_SDRYG( 28, 65) = 0.419248E+00
+PKER_SDRYG( 28, 66) = 0.411255E+00
+PKER_SDRYG( 28, 67) = 0.403399E+00
+PKER_SDRYG( 28, 68) = 0.395678E+00
+PKER_SDRYG( 28, 69) = 0.388089E+00
+PKER_SDRYG( 28, 70) = 0.380629E+00
+PKER_SDRYG( 28, 71) = 0.373296E+00
+PKER_SDRYG( 28, 72) = 0.366086E+00
+PKER_SDRYG( 28, 73) = 0.358998E+00
+PKER_SDRYG( 28, 74) = 0.352028E+00
+PKER_SDRYG( 28, 75) = 0.345173E+00
+PKER_SDRYG( 28, 76) = 0.338432E+00
+PKER_SDRYG( 28, 77) = 0.331802E+00
+PKER_SDRYG( 28, 78) = 0.325279E+00
+PKER_SDRYG( 28, 79) = 0.318862E+00
+PKER_SDRYG( 28, 80) = 0.312548E+00
+PKER_SDRYG( 29, 1) = 0.138780E+01
+PKER_SDRYG( 29, 2) = 0.136258E+01
+PKER_SDRYG( 29, 3) = 0.133781E+01
+PKER_SDRYG( 29, 4) = 0.131349E+01
+PKER_SDRYG( 29, 5) = 0.128960E+01
+PKER_SDRYG( 29, 6) = 0.126615E+01
+PKER_SDRYG( 29, 7) = 0.124311E+01
+PKER_SDRYG( 29, 8) = 0.122049E+01
+PKER_SDRYG( 29, 9) = 0.119827E+01
+PKER_SDRYG( 29, 10) = 0.117645E+01
+PKER_SDRYG( 29, 11) = 0.115502E+01
+PKER_SDRYG( 29, 12) = 0.113398E+01
+PKER_SDRYG( 29, 13) = 0.111331E+01
+PKER_SDRYG( 29, 14) = 0.109302E+01
+PKER_SDRYG( 29, 15) = 0.107308E+01
+PKER_SDRYG( 29, 16) = 0.105351E+01
+PKER_SDRYG( 29, 17) = 0.103429E+01
+PKER_SDRYG( 29, 18) = 0.101541E+01
+PKER_SDRYG( 29, 19) = 0.996869E+00
+PKER_SDRYG( 29, 20) = 0.978661E+00
+PKER_SDRYG( 29, 21) = 0.960779E+00
+PKER_SDRYG( 29, 22) = 0.943218E+00
+PKER_SDRYG( 29, 23) = 0.925972E+00
+PKER_SDRYG( 29, 24) = 0.909035E+00
+PKER_SDRYG( 29, 25) = 0.892402E+00
+PKER_SDRYG( 29, 26) = 0.876066E+00
+PKER_SDRYG( 29, 27) = 0.860023E+00
+PKER_SDRYG( 29, 28) = 0.844267E+00
+PKER_SDRYG( 29, 29) = 0.828794E+00
+PKER_SDRYG( 29, 30) = 0.813597E+00
+PKER_SDRYG( 29, 31) = 0.798673E+00
+PKER_SDRYG( 29, 32) = 0.784016E+00
+PKER_SDRYG( 29, 33) = 0.769621E+00
+PKER_SDRYG( 29, 34) = 0.755484E+00
+PKER_SDRYG( 29, 35) = 0.741599E+00
+PKER_SDRYG( 29, 36) = 0.727963E+00
+PKER_SDRYG( 29, 37) = 0.714571E+00
+PKER_SDRYG( 29, 38) = 0.701418E+00
+PKER_SDRYG( 29, 39) = 0.688500E+00
+PKER_SDRYG( 29, 40) = 0.675813E+00
+PKER_SDRYG( 29, 41) = 0.663353E+00
+PKER_SDRYG( 29, 42) = 0.651115E+00
+PKER_SDRYG( 29, 43) = 0.639096E+00
+PKER_SDRYG( 29, 44) = 0.627290E+00
+PKER_SDRYG( 29, 45) = 0.615696E+00
+PKER_SDRYG( 29, 46) = 0.604308E+00
+PKER_SDRYG( 29, 47) = 0.593123E+00
+PKER_SDRYG( 29, 48) = 0.582137E+00
+PKER_SDRYG( 29, 49) = 0.571347E+00
+PKER_SDRYG( 29, 50) = 0.560748E+00
+PKER_SDRYG( 29, 51) = 0.550338E+00
+PKER_SDRYG( 29, 52) = 0.540113E+00
+PKER_SDRYG( 29, 53) = 0.530069E+00
+PKER_SDRYG( 29, 54) = 0.520203E+00
+PKER_SDRYG( 29, 55) = 0.510512E+00
+PKER_SDRYG( 29, 56) = 0.500993E+00
+PKER_SDRYG( 29, 57) = 0.491641E+00
+PKER_SDRYG( 29, 58) = 0.482455E+00
+PKER_SDRYG( 29, 59) = 0.473431E+00
+PKER_SDRYG( 29, 60) = 0.464566E+00
+PKER_SDRYG( 29, 61) = 0.455857E+00
+PKER_SDRYG( 29, 62) = 0.447300E+00
+PKER_SDRYG( 29, 63) = 0.438894E+00
+PKER_SDRYG( 29, 64) = 0.430635E+00
+PKER_SDRYG( 29, 65) = 0.422520E+00
+PKER_SDRYG( 29, 66) = 0.414546E+00
+PKER_SDRYG( 29, 67) = 0.406711E+00
+PKER_SDRYG( 29, 68) = 0.399012E+00
+PKER_SDRYG( 29, 69) = 0.391446E+00
+PKER_SDRYG( 29, 70) = 0.384011E+00
+PKER_SDRYG( 29, 71) = 0.376704E+00
+PKER_SDRYG( 29, 72) = 0.369521E+00
+PKER_SDRYG( 29, 73) = 0.362462E+00
+PKER_SDRYG( 29, 74) = 0.355523E+00
+PKER_SDRYG( 29, 75) = 0.348701E+00
+PKER_SDRYG( 29, 76) = 0.341994E+00
+PKER_SDRYG( 29, 77) = 0.335400E+00
+PKER_SDRYG( 29, 78) = 0.328916E+00
+PKER_SDRYG( 29, 79) = 0.322540E+00
+PKER_SDRYG( 29, 80) = 0.316269E+00
+PKER_SDRYG( 30, 1) = 0.139031E+01
+PKER_SDRYG( 30, 2) = 0.136509E+01
+PKER_SDRYG( 30, 3) = 0.134033E+01
+PKER_SDRYG( 30, 4) = 0.131600E+01
+PKER_SDRYG( 30, 5) = 0.129212E+01
+PKER_SDRYG( 30, 6) = 0.126866E+01
+PKER_SDRYG( 30, 7) = 0.124563E+01
+PKER_SDRYG( 30, 8) = 0.122300E+01
+PKER_SDRYG( 30, 9) = 0.120079E+01
+PKER_SDRYG( 30, 10) = 0.117897E+01
+PKER_SDRYG( 30, 11) = 0.115754E+01
+PKER_SDRYG( 30, 12) = 0.113650E+01
+PKER_SDRYG( 30, 13) = 0.111583E+01
+PKER_SDRYG( 30, 14) = 0.109554E+01
+PKER_SDRYG( 30, 15) = 0.107561E+01
+PKER_SDRYG( 30, 16) = 0.105604E+01
+PKER_SDRYG( 30, 17) = 0.103681E+01
+PKER_SDRYG( 30, 18) = 0.101794E+01
+PKER_SDRYG( 30, 19) = 0.999397E+00
+PKER_SDRYG( 30, 20) = 0.981191E+00
+PKER_SDRYG( 30, 21) = 0.963311E+00
+PKER_SDRYG( 30, 22) = 0.945751E+00
+PKER_SDRYG( 30, 23) = 0.928506E+00
+PKER_SDRYG( 30, 24) = 0.911571E+00
+PKER_SDRYG( 30, 25) = 0.894938E+00
+PKER_SDRYG( 30, 26) = 0.878604E+00
+PKER_SDRYG( 30, 27) = 0.862563E+00
+PKER_SDRYG( 30, 28) = 0.846809E+00
+PKER_SDRYG( 30, 29) = 0.831338E+00
+PKER_SDRYG( 30, 30) = 0.816143E+00
+PKER_SDRYG( 30, 31) = 0.801221E+00
+PKER_SDRYG( 30, 32) = 0.786566E+00
+PKER_SDRYG( 30, 33) = 0.772174E+00
+PKER_SDRYG( 30, 34) = 0.758039E+00
+PKER_SDRYG( 30, 35) = 0.744157E+00
+PKER_SDRYG( 30, 36) = 0.730524E+00
+PKER_SDRYG( 30, 37) = 0.717135E+00
+PKER_SDRYG( 30, 38) = 0.703985E+00
+PKER_SDRYG( 30, 39) = 0.691070E+00
+PKER_SDRYG( 30, 40) = 0.678387E+00
+PKER_SDRYG( 30, 41) = 0.665930E+00
+PKER_SDRYG( 30, 42) = 0.653696E+00
+PKER_SDRYG( 30, 43) = 0.641681E+00
+PKER_SDRYG( 30, 44) = 0.629880E+00
+PKER_SDRYG( 30, 45) = 0.618290E+00
+PKER_SDRYG( 30, 46) = 0.606907E+00
+PKER_SDRYG( 30, 47) = 0.595727E+00
+PKER_SDRYG( 30, 48) = 0.584746E+00
+PKER_SDRYG( 30, 49) = 0.573962E+00
+PKER_SDRYG( 30, 50) = 0.563369E+00
+PKER_SDRYG( 30, 51) = 0.552965E+00
+PKER_SDRYG( 30, 52) = 0.542747E+00
+PKER_SDRYG( 30, 53) = 0.532710E+00
+PKER_SDRYG( 30, 54) = 0.522852E+00
+PKER_SDRYG( 30, 55) = 0.513169E+00
+PKER_SDRYG( 30, 56) = 0.503657E+00
+PKER_SDRYG( 30, 57) = 0.494315E+00
+PKER_SDRYG( 30, 58) = 0.485138E+00
+PKER_SDRYG( 30, 59) = 0.476124E+00
+PKER_SDRYG( 30, 60) = 0.467269E+00
+PKER_SDRYG( 30, 61) = 0.458570E+00
+PKER_SDRYG( 30, 62) = 0.450026E+00
+PKER_SDRYG( 30, 63) = 0.441632E+00
+PKER_SDRYG( 30, 64) = 0.433385E+00
+PKER_SDRYG( 30, 65) = 0.425284E+00
+PKER_SDRYG( 30, 66) = 0.417325E+00
+PKER_SDRYG( 30, 67) = 0.409505E+00
+PKER_SDRYG( 30, 68) = 0.401823E+00
+PKER_SDRYG( 30, 69) = 0.394274E+00
+PKER_SDRYG( 30, 70) = 0.386857E+00
+PKER_SDRYG( 30, 71) = 0.379569E+00
+PKER_SDRYG( 30, 72) = 0.372407E+00
+PKER_SDRYG( 30, 73) = 0.365369E+00
+PKER_SDRYG( 30, 74) = 0.358452E+00
+PKER_SDRYG( 30, 75) = 0.351655E+00
+PKER_SDRYG( 30, 76) = 0.344974E+00
+PKER_SDRYG( 30, 77) = 0.338407E+00
+PKER_SDRYG( 30, 78) = 0.331951E+00
+PKER_SDRYG( 30, 79) = 0.325606E+00
+PKER_SDRYG( 30, 80) = 0.319367E+00
+PKER_SDRYG( 31, 1) = 0.139246E+01
+PKER_SDRYG( 31, 2) = 0.136724E+01
+PKER_SDRYG( 31, 3) = 0.134248E+01
+PKER_SDRYG( 31, 4) = 0.131816E+01
+PKER_SDRYG( 31, 5) = 0.129427E+01
+PKER_SDRYG( 31, 6) = 0.127082E+01
+PKER_SDRYG( 31, 7) = 0.124778E+01
+PKER_SDRYG( 31, 8) = 0.122516E+01
+PKER_SDRYG( 31, 9) = 0.120294E+01
+PKER_SDRYG( 31, 10) = 0.118112E+01
+PKER_SDRYG( 31, 11) = 0.115970E+01
+PKER_SDRYG( 31, 12) = 0.113866E+01
+PKER_SDRYG( 31, 13) = 0.111799E+01
+PKER_SDRYG( 31, 14) = 0.109770E+01
+PKER_SDRYG( 31, 15) = 0.107777E+01
+PKER_SDRYG( 31, 16) = 0.105820E+01
+PKER_SDRYG( 31, 17) = 0.103897E+01
+PKER_SDRYG( 31, 18) = 0.102010E+01
+PKER_SDRYG( 31, 19) = 0.100156E+01
+PKER_SDRYG( 31, 20) = 0.983353E+00
+PKER_SDRYG( 31, 21) = 0.965474E+00
+PKER_SDRYG( 31, 22) = 0.947916E+00
+PKER_SDRYG( 31, 23) = 0.930672E+00
+PKER_SDRYG( 31, 24) = 0.913738E+00
+PKER_SDRYG( 31, 25) = 0.897107E+00
+PKER_SDRYG( 31, 26) = 0.880774E+00
+PKER_SDRYG( 31, 27) = 0.864734E+00
+PKER_SDRYG( 31, 28) = 0.848981E+00
+PKER_SDRYG( 31, 29) = 0.833511E+00
+PKER_SDRYG( 31, 30) = 0.818319E+00
+PKER_SDRYG( 31, 31) = 0.803398E+00
+PKER_SDRYG( 31, 32) = 0.788745E+00
+PKER_SDRYG( 31, 33) = 0.774354E+00
+PKER_SDRYG( 31, 34) = 0.760221E+00
+PKER_SDRYG( 31, 35) = 0.746341E+00
+PKER_SDRYG( 31, 36) = 0.732710E+00
+PKER_SDRYG( 31, 37) = 0.719323E+00
+PKER_SDRYG( 31, 38) = 0.706176E+00
+PKER_SDRYG( 31, 39) = 0.693264E+00
+PKER_SDRYG( 31, 40) = 0.680583E+00
+PKER_SDRYG( 31, 41) = 0.668129E+00
+PKER_SDRYG( 31, 42) = 0.655898E+00
+PKER_SDRYG( 31, 43) = 0.643886E+00
+PKER_SDRYG( 31, 44) = 0.632088E+00
+PKER_SDRYG( 31, 45) = 0.620502E+00
+PKER_SDRYG( 31, 46) = 0.609122E+00
+PKER_SDRYG( 31, 47) = 0.597946E+00
+PKER_SDRYG( 31, 48) = 0.586970E+00
+PKER_SDRYG( 31, 49) = 0.576189E+00
+PKER_SDRYG( 31, 50) = 0.565601E+00
+PKER_SDRYG( 31, 51) = 0.555202E+00
+PKER_SDRYG( 31, 52) = 0.544989E+00
+PKER_SDRYG( 31, 53) = 0.534957E+00
+PKER_SDRYG( 31, 54) = 0.525104E+00
+PKER_SDRYG( 31, 55) = 0.515427E+00
+PKER_SDRYG( 31, 56) = 0.505922E+00
+PKER_SDRYG( 31, 57) = 0.496586E+00
+PKER_SDRYG( 31, 58) = 0.487416E+00
+PKER_SDRYG( 31, 59) = 0.478410E+00
+PKER_SDRYG( 31, 60) = 0.469562E+00
+PKER_SDRYG( 31, 61) = 0.460872E+00
+PKER_SDRYG( 31, 62) = 0.452336E+00
+PKER_SDRYG( 31, 63) = 0.443951E+00
+PKER_SDRYG( 31, 64) = 0.435715E+00
+PKER_SDRYG( 31, 65) = 0.427624E+00
+PKER_SDRYG( 31, 66) = 0.419675E+00
+PKER_SDRYG( 31, 67) = 0.411867E+00
+PKER_SDRYG( 31, 68) = 0.404197E+00
+PKER_SDRYG( 31, 69) = 0.396661E+00
+PKER_SDRYG( 31, 70) = 0.389257E+00
+PKER_SDRYG( 31, 71) = 0.381983E+00
+PKER_SDRYG( 31, 72) = 0.374837E+00
+PKER_SDRYG( 31, 73) = 0.367815E+00
+PKER_SDRYG( 31, 74) = 0.360915E+00
+PKER_SDRYG( 31, 75) = 0.354136E+00
+PKER_SDRYG( 31, 76) = 0.347474E+00
+PKER_SDRYG( 31, 77) = 0.340927E+00
+PKER_SDRYG( 31, 78) = 0.334493E+00
+PKER_SDRYG( 31, 79) = 0.328169E+00
+PKER_SDRYG( 31, 80) = 0.321954E+00
+PKER_SDRYG( 32, 1) = 0.139430E+01
+PKER_SDRYG( 32, 2) = 0.136908E+01
+PKER_SDRYG( 32, 3) = 0.134432E+01
+PKER_SDRYG( 32, 4) = 0.132000E+01
+PKER_SDRYG( 32, 5) = 0.129611E+01
+PKER_SDRYG( 32, 6) = 0.127266E+01
+PKER_SDRYG( 32, 7) = 0.124962E+01
+PKER_SDRYG( 32, 8) = 0.122700E+01
+PKER_SDRYG( 32, 9) = 0.120479E+01
+PKER_SDRYG( 32, 10) = 0.118297E+01
+PKER_SDRYG( 32, 11) = 0.116154E+01
+PKER_SDRYG( 32, 12) = 0.114050E+01
+PKER_SDRYG( 32, 13) = 0.111984E+01
+PKER_SDRYG( 32, 14) = 0.109954E+01
+PKER_SDRYG( 32, 15) = 0.107961E+01
+PKER_SDRYG( 32, 16) = 0.106004E+01
+PKER_SDRYG( 32, 17) = 0.104082E+01
+PKER_SDRYG( 32, 18) = 0.102194E+01
+PKER_SDRYG( 32, 19) = 0.100341E+01
+PKER_SDRYG( 32, 20) = 0.985203E+00
+PKER_SDRYG( 32, 21) = 0.967324E+00
+PKER_SDRYG( 32, 22) = 0.949766E+00
+PKER_SDRYG( 32, 23) = 0.932524E+00
+PKER_SDRYG( 32, 24) = 0.915590E+00
+PKER_SDRYG( 32, 25) = 0.898960E+00
+PKER_SDRYG( 32, 26) = 0.882628E+00
+PKER_SDRYG( 32, 27) = 0.866589E+00
+PKER_SDRYG( 32, 28) = 0.850838E+00
+PKER_SDRYG( 32, 29) = 0.835369E+00
+PKER_SDRYG( 32, 30) = 0.820177E+00
+PKER_SDRYG( 32, 31) = 0.805258E+00
+PKER_SDRYG( 32, 32) = 0.790606E+00
+PKER_SDRYG( 32, 33) = 0.776217E+00
+PKER_SDRYG( 32, 34) = 0.762085E+00
+PKER_SDRYG( 32, 35) = 0.748207E+00
+PKER_SDRYG( 32, 36) = 0.734578E+00
+PKER_SDRYG( 32, 37) = 0.721192E+00
+PKER_SDRYG( 32, 38) = 0.708047E+00
+PKER_SDRYG( 32, 39) = 0.695137E+00
+PKER_SDRYG( 32, 40) = 0.682458E+00
+PKER_SDRYG( 32, 41) = 0.670006E+00
+PKER_SDRYG( 32, 42) = 0.657777E+00
+PKER_SDRYG( 32, 43) = 0.645767E+00
+PKER_SDRYG( 32, 44) = 0.633972E+00
+PKER_SDRYG( 32, 45) = 0.622388E+00
+PKER_SDRYG( 32, 46) = 0.611012E+00
+PKER_SDRYG( 32, 47) = 0.599838E+00
+PKER_SDRYG( 32, 48) = 0.588865E+00
+PKER_SDRYG( 32, 49) = 0.578088E+00
+PKER_SDRYG( 32, 50) = 0.567503E+00
+PKER_SDRYG( 32, 51) = 0.557108E+00
+PKER_SDRYG( 32, 52) = 0.546898E+00
+PKER_SDRYG( 32, 53) = 0.536871E+00
+PKER_SDRYG( 32, 54) = 0.527022E+00
+PKER_SDRYG( 32, 55) = 0.517349E+00
+PKER_SDRYG( 32, 56) = 0.507849E+00
+PKER_SDRYG( 32, 57) = 0.498518E+00
+PKER_SDRYG( 32, 58) = 0.489354E+00
+PKER_SDRYG( 32, 59) = 0.480352E+00
+PKER_SDRYG( 32, 60) = 0.471511E+00
+PKER_SDRYG( 32, 61) = 0.462827E+00
+PKER_SDRYG( 32, 62) = 0.454298E+00
+PKER_SDRYG( 32, 63) = 0.445920E+00
+PKER_SDRYG( 32, 64) = 0.437690E+00
+PKER_SDRYG( 32, 65) = 0.429607E+00
+PKER_SDRYG( 32, 66) = 0.421667E+00
+PKER_SDRYG( 32, 67) = 0.413867E+00
+PKER_SDRYG( 32, 68) = 0.406206E+00
+PKER_SDRYG( 32, 69) = 0.398680E+00
+PKER_SDRYG( 32, 70) = 0.391286E+00
+PKER_SDRYG( 32, 71) = 0.384023E+00
+PKER_SDRYG( 32, 72) = 0.376888E+00
+PKER_SDRYG( 32, 73) = 0.369878E+00
+PKER_SDRYG( 32, 74) = 0.362991E+00
+PKER_SDRYG( 32, 75) = 0.356225E+00
+PKER_SDRYG( 32, 76) = 0.349577E+00
+PKER_SDRYG( 32, 77) = 0.343045E+00
+PKER_SDRYG( 32, 78) = 0.336627E+00
+PKER_SDRYG( 32, 79) = 0.330320E+00
+PKER_SDRYG( 32, 80) = 0.324123E+00
+PKER_SDRYG( 33, 1) = 0.139588E+01
+PKER_SDRYG( 33, 2) = 0.137066E+01
+PKER_SDRYG( 33, 3) = 0.134589E+01
+PKER_SDRYG( 33, 4) = 0.132157E+01
+PKER_SDRYG( 33, 5) = 0.129769E+01
+PKER_SDRYG( 33, 6) = 0.127423E+01
+PKER_SDRYG( 33, 7) = 0.125120E+01
+PKER_SDRYG( 33, 8) = 0.122858E+01
+PKER_SDRYG( 33, 9) = 0.120636E+01
+PKER_SDRYG( 33, 10) = 0.118454E+01
+PKER_SDRYG( 33, 11) = 0.116312E+01
+PKER_SDRYG( 33, 12) = 0.114208E+01
+PKER_SDRYG( 33, 13) = 0.112141E+01
+PKER_SDRYG( 33, 14) = 0.110112E+01
+PKER_SDRYG( 33, 15) = 0.108119E+01
+PKER_SDRYG( 33, 16) = 0.106162E+01
+PKER_SDRYG( 33, 17) = 0.104240E+01
+PKER_SDRYG( 33, 18) = 0.102352E+01
+PKER_SDRYG( 33, 19) = 0.100499E+01
+PKER_SDRYG( 33, 20) = 0.986784E+00
+PKER_SDRYG( 33, 21) = 0.968906E+00
+PKER_SDRYG( 33, 22) = 0.951349E+00
+PKER_SDRYG( 33, 23) = 0.934107E+00
+PKER_SDRYG( 33, 24) = 0.917174E+00
+PKER_SDRYG( 33, 25) = 0.900544E+00
+PKER_SDRYG( 33, 26) = 0.884213E+00
+PKER_SDRYG( 33, 27) = 0.868175E+00
+PKER_SDRYG( 33, 28) = 0.852425E+00
+PKER_SDRYG( 33, 29) = 0.836956E+00
+PKER_SDRYG( 33, 30) = 0.821766E+00
+PKER_SDRYG( 33, 31) = 0.806847E+00
+PKER_SDRYG( 33, 32) = 0.792196E+00
+PKER_SDRYG( 33, 33) = 0.777808E+00
+PKER_SDRYG( 33, 34) = 0.763678E+00
+PKER_SDRYG( 33, 35) = 0.749801E+00
+PKER_SDRYG( 33, 36) = 0.736173E+00
+PKER_SDRYG( 33, 37) = 0.722789E+00
+PKER_SDRYG( 33, 38) = 0.709645E+00
+PKER_SDRYG( 33, 39) = 0.696736E+00
+PKER_SDRYG( 33, 40) = 0.684059E+00
+PKER_SDRYG( 33, 41) = 0.671609E+00
+PKER_SDRYG( 33, 42) = 0.659381E+00
+PKER_SDRYG( 33, 43) = 0.647373E+00
+PKER_SDRYG( 33, 44) = 0.635580E+00
+PKER_SDRYG( 33, 45) = 0.623998E+00
+PKER_SDRYG( 33, 46) = 0.612624E+00
+PKER_SDRYG( 33, 47) = 0.601453E+00
+PKER_SDRYG( 33, 48) = 0.590482E+00
+PKER_SDRYG( 33, 49) = 0.579707E+00
+PKER_SDRYG( 33, 50) = 0.569125E+00
+PKER_SDRYG( 33, 51) = 0.558732E+00
+PKER_SDRYG( 33, 52) = 0.548525E+00
+PKER_SDRYG( 33, 53) = 0.538501E+00
+PKER_SDRYG( 33, 54) = 0.528656E+00
+PKER_SDRYG( 33, 55) = 0.518986E+00
+PKER_SDRYG( 33, 56) = 0.509490E+00
+PKER_SDRYG( 33, 57) = 0.500163E+00
+PKER_SDRYG( 33, 58) = 0.491002E+00
+PKER_SDRYG( 33, 59) = 0.482005E+00
+PKER_SDRYG( 33, 60) = 0.473168E+00
+PKER_SDRYG( 33, 61) = 0.464489E+00
+PKER_SDRYG( 33, 62) = 0.455964E+00
+PKER_SDRYG( 33, 63) = 0.447592E+00
+PKER_SDRYG( 33, 64) = 0.439368E+00
+PKER_SDRYG( 33, 65) = 0.431290E+00
+PKER_SDRYG( 33, 66) = 0.423356E+00
+PKER_SDRYG( 33, 67) = 0.415563E+00
+PKER_SDRYG( 33, 68) = 0.407909E+00
+PKER_SDRYG( 33, 69) = 0.400390E+00
+PKER_SDRYG( 33, 70) = 0.393004E+00
+PKER_SDRYG( 33, 71) = 0.385749E+00
+PKER_SDRYG( 33, 72) = 0.378622E+00
+PKER_SDRYG( 33, 73) = 0.371621E+00
+PKER_SDRYG( 33, 74) = 0.364744E+00
+PKER_SDRYG( 33, 75) = 0.357988E+00
+PKER_SDRYG( 33, 76) = 0.351350E+00
+PKER_SDRYG( 33, 77) = 0.344830E+00
+PKER_SDRYG( 33, 78) = 0.338424E+00
+PKER_SDRYG( 33, 79) = 0.332129E+00
+PKER_SDRYG( 33, 80) = 0.325945E+00
+PKER_SDRYG( 34, 1) = 0.139722E+01
+PKER_SDRYG( 34, 2) = 0.137201E+01
+PKER_SDRYG( 34, 3) = 0.134724E+01
+PKER_SDRYG( 34, 4) = 0.132292E+01
+PKER_SDRYG( 34, 5) = 0.129904E+01
+PKER_SDRYG( 34, 6) = 0.127558E+01
+PKER_SDRYG( 34, 7) = 0.125255E+01
+PKER_SDRYG( 34, 8) = 0.122993E+01
+PKER_SDRYG( 34, 9) = 0.120771E+01
+PKER_SDRYG( 34, 10) = 0.118589E+01
+PKER_SDRYG( 34, 11) = 0.116447E+01
+PKER_SDRYG( 34, 12) = 0.114343E+01
+PKER_SDRYG( 34, 13) = 0.112276E+01
+PKER_SDRYG( 34, 14) = 0.110247E+01
+PKER_SDRYG( 34, 15) = 0.108254E+01
+PKER_SDRYG( 34, 16) = 0.106297E+01
+PKER_SDRYG( 34, 17) = 0.104375E+01
+PKER_SDRYG( 34, 18) = 0.102488E+01
+PKER_SDRYG( 34, 19) = 0.100634E+01
+PKER_SDRYG( 34, 20) = 0.988136E+00
+PKER_SDRYG( 34, 21) = 0.970258E+00
+PKER_SDRYG( 34, 22) = 0.952702E+00
+PKER_SDRYG( 34, 23) = 0.935460E+00
+PKER_SDRYG( 34, 24) = 0.918528E+00
+PKER_SDRYG( 34, 25) = 0.901899E+00
+PKER_SDRYG( 34, 26) = 0.885568E+00
+PKER_SDRYG( 34, 27) = 0.869531E+00
+PKER_SDRYG( 34, 28) = 0.853781E+00
+PKER_SDRYG( 34, 29) = 0.838313E+00
+PKER_SDRYG( 34, 30) = 0.823123E+00
+PKER_SDRYG( 34, 31) = 0.808206E+00
+PKER_SDRYG( 34, 32) = 0.793556E+00
+PKER_SDRYG( 34, 33) = 0.779168E+00
+PKER_SDRYG( 34, 34) = 0.765039E+00
+PKER_SDRYG( 34, 35) = 0.751163E+00
+PKER_SDRYG( 34, 36) = 0.737536E+00
+PKER_SDRYG( 34, 37) = 0.724153E+00
+PKER_SDRYG( 34, 38) = 0.711010E+00
+PKER_SDRYG( 34, 39) = 0.698102E+00
+PKER_SDRYG( 34, 40) = 0.685426E+00
+PKER_SDRYG( 34, 41) = 0.672977E+00
+PKER_SDRYG( 34, 42) = 0.660751E+00
+PKER_SDRYG( 34, 43) = 0.648745E+00
+PKER_SDRYG( 34, 44) = 0.636953E+00
+PKER_SDRYG( 34, 45) = 0.625372E+00
+PKER_SDRYG( 34, 46) = 0.614000E+00
+PKER_SDRYG( 34, 47) = 0.602830E+00
+PKER_SDRYG( 34, 48) = 0.591861E+00
+PKER_SDRYG( 34, 49) = 0.581088E+00
+PKER_SDRYG( 34, 50) = 0.570508E+00
+PKER_SDRYG( 34, 51) = 0.560118E+00
+PKER_SDRYG( 34, 52) = 0.549913E+00
+PKER_SDRYG( 34, 53) = 0.539891E+00
+PKER_SDRYG( 34, 54) = 0.530048E+00
+PKER_SDRYG( 34, 55) = 0.520381E+00
+PKER_SDRYG( 34, 56) = 0.510888E+00
+PKER_SDRYG( 34, 57) = 0.501563E+00
+PKER_SDRYG( 34, 58) = 0.492406E+00
+PKER_SDRYG( 34, 59) = 0.483412E+00
+PKER_SDRYG( 34, 60) = 0.474578E+00
+PKER_SDRYG( 34, 61) = 0.465903E+00
+PKER_SDRYG( 34, 62) = 0.457382E+00
+PKER_SDRYG( 34, 63) = 0.449013E+00
+PKER_SDRYG( 34, 64) = 0.440794E+00
+PKER_SDRYG( 34, 65) = 0.432721E+00
+PKER_SDRYG( 34, 66) = 0.424791E+00
+PKER_SDRYG( 34, 67) = 0.417003E+00
+PKER_SDRYG( 34, 68) = 0.409354E+00
+PKER_SDRYG( 34, 69) = 0.401840E+00
+PKER_SDRYG( 34, 70) = 0.394460E+00
+PKER_SDRYG( 34, 71) = 0.387211E+00
+PKER_SDRYG( 34, 72) = 0.380091E+00
+PKER_SDRYG( 34, 73) = 0.373097E+00
+PKER_SDRYG( 34, 74) = 0.366227E+00
+PKER_SDRYG( 34, 75) = 0.359478E+00
+PKER_SDRYG( 34, 76) = 0.352849E+00
+PKER_SDRYG( 34, 77) = 0.346337E+00
+PKER_SDRYG( 34, 78) = 0.339940E+00
+PKER_SDRYG( 34, 79) = 0.333655E+00
+PKER_SDRYG( 34, 80) = 0.327481E+00
+PKER_SDRYG( 35, 1) = 0.139838E+01
+PKER_SDRYG( 35, 2) = 0.137316E+01
+PKER_SDRYG( 35, 3) = 0.134839E+01
+PKER_SDRYG( 35, 4) = 0.132407E+01
+PKER_SDRYG( 35, 5) = 0.130019E+01
+PKER_SDRYG( 35, 6) = 0.127673E+01
+PKER_SDRYG( 35, 7) = 0.125370E+01
+PKER_SDRYG( 35, 8) = 0.123108E+01
+PKER_SDRYG( 35, 9) = 0.120886E+01
+PKER_SDRYG( 35, 10) = 0.118705E+01
+PKER_SDRYG( 35, 11) = 0.116562E+01
+PKER_SDRYG( 35, 12) = 0.114458E+01
+PKER_SDRYG( 35, 13) = 0.112392E+01
+PKER_SDRYG( 35, 14) = 0.110363E+01
+PKER_SDRYG( 35, 15) = 0.108370E+01
+PKER_SDRYG( 35, 16) = 0.106413E+01
+PKER_SDRYG( 35, 17) = 0.104491E+01
+PKER_SDRYG( 35, 18) = 0.102603E+01
+PKER_SDRYG( 35, 19) = 0.100750E+01
+PKER_SDRYG( 35, 20) = 0.989292E+00
+PKER_SDRYG( 35, 21) = 0.971415E+00
+PKER_SDRYG( 35, 22) = 0.953859E+00
+PKER_SDRYG( 35, 23) = 0.936617E+00
+PKER_SDRYG( 35, 24) = 0.919685E+00
+PKER_SDRYG( 35, 25) = 0.903057E+00
+PKER_SDRYG( 35, 26) = 0.886727E+00
+PKER_SDRYG( 35, 27) = 0.870690E+00
+PKER_SDRYG( 35, 28) = 0.854941E+00
+PKER_SDRYG( 35, 29) = 0.839474E+00
+PKER_SDRYG( 35, 30) = 0.824284E+00
+PKER_SDRYG( 35, 31) = 0.809367E+00
+PKER_SDRYG( 35, 32) = 0.794718E+00
+PKER_SDRYG( 35, 33) = 0.780331E+00
+PKER_SDRYG( 35, 34) = 0.766202E+00
+PKER_SDRYG( 35, 35) = 0.752327E+00
+PKER_SDRYG( 35, 36) = 0.738700E+00
+PKER_SDRYG( 35, 37) = 0.725318E+00
+PKER_SDRYG( 35, 38) = 0.712176E+00
+PKER_SDRYG( 35, 39) = 0.699269E+00
+PKER_SDRYG( 35, 40) = 0.686594E+00
+PKER_SDRYG( 35, 41) = 0.674146E+00
+PKER_SDRYG( 35, 42) = 0.661921E+00
+PKER_SDRYG( 35, 43) = 0.649916E+00
+PKER_SDRYG( 35, 44) = 0.638125E+00
+PKER_SDRYG( 35, 45) = 0.626546E+00
+PKER_SDRYG( 35, 46) = 0.615174E+00
+PKER_SDRYG( 35, 47) = 0.604006E+00
+PKER_SDRYG( 35, 48) = 0.593038E+00
+PKER_SDRYG( 35, 49) = 0.582267E+00
+PKER_SDRYG( 35, 50) = 0.571689E+00
+PKER_SDRYG( 35, 51) = 0.561300E+00
+PKER_SDRYG( 35, 52) = 0.551097E+00
+PKER_SDRYG( 35, 53) = 0.541076E+00
+PKER_SDRYG( 35, 54) = 0.531236E+00
+PKER_SDRYG( 35, 55) = 0.521571E+00
+PKER_SDRYG( 35, 56) = 0.512079E+00
+PKER_SDRYG( 35, 57) = 0.502757E+00
+PKER_SDRYG( 35, 58) = 0.493602E+00
+PKER_SDRYG( 35, 59) = 0.484610E+00
+PKER_SDRYG( 35, 60) = 0.475780E+00
+PKER_SDRYG( 35, 61) = 0.467107E+00
+PKER_SDRYG( 35, 62) = 0.458589E+00
+PKER_SDRYG( 35, 63) = 0.450223E+00
+PKER_SDRYG( 35, 64) = 0.442007E+00
+PKER_SDRYG( 35, 65) = 0.433937E+00
+PKER_SDRYG( 35, 66) = 0.426011E+00
+PKER_SDRYG( 35, 67) = 0.418227E+00
+PKER_SDRYG( 35, 68) = 0.410581E+00
+PKER_SDRYG( 35, 69) = 0.403072E+00
+PKER_SDRYG( 35, 70) = 0.395696E+00
+PKER_SDRYG( 35, 71) = 0.388452E+00
+PKER_SDRYG( 35, 72) = 0.381337E+00
+PKER_SDRYG( 35, 73) = 0.374348E+00
+PKER_SDRYG( 35, 74) = 0.367483E+00
+PKER_SDRYG( 35, 75) = 0.360740E+00
+PKER_SDRYG( 35, 76) = 0.354117E+00
+PKER_SDRYG( 35, 77) = 0.347611E+00
+PKER_SDRYG( 35, 78) = 0.341221E+00
+PKER_SDRYG( 35, 79) = 0.334943E+00
+PKER_SDRYG( 35, 80) = 0.328777E+00
+PKER_SDRYG( 36, 1) = 0.139936E+01
+PKER_SDRYG( 36, 2) = 0.137414E+01
+PKER_SDRYG( 36, 3) = 0.134938E+01
+PKER_SDRYG( 36, 4) = 0.132506E+01
+PKER_SDRYG( 36, 5) = 0.130118E+01
+PKER_SDRYG( 36, 6) = 0.127772E+01
+PKER_SDRYG( 36, 7) = 0.125469E+01
+PKER_SDRYG( 36, 8) = 0.123207E+01
+PKER_SDRYG( 36, 9) = 0.120985E+01
+PKER_SDRYG( 36, 10) = 0.118803E+01
+PKER_SDRYG( 36, 11) = 0.116661E+01
+PKER_SDRYG( 36, 12) = 0.114557E+01
+PKER_SDRYG( 36, 13) = 0.112491E+01
+PKER_SDRYG( 36, 14) = 0.110461E+01
+PKER_SDRYG( 36, 15) = 0.108468E+01
+PKER_SDRYG( 36, 16) = 0.106511E+01
+PKER_SDRYG( 36, 17) = 0.104589E+01
+PKER_SDRYG( 36, 18) = 0.102702E+01
+PKER_SDRYG( 36, 19) = 0.100848E+01
+PKER_SDRYG( 36, 20) = 0.990281E+00
+PKER_SDRYG( 36, 21) = 0.972404E+00
+PKER_SDRYG( 36, 22) = 0.954848E+00
+PKER_SDRYG( 36, 23) = 0.937607E+00
+PKER_SDRYG( 36, 24) = 0.920675E+00
+PKER_SDRYG( 36, 25) = 0.904047E+00
+PKER_SDRYG( 36, 26) = 0.887718E+00
+PKER_SDRYG( 36, 27) = 0.871681E+00
+PKER_SDRYG( 36, 28) = 0.855932E+00
+PKER_SDRYG( 36, 29) = 0.840466E+00
+PKER_SDRYG( 36, 30) = 0.825276E+00
+PKER_SDRYG( 36, 31) = 0.810360E+00
+PKER_SDRYG( 36, 32) = 0.795711E+00
+PKER_SDRYG( 36, 33) = 0.781325E+00
+PKER_SDRYG( 36, 34) = 0.767196E+00
+PKER_SDRYG( 36, 35) = 0.753322E+00
+PKER_SDRYG( 36, 36) = 0.739696E+00
+PKER_SDRYG( 36, 37) = 0.726314E+00
+PKER_SDRYG( 36, 38) = 0.713173E+00
+PKER_SDRYG( 36, 39) = 0.700267E+00
+PKER_SDRYG( 36, 40) = 0.687592E+00
+PKER_SDRYG( 36, 41) = 0.675145E+00
+PKER_SDRYG( 36, 42) = 0.662921E+00
+PKER_SDRYG( 36, 43) = 0.650916E+00
+PKER_SDRYG( 36, 44) = 0.639126E+00
+PKER_SDRYG( 36, 45) = 0.627548E+00
+PKER_SDRYG( 36, 46) = 0.616177E+00
+PKER_SDRYG( 36, 47) = 0.605010E+00
+PKER_SDRYG( 36, 48) = 0.594044E+00
+PKER_SDRYG( 36, 49) = 0.583273E+00
+PKER_SDRYG( 36, 50) = 0.572696E+00
+PKER_SDRYG( 36, 51) = 0.562308E+00
+PKER_SDRYG( 36, 52) = 0.552107E+00
+PKER_SDRYG( 36, 53) = 0.542088E+00
+PKER_SDRYG( 36, 54) = 0.532249E+00
+PKER_SDRYG( 36, 55) = 0.522585E+00
+PKER_SDRYG( 36, 56) = 0.513095E+00
+PKER_SDRYG( 36, 57) = 0.503775E+00
+PKER_SDRYG( 36, 58) = 0.494621E+00
+PKER_SDRYG( 36, 59) = 0.485632E+00
+PKER_SDRYG( 36, 60) = 0.476803E+00
+PKER_SDRYG( 36, 61) = 0.468132E+00
+PKER_SDRYG( 36, 62) = 0.459617E+00
+PKER_SDRYG( 36, 63) = 0.451253E+00
+PKER_SDRYG( 36, 64) = 0.443039E+00
+PKER_SDRYG( 36, 65) = 0.434972E+00
+PKER_SDRYG( 36, 66) = 0.427049E+00
+PKER_SDRYG( 36, 67) = 0.419268E+00
+PKER_SDRYG( 36, 68) = 0.411625E+00
+PKER_SDRYG( 36, 69) = 0.404119E+00
+PKER_SDRYG( 36, 70) = 0.396747E+00
+PKER_SDRYG( 36, 71) = 0.389506E+00
+PKER_SDRYG( 36, 72) = 0.382394E+00
+PKER_SDRYG( 36, 73) = 0.375410E+00
+PKER_SDRYG( 36, 74) = 0.368549E+00
+PKER_SDRYG( 36, 75) = 0.361811E+00
+PKER_SDRYG( 36, 76) = 0.355192E+00
+PKER_SDRYG( 36, 77) = 0.348691E+00
+PKER_SDRYG( 36, 78) = 0.342306E+00
+PKER_SDRYG( 36, 79) = 0.336034E+00
+PKER_SDRYG( 36, 80) = 0.329873E+00
+PKER_SDRYG( 37, 1) = 0.140020E+01
+PKER_SDRYG( 37, 2) = 0.137499E+01
+PKER_SDRYG( 37, 3) = 0.135022E+01
+PKER_SDRYG( 37, 4) = 0.132590E+01
+PKER_SDRYG( 37, 5) = 0.130202E+01
+PKER_SDRYG( 37, 6) = 0.127856E+01
+PKER_SDRYG( 37, 7) = 0.125553E+01
+PKER_SDRYG( 37, 8) = 0.123291E+01
+PKER_SDRYG( 37, 9) = 0.121069E+01
+PKER_SDRYG( 37, 10) = 0.118888E+01
+PKER_SDRYG( 37, 11) = 0.116745E+01
+PKER_SDRYG( 37, 12) = 0.114641E+01
+PKER_SDRYG( 37, 13) = 0.112575E+01
+PKER_SDRYG( 37, 14) = 0.110546E+01
+PKER_SDRYG( 37, 15) = 0.108553E+01
+PKER_SDRYG( 37, 16) = 0.106596E+01
+PKER_SDRYG( 37, 17) = 0.104674E+01
+PKER_SDRYG( 37, 18) = 0.102787E+01
+PKER_SDRYG( 37, 19) = 0.100933E+01
+PKER_SDRYG( 37, 20) = 0.991127E+00
+PKER_SDRYG( 37, 21) = 0.973250E+00
+PKER_SDRYG( 37, 22) = 0.955694E+00
+PKER_SDRYG( 37, 23) = 0.938454E+00
+PKER_SDRYG( 37, 24) = 0.921522E+00
+PKER_SDRYG( 37, 25) = 0.904894E+00
+PKER_SDRYG( 37, 26) = 0.888565E+00
+PKER_SDRYG( 37, 27) = 0.872529E+00
+PKER_SDRYG( 37, 28) = 0.856780E+00
+PKER_SDRYG( 37, 29) = 0.841314E+00
+PKER_SDRYG( 37, 30) = 0.826125E+00
+PKER_SDRYG( 37, 31) = 0.811209E+00
+PKER_SDRYG( 37, 32) = 0.796560E+00
+PKER_SDRYG( 37, 33) = 0.782174E+00
+PKER_SDRYG( 37, 34) = 0.768046E+00
+PKER_SDRYG( 37, 35) = 0.754172E+00
+PKER_SDRYG( 37, 36) = 0.740547E+00
+PKER_SDRYG( 37, 37) = 0.727165E+00
+PKER_SDRYG( 37, 38) = 0.714024E+00
+PKER_SDRYG( 37, 39) = 0.701119E+00
+PKER_SDRYG( 37, 40) = 0.688445E+00
+PKER_SDRYG( 37, 41) = 0.675998E+00
+PKER_SDRYG( 37, 42) = 0.663775E+00
+PKER_SDRYG( 37, 43) = 0.651771E+00
+PKER_SDRYG( 37, 44) = 0.639982E+00
+PKER_SDRYG( 37, 45) = 0.628404E+00
+PKER_SDRYG( 37, 46) = 0.617034E+00
+PKER_SDRYG( 37, 47) = 0.605868E+00
+PKER_SDRYG( 37, 48) = 0.594902E+00
+PKER_SDRYG( 37, 49) = 0.584133E+00
+PKER_SDRYG( 37, 50) = 0.573556E+00
+PKER_SDRYG( 37, 51) = 0.563170E+00
+PKER_SDRYG( 37, 52) = 0.552969E+00
+PKER_SDRYG( 37, 53) = 0.542951E+00
+PKER_SDRYG( 37, 54) = 0.533113E+00
+PKER_SDRYG( 37, 55) = 0.523451E+00
+PKER_SDRYG( 37, 56) = 0.513962E+00
+PKER_SDRYG( 37, 57) = 0.504643E+00
+PKER_SDRYG( 37, 58) = 0.495491E+00
+PKER_SDRYG( 37, 59) = 0.486503E+00
+PKER_SDRYG( 37, 60) = 0.477676E+00
+PKER_SDRYG( 37, 61) = 0.469006E+00
+PKER_SDRYG( 37, 62) = 0.460492E+00
+PKER_SDRYG( 37, 63) = 0.452131E+00
+PKER_SDRYG( 37, 64) = 0.443919E+00
+PKER_SDRYG( 37, 65) = 0.435854E+00
+PKER_SDRYG( 37, 66) = 0.427933E+00
+PKER_SDRYG( 37, 67) = 0.420153E+00
+PKER_SDRYG( 37, 68) = 0.412513E+00
+PKER_SDRYG( 37, 69) = 0.405010E+00
+PKER_SDRYG( 37, 70) = 0.397640E+00
+PKER_SDRYG( 37, 71) = 0.390402E+00
+PKER_SDRYG( 37, 72) = 0.383293E+00
+PKER_SDRYG( 37, 73) = 0.376311E+00
+PKER_SDRYG( 37, 74) = 0.369454E+00
+PKER_SDRYG( 37, 75) = 0.362719E+00
+PKER_SDRYG( 37, 76) = 0.356104E+00
+PKER_SDRYG( 37, 77) = 0.349607E+00
+PKER_SDRYG( 37, 78) = 0.343225E+00
+PKER_SDRYG( 37, 79) = 0.336957E+00
+PKER_SDRYG( 37, 80) = 0.330801E+00
+PKER_SDRYG( 38, 1) = 0.140093E+01
+PKER_SDRYG( 38, 2) = 0.137571E+01
+PKER_SDRYG( 38, 3) = 0.135094E+01
+PKER_SDRYG( 38, 4) = 0.132662E+01
+PKER_SDRYG( 38, 5) = 0.130274E+01
+PKER_SDRYG( 38, 6) = 0.127929E+01
+PKER_SDRYG( 38, 7) = 0.125625E+01
+PKER_SDRYG( 38, 8) = 0.123363E+01
+PKER_SDRYG( 38, 9) = 0.121142E+01
+PKER_SDRYG( 38, 10) = 0.118960E+01
+PKER_SDRYG( 38, 11) = 0.116818E+01
+PKER_SDRYG( 38, 12) = 0.114714E+01
+PKER_SDRYG( 38, 13) = 0.112647E+01
+PKER_SDRYG( 38, 14) = 0.110618E+01
+PKER_SDRYG( 38, 15) = 0.108625E+01
+PKER_SDRYG( 38, 16) = 0.106668E+01
+PKER_SDRYG( 38, 17) = 0.104746E+01
+PKER_SDRYG( 38, 18) = 0.102859E+01
+PKER_SDRYG( 38, 19) = 0.101005E+01
+PKER_SDRYG( 38, 20) = 0.991850E+00
+PKER_SDRYG( 38, 21) = 0.973974E+00
+PKER_SDRYG( 38, 22) = 0.956418E+00
+PKER_SDRYG( 38, 23) = 0.939178E+00
+PKER_SDRYG( 38, 24) = 0.922246E+00
+PKER_SDRYG( 38, 25) = 0.905619E+00
+PKER_SDRYG( 38, 26) = 0.889290E+00
+PKER_SDRYG( 38, 27) = 0.873253E+00
+PKER_SDRYG( 38, 28) = 0.857505E+00
+PKER_SDRYG( 38, 29) = 0.842039E+00
+PKER_SDRYG( 38, 30) = 0.826850E+00
+PKER_SDRYG( 38, 31) = 0.811935E+00
+PKER_SDRYG( 38, 32) = 0.797286E+00
+PKER_SDRYG( 38, 33) = 0.782901E+00
+PKER_SDRYG( 38, 34) = 0.768773E+00
+PKER_SDRYG( 38, 35) = 0.754899E+00
+PKER_SDRYG( 38, 36) = 0.741274E+00
+PKER_SDRYG( 38, 37) = 0.727893E+00
+PKER_SDRYG( 38, 38) = 0.714752E+00
+PKER_SDRYG( 38, 39) = 0.701847E+00
+PKER_SDRYG( 38, 40) = 0.689174E+00
+PKER_SDRYG( 38, 41) = 0.676728E+00
+PKER_SDRYG( 38, 42) = 0.664505E+00
+PKER_SDRYG( 38, 43) = 0.652501E+00
+PKER_SDRYG( 38, 44) = 0.640713E+00
+PKER_SDRYG( 38, 45) = 0.629136E+00
+PKER_SDRYG( 38, 46) = 0.617766E+00
+PKER_SDRYG( 38, 47) = 0.606601E+00
+PKER_SDRYG( 38, 48) = 0.595635E+00
+PKER_SDRYG( 38, 49) = 0.584867E+00
+PKER_SDRYG( 38, 50) = 0.574291E+00
+PKER_SDRYG( 38, 51) = 0.563905E+00
+PKER_SDRYG( 38, 52) = 0.553705E+00
+PKER_SDRYG( 38, 53) = 0.543688E+00
+PKER_SDRYG( 38, 54) = 0.533851E+00
+PKER_SDRYG( 38, 55) = 0.524190E+00
+PKER_SDRYG( 38, 56) = 0.514702E+00
+PKER_SDRYG( 38, 57) = 0.505384E+00
+PKER_SDRYG( 38, 58) = 0.496233E+00
+PKER_SDRYG( 38, 59) = 0.487246E+00
+PKER_SDRYG( 38, 60) = 0.478420E+00
+PKER_SDRYG( 38, 61) = 0.469752E+00
+PKER_SDRYG( 38, 62) = 0.461239E+00
+PKER_SDRYG( 38, 63) = 0.452879E+00
+PKER_SDRYG( 38, 64) = 0.444668E+00
+PKER_SDRYG( 38, 65) = 0.436605E+00
+PKER_SDRYG( 38, 66) = 0.428685E+00
+PKER_SDRYG( 38, 67) = 0.420908E+00
+PKER_SDRYG( 38, 68) = 0.413270E+00
+PKER_SDRYG( 38, 69) = 0.405768E+00
+PKER_SDRYG( 38, 70) = 0.398400E+00
+PKER_SDRYG( 38, 71) = 0.391164E+00
+PKER_SDRYG( 38, 72) = 0.384058E+00
+PKER_SDRYG( 38, 73) = 0.377078E+00
+PKER_SDRYG( 38, 74) = 0.370223E+00
+PKER_SDRYG( 38, 75) = 0.363491E+00
+PKER_SDRYG( 38, 76) = 0.356879E+00
+PKER_SDRYG( 38, 77) = 0.350384E+00
+PKER_SDRYG( 38, 78) = 0.344006E+00
+PKER_SDRYG( 38, 79) = 0.337741E+00
+PKER_SDRYG( 38, 80) = 0.331588E+00
+PKER_SDRYG( 39, 1) = 0.140154E+01
+PKER_SDRYG( 39, 2) = 0.137633E+01
+PKER_SDRYG( 39, 3) = 0.135156E+01
+PKER_SDRYG( 39, 4) = 0.132724E+01
+PKER_SDRYG( 39, 5) = 0.130336E+01
+PKER_SDRYG( 39, 6) = 0.127990E+01
+PKER_SDRYG( 39, 7) = 0.125687E+01
+PKER_SDRYG( 39, 8) = 0.123425E+01
+PKER_SDRYG( 39, 9) = 0.121203E+01
+PKER_SDRYG( 39, 10) = 0.119022E+01
+PKER_SDRYG( 39, 11) = 0.116879E+01
+PKER_SDRYG( 39, 12) = 0.114775E+01
+PKER_SDRYG( 39, 13) = 0.112709E+01
+PKER_SDRYG( 39, 14) = 0.110680E+01
+PKER_SDRYG( 39, 15) = 0.108687E+01
+PKER_SDRYG( 39, 16) = 0.106730E+01
+PKER_SDRYG( 39, 17) = 0.104808E+01
+PKER_SDRYG( 39, 18) = 0.102921E+01
+PKER_SDRYG( 39, 19) = 0.101067E+01
+PKER_SDRYG( 39, 20) = 0.992469E+00
+PKER_SDRYG( 39, 21) = 0.974593E+00
+PKER_SDRYG( 39, 22) = 0.957037E+00
+PKER_SDRYG( 39, 23) = 0.939797E+00
+PKER_SDRYG( 39, 24) = 0.922866E+00
+PKER_SDRYG( 39, 25) = 0.906238E+00
+PKER_SDRYG( 39, 26) = 0.889909E+00
+PKER_SDRYG( 39, 27) = 0.873873E+00
+PKER_SDRYG( 39, 28) = 0.858125E+00
+PKER_SDRYG( 39, 29) = 0.842659E+00
+PKER_SDRYG( 39, 30) = 0.827471E+00
+PKER_SDRYG( 39, 31) = 0.812555E+00
+PKER_SDRYG( 39, 32) = 0.797907E+00
+PKER_SDRYG( 39, 33) = 0.783522E+00
+PKER_SDRYG( 39, 34) = 0.769394E+00
+PKER_SDRYG( 39, 35) = 0.755521E+00
+PKER_SDRYG( 39, 36) = 0.741896E+00
+PKER_SDRYG( 39, 37) = 0.728515E+00
+PKER_SDRYG( 39, 38) = 0.715375E+00
+PKER_SDRYG( 39, 39) = 0.702470E+00
+PKER_SDRYG( 39, 40) = 0.689797E+00
+PKER_SDRYG( 39, 41) = 0.677351E+00
+PKER_SDRYG( 39, 42) = 0.665129E+00
+PKER_SDRYG( 39, 43) = 0.653125E+00
+PKER_SDRYG( 39, 44) = 0.641337E+00
+PKER_SDRYG( 39, 45) = 0.629761E+00
+PKER_SDRYG( 39, 46) = 0.618392E+00
+PKER_SDRYG( 39, 47) = 0.607227E+00
+PKER_SDRYG( 39, 48) = 0.596262E+00
+PKER_SDRYG( 39, 49) = 0.585494E+00
+PKER_SDRYG( 39, 50) = 0.574919E+00
+PKER_SDRYG( 39, 51) = 0.564533E+00
+PKER_SDRYG( 39, 52) = 0.554334E+00
+PKER_SDRYG( 39, 53) = 0.544318E+00
+PKER_SDRYG( 39, 54) = 0.534481E+00
+PKER_SDRYG( 39, 55) = 0.524821E+00
+PKER_SDRYG( 39, 56) = 0.515333E+00
+PKER_SDRYG( 39, 57) = 0.506016E+00
+PKER_SDRYG( 39, 58) = 0.496866E+00
+PKER_SDRYG( 39, 59) = 0.487880E+00
+PKER_SDRYG( 39, 60) = 0.479055E+00
+PKER_SDRYG( 39, 61) = 0.470388E+00
+PKER_SDRYG( 39, 62) = 0.461876E+00
+PKER_SDRYG( 39, 63) = 0.453517E+00
+PKER_SDRYG( 39, 64) = 0.445307E+00
+PKER_SDRYG( 39, 65) = 0.437245E+00
+PKER_SDRYG( 39, 66) = 0.429327E+00
+PKER_SDRYG( 39, 67) = 0.421551E+00
+PKER_SDRYG( 39, 68) = 0.413914E+00
+PKER_SDRYG( 39, 69) = 0.406414E+00
+PKER_SDRYG( 39, 70) = 0.399047E+00
+PKER_SDRYG( 39, 71) = 0.391813E+00
+PKER_SDRYG( 39, 72) = 0.384708E+00
+PKER_SDRYG( 39, 73) = 0.377731E+00
+PKER_SDRYG( 39, 74) = 0.370878E+00
+PKER_SDRYG( 39, 75) = 0.364147E+00
+PKER_SDRYG( 39, 76) = 0.357537E+00
+PKER_SDRYG( 39, 77) = 0.351045E+00
+PKER_SDRYG( 39, 78) = 0.344669E+00
+PKER_SDRYG( 39, 79) = 0.338406E+00
+PKER_SDRYG( 39, 80) = 0.332256E+00
+PKER_SDRYG( 40, 1) = 0.140207E+01
+PKER_SDRYG( 40, 2) = 0.137685E+01
+PKER_SDRYG( 40, 3) = 0.135209E+01
+PKER_SDRYG( 40, 4) = 0.132777E+01
+PKER_SDRYG( 40, 5) = 0.130389E+01
+PKER_SDRYG( 40, 6) = 0.128043E+01
+PKER_SDRYG( 40, 7) = 0.125740E+01
+PKER_SDRYG( 40, 8) = 0.123478E+01
+PKER_SDRYG( 40, 9) = 0.121256E+01
+PKER_SDRYG( 40, 10) = 0.119075E+01
+PKER_SDRYG( 40, 11) = 0.116932E+01
+PKER_SDRYG( 40, 12) = 0.114828E+01
+PKER_SDRYG( 40, 13) = 0.112762E+01
+PKER_SDRYG( 40, 14) = 0.110733E+01
+PKER_SDRYG( 40, 15) = 0.108740E+01
+PKER_SDRYG( 40, 16) = 0.106783E+01
+PKER_SDRYG( 40, 17) = 0.104861E+01
+PKER_SDRYG( 40, 18) = 0.102974E+01
+PKER_SDRYG( 40, 19) = 0.101120E+01
+PKER_SDRYG( 40, 20) = 0.992998E+00
+PKER_SDRYG( 40, 21) = 0.975122E+00
+PKER_SDRYG( 40, 22) = 0.957567E+00
+PKER_SDRYG( 40, 23) = 0.940326E+00
+PKER_SDRYG( 40, 24) = 0.923395E+00
+PKER_SDRYG( 40, 25) = 0.906768E+00
+PKER_SDRYG( 40, 26) = 0.890439E+00
+PKER_SDRYG( 40, 27) = 0.874403E+00
+PKER_SDRYG( 40, 28) = 0.858655E+00
+PKER_SDRYG( 40, 29) = 0.843190E+00
+PKER_SDRYG( 40, 30) = 0.828001E+00
+PKER_SDRYG( 40, 31) = 0.813086E+00
+PKER_SDRYG( 40, 32) = 0.798438E+00
+PKER_SDRYG( 40, 33) = 0.784053E+00
+PKER_SDRYG( 40, 34) = 0.769926E+00
+PKER_SDRYG( 40, 35) = 0.756052E+00
+PKER_SDRYG( 40, 36) = 0.742427E+00
+PKER_SDRYG( 40, 37) = 0.729047E+00
+PKER_SDRYG( 40, 38) = 0.715907E+00
+PKER_SDRYG( 40, 39) = 0.703003E+00
+PKER_SDRYG( 40, 40) = 0.690330E+00
+PKER_SDRYG( 40, 41) = 0.677884E+00
+PKER_SDRYG( 40, 42) = 0.665662E+00
+PKER_SDRYG( 40, 43) = 0.653659E+00
+PKER_SDRYG( 40, 44) = 0.641871E+00
+PKER_SDRYG( 40, 45) = 0.630295E+00
+PKER_SDRYG( 40, 46) = 0.618926E+00
+PKER_SDRYG( 40, 47) = 0.607762E+00
+PKER_SDRYG( 40, 48) = 0.596797E+00
+PKER_SDRYG( 40, 49) = 0.586029E+00
+PKER_SDRYG( 40, 50) = 0.575455E+00
+PKER_SDRYG( 40, 51) = 0.565070E+00
+PKER_SDRYG( 40, 52) = 0.554871E+00
+PKER_SDRYG( 40, 53) = 0.544855E+00
+PKER_SDRYG( 40, 54) = 0.535019E+00
+PKER_SDRYG( 40, 55) = 0.525359E+00
+PKER_SDRYG( 40, 56) = 0.515873E+00
+PKER_SDRYG( 40, 57) = 0.506556E+00
+PKER_SDRYG( 40, 58) = 0.497407E+00
+PKER_SDRYG( 40, 59) = 0.488421E+00
+PKER_SDRYG( 40, 60) = 0.479597E+00
+PKER_SDRYG( 40, 61) = 0.470930E+00
+PKER_SDRYG( 40, 62) = 0.462420E+00
+PKER_SDRYG( 40, 63) = 0.454061E+00
+PKER_SDRYG( 40, 64) = 0.445853E+00
+PKER_SDRYG( 40, 65) = 0.437791E+00
+PKER_SDRYG( 40, 66) = 0.429874E+00
+PKER_SDRYG( 40, 67) = 0.422099E+00
+PKER_SDRYG( 40, 68) = 0.414463E+00
+PKER_SDRYG( 40, 69) = 0.406964E+00
+PKER_SDRYG( 40, 70) = 0.399599E+00
+PKER_SDRYG( 40, 71) = 0.392366E+00
+PKER_SDRYG( 40, 72) = 0.385262E+00
+PKER_SDRYG( 40, 73) = 0.378286E+00
+PKER_SDRYG( 40, 74) = 0.371434E+00
+PKER_SDRYG( 40, 75) = 0.364706E+00
+PKER_SDRYG( 40, 76) = 0.358097E+00
+PKER_SDRYG( 40, 77) = 0.351607E+00
+PKER_SDRYG( 40, 78) = 0.345232E+00
+PKER_SDRYG( 40, 79) = 0.338972E+00
+PKER_SDRYG( 40, 80) = 0.332823E+00
END IF
!
END SUBROUTINE LIMA_READ_XKER_SDRYG
diff --git a/src/mesonh/micro/lima_read_xker_sweth.f90 b/src/mesonh/micro/lima_read_xker_sweth.f90
index cfc5ade58..a034ec708 100644
--- a/src/mesonh/micro/lima_read_xker_sweth.f90
+++ b/src/mesonh/micro/lima_read_xker_sweth.f90
@@ -13,10 +13,10 @@
! ###########################
!
INTERFACE
- SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,PKER_SWETH )
+ SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY,PKER_SWETH )
!
INTEGER, INTENT(OUT) :: KND,KWETLBDAH,KWETLBDAS
REAL, INTENT(OUT) :: PALPHAH
@@ -29,6 +29,7 @@ REAL, INTENT(OUT) :: PCH
REAL, INTENT(OUT) :: PDH
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PWETLBDAH_MAX
REAL, INTENT(OUT) :: PWETLBDAS_MAX
REAL, INTENT(OUT) :: PWETLBDAH_MIN
@@ -42,10 +43,10 @@ END INTERFACE
!
END MODULE MODI_LIMA_READ_XKER_SWETH
! ########################################################################
- SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
- PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS, &
- PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
- PFDINFTY,PKER_SWETH )
+ SUBROUTINE LIMA_READ_XKER_SWETH (KWETLBDAH,KWETLBDAS,KND, &
+ PALPHAH,PNUH,PALPHAS,PNUS,PEHS,PBS,PCH,PDH,PCS,PDS,PFVELOS, &
+ PWETLBDAH_MAX,PWETLBDAS_MAX,PWETLBDAH_MIN,PWETLBDAS_MIN, &
+ PFDINFTY,PKER_SWETH )
! ########################################################################
!
!!**** * * - initialize the kernels for the snow-hail wet growth process
@@ -101,6 +102,7 @@ REAL, INTENT(OUT) :: PCH
REAL, INTENT(OUT) :: PDH
REAL, INTENT(OUT) :: PCS
REAL, INTENT(OUT) :: PDS
+REAL, INTENT(OUT) :: PFVELOS
REAL, INTENT(OUT) :: PWETLBDAH_MAX
REAL, INTENT(OUT) :: PWETLBDAS_MAX
REAL, INTENT(OUT) :: PWETLBDAH_MIN
@@ -125,3213 +127,3214 @@ PCH= 0.201000E+03
PDH= 0.640000E+00
PCS= 0.500000E+01
PDS= 0.270000E+00
+PFVELOS= 0.000000E+00
PWETLBDAH_MAX= 0.100000E+08
-PWETLBDAS_MAX= 0.250000E+10
+PWETLBDAS_MAX= 0.100000E+06
PWETLBDAH_MIN= 0.100000E+04
-PWETLBDAS_MIN= 0.250000E+02
+PWETLBDAS_MIN= 0.500000E+03
PFDINFTY= 0.200000E+02
!
IF( PRESENT(PKER_SWETH) ) THEN
-PKER_SWETH( 1, 1) = 0.594408E+01
-PKER_SWETH( 1, 2) = 0.615804E+01
-PKER_SWETH( 1, 3) = 0.636519E+01
-PKER_SWETH( 1, 4) = 0.656714E+01
-PKER_SWETH( 1, 5) = 0.676556E+01
-PKER_SWETH( 1, 6) = 0.696207E+01
-PKER_SWETH( 1, 7) = 0.715814E+01
-PKER_SWETH( 1, 8) = 0.735491E+01
-PKER_SWETH( 1, 9) = 0.755300E+01
-PKER_SWETH( 1, 10) = 0.775225E+01
-PKER_SWETH( 1, 11) = 0.795159E+01
-PKER_SWETH( 1, 12) = 0.814900E+01
-PKER_SWETH( 1, 13) = 0.834171E+01
-PKER_SWETH( 1, 14) = 0.852662E+01
-PKER_SWETH( 1, 15) = 0.870080E+01
-PKER_SWETH( 1, 16) = 0.886196E+01
-PKER_SWETH( 1, 17) = 0.900870E+01
-PKER_SWETH( 1, 18) = 0.914061E+01
-PKER_SWETH( 1, 19) = 0.925806E+01
-PKER_SWETH( 1, 20) = 0.936202E+01
-PKER_SWETH( 1, 21) = 0.945377E+01
-PKER_SWETH( 1, 22) = 0.953473E+01
-PKER_SWETH( 1, 23) = 0.960629E+01
-PKER_SWETH( 1, 24) = 0.966973E+01
-PKER_SWETH( 1, 25) = 0.972622E+01
-PKER_SWETH( 1, 26) = 0.977674E+01
-PKER_SWETH( 1, 27) = 0.982214E+01
-PKER_SWETH( 1, 28) = 0.986313E+01
-PKER_SWETH( 1, 29) = 0.990032E+01
-PKER_SWETH( 1, 30) = 0.993419E+01
-PKER_SWETH( 1, 31) = 0.996517E+01
-PKER_SWETH( 1, 32) = 0.999360E+01
-PKER_SWETH( 1, 33) = 0.100198E+02
-PKER_SWETH( 1, 34) = 0.100439E+02
-PKER_SWETH( 1, 35) = 0.100663E+02
-PKER_SWETH( 1, 36) = 0.100870E+02
-PKER_SWETH( 1, 37) = 0.101063E+02
-PKER_SWETH( 1, 38) = 0.101243E+02
-PKER_SWETH( 1, 39) = 0.101410E+02
-PKER_SWETH( 1, 40) = 0.101566E+02
-PKER_SWETH( 1, 41) = 0.101711E+02
-PKER_SWETH( 1, 42) = 0.101847E+02
-PKER_SWETH( 1, 43) = 0.101975E+02
-PKER_SWETH( 1, 44) = 0.102094E+02
-PKER_SWETH( 1, 45) = 0.102206E+02
-PKER_SWETH( 1, 46) = 0.102310E+02
-PKER_SWETH( 1, 47) = 0.102408E+02
-PKER_SWETH( 1, 48) = 0.102500E+02
-PKER_SWETH( 1, 49) = 0.102586E+02
-PKER_SWETH( 1, 50) = 0.102667E+02
-PKER_SWETH( 1, 51) = 0.102743E+02
-PKER_SWETH( 1, 52) = 0.102814E+02
-PKER_SWETH( 1, 53) = 0.102880E+02
-PKER_SWETH( 1, 54) = 0.102943E+02
-PKER_SWETH( 1, 55) = 0.103002E+02
-PKER_SWETH( 1, 56) = 0.103057E+02
-PKER_SWETH( 1, 57) = 0.103108E+02
-PKER_SWETH( 1, 58) = 0.103157E+02
-PKER_SWETH( 1, 59) = 0.103203E+02
-PKER_SWETH( 1, 60) = 0.103245E+02
-PKER_SWETH( 1, 61) = 0.103286E+02
-PKER_SWETH( 1, 62) = 0.103323E+02
-PKER_SWETH( 1, 63) = 0.103359E+02
-PKER_SWETH( 1, 64) = 0.103392E+02
-PKER_SWETH( 1, 65) = 0.103423E+02
-PKER_SWETH( 1, 66) = 0.103453E+02
-PKER_SWETH( 1, 67) = 0.103480E+02
-PKER_SWETH( 1, 68) = 0.103506E+02
-PKER_SWETH( 1, 69) = 0.103530E+02
-PKER_SWETH( 1, 70) = 0.103553E+02
-PKER_SWETH( 1, 71) = 0.103574E+02
-PKER_SWETH( 1, 72) = 0.103595E+02
-PKER_SWETH( 1, 73) = 0.103613E+02
-PKER_SWETH( 1, 74) = 0.103631E+02
-PKER_SWETH( 1, 75) = 0.103648E+02
-PKER_SWETH( 1, 76) = 0.103663E+02
-PKER_SWETH( 1, 77) = 0.103678E+02
-PKER_SWETH( 1, 78) = 0.103692E+02
-PKER_SWETH( 1, 79) = 0.103705E+02
-PKER_SWETH( 1, 80) = 0.103717E+02
-PKER_SWETH( 2, 1) = 0.465456E+01
-PKER_SWETH( 2, 2) = 0.486187E+01
-PKER_SWETH( 2, 3) = 0.506117E+01
-PKER_SWETH( 2, 4) = 0.525380E+01
-PKER_SWETH( 2, 5) = 0.544116E+01
-PKER_SWETH( 2, 6) = 0.562472E+01
-PKER_SWETH( 2, 7) = 0.580594E+01
-PKER_SWETH( 2, 8) = 0.598611E+01
-PKER_SWETH( 2, 9) = 0.616626E+01
-PKER_SWETH( 2, 10) = 0.634695E+01
-PKER_SWETH( 2, 11) = 0.652809E+01
-PKER_SWETH( 2, 12) = 0.670877E+01
-PKER_SWETH( 2, 13) = 0.688725E+01
-PKER_SWETH( 2, 14) = 0.706117E+01
-PKER_SWETH( 2, 15) = 0.722787E+01
-PKER_SWETH( 2, 16) = 0.738481E+01
-PKER_SWETH( 2, 17) = 0.753004E+01
-PKER_SWETH( 2, 18) = 0.766237E+01
-PKER_SWETH( 2, 19) = 0.778146E+01
-PKER_SWETH( 2, 20) = 0.788768E+01
-PKER_SWETH( 2, 21) = 0.798187E+01
-PKER_SWETH( 2, 22) = 0.806519E+01
-PKER_SWETH( 2, 23) = 0.813889E+01
-PKER_SWETH( 2, 24) = 0.820419E+01
-PKER_SWETH( 2, 25) = 0.826224E+01
-PKER_SWETH( 2, 26) = 0.831405E+01
-PKER_SWETH( 2, 27) = 0.836050E+01
-PKER_SWETH( 2, 28) = 0.840234E+01
-PKER_SWETH( 2, 29) = 0.844021E+01
-PKER_SWETH( 2, 30) = 0.847462E+01
-PKER_SWETH( 2, 31) = 0.850603E+01
-PKER_SWETH( 2, 32) = 0.853480E+01
-PKER_SWETH( 2, 33) = 0.856125E+01
-PKER_SWETH( 2, 34) = 0.858563E+01
-PKER_SWETH( 2, 35) = 0.860816E+01
-PKER_SWETH( 2, 36) = 0.862904E+01
-PKER_SWETH( 2, 37) = 0.864841E+01
-PKER_SWETH( 2, 38) = 0.866643E+01
-PKER_SWETH( 2, 39) = 0.868321E+01
-PKER_SWETH( 2, 40) = 0.869886E+01
-PKER_SWETH( 2, 41) = 0.871346E+01
-PKER_SWETH( 2, 42) = 0.872711E+01
-PKER_SWETH( 2, 43) = 0.873987E+01
-PKER_SWETH( 2, 44) = 0.875180E+01
-PKER_SWETH( 2, 45) = 0.876298E+01
-PKER_SWETH( 2, 46) = 0.877344E+01
-PKER_SWETH( 2, 47) = 0.878325E+01
-PKER_SWETH( 2, 48) = 0.879244E+01
-PKER_SWETH( 2, 49) = 0.880106E+01
-PKER_SWETH( 2, 50) = 0.880914E+01
-PKER_SWETH( 2, 51) = 0.881672E+01
-PKER_SWETH( 2, 52) = 0.882383E+01
-PKER_SWETH( 2, 53) = 0.883050E+01
-PKER_SWETH( 2, 54) = 0.883676E+01
-PKER_SWETH( 2, 55) = 0.884263E+01
-PKER_SWETH( 2, 56) = 0.884815E+01
-PKER_SWETH( 2, 57) = 0.885332E+01
-PKER_SWETH( 2, 58) = 0.885818E+01
-PKER_SWETH( 2, 59) = 0.886274E+01
-PKER_SWETH( 2, 60) = 0.886702E+01
-PKER_SWETH( 2, 61) = 0.887104E+01
-PKER_SWETH( 2, 62) = 0.887482E+01
-PKER_SWETH( 2, 63) = 0.887836E+01
-PKER_SWETH( 2, 64) = 0.888169E+01
-PKER_SWETH( 2, 65) = 0.888481E+01
-PKER_SWETH( 2, 66) = 0.888774E+01
-PKER_SWETH( 2, 67) = 0.889049E+01
-PKER_SWETH( 2, 68) = 0.889308E+01
-PKER_SWETH( 2, 69) = 0.889551E+01
-PKER_SWETH( 2, 70) = 0.889778E+01
-PKER_SWETH( 2, 71) = 0.889992E+01
-PKER_SWETH( 2, 72) = 0.890193E+01
-PKER_SWETH( 2, 73) = 0.890382E+01
-PKER_SWETH( 2, 74) = 0.890559E+01
-PKER_SWETH( 2, 75) = 0.890725E+01
-PKER_SWETH( 2, 76) = 0.890882E+01
-PKER_SWETH( 2, 77) = 0.891028E+01
-PKER_SWETH( 2, 78) = 0.891166E+01
-PKER_SWETH( 2, 79) = 0.891295E+01
-PKER_SWETH( 2, 80) = 0.891417E+01
-PKER_SWETH( 3, 1) = 0.355241E+01
-PKER_SWETH( 3, 2) = 0.375388E+01
-PKER_SWETH( 3, 3) = 0.394699E+01
-PKER_SWETH( 3, 4) = 0.413258E+01
-PKER_SWETH( 3, 5) = 0.431174E+01
-PKER_SWETH( 3, 6) = 0.448568E+01
-PKER_SWETH( 3, 7) = 0.465567E+01
-PKER_SWETH( 3, 8) = 0.482298E+01
-PKER_SWETH( 3, 9) = 0.498877E+01
-PKER_SWETH( 3, 10) = 0.515397E+01
-PKER_SWETH( 3, 11) = 0.531908E+01
-PKER_SWETH( 3, 12) = 0.548405E+01
-PKER_SWETH( 3, 13) = 0.564811E+01
-PKER_SWETH( 3, 14) = 0.580980E+01
-PKER_SWETH( 3, 15) = 0.596707E+01
-PKER_SWETH( 3, 16) = 0.611763E+01
-PKER_SWETH( 3, 17) = 0.625931E+01
-PKER_SWETH( 3, 18) = 0.639043E+01
-PKER_SWETH( 3, 19) = 0.650999E+01
-PKER_SWETH( 3, 20) = 0.661772E+01
-PKER_SWETH( 3, 21) = 0.671394E+01
-PKER_SWETH( 3, 22) = 0.679944E+01
-PKER_SWETH( 3, 23) = 0.687523E+01
-PKER_SWETH( 3, 24) = 0.694243E+01
-PKER_SWETH( 3, 25) = 0.700212E+01
-PKER_SWETH( 3, 26) = 0.705531E+01
-PKER_SWETH( 3, 27) = 0.710290E+01
-PKER_SWETH( 3, 28) = 0.714567E+01
-PKER_SWETH( 3, 29) = 0.718428E+01
-PKER_SWETH( 3, 30) = 0.721929E+01
-PKER_SWETH( 3, 31) = 0.725118E+01
-PKER_SWETH( 3, 32) = 0.728033E+01
-PKER_SWETH( 3, 33) = 0.730707E+01
-PKER_SWETH( 3, 34) = 0.733169E+01
-PKER_SWETH( 3, 35) = 0.735440E+01
-PKER_SWETH( 3, 36) = 0.737543E+01
-PKER_SWETH( 3, 37) = 0.739492E+01
-PKER_SWETH( 3, 38) = 0.741303E+01
-PKER_SWETH( 3, 39) = 0.742988E+01
-PKER_SWETH( 3, 40) = 0.744559E+01
-PKER_SWETH( 3, 41) = 0.746023E+01
-PKER_SWETH( 3, 42) = 0.747391E+01
-PKER_SWETH( 3, 43) = 0.748670E+01
-PKER_SWETH( 3, 44) = 0.749866E+01
-PKER_SWETH( 3, 45) = 0.750985E+01
-PKER_SWETH( 3, 46) = 0.752033E+01
-PKER_SWETH( 3, 47) = 0.753014E+01
-PKER_SWETH( 3, 48) = 0.753934E+01
-PKER_SWETH( 3, 49) = 0.754797E+01
-PKER_SWETH( 3, 50) = 0.755605E+01
-PKER_SWETH( 3, 51) = 0.756364E+01
-PKER_SWETH( 3, 52) = 0.757075E+01
-PKER_SWETH( 3, 53) = 0.757742E+01
-PKER_SWETH( 3, 54) = 0.758369E+01
-PKER_SWETH( 3, 55) = 0.758956E+01
-PKER_SWETH( 3, 56) = 0.759508E+01
-PKER_SWETH( 3, 57) = 0.760025E+01
-PKER_SWETH( 3, 58) = 0.760511E+01
-PKER_SWETH( 3, 59) = 0.760967E+01
-PKER_SWETH( 3, 60) = 0.761396E+01
-PKER_SWETH( 3, 61) = 0.761798E+01
-PKER_SWETH( 3, 62) = 0.762175E+01
-PKER_SWETH( 3, 63) = 0.762529E+01
-PKER_SWETH( 3, 64) = 0.762862E+01
-PKER_SWETH( 3, 65) = 0.763174E+01
-PKER_SWETH( 3, 66) = 0.763467E+01
-PKER_SWETH( 3, 67) = 0.763743E+01
-PKER_SWETH( 3, 68) = 0.764001E+01
-PKER_SWETH( 3, 69) = 0.764244E+01
-PKER_SWETH( 3, 70) = 0.764472E+01
-PKER_SWETH( 3, 71) = 0.764686E+01
-PKER_SWETH( 3, 72) = 0.764887E+01
-PKER_SWETH( 3, 73) = 0.765075E+01
-PKER_SWETH( 3, 74) = 0.765253E+01
-PKER_SWETH( 3, 75) = 0.765419E+01
-PKER_SWETH( 3, 76) = 0.765575E+01
-PKER_SWETH( 3, 77) = 0.765722E+01
-PKER_SWETH( 3, 78) = 0.765859E+01
-PKER_SWETH( 3, 79) = 0.765989E+01
-PKER_SWETH( 3, 80) = 0.766110E+01
-PKER_SWETH( 4, 1) = 0.261585E+01
-PKER_SWETH( 4, 2) = 0.280948E+01
-PKER_SWETH( 4, 3) = 0.299603E+01
-PKER_SWETH( 4, 4) = 0.317539E+01
-PKER_SWETH( 4, 5) = 0.334799E+01
-PKER_SWETH( 4, 6) = 0.351456E+01
-PKER_SWETH( 4, 7) = 0.367607E+01
-PKER_SWETH( 4, 8) = 0.383360E+01
-PKER_SWETH( 4, 9) = 0.398823E+01
-PKER_SWETH( 4, 10) = 0.414100E+01
-PKER_SWETH( 4, 11) = 0.429270E+01
-PKER_SWETH( 4, 12) = 0.444383E+01
-PKER_SWETH( 4, 13) = 0.459433E+01
-PKER_SWETH( 4, 14) = 0.474359E+01
-PKER_SWETH( 4, 15) = 0.489033E+01
-PKER_SWETH( 4, 16) = 0.503281E+01
-PKER_SWETH( 4, 17) = 0.516906E+01
-PKER_SWETH( 4, 18) = 0.529721E+01
-PKER_SWETH( 4, 19) = 0.541582E+01
-PKER_SWETH( 4, 20) = 0.552404E+01
-PKER_SWETH( 4, 21) = 0.562165E+01
-PKER_SWETH( 4, 22) = 0.570898E+01
-PKER_SWETH( 4, 23) = 0.578673E+01
-PKER_SWETH( 4, 24) = 0.585579E+01
-PKER_SWETH( 4, 25) = 0.591716E+01
-PKER_SWETH( 4, 26) = 0.597181E+01
-PKER_SWETH( 4, 27) = 0.602062E+01
-PKER_SWETH( 4, 28) = 0.606439E+01
-PKER_SWETH( 4, 29) = 0.610382E+01
-PKER_SWETH( 4, 30) = 0.613949E+01
-PKER_SWETH( 4, 31) = 0.617190E+01
-PKER_SWETH( 4, 32) = 0.620147E+01
-PKER_SWETH( 4, 33) = 0.622855E+01
-PKER_SWETH( 4, 34) = 0.625342E+01
-PKER_SWETH( 4, 35) = 0.627635E+01
-PKER_SWETH( 4, 36) = 0.629753E+01
-PKER_SWETH( 4, 37) = 0.631716E+01
-PKER_SWETH( 4, 38) = 0.633537E+01
-PKER_SWETH( 4, 39) = 0.635230E+01
-PKER_SWETH( 4, 40) = 0.636806E+01
-PKER_SWETH( 4, 41) = 0.638276E+01
-PKER_SWETH( 4, 42) = 0.639648E+01
-PKER_SWETH( 4, 43) = 0.640930E+01
-PKER_SWETH( 4, 44) = 0.642128E+01
-PKER_SWETH( 4, 45) = 0.643249E+01
-PKER_SWETH( 4, 46) = 0.644298E+01
-PKER_SWETH( 4, 47) = 0.645281E+01
-PKER_SWETH( 4, 48) = 0.646202E+01
-PKER_SWETH( 4, 49) = 0.647065E+01
-PKER_SWETH( 4, 50) = 0.647874E+01
-PKER_SWETH( 4, 51) = 0.648633E+01
-PKER_SWETH( 4, 52) = 0.649345E+01
-PKER_SWETH( 4, 53) = 0.650012E+01
-PKER_SWETH( 4, 54) = 0.650639E+01
-PKER_SWETH( 4, 55) = 0.651227E+01
-PKER_SWETH( 4, 56) = 0.651778E+01
-PKER_SWETH( 4, 57) = 0.652296E+01
-PKER_SWETH( 4, 58) = 0.652782E+01
-PKER_SWETH( 4, 59) = 0.653238E+01
-PKER_SWETH( 4, 60) = 0.653666E+01
-PKER_SWETH( 4, 61) = 0.654068E+01
-PKER_SWETH( 4, 62) = 0.654446E+01
-PKER_SWETH( 4, 63) = 0.654800E+01
-PKER_SWETH( 4, 64) = 0.655133E+01
-PKER_SWETH( 4, 65) = 0.655445E+01
-PKER_SWETH( 4, 66) = 0.655738E+01
-PKER_SWETH( 4, 67) = 0.656014E+01
-PKER_SWETH( 4, 68) = 0.656272E+01
-PKER_SWETH( 4, 69) = 0.656515E+01
-PKER_SWETH( 4, 70) = 0.656743E+01
-PKER_SWETH( 4, 71) = 0.656957E+01
-PKER_SWETH( 4, 72) = 0.657158E+01
-PKER_SWETH( 4, 73) = 0.657346E+01
-PKER_SWETH( 4, 74) = 0.657524E+01
-PKER_SWETH( 4, 75) = 0.657690E+01
-PKER_SWETH( 4, 76) = 0.657846E+01
-PKER_SWETH( 4, 77) = 0.657993E+01
-PKER_SWETH( 4, 78) = 0.658130E+01
-PKER_SWETH( 4, 79) = 0.658260E+01
-PKER_SWETH( 4, 80) = 0.658381E+01
-PKER_SWETH( 5, 1) = 0.183666E+01
-PKER_SWETH( 5, 2) = 0.201461E+01
-PKER_SWETH( 5, 3) = 0.219011E+01
-PKER_SWETH( 5, 4) = 0.236116E+01
-PKER_SWETH( 5, 5) = 0.252677E+01
-PKER_SWETH( 5, 6) = 0.268674E+01
-PKER_SWETH( 5, 7) = 0.284137E+01
-PKER_SWETH( 5, 8) = 0.299127E+01
-PKER_SWETH( 5, 9) = 0.313728E+01
-PKER_SWETH( 5, 10) = 0.328031E+01
-PKER_SWETH( 5, 11) = 0.342122E+01
-PKER_SWETH( 5, 12) = 0.356074E+01
-PKER_SWETH( 5, 13) = 0.369927E+01
-PKER_SWETH( 5, 14) = 0.383682E+01
-PKER_SWETH( 5, 15) = 0.397284E+01
-PKER_SWETH( 5, 16) = 0.410626E+01
-PKER_SWETH( 5, 17) = 0.423559E+01
-PKER_SWETH( 5, 18) = 0.435911E+01
-PKER_SWETH( 5, 19) = 0.447524E+01
-PKER_SWETH( 5, 20) = 0.458272E+01
-PKER_SWETH( 5, 21) = 0.468086E+01
-PKER_SWETH( 5, 22) = 0.476948E+01
-PKER_SWETH( 5, 23) = 0.484888E+01
-PKER_SWETH( 5, 24) = 0.491969E+01
-PKER_SWETH( 5, 25) = 0.498273E+01
-PKER_SWETH( 5, 26) = 0.503887E+01
-PKER_SWETH( 5, 27) = 0.508897E+01
-PKER_SWETH( 5, 28) = 0.513382E+01
-PKER_SWETH( 5, 29) = 0.517414E+01
-PKER_SWETH( 5, 30) = 0.521054E+01
-PKER_SWETH( 5, 31) = 0.524353E+01
-PKER_SWETH( 5, 32) = 0.527356E+01
-PKER_SWETH( 5, 33) = 0.530100E+01
-PKER_SWETH( 5, 34) = 0.532617E+01
-PKER_SWETH( 5, 35) = 0.534933E+01
-PKER_SWETH( 5, 36) = 0.537069E+01
-PKER_SWETH( 5, 37) = 0.539046E+01
-PKER_SWETH( 5, 38) = 0.540878E+01
-PKER_SWETH( 5, 39) = 0.542580E+01
-PKER_SWETH( 5, 40) = 0.544164E+01
-PKER_SWETH( 5, 41) = 0.545639E+01
-PKER_SWETH( 5, 42) = 0.547015E+01
-PKER_SWETH( 5, 43) = 0.548300E+01
-PKER_SWETH( 5, 44) = 0.549501E+01
-PKER_SWETH( 5, 45) = 0.550624E+01
-PKER_SWETH( 5, 46) = 0.551675E+01
-PKER_SWETH( 5, 47) = 0.552659E+01
-PKER_SWETH( 5, 48) = 0.553581E+01
-PKER_SWETH( 5, 49) = 0.554445E+01
-PKER_SWETH( 5, 50) = 0.555254E+01
-PKER_SWETH( 5, 51) = 0.556014E+01
-PKER_SWETH( 5, 52) = 0.556726E+01
-PKER_SWETH( 5, 53) = 0.557394E+01
-PKER_SWETH( 5, 54) = 0.558021E+01
-PKER_SWETH( 5, 55) = 0.558609E+01
-PKER_SWETH( 5, 56) = 0.559160E+01
-PKER_SWETH( 5, 57) = 0.559678E+01
-PKER_SWETH( 5, 58) = 0.560164E+01
-PKER_SWETH( 5, 59) = 0.560621E+01
-PKER_SWETH( 5, 60) = 0.561049E+01
-PKER_SWETH( 5, 61) = 0.561451E+01
-PKER_SWETH( 5, 62) = 0.561829E+01
-PKER_SWETH( 5, 63) = 0.562183E+01
-PKER_SWETH( 5, 64) = 0.562516E+01
-PKER_SWETH( 5, 65) = 0.562828E+01
-PKER_SWETH( 5, 66) = 0.563121E+01
-PKER_SWETH( 5, 67) = 0.563396E+01
-PKER_SWETH( 5, 68) = 0.563655E+01
-PKER_SWETH( 5, 69) = 0.563898E+01
-PKER_SWETH( 5, 70) = 0.564126E+01
-PKER_SWETH( 5, 71) = 0.564340E+01
-PKER_SWETH( 5, 72) = 0.564540E+01
-PKER_SWETH( 5, 73) = 0.564729E+01
-PKER_SWETH( 5, 74) = 0.564906E+01
-PKER_SWETH( 5, 75) = 0.565073E+01
-PKER_SWETH( 5, 76) = 0.565229E+01
-PKER_SWETH( 5, 77) = 0.565375E+01
-PKER_SWETH( 5, 78) = 0.565513E+01
-PKER_SWETH( 5, 79) = 0.565642E+01
-PKER_SWETH( 5, 80) = 0.565764E+01
-PKER_SWETH( 6, 1) = 0.122732E+01
-PKER_SWETH( 6, 2) = 0.137201E+01
-PKER_SWETH( 6, 3) = 0.152420E+01
-PKER_SWETH( 6, 4) = 0.167900E+01
-PKER_SWETH( 6, 5) = 0.183306E+01
-PKER_SWETH( 6, 6) = 0.198423E+01
-PKER_SWETH( 6, 7) = 0.213147E+01
-PKER_SWETH( 6, 8) = 0.227444E+01
-PKER_SWETH( 6, 9) = 0.241330E+01
-PKER_SWETH( 6, 10) = 0.254856E+01
-PKER_SWETH( 6, 11) = 0.268088E+01
-PKER_SWETH( 6, 12) = 0.281097E+01
-PKER_SWETH( 6, 13) = 0.293942E+01
-PKER_SWETH( 6, 14) = 0.306659E+01
-PKER_SWETH( 6, 15) = 0.319250E+01
-PKER_SWETH( 6, 16) = 0.331667E+01
-PKER_SWETH( 6, 17) = 0.343821E+01
-PKER_SWETH( 6, 18) = 0.355580E+01
-PKER_SWETH( 6, 19) = 0.366800E+01
-PKER_SWETH( 6, 20) = 0.377342E+01
-PKER_SWETH( 6, 21) = 0.387101E+01
-PKER_SWETH( 6, 22) = 0.396016E+01
-PKER_SWETH( 6, 23) = 0.404075E+01
-PKER_SWETH( 6, 24) = 0.411307E+01
-PKER_SWETH( 6, 25) = 0.417768E+01
-PKER_SWETH( 6, 26) = 0.423531E+01
-PKER_SWETH( 6, 27) = 0.428674E+01
-PKER_SWETH( 6, 28) = 0.433274E+01
-PKER_SWETH( 6, 29) = 0.437401E+01
-PKER_SWETH( 6, 30) = 0.441119E+01
-PKER_SWETH( 6, 31) = 0.444482E+01
-PKER_SWETH( 6, 32) = 0.447537E+01
-PKER_SWETH( 6, 33) = 0.450322E+01
-PKER_SWETH( 6, 34) = 0.452871E+01
-PKER_SWETH( 6, 35) = 0.455213E+01
-PKER_SWETH( 6, 36) = 0.457369E+01
-PKER_SWETH( 6, 37) = 0.459362E+01
-PKER_SWETH( 6, 38) = 0.461207E+01
-PKER_SWETH( 6, 39) = 0.462919E+01
-PKER_SWETH( 6, 40) = 0.464510E+01
-PKER_SWETH( 6, 41) = 0.465991E+01
-PKER_SWETH( 6, 42) = 0.467372E+01
-PKER_SWETH( 6, 43) = 0.468661E+01
-PKER_SWETH( 6, 44) = 0.469865E+01
-PKER_SWETH( 6, 45) = 0.470990E+01
-PKER_SWETH( 6, 46) = 0.472043E+01
-PKER_SWETH( 6, 47) = 0.473028E+01
-PKER_SWETH( 6, 48) = 0.473951E+01
-PKER_SWETH( 6, 49) = 0.474816E+01
-PKER_SWETH( 6, 50) = 0.475627E+01
-PKER_SWETH( 6, 51) = 0.476387E+01
-PKER_SWETH( 6, 52) = 0.477099E+01
-PKER_SWETH( 6, 53) = 0.477767E+01
-PKER_SWETH( 6, 54) = 0.478394E+01
-PKER_SWETH( 6, 55) = 0.478983E+01
-PKER_SWETH( 6, 56) = 0.479535E+01
-PKER_SWETH( 6, 57) = 0.480053E+01
-PKER_SWETH( 6, 58) = 0.480539E+01
-PKER_SWETH( 6, 59) = 0.480995E+01
-PKER_SWETH( 6, 60) = 0.481424E+01
-PKER_SWETH( 6, 61) = 0.481826E+01
-PKER_SWETH( 6, 62) = 0.482203E+01
-PKER_SWETH( 6, 63) = 0.482557E+01
-PKER_SWETH( 6, 64) = 0.482890E+01
-PKER_SWETH( 6, 65) = 0.483203E+01
-PKER_SWETH( 6, 66) = 0.483496E+01
-PKER_SWETH( 6, 67) = 0.483771E+01
-PKER_SWETH( 6, 68) = 0.484030E+01
-PKER_SWETH( 6, 69) = 0.484272E+01
-PKER_SWETH( 6, 70) = 0.484500E+01
-PKER_SWETH( 6, 71) = 0.484714E+01
-PKER_SWETH( 6, 72) = 0.484915E+01
-PKER_SWETH( 6, 73) = 0.485104E+01
-PKER_SWETH( 6, 74) = 0.485281E+01
-PKER_SWETH( 6, 75) = 0.485447E+01
-PKER_SWETH( 6, 76) = 0.485604E+01
-PKER_SWETH( 6, 77) = 0.485750E+01
-PKER_SWETH( 6, 78) = 0.485888E+01
-PKER_SWETH( 6, 79) = 0.486017E+01
-PKER_SWETH( 6, 80) = 0.486139E+01
-PKER_SWETH( 7, 1) = 0.820900E+00
-PKER_SWETH( 7, 2) = 0.905506E+00
-PKER_SWETH( 7, 3) = 0.101233E+01
-PKER_SWETH( 7, 4) = 0.113395E+01
-PKER_SWETH( 7, 5) = 0.126438E+01
-PKER_SWETH( 7, 6) = 0.139888E+01
-PKER_SWETH( 7, 7) = 0.153405E+01
-PKER_SWETH( 7, 8) = 0.166779E+01
-PKER_SWETH( 7, 9) = 0.179891E+01
-PKER_SWETH( 7, 10) = 0.192695E+01
-PKER_SWETH( 7, 11) = 0.205196E+01
-PKER_SWETH( 7, 12) = 0.217429E+01
-PKER_SWETH( 7, 13) = 0.229440E+01
-PKER_SWETH( 7, 14) = 0.241276E+01
-PKER_SWETH( 7, 15) = 0.252965E+01
-PKER_SWETH( 7, 16) = 0.264507E+01
-PKER_SWETH( 7, 17) = 0.275862E+01
-PKER_SWETH( 7, 18) = 0.286951E+01
-PKER_SWETH( 7, 19) = 0.297663E+01
-PKER_SWETH( 7, 20) = 0.307872E+01
-PKER_SWETH( 7, 21) = 0.317460E+01
-PKER_SWETH( 7, 22) = 0.326335E+01
-PKER_SWETH( 7, 23) = 0.334449E+01
-PKER_SWETH( 7, 24) = 0.341791E+01
-PKER_SWETH( 7, 25) = 0.348388E+01
-PKER_SWETH( 7, 26) = 0.354293E+01
-PKER_SWETH( 7, 27) = 0.359570E+01
-PKER_SWETH( 7, 28) = 0.364289E+01
-PKER_SWETH( 7, 29) = 0.368518E+01
-PKER_SWETH( 7, 30) = 0.372321E+01
-PKER_SWETH( 7, 31) = 0.375754E+01
-PKER_SWETH( 7, 32) = 0.378865E+01
-PKER_SWETH( 7, 33) = 0.381696E+01
-PKER_SWETH( 7, 34) = 0.384281E+01
-PKER_SWETH( 7, 35) = 0.386651E+01
-PKER_SWETH( 7, 36) = 0.388831E+01
-PKER_SWETH( 7, 37) = 0.390841E+01
-PKER_SWETH( 7, 38) = 0.392700E+01
-PKER_SWETH( 7, 39) = 0.394423E+01
-PKER_SWETH( 7, 40) = 0.396023E+01
-PKER_SWETH( 7, 41) = 0.397511E+01
-PKER_SWETH( 7, 42) = 0.398897E+01
-PKER_SWETH( 7, 43) = 0.400190E+01
-PKER_SWETH( 7, 44) = 0.401397E+01
-PKER_SWETH( 7, 45) = 0.402525E+01
-PKER_SWETH( 7, 46) = 0.403580E+01
-PKER_SWETH( 7, 47) = 0.404567E+01
-PKER_SWETH( 7, 48) = 0.405491E+01
-PKER_SWETH( 7, 49) = 0.406357E+01
-PKER_SWETH( 7, 50) = 0.407168E+01
-PKER_SWETH( 7, 51) = 0.407929E+01
-PKER_SWETH( 7, 52) = 0.408642E+01
-PKER_SWETH( 7, 53) = 0.409310E+01
-PKER_SWETH( 7, 54) = 0.409938E+01
-PKER_SWETH( 7, 55) = 0.410526E+01
-PKER_SWETH( 7, 56) = 0.411078E+01
-PKER_SWETH( 7, 57) = 0.411596E+01
-PKER_SWETH( 7, 58) = 0.412083E+01
-PKER_SWETH( 7, 59) = 0.412539E+01
-PKER_SWETH( 7, 60) = 0.412968E+01
-PKER_SWETH( 7, 61) = 0.413370E+01
-PKER_SWETH( 7, 62) = 0.413747E+01
-PKER_SWETH( 7, 63) = 0.414102E+01
-PKER_SWETH( 7, 64) = 0.414434E+01
-PKER_SWETH( 7, 65) = 0.414747E+01
-PKER_SWETH( 7, 66) = 0.415040E+01
-PKER_SWETH( 7, 67) = 0.415315E+01
-PKER_SWETH( 7, 68) = 0.415574E+01
-PKER_SWETH( 7, 69) = 0.415817E+01
-PKER_SWETH( 7, 70) = 0.416045E+01
-PKER_SWETH( 7, 71) = 0.416259E+01
-PKER_SWETH( 7, 72) = 0.416460E+01
-PKER_SWETH( 7, 73) = 0.416648E+01
-PKER_SWETH( 7, 74) = 0.416825E+01
-PKER_SWETH( 7, 75) = 0.416992E+01
-PKER_SWETH( 7, 76) = 0.417148E+01
-PKER_SWETH( 7, 77) = 0.417294E+01
-PKER_SWETH( 7, 78) = 0.417432E+01
-PKER_SWETH( 7, 79) = 0.417561E+01
-PKER_SWETH( 7, 80) = 0.417683E+01
-PKER_SWETH( 8, 1) = 0.649351E+00
-PKER_SWETH( 8, 2) = 0.650011E+00
-PKER_SWETH( 8, 3) = 0.685517E+00
-PKER_SWETH( 8, 4) = 0.749664E+00
-PKER_SWETH( 8, 5) = 0.835874E+00
-PKER_SWETH( 8, 6) = 0.937419E+00
-PKER_SWETH( 8, 7) = 0.104881E+01
-PKER_SWETH( 8, 8) = 0.116549E+01
-PKER_SWETH( 8, 9) = 0.128413E+01
-PKER_SWETH( 8, 10) = 0.140255E+01
-PKER_SWETH( 8, 11) = 0.151951E+01
-PKER_SWETH( 8, 12) = 0.163444E+01
-PKER_SWETH( 8, 13) = 0.174722E+01
-PKER_SWETH( 8, 14) = 0.185802E+01
-PKER_SWETH( 8, 15) = 0.196710E+01
-PKER_SWETH( 8, 16) = 0.207463E+01
-PKER_SWETH( 8, 17) = 0.218056E+01
-PKER_SWETH( 8, 18) = 0.228455E+01
-PKER_SWETH( 8, 19) = 0.238589E+01
-PKER_SWETH( 8, 20) = 0.248364E+01
-PKER_SWETH( 8, 21) = 0.257669E+01
-PKER_SWETH( 8, 22) = 0.266404E+01
-PKER_SWETH( 8, 23) = 0.274491E+01
-PKER_SWETH( 8, 24) = 0.281887E+01
-PKER_SWETH( 8, 25) = 0.288587E+01
-PKER_SWETH( 8, 26) = 0.294616E+01
-PKER_SWETH( 8, 27) = 0.300021E+01
-PKER_SWETH( 8, 28) = 0.304860E+01
-PKER_SWETH( 8, 29) = 0.309196E+01
-PKER_SWETH( 8, 30) = 0.313090E+01
-PKER_SWETH( 8, 31) = 0.316598E+01
-PKER_SWETH( 8, 32) = 0.319771E+01
-PKER_SWETH( 8, 33) = 0.322652E+01
-PKER_SWETH( 8, 34) = 0.325278E+01
-PKER_SWETH( 8, 35) = 0.327680E+01
-PKER_SWETH( 8, 36) = 0.329884E+01
-PKER_SWETH( 8, 37) = 0.331915E+01
-PKER_SWETH( 8, 38) = 0.333789E+01
-PKER_SWETH( 8, 39) = 0.335525E+01
-PKER_SWETH( 8, 40) = 0.337134E+01
-PKER_SWETH( 8, 41) = 0.338630E+01
-PKER_SWETH( 8, 42) = 0.340022E+01
-PKER_SWETH( 8, 43) = 0.341320E+01
-PKER_SWETH( 8, 44) = 0.342530E+01
-PKER_SWETH( 8, 45) = 0.343661E+01
-PKER_SWETH( 8, 46) = 0.344718E+01
-PKER_SWETH( 8, 47) = 0.345707E+01
-PKER_SWETH( 8, 48) = 0.346633E+01
-PKER_SWETH( 8, 49) = 0.347500E+01
-PKER_SWETH( 8, 50) = 0.348312E+01
-PKER_SWETH( 8, 51) = 0.349073E+01
-PKER_SWETH( 8, 52) = 0.349787E+01
-PKER_SWETH( 8, 53) = 0.350456E+01
-PKER_SWETH( 8, 54) = 0.351083E+01
-PKER_SWETH( 8, 55) = 0.351672E+01
-PKER_SWETH( 8, 56) = 0.352224E+01
-PKER_SWETH( 8, 57) = 0.352743E+01
-PKER_SWETH( 8, 58) = 0.353229E+01
-PKER_SWETH( 8, 59) = 0.353686E+01
-PKER_SWETH( 8, 60) = 0.354114E+01
-PKER_SWETH( 8, 61) = 0.354516E+01
-PKER_SWETH( 8, 62) = 0.354894E+01
-PKER_SWETH( 8, 63) = 0.355249E+01
-PKER_SWETH( 8, 64) = 0.355581E+01
-PKER_SWETH( 8, 65) = 0.355894E+01
-PKER_SWETH( 8, 66) = 0.356187E+01
-PKER_SWETH( 8, 67) = 0.356462E+01
-PKER_SWETH( 8, 68) = 0.356721E+01
-PKER_SWETH( 8, 69) = 0.356964E+01
-PKER_SWETH( 8, 70) = 0.357192E+01
-PKER_SWETH( 8, 71) = 0.357406E+01
-PKER_SWETH( 8, 72) = 0.357606E+01
-PKER_SWETH( 8, 73) = 0.357795E+01
-PKER_SWETH( 8, 74) = 0.357972E+01
-PKER_SWETH( 8, 75) = 0.358139E+01
-PKER_SWETH( 8, 76) = 0.358295E+01
-PKER_SWETH( 8, 77) = 0.358441E+01
-PKER_SWETH( 8, 78) = 0.358579E+01
-PKER_SWETH( 8, 79) = 0.358708E+01
-PKER_SWETH( 8, 80) = 0.358830E+01
-PKER_SWETH( 9, 1) = 0.702519E+00
-PKER_SWETH( 9, 2) = 0.616447E+00
-PKER_SWETH( 9, 3) = 0.568133E+00
-PKER_SWETH( 9, 4) = 0.555691E+00
-PKER_SWETH( 9, 5) = 0.575613E+00
-PKER_SWETH( 9, 6) = 0.622847E+00
-PKER_SWETH( 9, 7) = 0.691366E+00
-PKER_SWETH( 9, 8) = 0.775606E+00
-PKER_SWETH( 9, 9) = 0.870423E+00
-PKER_SWETH( 9, 10) = 0.971456E+00
-PKER_SWETH( 9, 11) = 0.107560E+01
-PKER_SWETH( 9, 12) = 0.118058E+01
-PKER_SWETH( 9, 13) = 0.128511E+01
-PKER_SWETH( 9, 14) = 0.138846E+01
-PKER_SWETH( 9, 15) = 0.149035E+01
-PKER_SWETH( 9, 16) = 0.159076E+01
-PKER_SWETH( 9, 17) = 0.168968E+01
-PKER_SWETH( 9, 18) = 0.178699E+01
-PKER_SWETH( 9, 19) = 0.188233E+01
-PKER_SWETH( 9, 20) = 0.197509E+01
-PKER_SWETH( 9, 21) = 0.206443E+01
-PKER_SWETH( 9, 22) = 0.214939E+01
-PKER_SWETH( 9, 23) = 0.222911E+01
-PKER_SWETH( 9, 24) = 0.230291E+01
-PKER_SWETH( 9, 25) = 0.237045E+01
-PKER_SWETH( 9, 26) = 0.243169E+01
-PKER_SWETH( 9, 27) = 0.248687E+01
-PKER_SWETH( 9, 28) = 0.253642E+01
-PKER_SWETH( 9, 29) = 0.258086E+01
-PKER_SWETH( 9, 30) = 0.262075E+01
-PKER_SWETH( 9, 31) = 0.265665E+01
-PKER_SWETH( 9, 32) = 0.268906E+01
-PKER_SWETH( 9, 33) = 0.271842E+01
-PKER_SWETH( 9, 34) = 0.274512E+01
-PKER_SWETH( 9, 35) = 0.276950E+01
-PKER_SWETH( 9, 36) = 0.279183E+01
-PKER_SWETH( 9, 37) = 0.281235E+01
-PKER_SWETH( 9, 38) = 0.283128E+01
-PKER_SWETH( 9, 39) = 0.284877E+01
-PKER_SWETH( 9, 40) = 0.286497E+01
-PKER_SWETH( 9, 41) = 0.288002E+01
-PKER_SWETH( 9, 42) = 0.289400E+01
-PKER_SWETH( 9, 43) = 0.290703E+01
-PKER_SWETH( 9, 44) = 0.291918E+01
-PKER_SWETH( 9, 45) = 0.293052E+01
-PKER_SWETH( 9, 46) = 0.294112E+01
-PKER_SWETH( 9, 47) = 0.295103E+01
-PKER_SWETH( 9, 48) = 0.296030E+01
-PKER_SWETH( 9, 49) = 0.296898E+01
-PKER_SWETH( 9, 50) = 0.297711E+01
-PKER_SWETH( 9, 51) = 0.298473E+01
-PKER_SWETH( 9, 52) = 0.299187E+01
-PKER_SWETH( 9, 53) = 0.299857E+01
-PKER_SWETH( 9, 54) = 0.300485E+01
-PKER_SWETH( 9, 55) = 0.301074E+01
-PKER_SWETH( 9, 56) = 0.301626E+01
-PKER_SWETH( 9, 57) = 0.302145E+01
-PKER_SWETH( 9, 58) = 0.302631E+01
-PKER_SWETH( 9, 59) = 0.303088E+01
-PKER_SWETH( 9, 60) = 0.303517E+01
-PKER_SWETH( 9, 61) = 0.303919E+01
-PKER_SWETH( 9, 62) = 0.304297E+01
-PKER_SWETH( 9, 63) = 0.304651E+01
-PKER_SWETH( 9, 64) = 0.304984E+01
-PKER_SWETH( 9, 65) = 0.305296E+01
-PKER_SWETH( 9, 66) = 0.305590E+01
-PKER_SWETH( 9, 67) = 0.305865E+01
-PKER_SWETH( 9, 68) = 0.306124E+01
-PKER_SWETH( 9, 69) = 0.306366E+01
-PKER_SWETH( 9, 70) = 0.306594E+01
-PKER_SWETH( 9, 71) = 0.306808E+01
-PKER_SWETH( 9, 72) = 0.307009E+01
-PKER_SWETH( 9, 73) = 0.307198E+01
-PKER_SWETH( 9, 74) = 0.307375E+01
-PKER_SWETH( 9, 75) = 0.307541E+01
-PKER_SWETH( 9, 76) = 0.307697E+01
-PKER_SWETH( 9, 77) = 0.307844E+01
-PKER_SWETH( 9, 78) = 0.307982E+01
-PKER_SWETH( 9, 79) = 0.308111E+01
-PKER_SWETH( 9, 80) = 0.308233E+01
-PKER_SWETH( 10, 1) = 0.910019E+00
-PKER_SWETH( 10, 2) = 0.761058E+00
-PKER_SWETH( 10, 3) = 0.642166E+00
-PKER_SWETH( 10, 4) = 0.555322E+00
-PKER_SWETH( 10, 5) = 0.501395E+00
-PKER_SWETH( 10, 6) = 0.479375E+00
-PKER_SWETH( 10, 7) = 0.486799E+00
-PKER_SWETH( 10, 8) = 0.519678E+00
-PKER_SWETH( 10, 9) = 0.573342E+00
-PKER_SWETH( 10, 10) = 0.642647E+00
-PKER_SWETH( 10, 11) = 0.723043E+00
-PKER_SWETH( 10, 12) = 0.810494E+00
-PKER_SWETH( 10, 13) = 0.901923E+00
-PKER_SWETH( 10, 14) = 0.995138E+00
-PKER_SWETH( 10, 15) = 0.108870E+01
-PKER_SWETH( 10, 16) = 0.118176E+01
-PKER_SWETH( 10, 17) = 0.127386E+01
-PKER_SWETH( 10, 18) = 0.136474E+01
-PKER_SWETH( 10, 19) = 0.145412E+01
-PKER_SWETH( 10, 20) = 0.154161E+01
-PKER_SWETH( 10, 21) = 0.162661E+01
-PKER_SWETH( 10, 22) = 0.170837E+01
-PKER_SWETH( 10, 23) = 0.178607E+01
-PKER_SWETH( 10, 24) = 0.185894E+01
-PKER_SWETH( 10, 25) = 0.192641E+01
-PKER_SWETH( 10, 26) = 0.198818E+01
-PKER_SWETH( 10, 27) = 0.204425E+01
-PKER_SWETH( 10, 28) = 0.209483E+01
-PKER_SWETH( 10, 29) = 0.214031E+01
-PKER_SWETH( 10, 30) = 0.218118E+01
-PKER_SWETH( 10, 31) = 0.221794E+01
-PKER_SWETH( 10, 32) = 0.225107E+01
-PKER_SWETH( 10, 33) = 0.228104E+01
-PKER_SWETH( 10, 34) = 0.230823E+01
-PKER_SWETH( 10, 35) = 0.233301E+01
-PKER_SWETH( 10, 36) = 0.235566E+01
-PKER_SWETH( 10, 37) = 0.237643E+01
-PKER_SWETH( 10, 38) = 0.239556E+01
-PKER_SWETH( 10, 39) = 0.241320E+01
-PKER_SWETH( 10, 40) = 0.242953E+01
-PKER_SWETH( 10, 41) = 0.244467E+01
-PKER_SWETH( 10, 42) = 0.245873E+01
-PKER_SWETH( 10, 43) = 0.247182E+01
-PKER_SWETH( 10, 44) = 0.248402E+01
-PKER_SWETH( 10, 45) = 0.249539E+01
-PKER_SWETH( 10, 46) = 0.250602E+01
-PKER_SWETH( 10, 47) = 0.251595E+01
-PKER_SWETH( 10, 48) = 0.252524E+01
-PKER_SWETH( 10, 49) = 0.253393E+01
-PKER_SWETH( 10, 50) = 0.254208E+01
-PKER_SWETH( 10, 51) = 0.254970E+01
-PKER_SWETH( 10, 52) = 0.255685E+01
-PKER_SWETH( 10, 53) = 0.256355E+01
-PKER_SWETH( 10, 54) = 0.256983E+01
-PKER_SWETH( 10, 55) = 0.257573E+01
-PKER_SWETH( 10, 56) = 0.258126E+01
-PKER_SWETH( 10, 57) = 0.258644E+01
-PKER_SWETH( 10, 58) = 0.259131E+01
-PKER_SWETH( 10, 59) = 0.259588E+01
-PKER_SWETH( 10, 60) = 0.260017E+01
-PKER_SWETH( 10, 61) = 0.260419E+01
-PKER_SWETH( 10, 62) = 0.260797E+01
-PKER_SWETH( 10, 63) = 0.261151E+01
-PKER_SWETH( 10, 64) = 0.261484E+01
-PKER_SWETH( 10, 65) = 0.261796E+01
-PKER_SWETH( 10, 66) = 0.262090E+01
-PKER_SWETH( 10, 67) = 0.262365E+01
-PKER_SWETH( 10, 68) = 0.262624E+01
-PKER_SWETH( 10, 69) = 0.262866E+01
-PKER_SWETH( 10, 70) = 0.263094E+01
-PKER_SWETH( 10, 71) = 0.263308E+01
-PKER_SWETH( 10, 72) = 0.263509E+01
-PKER_SWETH( 10, 73) = 0.263698E+01
-PKER_SWETH( 10, 74) = 0.263875E+01
-PKER_SWETH( 10, 75) = 0.264042E+01
-PKER_SWETH( 10, 76) = 0.264198E+01
-PKER_SWETH( 10, 77) = 0.264344E+01
-PKER_SWETH( 10, 78) = 0.264482E+01
-PKER_SWETH( 10, 79) = 0.264611E+01
-PKER_SWETH( 10, 80) = 0.264733E+01
-PKER_SWETH( 11, 1) = 0.117970E+01
-PKER_SWETH( 11, 2) = 0.999555E+00
-PKER_SWETH( 11, 3) = 0.839382E+00
-PKER_SWETH( 11, 4) = 0.701679E+00
-PKER_SWETH( 11, 5) = 0.588986E+00
-PKER_SWETH( 11, 6) = 0.503339E+00
-PKER_SWETH( 11, 7) = 0.446069E+00
-PKER_SWETH( 11, 8) = 0.417187E+00
-PKER_SWETH( 11, 9) = 0.414688E+00
-PKER_SWETH( 11, 10) = 0.436027E+00
-PKER_SWETH( 11, 11) = 0.477087E+00
-PKER_SWETH( 11, 12) = 0.533660E+00
-PKER_SWETH( 11, 13) = 0.601609E+00
-PKER_SWETH( 11, 14) = 0.677240E+00
-PKER_SWETH( 11, 15) = 0.757583E+00
-PKER_SWETH( 11, 16) = 0.840432E+00
-PKER_SWETH( 11, 17) = 0.924274E+00
-PKER_SWETH( 11, 18) = 0.100809E+01
-PKER_SWETH( 11, 19) = 0.109125E+01
-PKER_SWETH( 11, 20) = 0.117322E+01
-PKER_SWETH( 11, 21) = 0.125348E+01
-PKER_SWETH( 11, 22) = 0.133144E+01
-PKER_SWETH( 11, 23) = 0.140636E+01
-PKER_SWETH( 11, 24) = 0.147751E+01
-PKER_SWETH( 11, 25) = 0.154422E+01
-PKER_SWETH( 11, 26) = 0.160600E+01
-PKER_SWETH( 11, 27) = 0.166258E+01
-PKER_SWETH( 11, 28) = 0.171399E+01
-PKER_SWETH( 11, 29) = 0.176042E+01
-PKER_SWETH( 11, 30) = 0.180224E+01
-PKER_SWETH( 11, 31) = 0.183988E+01
-PKER_SWETH( 11, 32) = 0.187378E+01
-PKER_SWETH( 11, 33) = 0.190440E+01
-PKER_SWETH( 11, 34) = 0.193214E+01
-PKER_SWETH( 11, 35) = 0.195735E+01
-PKER_SWETH( 11, 36) = 0.198036E+01
-PKER_SWETH( 11, 37) = 0.200142E+01
-PKER_SWETH( 11, 38) = 0.202076E+01
-PKER_SWETH( 11, 39) = 0.203859E+01
-PKER_SWETH( 11, 40) = 0.205505E+01
-PKER_SWETH( 11, 41) = 0.207030E+01
-PKER_SWETH( 11, 42) = 0.208445E+01
-PKER_SWETH( 11, 43) = 0.209760E+01
-PKER_SWETH( 11, 44) = 0.210985E+01
-PKER_SWETH( 11, 45) = 0.212127E+01
-PKER_SWETH( 11, 46) = 0.213193E+01
-PKER_SWETH( 11, 47) = 0.214188E+01
-PKER_SWETH( 11, 48) = 0.215119E+01
-PKER_SWETH( 11, 49) = 0.215990E+01
-PKER_SWETH( 11, 50) = 0.216805E+01
-PKER_SWETH( 11, 51) = 0.217569E+01
-PKER_SWETH( 11, 52) = 0.218285E+01
-PKER_SWETH( 11, 53) = 0.218955E+01
-PKER_SWETH( 11, 54) = 0.219584E+01
-PKER_SWETH( 11, 55) = 0.220174E+01
-PKER_SWETH( 11, 56) = 0.220727E+01
-PKER_SWETH( 11, 57) = 0.221246E+01
-PKER_SWETH( 11, 58) = 0.221733E+01
-PKER_SWETH( 11, 59) = 0.222190E+01
-PKER_SWETH( 11, 60) = 0.222618E+01
-PKER_SWETH( 11, 61) = 0.223021E+01
-PKER_SWETH( 11, 62) = 0.223399E+01
-PKER_SWETH( 11, 63) = 0.223753E+01
-PKER_SWETH( 11, 64) = 0.224086E+01
-PKER_SWETH( 11, 65) = 0.224399E+01
-PKER_SWETH( 11, 66) = 0.224692E+01
-PKER_SWETH( 11, 67) = 0.224967E+01
-PKER_SWETH( 11, 68) = 0.225226E+01
-PKER_SWETH( 11, 69) = 0.225469E+01
-PKER_SWETH( 11, 70) = 0.225697E+01
-PKER_SWETH( 11, 71) = 0.225911E+01
-PKER_SWETH( 11, 72) = 0.226112E+01
-PKER_SWETH( 11, 73) = 0.226300E+01
-PKER_SWETH( 11, 74) = 0.226477E+01
-PKER_SWETH( 11, 75) = 0.226644E+01
-PKER_SWETH( 11, 76) = 0.226800E+01
-PKER_SWETH( 11, 77) = 0.226947E+01
-PKER_SWETH( 11, 78) = 0.227084E+01
-PKER_SWETH( 11, 79) = 0.227214E+01
-PKER_SWETH( 11, 80) = 0.227335E+01
-PKER_SWETH( 12, 1) = 0.144652E+01
-PKER_SWETH( 12, 2) = 0.125611E+01
-PKER_SWETH( 12, 3) = 0.107975E+01
-PKER_SWETH( 12, 4) = 0.918380E+00
-PKER_SWETH( 12, 5) = 0.773485E+00
-PKER_SWETH( 12, 6) = 0.647036E+00
-PKER_SWETH( 12, 7) = 0.541359E+00
-PKER_SWETH( 12, 8) = 0.458510E+00
-PKER_SWETH( 12, 9) = 0.399890E+00
-PKER_SWETH( 12, 10) = 0.366094E+00
-PKER_SWETH( 12, 11) = 0.356301E+00
-PKER_SWETH( 12, 12) = 0.368080E+00
-PKER_SWETH( 12, 13) = 0.398694E+00
-PKER_SWETH( 12, 14) = 0.444471E+00
-PKER_SWETH( 12, 15) = 0.501775E+00
-PKER_SWETH( 12, 16) = 0.567143E+00
-PKER_SWETH( 12, 17) = 0.637796E+00
-PKER_SWETH( 12, 18) = 0.711513E+00
-PKER_SWETH( 12, 19) = 0.786658E+00
-PKER_SWETH( 12, 20) = 0.862084E+00
-PKER_SWETH( 12, 21) = 0.936916E+00
-PKER_SWETH( 12, 22) = 0.101042E+01
-PKER_SWETH( 12, 23) = 0.108188E+01
-PKER_SWETH( 12, 24) = 0.115058E+01
-PKER_SWETH( 12, 25) = 0.121581E+01
-PKER_SWETH( 12, 26) = 0.127697E+01
-PKER_SWETH( 12, 27) = 0.133361E+01
-PKER_SWETH( 12, 28) = 0.138552E+01
-PKER_SWETH( 12, 29) = 0.143272E+01
-PKER_SWETH( 12, 30) = 0.147541E+01
-PKER_SWETH( 12, 31) = 0.151391E+01
-PKER_SWETH( 12, 32) = 0.154861E+01
-PKER_SWETH( 12, 33) = 0.157992E+01
-PKER_SWETH( 12, 34) = 0.160825E+01
-PKER_SWETH( 12, 35) = 0.163395E+01
-PKER_SWETH( 12, 36) = 0.165735E+01
-PKER_SWETH( 12, 37) = 0.167873E+01
-PKER_SWETH( 12, 38) = 0.169832E+01
-PKER_SWETH( 12, 39) = 0.171635E+01
-PKER_SWETH( 12, 40) = 0.173297E+01
-PKER_SWETH( 12, 41) = 0.174834E+01
-PKER_SWETH( 12, 42) = 0.176259E+01
-PKER_SWETH( 12, 43) = 0.177582E+01
-PKER_SWETH( 12, 44) = 0.178812E+01
-PKER_SWETH( 12, 45) = 0.179959E+01
-PKER_SWETH( 12, 46) = 0.181028E+01
-PKER_SWETH( 12, 47) = 0.182026E+01
-PKER_SWETH( 12, 48) = 0.182960E+01
-PKER_SWETH( 12, 49) = 0.183832E+01
-PKER_SWETH( 12, 50) = 0.184649E+01
-PKER_SWETH( 12, 51) = 0.185414E+01
-PKER_SWETH( 12, 52) = 0.186130E+01
-PKER_SWETH( 12, 53) = 0.186801E+01
-PKER_SWETH( 12, 54) = 0.187430E+01
-PKER_SWETH( 12, 55) = 0.188021E+01
-PKER_SWETH( 12, 56) = 0.188574E+01
-PKER_SWETH( 12, 57) = 0.189093E+01
-PKER_SWETH( 12, 58) = 0.189580E+01
-PKER_SWETH( 12, 59) = 0.190037E+01
-PKER_SWETH( 12, 60) = 0.190466E+01
-PKER_SWETH( 12, 61) = 0.190869E+01
-PKER_SWETH( 12, 62) = 0.191247E+01
-PKER_SWETH( 12, 63) = 0.191601E+01
-PKER_SWETH( 12, 64) = 0.191934E+01
-PKER_SWETH( 12, 65) = 0.192247E+01
-PKER_SWETH( 12, 66) = 0.192540E+01
-PKER_SWETH( 12, 67) = 0.192815E+01
-PKER_SWETH( 12, 68) = 0.193074E+01
-PKER_SWETH( 12, 69) = 0.193317E+01
-PKER_SWETH( 12, 70) = 0.193545E+01
-PKER_SWETH( 12, 71) = 0.193759E+01
-PKER_SWETH( 12, 72) = 0.193960E+01
-PKER_SWETH( 12, 73) = 0.194149E+01
-PKER_SWETH( 12, 74) = 0.194326E+01
-PKER_SWETH( 12, 75) = 0.194492E+01
-PKER_SWETH( 12, 76) = 0.194648E+01
-PKER_SWETH( 12, 77) = 0.194795E+01
-PKER_SWETH( 12, 78) = 0.194933E+01
-PKER_SWETH( 12, 79) = 0.195062E+01
-PKER_SWETH( 12, 80) = 0.195183E+01
-PKER_SWETH( 13, 1) = 0.168479E+01
-PKER_SWETH( 13, 2) = 0.149223E+01
-PKER_SWETH( 13, 3) = 0.131178E+01
-PKER_SWETH( 13, 4) = 0.114318E+01
-PKER_SWETH( 13, 5) = 0.986502E+00
-PKER_SWETH( 13, 6) = 0.842330E+00
-PKER_SWETH( 13, 7) = 0.711777E+00
-PKER_SWETH( 13, 8) = 0.596438E+00
-PKER_SWETH( 13, 9) = 0.498240E+00
-PKER_SWETH( 13, 10) = 0.419186E+00
-PKER_SWETH( 13, 11) = 0.360884E+00
-PKER_SWETH( 13, 12) = 0.324082E+00
-PKER_SWETH( 13, 13) = 0.308477E+00
-PKER_SWETH( 13, 14) = 0.312993E+00
-PKER_SWETH( 13, 15) = 0.335025E+00
-PKER_SWETH( 13, 16) = 0.371680E+00
-PKER_SWETH( 13, 17) = 0.419845E+00
-PKER_SWETH( 13, 18) = 0.476331E+00
-PKER_SWETH( 13, 19) = 0.538496E+00
-PKER_SWETH( 13, 20) = 0.604102E+00
-PKER_SWETH( 13, 21) = 0.671400E+00
-PKER_SWETH( 13, 22) = 0.739062E+00
-PKER_SWETH( 13, 23) = 0.806033E+00
-PKER_SWETH( 13, 24) = 0.871408E+00
-PKER_SWETH( 13, 25) = 0.934369E+00
-PKER_SWETH( 13, 26) = 0.994201E+00
-PKER_SWETH( 13, 27) = 0.105032E+01
-PKER_SWETH( 13, 28) = 0.110232E+01
-PKER_SWETH( 13, 29) = 0.115001E+01
-PKER_SWETH( 13, 30) = 0.119341E+01
-PKER_SWETH( 13, 31) = 0.123271E+01
-PKER_SWETH( 13, 32) = 0.126820E+01
-PKER_SWETH( 13, 33) = 0.130023E+01
-PKER_SWETH( 13, 34) = 0.132918E+01
-PKER_SWETH( 13, 35) = 0.135541E+01
-PKER_SWETH( 13, 36) = 0.137925E+01
-PKER_SWETH( 13, 37) = 0.140098E+01
-PKER_SWETH( 13, 38) = 0.142086E+01
-PKER_SWETH( 13, 39) = 0.143911E+01
-PKER_SWETH( 13, 40) = 0.145591E+01
-PKER_SWETH( 13, 41) = 0.147142E+01
-PKER_SWETH( 13, 42) = 0.148578E+01
-PKER_SWETH( 13, 43) = 0.149910E+01
-PKER_SWETH( 13, 44) = 0.151147E+01
-PKER_SWETH( 13, 45) = 0.152298E+01
-PKER_SWETH( 13, 46) = 0.153372E+01
-PKER_SWETH( 13, 47) = 0.154373E+01
-PKER_SWETH( 13, 48) = 0.155309E+01
-PKER_SWETH( 13, 49) = 0.156184E+01
-PKER_SWETH( 13, 50) = 0.157002E+01
-PKER_SWETH( 13, 51) = 0.157768E+01
-PKER_SWETH( 13, 52) = 0.158485E+01
-PKER_SWETH( 13, 53) = 0.159157E+01
-PKER_SWETH( 13, 54) = 0.159787E+01
-PKER_SWETH( 13, 55) = 0.160377E+01
-PKER_SWETH( 13, 56) = 0.160931E+01
-PKER_SWETH( 13, 57) = 0.161451E+01
-PKER_SWETH( 13, 58) = 0.161938E+01
-PKER_SWETH( 13, 59) = 0.162395E+01
-PKER_SWETH( 13, 60) = 0.162824E+01
-PKER_SWETH( 13, 61) = 0.163227E+01
-PKER_SWETH( 13, 62) = 0.163605E+01
-PKER_SWETH( 13, 63) = 0.163959E+01
-PKER_SWETH( 13, 64) = 0.164292E+01
-PKER_SWETH( 13, 65) = 0.164605E+01
-PKER_SWETH( 13, 66) = 0.164898E+01
-PKER_SWETH( 13, 67) = 0.165174E+01
-PKER_SWETH( 13, 68) = 0.165432E+01
-PKER_SWETH( 13, 69) = 0.165675E+01
-PKER_SWETH( 13, 70) = 0.165903E+01
-PKER_SWETH( 13, 71) = 0.166117E+01
-PKER_SWETH( 13, 72) = 0.166318E+01
-PKER_SWETH( 13, 73) = 0.166507E+01
-PKER_SWETH( 13, 74) = 0.166684E+01
-PKER_SWETH( 13, 75) = 0.166850E+01
-PKER_SWETH( 13, 76) = 0.167007E+01
-PKER_SWETH( 13, 77) = 0.167153E+01
-PKER_SWETH( 13, 78) = 0.167291E+01
-PKER_SWETH( 13, 79) = 0.167420E+01
-PKER_SWETH( 13, 80) = 0.167542E+01
-PKER_SWETH( 14, 1) = 0.189106E+01
-PKER_SWETH( 14, 2) = 0.169828E+01
-PKER_SWETH( 14, 3) = 0.151724E+01
-PKER_SWETH( 14, 4) = 0.134728E+01
-PKER_SWETH( 14, 5) = 0.118787E+01
-PKER_SWETH( 14, 6) = 0.103869E+01
-PKER_SWETH( 14, 7) = 0.899664E+00
-PKER_SWETH( 14, 8) = 0.771152E+00
-PKER_SWETH( 14, 9) = 0.653915E+00
-PKER_SWETH( 14, 10) = 0.549229E+00
-PKER_SWETH( 14, 11) = 0.458726E+00
-PKER_SWETH( 14, 12) = 0.384162E+00
-PKER_SWETH( 14, 13) = 0.327214E+00
-PKER_SWETH( 14, 14) = 0.288898E+00
-PKER_SWETH( 14, 15) = 0.269417E+00
-PKER_SWETH( 14, 16) = 0.268018E+00
-PKER_SWETH( 14, 17) = 0.283099E+00
-PKER_SWETH( 14, 18) = 0.312281E+00
-PKER_SWETH( 14, 19) = 0.352665E+00
-PKER_SWETH( 14, 20) = 0.401510E+00
-PKER_SWETH( 14, 21) = 0.456229E+00
-PKER_SWETH( 14, 22) = 0.514536E+00
-PKER_SWETH( 14, 23) = 0.574635E+00
-PKER_SWETH( 14, 24) = 0.635018E+00
-PKER_SWETH( 14, 25) = 0.694493E+00
-PKER_SWETH( 14, 26) = 0.752055E+00
-PKER_SWETH( 14, 27) = 0.806900E+00
-PKER_SWETH( 14, 28) = 0.858415E+00
-PKER_SWETH( 14, 29) = 0.906197E+00
-PKER_SWETH( 14, 30) = 0.950060E+00
-PKER_SWETH( 14, 31) = 0.990018E+00
-PKER_SWETH( 14, 32) = 0.102624E+01
-PKER_SWETH( 14, 33) = 0.105899E+01
-PKER_SWETH( 14, 34) = 0.108860E+01
-PKER_SWETH( 14, 35) = 0.111540E+01
-PKER_SWETH( 14, 36) = 0.113971E+01
-PKER_SWETH( 14, 37) = 0.116183E+01
-PKER_SWETH( 14, 38) = 0.118203E+01
-PKER_SWETH( 14, 39) = 0.120054E+01
-PKER_SWETH( 14, 40) = 0.121754E+01
-PKER_SWETH( 14, 41) = 0.123321E+01
-PKER_SWETH( 14, 42) = 0.124769E+01
-PKER_SWETH( 14, 43) = 0.126111E+01
-PKER_SWETH( 14, 44) = 0.127356E+01
-PKER_SWETH( 14, 45) = 0.128513E+01
-PKER_SWETH( 14, 46) = 0.129591E+01
-PKER_SWETH( 14, 47) = 0.130596E+01
-PKER_SWETH( 14, 48) = 0.131535E+01
-PKER_SWETH( 14, 49) = 0.132412E+01
-PKER_SWETH( 14, 50) = 0.133232E+01
-PKER_SWETH( 14, 51) = 0.133999E+01
-PKER_SWETH( 14, 52) = 0.134717E+01
-PKER_SWETH( 14, 53) = 0.135390E+01
-PKER_SWETH( 14, 54) = 0.136020E+01
-PKER_SWETH( 14, 55) = 0.136611E+01
-PKER_SWETH( 14, 56) = 0.137166E+01
-PKER_SWETH( 14, 57) = 0.137685E+01
-PKER_SWETH( 14, 58) = 0.138173E+01
-PKER_SWETH( 14, 59) = 0.138630E+01
-PKER_SWETH( 14, 60) = 0.139059E+01
-PKER_SWETH( 14, 61) = 0.139462E+01
-PKER_SWETH( 14, 62) = 0.139840E+01
-PKER_SWETH( 14, 63) = 0.140195E+01
-PKER_SWETH( 14, 64) = 0.140528E+01
-PKER_SWETH( 14, 65) = 0.140841E+01
-PKER_SWETH( 14, 66) = 0.141134E+01
-PKER_SWETH( 14, 67) = 0.141410E+01
-PKER_SWETH( 14, 68) = 0.141668E+01
-PKER_SWETH( 14, 69) = 0.141911E+01
-PKER_SWETH( 14, 70) = 0.142139E+01
-PKER_SWETH( 14, 71) = 0.142353E+01
-PKER_SWETH( 14, 72) = 0.142554E+01
-PKER_SWETH( 14, 73) = 0.142743E+01
-PKER_SWETH( 14, 74) = 0.142920E+01
-PKER_SWETH( 14, 75) = 0.143086E+01
-PKER_SWETH( 14, 76) = 0.143242E+01
-PKER_SWETH( 14, 77) = 0.143389E+01
-PKER_SWETH( 14, 78) = 0.143527E+01
-PKER_SWETH( 14, 79) = 0.143656E+01
-PKER_SWETH( 14, 80) = 0.143777E+01
-PKER_SWETH( 15, 1) = 0.206851E+01
-PKER_SWETH( 15, 2) = 0.187578E+01
-PKER_SWETH( 15, 3) = 0.169474E+01
-PKER_SWETH( 15, 4) = 0.152469E+01
-PKER_SWETH( 15, 5) = 0.136497E+01
-PKER_SWETH( 15, 6) = 0.121496E+01
-PKER_SWETH( 15, 7) = 0.107417E+01
-PKER_SWETH( 15, 8) = 0.942229E+00
-PKER_SWETH( 15, 9) = 0.818993E+00
-PKER_SWETH( 15, 10) = 0.704619E+00
-PKER_SWETH( 15, 11) = 0.599635E+00
-PKER_SWETH( 15, 12) = 0.505012E+00
-PKER_SWETH( 15, 13) = 0.422101E+00
-PKER_SWETH( 15, 14) = 0.352467E+00
-PKER_SWETH( 15, 15) = 0.297703E+00
-PKER_SWETH( 15, 16) = 0.258998E+00
-PKER_SWETH( 15, 17) = 0.236959E+00
-PKER_SWETH( 15, 18) = 0.231267E+00
-PKER_SWETH( 15, 19) = 0.240828E+00
-PKER_SWETH( 15, 20) = 0.263715E+00
-PKER_SWETH( 15, 21) = 0.297593E+00
-PKER_SWETH( 15, 22) = 0.339817E+00
-PKER_SWETH( 15, 23) = 0.387934E+00
-PKER_SWETH( 15, 24) = 0.439655E+00
-PKER_SWETH( 15, 25) = 0.493057E+00
-PKER_SWETH( 15, 26) = 0.546554E+00
-PKER_SWETH( 15, 27) = 0.598863E+00
-PKER_SWETH( 15, 28) = 0.648998E+00
-PKER_SWETH( 15, 29) = 0.696248E+00
-PKER_SWETH( 15, 30) = 0.740165E+00
-PKER_SWETH( 15, 31) = 0.780538E+00
-PKER_SWETH( 15, 32) = 0.817363E+00
-PKER_SWETH( 15, 33) = 0.850785E+00
-PKER_SWETH( 15, 34) = 0.881046E+00
-PKER_SWETH( 15, 35) = 0.908438E+00
-PKER_SWETH( 15, 36) = 0.933267E+00
-PKER_SWETH( 15, 37) = 0.955825E+00
-PKER_SWETH( 15, 38) = 0.976380E+00
-PKER_SWETH( 15, 39) = 0.995170E+00
-PKER_SWETH( 15, 40) = 0.101240E+01
-PKER_SWETH( 15, 41) = 0.102825E+01
-PKER_SWETH( 15, 42) = 0.104288E+01
-PKER_SWETH( 15, 43) = 0.105640E+01
-PKER_SWETH( 15, 44) = 0.106894E+01
-PKER_SWETH( 15, 45) = 0.108059E+01
-PKER_SWETH( 15, 46) = 0.109142E+01
-PKER_SWETH( 15, 47) = 0.110151E+01
-PKER_SWETH( 15, 48) = 0.111093E+01
-PKER_SWETH( 15, 49) = 0.111972E+01
-PKER_SWETH( 15, 50) = 0.112794E+01
-PKER_SWETH( 15, 51) = 0.113563E+01
-PKER_SWETH( 15, 52) = 0.114282E+01
-PKER_SWETH( 15, 53) = 0.114956E+01
-PKER_SWETH( 15, 54) = 0.115587E+01
-PKER_SWETH( 15, 55) = 0.116179E+01
-PKER_SWETH( 15, 56) = 0.116733E+01
-PKER_SWETH( 15, 57) = 0.117253E+01
-PKER_SWETH( 15, 58) = 0.117741E+01
-PKER_SWETH( 15, 59) = 0.118199E+01
-PKER_SWETH( 15, 60) = 0.118628E+01
-PKER_SWETH( 15, 61) = 0.119031E+01
-PKER_SWETH( 15, 62) = 0.119409E+01
-PKER_SWETH( 15, 63) = 0.119764E+01
-PKER_SWETH( 15, 64) = 0.120097E+01
-PKER_SWETH( 15, 65) = 0.120410E+01
-PKER_SWETH( 15, 66) = 0.120703E+01
-PKER_SWETH( 15, 67) = 0.120979E+01
-PKER_SWETH( 15, 68) = 0.121237E+01
-PKER_SWETH( 15, 69) = 0.121480E+01
-PKER_SWETH( 15, 70) = 0.121708E+01
-PKER_SWETH( 15, 71) = 0.121922E+01
-PKER_SWETH( 15, 72) = 0.122123E+01
-PKER_SWETH( 15, 73) = 0.122312E+01
-PKER_SWETH( 15, 74) = 0.122489E+01
-PKER_SWETH( 15, 75) = 0.122656E+01
-PKER_SWETH( 15, 76) = 0.122812E+01
-PKER_SWETH( 15, 77) = 0.122958E+01
-PKER_SWETH( 15, 78) = 0.123096E+01
-PKER_SWETH( 15, 79) = 0.123225E+01
-PKER_SWETH( 15, 80) = 0.123347E+01
-PKER_SWETH( 16, 1) = 0.222105E+01
-PKER_SWETH( 16, 2) = 0.202837E+01
-PKER_SWETH( 16, 3) = 0.184739E+01
-PKER_SWETH( 16, 4) = 0.167741E+01
-PKER_SWETH( 16, 5) = 0.151773E+01
-PKER_SWETH( 16, 6) = 0.136773E+01
-PKER_SWETH( 16, 7) = 0.122679E+01
-PKER_SWETH( 16, 8) = 0.109439E+01
-PKER_SWETH( 16, 9) = 0.970044E+00
-PKER_SWETH( 16, 10) = 0.853387E+00
-PKER_SWETH( 16, 11) = 0.744213E+00
-PKER_SWETH( 16, 12) = 0.642547E+00
-PKER_SWETH( 16, 13) = 0.548734E+00
-PKER_SWETH( 16, 14) = 0.463499E+00
-PKER_SWETH( 16, 15) = 0.387925E+00
-PKER_SWETH( 16, 16) = 0.323415E+00
-PKER_SWETH( 16, 17) = 0.271432E+00
-PKER_SWETH( 16, 18) = 0.233220E+00
-PKER_SWETH( 16, 19) = 0.209657E+00
-PKER_SWETH( 16, 20) = 0.200923E+00
-PKER_SWETH( 16, 21) = 0.206127E+00
-PKER_SWETH( 16, 22) = 0.223993E+00
-PKER_SWETH( 16, 23) = 0.252341E+00
-PKER_SWETH( 16, 24) = 0.288839E+00
-PKER_SWETH( 16, 25) = 0.331067E+00
-PKER_SWETH( 16, 26) = 0.376740E+00
-PKER_SWETH( 16, 27) = 0.423873E+00
-PKER_SWETH( 16, 28) = 0.470831E+00
-PKER_SWETH( 16, 29) = 0.516360E+00
-PKER_SWETH( 16, 30) = 0.559563E+00
-PKER_SWETH( 16, 31) = 0.599884E+00
-PKER_SWETH( 16, 32) = 0.637048E+00
-PKER_SWETH( 16, 33) = 0.671007E+00
-PKER_SWETH( 16, 34) = 0.701874E+00
-PKER_SWETH( 16, 35) = 0.729862E+00
-PKER_SWETH( 16, 36) = 0.755230E+00
-PKER_SWETH( 16, 37) = 0.778255E+00
-PKER_SWETH( 16, 38) = 0.799202E+00
-PKER_SWETH( 16, 39) = 0.818313E+00
-PKER_SWETH( 16, 40) = 0.835804E+00
-PKER_SWETH( 16, 41) = 0.851863E+00
-PKER_SWETH( 16, 42) = 0.866650E+00
-PKER_SWETH( 16, 43) = 0.880303E+00
-PKER_SWETH( 16, 44) = 0.892941E+00
-PKER_SWETH( 16, 45) = 0.904664E+00
-PKER_SWETH( 16, 46) = 0.915558E+00
-PKER_SWETH( 16, 47) = 0.925699E+00
-PKER_SWETH( 16, 48) = 0.935152E+00
-PKER_SWETH( 16, 49) = 0.943974E+00
-PKER_SWETH( 16, 50) = 0.952215E+00
-PKER_SWETH( 16, 51) = 0.959919E+00
-PKER_SWETH( 16, 52) = 0.967128E+00
-PKER_SWETH( 16, 53) = 0.973876E+00
-PKER_SWETH( 16, 54) = 0.980196E+00
-PKER_SWETH( 16, 55) = 0.986118E+00
-PKER_SWETH( 16, 56) = 0.991669E+00
-PKER_SWETH( 16, 57) = 0.996874E+00
-PKER_SWETH( 16, 58) = 0.100175E+01
-PKER_SWETH( 16, 59) = 0.100633E+01
-PKER_SWETH( 16, 60) = 0.101063E+01
-PKER_SWETH( 16, 61) = 0.101466E+01
-PKER_SWETH( 16, 62) = 0.101844E+01
-PKER_SWETH( 16, 63) = 0.102199E+01
-PKER_SWETH( 16, 64) = 0.102532E+01
-PKER_SWETH( 16, 65) = 0.102845E+01
-PKER_SWETH( 16, 66) = 0.103138E+01
-PKER_SWETH( 16, 67) = 0.103414E+01
-PKER_SWETH( 16, 68) = 0.103673E+01
-PKER_SWETH( 16, 69) = 0.103916E+01
-PKER_SWETH( 16, 70) = 0.104144E+01
-PKER_SWETH( 16, 71) = 0.104358E+01
-PKER_SWETH( 16, 72) = 0.104559E+01
-PKER_SWETH( 16, 73) = 0.104747E+01
-PKER_SWETH( 16, 74) = 0.104925E+01
-PKER_SWETH( 16, 75) = 0.105091E+01
-PKER_SWETH( 16, 76) = 0.105247E+01
-PKER_SWETH( 16, 77) = 0.105394E+01
-PKER_SWETH( 16, 78) = 0.105531E+01
-PKER_SWETH( 16, 79) = 0.105661E+01
-PKER_SWETH( 16, 80) = 0.105782E+01
-PKER_SWETH( 17, 1) = 0.235216E+01
-PKER_SWETH( 17, 2) = 0.215952E+01
-PKER_SWETH( 17, 3) = 0.197860E+01
-PKER_SWETH( 17, 4) = 0.180867E+01
-PKER_SWETH( 17, 5) = 0.164907E+01
-PKER_SWETH( 17, 6) = 0.149914E+01
-PKER_SWETH( 17, 7) = 0.135829E+01
-PKER_SWETH( 17, 8) = 0.122594E+01
-PKER_SWETH( 17, 9) = 0.110158E+01
-PKER_SWETH( 17, 10) = 0.984701E+00
-PKER_SWETH( 17, 11) = 0.874876E+00
-PKER_SWETH( 17, 12) = 0.771739E+00
-PKER_SWETH( 17, 13) = 0.675054E+00
-PKER_SWETH( 17, 14) = 0.584764E+00
-PKER_SWETH( 17, 15) = 0.501058E+00
-PKER_SWETH( 17, 16) = 0.424483E+00
-PKER_SWETH( 17, 17) = 0.355906E+00
-PKER_SWETH( 17, 18) = 0.296493E+00
-PKER_SWETH( 17, 19) = 0.247642E+00
-PKER_SWETH( 17, 20) = 0.210649E+00
-PKER_SWETH( 17, 21) = 0.186453E+00
-PKER_SWETH( 17, 22) = 0.175549E+00
-PKER_SWETH( 17, 23) = 0.177592E+00
-PKER_SWETH( 17, 24) = 0.191285E+00
-PKER_SWETH( 17, 25) = 0.215005E+00
-PKER_SWETH( 17, 26) = 0.246505E+00
-PKER_SWETH( 17, 27) = 0.283441E+00
-PKER_SWETH( 17, 28) = 0.323511E+00
-PKER_SWETH( 17, 29) = 0.364750E+00
-PKER_SWETH( 17, 30) = 0.405561E+00
-PKER_SWETH( 17, 31) = 0.444783E+00
-PKER_SWETH( 17, 32) = 0.481674E+00
-PKER_SWETH( 17, 33) = 0.515838E+00
-PKER_SWETH( 17, 34) = 0.547151E+00
-PKER_SWETH( 17, 35) = 0.575673E+00
-PKER_SWETH( 17, 36) = 0.601576E+00
-PKER_SWETH( 17, 37) = 0.625091E+00
-PKER_SWETH( 17, 38) = 0.646461E+00
-PKER_SWETH( 17, 39) = 0.665927E+00
-PKER_SWETH( 17, 40) = 0.683709E+00
-PKER_SWETH( 17, 41) = 0.700001E+00
-PKER_SWETH( 17, 42) = 0.714974E+00
-PKER_SWETH( 17, 43) = 0.728775E+00
-PKER_SWETH( 17, 44) = 0.741528E+00
-PKER_SWETH( 17, 45) = 0.753341E+00
-PKER_SWETH( 17, 46) = 0.764305E+00
-PKER_SWETH( 17, 47) = 0.774501E+00
-PKER_SWETH( 17, 48) = 0.783997E+00
-PKER_SWETH( 17, 49) = 0.792851E+00
-PKER_SWETH( 17, 50) = 0.801118E+00
-PKER_SWETH( 17, 51) = 0.808842E+00
-PKER_SWETH( 17, 52) = 0.816066E+00
-PKER_SWETH( 17, 53) = 0.822826E+00
-PKER_SWETH( 17, 54) = 0.829156E+00
-PKER_SWETH( 17, 55) = 0.835085E+00
-PKER_SWETH( 17, 56) = 0.840642E+00
-PKER_SWETH( 17, 57) = 0.845851E+00
-PKER_SWETH( 17, 58) = 0.850735E+00
-PKER_SWETH( 17, 59) = 0.855316E+00
-PKER_SWETH( 17, 60) = 0.859613E+00
-PKER_SWETH( 17, 61) = 0.863645E+00
-PKER_SWETH( 17, 62) = 0.867428E+00
-PKER_SWETH( 17, 63) = 0.870979E+00
-PKER_SWETH( 17, 64) = 0.874311E+00
-PKER_SWETH( 17, 65) = 0.877439E+00
-PKER_SWETH( 17, 66) = 0.880375E+00
-PKER_SWETH( 17, 67) = 0.883131E+00
-PKER_SWETH( 17, 68) = 0.885718E+00
-PKER_SWETH( 17, 69) = 0.888147E+00
-PKER_SWETH( 17, 70) = 0.890427E+00
-PKER_SWETH( 17, 71) = 0.892568E+00
-PKER_SWETH( 17, 72) = 0.894578E+00
-PKER_SWETH( 17, 73) = 0.896465E+00
-PKER_SWETH( 17, 74) = 0.898237E+00
-PKER_SWETH( 17, 75) = 0.899901E+00
-PKER_SWETH( 17, 76) = 0.901463E+00
-PKER_SWETH( 17, 77) = 0.902929E+00
-PKER_SWETH( 17, 78) = 0.904307E+00
-PKER_SWETH( 17, 79) = 0.905600E+00
-PKER_SWETH( 17, 80) = 0.906814E+00
-PKER_SWETH( 18, 1) = 0.246485E+01
-PKER_SWETH( 18, 2) = 0.227225E+01
-PKER_SWETH( 18, 3) = 0.209136E+01
-PKER_SWETH( 18, 4) = 0.192149E+01
-PKER_SWETH( 18, 5) = 0.176194E+01
-PKER_SWETH( 18, 6) = 0.161208E+01
-PKER_SWETH( 18, 7) = 0.147130E+01
-PKER_SWETH( 18, 8) = 0.133905E+01
-PKER_SWETH( 18, 9) = 0.121479E+01
-PKER_SWETH( 18, 10) = 0.109802E+01
-PKER_SWETH( 18, 11) = 0.988254E+00
-PKER_SWETH( 18, 12) = 0.885064E+00
-PKER_SWETH( 18, 13) = 0.788046E+00
-PKER_SWETH( 18, 14) = 0.696856E+00
-PKER_SWETH( 18, 15) = 0.611240E+00
-PKER_SWETH( 18, 16) = 0.531085E+00
-PKER_SWETH( 18, 17) = 0.456489E+00
-PKER_SWETH( 18, 18) = 0.387822E+00
-PKER_SWETH( 18, 19) = 0.325787E+00
-PKER_SWETH( 18, 20) = 0.271388E+00
-PKER_SWETH( 18, 21) = 0.225865E+00
-PKER_SWETH( 18, 22) = 0.190524E+00
-PKER_SWETH( 18, 23) = 0.166451E+00
-PKER_SWETH( 18, 24) = 0.154224E+00
-PKER_SWETH( 18, 25) = 0.153728E+00
-PKER_SWETH( 18, 26) = 0.164235E+00
-PKER_SWETH( 18, 27) = 0.184044E+00
-PKER_SWETH( 18, 28) = 0.211126E+00
-PKER_SWETH( 18, 29) = 0.243228E+00
-PKER_SWETH( 18, 30) = 0.278092E+00
-PKER_SWETH( 18, 31) = 0.313828E+00
-PKER_SWETH( 18, 32) = 0.348949E+00
-PKER_SWETH( 18, 33) = 0.382443E+00
-PKER_SWETH( 18, 34) = 0.413728E+00
-PKER_SWETH( 18, 35) = 0.442554E+00
-PKER_SWETH( 18, 36) = 0.468900E+00
-PKER_SWETH( 18, 37) = 0.492882E+00
-PKER_SWETH( 18, 38) = 0.514690E+00
-PKER_SWETH( 18, 39) = 0.534538E+00
-PKER_SWETH( 18, 40) = 0.552641E+00
-PKER_SWETH( 18, 41) = 0.569197E+00
-PKER_SWETH( 18, 42) = 0.584381E+00
-PKER_SWETH( 18, 43) = 0.598350E+00
-PKER_SWETH( 18, 44) = 0.611236E+00
-PKER_SWETH( 18, 45) = 0.623153E+00
-PKER_SWETH( 18, 46) = 0.634198E+00
-PKER_SWETH( 18, 47) = 0.644457E+00
-PKER_SWETH( 18, 48) = 0.654002E+00
-PKER_SWETH( 18, 49) = 0.662895E+00
-PKER_SWETH( 18, 50) = 0.671191E+00
-PKER_SWETH( 18, 51) = 0.678938E+00
-PKER_SWETH( 18, 52) = 0.686179E+00
-PKER_SWETH( 18, 53) = 0.692953E+00
-PKER_SWETH( 18, 54) = 0.699294E+00
-PKER_SWETH( 18, 55) = 0.705231E+00
-PKER_SWETH( 18, 56) = 0.710794E+00
-PKER_SWETH( 18, 57) = 0.716008E+00
-PKER_SWETH( 18, 58) = 0.720896E+00
-PKER_SWETH( 18, 59) = 0.725480E+00
-PKER_SWETH( 18, 60) = 0.729780E+00
-PKER_SWETH( 18, 61) = 0.733814E+00
-PKER_SWETH( 18, 62) = 0.737598E+00
-PKER_SWETH( 18, 63) = 0.741150E+00
-PKER_SWETH( 18, 64) = 0.744483E+00
-PKER_SWETH( 18, 65) = 0.747611E+00
-PKER_SWETH( 18, 66) = 0.750548E+00
-PKER_SWETH( 18, 67) = 0.753304E+00
-PKER_SWETH( 18, 68) = 0.755892E+00
-PKER_SWETH( 18, 69) = 0.758321E+00
-PKER_SWETH( 18, 70) = 0.760601E+00
-PKER_SWETH( 18, 71) = 0.762742E+00
-PKER_SWETH( 18, 72) = 0.764752E+00
-PKER_SWETH( 18, 73) = 0.766640E+00
-PKER_SWETH( 18, 74) = 0.768412E+00
-PKER_SWETH( 18, 75) = 0.770075E+00
-PKER_SWETH( 18, 76) = 0.771638E+00
-PKER_SWETH( 18, 77) = 0.773104E+00
-PKER_SWETH( 18, 78) = 0.774481E+00
-PKER_SWETH( 18, 79) = 0.775774E+00
-PKER_SWETH( 18, 80) = 0.776989E+00
-PKER_SWETH( 19, 1) = 0.256173E+01
-PKER_SWETH( 19, 2) = 0.236914E+01
-PKER_SWETH( 19, 3) = 0.218829E+01
-PKER_SWETH( 19, 4) = 0.201844E+01
-PKER_SWETH( 19, 5) = 0.185894E+01
-PKER_SWETH( 19, 6) = 0.170913E+01
-PKER_SWETH( 19, 7) = 0.156841E+01
-PKER_SWETH( 19, 8) = 0.143624E+01
-PKER_SWETH( 19, 9) = 0.131207E+01
-PKER_SWETH( 19, 10) = 0.119540E+01
-PKER_SWETH( 19, 11) = 0.108576E+01
-PKER_SWETH( 19, 12) = 0.982703E+00
-PKER_SWETH( 19, 13) = 0.885808E+00
-PKER_SWETH( 19, 14) = 0.794678E+00
-PKER_SWETH( 19, 15) = 0.708950E+00
-PKER_SWETH( 19, 16) = 0.628301E+00
-PKER_SWETH( 19, 17) = 0.552477E+00
-PKER_SWETH( 19, 18) = 0.481331E+00
-PKER_SWETH( 19, 19) = 0.414882E+00
-PKER_SWETH( 19, 20) = 0.353398E+00
-PKER_SWETH( 19, 21) = 0.297416E+00
-PKER_SWETH( 19, 22) = 0.247807E+00
-PKER_SWETH( 19, 23) = 0.205699E+00
-PKER_SWETH( 19, 24) = 0.172316E+00
-PKER_SWETH( 19, 25) = 0.148819E+00
-PKER_SWETH( 19, 26) = 0.135924E+00
-PKER_SWETH( 19, 27) = 0.133720E+00
-PKER_SWETH( 19, 28) = 0.141549E+00
-PKER_SWETH( 19, 29) = 0.158042E+00
-PKER_SWETH( 19, 30) = 0.181252E+00
-PKER_SWETH( 19, 31) = 0.208933E+00
-PKER_SWETH( 19, 32) = 0.239000E+00
-PKER_SWETH( 19, 33) = 0.269677E+00
-PKER_SWETH( 19, 34) = 0.299634E+00
-PKER_SWETH( 19, 35) = 0.328045E+00
-PKER_SWETH( 19, 36) = 0.354467E+00
-PKER_SWETH( 19, 37) = 0.378756E+00
-PKER_SWETH( 19, 38) = 0.400947E+00
-PKER_SWETH( 19, 39) = 0.421175E+00
-PKER_SWETH( 19, 40) = 0.439618E+00
-PKER_SWETH( 19, 41) = 0.456462E+00
-PKER_SWETH( 19, 42) = 0.471885E+00
-PKER_SWETH( 19, 43) = 0.486045E+00
-PKER_SWETH( 19, 44) = 0.499082E+00
-PKER_SWETH( 19, 45) = 0.511119E+00
-PKER_SWETH( 19, 46) = 0.522259E+00
-PKER_SWETH( 19, 47) = 0.532591E+00
-PKER_SWETH( 19, 48) = 0.542192E+00
-PKER_SWETH( 19, 49) = 0.551129E+00
-PKER_SWETH( 19, 50) = 0.559459E+00
-PKER_SWETH( 19, 51) = 0.567233E+00
-PKER_SWETH( 19, 52) = 0.574495E+00
-PKER_SWETH( 19, 53) = 0.581285E+00
-PKER_SWETH( 19, 54) = 0.587637E+00
-PKER_SWETH( 19, 55) = 0.593585E+00
-PKER_SWETH( 19, 56) = 0.599155E+00
-PKER_SWETH( 19, 57) = 0.604374E+00
-PKER_SWETH( 19, 58) = 0.609267E+00
-PKER_SWETH( 19, 59) = 0.613855E+00
-PKER_SWETH( 19, 60) = 0.618157E+00
-PKER_SWETH( 19, 61) = 0.622193E+00
-PKER_SWETH( 19, 62) = 0.625979E+00
-PKER_SWETH( 19, 63) = 0.629532E+00
-PKER_SWETH( 19, 64) = 0.632866E+00
-PKER_SWETH( 19, 65) = 0.635995E+00
-PKER_SWETH( 19, 66) = 0.638932E+00
-PKER_SWETH( 19, 67) = 0.641689E+00
-PKER_SWETH( 19, 68) = 0.644277E+00
-PKER_SWETH( 19, 69) = 0.646706E+00
-PKER_SWETH( 19, 70) = 0.648987E+00
-PKER_SWETH( 19, 71) = 0.651128E+00
-PKER_SWETH( 19, 72) = 0.653138E+00
-PKER_SWETH( 19, 73) = 0.655026E+00
-PKER_SWETH( 19, 74) = 0.656798E+00
-PKER_SWETH( 19, 75) = 0.658461E+00
-PKER_SWETH( 19, 76) = 0.660024E+00
-PKER_SWETH( 19, 77) = 0.661490E+00
-PKER_SWETH( 19, 78) = 0.662868E+00
-PKER_SWETH( 19, 79) = 0.664161E+00
-PKER_SWETH( 19, 80) = 0.665375E+00
-PKER_SWETH( 20, 1) = 0.264500E+01
-PKER_SWETH( 20, 2) = 0.245243E+01
-PKER_SWETH( 20, 3) = 0.227160E+01
-PKER_SWETH( 20, 4) = 0.210178E+01
-PKER_SWETH( 20, 5) = 0.194230E+01
-PKER_SWETH( 20, 6) = 0.179253E+01
-PKER_SWETH( 20, 7) = 0.165187E+01
-PKER_SWETH( 20, 8) = 0.151975E+01
-PKER_SWETH( 20, 9) = 0.139564E+01
-PKER_SWETH( 20, 10) = 0.127905E+01
-PKER_SWETH( 20, 11) = 0.116951E+01
-PKER_SWETH( 20, 12) = 0.106658E+01
-PKER_SWETH( 20, 13) = 0.969820E+00
-PKER_SWETH( 20, 14) = 0.878851E+00
-PKER_SWETH( 20, 15) = 0.793291E+00
-PKER_SWETH( 20, 16) = 0.712786E+00
-PKER_SWETH( 20, 17) = 0.637005E+00
-PKER_SWETH( 20, 18) = 0.565650E+00
-PKER_SWETH( 20, 19) = 0.498472E+00
-PKER_SWETH( 20, 20) = 0.435308E+00
-PKER_SWETH( 20, 21) = 0.376129E+00
-PKER_SWETH( 20, 22) = 0.321110E+00
-PKER_SWETH( 20, 23) = 0.270680E+00
-PKER_SWETH( 20, 24) = 0.225582E+00
-PKER_SWETH( 20, 25) = 0.186836E+00
-PKER_SWETH( 20, 26) = 0.155610E+00
-PKER_SWETH( 20, 27) = 0.133055E+00
-PKER_SWETH( 20, 28) = 0.119975E+00
-PKER_SWETH( 20, 29) = 0.116599E+00
-PKER_SWETH( 20, 30) = 0.122369E+00
-PKER_SWETH( 20, 31) = 0.136033E+00
-PKER_SWETH( 20, 32) = 0.155727E+00
-PKER_SWETH( 20, 33) = 0.179407E+00
-PKER_SWETH( 20, 34) = 0.205090E+00
-PKER_SWETH( 20, 35) = 0.231197E+00
-PKER_SWETH( 20, 36) = 0.256588E+00
-PKER_SWETH( 20, 37) = 0.280587E+00
-PKER_SWETH( 20, 38) = 0.302872E+00
-PKER_SWETH( 20, 39) = 0.323359E+00
-PKER_SWETH( 20, 40) = 0.342106E+00
-PKER_SWETH( 20, 41) = 0.359241E+00
-PKER_SWETH( 20, 42) = 0.374919E+00
-PKER_SWETH( 20, 43) = 0.389291E+00
-PKER_SWETH( 20, 44) = 0.402502E+00
-PKER_SWETH( 20, 45) = 0.414676E+00
-PKER_SWETH( 20, 46) = 0.425924E+00
-PKER_SWETH( 20, 47) = 0.436341E+00
-PKER_SWETH( 20, 48) = 0.446009E+00
-PKER_SWETH( 20, 49) = 0.454997E+00
-PKER_SWETH( 20, 50) = 0.463367E+00
-PKER_SWETH( 20, 51) = 0.471171E+00
-PKER_SWETH( 20, 52) = 0.478457E+00
-PKER_SWETH( 20, 53) = 0.485265E+00
-PKER_SWETH( 20, 54) = 0.491632E+00
-PKER_SWETH( 20, 55) = 0.497590E+00
-PKER_SWETH( 20, 56) = 0.503169E+00
-PKER_SWETH( 20, 57) = 0.508395E+00
-PKER_SWETH( 20, 58) = 0.513293E+00
-PKER_SWETH( 20, 59) = 0.517884E+00
-PKER_SWETH( 20, 60) = 0.522189E+00
-PKER_SWETH( 20, 61) = 0.526227E+00
-PKER_SWETH( 20, 62) = 0.530016E+00
-PKER_SWETH( 20, 63) = 0.533570E+00
-PKER_SWETH( 20, 64) = 0.536905E+00
-PKER_SWETH( 20, 65) = 0.540035E+00
-PKER_SWETH( 20, 66) = 0.542973E+00
-PKER_SWETH( 20, 67) = 0.545730E+00
-PKER_SWETH( 20, 68) = 0.548318E+00
-PKER_SWETH( 20, 69) = 0.550748E+00
-PKER_SWETH( 20, 70) = 0.553029E+00
-PKER_SWETH( 20, 71) = 0.555170E+00
-PKER_SWETH( 20, 72) = 0.557181E+00
-PKER_SWETH( 20, 73) = 0.559068E+00
-PKER_SWETH( 20, 74) = 0.560840E+00
-PKER_SWETH( 20, 75) = 0.562504E+00
-PKER_SWETH( 20, 76) = 0.564067E+00
-PKER_SWETH( 20, 77) = 0.565533E+00
-PKER_SWETH( 20, 78) = 0.566911E+00
-PKER_SWETH( 20, 79) = 0.568204E+00
-PKER_SWETH( 20, 80) = 0.569418E+00
-PKER_SWETH( 21, 1) = 0.271658E+01
-PKER_SWETH( 21, 2) = 0.252403E+01
-PKER_SWETH( 21, 3) = 0.234321E+01
-PKER_SWETH( 21, 4) = 0.217341E+01
-PKER_SWETH( 21, 5) = 0.201396E+01
-PKER_SWETH( 21, 6) = 0.186421E+01
-PKER_SWETH( 21, 7) = 0.172358E+01
-PKER_SWETH( 21, 8) = 0.159150E+01
-PKER_SWETH( 21, 9) = 0.146745E+01
-PKER_SWETH( 21, 10) = 0.135092E+01
-PKER_SWETH( 21, 11) = 0.124145E+01
-PKER_SWETH( 21, 12) = 0.113861E+01
-PKER_SWETH( 21, 13) = 0.104196E+01
-PKER_SWETH( 21, 14) = 0.951122E+00
-PKER_SWETH( 21, 15) = 0.865719E+00
-PKER_SWETH( 21, 16) = 0.785398E+00
-PKER_SWETH( 21, 17) = 0.709821E+00
-PKER_SWETH( 21, 18) = 0.638672E+00
-PKER_SWETH( 21, 19) = 0.571650E+00
-PKER_SWETH( 21, 20) = 0.508481E+00
-PKER_SWETH( 21, 21) = 0.448928E+00
-PKER_SWETH( 21, 22) = 0.392821E+00
-PKER_SWETH( 21, 23) = 0.340101E+00
-PKER_SWETH( 21, 24) = 0.290879E+00
-PKER_SWETH( 21, 25) = 0.245501E+00
-PKER_SWETH( 21, 26) = 0.204609E+00
-PKER_SWETH( 21, 27) = 0.169114E+00
-PKER_SWETH( 21, 28) = 0.140143E+00
-PKER_SWETH( 21, 29) = 0.118804E+00
-PKER_SWETH( 21, 30) = 0.105905E+00
-PKER_SWETH( 21, 31) = 0.101754E+00
-PKER_SWETH( 21, 32) = 0.105915E+00
-PKER_SWETH( 21, 33) = 0.117110E+00
-PKER_SWETH( 21, 34) = 0.133717E+00
-PKER_SWETH( 21, 35) = 0.153768E+00
-PKER_SWETH( 21, 36) = 0.175523E+00
-PKER_SWETH( 21, 37) = 0.197593E+00
-PKER_SWETH( 21, 38) = 0.219023E+00
-PKER_SWETH( 21, 39) = 0.239267E+00
-PKER_SWETH( 21, 40) = 0.258077E+00
-PKER_SWETH( 21, 41) = 0.275405E+00
-PKER_SWETH( 21, 42) = 0.291307E+00
-PKER_SWETH( 21, 43) = 0.305894E+00
-PKER_SWETH( 21, 44) = 0.319290E+00
-PKER_SWETH( 21, 45) = 0.331618E+00
-PKER_SWETH( 21, 46) = 0.342990E+00
-PKER_SWETH( 21, 47) = 0.353504E+00
-PKER_SWETH( 21, 48) = 0.363248E+00
-PKER_SWETH( 21, 49) = 0.372296E+00
-PKER_SWETH( 21, 50) = 0.380712E+00
-PKER_SWETH( 21, 51) = 0.388553E+00
-PKER_SWETH( 21, 52) = 0.395866E+00
-PKER_SWETH( 21, 53) = 0.402696E+00
-PKER_SWETH( 21, 54) = 0.409079E+00
-PKER_SWETH( 21, 55) = 0.415050E+00
-PKER_SWETH( 21, 56) = 0.420639E+00
-PKER_SWETH( 21, 57) = 0.425872E+00
-PKER_SWETH( 21, 58) = 0.430776E+00
-PKER_SWETH( 21, 59) = 0.435372E+00
-PKER_SWETH( 21, 60) = 0.439681E+00
-PKER_SWETH( 21, 61) = 0.443722E+00
-PKER_SWETH( 21, 62) = 0.447512E+00
-PKER_SWETH( 21, 63) = 0.451068E+00
-PKER_SWETH( 21, 64) = 0.454404E+00
-PKER_SWETH( 21, 65) = 0.457535E+00
-PKER_SWETH( 21, 66) = 0.460473E+00
-PKER_SWETH( 21, 67) = 0.463231E+00
-PKER_SWETH( 21, 68) = 0.465820E+00
-PKER_SWETH( 21, 69) = 0.468250E+00
-PKER_SWETH( 21, 70) = 0.470532E+00
-PKER_SWETH( 21, 71) = 0.472673E+00
-PKER_SWETH( 21, 72) = 0.474684E+00
-PKER_SWETH( 21, 73) = 0.476571E+00
-PKER_SWETH( 21, 74) = 0.478344E+00
-PKER_SWETH( 21, 75) = 0.480008E+00
-PKER_SWETH( 21, 76) = 0.481570E+00
-PKER_SWETH( 21, 77) = 0.483037E+00
-PKER_SWETH( 21, 78) = 0.484414E+00
-PKER_SWETH( 21, 79) = 0.485707E+00
-PKER_SWETH( 21, 80) = 0.486921E+00
-PKER_SWETH( 22, 1) = 0.277812E+01
-PKER_SWETH( 22, 2) = 0.258557E+01
-PKER_SWETH( 22, 3) = 0.240477E+01
-PKER_SWETH( 22, 4) = 0.223498E+01
-PKER_SWETH( 22, 5) = 0.207555E+01
-PKER_SWETH( 22, 6) = 0.192582E+01
-PKER_SWETH( 22, 7) = 0.178522E+01
-PKER_SWETH( 22, 8) = 0.165317E+01
-PKER_SWETH( 22, 9) = 0.152915E+01
-PKER_SWETH( 22, 10) = 0.141267E+01
-PKER_SWETH( 22, 11) = 0.130326E+01
-PKER_SWETH( 22, 12) = 0.120048E+01
-PKER_SWETH( 22, 13) = 0.110391E+01
-PKER_SWETH( 22, 14) = 0.101317E+01
-PKER_SWETH( 22, 15) = 0.927888E+00
-PKER_SWETH( 22, 16) = 0.847710E+00
-PKER_SWETH( 22, 17) = 0.772307E+00
-PKER_SWETH( 22, 18) = 0.701363E+00
-PKER_SWETH( 22, 19) = 0.634577E+00
-PKER_SWETH( 22, 20) = 0.571663E+00
-PKER_SWETH( 22, 21) = 0.512351E+00
-PKER_SWETH( 22, 22) = 0.456387E+00
-PKER_SWETH( 22, 23) = 0.403551E+00
-PKER_SWETH( 22, 24) = 0.353674E+00
-PKER_SWETH( 22, 25) = 0.306679E+00
-PKER_SWETH( 22, 26) = 0.262639E+00
-PKER_SWETH( 22, 27) = 0.221831E+00
-PKER_SWETH( 22, 28) = 0.184828E+00
-PKER_SWETH( 22, 29) = 0.152460E+00
-PKER_SWETH( 22, 30) = 0.125752E+00
-PKER_SWETH( 22, 31) = 0.105794E+00
-PKER_SWETH( 22, 32) = 0.933885E-01
-PKER_SWETH( 22, 33) = 0.887837E-01
-PKER_SWETH( 22, 34) = 0.916083E-01
-PKER_SWETH( 22, 35) = 0.100750E+00
-PKER_SWETH( 22, 36) = 0.114556E+00
-PKER_SWETH( 22, 37) = 0.131388E+00
-PKER_SWETH( 22, 38) = 0.149687E+00
-PKER_SWETH( 22, 39) = 0.168264E+00
-PKER_SWETH( 22, 40) = 0.186315E+00
-PKER_SWETH( 22, 41) = 0.203399E+00
-PKER_SWETH( 22, 42) = 0.219317E+00
-PKER_SWETH( 22, 43) = 0.234029E+00
-PKER_SWETH( 22, 44) = 0.247581E+00
-PKER_SWETH( 22, 45) = 0.260059E+00
-PKER_SWETH( 22, 46) = 0.271563E+00
-PKER_SWETH( 22, 47) = 0.282186E+00
-PKER_SWETH( 22, 48) = 0.292018E+00
-PKER_SWETH( 22, 49) = 0.301134E+00
-PKER_SWETH( 22, 50) = 0.309604E+00
-PKER_SWETH( 22, 51) = 0.317487E+00
-PKER_SWETH( 22, 52) = 0.324833E+00
-PKER_SWETH( 22, 53) = 0.331687E+00
-PKER_SWETH( 22, 54) = 0.338090E+00
-PKER_SWETH( 22, 55) = 0.344075E+00
-PKER_SWETH( 22, 56) = 0.349675E+00
-PKER_SWETH( 22, 57) = 0.354918E+00
-PKER_SWETH( 22, 58) = 0.359828E+00
-PKER_SWETH( 22, 59) = 0.364430E+00
-PKER_SWETH( 22, 60) = 0.368743E+00
-PKER_SWETH( 22, 61) = 0.372787E+00
-PKER_SWETH( 22, 62) = 0.376579E+00
-PKER_SWETH( 22, 63) = 0.380137E+00
-PKER_SWETH( 22, 64) = 0.383475E+00
-PKER_SWETH( 22, 65) = 0.386607E+00
-PKER_SWETH( 22, 66) = 0.389546E+00
-PKER_SWETH( 22, 67) = 0.392305E+00
-PKER_SWETH( 22, 68) = 0.394894E+00
-PKER_SWETH( 22, 69) = 0.397325E+00
-PKER_SWETH( 22, 70) = 0.399606E+00
-PKER_SWETH( 22, 71) = 0.401748E+00
-PKER_SWETH( 22, 72) = 0.403759E+00
-PKER_SWETH( 22, 73) = 0.405647E+00
-PKER_SWETH( 22, 74) = 0.407419E+00
-PKER_SWETH( 22, 75) = 0.409083E+00
-PKER_SWETH( 22, 76) = 0.410645E+00
-PKER_SWETH( 22, 77) = 0.412112E+00
-PKER_SWETH( 22, 78) = 0.413490E+00
-PKER_SWETH( 22, 79) = 0.414783E+00
-PKER_SWETH( 22, 80) = 0.415997E+00
-PKER_SWETH( 23, 1) = 0.283102E+01
-PKER_SWETH( 23, 2) = 0.263848E+01
-PKER_SWETH( 23, 3) = 0.245768E+01
-PKER_SWETH( 23, 4) = 0.228791E+01
-PKER_SWETH( 23, 5) = 0.212849E+01
-PKER_SWETH( 23, 6) = 0.197878E+01
-PKER_SWETH( 23, 7) = 0.183819E+01
-PKER_SWETH( 23, 8) = 0.170617E+01
-PKER_SWETH( 23, 9) = 0.158218E+01
-PKER_SWETH( 23, 10) = 0.146573E+01
-PKER_SWETH( 23, 11) = 0.135636E+01
-PKER_SWETH( 23, 12) = 0.125363E+01
-PKER_SWETH( 23, 13) = 0.115712E+01
-PKER_SWETH( 23, 14) = 0.106646E+01
-PKER_SWETH( 23, 15) = 0.981260E+00
-PKER_SWETH( 23, 16) = 0.901190E+00
-PKER_SWETH( 23, 17) = 0.825917E+00
-PKER_SWETH( 23, 18) = 0.755130E+00
-PKER_SWETH( 23, 19) = 0.688534E+00
-PKER_SWETH( 23, 20) = 0.625847E+00
-PKER_SWETH( 23, 21) = 0.566798E+00
-PKER_SWETH( 23, 22) = 0.511131E+00
-PKER_SWETH( 23, 23) = 0.458600E+00
-PKER_SWETH( 23, 24) = 0.408976E+00
-PKER_SWETH( 23, 25) = 0.362052E+00
-PKER_SWETH( 23, 26) = 0.317669E+00
-PKER_SWETH( 23, 27) = 0.275744E+00
-PKER_SWETH( 23, 28) = 0.236322E+00
-PKER_SWETH( 23, 29) = 0.199652E+00
-PKER_SWETH( 23, 30) = 0.166228E+00
-PKER_SWETH( 23, 31) = 0.136821E+00
-PKER_SWETH( 23, 32) = 0.112388E+00
-PKER_SWETH( 23, 33) = 0.939206E-01
-PKER_SWETH( 23, 34) = 0.821751E-01
-PKER_SWETH( 23, 35) = 0.773938E-01
-PKER_SWETH( 23, 36) = 0.791534E-01
-PKER_SWETH( 23, 37) = 0.864193E-01
-PKER_SWETH( 23, 38) = 0.978352E-01
-PKER_SWETH( 23, 39) = 0.111845E+00
-PKER_SWETH( 23, 40) = 0.127143E+00
-PKER_SWETH( 23, 41) = 0.142733E+00
-PKER_SWETH( 23, 42) = 0.157936E+00
-PKER_SWETH( 23, 43) = 0.172382E+00
-PKER_SWETH( 23, 44) = 0.185898E+00
-PKER_SWETH( 23, 45) = 0.198442E+00
-PKER_SWETH( 23, 46) = 0.210045E+00
-PKER_SWETH( 23, 47) = 0.220770E+00
-PKER_SWETH( 23, 48) = 0.230692E+00
-PKER_SWETH( 23, 49) = 0.239885E+00
-PKER_SWETH( 23, 50) = 0.248416E+00
-PKER_SWETH( 23, 51) = 0.256346E+00
-PKER_SWETH( 23, 52) = 0.263730E+00
-PKER_SWETH( 23, 53) = 0.270613E+00
-PKER_SWETH( 23, 54) = 0.277038E+00
-PKER_SWETH( 23, 55) = 0.283042E+00
-PKER_SWETH( 23, 56) = 0.288655E+00
-PKER_SWETH( 23, 57) = 0.293908E+00
-PKER_SWETH( 23, 58) = 0.298826E+00
-PKER_SWETH( 23, 59) = 0.303434E+00
-PKER_SWETH( 23, 60) = 0.307751E+00
-PKER_SWETH( 23, 61) = 0.311799E+00
-PKER_SWETH( 23, 62) = 0.315594E+00
-PKER_SWETH( 23, 63) = 0.319154E+00
-PKER_SWETH( 23, 64) = 0.322494E+00
-PKER_SWETH( 23, 65) = 0.325627E+00
-PKER_SWETH( 23, 66) = 0.328568E+00
-PKER_SWETH( 23, 67) = 0.331327E+00
-PKER_SWETH( 23, 68) = 0.333917E+00
-PKER_SWETH( 23, 69) = 0.336348E+00
-PKER_SWETH( 23, 70) = 0.338630E+00
-PKER_SWETH( 23, 71) = 0.340772E+00
-PKER_SWETH( 23, 72) = 0.342783E+00
-PKER_SWETH( 23, 73) = 0.344671E+00
-PKER_SWETH( 23, 74) = 0.346443E+00
-PKER_SWETH( 23, 75) = 0.348107E+00
-PKER_SWETH( 23, 76) = 0.349670E+00
-PKER_SWETH( 23, 77) = 0.351137E+00
-PKER_SWETH( 23, 78) = 0.352514E+00
-PKER_SWETH( 23, 79) = 0.353807E+00
-PKER_SWETH( 23, 80) = 0.355022E+00
-PKER_SWETH( 24, 1) = 0.287649E+01
-PKER_SWETH( 24, 2) = 0.268396E+01
-PKER_SWETH( 24, 3) = 0.250317E+01
-PKER_SWETH( 24, 4) = 0.233341E+01
-PKER_SWETH( 24, 5) = 0.217399E+01
-PKER_SWETH( 24, 6) = 0.202430E+01
-PKER_SWETH( 24, 7) = 0.188372E+01
-PKER_SWETH( 24, 8) = 0.175172E+01
-PKER_SWETH( 24, 9) = 0.162775E+01
-PKER_SWETH( 24, 10) = 0.151133E+01
-PKER_SWETH( 24, 11) = 0.140199E+01
-PKER_SWETH( 24, 12) = 0.129929E+01
-PKER_SWETH( 24, 13) = 0.120283E+01
-PKER_SWETH( 24, 14) = 0.111222E+01
-PKER_SWETH( 24, 15) = 0.102709E+01
-PKER_SWETH( 24, 16) = 0.947100E+00
-PKER_SWETH( 24, 17) = 0.871925E+00
-PKER_SWETH( 24, 18) = 0.801255E+00
-PKER_SWETH( 24, 19) = 0.734802E+00
-PKER_SWETH( 24, 20) = 0.672286E+00
-PKER_SWETH( 24, 21) = 0.613444E+00
-PKER_SWETH( 24, 22) = 0.558025E+00
-PKER_SWETH( 24, 23) = 0.505784E+00
-PKER_SWETH( 24, 24) = 0.456492E+00
-PKER_SWETH( 24, 25) = 0.409924E+00
-PKER_SWETH( 24, 26) = 0.365874E+00
-PKER_SWETH( 24, 27) = 0.324153E+00
-PKER_SWETH( 24, 28) = 0.284613E+00
-PKER_SWETH( 24, 29) = 0.247175E+00
-PKER_SWETH( 24, 30) = 0.211878E+00
-PKER_SWETH( 24, 31) = 0.178940E+00
-PKER_SWETH( 24, 32) = 0.148822E+00
-PKER_SWETH( 24, 33) = 0.122216E+00
-PKER_SWETH( 24, 34) = 0.100012E+00
-PKER_SWETH( 24, 35) = 0.831056E-01
-PKER_SWETH( 24, 36) = 0.721377E-01
-PKER_SWETH( 24, 37) = 0.673132E-01
-PKER_SWETH( 24, 38) = 0.682186E-01
-PKER_SWETH( 24, 39) = 0.739244E-01
-PKER_SWETH( 24, 40) = 0.832005E-01
-PKER_SWETH( 24, 41) = 0.947760E-01
-PKER_SWETH( 24, 42) = 0.107532E+00
-PKER_SWETH( 24, 43) = 0.120598E+00
-PKER_SWETH( 24, 44) = 0.133420E+00
-PKER_SWETH( 24, 45) = 0.145669E+00
-PKER_SWETH( 24, 46) = 0.157186E+00
-PKER_SWETH( 24, 47) = 0.167927E+00
-PKER_SWETH( 24, 48) = 0.177903E+00
-PKER_SWETH( 24, 49) = 0.187160E+00
-PKER_SWETH( 24, 50) = 0.195752E+00
-PKER_SWETH( 24, 51) = 0.203734E+00
-PKER_SWETH( 24, 52) = 0.211160E+00
-PKER_SWETH( 24, 53) = 0.218077E+00
-PKER_SWETH( 24, 54) = 0.224528E+00
-PKER_SWETH( 24, 55) = 0.230551E+00
-PKER_SWETH( 24, 56) = 0.236181E+00
-PKER_SWETH( 24, 57) = 0.241446E+00
-PKER_SWETH( 24, 58) = 0.246373E+00
-PKER_SWETH( 24, 59) = 0.250988E+00
-PKER_SWETH( 24, 60) = 0.255311E+00
-PKER_SWETH( 24, 61) = 0.259363E+00
-PKER_SWETH( 24, 62) = 0.263162E+00
-PKER_SWETH( 24, 63) = 0.266724E+00
-PKER_SWETH( 24, 64) = 0.270065E+00
-PKER_SWETH( 24, 65) = 0.273200E+00
-PKER_SWETH( 24, 66) = 0.276142E+00
-PKER_SWETH( 24, 67) = 0.278902E+00
-PKER_SWETH( 24, 68) = 0.281493E+00
-PKER_SWETH( 24, 69) = 0.283924E+00
-PKER_SWETH( 24, 70) = 0.286206E+00
-PKER_SWETH( 24, 71) = 0.288349E+00
-PKER_SWETH( 24, 72) = 0.290360E+00
-PKER_SWETH( 24, 73) = 0.292248E+00
-PKER_SWETH( 24, 74) = 0.294021E+00
-PKER_SWETH( 24, 75) = 0.295685E+00
-PKER_SWETH( 24, 76) = 0.297248E+00
-PKER_SWETH( 24, 77) = 0.298715E+00
-PKER_SWETH( 24, 78) = 0.300092E+00
-PKER_SWETH( 24, 79) = 0.301385E+00
-PKER_SWETH( 24, 80) = 0.302600E+00
-PKER_SWETH( 25, 1) = 0.291559E+01
-PKER_SWETH( 25, 2) = 0.272306E+01
-PKER_SWETH( 25, 3) = 0.254227E+01
-PKER_SWETH( 25, 4) = 0.237251E+01
-PKER_SWETH( 25, 5) = 0.221311E+01
-PKER_SWETH( 25, 6) = 0.206342E+01
-PKER_SWETH( 25, 7) = 0.192286E+01
-PKER_SWETH( 25, 8) = 0.179087E+01
-PKER_SWETH( 25, 9) = 0.166692E+01
-PKER_SWETH( 25, 10) = 0.155051E+01
-PKER_SWETH( 25, 11) = 0.144120E+01
-PKER_SWETH( 25, 12) = 0.133853E+01
-PKER_SWETH( 25, 13) = 0.124210E+01
-PKER_SWETH( 25, 14) = 0.115153E+01
-PKER_SWETH( 25, 15) = 0.106645E+01
-PKER_SWETH( 25, 16) = 0.986522E+00
-PKER_SWETH( 25, 17) = 0.911418E+00
-PKER_SWETH( 25, 18) = 0.840837E+00
-PKER_SWETH( 25, 19) = 0.774489E+00
-PKER_SWETH( 25, 20) = 0.712102E+00
-PKER_SWETH( 25, 21) = 0.653415E+00
-PKER_SWETH( 25, 22) = 0.598183E+00
-PKER_SWETH( 25, 23) = 0.546167E+00
-PKER_SWETH( 25, 24) = 0.497142E+00
-PKER_SWETH( 25, 25) = 0.450891E+00
-PKER_SWETH( 25, 26) = 0.407203E+00
-PKER_SWETH( 25, 27) = 0.365878E+00
-PKER_SWETH( 25, 28) = 0.326729E+00
-PKER_SWETH( 25, 29) = 0.289588E+00
-PKER_SWETH( 25, 30) = 0.254321E+00
-PKER_SWETH( 25, 31) = 0.220863E+00
-PKER_SWETH( 25, 32) = 0.189255E+00
-PKER_SWETH( 25, 33) = 0.159705E+00
-PKER_SWETH( 25, 34) = 0.132637E+00
-PKER_SWETH( 25, 35) = 0.108685E+00
-PKER_SWETH( 25, 36) = 0.886458E-01
-PKER_SWETH( 25, 37) = 0.733000E-01
-PKER_SWETH( 25, 38) = 0.631817E-01
-PKER_SWETH( 25, 39) = 0.584175E-01
-PKER_SWETH( 25, 40) = 0.586280E-01
-PKER_SWETH( 25, 41) = 0.629970E-01
-PKER_SWETH( 25, 42) = 0.704646E-01
-PKER_SWETH( 25, 43) = 0.799685E-01
-PKER_SWETH( 25, 44) = 0.905525E-01
-PKER_SWETH( 25, 45) = 0.101507E+00
-PKER_SWETH( 25, 46) = 0.112335E+00
-PKER_SWETH( 25, 47) = 0.122751E+00
-PKER_SWETH( 25, 48) = 0.132601E+00
-PKER_SWETH( 25, 49) = 0.141833E+00
-PKER_SWETH( 25, 50) = 0.150445E+00
-PKER_SWETH( 25, 51) = 0.158463E+00
-PKER_SWETH( 25, 52) = 0.165926E+00
-PKER_SWETH( 25, 53) = 0.172877E+00
-PKER_SWETH( 25, 54) = 0.179357E+00
-PKER_SWETH( 25, 55) = 0.185404E+00
-PKER_SWETH( 25, 56) = 0.191051E+00
-PKER_SWETH( 25, 57) = 0.196330E+00
-PKER_SWETH( 25, 58) = 0.201268E+00
-PKER_SWETH( 25, 59) = 0.205891E+00
-PKER_SWETH( 25, 60) = 0.210221E+00
-PKER_SWETH( 25, 61) = 0.214278E+00
-PKER_SWETH( 25, 62) = 0.218080E+00
-PKER_SWETH( 25, 63) = 0.221646E+00
-PKER_SWETH( 25, 64) = 0.224989E+00
-PKER_SWETH( 25, 65) = 0.228126E+00
-PKER_SWETH( 25, 66) = 0.231069E+00
-PKER_SWETH( 25, 67) = 0.233830E+00
-PKER_SWETH( 25, 68) = 0.236422E+00
-PKER_SWETH( 25, 69) = 0.238854E+00
-PKER_SWETH( 25, 70) = 0.241137E+00
-PKER_SWETH( 25, 71) = 0.243279E+00
-PKER_SWETH( 25, 72) = 0.245291E+00
-PKER_SWETH( 25, 73) = 0.247179E+00
-PKER_SWETH( 25, 74) = 0.248952E+00
-PKER_SWETH( 25, 75) = 0.250616E+00
-PKER_SWETH( 25, 76) = 0.252179E+00
-PKER_SWETH( 25, 77) = 0.253646E+00
-PKER_SWETH( 25, 78) = 0.255024E+00
-PKER_SWETH( 25, 79) = 0.256317E+00
-PKER_SWETH( 25, 80) = 0.257531E+00
-PKER_SWETH( 26, 1) = 0.294919E+01
-PKER_SWETH( 26, 2) = 0.275667E+01
-PKER_SWETH( 26, 3) = 0.257589E+01
-PKER_SWETH( 26, 4) = 0.240613E+01
-PKER_SWETH( 26, 5) = 0.224673E+01
-PKER_SWETH( 26, 6) = 0.209706E+01
-PKER_SWETH( 26, 7) = 0.195650E+01
-PKER_SWETH( 26, 8) = 0.182452E+01
-PKER_SWETH( 26, 9) = 0.170058E+01
-PKER_SWETH( 26, 10) = 0.158419E+01
-PKER_SWETH( 26, 11) = 0.147489E+01
-PKER_SWETH( 26, 12) = 0.137225E+01
-PKER_SWETH( 26, 13) = 0.127585E+01
-PKER_SWETH( 26, 14) = 0.118531E+01
-PKER_SWETH( 26, 15) = 0.110026E+01
-PKER_SWETH( 26, 16) = 0.102038E+01
-PKER_SWETH( 26, 17) = 0.945328E+00
-PKER_SWETH( 26, 18) = 0.874813E+00
-PKER_SWETH( 26, 19) = 0.808544E+00
-PKER_SWETH( 26, 20) = 0.746253E+00
-PKER_SWETH( 26, 21) = 0.687683E+00
-PKER_SWETH( 26, 22) = 0.632590E+00
-PKER_SWETH( 26, 23) = 0.580743E+00
-PKER_SWETH( 26, 24) = 0.531921E+00
-PKER_SWETH( 26, 25) = 0.485912E+00
-PKER_SWETH( 26, 26) = 0.442513E+00
-PKER_SWETH( 26, 27) = 0.401527E+00
-PKER_SWETH( 26, 28) = 0.362766E+00
-PKER_SWETH( 26, 29) = 0.326051E+00
-PKER_SWETH( 26, 30) = 0.291214E+00
-PKER_SWETH( 26, 31) = 0.258107E+00
-PKER_SWETH( 26, 32) = 0.226621E+00
-PKER_SWETH( 26, 33) = 0.196706E+00
-PKER_SWETH( 26, 34) = 0.168416E+00
-PKER_SWETH( 26, 35) = 0.141958E+00
-PKER_SWETH( 26, 36) = 0.117722E+00
-PKER_SWETH( 26, 37) = 0.962814E-01
-PKER_SWETH( 26, 38) = 0.783300E-01
-PKER_SWETH( 26, 39) = 0.645079E-01
-PKER_SWETH( 26, 40) = 0.552534E-01
-PKER_SWETH( 26, 41) = 0.506271E-01
-PKER_SWETH( 26, 42) = 0.502626E-01
-PKER_SWETH( 26, 43) = 0.534894E-01
-PKER_SWETH( 26, 44) = 0.594360E-01
-PKER_SWETH( 26, 45) = 0.671708E-01
-PKER_SWETH( 26, 46) = 0.759473E-01
-PKER_SWETH( 26, 47) = 0.851241E-01
-PKER_SWETH( 26, 48) = 0.942847E-01
-PKER_SWETH( 26, 49) = 0.103164E+00
-PKER_SWETH( 26, 50) = 0.111616E+00
-PKER_SWETH( 26, 51) = 0.119577E+00
-PKER_SWETH( 26, 52) = 0.127034E+00
-PKER_SWETH( 26, 53) = 0.134000E+00
-PKER_SWETH( 26, 54) = 0.140501E+00
-PKER_SWETH( 26, 55) = 0.146568E+00
-PKER_SWETH( 26, 56) = 0.152234E+00
-PKER_SWETH( 26, 57) = 0.157529E+00
-PKER_SWETH( 26, 58) = 0.162480E+00
-PKER_SWETH( 26, 59) = 0.167112E+00
-PKER_SWETH( 26, 60) = 0.171449E+00
-PKER_SWETH( 26, 61) = 0.175512E+00
-PKER_SWETH( 26, 62) = 0.179319E+00
-PKER_SWETH( 26, 63) = 0.182888E+00
-PKER_SWETH( 26, 64) = 0.186234E+00
-PKER_SWETH( 26, 65) = 0.189373E+00
-PKER_SWETH( 26, 66) = 0.192317E+00
-PKER_SWETH( 26, 67) = 0.195080E+00
-PKER_SWETH( 26, 68) = 0.197672E+00
-PKER_SWETH( 26, 69) = 0.200105E+00
-PKER_SWETH( 26, 70) = 0.202388E+00
-PKER_SWETH( 26, 71) = 0.204532E+00
-PKER_SWETH( 26, 72) = 0.206543E+00
-PKER_SWETH( 26, 73) = 0.208432E+00
-PKER_SWETH( 26, 74) = 0.210205E+00
-PKER_SWETH( 26, 75) = 0.211870E+00
-PKER_SWETH( 26, 76) = 0.213432E+00
-PKER_SWETH( 26, 77) = 0.214900E+00
-PKER_SWETH( 26, 78) = 0.216277E+00
-PKER_SWETH( 26, 79) = 0.217571E+00
-PKER_SWETH( 26, 80) = 0.218785E+00
-PKER_SWETH( 27, 1) = 0.297808E+01
-PKER_SWETH( 27, 2) = 0.278556E+01
-PKER_SWETH( 27, 3) = 0.260479E+01
-PKER_SWETH( 27, 4) = 0.243504E+01
-PKER_SWETH( 27, 5) = 0.227564E+01
-PKER_SWETH( 27, 6) = 0.212597E+01
-PKER_SWETH( 27, 7) = 0.198542E+01
-PKER_SWETH( 27, 8) = 0.185344E+01
-PKER_SWETH( 27, 9) = 0.172951E+01
-PKER_SWETH( 27, 10) = 0.161314E+01
-PKER_SWETH( 27, 11) = 0.150385E+01
-PKER_SWETH( 27, 12) = 0.140122E+01
-PKER_SWETH( 27, 13) = 0.130484E+01
-PKER_SWETH( 27, 14) = 0.121432E+01
-PKER_SWETH( 27, 15) = 0.112931E+01
-PKER_SWETH( 27, 16) = 0.104946E+01
-PKER_SWETH( 27, 17) = 0.974450E+00
-PKER_SWETH( 27, 18) = 0.903983E+00
-PKER_SWETH( 27, 19) = 0.837775E+00
-PKER_SWETH( 27, 20) = 0.775555E+00
-PKER_SWETH( 27, 21) = 0.717072E+00
-PKER_SWETH( 27, 22) = 0.662084E+00
-PKER_SWETH( 27, 23) = 0.610364E+00
-PKER_SWETH( 27, 24) = 0.561694E+00
-PKER_SWETH( 27, 25) = 0.515868E+00
-PKER_SWETH( 27, 26) = 0.472688E+00
-PKER_SWETH( 27, 27) = 0.431963E+00
-PKER_SWETH( 27, 28) = 0.393511E+00
-PKER_SWETH( 27, 29) = 0.357155E+00
-PKER_SWETH( 27, 30) = 0.322725E+00
-PKER_SWETH( 27, 31) = 0.290064E+00
-PKER_SWETH( 27, 32) = 0.259024E+00
-PKER_SWETH( 27, 33) = 0.229483E+00
-PKER_SWETH( 27, 34) = 0.201355E+00
-PKER_SWETH( 27, 35) = 0.174615E+00
-PKER_SWETH( 27, 36) = 0.149334E+00
-PKER_SWETH( 27, 37) = 0.125718E+00
-PKER_SWETH( 27, 38) = 0.104127E+00
-PKER_SWETH( 27, 39) = 0.850544E-01
-PKER_SWETH( 27, 40) = 0.690877E-01
-PKER_SWETH( 27, 41) = 0.567360E-01
-PKER_SWETH( 27, 42) = 0.483077E-01
-PKER_SWETH( 27, 43) = 0.438459E-01
-PKER_SWETH( 27, 44) = 0.430396E-01
-PKER_SWETH( 27, 45) = 0.452998E-01
-PKER_SWETH( 27, 46) = 0.499404E-01
-PKER_SWETH( 27, 47) = 0.562217E-01
-PKER_SWETH( 27, 48) = 0.634525E-01
-PKER_SWETH( 27, 49) = 0.711393E-01
-PKER_SWETH( 27, 50) = 0.788981E-01
-PKER_SWETH( 27, 51) = 0.864846E-01
-PKER_SWETH( 27, 52) = 0.937536E-01
-PKER_SWETH( 27, 53) = 0.100637E+00
-PKER_SWETH( 27, 54) = 0.107111E+00
-PKER_SWETH( 27, 55) = 0.113177E+00
-PKER_SWETH( 27, 56) = 0.118852E+00
-PKER_SWETH( 27, 57) = 0.124158E+00
-PKER_SWETH( 27, 58) = 0.129121E+00
-PKER_SWETH( 27, 59) = 0.133764E+00
-PKER_SWETH( 27, 60) = 0.138109E+00
-PKER_SWETH( 27, 61) = 0.142178E+00
-PKER_SWETH( 27, 62) = 0.145991E+00
-PKER_SWETH( 27, 63) = 0.149563E+00
-PKER_SWETH( 27, 64) = 0.152913E+00
-PKER_SWETH( 27, 65) = 0.156054E+00
-PKER_SWETH( 27, 66) = 0.159000E+00
-PKER_SWETH( 27, 67) = 0.161764E+00
-PKER_SWETH( 27, 68) = 0.164357E+00
-PKER_SWETH( 27, 69) = 0.166791E+00
-PKER_SWETH( 27, 70) = 0.169075E+00
-PKER_SWETH( 27, 71) = 0.171219E+00
-PKER_SWETH( 27, 72) = 0.173231E+00
-PKER_SWETH( 27, 73) = 0.175120E+00
-PKER_SWETH( 27, 74) = 0.176893E+00
-PKER_SWETH( 27, 75) = 0.178558E+00
-PKER_SWETH( 27, 76) = 0.180121E+00
-PKER_SWETH( 27, 77) = 0.181588E+00
-PKER_SWETH( 27, 78) = 0.182966E+00
-PKER_SWETH( 27, 79) = 0.184259E+00
-PKER_SWETH( 27, 80) = 0.185474E+00
-PKER_SWETH( 28, 1) = 0.300292E+01
-PKER_SWETH( 28, 2) = 0.281040E+01
-PKER_SWETH( 28, 3) = 0.262963E+01
-PKER_SWETH( 28, 4) = 0.245988E+01
-PKER_SWETH( 28, 5) = 0.230049E+01
-PKER_SWETH( 28, 6) = 0.215082E+01
-PKER_SWETH( 28, 7) = 0.201028E+01
-PKER_SWETH( 28, 8) = 0.187831E+01
-PKER_SWETH( 28, 9) = 0.175438E+01
-PKER_SWETH( 28, 10) = 0.163802E+01
-PKER_SWETH( 28, 11) = 0.152874E+01
-PKER_SWETH( 28, 12) = 0.142612E+01
-PKER_SWETH( 28, 13) = 0.132976E+01
-PKER_SWETH( 28, 14) = 0.123926E+01
-PKER_SWETH( 28, 15) = 0.115426E+01
-PKER_SWETH( 28, 16) = 0.107444E+01
-PKER_SWETH( 28, 17) = 0.999462E+00
-PKER_SWETH( 28, 18) = 0.929033E+00
-PKER_SWETH( 28, 19) = 0.862870E+00
-PKER_SWETH( 28, 20) = 0.800705E+00
-PKER_SWETH( 28, 21) = 0.742287E+00
-PKER_SWETH( 28, 22) = 0.687378E+00
-PKER_SWETH( 28, 23) = 0.635752E+00
-PKER_SWETH( 28, 24) = 0.587197E+00
-PKER_SWETH( 28, 25) = 0.541509E+00
-PKER_SWETH( 28, 26) = 0.498494E+00
-PKER_SWETH( 28, 27) = 0.457967E+00
-PKER_SWETH( 28, 28) = 0.419751E+00
-PKER_SWETH( 28, 29) = 0.383673E+00
-PKER_SWETH( 28, 30) = 0.349569E+00
-PKER_SWETH( 28, 31) = 0.317283E+00
-PKER_SWETH( 28, 32) = 0.286664E+00
-PKER_SWETH( 28, 33) = 0.257572E+00
-PKER_SWETH( 28, 34) = 0.229887E+00
-PKER_SWETH( 28, 35) = 0.203511E+00
-PKER_SWETH( 28, 36) = 0.178386E+00
-PKER_SWETH( 28, 37) = 0.154515E+00
-PKER_SWETH( 28, 38) = 0.131988E+00
-PKER_SWETH( 28, 39) = 0.111005E+00
-PKER_SWETH( 28, 40) = 0.918807E-01
-PKER_SWETH( 28, 41) = 0.750363E-01
-PKER_SWETH( 28, 42) = 0.609249E-01
-PKER_SWETH( 28, 43) = 0.499395E-01
-PKER_SWETH( 28, 44) = 0.423051E-01
-PKER_SWETH( 28, 45) = 0.380232E-01
-PKER_SWETH( 28, 46) = 0.368477E-01
-PKER_SWETH( 28, 47) = 0.383224E-01
-PKER_SWETH( 28, 48) = 0.418693E-01
-PKER_SWETH( 28, 49) = 0.468853E-01
-PKER_SWETH( 28, 50) = 0.528439E-01
-PKER_SWETH( 28, 51) = 0.592713E-01
-PKER_SWETH( 28, 52) = 0.658408E-01
-PKER_SWETH( 28, 53) = 0.723285E-01
-PKER_SWETH( 28, 54) = 0.785904E-01
-PKER_SWETH( 28, 55) = 0.845537E-01
-PKER_SWETH( 28, 56) = 0.901848E-01
-PKER_SWETH( 28, 57) = 0.954771E-01
-PKER_SWETH( 28, 58) = 0.100439E+00
-PKER_SWETH( 28, 59) = 0.105087E+00
-PKER_SWETH( 28, 60) = 0.109439E+00
-PKER_SWETH( 28, 61) = 0.113515E+00
-PKER_SWETH( 28, 62) = 0.117332E+00
-PKER_SWETH( 28, 63) = 0.120909E+00
-PKER_SWETH( 28, 64) = 0.124262E+00
-PKER_SWETH( 28, 65) = 0.127406E+00
-PKER_SWETH( 28, 66) = 0.130355E+00
-PKER_SWETH( 28, 67) = 0.133120E+00
-PKER_SWETH( 28, 68) = 0.135715E+00
-PKER_SWETH( 28, 69) = 0.138149E+00
-PKER_SWETH( 28, 70) = 0.140434E+00
-PKER_SWETH( 28, 71) = 0.142578E+00
-PKER_SWETH( 28, 72) = 0.144591E+00
-PKER_SWETH( 28, 73) = 0.146480E+00
-PKER_SWETH( 28, 74) = 0.148254E+00
-PKER_SWETH( 28, 75) = 0.149919E+00
-PKER_SWETH( 28, 76) = 0.151482E+00
-PKER_SWETH( 28, 77) = 0.152949E+00
-PKER_SWETH( 28, 78) = 0.154327E+00
-PKER_SWETH( 28, 79) = 0.155621E+00
-PKER_SWETH( 28, 80) = 0.156835E+00
-PKER_SWETH( 29, 1) = 0.302428E+01
-PKER_SWETH( 29, 2) = 0.283176E+01
-PKER_SWETH( 29, 3) = 0.265098E+01
-PKER_SWETH( 29, 4) = 0.248124E+01
-PKER_SWETH( 29, 5) = 0.232185E+01
-PKER_SWETH( 29, 6) = 0.217218E+01
-PKER_SWETH( 29, 7) = 0.203165E+01
-PKER_SWETH( 29, 8) = 0.189968E+01
-PKER_SWETH( 29, 9) = 0.177576E+01
-PKER_SWETH( 29, 10) = 0.165940E+01
-PKER_SWETH( 29, 11) = 0.155013E+01
-PKER_SWETH( 29, 12) = 0.144753E+01
-PKER_SWETH( 29, 13) = 0.135117E+01
-PKER_SWETH( 29, 14) = 0.126068E+01
-PKER_SWETH( 29, 15) = 0.117571E+01
-PKER_SWETH( 29, 16) = 0.109590E+01
-PKER_SWETH( 29, 17) = 0.102095E+01
-PKER_SWETH( 29, 18) = 0.950548E+00
-PKER_SWETH( 29, 19) = 0.884419E+00
-PKER_SWETH( 29, 20) = 0.822295E+00
-PKER_SWETH( 29, 21) = 0.763926E+00
-PKER_SWETH( 29, 22) = 0.709077E+00
-PKER_SWETH( 29, 23) = 0.657523E+00
-PKER_SWETH( 29, 24) = 0.609055E+00
-PKER_SWETH( 29, 25) = 0.563470E+00
-PKER_SWETH( 29, 26) = 0.520580E+00
-PKER_SWETH( 29, 27) = 0.480203E+00
-PKER_SWETH( 29, 28) = 0.442165E+00
-PKER_SWETH( 29, 29) = 0.406299E+00
-PKER_SWETH( 29, 30) = 0.372447E+00
-PKER_SWETH( 29, 31) = 0.340455E+00
-PKER_SWETH( 29, 32) = 0.310175E+00
-PKER_SWETH( 29, 33) = 0.281469E+00
-PKER_SWETH( 29, 34) = 0.254205E+00
-PKER_SWETH( 29, 35) = 0.228266E+00
-PKER_SWETH( 29, 36) = 0.203556E+00
-PKER_SWETH( 29, 37) = 0.180007E+00
-PKER_SWETH( 29, 38) = 0.157592E+00
-PKER_SWETH( 29, 39) = 0.136340E+00
-PKER_SWETH( 29, 40) = 0.116352E+00
-PKER_SWETH( 29, 41) = 0.978136E-01
-PKER_SWETH( 29, 42) = 0.809885E-01
-PKER_SWETH( 29, 43) = 0.662043E-01
-PKER_SWETH( 29, 44) = 0.538061E-01
-PKER_SWETH( 29, 45) = 0.440664E-01
-PKER_SWETH( 29, 46) = 0.371573E-01
-PKER_SWETH( 29, 47) = 0.330684E-01
-PKER_SWETH( 29, 48) = 0.315985E-01
-PKER_SWETH( 29, 49) = 0.324092E-01
-PKER_SWETH( 29, 50) = 0.350441E-01
-PKER_SWETH( 29, 51) = 0.390177E-01
-PKER_SWETH( 29, 52) = 0.438760E-01
-PKER_SWETH( 29, 53) = 0.492363E-01
-PKER_SWETH( 29, 54) = 0.548009E-01
-PKER_SWETH( 29, 55) = 0.603500E-01
-PKER_SWETH( 29, 56) = 0.657504E-01
-PKER_SWETH( 29, 57) = 0.709231E-01
-PKER_SWETH( 29, 58) = 0.758271E-01
-PKER_SWETH( 29, 59) = 0.804506E-01
-PKER_SWETH( 29, 60) = 0.847948E-01
-PKER_SWETH( 29, 61) = 0.888701E-01
-PKER_SWETH( 29, 62) = 0.926906E-01
-PKER_SWETH( 29, 63) = 0.962714E-01
-PKER_SWETH( 29, 64) = 0.996278E-01
-PKER_SWETH( 29, 65) = 0.102775E+00
-PKER_SWETH( 29, 66) = 0.105725E+00
-PKER_SWETH( 29, 67) = 0.108493E+00
-PKER_SWETH( 29, 68) = 0.111089E+00
-PKER_SWETH( 29, 69) = 0.113525E+00
-PKER_SWETH( 29, 70) = 0.115810E+00
-PKER_SWETH( 29, 71) = 0.117955E+00
-PKER_SWETH( 29, 72) = 0.119968E+00
-PKER_SWETH( 29, 73) = 0.121858E+00
-PKER_SWETH( 29, 74) = 0.123632E+00
-PKER_SWETH( 29, 75) = 0.125297E+00
-PKER_SWETH( 29, 76) = 0.126860E+00
-PKER_SWETH( 29, 77) = 0.128328E+00
-PKER_SWETH( 29, 78) = 0.129706E+00
-PKER_SWETH( 29, 79) = 0.130999E+00
-PKER_SWETH( 29, 80) = 0.132214E+00
-PKER_SWETH( 30, 1) = 0.304263E+01
-PKER_SWETH( 30, 2) = 0.285012E+01
-PKER_SWETH( 30, 3) = 0.266934E+01
-PKER_SWETH( 30, 4) = 0.249960E+01
-PKER_SWETH( 30, 5) = 0.234021E+01
-PKER_SWETH( 30, 6) = 0.219055E+01
-PKER_SWETH( 30, 7) = 0.205001E+01
-PKER_SWETH( 30, 8) = 0.191805E+01
-PKER_SWETH( 30, 9) = 0.179414E+01
-PKER_SWETH( 30, 10) = 0.167778E+01
-PKER_SWETH( 30, 11) = 0.156852E+01
-PKER_SWETH( 30, 12) = 0.146592E+01
-PKER_SWETH( 30, 13) = 0.136957E+01
-PKER_SWETH( 30, 14) = 0.127910E+01
-PKER_SWETH( 30, 15) = 0.119413E+01
-PKER_SWETH( 30, 16) = 0.111434E+01
-PKER_SWETH( 30, 17) = 0.103941E+01
-PKER_SWETH( 30, 18) = 0.969029E+00
-PKER_SWETH( 30, 19) = 0.902926E+00
-PKER_SWETH( 30, 20) = 0.840833E+00
-PKER_SWETH( 30, 21) = 0.782502E+00
-PKER_SWETH( 30, 22) = 0.727698E+00
-PKER_SWETH( 30, 23) = 0.676199E+00
-PKER_SWETH( 30, 24) = 0.627795E+00
-PKER_SWETH( 30, 25) = 0.582290E+00
-PKER_SWETH( 30, 26) = 0.539494E+00
-PKER_SWETH( 30, 27) = 0.499230E+00
-PKER_SWETH( 30, 28) = 0.461327E+00
-PKER_SWETH( 30, 29) = 0.425623E+00
-PKER_SWETH( 30, 30) = 0.391964E+00
-PKER_SWETH( 30, 31) = 0.360198E+00
-PKER_SWETH( 30, 32) = 0.330184E+00
-PKER_SWETH( 30, 33) = 0.301784E+00
-PKER_SWETH( 30, 34) = 0.274868E+00
-PKER_SWETH( 30, 35) = 0.249313E+00
-PKER_SWETH( 30, 36) = 0.225011E+00
-PKER_SWETH( 30, 37) = 0.201868E+00
-PKER_SWETH( 30, 38) = 0.179815E+00
-PKER_SWETH( 30, 39) = 0.158815E+00
-PKER_SWETH( 30, 40) = 0.138868E+00
-PKER_SWETH( 30, 41) = 0.120024E+00
-PKER_SWETH( 30, 42) = 0.102388E+00
-PKER_SWETH( 30, 43) = 0.861144E-01
-PKER_SWETH( 30, 44) = 0.714080E-01
-PKER_SWETH( 30, 45) = 0.585069E-01
-PKER_SWETH( 30, 46) = 0.476515E-01
-PKER_SWETH( 30, 47) = 0.390335E-01
-PKER_SWETH( 30, 48) = 0.327743E-01
-PKER_SWETH( 30, 49) = 0.288723E-01
-PKER_SWETH( 30, 50) = 0.271805E-01
-PKER_SWETH( 30, 51) = 0.274431E-01
-PKER_SWETH( 30, 52) = 0.293182E-01
-PKER_SWETH( 30, 53) = 0.324139E-01
-PKER_SWETH( 30, 54) = 0.363508E-01
-PKER_SWETH( 30, 55) = 0.408047E-01
-PKER_SWETH( 30, 56) = 0.455006E-01
-PKER_SWETH( 30, 57) = 0.502456E-01
-PKER_SWETH( 30, 58) = 0.549025E-01
-PKER_SWETH( 30, 59) = 0.593913E-01
-PKER_SWETH( 30, 60) = 0.636662E-01
-PKER_SWETH( 30, 61) = 0.677085E-01
-PKER_SWETH( 30, 62) = 0.715153E-01
-PKER_SWETH( 30, 63) = 0.750918E-01
-PKER_SWETH( 30, 64) = 0.784481E-01
-PKER_SWETH( 30, 65) = 0.815963E-01
-PKER_SWETH( 30, 66) = 0.845489E-01
-PKER_SWETH( 30, 67) = 0.873181E-01
-PKER_SWETH( 30, 68) = 0.899158E-01
-PKER_SWETH( 30, 69) = 0.923528E-01
-PKER_SWETH( 30, 70) = 0.946394E-01
-PKER_SWETH( 30, 71) = 0.967852E-01
-PKER_SWETH( 30, 72) = 0.987990E-01
-PKER_SWETH( 30, 73) = 0.100689E+00
-PKER_SWETH( 30, 74) = 0.102463E+00
-PKER_SWETH( 30, 75) = 0.104129E+00
-PKER_SWETH( 30, 76) = 0.105692E+00
-PKER_SWETH( 30, 77) = 0.107160E+00
-PKER_SWETH( 30, 78) = 0.108538E+00
-PKER_SWETH( 30, 79) = 0.109832E+00
-PKER_SWETH( 30, 80) = 0.111046E+00
-PKER_SWETH( 31, 1) = 0.305841E+01
-PKER_SWETH( 31, 2) = 0.286590E+01
-PKER_SWETH( 31, 3) = 0.268513E+01
-PKER_SWETH( 31, 4) = 0.251539E+01
-PKER_SWETH( 31, 5) = 0.235600E+01
-PKER_SWETH( 31, 6) = 0.220634E+01
-PKER_SWETH( 31, 7) = 0.206581E+01
-PKER_SWETH( 31, 8) = 0.193385E+01
-PKER_SWETH( 31, 9) = 0.180994E+01
-PKER_SWETH( 31, 10) = 0.169358E+01
-PKER_SWETH( 31, 11) = 0.158433E+01
-PKER_SWETH( 31, 12) = 0.148173E+01
-PKER_SWETH( 31, 13) = 0.138539E+01
-PKER_SWETH( 31, 14) = 0.129492E+01
-PKER_SWETH( 31, 15) = 0.120997E+01
-PKER_SWETH( 31, 16) = 0.113019E+01
-PKER_SWETH( 31, 17) = 0.105527E+01
-PKER_SWETH( 31, 18) = 0.984906E+00
-PKER_SWETH( 31, 19) = 0.918822E+00
-PKER_SWETH( 31, 20) = 0.856754E+00
-PKER_SWETH( 31, 21) = 0.798451E+00
-PKER_SWETH( 31, 22) = 0.743681E+00
-PKER_SWETH( 31, 23) = 0.692223E+00
-PKER_SWETH( 31, 24) = 0.643870E+00
-PKER_SWETH( 31, 25) = 0.598424E+00
-PKER_SWETH( 31, 26) = 0.555700E+00
-PKER_SWETH( 31, 27) = 0.515521E+00
-PKER_SWETH( 31, 28) = 0.477722E+00
-PKER_SWETH( 31, 29) = 0.442141E+00
-PKER_SWETH( 31, 30) = 0.408628E+00
-PKER_SWETH( 31, 31) = 0.377036E+00
-PKER_SWETH( 31, 32) = 0.347228E+00
-PKER_SWETH( 31, 33) = 0.319067E+00
-PKER_SWETH( 31, 34) = 0.292428E+00
-PKER_SWETH( 31, 35) = 0.267187E+00
-PKER_SWETH( 31, 36) = 0.243232E+00
-PKER_SWETH( 31, 37) = 0.220461E+00
-PKER_SWETH( 31, 38) = 0.198785E+00
-PKER_SWETH( 31, 39) = 0.178137E+00
-PKER_SWETH( 31, 40) = 0.158477E+00
-PKER_SWETH( 31, 41) = 0.139795E+00
-PKER_SWETH( 31, 42) = 0.122116E+00
-PKER_SWETH( 31, 43) = 0.105498E+00
-PKER_SWETH( 31, 44) = 0.900345E-01
-PKER_SWETH( 31, 45) = 0.758410E-01
-PKER_SWETH( 31, 46) = 0.630589E-01
-PKER_SWETH( 31, 47) = 0.518477E-01
-PKER_SWETH( 31, 48) = 0.423630E-01
-PKER_SWETH( 31, 49) = 0.347372E-01
-PKER_SWETH( 31, 50) = 0.290641E-01
-PKER_SWETH( 31, 51) = 0.253414E-01
-PKER_SWETH( 31, 52) = 0.234859E-01
-PKER_SWETH( 31, 53) = 0.233114E-01
-PKER_SWETH( 31, 54) = 0.245489E-01
-PKER_SWETH( 31, 55) = 0.269042E-01
-PKER_SWETH( 31, 56) = 0.300674E-01
-PKER_SWETH( 31, 57) = 0.337384E-01
-PKER_SWETH( 31, 58) = 0.376964E-01
-PKER_SWETH( 31, 59) = 0.417445E-01
-PKER_SWETH( 31, 60) = 0.457577E-01
-PKER_SWETH( 31, 61) = 0.496524E-01
-PKER_SWETH( 31, 62) = 0.533798E-01
-PKER_SWETH( 31, 63) = 0.569162E-01
-PKER_SWETH( 31, 64) = 0.602537E-01
-PKER_SWETH( 31, 65) = 0.633942E-01
-PKER_SWETH( 31, 66) = 0.663443E-01
-PKER_SWETH( 31, 67) = 0.691135E-01
-PKER_SWETH( 31, 68) = 0.717119E-01
-PKER_SWETH( 31, 69) = 0.741499E-01
-PKER_SWETH( 31, 70) = 0.764375E-01
-PKER_SWETH( 31, 71) = 0.785841E-01
-PKER_SWETH( 31, 72) = 0.805986E-01
-PKER_SWETH( 31, 73) = 0.824892E-01
-PKER_SWETH( 31, 74) = 0.842638E-01
-PKER_SWETH( 31, 75) = 0.859296E-01
-PKER_SWETH( 31, 76) = 0.874932E-01
-PKER_SWETH( 31, 77) = 0.889612E-01
-PKER_SWETH( 31, 78) = 0.903393E-01
-PKER_SWETH( 31, 79) = 0.916331E-01
-PKER_SWETH( 31, 80) = 0.928478E-01
-PKER_SWETH( 32, 1) = 0.307198E+01
-PKER_SWETH( 32, 2) = 0.287947E+01
-PKER_SWETH( 32, 3) = 0.269870E+01
-PKER_SWETH( 32, 4) = 0.252896E+01
-PKER_SWETH( 32, 5) = 0.236957E+01
-PKER_SWETH( 32, 6) = 0.221991E+01
-PKER_SWETH( 32, 7) = 0.207938E+01
-PKER_SWETH( 32, 8) = 0.194742E+01
-PKER_SWETH( 32, 9) = 0.182351E+01
-PKER_SWETH( 32, 10) = 0.170716E+01
-PKER_SWETH( 32, 11) = 0.159791E+01
-PKER_SWETH( 32, 12) = 0.149532E+01
-PKER_SWETH( 32, 13) = 0.139899E+01
-PKER_SWETH( 32, 14) = 0.130853E+01
-PKER_SWETH( 32, 15) = 0.122358E+01
-PKER_SWETH( 32, 16) = 0.114381E+01
-PKER_SWETH( 32, 17) = 0.106890E+01
-PKER_SWETH( 32, 18) = 0.998547E+00
-PKER_SWETH( 32, 19) = 0.932479E+00
-PKER_SWETH( 32, 20) = 0.870428E+00
-PKER_SWETH( 32, 21) = 0.812147E+00
-PKER_SWETH( 32, 22) = 0.757404E+00
-PKER_SWETH( 32, 23) = 0.705977E+00
-PKER_SWETH( 32, 24) = 0.657662E+00
-PKER_SWETH( 32, 25) = 0.612261E+00
-PKER_SWETH( 32, 26) = 0.569591E+00
-PKER_SWETH( 32, 27) = 0.529478E+00
-PKER_SWETH( 32, 28) = 0.491757E+00
-PKER_SWETH( 32, 29) = 0.456270E+00
-PKER_SWETH( 32, 30) = 0.422869E+00
-PKER_SWETH( 32, 31) = 0.391411E+00
-PKER_SWETH( 32, 32) = 0.361760E+00
-PKER_SWETH( 32, 33) = 0.333785E+00
-PKER_SWETH( 32, 34) = 0.307363E+00
-PKER_SWETH( 32, 35) = 0.282372E+00
-PKER_SWETH( 32, 36) = 0.258701E+00
-PKER_SWETH( 32, 37) = 0.236242E+00
-PKER_SWETH( 32, 38) = 0.214902E+00
-PKER_SWETH( 32, 39) = 0.194597E+00
-PKER_SWETH( 32, 40) = 0.175263E+00
-PKER_SWETH( 32, 41) = 0.156861E+00
-PKER_SWETH( 32, 42) = 0.139376E+00
-PKER_SWETH( 32, 43) = 0.122822E+00
-PKER_SWETH( 32, 44) = 0.107235E+00
-PKER_SWETH( 32, 45) = 0.926714E-01
-PKER_SWETH( 32, 46) = 0.791985E-01
-PKER_SWETH( 32, 47) = 0.668908E-01
-PKER_SWETH( 32, 48) = 0.558298E-01
-PKER_SWETH( 32, 49) = 0.461095E-01
-PKER_SWETH( 32, 50) = 0.378288E-01
-PKER_SWETH( 32, 51) = 0.310726E-01
-PKER_SWETH( 32, 52) = 0.259224E-01
-PKER_SWETH( 32, 53) = 0.223881E-01
-PKER_SWETH( 32, 54) = 0.204125E-01
-PKER_SWETH( 32, 55) = 0.198855E-01
-PKER_SWETH( 32, 56) = 0.206112E-01
-PKER_SWETH( 32, 57) = 0.223423E-01
-PKER_SWETH( 32, 58) = 0.248393E-01
-PKER_SWETH( 32, 59) = 0.278564E-01
-PKER_SWETH( 32, 60) = 0.311658E-01
-PKER_SWETH( 32, 61) = 0.346111E-01
-PKER_SWETH( 32, 62) = 0.380645E-01
-PKER_SWETH( 32, 63) = 0.414420E-01
-PKER_SWETH( 32, 64) = 0.446910E-01
-PKER_SWETH( 32, 65) = 0.477849E-01
-PKER_SWETH( 32, 66) = 0.507120E-01
-PKER_SWETH( 32, 67) = 0.534705E-01
-PKER_SWETH( 32, 68) = 0.560645E-01
-PKER_SWETH( 32, 69) = 0.585012E-01
-PKER_SWETH( 32, 70) = 0.607887E-01
-PKER_SWETH( 32, 71) = 0.629357E-01
-PKER_SWETH( 32, 72) = 0.649507E-01
-PKER_SWETH( 32, 73) = 0.668419E-01
-PKER_SWETH( 32, 74) = 0.686169E-01
-PKER_SWETH( 32, 75) = 0.702830E-01
-PKER_SWETH( 32, 76) = 0.718470E-01
-PKER_SWETH( 32, 77) = 0.733151E-01
-PKER_SWETH( 32, 78) = 0.746934E-01
-PKER_SWETH( 32, 79) = 0.759873E-01
-PKER_SWETH( 32, 80) = 0.772022E-01
-PKER_SWETH( 33, 1) = 0.308365E+01
-PKER_SWETH( 33, 2) = 0.289113E+01
-PKER_SWETH( 33, 3) = 0.271036E+01
-PKER_SWETH( 33, 4) = 0.254062E+01
-PKER_SWETH( 33, 5) = 0.238124E+01
-PKER_SWETH( 33, 6) = 0.223158E+01
-PKER_SWETH( 33, 7) = 0.209105E+01
-PKER_SWETH( 33, 8) = 0.195909E+01
-PKER_SWETH( 33, 9) = 0.183519E+01
-PKER_SWETH( 33, 10) = 0.171884E+01
-PKER_SWETH( 33, 11) = 0.160959E+01
-PKER_SWETH( 33, 12) = 0.150700E+01
-PKER_SWETH( 33, 13) = 0.141067E+01
-PKER_SWETH( 33, 14) = 0.132022E+01
-PKER_SWETH( 33, 15) = 0.123527E+01
-PKER_SWETH( 33, 16) = 0.115551E+01
-PKER_SWETH( 33, 17) = 0.108061E+01
-PKER_SWETH( 33, 18) = 0.101027E+01
-PKER_SWETH( 33, 19) = 0.944211E+00
-PKER_SWETH( 33, 20) = 0.882174E+00
-PKER_SWETH( 33, 21) = 0.823911E+00
-PKER_SWETH( 33, 22) = 0.769187E+00
-PKER_SWETH( 33, 23) = 0.717785E+00
-PKER_SWETH( 33, 24) = 0.669498E+00
-PKER_SWETH( 33, 25) = 0.624132E+00
-PKER_SWETH( 33, 26) = 0.581504E+00
-PKER_SWETH( 33, 27) = 0.541441E+00
-PKER_SWETH( 33, 28) = 0.503779E+00
-PKER_SWETH( 33, 29) = 0.468364E+00
-PKER_SWETH( 33, 30) = 0.435048E+00
-PKER_SWETH( 33, 31) = 0.403692E+00
-PKER_SWETH( 33, 32) = 0.374162E+00
-PKER_SWETH( 33, 33) = 0.346331E+00
-PKER_SWETH( 33, 34) = 0.320078E+00
-PKER_SWETH( 33, 35) = 0.295284E+00
-PKER_SWETH( 33, 36) = 0.271839E+00
-PKER_SWETH( 33, 37) = 0.249637E+00
-PKER_SWETH( 33, 38) = 0.228579E+00
-PKER_SWETH( 33, 39) = 0.208576E+00
-PKER_SWETH( 33, 40) = 0.189552E+00
-PKER_SWETH( 33, 41) = 0.171446E+00
-PKER_SWETH( 33, 42) = 0.154219E+00
-PKER_SWETH( 33, 43) = 0.137857E+00
-PKER_SWETH( 33, 44) = 0.122365E+00
-PKER_SWETH( 33, 45) = 0.107772E+00
-PKER_SWETH( 33, 46) = 0.941135E-01
-PKER_SWETH( 33, 47) = 0.814306E-01
-PKER_SWETH( 33, 48) = 0.697596E-01
-PKER_SWETH( 33, 49) = 0.591329E-01
-PKER_SWETH( 33, 50) = 0.495874E-01
-PKER_SWETH( 33, 51) = 0.411680E-01
-PKER_SWETH( 33, 52) = 0.339301E-01
-PKER_SWETH( 33, 53) = 0.279413E-01
-PKER_SWETH( 33, 54) = 0.232585E-01
-PKER_SWETH( 33, 55) = 0.199094E-01
-PKER_SWETH( 33, 56) = 0.178713E-01
-PKER_SWETH( 33, 57) = 0.170702E-01
-PKER_SWETH( 33, 58) = 0.173718E-01
-PKER_SWETH( 33, 59) = 0.185930E-01
-PKER_SWETH( 33, 60) = 0.205264E-01
-PKER_SWETH( 33, 61) = 0.229634E-01
-PKER_SWETH( 33, 62) = 0.257251E-01
-PKER_SWETH( 33, 63) = 0.286451E-01
-PKER_SWETH( 33, 64) = 0.316079E-01
-PKER_SWETH( 33, 65) = 0.345319E-01
-PKER_SWETH( 33, 66) = 0.373616E-01
-PKER_SWETH( 33, 67) = 0.400676E-01
-PKER_SWETH( 33, 68) = 0.426346E-01
-PKER_SWETH( 33, 69) = 0.450580E-01
-PKER_SWETH( 33, 70) = 0.473394E-01
-PKER_SWETH( 33, 71) = 0.494840E-01
-PKER_SWETH( 33, 72) = 0.514983E-01
-PKER_SWETH( 33, 73) = 0.533894E-01
-PKER_SWETH( 33, 74) = 0.551646E-01
-PKER_SWETH( 33, 75) = 0.568310E-01
-PKER_SWETH( 33, 76) = 0.583952E-01
-PKER_SWETH( 33, 77) = 0.598636E-01
-PKER_SWETH( 33, 78) = 0.612421E-01
-PKER_SWETH( 33, 79) = 0.625362E-01
-PKER_SWETH( 33, 80) = 0.637511E-01
-PKER_SWETH( 34, 1) = 0.309367E+01
-PKER_SWETH( 34, 2) = 0.290116E+01
-PKER_SWETH( 34, 3) = 0.272039E+01
-PKER_SWETH( 34, 4) = 0.255065E+01
-PKER_SWETH( 34, 5) = 0.239127E+01
-PKER_SWETH( 34, 6) = 0.224161E+01
-PKER_SWETH( 34, 7) = 0.210108E+01
-PKER_SWETH( 34, 8) = 0.196913E+01
-PKER_SWETH( 34, 9) = 0.184522E+01
-PKER_SWETH( 34, 10) = 0.172888E+01
-PKER_SWETH( 34, 11) = 0.161963E+01
-PKER_SWETH( 34, 12) = 0.151704E+01
-PKER_SWETH( 34, 13) = 0.142072E+01
-PKER_SWETH( 34, 14) = 0.133026E+01
-PKER_SWETH( 34, 15) = 0.124533E+01
-PKER_SWETH( 34, 16) = 0.116557E+01
-PKER_SWETH( 34, 17) = 0.109067E+01
-PKER_SWETH( 34, 18) = 0.102034E+01
-PKER_SWETH( 34, 19) = 0.954292E+00
-PKER_SWETH( 34, 20) = 0.892266E+00
-PKER_SWETH( 34, 21) = 0.834015E+00
-PKER_SWETH( 34, 22) = 0.779307E+00
-PKER_SWETH( 34, 23) = 0.727923E+00
-PKER_SWETH( 34, 24) = 0.679659E+00
-PKER_SWETH( 34, 25) = 0.634319E+00
-PKER_SWETH( 34, 26) = 0.591723E+00
-PKER_SWETH( 34, 27) = 0.551698E+00
-PKER_SWETH( 34, 28) = 0.514082E+00
-PKER_SWETH( 34, 29) = 0.478721E+00
-PKER_SWETH( 34, 30) = 0.445471E+00
-PKER_SWETH( 34, 31) = 0.414193E+00
-PKER_SWETH( 34, 32) = 0.384756E+00
-PKER_SWETH( 34, 33) = 0.357036E+00
-PKER_SWETH( 34, 34) = 0.330913E+00
-PKER_SWETH( 34, 35) = 0.306273E+00
-PKER_SWETH( 34, 36) = 0.283006E+00
-PKER_SWETH( 34, 37) = 0.261009E+00
-PKER_SWETH( 34, 38) = 0.240184E+00
-PKER_SWETH( 34, 39) = 0.220436E+00
-PKER_SWETH( 34, 40) = 0.201685E+00
-PKER_SWETH( 34, 41) = 0.183858E+00
-PKER_SWETH( 34, 42) = 0.166898E+00
-PKER_SWETH( 34, 43) = 0.150769E+00
-PKER_SWETH( 34, 44) = 0.135455E+00
-PKER_SWETH( 34, 45) = 0.120960E+00
-PKER_SWETH( 34, 46) = 0.107304E+00
-PKER_SWETH( 34, 47) = 0.945159E-01
-PKER_SWETH( 34, 48) = 0.826218E-01
-PKER_SWETH( 34, 49) = 0.716384E-01
-PKER_SWETH( 34, 50) = 0.615720E-01
-PKER_SWETH( 34, 51) = 0.524221E-01
-PKER_SWETH( 34, 52) = 0.441914E-01
-PKER_SWETH( 34, 53) = 0.368950E-01
-PKER_SWETH( 34, 54) = 0.305630E-01
-PKER_SWETH( 34, 55) = 0.252431E-01
-PKER_SWETH( 34, 56) = 0.209881E-01
-PKER_SWETH( 34, 57) = 0.178255E-01
-PKER_SWETH( 34, 58) = 0.157648E-01
-PKER_SWETH( 34, 59) = 0.147630E-01
-PKER_SWETH( 34, 60) = 0.147237E-01
-PKER_SWETH( 34, 61) = 0.155170E-01
-PKER_SWETH( 34, 62) = 0.169756E-01
-PKER_SWETH( 34, 63) = 0.189247E-01
-PKER_SWETH( 34, 64) = 0.212006E-01
-PKER_SWETH( 34, 65) = 0.236626E-01
-PKER_SWETH( 34, 66) = 0.261994E-01
-PKER_SWETH( 34, 67) = 0.287254E-01
-PKER_SWETH( 34, 68) = 0.311875E-01
-PKER_SWETH( 34, 69) = 0.335528E-01
-PKER_SWETH( 34, 70) = 0.358031E-01
-PKER_SWETH( 34, 71) = 0.379320E-01
-PKER_SWETH( 34, 72) = 0.399386E-01
-PKER_SWETH( 34, 73) = 0.418263E-01
-PKER_SWETH( 34, 74) = 0.436002E-01
-PKER_SWETH( 34, 75) = 0.452662E-01
-PKER_SWETH( 34, 76) = 0.468304E-01
-PKER_SWETH( 34, 77) = 0.482989E-01
-PKER_SWETH( 34, 78) = 0.496775E-01
-PKER_SWETH( 34, 79) = 0.509718E-01
-PKER_SWETH( 34, 80) = 0.521868E-01
-PKER_SWETH( 35, 1) = 0.310229E+01
-PKER_SWETH( 35, 2) = 0.290978E+01
-PKER_SWETH( 35, 3) = 0.272901E+01
-PKER_SWETH( 35, 4) = 0.255927E+01
-PKER_SWETH( 35, 5) = 0.239989E+01
-PKER_SWETH( 35, 6) = 0.225023E+01
-PKER_SWETH( 35, 7) = 0.210971E+01
-PKER_SWETH( 35, 8) = 0.197775E+01
-PKER_SWETH( 35, 9) = 0.185385E+01
-PKER_SWETH( 35, 10) = 0.173750E+01
-PKER_SWETH( 35, 11) = 0.162826E+01
-PKER_SWETH( 35, 12) = 0.152568E+01
-PKER_SWETH( 35, 13) = 0.142935E+01
-PKER_SWETH( 35, 14) = 0.133890E+01
-PKER_SWETH( 35, 15) = 0.125397E+01
-PKER_SWETH( 35, 16) = 0.117421E+01
-PKER_SWETH( 35, 17) = 0.109932E+01
-PKER_SWETH( 35, 18) = 0.102899E+01
-PKER_SWETH( 35, 19) = 0.962954E+00
-PKER_SWETH( 35, 20) = 0.900936E+00
-PKER_SWETH( 35, 21) = 0.842695E+00
-PKER_SWETH( 35, 22) = 0.787999E+00
-PKER_SWETH( 35, 23) = 0.736630E+00
-PKER_SWETH( 35, 24) = 0.688382E+00
-PKER_SWETH( 35, 25) = 0.643063E+00
-PKER_SWETH( 35, 26) = 0.600491E+00
-PKER_SWETH( 35, 27) = 0.560496E+00
-PKER_SWETH( 35, 28) = 0.522915E+00
-PKER_SWETH( 35, 29) = 0.487596E+00
-PKER_SWETH( 35, 30) = 0.454396E+00
-PKER_SWETH( 35, 31) = 0.423178E+00
-PKER_SWETH( 35, 32) = 0.393812E+00
-PKER_SWETH( 35, 33) = 0.366177E+00
-PKER_SWETH( 35, 34) = 0.340155E+00
-PKER_SWETH( 35, 35) = 0.315634E+00
-PKER_SWETH( 35, 36) = 0.292507E+00
-PKER_SWETH( 35, 37) = 0.270673E+00
-PKER_SWETH( 35, 38) = 0.250034E+00
-PKER_SWETH( 35, 39) = 0.230497E+00
-PKER_SWETH( 35, 40) = 0.211978E+00
-PKER_SWETH( 35, 41) = 0.194397E+00
-PKER_SWETH( 35, 42) = 0.177688E+00
-PKER_SWETH( 35, 43) = 0.161799E+00
-PKER_SWETH( 35, 44) = 0.146695E+00
-PKER_SWETH( 35, 45) = 0.132358E+00
-PKER_SWETH( 35, 46) = 0.118793E+00
-PKER_SWETH( 35, 47) = 0.106016E+00
-PKER_SWETH( 35, 48) = 0.940490E-01
-PKER_SWETH( 35, 49) = 0.829116E-01
-PKER_SWETH( 35, 50) = 0.726109E-01
-PKER_SWETH( 35, 51) = 0.631403E-01
-PKER_SWETH( 35, 52) = 0.544809E-01
-PKER_SWETH( 35, 53) = 0.466098E-01
-PKER_SWETH( 35, 54) = 0.395099E-01
-PKER_SWETH( 35, 55) = 0.331777E-01
-PKER_SWETH( 35, 56) = 0.276290E-01
-PKER_SWETH( 35, 57) = 0.228990E-01
-PKER_SWETH( 35, 58) = 0.190322E-01
-PKER_SWETH( 35, 59) = 0.160626E-01
-PKER_SWETH( 35, 60) = 0.140126E-01
-PKER_SWETH( 35, 61) = 0.128671E-01
-PKER_SWETH( 35, 62) = 0.125631E-01
-PKER_SWETH( 35, 63) = 0.130040E-01
-PKER_SWETH( 35, 64) = 0.140640E-01
-PKER_SWETH( 35, 65) = 0.155956E-01
-PKER_SWETH( 35, 66) = 0.174553E-01
-PKER_SWETH( 35, 67) = 0.195193E-01
-PKER_SWETH( 35, 68) = 0.216784E-01
-PKER_SWETH( 35, 69) = 0.238555E-01
-PKER_SWETH( 35, 70) = 0.259938E-01
-PKER_SWETH( 35, 71) = 0.280589E-01
-PKER_SWETH( 35, 72) = 0.300308E-01
-PKER_SWETH( 35, 73) = 0.319003E-01
-PKER_SWETH( 35, 74) = 0.336651E-01
-PKER_SWETH( 35, 75) = 0.353268E-01
-PKER_SWETH( 35, 76) = 0.368892E-01
-PKER_SWETH( 35, 77) = 0.383569E-01
-PKER_SWETH( 35, 78) = 0.397353E-01
-PKER_SWETH( 35, 79) = 0.410295E-01
-PKER_SWETH( 35, 80) = 0.422447E-01
-PKER_SWETH( 36, 1) = 0.310970E+01
-PKER_SWETH( 36, 2) = 0.291719E+01
-PKER_SWETH( 36, 3) = 0.273642E+01
-PKER_SWETH( 36, 4) = 0.256668E+01
-PKER_SWETH( 36, 5) = 0.240730E+01
-PKER_SWETH( 36, 6) = 0.225765E+01
-PKER_SWETH( 36, 7) = 0.211712E+01
-PKER_SWETH( 36, 8) = 0.198517E+01
-PKER_SWETH( 36, 9) = 0.186126E+01
-PKER_SWETH( 36, 10) = 0.174492E+01
-PKER_SWETH( 36, 11) = 0.163568E+01
-PKER_SWETH( 36, 12) = 0.153310E+01
-PKER_SWETH( 36, 13) = 0.143677E+01
-PKER_SWETH( 36, 14) = 0.134632E+01
-PKER_SWETH( 36, 15) = 0.126139E+01
-PKER_SWETH( 36, 16) = 0.118164E+01
-PKER_SWETH( 36, 17) = 0.110675E+01
-PKER_SWETH( 36, 18) = 0.103643E+01
-PKER_SWETH( 36, 19) = 0.970397E+00
-PKER_SWETH( 36, 20) = 0.908386E+00
-PKER_SWETH( 36, 21) = 0.850153E+00
-PKER_SWETH( 36, 22) = 0.795466E+00
-PKER_SWETH( 36, 23) = 0.744108E+00
-PKER_SWETH( 36, 24) = 0.695873E+00
-PKER_SWETH( 36, 25) = 0.650570E+00
-PKER_SWETH( 36, 26) = 0.608017E+00
-PKER_SWETH( 36, 27) = 0.568044E+00
-PKER_SWETH( 36, 28) = 0.530490E+00
-PKER_SWETH( 36, 29) = 0.495203E+00
-PKER_SWETH( 36, 30) = 0.462042E+00
-PKER_SWETH( 36, 31) = 0.430869E+00
-PKER_SWETH( 36, 32) = 0.401559E+00
-PKER_SWETH( 36, 33) = 0.373989E+00
-PKER_SWETH( 36, 34) = 0.348045E+00
-PKER_SWETH( 36, 35) = 0.323616E+00
-PKER_SWETH( 36, 36) = 0.300599E+00
-PKER_SWETH( 36, 37) = 0.278892E+00
-PKER_SWETH( 36, 38) = 0.258401E+00
-PKER_SWETH( 36, 39) = 0.239034E+00
-PKER_SWETH( 36, 40) = 0.220706E+00
-PKER_SWETH( 36, 41) = 0.203335E+00
-PKER_SWETH( 36, 42) = 0.186850E+00
-PKER_SWETH( 36, 43) = 0.171188E+00
-PKER_SWETH( 36, 44) = 0.156300E+00
-PKER_SWETH( 36, 45) = 0.142151E+00
-PKER_SWETH( 36, 46) = 0.128727E+00
-PKER_SWETH( 36, 47) = 0.116029E+00
-PKER_SWETH( 36, 48) = 0.104072E+00
-PKER_SWETH( 36, 49) = 0.928735E-01
-PKER_SWETH( 36, 50) = 0.824495E-01
-PKER_SWETH( 36, 51) = 0.728026E-01
-PKER_SWETH( 36, 52) = 0.639198E-01
-PKER_SWETH( 36, 53) = 0.557752E-01
-PKER_SWETH( 36, 54) = 0.483333E-01
-PKER_SWETH( 36, 55) = 0.415587E-01
-PKER_SWETH( 36, 56) = 0.354254E-01
-PKER_SWETH( 36, 57) = 0.299195E-01
-PKER_SWETH( 36, 58) = 0.250483E-01
-PKER_SWETH( 36, 59) = 0.208397E-01
-PKER_SWETH( 36, 60) = 0.173299E-01
-PKER_SWETH( 36, 61) = 0.145557E-01
-PKER_SWETH( 36, 62) = 0.125495E-01
-PKER_SWETH( 36, 63) = 0.113080E-01
-PKER_SWETH( 36, 64) = 0.108016E-01
-PKER_SWETH( 36, 65) = 0.109613E-01
-PKER_SWETH( 36, 66) = 0.116849E-01
-PKER_SWETH( 36, 67) = 0.128598E-01
-PKER_SWETH( 36, 68) = 0.143640E-01
-PKER_SWETH( 36, 69) = 0.160768E-01
-PKER_SWETH( 36, 70) = 0.179090E-01
-PKER_SWETH( 36, 71) = 0.197779E-01
-PKER_SWETH( 36, 72) = 0.216309E-01
-PKER_SWETH( 36, 73) = 0.234315E-01
-PKER_SWETH( 36, 74) = 0.251579E-01
-PKER_SWETH( 36, 75) = 0.267991E-01
-PKER_SWETH( 36, 76) = 0.283509E-01
-PKER_SWETH( 36, 77) = 0.298135E-01
-PKER_SWETH( 36, 78) = 0.311895E-01
-PKER_SWETH( 36, 79) = 0.324827E-01
-PKER_SWETH( 36, 80) = 0.336974E-01
-PKER_SWETH( 37, 1) = 0.311608E+01
-PKER_SWETH( 37, 2) = 0.292356E+01
-PKER_SWETH( 37, 3) = 0.274280E+01
-PKER_SWETH( 37, 4) = 0.257306E+01
-PKER_SWETH( 37, 5) = 0.241368E+01
-PKER_SWETH( 37, 6) = 0.226402E+01
-PKER_SWETH( 37, 7) = 0.212349E+01
-PKER_SWETH( 37, 8) = 0.199154E+01
-PKER_SWETH( 37, 9) = 0.186764E+01
-PKER_SWETH( 37, 10) = 0.175130E+01
-PKER_SWETH( 37, 11) = 0.164205E+01
-PKER_SWETH( 37, 12) = 0.153947E+01
-PKER_SWETH( 37, 13) = 0.144315E+01
-PKER_SWETH( 37, 14) = 0.135271E+01
-PKER_SWETH( 37, 15) = 0.126778E+01
-PKER_SWETH( 37, 16) = 0.118803E+01
-PKER_SWETH( 37, 17) = 0.111314E+01
-PKER_SWETH( 37, 18) = 0.104282E+01
-PKER_SWETH( 37, 19) = 0.976794E+00
-PKER_SWETH( 37, 20) = 0.914788E+00
-PKER_SWETH( 37, 21) = 0.856560E+00
-PKER_SWETH( 37, 22) = 0.801881E+00
-PKER_SWETH( 37, 23) = 0.750531E+00
-PKER_SWETH( 37, 24) = 0.702307E+00
-PKER_SWETH( 37, 25) = 0.657016E+00
-PKER_SWETH( 37, 26) = 0.614477E+00
-PKER_SWETH( 37, 27) = 0.574521E+00
-PKER_SWETH( 37, 28) = 0.536988E+00
-PKER_SWETH( 37, 29) = 0.501726E+00
-PKER_SWETH( 37, 30) = 0.468594E+00
-PKER_SWETH( 37, 31) = 0.437458E+00
-PKER_SWETH( 37, 32) = 0.408190E+00
-PKER_SWETH( 37, 33) = 0.380671E+00
-PKER_SWETH( 37, 34) = 0.354786E+00
-PKER_SWETH( 37, 35) = 0.330429E+00
-PKER_SWETH( 37, 36) = 0.307496E+00
-PKER_SWETH( 37, 37) = 0.285889E+00
-PKER_SWETH( 37, 38) = 0.265514E+00
-PKER_SWETH( 37, 39) = 0.246283E+00
-PKER_SWETH( 37, 40) = 0.228109E+00
-PKER_SWETH( 37, 41) = 0.210913E+00
-PKER_SWETH( 37, 42) = 0.194619E+00
-PKER_SWETH( 37, 43) = 0.179160E+00
-PKER_SWETH( 37, 44) = 0.164477E+00
-PKER_SWETH( 37, 45) = 0.150523E+00
-PKER_SWETH( 37, 46) = 0.137268E+00
-PKER_SWETH( 37, 47) = 0.124695E+00
-PKER_SWETH( 37, 48) = 0.112806E+00
-PKER_SWETH( 37, 49) = 0.101613E+00
-PKER_SWETH( 37, 50) = 0.911322E-01
-PKER_SWETH( 37, 51) = 0.813759E-01
-PKER_SWETH( 37, 52) = 0.723446E-01
-PKER_SWETH( 37, 53) = 0.640238E-01
-PKER_SWETH( 37, 54) = 0.563838E-01
-PKER_SWETH( 37, 55) = 0.493857E-01
-PKER_SWETH( 37, 56) = 0.429865E-01
-PKER_SWETH( 37, 57) = 0.371471E-01
-PKER_SWETH( 37, 58) = 0.318367E-01
-PKER_SWETH( 37, 59) = 0.270401E-01
-PKER_SWETH( 37, 60) = 0.227582E-01
-PKER_SWETH( 37, 61) = 0.190115E-01
-PKER_SWETH( 37, 62) = 0.158324E-01
-PKER_SWETH( 37, 63) = 0.132541E-01
-PKER_SWETH( 37, 64) = 0.113154E-01
-PKER_SWETH( 37, 65) = 0.100251E-01
-PKER_SWETH( 37, 66) = 0.936563E-02
-PKER_SWETH( 37, 67) = 0.929977E-02
-PKER_SWETH( 37, 68) = 0.975168E-02
-PKER_SWETH( 37, 69) = 0.106226E-01
-PKER_SWETH( 37, 70) = 0.118165E-01
-PKER_SWETH( 37, 71) = 0.132315E-01
-PKER_SWETH( 37, 72) = 0.147715E-01
-PKER_SWETH( 37, 73) = 0.163699E-01
-PKER_SWETH( 37, 74) = 0.179714E-01
-PKER_SWETH( 37, 75) = 0.195388E-01
-PKER_SWETH( 37, 76) = 0.210485E-01
-PKER_SWETH( 37, 77) = 0.224882E-01
-PKER_SWETH( 37, 78) = 0.238523E-01
-PKER_SWETH( 37, 79) = 0.251394E-01
-PKER_SWETH( 37, 80) = 0.263512E-01
-PKER_SWETH( 38, 1) = 0.312155E+01
-PKER_SWETH( 38, 2) = 0.292904E+01
-PKER_SWETH( 38, 3) = 0.274827E+01
-PKER_SWETH( 38, 4) = 0.257854E+01
-PKER_SWETH( 38, 5) = 0.241915E+01
-PKER_SWETH( 38, 6) = 0.226950E+01
-PKER_SWETH( 38, 7) = 0.212897E+01
-PKER_SWETH( 38, 8) = 0.199702E+01
-PKER_SWETH( 38, 9) = 0.187312E+01
-PKER_SWETH( 38, 10) = 0.175678E+01
-PKER_SWETH( 38, 11) = 0.164753E+01
-PKER_SWETH( 38, 12) = 0.154496E+01
-PKER_SWETH( 38, 13) = 0.144864E+01
-PKER_SWETH( 38, 14) = 0.135819E+01
-PKER_SWETH( 38, 15) = 0.127326E+01
-PKER_SWETH( 38, 16) = 0.119352E+01
-PKER_SWETH( 38, 17) = 0.111863E+01
-PKER_SWETH( 38, 18) = 0.104832E+01
-PKER_SWETH( 38, 19) = 0.982291E+00
-PKER_SWETH( 38, 20) = 0.920289E+00
-PKER_SWETH( 38, 21) = 0.862066E+00
-PKER_SWETH( 38, 22) = 0.807392E+00
-PKER_SWETH( 38, 23) = 0.756049E+00
-PKER_SWETH( 38, 24) = 0.707832E+00
-PKER_SWETH( 38, 25) = 0.662551E+00
-PKER_SWETH( 38, 26) = 0.620024E+00
-PKER_SWETH( 38, 27) = 0.580081E+00
-PKER_SWETH( 38, 28) = 0.542564E+00
-PKER_SWETH( 38, 29) = 0.507322E+00
-PKER_SWETH( 38, 30) = 0.474213E+00
-PKER_SWETH( 38, 31) = 0.443103E+00
-PKER_SWETH( 38, 32) = 0.413868E+00
-PKER_SWETH( 38, 33) = 0.386388E+00
-PKER_SWETH( 38, 34) = 0.360550E+00
-PKER_SWETH( 38, 35) = 0.336248E+00
-PKER_SWETH( 38, 36) = 0.313380E+00
-PKER_SWETH( 38, 37) = 0.291851E+00
-PKER_SWETH( 38, 38) = 0.271567E+00
-PKER_SWETH( 38, 39) = 0.252443E+00
-PKER_SWETH( 38, 40) = 0.234393E+00
-PKER_SWETH( 38, 41) = 0.217338E+00
-PKER_SWETH( 38, 42) = 0.201203E+00
-PKER_SWETH( 38, 43) = 0.185918E+00
-PKER_SWETH( 38, 44) = 0.171419E+00
-PKER_SWETH( 38, 45) = 0.157652E+00
-PKER_SWETH( 38, 46) = 0.144573E+00
-PKER_SWETH( 38, 47) = 0.132151E+00
-PKER_SWETH( 38, 48) = 0.120374E+00
-PKER_SWETH( 38, 49) = 0.109240E+00
-PKER_SWETH( 38, 50) = 0.987594E-01
-PKER_SWETH( 38, 51) = 0.889476E-01
-PKER_SWETH( 38, 52) = 0.798146E-01
-PKER_SWETH( 38, 53) = 0.713596E-01
-PKER_SWETH( 38, 54) = 0.635674E-01
-PKER_SWETH( 38, 55) = 0.564087E-01
-PKER_SWETH( 38, 56) = 0.498437E-01
-PKER_SWETH( 38, 57) = 0.438276E-01
-PKER_SWETH( 38, 58) = 0.383165E-01
-PKER_SWETH( 38, 59) = 0.332715E-01
-PKER_SWETH( 38, 60) = 0.286636E-01
-PKER_SWETH( 38, 61) = 0.244758E-01
-PKER_SWETH( 38, 62) = 0.207079E-01
-PKER_SWETH( 38, 63) = 0.173736E-01
-PKER_SWETH( 38, 64) = 0.144984E-01
-PKER_SWETH( 38, 65) = 0.121181E-01
-PKER_SWETH( 38, 66) = 0.102648E-01
-PKER_SWETH( 38, 67) = 0.895844E-02
-PKER_SWETH( 38, 68) = 0.819655E-02
-PKER_SWETH( 38, 69) = 0.795499E-02
-PKER_SWETH( 38, 70) = 0.818194E-02
-PKER_SWETH( 38, 71) = 0.880268E-02
-PKER_SWETH( 38, 72) = 0.973113E-02
-PKER_SWETH( 38, 73) = 0.108789E-01
-PKER_SWETH( 38, 74) = 0.121690E-01
-PKER_SWETH( 38, 75) = 0.135287E-01
-PKER_SWETH( 38, 76) = 0.149074E-01
-PKER_SWETH( 38, 77) = 0.162683E-01
-PKER_SWETH( 38, 78) = 0.175866E-01
-PKER_SWETH( 38, 79) = 0.188485E-01
-PKER_SWETH( 38, 80) = 0.200469E-01
-PKER_SWETH( 39, 1) = 0.312626E+01
-PKER_SWETH( 39, 2) = 0.293375E+01
-PKER_SWETH( 39, 3) = 0.275298E+01
-PKER_SWETH( 39, 4) = 0.258325E+01
-PKER_SWETH( 39, 5) = 0.242386E+01
-PKER_SWETH( 39, 6) = 0.227421E+01
-PKER_SWETH( 39, 7) = 0.213368E+01
-PKER_SWETH( 39, 8) = 0.200173E+01
-PKER_SWETH( 39, 9) = 0.187783E+01
-PKER_SWETH( 39, 10) = 0.176149E+01
-PKER_SWETH( 39, 11) = 0.165225E+01
-PKER_SWETH( 39, 12) = 0.154967E+01
-PKER_SWETH( 39, 13) = 0.145335E+01
-PKER_SWETH( 39, 14) = 0.136291E+01
-PKER_SWETH( 39, 15) = 0.127798E+01
-PKER_SWETH( 39, 16) = 0.119824E+01
-PKER_SWETH( 39, 17) = 0.112335E+01
-PKER_SWETH( 39, 18) = 0.105304E+01
-PKER_SWETH( 39, 19) = 0.987015E+00
-PKER_SWETH( 39, 20) = 0.925016E+00
-PKER_SWETH( 39, 21) = 0.866797E+00
-PKER_SWETH( 39, 22) = 0.812128E+00
-PKER_SWETH( 39, 23) = 0.760790E+00
-PKER_SWETH( 39, 24) = 0.712579E+00
-PKER_SWETH( 39, 25) = 0.667305E+00
-PKER_SWETH( 39, 26) = 0.624787E+00
-PKER_SWETH( 39, 27) = 0.584855E+00
-PKER_SWETH( 39, 28) = 0.547350E+00
-PKER_SWETH( 39, 29) = 0.512122E+00
-PKER_SWETH( 39, 30) = 0.479031E+00
-PKER_SWETH( 39, 31) = 0.447943E+00
-PKER_SWETH( 39, 32) = 0.418733E+00
-PKER_SWETH( 39, 33) = 0.391283E+00
-PKER_SWETH( 39, 34) = 0.365481E+00
-PKER_SWETH( 39, 35) = 0.341221E+00
-PKER_SWETH( 39, 36) = 0.318405E+00
-PKER_SWETH( 39, 37) = 0.296935E+00
-PKER_SWETH( 39, 38) = 0.276723E+00
-PKER_SWETH( 39, 39) = 0.257682E+00
-PKER_SWETH( 39, 40) = 0.239730E+00
-PKER_SWETH( 39, 41) = 0.222789E+00
-PKER_SWETH( 39, 42) = 0.206783E+00
-PKER_SWETH( 39, 43) = 0.191643E+00
-PKER_SWETH( 39, 44) = 0.177303E+00
-PKER_SWETH( 39, 45) = 0.163704E+00
-PKER_SWETH( 39, 46) = 0.150794E+00
-PKER_SWETH( 39, 47) = 0.138532E+00
-PKER_SWETH( 39, 48) = 0.126891E+00
-PKER_SWETH( 39, 49) = 0.115856E+00
-PKER_SWETH( 39, 50) = 0.105427E+00
-PKER_SWETH( 39, 51) = 0.956115E-01
-PKER_SWETH( 39, 52) = 0.864237E-01
-PKER_SWETH( 39, 53) = 0.778719E-01
-PKER_SWETH( 39, 54) = 0.699550E-01
-PKER_SWETH( 39, 55) = 0.626577E-01
-PKER_SWETH( 39, 56) = 0.559517E-01
-PKER_SWETH( 39, 57) = 0.497985E-01
-PKER_SWETH( 39, 58) = 0.441542E-01
-PKER_SWETH( 39, 59) = 0.389738E-01
-PKER_SWETH( 39, 60) = 0.342166E-01
-PKER_SWETH( 39, 61) = 0.298469E-01
-PKER_SWETH( 39, 62) = 0.258389E-01
-PKER_SWETH( 39, 63) = 0.221768E-01
-PKER_SWETH( 39, 64) = 0.188576E-01
-PKER_SWETH( 39, 65) = 0.158916E-01
-PKER_SWETH( 39, 66) = 0.132994E-01
-PKER_SWETH( 39, 67) = 0.111114E-01
-PKER_SWETH( 39, 68) = 0.936006E-02
-PKER_SWETH( 39, 69) = 0.806501E-02
-PKER_SWETH( 39, 70) = 0.723816E-02
-PKER_SWETH( 39, 71) = 0.686650E-02
-PKER_SWETH( 39, 72) = 0.691235E-02
-PKER_SWETH( 39, 73) = 0.732242E-02
-PKER_SWETH( 39, 74) = 0.802562E-02
-PKER_SWETH( 39, 75) = 0.894621E-02
-PKER_SWETH( 39, 76) = 0.100126E-01
-PKER_SWETH( 39, 77) = 0.111624E-01
-PKER_SWETH( 39, 78) = 0.123458E-01
-PKER_SWETH( 39, 79) = 0.135242E-01
-PKER_SWETH( 39, 80) = 0.146735E-01
-PKER_SWETH( 40, 1) = 0.313031E+01
-PKER_SWETH( 40, 2) = 0.293780E+01
-PKER_SWETH( 40, 3) = 0.275703E+01
-PKER_SWETH( 40, 4) = 0.258729E+01
-PKER_SWETH( 40, 5) = 0.242791E+01
-PKER_SWETH( 40, 6) = 0.227826E+01
-PKER_SWETH( 40, 7) = 0.213773E+01
-PKER_SWETH( 40, 8) = 0.200578E+01
-PKER_SWETH( 40, 9) = 0.188188E+01
-PKER_SWETH( 40, 10) = 0.176554E+01
-PKER_SWETH( 40, 11) = 0.165630E+01
-PKER_SWETH( 40, 12) = 0.155372E+01
-PKER_SWETH( 40, 13) = 0.145740E+01
-PKER_SWETH( 40, 14) = 0.136696E+01
-PKER_SWETH( 40, 15) = 0.128203E+01
-PKER_SWETH( 40, 16) = 0.120229E+01
-PKER_SWETH( 40, 17) = 0.112741E+01
-PKER_SWETH( 40, 18) = 0.105710E+01
-PKER_SWETH( 40, 19) = 0.991076E+00
-PKER_SWETH( 40, 20) = 0.929079E+00
-PKER_SWETH( 40, 21) = 0.870863E+00
-PKER_SWETH( 40, 22) = 0.816197E+00
-PKER_SWETH( 40, 23) = 0.764863E+00
-PKER_SWETH( 40, 24) = 0.716657E+00
-PKER_SWETH( 40, 25) = 0.671389E+00
-PKER_SWETH( 40, 26) = 0.628877E+00
-PKER_SWETH( 40, 27) = 0.588953E+00
-PKER_SWETH( 40, 28) = 0.551458E+00
-PKER_SWETH( 40, 29) = 0.516242E+00
-PKER_SWETH( 40, 30) = 0.483165E+00
-PKER_SWETH( 40, 31) = 0.452093E+00
-PKER_SWETH( 40, 32) = 0.422902E+00
-PKER_SWETH( 40, 33) = 0.395476E+00
-PKER_SWETH( 40, 34) = 0.369701E+00
-PKER_SWETH( 40, 35) = 0.345475E+00
-PKER_SWETH( 40, 36) = 0.322698E+00
-PKER_SWETH( 40, 37) = 0.301275E+00
-PKER_SWETH( 40, 38) = 0.281119E+00
-PKER_SWETH( 40, 39) = 0.262143E+00
-PKER_SWETH( 40, 40) = 0.244268E+00
-PKER_SWETH( 40, 41) = 0.227416E+00
-PKER_SWETH( 40, 42) = 0.211515E+00
-PKER_SWETH( 40, 43) = 0.196493E+00
-PKER_SWETH( 40, 44) = 0.182286E+00
-PKER_SWETH( 40, 45) = 0.168832E+00
-PKER_SWETH( 40, 46) = 0.156075E+00
-PKER_SWETH( 40, 47) = 0.143968E+00
-PKER_SWETH( 40, 48) = 0.132471E+00
-PKER_SWETH( 40, 49) = 0.121560E+00
-PKER_SWETH( 40, 50) = 0.111219E+00
-PKER_SWETH( 40, 51) = 0.101447E+00
-PKER_SWETH( 40, 52) = 0.922530E-01
-PKER_SWETH( 40, 53) = 0.836474E-01
-PKER_SWETH( 40, 54) = 0.756380E-01
-PKER_SWETH( 40, 55) = 0.682230E-01
-PKER_SWETH( 40, 56) = 0.613879E-01
-PKER_SWETH( 40, 57) = 0.551058E-01
-PKER_SWETH( 40, 58) = 0.493398E-01
-PKER_SWETH( 40, 59) = 0.440480E-01
-PKER_SWETH( 40, 60) = 0.391874E-01
-PKER_SWETH( 40, 61) = 0.347167E-01
-PKER_SWETH( 40, 62) = 0.305992E-01
-PKER_SWETH( 40, 63) = 0.268049E-01
-PKER_SWETH( 40, 64) = 0.233110E-01
-PKER_SWETH( 40, 65) = 0.201033E-01
-PKER_SWETH( 40, 66) = 0.171779E-01
-PKER_SWETH( 40, 67) = 0.145412E-01
-PKER_SWETH( 40, 68) = 0.122100E-01
-PKER_SWETH( 40, 69) = 0.102095E-01
-PKER_SWETH( 40, 70) = 0.856828E-02
-PKER_SWETH( 40, 71) = 0.730855E-02
-PKER_SWETH( 40, 72) = 0.644644E-02
-PKER_SWETH( 40, 73) = 0.598027E-02
-PKER_SWETH( 40, 74) = 0.588539E-02
-PKER_SWETH( 40, 75) = 0.612142E-02
-PKER_SWETH( 40, 76) = 0.663468E-02
-PKER_SWETH( 40, 77) = 0.735968E-02
-PKER_SWETH( 40, 78) = 0.823287E-02
-PKER_SWETH( 40, 79) = 0.919883E-02
-PKER_SWETH( 40, 80) = 0.102081E-01
+PKER_SWETH( 1, 1) = 0.849908E+01
+PKER_SWETH( 1, 2) = 0.855087E+01
+PKER_SWETH( 1, 3) = 0.860175E+01
+PKER_SWETH( 1, 4) = 0.865164E+01
+PKER_SWETH( 1, 5) = 0.870050E+01
+PKER_SWETH( 1, 6) = 0.874827E+01
+PKER_SWETH( 1, 7) = 0.879492E+01
+PKER_SWETH( 1, 8) = 0.884041E+01
+PKER_SWETH( 1, 9) = 0.888471E+01
+PKER_SWETH( 1, 10) = 0.892780E+01
+PKER_SWETH( 1, 11) = 0.896967E+01
+PKER_SWETH( 1, 12) = 0.901031E+01
+PKER_SWETH( 1, 13) = 0.904972E+01
+PKER_SWETH( 1, 14) = 0.908790E+01
+PKER_SWETH( 1, 15) = 0.912486E+01
+PKER_SWETH( 1, 16) = 0.916061E+01
+PKER_SWETH( 1, 17) = 0.919517E+01
+PKER_SWETH( 1, 18) = 0.922856E+01
+PKER_SWETH( 1, 19) = 0.926082E+01
+PKER_SWETH( 1, 20) = 0.929195E+01
+PKER_SWETH( 1, 21) = 0.932200E+01
+PKER_SWETH( 1, 22) = 0.935099E+01
+PKER_SWETH( 1, 23) = 0.937896E+01
+PKER_SWETH( 1, 24) = 0.940594E+01
+PKER_SWETH( 1, 25) = 0.943197E+01
+PKER_SWETH( 1, 26) = 0.945707E+01
+PKER_SWETH( 1, 27) = 0.948128E+01
+PKER_SWETH( 1, 28) = 0.950464E+01
+PKER_SWETH( 1, 29) = 0.952718E+01
+PKER_SWETH( 1, 30) = 0.954892E+01
+PKER_SWETH( 1, 31) = 0.956992E+01
+PKER_SWETH( 1, 32) = 0.959019E+01
+PKER_SWETH( 1, 33) = 0.960976E+01
+PKER_SWETH( 1, 34) = 0.962867E+01
+PKER_SWETH( 1, 35) = 0.964694E+01
+PKER_SWETH( 1, 36) = 0.966461E+01
+PKER_SWETH( 1, 37) = 0.968169E+01
+PKER_SWETH( 1, 38) = 0.969821E+01
+PKER_SWETH( 1, 39) = 0.971420E+01
+PKER_SWETH( 1, 40) = 0.972968E+01
+PKER_SWETH( 1, 41) = 0.974468E+01
+PKER_SWETH( 1, 42) = 0.975921E+01
+PKER_SWETH( 1, 43) = 0.977329E+01
+PKER_SWETH( 1, 44) = 0.978694E+01
+PKER_SWETH( 1, 45) = 0.980018E+01
+PKER_SWETH( 1, 46) = 0.981304E+01
+PKER_SWETH( 1, 47) = 0.982551E+01
+PKER_SWETH( 1, 48) = 0.983763E+01
+PKER_SWETH( 1, 49) = 0.984940E+01
+PKER_SWETH( 1, 50) = 0.986084E+01
+PKER_SWETH( 1, 51) = 0.987197E+01
+PKER_SWETH( 1, 52) = 0.988279E+01
+PKER_SWETH( 1, 53) = 0.989332E+01
+PKER_SWETH( 1, 54) = 0.990356E+01
+PKER_SWETH( 1, 55) = 0.991354E+01
+PKER_SWETH( 1, 56) = 0.992326E+01
+PKER_SWETH( 1, 57) = 0.993273E+01
+PKER_SWETH( 1, 58) = 0.994195E+01
+PKER_SWETH( 1, 59) = 0.995095E+01
+PKER_SWETH( 1, 60) = 0.995972E+01
+PKER_SWETH( 1, 61) = 0.996828E+01
+PKER_SWETH( 1, 62) = 0.997663E+01
+PKER_SWETH( 1, 63) = 0.998478E+01
+PKER_SWETH( 1, 64) = 0.999273E+01
+PKER_SWETH( 1, 65) = 0.100005E+02
+PKER_SWETH( 1, 66) = 0.100081E+02
+PKER_SWETH( 1, 67) = 0.100155E+02
+PKER_SWETH( 1, 68) = 0.100227E+02
+PKER_SWETH( 1, 69) = 0.100298E+02
+PKER_SWETH( 1, 70) = 0.100367E+02
+PKER_SWETH( 1, 71) = 0.100435E+02
+PKER_SWETH( 1, 72) = 0.100501E+02
+PKER_SWETH( 1, 73) = 0.100566E+02
+PKER_SWETH( 1, 74) = 0.100629E+02
+PKER_SWETH( 1, 75) = 0.100691E+02
+PKER_SWETH( 1, 76) = 0.100752E+02
+PKER_SWETH( 1, 77) = 0.100811E+02
+PKER_SWETH( 1, 78) = 0.100870E+02
+PKER_SWETH( 1, 79) = 0.100926E+02
+PKER_SWETH( 1, 80) = 0.100982E+02
+PKER_SWETH( 2, 1) = 0.703508E+01
+PKER_SWETH( 2, 2) = 0.708421E+01
+PKER_SWETH( 2, 3) = 0.713271E+01
+PKER_SWETH( 2, 4) = 0.718052E+01
+PKER_SWETH( 2, 5) = 0.722757E+01
+PKER_SWETH( 2, 6) = 0.727382E+01
+PKER_SWETH( 2, 7) = 0.731920E+01
+PKER_SWETH( 2, 8) = 0.736367E+01
+PKER_SWETH( 2, 9) = 0.740719E+01
+PKER_SWETH( 2, 10) = 0.744971E+01
+PKER_SWETH( 2, 11) = 0.749121E+01
+PKER_SWETH( 2, 12) = 0.753165E+01
+PKER_SWETH( 2, 13) = 0.757102E+01
+PKER_SWETH( 2, 14) = 0.760930E+01
+PKER_SWETH( 2, 15) = 0.764649E+01
+PKER_SWETH( 2, 16) = 0.768258E+01
+PKER_SWETH( 2, 17) = 0.771756E+01
+PKER_SWETH( 2, 18) = 0.775146E+01
+PKER_SWETH( 2, 19) = 0.778427E+01
+PKER_SWETH( 2, 20) = 0.781602E+01
+PKER_SWETH( 2, 21) = 0.784672E+01
+PKER_SWETH( 2, 22) = 0.787639E+01
+PKER_SWETH( 2, 23) = 0.790505E+01
+PKER_SWETH( 2, 24) = 0.793273E+01
+PKER_SWETH( 2, 25) = 0.795946E+01
+PKER_SWETH( 2, 26) = 0.798526E+01
+PKER_SWETH( 2, 27) = 0.801017E+01
+PKER_SWETH( 2, 28) = 0.803421E+01
+PKER_SWETH( 2, 29) = 0.805741E+01
+PKER_SWETH( 2, 30) = 0.807981E+01
+PKER_SWETH( 2, 31) = 0.810143E+01
+PKER_SWETH( 2, 32) = 0.812231E+01
+PKER_SWETH( 2, 33) = 0.814246E+01
+PKER_SWETH( 2, 34) = 0.816193E+01
+PKER_SWETH( 2, 35) = 0.818074E+01
+PKER_SWETH( 2, 36) = 0.819891E+01
+PKER_SWETH( 2, 37) = 0.821648E+01
+PKER_SWETH( 2, 38) = 0.823347E+01
+PKER_SWETH( 2, 39) = 0.824990E+01
+PKER_SWETH( 2, 40) = 0.826579E+01
+PKER_SWETH( 2, 41) = 0.828118E+01
+PKER_SWETH( 2, 42) = 0.829608E+01
+PKER_SWETH( 2, 43) = 0.831051E+01
+PKER_SWETH( 2, 44) = 0.832449E+01
+PKER_SWETH( 2, 45) = 0.833805E+01
+PKER_SWETH( 2, 46) = 0.835119E+01
+PKER_SWETH( 2, 47) = 0.836395E+01
+PKER_SWETH( 2, 48) = 0.837632E+01
+PKER_SWETH( 2, 49) = 0.838834E+01
+PKER_SWETH( 2, 50) = 0.840001E+01
+PKER_SWETH( 2, 51) = 0.841135E+01
+PKER_SWETH( 2, 52) = 0.842237E+01
+PKER_SWETH( 2, 53) = 0.843309E+01
+PKER_SWETH( 2, 54) = 0.844351E+01
+PKER_SWETH( 2, 55) = 0.845365E+01
+PKER_SWETH( 2, 56) = 0.846353E+01
+PKER_SWETH( 2, 57) = 0.847314E+01
+PKER_SWETH( 2, 58) = 0.848250E+01
+PKER_SWETH( 2, 59) = 0.849162E+01
+PKER_SWETH( 2, 60) = 0.850051E+01
+PKER_SWETH( 2, 61) = 0.850918E+01
+PKER_SWETH( 2, 62) = 0.851764E+01
+PKER_SWETH( 2, 63) = 0.852588E+01
+PKER_SWETH( 2, 64) = 0.853393E+01
+PKER_SWETH( 2, 65) = 0.854178E+01
+PKER_SWETH( 2, 66) = 0.854945E+01
+PKER_SWETH( 2, 67) = 0.855694E+01
+PKER_SWETH( 2, 68) = 0.856425E+01
+PKER_SWETH( 2, 69) = 0.857139E+01
+PKER_SWETH( 2, 70) = 0.857837E+01
+PKER_SWETH( 2, 71) = 0.858520E+01
+PKER_SWETH( 2, 72) = 0.859187E+01
+PKER_SWETH( 2, 73) = 0.859839E+01
+PKER_SWETH( 2, 74) = 0.860477E+01
+PKER_SWETH( 2, 75) = 0.861101E+01
+PKER_SWETH( 2, 76) = 0.861712E+01
+PKER_SWETH( 2, 77) = 0.862309E+01
+PKER_SWETH( 2, 78) = 0.862894E+01
+PKER_SWETH( 2, 79) = 0.863466E+01
+PKER_SWETH( 2, 80) = 0.864026E+01
+PKER_SWETH( 3, 1) = 0.578540E+01
+PKER_SWETH( 3, 2) = 0.583138E+01
+PKER_SWETH( 3, 3) = 0.587698E+01
+PKER_SWETH( 3, 4) = 0.592213E+01
+PKER_SWETH( 3, 5) = 0.596679E+01
+PKER_SWETH( 3, 6) = 0.601088E+01
+PKER_SWETH( 3, 7) = 0.605437E+01
+PKER_SWETH( 3, 8) = 0.609719E+01
+PKER_SWETH( 3, 9) = 0.613930E+01
+PKER_SWETH( 3, 10) = 0.618065E+01
+PKER_SWETH( 3, 11) = 0.622120E+01
+PKER_SWETH( 3, 12) = 0.626089E+01
+PKER_SWETH( 3, 13) = 0.629971E+01
+PKER_SWETH( 3, 14) = 0.633762E+01
+PKER_SWETH( 3, 15) = 0.637460E+01
+PKER_SWETH( 3, 16) = 0.641062E+01
+PKER_SWETH( 3, 17) = 0.644567E+01
+PKER_SWETH( 3, 18) = 0.647974E+01
+PKER_SWETH( 3, 19) = 0.651283E+01
+PKER_SWETH( 3, 20) = 0.654494E+01
+PKER_SWETH( 3, 21) = 0.657606E+01
+PKER_SWETH( 3, 22) = 0.660622E+01
+PKER_SWETH( 3, 23) = 0.663542E+01
+PKER_SWETH( 3, 24) = 0.666367E+01
+PKER_SWETH( 3, 25) = 0.669100E+01
+PKER_SWETH( 3, 26) = 0.671741E+01
+PKER_SWETH( 3, 27) = 0.674295E+01
+PKER_SWETH( 3, 28) = 0.676762E+01
+PKER_SWETH( 3, 29) = 0.679145E+01
+PKER_SWETH( 3, 30) = 0.681447E+01
+PKER_SWETH( 3, 31) = 0.683670E+01
+PKER_SWETH( 3, 32) = 0.685817E+01
+PKER_SWETH( 3, 33) = 0.687891E+01
+PKER_SWETH( 3, 34) = 0.689895E+01
+PKER_SWETH( 3, 35) = 0.691830E+01
+PKER_SWETH( 3, 36) = 0.693700E+01
+PKER_SWETH( 3, 37) = 0.695507E+01
+PKER_SWETH( 3, 38) = 0.697254E+01
+PKER_SWETH( 3, 39) = 0.698943E+01
+PKER_SWETH( 3, 40) = 0.700577E+01
+PKER_SWETH( 3, 41) = 0.702158E+01
+PKER_SWETH( 3, 42) = 0.703687E+01
+PKER_SWETH( 3, 43) = 0.705168E+01
+PKER_SWETH( 3, 44) = 0.706602E+01
+PKER_SWETH( 3, 45) = 0.707991E+01
+PKER_SWETH( 3, 46) = 0.709337E+01
+PKER_SWETH( 3, 47) = 0.710642E+01
+PKER_SWETH( 3, 48) = 0.711908E+01
+PKER_SWETH( 3, 49) = 0.713136E+01
+PKER_SWETH( 3, 50) = 0.714329E+01
+PKER_SWETH( 3, 51) = 0.715486E+01
+PKER_SWETH( 3, 52) = 0.716610E+01
+PKER_SWETH( 3, 53) = 0.717702E+01
+PKER_SWETH( 3, 54) = 0.718764E+01
+PKER_SWETH( 3, 55) = 0.719797E+01
+PKER_SWETH( 3, 56) = 0.720801E+01
+PKER_SWETH( 3, 57) = 0.721778E+01
+PKER_SWETH( 3, 58) = 0.722730E+01
+PKER_SWETH( 3, 59) = 0.723656E+01
+PKER_SWETH( 3, 60) = 0.724558E+01
+PKER_SWETH( 3, 61) = 0.725437E+01
+PKER_SWETH( 3, 62) = 0.726294E+01
+PKER_SWETH( 3, 63) = 0.727129E+01
+PKER_SWETH( 3, 64) = 0.727944E+01
+PKER_SWETH( 3, 65) = 0.728739E+01
+PKER_SWETH( 3, 66) = 0.729514E+01
+PKER_SWETH( 3, 67) = 0.730271E+01
+PKER_SWETH( 3, 68) = 0.731010E+01
+PKER_SWETH( 3, 69) = 0.731732E+01
+PKER_SWETH( 3, 70) = 0.732437E+01
+PKER_SWETH( 3, 71) = 0.733125E+01
+PKER_SWETH( 3, 72) = 0.733798E+01
+PKER_SWETH( 3, 73) = 0.734456E+01
+PKER_SWETH( 3, 74) = 0.735099E+01
+PKER_SWETH( 3, 75) = 0.735728E+01
+PKER_SWETH( 3, 76) = 0.736343E+01
+PKER_SWETH( 3, 77) = 0.736944E+01
+PKER_SWETH( 3, 78) = 0.737533E+01
+PKER_SWETH( 3, 79) = 0.738109E+01
+PKER_SWETH( 3, 80) = 0.738672E+01
+PKER_SWETH( 4, 1) = 0.472098E+01
+PKER_SWETH( 4, 2) = 0.476362E+01
+PKER_SWETH( 4, 3) = 0.480605E+01
+PKER_SWETH( 4, 4) = 0.484821E+01
+PKER_SWETH( 4, 5) = 0.489007E+01
+PKER_SWETH( 4, 6) = 0.493157E+01
+PKER_SWETH( 4, 7) = 0.497268E+01
+PKER_SWETH( 4, 8) = 0.501334E+01
+PKER_SWETH( 4, 9) = 0.505351E+01
+PKER_SWETH( 4, 10) = 0.509314E+01
+PKER_SWETH( 4, 11) = 0.513218E+01
+PKER_SWETH( 4, 12) = 0.517059E+01
+PKER_SWETH( 4, 13) = 0.520833E+01
+PKER_SWETH( 4, 14) = 0.524535E+01
+PKER_SWETH( 4, 15) = 0.528162E+01
+PKER_SWETH( 4, 16) = 0.531711E+01
+PKER_SWETH( 4, 17) = 0.535180E+01
+PKER_SWETH( 4, 18) = 0.538565E+01
+PKER_SWETH( 4, 19) = 0.541865E+01
+PKER_SWETH( 4, 20) = 0.545079E+01
+PKER_SWETH( 4, 21) = 0.548205E+01
+PKER_SWETH( 4, 22) = 0.551243E+01
+PKER_SWETH( 4, 23) = 0.554193E+01
+PKER_SWETH( 4, 24) = 0.557056E+01
+PKER_SWETH( 4, 25) = 0.559831E+01
+PKER_SWETH( 4, 26) = 0.562519E+01
+PKER_SWETH( 4, 27) = 0.565123E+01
+PKER_SWETH( 4, 28) = 0.567642E+01
+PKER_SWETH( 4, 29) = 0.570080E+01
+PKER_SWETH( 4, 30) = 0.572438E+01
+PKER_SWETH( 4, 31) = 0.574718E+01
+PKER_SWETH( 4, 32) = 0.576921E+01
+PKER_SWETH( 4, 33) = 0.579051E+01
+PKER_SWETH( 4, 34) = 0.581109E+01
+PKER_SWETH( 4, 35) = 0.583099E+01
+PKER_SWETH( 4, 36) = 0.585021E+01
+PKER_SWETH( 4, 37) = 0.586880E+01
+PKER_SWETH( 4, 38) = 0.588676E+01
+PKER_SWETH( 4, 39) = 0.590413E+01
+PKER_SWETH( 4, 40) = 0.592092E+01
+PKER_SWETH( 4, 41) = 0.593716E+01
+PKER_SWETH( 4, 42) = 0.595287E+01
+PKER_SWETH( 4, 43) = 0.596808E+01
+PKER_SWETH( 4, 44) = 0.598280E+01
+PKER_SWETH( 4, 45) = 0.599705E+01
+PKER_SWETH( 4, 46) = 0.601085E+01
+PKER_SWETH( 4, 47) = 0.602423E+01
+PKER_SWETH( 4, 48) = 0.603719E+01
+PKER_SWETH( 4, 49) = 0.604976E+01
+PKER_SWETH( 4, 50) = 0.606196E+01
+PKER_SWETH( 4, 51) = 0.607379E+01
+PKER_SWETH( 4, 52) = 0.608527E+01
+PKER_SWETH( 4, 53) = 0.609642E+01
+PKER_SWETH( 4, 54) = 0.610725E+01
+PKER_SWETH( 4, 55) = 0.611778E+01
+PKER_SWETH( 4, 56) = 0.612801E+01
+PKER_SWETH( 4, 57) = 0.613796E+01
+PKER_SWETH( 4, 58) = 0.614763E+01
+PKER_SWETH( 4, 59) = 0.615705E+01
+PKER_SWETH( 4, 60) = 0.616622E+01
+PKER_SWETH( 4, 61) = 0.617515E+01
+PKER_SWETH( 4, 62) = 0.618384E+01
+PKER_SWETH( 4, 63) = 0.619231E+01
+PKER_SWETH( 4, 64) = 0.620057E+01
+PKER_SWETH( 4, 65) = 0.620862E+01
+PKER_SWETH( 4, 66) = 0.621648E+01
+PKER_SWETH( 4, 67) = 0.622414E+01
+PKER_SWETH( 4, 68) = 0.623161E+01
+PKER_SWETH( 4, 69) = 0.623891E+01
+PKER_SWETH( 4, 70) = 0.624603E+01
+PKER_SWETH( 4, 71) = 0.625298E+01
+PKER_SWETH( 4, 72) = 0.625978E+01
+PKER_SWETH( 4, 73) = 0.626642E+01
+PKER_SWETH( 4, 74) = 0.627290E+01
+PKER_SWETH( 4, 75) = 0.627925E+01
+PKER_SWETH( 4, 76) = 0.628544E+01
+PKER_SWETH( 4, 77) = 0.629151E+01
+PKER_SWETH( 4, 78) = 0.629743E+01
+PKER_SWETH( 4, 79) = 0.630323E+01
+PKER_SWETH( 4, 80) = 0.630891E+01
+PKER_SWETH( 5, 1) = 0.381594E+01
+PKER_SWETH( 5, 2) = 0.385533E+01
+PKER_SWETH( 5, 3) = 0.389458E+01
+PKER_SWETH( 5, 4) = 0.393368E+01
+PKER_SWETH( 5, 5) = 0.397259E+01
+PKER_SWETH( 5, 6) = 0.401130E+01
+PKER_SWETH( 5, 7) = 0.404976E+01
+PKER_SWETH( 5, 8) = 0.408793E+01
+PKER_SWETH( 5, 9) = 0.412579E+01
+PKER_SWETH( 5, 10) = 0.416329E+01
+PKER_SWETH( 5, 11) = 0.420039E+01
+PKER_SWETH( 5, 12) = 0.423705E+01
+PKER_SWETH( 5, 13) = 0.427323E+01
+PKER_SWETH( 5, 14) = 0.430889E+01
+PKER_SWETH( 5, 15) = 0.434398E+01
+PKER_SWETH( 5, 16) = 0.437848E+01
+PKER_SWETH( 5, 17) = 0.441234E+01
+PKER_SWETH( 5, 18) = 0.444553E+01
+PKER_SWETH( 5, 19) = 0.447803E+01
+PKER_SWETH( 5, 20) = 0.450981E+01
+PKER_SWETH( 5, 21) = 0.454085E+01
+PKER_SWETH( 5, 22) = 0.457113E+01
+PKER_SWETH( 5, 23) = 0.460064E+01
+PKER_SWETH( 5, 24) = 0.462936E+01
+PKER_SWETH( 5, 25) = 0.465729E+01
+PKER_SWETH( 5, 26) = 0.468444E+01
+PKER_SWETH( 5, 27) = 0.471079E+01
+PKER_SWETH( 5, 28) = 0.473636E+01
+PKER_SWETH( 5, 29) = 0.476115E+01
+PKER_SWETH( 5, 30) = 0.478517E+01
+PKER_SWETH( 5, 31) = 0.480843E+01
+PKER_SWETH( 5, 32) = 0.483096E+01
+PKER_SWETH( 5, 33) = 0.485275E+01
+PKER_SWETH( 5, 34) = 0.487384E+01
+PKER_SWETH( 5, 35) = 0.489424E+01
+PKER_SWETH( 5, 36) = 0.491397E+01
+PKER_SWETH( 5, 37) = 0.493305E+01
+PKER_SWETH( 5, 38) = 0.495150E+01
+PKER_SWETH( 5, 39) = 0.496934E+01
+PKER_SWETH( 5, 40) = 0.498659E+01
+PKER_SWETH( 5, 41) = 0.500328E+01
+PKER_SWETH( 5, 42) = 0.501942E+01
+PKER_SWETH( 5, 43) = 0.503504E+01
+PKER_SWETH( 5, 44) = 0.505016E+01
+PKER_SWETH( 5, 45) = 0.506479E+01
+PKER_SWETH( 5, 46) = 0.507896E+01
+PKER_SWETH( 5, 47) = 0.509267E+01
+PKER_SWETH( 5, 48) = 0.510597E+01
+PKER_SWETH( 5, 49) = 0.511885E+01
+PKER_SWETH( 5, 50) = 0.513133E+01
+PKER_SWETH( 5, 51) = 0.514344E+01
+PKER_SWETH( 5, 52) = 0.515518E+01
+PKER_SWETH( 5, 53) = 0.516658E+01
+PKER_SWETH( 5, 54) = 0.517765E+01
+PKER_SWETH( 5, 55) = 0.518839E+01
+PKER_SWETH( 5, 56) = 0.519883E+01
+PKER_SWETH( 5, 57) = 0.520897E+01
+PKER_SWETH( 5, 58) = 0.521883E+01
+PKER_SWETH( 5, 59) = 0.522842E+01
+PKER_SWETH( 5, 60) = 0.523775E+01
+PKER_SWETH( 5, 61) = 0.524682E+01
+PKER_SWETH( 5, 62) = 0.525566E+01
+PKER_SWETH( 5, 63) = 0.526426E+01
+PKER_SWETH( 5, 64) = 0.527265E+01
+PKER_SWETH( 5, 65) = 0.528081E+01
+PKER_SWETH( 5, 66) = 0.528877E+01
+PKER_SWETH( 5, 67) = 0.529653E+01
+PKER_SWETH( 5, 68) = 0.530410E+01
+PKER_SWETH( 5, 69) = 0.531149E+01
+PKER_SWETH( 5, 70) = 0.531869E+01
+PKER_SWETH( 5, 71) = 0.532573E+01
+PKER_SWETH( 5, 72) = 0.533259E+01
+PKER_SWETH( 5, 73) = 0.533930E+01
+PKER_SWETH( 5, 74) = 0.534585E+01
+PKER_SWETH( 5, 75) = 0.535225E+01
+PKER_SWETH( 5, 76) = 0.535850E+01
+PKER_SWETH( 5, 77) = 0.536462E+01
+PKER_SWETH( 5, 78) = 0.537059E+01
+PKER_SWETH( 5, 79) = 0.537644E+01
+PKER_SWETH( 5, 80) = 0.538215E+01
+PKER_SWETH( 6, 1) = 0.304730E+01
+PKER_SWETH( 6, 2) = 0.308371E+01
+PKER_SWETH( 6, 3) = 0.312001E+01
+PKER_SWETH( 6, 4) = 0.315620E+01
+PKER_SWETH( 6, 5) = 0.319227E+01
+PKER_SWETH( 6, 6) = 0.322820E+01
+PKER_SWETH( 6, 7) = 0.326396E+01
+PKER_SWETH( 6, 8) = 0.329955E+01
+PKER_SWETH( 6, 9) = 0.333494E+01
+PKER_SWETH( 6, 10) = 0.337010E+01
+PKER_SWETH( 6, 11) = 0.340499E+01
+PKER_SWETH( 6, 12) = 0.343959E+01
+PKER_SWETH( 6, 13) = 0.347387E+01
+PKER_SWETH( 6, 14) = 0.350779E+01
+PKER_SWETH( 6, 15) = 0.354130E+01
+PKER_SWETH( 6, 16) = 0.357439E+01
+PKER_SWETH( 6, 17) = 0.360701E+01
+PKER_SWETH( 6, 18) = 0.363913E+01
+PKER_SWETH( 6, 19) = 0.367072E+01
+PKER_SWETH( 6, 20) = 0.370174E+01
+PKER_SWETH( 6, 21) = 0.373217E+01
+PKER_SWETH( 6, 22) = 0.376197E+01
+PKER_SWETH( 6, 23) = 0.379114E+01
+PKER_SWETH( 6, 24) = 0.381964E+01
+PKER_SWETH( 6, 25) = 0.384746E+01
+PKER_SWETH( 6, 26) = 0.387459E+01
+PKER_SWETH( 6, 27) = 0.390101E+01
+PKER_SWETH( 6, 28) = 0.392673E+01
+PKER_SWETH( 6, 29) = 0.395174E+01
+PKER_SWETH( 6, 30) = 0.397603E+01
+PKER_SWETH( 6, 31) = 0.399962E+01
+PKER_SWETH( 6, 32) = 0.402250E+01
+PKER_SWETH( 6, 33) = 0.404469E+01
+PKER_SWETH( 6, 34) = 0.406620E+01
+PKER_SWETH( 6, 35) = 0.408703E+01
+PKER_SWETH( 6, 36) = 0.410721E+01
+PKER_SWETH( 6, 37) = 0.412674E+01
+PKER_SWETH( 6, 38) = 0.414564E+01
+PKER_SWETH( 6, 39) = 0.416393E+01
+PKER_SWETH( 6, 40) = 0.418164E+01
+PKER_SWETH( 6, 41) = 0.419877E+01
+PKER_SWETH( 6, 42) = 0.421534E+01
+PKER_SWETH( 6, 43) = 0.423138E+01
+PKER_SWETH( 6, 44) = 0.424690E+01
+PKER_SWETH( 6, 45) = 0.426192E+01
+PKER_SWETH( 6, 46) = 0.427646E+01
+PKER_SWETH( 6, 47) = 0.429054E+01
+PKER_SWETH( 6, 48) = 0.430418E+01
+PKER_SWETH( 6, 49) = 0.431738E+01
+PKER_SWETH( 6, 50) = 0.433018E+01
+PKER_SWETH( 6, 51) = 0.434259E+01
+PKER_SWETH( 6, 52) = 0.435462E+01
+PKER_SWETH( 6, 53) = 0.436628E+01
+PKER_SWETH( 6, 54) = 0.437760E+01
+PKER_SWETH( 6, 55) = 0.438858E+01
+PKER_SWETH( 6, 56) = 0.439924E+01
+PKER_SWETH( 6, 57) = 0.440960E+01
+PKER_SWETH( 6, 58) = 0.441966E+01
+PKER_SWETH( 6, 59) = 0.442943E+01
+PKER_SWETH( 6, 60) = 0.443894E+01
+PKER_SWETH( 6, 61) = 0.444818E+01
+PKER_SWETH( 6, 62) = 0.445717E+01
+PKER_SWETH( 6, 63) = 0.446592E+01
+PKER_SWETH( 6, 64) = 0.447444E+01
+PKER_SWETH( 6, 65) = 0.448274E+01
+PKER_SWETH( 6, 66) = 0.449082E+01
+PKER_SWETH( 6, 67) = 0.449869E+01
+PKER_SWETH( 6, 68) = 0.450637E+01
+PKER_SWETH( 6, 69) = 0.451385E+01
+PKER_SWETH( 6, 70) = 0.452115E+01
+PKER_SWETH( 6, 71) = 0.452826E+01
+PKER_SWETH( 6, 72) = 0.453521E+01
+PKER_SWETH( 6, 73) = 0.454199E+01
+PKER_SWETH( 6, 74) = 0.454861E+01
+PKER_SWETH( 6, 75) = 0.455508E+01
+PKER_SWETH( 6, 76) = 0.456139E+01
+PKER_SWETH( 6, 77) = 0.456756E+01
+PKER_SWETH( 6, 78) = 0.457359E+01
+PKER_SWETH( 6, 79) = 0.457949E+01
+PKER_SWETH( 6, 80) = 0.458525E+01
+PKER_SWETH( 7, 1) = 0.239483E+01
+PKER_SWETH( 7, 2) = 0.242866E+01
+PKER_SWETH( 7, 3) = 0.246237E+01
+PKER_SWETH( 7, 4) = 0.249597E+01
+PKER_SWETH( 7, 5) = 0.252944E+01
+PKER_SWETH( 7, 6) = 0.256280E+01
+PKER_SWETH( 7, 7) = 0.259604E+01
+PKER_SWETH( 7, 8) = 0.262913E+01
+PKER_SWETH( 7, 9) = 0.266209E+01
+PKER_SWETH( 7, 10) = 0.269488E+01
+PKER_SWETH( 7, 11) = 0.272750E+01
+PKER_SWETH( 7, 12) = 0.275992E+01
+PKER_SWETH( 7, 13) = 0.279212E+01
+PKER_SWETH( 7, 14) = 0.282408E+01
+PKER_SWETH( 7, 15) = 0.285577E+01
+PKER_SWETH( 7, 16) = 0.288716E+01
+PKER_SWETH( 7, 17) = 0.291823E+01
+PKER_SWETH( 7, 18) = 0.294893E+01
+PKER_SWETH( 7, 19) = 0.297925E+01
+PKER_SWETH( 7, 20) = 0.300914E+01
+PKER_SWETH( 7, 21) = 0.303859E+01
+PKER_SWETH( 7, 22) = 0.306756E+01
+PKER_SWETH( 7, 23) = 0.309603E+01
+PKER_SWETH( 7, 24) = 0.312396E+01
+PKER_SWETH( 7, 25) = 0.315134E+01
+PKER_SWETH( 7, 26) = 0.317814E+01
+PKER_SWETH( 7, 27) = 0.320435E+01
+PKER_SWETH( 7, 28) = 0.322995E+01
+PKER_SWETH( 7, 29) = 0.325493E+01
+PKER_SWETH( 7, 30) = 0.327927E+01
+PKER_SWETH( 7, 31) = 0.330298E+01
+PKER_SWETH( 7, 32) = 0.332605E+01
+PKER_SWETH( 7, 33) = 0.334848E+01
+PKER_SWETH( 7, 34) = 0.337027E+01
+PKER_SWETH( 7, 35) = 0.339142E+01
+PKER_SWETH( 7, 36) = 0.341194E+01
+PKER_SWETH( 7, 37) = 0.343184E+01
+PKER_SWETH( 7, 38) = 0.345113E+01
+PKER_SWETH( 7, 39) = 0.346983E+01
+PKER_SWETH( 7, 40) = 0.348794E+01
+PKER_SWETH( 7, 41) = 0.350547E+01
+PKER_SWETH( 7, 42) = 0.352246E+01
+PKER_SWETH( 7, 43) = 0.353890E+01
+PKER_SWETH( 7, 44) = 0.355482E+01
+PKER_SWETH( 7, 45) = 0.357023E+01
+PKER_SWETH( 7, 46) = 0.358515E+01
+PKER_SWETH( 7, 47) = 0.359960E+01
+PKER_SWETH( 7, 48) = 0.361359E+01
+PKER_SWETH( 7, 49) = 0.362714E+01
+PKER_SWETH( 7, 50) = 0.364027E+01
+PKER_SWETH( 7, 51) = 0.365299E+01
+PKER_SWETH( 7, 52) = 0.366531E+01
+PKER_SWETH( 7, 53) = 0.367726E+01
+PKER_SWETH( 7, 54) = 0.368885E+01
+PKER_SWETH( 7, 55) = 0.370009E+01
+PKER_SWETH( 7, 56) = 0.371100E+01
+PKER_SWETH( 7, 57) = 0.372158E+01
+PKER_SWETH( 7, 58) = 0.373186E+01
+PKER_SWETH( 7, 59) = 0.374184E+01
+PKER_SWETH( 7, 60) = 0.375154E+01
+PKER_SWETH( 7, 61) = 0.376096E+01
+PKER_SWETH( 7, 62) = 0.377013E+01
+PKER_SWETH( 7, 63) = 0.377904E+01
+PKER_SWETH( 7, 64) = 0.378771E+01
+PKER_SWETH( 7, 65) = 0.379615E+01
+PKER_SWETH( 7, 66) = 0.380436E+01
+PKER_SWETH( 7, 67) = 0.381236E+01
+PKER_SWETH( 7, 68) = 0.382015E+01
+PKER_SWETH( 7, 69) = 0.382774E+01
+PKER_SWETH( 7, 70) = 0.383514E+01
+PKER_SWETH( 7, 71) = 0.384236E+01
+PKER_SWETH( 7, 72) = 0.384939E+01
+PKER_SWETH( 7, 73) = 0.385626E+01
+PKER_SWETH( 7, 74) = 0.386296E+01
+PKER_SWETH( 7, 75) = 0.386950E+01
+PKER_SWETH( 7, 76) = 0.387588E+01
+PKER_SWETH( 7, 77) = 0.388211E+01
+PKER_SWETH( 7, 78) = 0.388820E+01
+PKER_SWETH( 7, 79) = 0.389415E+01
+PKER_SWETH( 7, 80) = 0.389997E+01
+PKER_SWETH( 8, 1) = 0.184126E+01
+PKER_SWETH( 8, 2) = 0.187288E+01
+PKER_SWETH( 8, 3) = 0.190435E+01
+PKER_SWETH( 8, 4) = 0.193569E+01
+PKER_SWETH( 8, 5) = 0.196690E+01
+PKER_SWETH( 8, 6) = 0.199799E+01
+PKER_SWETH( 8, 7) = 0.202895E+01
+PKER_SWETH( 8, 8) = 0.205978E+01
+PKER_SWETH( 8, 9) = 0.209049E+01
+PKER_SWETH( 8, 10) = 0.212106E+01
+PKER_SWETH( 8, 11) = 0.215149E+01
+PKER_SWETH( 8, 12) = 0.218178E+01
+PKER_SWETH( 8, 13) = 0.221190E+01
+PKER_SWETH( 8, 14) = 0.224186E+01
+PKER_SWETH( 8, 15) = 0.227162E+01
+PKER_SWETH( 8, 16) = 0.230118E+01
+PKER_SWETH( 8, 17) = 0.233050E+01
+PKER_SWETH( 8, 18) = 0.235958E+01
+PKER_SWETH( 8, 19) = 0.238838E+01
+PKER_SWETH( 8, 20) = 0.241689E+01
+PKER_SWETH( 8, 21) = 0.244506E+01
+PKER_SWETH( 8, 22) = 0.247289E+01
+PKER_SWETH( 8, 23) = 0.250034E+01
+PKER_SWETH( 8, 24) = 0.252738E+01
+PKER_SWETH( 8, 25) = 0.255400E+01
+PKER_SWETH( 8, 26) = 0.258016E+01
+PKER_SWETH( 8, 27) = 0.260584E+01
+PKER_SWETH( 8, 28) = 0.263103E+01
+PKER_SWETH( 8, 29) = 0.265570E+01
+PKER_SWETH( 8, 30) = 0.267983E+01
+PKER_SWETH( 8, 31) = 0.270342E+01
+PKER_SWETH( 8, 32) = 0.272645E+01
+PKER_SWETH( 8, 33) = 0.274891E+01
+PKER_SWETH( 8, 34) = 0.277080E+01
+PKER_SWETH( 8, 35) = 0.279211E+01
+PKER_SWETH( 8, 36) = 0.281283E+01
+PKER_SWETH( 8, 37) = 0.283298E+01
+PKER_SWETH( 8, 38) = 0.285256E+01
+PKER_SWETH( 8, 39) = 0.287156E+01
+PKER_SWETH( 8, 40) = 0.289000E+01
+PKER_SWETH( 8, 41) = 0.290789E+01
+PKER_SWETH( 8, 42) = 0.292523E+01
+PKER_SWETH( 8, 43) = 0.294204E+01
+PKER_SWETH( 8, 44) = 0.295833E+01
+PKER_SWETH( 8, 45) = 0.297411E+01
+PKER_SWETH( 8, 46) = 0.298940E+01
+PKER_SWETH( 8, 47) = 0.300421E+01
+PKER_SWETH( 8, 48) = 0.301855E+01
+PKER_SWETH( 8, 49) = 0.303245E+01
+PKER_SWETH( 8, 50) = 0.304591E+01
+PKER_SWETH( 8, 51) = 0.305895E+01
+PKER_SWETH( 8, 52) = 0.307159E+01
+PKER_SWETH( 8, 53) = 0.308384E+01
+PKER_SWETH( 8, 54) = 0.309571E+01
+PKER_SWETH( 8, 55) = 0.310723E+01
+PKER_SWETH( 8, 56) = 0.311839E+01
+PKER_SWETH( 8, 57) = 0.312923E+01
+PKER_SWETH( 8, 58) = 0.313974E+01
+PKER_SWETH( 8, 59) = 0.314995E+01
+PKER_SWETH( 8, 60) = 0.315985E+01
+PKER_SWETH( 8, 61) = 0.316948E+01
+PKER_SWETH( 8, 62) = 0.317883E+01
+PKER_SWETH( 8, 63) = 0.318792E+01
+PKER_SWETH( 8, 64) = 0.319675E+01
+PKER_SWETH( 8, 65) = 0.320535E+01
+PKER_SWETH( 8, 66) = 0.321371E+01
+PKER_SWETH( 8, 67) = 0.322185E+01
+PKER_SWETH( 8, 68) = 0.322977E+01
+PKER_SWETH( 8, 69) = 0.323748E+01
+PKER_SWETH( 8, 70) = 0.324500E+01
+PKER_SWETH( 8, 71) = 0.325232E+01
+PKER_SWETH( 8, 72) = 0.325945E+01
+PKER_SWETH( 8, 73) = 0.326641E+01
+PKER_SWETH( 8, 74) = 0.327320E+01
+PKER_SWETH( 8, 75) = 0.327982E+01
+PKER_SWETH( 8, 76) = 0.328628E+01
+PKER_SWETH( 8, 77) = 0.329258E+01
+PKER_SWETH( 8, 78) = 0.329874E+01
+PKER_SWETH( 8, 79) = 0.330475E+01
+PKER_SWETH( 8, 80) = 0.331063E+01
+PKER_SWETH( 9, 1) = 0.137280E+01
+PKER_SWETH( 9, 2) = 0.140233E+01
+PKER_SWETH( 9, 3) = 0.143173E+01
+PKER_SWETH( 9, 4) = 0.146101E+01
+PKER_SWETH( 9, 5) = 0.149017E+01
+PKER_SWETH( 9, 6) = 0.151920E+01
+PKER_SWETH( 9, 7) = 0.154811E+01
+PKER_SWETH( 9, 8) = 0.157690E+01
+PKER_SWETH( 9, 9) = 0.160557E+01
+PKER_SWETH( 9, 10) = 0.163411E+01
+PKER_SWETH( 9, 11) = 0.166253E+01
+PKER_SWETH( 9, 12) = 0.169082E+01
+PKER_SWETH( 9, 13) = 0.171898E+01
+PKER_SWETH( 9, 14) = 0.174700E+01
+PKER_SWETH( 9, 15) = 0.177488E+01
+PKER_SWETH( 9, 16) = 0.180259E+01
+PKER_SWETH( 9, 17) = 0.183014E+01
+PKER_SWETH( 9, 18) = 0.185751E+01
+PKER_SWETH( 9, 19) = 0.188469E+01
+PKER_SWETH( 9, 20) = 0.191165E+01
+PKER_SWETH( 9, 21) = 0.193837E+01
+PKER_SWETH( 9, 22) = 0.196485E+01
+PKER_SWETH( 9, 23) = 0.199105E+01
+PKER_SWETH( 9, 24) = 0.201695E+01
+PKER_SWETH( 9, 25) = 0.204253E+01
+PKER_SWETH( 9, 26) = 0.206778E+01
+PKER_SWETH( 9, 27) = 0.209265E+01
+PKER_SWETH( 9, 28) = 0.211714E+01
+PKER_SWETH( 9, 29) = 0.214122E+01
+PKER_SWETH( 9, 30) = 0.216488E+01
+PKER_SWETH( 9, 31) = 0.218808E+01
+PKER_SWETH( 9, 32) = 0.221082E+01
+PKER_SWETH( 9, 33) = 0.223308E+01
+PKER_SWETH( 9, 34) = 0.225485E+01
+PKER_SWETH( 9, 35) = 0.227611E+01
+PKER_SWETH( 9, 36) = 0.229686E+01
+PKER_SWETH( 9, 37) = 0.231709E+01
+PKER_SWETH( 9, 38) = 0.233679E+01
+PKER_SWETH( 9, 39) = 0.235598E+01
+PKER_SWETH( 9, 40) = 0.237463E+01
+PKER_SWETH( 9, 41) = 0.239277E+01
+PKER_SWETH( 9, 42) = 0.241039E+01
+PKER_SWETH( 9, 43) = 0.242749E+01
+PKER_SWETH( 9, 44) = 0.244409E+01
+PKER_SWETH( 9, 45) = 0.246020E+01
+PKER_SWETH( 9, 46) = 0.247582E+01
+PKER_SWETH( 9, 47) = 0.249096E+01
+PKER_SWETH( 9, 48) = 0.250564E+01
+PKER_SWETH( 9, 49) = 0.251987E+01
+PKER_SWETH( 9, 50) = 0.253366E+01
+PKER_SWETH( 9, 51) = 0.254703E+01
+PKER_SWETH( 9, 52) = 0.255998E+01
+PKER_SWETH( 9, 53) = 0.257254E+01
+PKER_SWETH( 9, 54) = 0.258471E+01
+PKER_SWETH( 9, 55) = 0.259651E+01
+PKER_SWETH( 9, 56) = 0.260795E+01
+PKER_SWETH( 9, 57) = 0.261904E+01
+PKER_SWETH( 9, 58) = 0.262980E+01
+PKER_SWETH( 9, 59) = 0.264025E+01
+PKER_SWETH( 9, 60) = 0.265038E+01
+PKER_SWETH( 9, 61) = 0.266022E+01
+PKER_SWETH( 9, 62) = 0.266978E+01
+PKER_SWETH( 9, 63) = 0.267906E+01
+PKER_SWETH( 9, 64) = 0.268808E+01
+PKER_SWETH( 9, 65) = 0.269684E+01
+PKER_SWETH( 9, 66) = 0.270537E+01
+PKER_SWETH( 9, 67) = 0.271366E+01
+PKER_SWETH( 9, 68) = 0.272172E+01
+PKER_SWETH( 9, 69) = 0.272957E+01
+PKER_SWETH( 9, 70) = 0.273721E+01
+PKER_SWETH( 9, 71) = 0.274465E+01
+PKER_SWETH( 9, 72) = 0.275190E+01
+PKER_SWETH( 9, 73) = 0.275896E+01
+PKER_SWETH( 9, 74) = 0.276585E+01
+PKER_SWETH( 9, 75) = 0.277256E+01
+PKER_SWETH( 9, 76) = 0.277911E+01
+PKER_SWETH( 9, 77) = 0.278549E+01
+PKER_SWETH( 9, 78) = 0.279172E+01
+PKER_SWETH( 9, 79) = 0.279780E+01
+PKER_SWETH( 9, 80) = 0.280374E+01
+PKER_SWETH( 10, 1) = 0.980904E+00
+PKER_SWETH( 10, 2) = 0.100781E+01
+PKER_SWETH( 10, 3) = 0.103472E+01
+PKER_SWETH( 10, 4) = 0.106164E+01
+PKER_SWETH( 10, 5) = 0.108853E+01
+PKER_SWETH( 10, 6) = 0.111537E+01
+PKER_SWETH( 10, 7) = 0.114216E+01
+PKER_SWETH( 10, 8) = 0.116887E+01
+PKER_SWETH( 10, 9) = 0.119552E+01
+PKER_SWETH( 10, 10) = 0.122208E+01
+PKER_SWETH( 10, 11) = 0.124855E+01
+PKER_SWETH( 10, 12) = 0.127492E+01
+PKER_SWETH( 10, 13) = 0.130119E+01
+PKER_SWETH( 10, 14) = 0.132735E+01
+PKER_SWETH( 10, 15) = 0.135340E+01
+PKER_SWETH( 10, 16) = 0.137934E+01
+PKER_SWETH( 10, 17) = 0.140514E+01
+PKER_SWETH( 10, 18) = 0.143081E+01
+PKER_SWETH( 10, 19) = 0.145633E+01
+PKER_SWETH( 10, 20) = 0.148170E+01
+PKER_SWETH( 10, 21) = 0.150689E+01
+PKER_SWETH( 10, 22) = 0.153191E+01
+PKER_SWETH( 10, 23) = 0.155672E+01
+PKER_SWETH( 10, 24) = 0.158132E+01
+PKER_SWETH( 10, 25) = 0.160569E+01
+PKER_SWETH( 10, 26) = 0.162981E+01
+PKER_SWETH( 10, 27) = 0.165366E+01
+PKER_SWETH( 10, 28) = 0.167722E+01
+PKER_SWETH( 10, 29) = 0.170047E+01
+PKER_SWETH( 10, 30) = 0.172339E+01
+PKER_SWETH( 10, 31) = 0.174596E+01
+PKER_SWETH( 10, 32) = 0.176816E+01
+PKER_SWETH( 10, 33) = 0.178997E+01
+PKER_SWETH( 10, 34) = 0.181138E+01
+PKER_SWETH( 10, 35) = 0.183237E+01
+PKER_SWETH( 10, 36) = 0.185293E+01
+PKER_SWETH( 10, 37) = 0.187304E+01
+PKER_SWETH( 10, 38) = 0.189269E+01
+PKER_SWETH( 10, 39) = 0.191189E+01
+PKER_SWETH( 10, 40) = 0.193061E+01
+PKER_SWETH( 10, 41) = 0.194886E+01
+PKER_SWETH( 10, 42) = 0.196663E+01
+PKER_SWETH( 10, 43) = 0.198393E+01
+PKER_SWETH( 10, 44) = 0.200075E+01
+PKER_SWETH( 10, 45) = 0.201711E+01
+PKER_SWETH( 10, 46) = 0.203299E+01
+PKER_SWETH( 10, 47) = 0.204842E+01
+PKER_SWETH( 10, 48) = 0.206339E+01
+PKER_SWETH( 10, 49) = 0.207792E+01
+PKER_SWETH( 10, 50) = 0.209201E+01
+PKER_SWETH( 10, 51) = 0.210568E+01
+PKER_SWETH( 10, 52) = 0.211894E+01
+PKER_SWETH( 10, 53) = 0.213179E+01
+PKER_SWETH( 10, 54) = 0.214426E+01
+PKER_SWETH( 10, 55) = 0.215634E+01
+PKER_SWETH( 10, 56) = 0.216806E+01
+PKER_SWETH( 10, 57) = 0.217943E+01
+PKER_SWETH( 10, 58) = 0.219045E+01
+PKER_SWETH( 10, 59) = 0.220115E+01
+PKER_SWETH( 10, 60) = 0.221152E+01
+PKER_SWETH( 10, 61) = 0.222159E+01
+PKER_SWETH( 10, 62) = 0.223137E+01
+PKER_SWETH( 10, 63) = 0.224086E+01
+PKER_SWETH( 10, 64) = 0.225007E+01
+PKER_SWETH( 10, 65) = 0.225903E+01
+PKER_SWETH( 10, 66) = 0.226773E+01
+PKER_SWETH( 10, 67) = 0.227618E+01
+PKER_SWETH( 10, 68) = 0.228441E+01
+PKER_SWETH( 10, 69) = 0.229240E+01
+PKER_SWETH( 10, 70) = 0.230019E+01
+PKER_SWETH( 10, 71) = 0.230776E+01
+PKER_SWETH( 10, 72) = 0.231513E+01
+PKER_SWETH( 10, 73) = 0.232231E+01
+PKER_SWETH( 10, 74) = 0.232930E+01
+PKER_SWETH( 10, 75) = 0.233612E+01
+PKER_SWETH( 10, 76) = 0.234276E+01
+PKER_SWETH( 10, 77) = 0.234923E+01
+PKER_SWETH( 10, 78) = 0.235555E+01
+PKER_SWETH( 10, 79) = 0.236171E+01
+PKER_SWETH( 10, 80) = 0.236772E+01
+PKER_SWETH( 11, 1) = 0.665361E+00
+PKER_SWETH( 11, 2) = 0.687875E+00
+PKER_SWETH( 11, 3) = 0.710787E+00
+PKER_SWETH( 11, 4) = 0.733973E+00
+PKER_SWETH( 11, 5) = 0.757435E+00
+PKER_SWETH( 11, 6) = 0.781079E+00
+PKER_SWETH( 11, 7) = 0.804907E+00
+PKER_SWETH( 11, 8) = 0.828839E+00
+PKER_SWETH( 11, 9) = 0.852867E+00
+PKER_SWETH( 11, 10) = 0.876958E+00
+PKER_SWETH( 11, 11) = 0.901096E+00
+PKER_SWETH( 11, 12) = 0.925246E+00
+PKER_SWETH( 11, 13) = 0.949386E+00
+PKER_SWETH( 11, 14) = 0.973511E+00
+PKER_SWETH( 11, 15) = 0.997600E+00
+PKER_SWETH( 11, 16) = 0.102163E+01
+PKER_SWETH( 11, 17) = 0.104561E+01
+PKER_SWETH( 11, 18) = 0.106950E+01
+PKER_SWETH( 11, 19) = 0.109331E+01
+PKER_SWETH( 11, 20) = 0.111702E+01
+PKER_SWETH( 11, 21) = 0.114063E+01
+PKER_SWETH( 11, 22) = 0.116410E+01
+PKER_SWETH( 11, 23) = 0.118744E+01
+PKER_SWETH( 11, 24) = 0.121064E+01
+PKER_SWETH( 11, 25) = 0.123367E+01
+PKER_SWETH( 11, 26) = 0.125652E+01
+PKER_SWETH( 11, 27) = 0.127919E+01
+PKER_SWETH( 11, 28) = 0.130164E+01
+PKER_SWETH( 11, 29) = 0.132386E+01
+PKER_SWETH( 11, 30) = 0.134584E+01
+PKER_SWETH( 11, 31) = 0.136756E+01
+PKER_SWETH( 11, 32) = 0.138900E+01
+PKER_SWETH( 11, 33) = 0.141014E+01
+PKER_SWETH( 11, 34) = 0.143097E+01
+PKER_SWETH( 11, 35) = 0.145146E+01
+PKER_SWETH( 11, 36) = 0.147161E+01
+PKER_SWETH( 11, 37) = 0.149139E+01
+PKER_SWETH( 11, 38) = 0.151079E+01
+PKER_SWETH( 11, 39) = 0.152980E+01
+PKER_SWETH( 11, 40) = 0.154840E+01
+PKER_SWETH( 11, 41) = 0.156660E+01
+PKER_SWETH( 11, 42) = 0.158437E+01
+PKER_SWETH( 11, 43) = 0.160172E+01
+PKER_SWETH( 11, 44) = 0.161864E+01
+PKER_SWETH( 11, 45) = 0.163513E+01
+PKER_SWETH( 11, 46) = 0.165119E+01
+PKER_SWETH( 11, 47) = 0.166681E+01
+PKER_SWETH( 11, 48) = 0.168200E+01
+PKER_SWETH( 11, 49) = 0.169677E+01
+PKER_SWETH( 11, 50) = 0.171112E+01
+PKER_SWETH( 11, 51) = 0.172506E+01
+PKER_SWETH( 11, 52) = 0.173859E+01
+PKER_SWETH( 11, 53) = 0.175172E+01
+PKER_SWETH( 11, 54) = 0.176446E+01
+PKER_SWETH( 11, 55) = 0.177682E+01
+PKER_SWETH( 11, 56) = 0.178881E+01
+PKER_SWETH( 11, 57) = 0.180045E+01
+PKER_SWETH( 11, 58) = 0.181174E+01
+PKER_SWETH( 11, 59) = 0.182269E+01
+PKER_SWETH( 11, 60) = 0.183331E+01
+PKER_SWETH( 11, 61) = 0.184362E+01
+PKER_SWETH( 11, 62) = 0.185362E+01
+PKER_SWETH( 11, 63) = 0.186333E+01
+PKER_SWETH( 11, 64) = 0.187276E+01
+PKER_SWETH( 11, 65) = 0.188192E+01
+PKER_SWETH( 11, 66) = 0.189081E+01
+PKER_SWETH( 11, 67) = 0.189945E+01
+PKER_SWETH( 11, 68) = 0.190784E+01
+PKER_SWETH( 11, 69) = 0.191600E+01
+PKER_SWETH( 11, 70) = 0.192394E+01
+PKER_SWETH( 11, 71) = 0.193165E+01
+PKER_SWETH( 11, 72) = 0.193916E+01
+PKER_SWETH( 11, 73) = 0.194647E+01
+PKER_SWETH( 11, 74) = 0.195359E+01
+PKER_SWETH( 11, 75) = 0.196051E+01
+PKER_SWETH( 11, 76) = 0.196726E+01
+PKER_SWETH( 11, 77) = 0.197384E+01
+PKER_SWETH( 11, 78) = 0.198025E+01
+PKER_SWETH( 11, 79) = 0.198650E+01
+PKER_SWETH( 11, 80) = 0.199259E+01
+PKER_SWETH( 12, 1) = 0.436708E+00
+PKER_SWETH( 12, 2) = 0.451680E+00
+PKER_SWETH( 12, 3) = 0.467543E+00
+PKER_SWETH( 12, 4) = 0.484197E+00
+PKER_SWETH( 12, 5) = 0.501664E+00
+PKER_SWETH( 12, 6) = 0.519787E+00
+PKER_SWETH( 12, 7) = 0.538448E+00
+PKER_SWETH( 12, 8) = 0.557693E+00
+PKER_SWETH( 12, 9) = 0.577391E+00
+PKER_SWETH( 12, 10) = 0.597470E+00
+PKER_SWETH( 12, 11) = 0.617921E+00
+PKER_SWETH( 12, 12) = 0.638636E+00
+PKER_SWETH( 12, 13) = 0.659625E+00
+PKER_SWETH( 12, 14) = 0.680802E+00
+PKER_SWETH( 12, 15) = 0.702152E+00
+PKER_SWETH( 12, 16) = 0.723627E+00
+PKER_SWETH( 12, 17) = 0.745199E+00
+PKER_SWETH( 12, 18) = 0.766851E+00
+PKER_SWETH( 12, 19) = 0.788542E+00
+PKER_SWETH( 12, 20) = 0.810252E+00
+PKER_SWETH( 12, 21) = 0.831959E+00
+PKER_SWETH( 12, 22) = 0.853645E+00
+PKER_SWETH( 12, 23) = 0.875281E+00
+PKER_SWETH( 12, 24) = 0.896863E+00
+PKER_SWETH( 12, 25) = 0.918362E+00
+PKER_SWETH( 12, 26) = 0.939766E+00
+PKER_SWETH( 12, 27) = 0.961061E+00
+PKER_SWETH( 12, 28) = 0.982225E+00
+PKER_SWETH( 12, 29) = 0.100324E+01
+PKER_SWETH( 12, 30) = 0.102410E+01
+PKER_SWETH( 12, 31) = 0.104477E+01
+PKER_SWETH( 12, 32) = 0.106525E+01
+PKER_SWETH( 12, 33) = 0.108551E+01
+PKER_SWETH( 12, 34) = 0.110555E+01
+PKER_SWETH( 12, 35) = 0.112533E+01
+PKER_SWETH( 12, 36) = 0.114485E+01
+PKER_SWETH( 12, 37) = 0.116408E+01
+PKER_SWETH( 12, 38) = 0.118301E+01
+PKER_SWETH( 12, 39) = 0.120164E+01
+PKER_SWETH( 12, 40) = 0.121993E+01
+PKER_SWETH( 12, 41) = 0.123788E+01
+PKER_SWETH( 12, 42) = 0.125548E+01
+PKER_SWETH( 12, 43) = 0.127271E+01
+PKER_SWETH( 12, 44) = 0.128958E+01
+PKER_SWETH( 12, 45) = 0.130606E+01
+PKER_SWETH( 12, 46) = 0.132215E+01
+PKER_SWETH( 12, 47) = 0.133786E+01
+PKER_SWETH( 12, 48) = 0.135317E+01
+PKER_SWETH( 12, 49) = 0.136809E+01
+PKER_SWETH( 12, 50) = 0.138261E+01
+PKER_SWETH( 12, 51) = 0.139675E+01
+PKER_SWETH( 12, 52) = 0.141049E+01
+PKER_SWETH( 12, 53) = 0.142385E+01
+PKER_SWETH( 12, 54) = 0.143683E+01
+PKER_SWETH( 12, 55) = 0.144945E+01
+PKER_SWETH( 12, 56) = 0.146169E+01
+PKER_SWETH( 12, 57) = 0.147358E+01
+PKER_SWETH( 12, 58) = 0.148512E+01
+PKER_SWETH( 12, 59) = 0.149632E+01
+PKER_SWETH( 12, 60) = 0.150719E+01
+PKER_SWETH( 12, 61) = 0.151774E+01
+PKER_SWETH( 12, 62) = 0.152798E+01
+PKER_SWETH( 12, 63) = 0.153792E+01
+PKER_SWETH( 12, 64) = 0.154756E+01
+PKER_SWETH( 12, 65) = 0.155693E+01
+PKER_SWETH( 12, 66) = 0.156603E+01
+PKER_SWETH( 12, 67) = 0.157486E+01
+PKER_SWETH( 12, 68) = 0.158344E+01
+PKER_SWETH( 12, 69) = 0.159178E+01
+PKER_SWETH( 12, 70) = 0.159988E+01
+PKER_SWETH( 12, 71) = 0.160776E+01
+PKER_SWETH( 12, 72) = 0.161541E+01
+PKER_SWETH( 12, 73) = 0.162287E+01
+PKER_SWETH( 12, 74) = 0.163011E+01
+PKER_SWETH( 12, 75) = 0.163717E+01
+PKER_SWETH( 12, 76) = 0.164404E+01
+PKER_SWETH( 12, 77) = 0.165072E+01
+PKER_SWETH( 12, 78) = 0.165724E+01
+PKER_SWETH( 12, 79) = 0.166359E+01
+PKER_SWETH( 12, 80) = 0.166977E+01
+PKER_SWETH( 13, 1) = 0.311067E+00
+PKER_SWETH( 13, 2) = 0.314997E+00
+PKER_SWETH( 13, 3) = 0.320263E+00
+PKER_SWETH( 13, 4) = 0.327008E+00
+PKER_SWETH( 13, 5) = 0.334972E+00
+PKER_SWETH( 13, 6) = 0.344125E+00
+PKER_SWETH( 13, 7) = 0.354475E+00
+PKER_SWETH( 13, 8) = 0.365871E+00
+PKER_SWETH( 13, 9) = 0.378223E+00
+PKER_SWETH( 13, 10) = 0.391467E+00
+PKER_SWETH( 13, 11) = 0.405568E+00
+PKER_SWETH( 13, 12) = 0.420455E+00
+PKER_SWETH( 13, 13) = 0.436017E+00
+PKER_SWETH( 13, 14) = 0.452161E+00
+PKER_SWETH( 13, 15) = 0.468883E+00
+PKER_SWETH( 13, 16) = 0.486117E+00
+PKER_SWETH( 13, 17) = 0.503732E+00
+PKER_SWETH( 13, 18) = 0.521766E+00
+PKER_SWETH( 13, 19) = 0.540107E+00
+PKER_SWETH( 13, 20) = 0.558735E+00
+PKER_SWETH( 13, 21) = 0.577587E+00
+PKER_SWETH( 13, 22) = 0.596631E+00
+PKER_SWETH( 13, 23) = 0.615823E+00
+PKER_SWETH( 13, 24) = 0.635141E+00
+PKER_SWETH( 13, 25) = 0.654541E+00
+PKER_SWETH( 13, 26) = 0.673999E+00
+PKER_SWETH( 13, 27) = 0.693473E+00
+PKER_SWETH( 13, 28) = 0.712944E+00
+PKER_SWETH( 13, 29) = 0.732397E+00
+PKER_SWETH( 13, 30) = 0.751795E+00
+PKER_SWETH( 13, 31) = 0.771120E+00
+PKER_SWETH( 13, 32) = 0.790352E+00
+PKER_SWETH( 13, 33) = 0.809466E+00
+PKER_SWETH( 13, 34) = 0.828445E+00
+PKER_SWETH( 13, 35) = 0.847266E+00
+PKER_SWETH( 13, 36) = 0.865913E+00
+PKER_SWETH( 13, 37) = 0.884363E+00
+PKER_SWETH( 13, 38) = 0.902603E+00
+PKER_SWETH( 13, 39) = 0.920611E+00
+PKER_SWETH( 13, 40) = 0.938372E+00
+PKER_SWETH( 13, 41) = 0.955870E+00
+PKER_SWETH( 13, 42) = 0.973090E+00
+PKER_SWETH( 13, 43) = 0.990016E+00
+PKER_SWETH( 13, 44) = 0.100664E+01
+PKER_SWETH( 13, 45) = 0.102294E+01
+PKER_SWETH( 13, 46) = 0.103892E+01
+PKER_SWETH( 13, 47) = 0.105456E+01
+PKER_SWETH( 13, 48) = 0.106985E+01
+PKER_SWETH( 13, 49) = 0.108480E+01
+PKER_SWETH( 13, 50) = 0.109939E+01
+PKER_SWETH( 13, 51) = 0.111363E+01
+PKER_SWETH( 13, 52) = 0.112750E+01
+PKER_SWETH( 13, 53) = 0.114102E+01
+PKER_SWETH( 13, 54) = 0.115418E+01
+PKER_SWETH( 13, 55) = 0.116698E+01
+PKER_SWETH( 13, 56) = 0.117944E+01
+PKER_SWETH( 13, 57) = 0.119154E+01
+PKER_SWETH( 13, 58) = 0.120331E+01
+PKER_SWETH( 13, 59) = 0.121474E+01
+PKER_SWETH( 13, 60) = 0.122584E+01
+PKER_SWETH( 13, 61) = 0.123662E+01
+PKER_SWETH( 13, 62) = 0.124709E+01
+PKER_SWETH( 13, 63) = 0.125726E+01
+PKER_SWETH( 13, 64) = 0.126713E+01
+PKER_SWETH( 13, 65) = 0.127671E+01
+PKER_SWETH( 13, 66) = 0.128601E+01
+PKER_SWETH( 13, 67) = 0.129505E+01
+PKER_SWETH( 13, 68) = 0.130382E+01
+PKER_SWETH( 13, 69) = 0.131235E+01
+PKER_SWETH( 13, 70) = 0.132063E+01
+PKER_SWETH( 13, 71) = 0.132868E+01
+PKER_SWETH( 13, 72) = 0.133650E+01
+PKER_SWETH( 13, 73) = 0.134411E+01
+PKER_SWETH( 13, 74) = 0.135150E+01
+PKER_SWETH( 13, 75) = 0.135869E+01
+PKER_SWETH( 13, 76) = 0.136569E+01
+PKER_SWETH( 13, 77) = 0.137251E+01
+PKER_SWETH( 13, 78) = 0.137914E+01
+PKER_SWETH( 13, 79) = 0.138559E+01
+PKER_SWETH( 13, 80) = 0.139188E+01
+PKER_SWETH( 14, 1) = 0.293434E+00
+PKER_SWETH( 14, 2) = 0.285118E+00
+PKER_SWETH( 14, 3) = 0.278360E+00
+PKER_SWETH( 14, 4) = 0.273078E+00
+PKER_SWETH( 14, 5) = 0.269435E+00
+PKER_SWETH( 14, 6) = 0.267199E+00
+PKER_SWETH( 14, 7) = 0.266485E+00
+PKER_SWETH( 14, 8) = 0.267210E+00
+PKER_SWETH( 14, 9) = 0.269255E+00
+PKER_SWETH( 14, 10) = 0.272761E+00
+PKER_SWETH( 14, 11) = 0.277429E+00
+PKER_SWETH( 14, 12) = 0.283360E+00
+PKER_SWETH( 14, 13) = 0.290506E+00
+PKER_SWETH( 14, 14) = 0.298686E+00
+PKER_SWETH( 14, 15) = 0.307908E+00
+PKER_SWETH( 14, 16) = 0.318108E+00
+PKER_SWETH( 14, 17) = 0.329186E+00
+PKER_SWETH( 14, 18) = 0.341107E+00
+PKER_SWETH( 14, 19) = 0.353792E+00
+PKER_SWETH( 14, 20) = 0.367167E+00
+PKER_SWETH( 14, 21) = 0.381143E+00
+PKER_SWETH( 14, 22) = 0.395685E+00
+PKER_SWETH( 14, 23) = 0.410766E+00
+PKER_SWETH( 14, 24) = 0.426272E+00
+PKER_SWETH( 14, 25) = 0.442163E+00
+PKER_SWETH( 14, 26) = 0.458412E+00
+PKER_SWETH( 14, 27) = 0.474925E+00
+PKER_SWETH( 14, 28) = 0.491703E+00
+PKER_SWETH( 14, 29) = 0.508667E+00
+PKER_SWETH( 14, 30) = 0.525805E+00
+PKER_SWETH( 14, 31) = 0.543049E+00
+PKER_SWETH( 14, 32) = 0.560389E+00
+PKER_SWETH( 14, 33) = 0.577767E+00
+PKER_SWETH( 14, 34) = 0.595162E+00
+PKER_SWETH( 14, 35) = 0.612545E+00
+PKER_SWETH( 14, 36) = 0.629889E+00
+PKER_SWETH( 14, 37) = 0.647163E+00
+PKER_SWETH( 14, 38) = 0.664338E+00
+PKER_SWETH( 14, 39) = 0.681397E+00
+PKER_SWETH( 14, 40) = 0.698314E+00
+PKER_SWETH( 14, 41) = 0.715066E+00
+PKER_SWETH( 14, 42) = 0.731634E+00
+PKER_SWETH( 14, 43) = 0.747997E+00
+PKER_SWETH( 14, 44) = 0.764139E+00
+PKER_SWETH( 14, 45) = 0.780043E+00
+PKER_SWETH( 14, 46) = 0.795694E+00
+PKER_SWETH( 14, 47) = 0.811076E+00
+PKER_SWETH( 14, 48) = 0.826179E+00
+PKER_SWETH( 14, 49) = 0.840990E+00
+PKER_SWETH( 14, 50) = 0.855501E+00
+PKER_SWETH( 14, 51) = 0.869702E+00
+PKER_SWETH( 14, 52) = 0.883589E+00
+PKER_SWETH( 14, 53) = 0.897155E+00
+PKER_SWETH( 14, 54) = 0.910397E+00
+PKER_SWETH( 14, 55) = 0.923313E+00
+PKER_SWETH( 14, 56) = 0.935903E+00
+PKER_SWETH( 14, 57) = 0.948166E+00
+PKER_SWETH( 14, 58) = 0.960105E+00
+PKER_SWETH( 14, 59) = 0.971722E+00
+PKER_SWETH( 14, 60) = 0.983022E+00
+PKER_SWETH( 14, 61) = 0.994008E+00
+PKER_SWETH( 14, 62) = 0.100469E+01
+PKER_SWETH( 14, 63) = 0.101506E+01
+PKER_SWETH( 14, 64) = 0.102514E+01
+PKER_SWETH( 14, 65) = 0.103494E+01
+PKER_SWETH( 14, 66) = 0.104445E+01
+PKER_SWETH( 14, 67) = 0.105369E+01
+PKER_SWETH( 14, 68) = 0.106267E+01
+PKER_SWETH( 14, 69) = 0.107138E+01
+PKER_SWETH( 14, 70) = 0.107985E+01
+PKER_SWETH( 14, 71) = 0.108808E+01
+PKER_SWETH( 14, 72) = 0.109608E+01
+PKER_SWETH( 14, 73) = 0.110385E+01
+PKER_SWETH( 14, 74) = 0.111140E+01
+PKER_SWETH( 14, 75) = 0.111875E+01
+PKER_SWETH( 14, 76) = 0.112589E+01
+PKER_SWETH( 14, 77) = 0.113283E+01
+PKER_SWETH( 14, 78) = 0.113959E+01
+PKER_SWETH( 14, 79) = 0.114617E+01
+PKER_SWETH( 14, 80) = 0.115258E+01
+PKER_SWETH( 15, 1) = 0.362145E+00
+PKER_SWETH( 15, 2) = 0.344123E+00
+PKER_SWETH( 15, 3) = 0.327386E+00
+PKER_SWETH( 15, 4) = 0.311934E+00
+PKER_SWETH( 15, 5) = 0.297787E+00
+PKER_SWETH( 15, 6) = 0.284880E+00
+PKER_SWETH( 15, 7) = 0.273465E+00
+PKER_SWETH( 15, 8) = 0.263396E+00
+PKER_SWETH( 15, 9) = 0.254563E+00
+PKER_SWETH( 15, 10) = 0.247336E+00
+PKER_SWETH( 15, 11) = 0.241282E+00
+PKER_SWETH( 15, 12) = 0.236797E+00
+PKER_SWETH( 15, 13) = 0.233495E+00
+PKER_SWETH( 15, 14) = 0.231691E+00
+PKER_SWETH( 15, 15) = 0.231043E+00
+PKER_SWETH( 15, 16) = 0.231854E+00
+PKER_SWETH( 15, 17) = 0.233730E+00
+PKER_SWETH( 15, 18) = 0.236949E+00
+PKER_SWETH( 15, 19) = 0.241249E+00
+PKER_SWETH( 15, 20) = 0.246634E+00
+PKER_SWETH( 15, 21) = 0.253120E+00
+PKER_SWETH( 15, 22) = 0.260565E+00
+PKER_SWETH( 15, 23) = 0.268930E+00
+PKER_SWETH( 15, 24) = 0.278203E+00
+PKER_SWETH( 15, 25) = 0.288263E+00
+PKER_SWETH( 15, 26) = 0.299069E+00
+PKER_SWETH( 15, 27) = 0.310564E+00
+PKER_SWETH( 15, 28) = 0.322673E+00
+PKER_SWETH( 15, 29) = 0.335334E+00
+PKER_SWETH( 15, 30) = 0.348531E+00
+PKER_SWETH( 15, 31) = 0.362168E+00
+PKER_SWETH( 15, 32) = 0.376167E+00
+PKER_SWETH( 15, 33) = 0.390538E+00
+PKER_SWETH( 15, 34) = 0.405187E+00
+PKER_SWETH( 15, 35) = 0.420070E+00
+PKER_SWETH( 15, 36) = 0.435156E+00
+PKER_SWETH( 15, 37) = 0.450377E+00
+PKER_SWETH( 15, 38) = 0.465720E+00
+PKER_SWETH( 15, 39) = 0.481123E+00
+PKER_SWETH( 15, 40) = 0.496561E+00
+PKER_SWETH( 15, 41) = 0.511995E+00
+PKER_SWETH( 15, 42) = 0.527395E+00
+PKER_SWETH( 15, 43) = 0.542734E+00
+PKER_SWETH( 15, 44) = 0.557976E+00
+PKER_SWETH( 15, 45) = 0.573099E+00
+PKER_SWETH( 15, 46) = 0.588080E+00
+PKER_SWETH( 15, 47) = 0.602894E+00
+PKER_SWETH( 15, 48) = 0.617519E+00
+PKER_SWETH( 15, 49) = 0.631940E+00
+PKER_SWETH( 15, 50) = 0.646137E+00
+PKER_SWETH( 15, 51) = 0.660098E+00
+PKER_SWETH( 15, 52) = 0.673808E+00
+PKER_SWETH( 15, 53) = 0.687256E+00
+PKER_SWETH( 15, 54) = 0.700432E+00
+PKER_SWETH( 15, 55) = 0.713329E+00
+PKER_SWETH( 15, 56) = 0.725939E+00
+PKER_SWETH( 15, 57) = 0.738259E+00
+PKER_SWETH( 15, 58) = 0.750284E+00
+PKER_SWETH( 15, 59) = 0.762014E+00
+PKER_SWETH( 15, 60) = 0.773447E+00
+PKER_SWETH( 15, 61) = 0.784585E+00
+PKER_SWETH( 15, 62) = 0.795429E+00
+PKER_SWETH( 15, 63) = 0.805982E+00
+PKER_SWETH( 15, 64) = 0.816248E+00
+PKER_SWETH( 15, 65) = 0.826232E+00
+PKER_SWETH( 15, 66) = 0.835937E+00
+PKER_SWETH( 15, 67) = 0.845371E+00
+PKER_SWETH( 15, 68) = 0.854540E+00
+PKER_SWETH( 15, 69) = 0.863449E+00
+PKER_SWETH( 15, 70) = 0.872106E+00
+PKER_SWETH( 15, 71) = 0.880518E+00
+PKER_SWETH( 15, 72) = 0.888692E+00
+PKER_SWETH( 15, 73) = 0.896636E+00
+PKER_SWETH( 15, 74) = 0.904357E+00
+PKER_SWETH( 15, 75) = 0.911861E+00
+PKER_SWETH( 15, 76) = 0.919157E+00
+PKER_SWETH( 15, 77) = 0.926251E+00
+PKER_SWETH( 15, 78) = 0.933151E+00
+PKER_SWETH( 15, 79) = 0.939862E+00
+PKER_SWETH( 15, 80) = 0.946393E+00
+PKER_SWETH( 16, 1) = 0.475884E+00
+PKER_SWETH( 16, 2) = 0.452686E+00
+PKER_SWETH( 16, 3) = 0.430289E+00
+PKER_SWETH( 16, 4) = 0.408719E+00
+PKER_SWETH( 16, 5) = 0.388052E+00
+PKER_SWETH( 16, 6) = 0.368304E+00
+PKER_SWETH( 16, 7) = 0.349466E+00
+PKER_SWETH( 16, 8) = 0.331660E+00
+PKER_SWETH( 16, 9) = 0.314828E+00
+PKER_SWETH( 16, 10) = 0.299099E+00
+PKER_SWETH( 16, 11) = 0.284442E+00
+PKER_SWETH( 16, 12) = 0.270909E+00
+PKER_SWETH( 16, 13) = 0.258447E+00
+PKER_SWETH( 16, 14) = 0.247254E+00
+PKER_SWETH( 16, 15) = 0.237253E+00
+PKER_SWETH( 16, 16) = 0.228379E+00
+PKER_SWETH( 16, 17) = 0.220801E+00
+PKER_SWETH( 16, 18) = 0.214465E+00
+PKER_SWETH( 16, 19) = 0.209245E+00
+PKER_SWETH( 16, 20) = 0.205416E+00
+PKER_SWETH( 16, 21) = 0.202620E+00
+PKER_SWETH( 16, 22) = 0.201204E+00
+PKER_SWETH( 16, 23) = 0.200801E+00
+PKER_SWETH( 16, 24) = 0.201683E+00
+PKER_SWETH( 16, 25) = 0.203601E+00
+PKER_SWETH( 16, 26) = 0.206602E+00
+PKER_SWETH( 16, 27) = 0.210694E+00
+PKER_SWETH( 16, 28) = 0.215707E+00
+PKER_SWETH( 16, 29) = 0.221736E+00
+PKER_SWETH( 16, 30) = 0.228622E+00
+PKER_SWETH( 16, 31) = 0.236321E+00
+PKER_SWETH( 16, 32) = 0.244834E+00
+PKER_SWETH( 16, 33) = 0.254066E+00
+PKER_SWETH( 16, 34) = 0.263943E+00
+PKER_SWETH( 16, 35) = 0.274416E+00
+PKER_SWETH( 16, 36) = 0.285461E+00
+PKER_SWETH( 16, 37) = 0.297002E+00
+PKER_SWETH( 16, 38) = 0.308968E+00
+PKER_SWETH( 16, 39) = 0.321291E+00
+PKER_SWETH( 16, 40) = 0.333957E+00
+PKER_SWETH( 16, 41) = 0.346904E+00
+PKER_SWETH( 16, 42) = 0.360046E+00
+PKER_SWETH( 16, 43) = 0.373384E+00
+PKER_SWETH( 16, 44) = 0.386840E+00
+PKER_SWETH( 16, 45) = 0.400392E+00
+PKER_SWETH( 16, 46) = 0.413984E+00
+PKER_SWETH( 16, 47) = 0.427587E+00
+PKER_SWETH( 16, 48) = 0.441161E+00
+PKER_SWETH( 16, 49) = 0.454682E+00
+PKER_SWETH( 16, 50) = 0.468111E+00
+PKER_SWETH( 16, 51) = 0.481428E+00
+PKER_SWETH( 16, 52) = 0.494601E+00
+PKER_SWETH( 16, 53) = 0.507611E+00
+PKER_SWETH( 16, 54) = 0.520442E+00
+PKER_SWETH( 16, 55) = 0.533071E+00
+PKER_SWETH( 16, 56) = 0.545485E+00
+PKER_SWETH( 16, 57) = 0.557673E+00
+PKER_SWETH( 16, 58) = 0.569620E+00
+PKER_SWETH( 16, 59) = 0.581321E+00
+PKER_SWETH( 16, 60) = 0.592767E+00
+PKER_SWETH( 16, 61) = 0.603952E+00
+PKER_SWETH( 16, 62) = 0.614874E+00
+PKER_SWETH( 16, 63) = 0.625529E+00
+PKER_SWETH( 16, 64) = 0.635919E+00
+PKER_SWETH( 16, 65) = 0.646041E+00
+PKER_SWETH( 16, 66) = 0.655899E+00
+PKER_SWETH( 16, 67) = 0.665495E+00
+PKER_SWETH( 16, 68) = 0.674833E+00
+PKER_SWETH( 16, 69) = 0.683915E+00
+PKER_SWETH( 16, 70) = 0.692748E+00
+PKER_SWETH( 16, 71) = 0.701336E+00
+PKER_SWETH( 16, 72) = 0.709685E+00
+PKER_SWETH( 16, 73) = 0.717801E+00
+PKER_SWETH( 16, 74) = 0.725690E+00
+PKER_SWETH( 16, 75) = 0.733359E+00
+PKER_SWETH( 16, 76) = 0.740815E+00
+PKER_SWETH( 16, 77) = 0.748064E+00
+PKER_SWETH( 16, 78) = 0.755112E+00
+PKER_SWETH( 16, 79) = 0.761966E+00
+PKER_SWETH( 16, 80) = 0.768632E+00
+PKER_SWETH( 17, 1) = 0.598100E+00
+PKER_SWETH( 17, 2) = 0.573043E+00
+PKER_SWETH( 17, 3) = 0.548538E+00
+PKER_SWETH( 17, 4) = 0.524589E+00
+PKER_SWETH( 17, 5) = 0.501204E+00
+PKER_SWETH( 17, 6) = 0.478416E+00
+PKER_SWETH( 17, 7) = 0.456230E+00
+PKER_SWETH( 17, 8) = 0.434672E+00
+PKER_SWETH( 17, 9) = 0.413761E+00
+PKER_SWETH( 17, 10) = 0.393523E+00
+PKER_SWETH( 17, 11) = 0.373961E+00
+PKER_SWETH( 17, 12) = 0.355160E+00
+PKER_SWETH( 17, 13) = 0.337118E+00
+PKER_SWETH( 17, 14) = 0.319842E+00
+PKER_SWETH( 17, 15) = 0.303414E+00
+PKER_SWETH( 17, 16) = 0.287842E+00
+PKER_SWETH( 17, 17) = 0.273148E+00
+PKER_SWETH( 17, 18) = 0.259401E+00
+PKER_SWETH( 17, 19) = 0.246577E+00
+PKER_SWETH( 17, 20) = 0.234743E+00
+PKER_SWETH( 17, 21) = 0.223938E+00
+PKER_SWETH( 17, 22) = 0.214211E+00
+PKER_SWETH( 17, 23) = 0.205485E+00
+PKER_SWETH( 17, 24) = 0.197803E+00
+PKER_SWETH( 17, 25) = 0.191328E+00
+PKER_SWETH( 17, 26) = 0.185816E+00
+PKER_SWETH( 17, 27) = 0.181501E+00
+PKER_SWETH( 17, 28) = 0.178260E+00
+PKER_SWETH( 17, 29) = 0.176077E+00
+PKER_SWETH( 17, 30) = 0.175022E+00
+PKER_SWETH( 17, 31) = 0.174977E+00
+PKER_SWETH( 17, 32) = 0.175981E+00
+PKER_SWETH( 17, 33) = 0.178014E+00
+PKER_SWETH( 17, 34) = 0.180962E+00
+PKER_SWETH( 17, 35) = 0.184921E+00
+PKER_SWETH( 17, 36) = 0.189705E+00
+PKER_SWETH( 17, 37) = 0.195342E+00
+PKER_SWETH( 17, 38) = 0.201809E+00
+PKER_SWETH( 17, 39) = 0.208982E+00
+PKER_SWETH( 17, 40) = 0.216846E+00
+PKER_SWETH( 17, 41) = 0.225359E+00
+PKER_SWETH( 17, 42) = 0.234436E+00
+PKER_SWETH( 17, 43) = 0.244039E+00
+PKER_SWETH( 17, 44) = 0.254107E+00
+PKER_SWETH( 17, 45) = 0.264580E+00
+PKER_SWETH( 17, 46) = 0.275388E+00
+PKER_SWETH( 17, 47) = 0.286497E+00
+PKER_SWETH( 17, 48) = 0.297866E+00
+PKER_SWETH( 17, 49) = 0.309418E+00
+PKER_SWETH( 17, 50) = 0.321117E+00
+PKER_SWETH( 17, 51) = 0.332927E+00
+PKER_SWETH( 17, 52) = 0.344785E+00
+PKER_SWETH( 17, 53) = 0.356674E+00
+PKER_SWETH( 17, 54) = 0.368540E+00
+PKER_SWETH( 17, 55) = 0.380367E+00
+PKER_SWETH( 17, 56) = 0.392107E+00
+PKER_SWETH( 17, 57) = 0.403748E+00
+PKER_SWETH( 17, 58) = 0.415253E+00
+PKER_SWETH( 17, 59) = 0.426607E+00
+PKER_SWETH( 17, 60) = 0.437792E+00
+PKER_SWETH( 17, 61) = 0.448791E+00
+PKER_SWETH( 17, 62) = 0.459590E+00
+PKER_SWETH( 17, 63) = 0.470176E+00
+PKER_SWETH( 17, 64) = 0.480545E+00
+PKER_SWETH( 17, 65) = 0.490686E+00
+PKER_SWETH( 17, 66) = 0.500596E+00
+PKER_SWETH( 17, 67) = 0.510270E+00
+PKER_SWETH( 17, 68) = 0.519708E+00
+PKER_SWETH( 17, 69) = 0.528909E+00
+PKER_SWETH( 17, 70) = 0.537873E+00
+PKER_SWETH( 17, 71) = 0.546603E+00
+PKER_SWETH( 17, 72) = 0.555101E+00
+PKER_SWETH( 17, 73) = 0.563371E+00
+PKER_SWETH( 17, 74) = 0.571417E+00
+PKER_SWETH( 17, 75) = 0.579243E+00
+PKER_SWETH( 17, 76) = 0.586854E+00
+PKER_SWETH( 17, 77) = 0.594257E+00
+PKER_SWETH( 17, 78) = 0.601455E+00
+PKER_SWETH( 17, 79) = 0.608456E+00
+PKER_SWETH( 17, 80) = 0.615265E+00
+PKER_SWETH( 18, 1) = 0.710381E+00
+PKER_SWETH( 18, 2) = 0.684949E+00
+PKER_SWETH( 18, 3) = 0.659975E+00
+PKER_SWETH( 18, 4) = 0.635457E+00
+PKER_SWETH( 18, 5) = 0.611391E+00
+PKER_SWETH( 18, 6) = 0.587774E+00
+PKER_SWETH( 18, 7) = 0.564608E+00
+PKER_SWETH( 18, 8) = 0.541895E+00
+PKER_SWETH( 18, 9) = 0.519636E+00
+PKER_SWETH( 18, 10) = 0.497841E+00
+PKER_SWETH( 18, 11) = 0.476513E+00
+PKER_SWETH( 18, 12) = 0.455658E+00
+PKER_SWETH( 18, 13) = 0.435297E+00
+PKER_SWETH( 18, 14) = 0.415441E+00
+PKER_SWETH( 18, 15) = 0.396103E+00
+PKER_SWETH( 18, 16) = 0.377297E+00
+PKER_SWETH( 18, 17) = 0.359055E+00
+PKER_SWETH( 18, 18) = 0.341380E+00
+PKER_SWETH( 18, 19) = 0.324327E+00
+PKER_SWETH( 18, 20) = 0.307914E+00
+PKER_SWETH( 18, 21) = 0.292145E+00
+PKER_SWETH( 18, 22) = 0.277068E+00
+PKER_SWETH( 18, 23) = 0.262731E+00
+PKER_SWETH( 18, 24) = 0.249128E+00
+PKER_SWETH( 18, 25) = 0.236316E+00
+PKER_SWETH( 18, 26) = 0.224324E+00
+PKER_SWETH( 18, 27) = 0.213168E+00
+PKER_SWETH( 18, 28) = 0.202907E+00
+PKER_SWETH( 18, 29) = 0.193549E+00
+PKER_SWETH( 18, 30) = 0.185109E+00
+PKER_SWETH( 18, 31) = 0.177568E+00
+PKER_SWETH( 18, 32) = 0.171078E+00
+PKER_SWETH( 18, 33) = 0.165541E+00
+PKER_SWETH( 18, 34) = 0.160915E+00
+PKER_SWETH( 18, 35) = 0.157408E+00
+PKER_SWETH( 18, 36) = 0.154752E+00
+PKER_SWETH( 18, 37) = 0.153217E+00
+PKER_SWETH( 18, 38) = 0.152520E+00
+PKER_SWETH( 18, 39) = 0.152896E+00
+PKER_SWETH( 18, 40) = 0.154087E+00
+PKER_SWETH( 18, 41) = 0.156299E+00
+PKER_SWETH( 18, 42) = 0.159268E+00
+PKER_SWETH( 18, 43) = 0.163145E+00
+PKER_SWETH( 18, 44) = 0.167774E+00
+PKER_SWETH( 18, 45) = 0.173134E+00
+PKER_SWETH( 18, 46) = 0.179223E+00
+PKER_SWETH( 18, 47) = 0.185931E+00
+PKER_SWETH( 18, 48) = 0.193222E+00
+PKER_SWETH( 18, 49) = 0.201073E+00
+PKER_SWETH( 18, 50) = 0.209391E+00
+PKER_SWETH( 18, 51) = 0.218129E+00
+PKER_SWETH( 18, 52) = 0.227239E+00
+PKER_SWETH( 18, 53) = 0.236661E+00
+PKER_SWETH( 18, 54) = 0.246344E+00
+PKER_SWETH( 18, 55) = 0.256250E+00
+PKER_SWETH( 18, 56) = 0.266316E+00
+PKER_SWETH( 18, 57) = 0.276487E+00
+PKER_SWETH( 18, 58) = 0.286749E+00
+PKER_SWETH( 18, 59) = 0.297039E+00
+PKER_SWETH( 18, 60) = 0.307329E+00
+PKER_SWETH( 18, 61) = 0.317586E+00
+PKER_SWETH( 18, 62) = 0.327773E+00
+PKER_SWETH( 18, 63) = 0.337874E+00
+PKER_SWETH( 18, 64) = 0.347857E+00
+PKER_SWETH( 18, 65) = 0.357706E+00
+PKER_SWETH( 18, 66) = 0.367401E+00
+PKER_SWETH( 18, 67) = 0.376930E+00
+PKER_SWETH( 18, 68) = 0.386282E+00
+PKER_SWETH( 18, 69) = 0.395444E+00
+PKER_SWETH( 18, 70) = 0.404410E+00
+PKER_SWETH( 18, 71) = 0.413176E+00
+PKER_SWETH( 18, 72) = 0.421737E+00
+PKER_SWETH( 18, 73) = 0.430091E+00
+PKER_SWETH( 18, 74) = 0.438238E+00
+PKER_SWETH( 18, 75) = 0.446178E+00
+PKER_SWETH( 18, 76) = 0.453912E+00
+PKER_SWETH( 18, 77) = 0.461444E+00
+PKER_SWETH( 18, 78) = 0.468776E+00
+PKER_SWETH( 18, 79) = 0.475912E+00
+PKER_SWETH( 18, 80) = 0.482856E+00
+PKER_SWETH( 19, 1) = 0.808203E+00
+PKER_SWETH( 19, 2) = 0.782771E+00
+PKER_SWETH( 19, 3) = 0.757782E+00
+PKER_SWETH( 19, 4) = 0.733228E+00
+PKER_SWETH( 19, 5) = 0.709101E+00
+PKER_SWETH( 19, 6) = 0.685394E+00
+PKER_SWETH( 19, 7) = 0.662100E+00
+PKER_SWETH( 19, 8) = 0.639212E+00
+PKER_SWETH( 19, 9) = 0.616726E+00
+PKER_SWETH( 19, 10) = 0.594635E+00
+PKER_SWETH( 19, 11) = 0.572937E+00
+PKER_SWETH( 19, 12) = 0.551626E+00
+PKER_SWETH( 19, 13) = 0.530702E+00
+PKER_SWETH( 19, 14) = 0.510162E+00
+PKER_SWETH( 19, 15) = 0.490007E+00
+PKER_SWETH( 19, 16) = 0.470237E+00
+PKER_SWETH( 19, 17) = 0.450857E+00
+PKER_SWETH( 19, 18) = 0.431871E+00
+PKER_SWETH( 19, 19) = 0.413284E+00
+PKER_SWETH( 19, 20) = 0.395108E+00
+PKER_SWETH( 19, 21) = 0.377356E+00
+PKER_SWETH( 19, 22) = 0.360031E+00
+PKER_SWETH( 19, 23) = 0.343149E+00
+PKER_SWETH( 19, 24) = 0.326737E+00
+PKER_SWETH( 19, 25) = 0.310806E+00
+PKER_SWETH( 19, 26) = 0.295384E+00
+PKER_SWETH( 19, 27) = 0.280499E+00
+PKER_SWETH( 19, 28) = 0.266154E+00
+PKER_SWETH( 19, 29) = 0.252383E+00
+PKER_SWETH( 19, 30) = 0.239236E+00
+PKER_SWETH( 19, 31) = 0.226733E+00
+PKER_SWETH( 19, 32) = 0.214870E+00
+PKER_SWETH( 19, 33) = 0.203743E+00
+PKER_SWETH( 19, 34) = 0.193310E+00
+PKER_SWETH( 19, 35) = 0.183669E+00
+PKER_SWETH( 19, 36) = 0.174798E+00
+PKER_SWETH( 19, 37) = 0.166746E+00
+PKER_SWETH( 19, 38) = 0.159476E+00
+PKER_SWETH( 19, 39) = 0.153133E+00
+PKER_SWETH( 19, 40) = 0.147651E+00
+PKER_SWETH( 19, 41) = 0.142994E+00
+PKER_SWETH( 19, 42) = 0.139295E+00
+PKER_SWETH( 19, 43) = 0.136484E+00
+PKER_SWETH( 19, 44) = 0.134504E+00
+PKER_SWETH( 19, 45) = 0.133504E+00
+PKER_SWETH( 19, 46) = 0.133266E+00
+PKER_SWETH( 19, 47) = 0.133995E+00
+PKER_SWETH( 19, 48) = 0.135454E+00
+PKER_SWETH( 19, 49) = 0.137790E+00
+PKER_SWETH( 19, 50) = 0.140847E+00
+PKER_SWETH( 19, 51) = 0.144625E+00
+PKER_SWETH( 19, 52) = 0.149130E+00
+PKER_SWETH( 19, 53) = 0.154223E+00
+PKER_SWETH( 19, 54) = 0.159949E+00
+PKER_SWETH( 19, 55) = 0.166200E+00
+PKER_SWETH( 19, 56) = 0.172918E+00
+PKER_SWETH( 19, 57) = 0.180088E+00
+PKER_SWETH( 19, 58) = 0.187640E+00
+PKER_SWETH( 19, 59) = 0.195506E+00
+PKER_SWETH( 19, 60) = 0.203642E+00
+PKER_SWETH( 19, 61) = 0.212021E+00
+PKER_SWETH( 19, 62) = 0.220577E+00
+PKER_SWETH( 19, 63) = 0.229262E+00
+PKER_SWETH( 19, 64) = 0.238026E+00
+PKER_SWETH( 19, 65) = 0.246853E+00
+PKER_SWETH( 19, 66) = 0.255698E+00
+PKER_SWETH( 19, 67) = 0.264513E+00
+PKER_SWETH( 19, 68) = 0.273291E+00
+PKER_SWETH( 19, 69) = 0.281992E+00
+PKER_SWETH( 19, 70) = 0.290602E+00
+PKER_SWETH( 19, 71) = 0.299096E+00
+PKER_SWETH( 19, 72) = 0.307462E+00
+PKER_SWETH( 19, 73) = 0.315683E+00
+PKER_SWETH( 19, 74) = 0.323752E+00
+PKER_SWETH( 19, 75) = 0.331656E+00
+PKER_SWETH( 19, 76) = 0.339394E+00
+PKER_SWETH( 19, 77) = 0.346956E+00
+PKER_SWETH( 19, 78) = 0.354342E+00
+PKER_SWETH( 19, 79) = 0.361552E+00
+PKER_SWETH( 19, 80) = 0.368582E+00
+PKER_SWETH( 20, 1) = 0.892350E+00
+PKER_SWETH( 20, 2) = 0.866966E+00
+PKER_SWETH( 20, 3) = 0.842026E+00
+PKER_SWETH( 20, 4) = 0.817521E+00
+PKER_SWETH( 20, 5) = 0.793442E+00
+PKER_SWETH( 20, 6) = 0.769781E+00
+PKER_SWETH( 20, 7) = 0.746530E+00
+PKER_SWETH( 20, 8) = 0.723681E+00
+PKER_SWETH( 20, 9) = 0.701226E+00
+PKER_SWETH( 20, 10) = 0.679158E+00
+PKER_SWETH( 20, 11) = 0.657470E+00
+PKER_SWETH( 20, 12) = 0.636154E+00
+PKER_SWETH( 20, 13) = 0.615203E+00
+PKER_SWETH( 20, 14) = 0.594612E+00
+PKER_SWETH( 20, 15) = 0.574373E+00
+PKER_SWETH( 20, 16) = 0.554482E+00
+PKER_SWETH( 20, 17) = 0.534933E+00
+PKER_SWETH( 20, 18) = 0.515722E+00
+PKER_SWETH( 20, 19) = 0.496846E+00
+PKER_SWETH( 20, 20) = 0.478299E+00
+PKER_SWETH( 20, 21) = 0.460081E+00
+PKER_SWETH( 20, 22) = 0.442192E+00
+PKER_SWETH( 20, 23) = 0.424631E+00
+PKER_SWETH( 20, 24) = 0.407398E+00
+PKER_SWETH( 20, 25) = 0.390500E+00
+PKER_SWETH( 20, 26) = 0.373938E+00
+PKER_SWETH( 20, 27) = 0.357718E+00
+PKER_SWETH( 20, 28) = 0.341852E+00
+PKER_SWETH( 20, 29) = 0.326344E+00
+PKER_SWETH( 20, 30) = 0.311205E+00
+PKER_SWETH( 20, 31) = 0.296464E+00
+PKER_SWETH( 20, 32) = 0.282122E+00
+PKER_SWETH( 20, 33) = 0.268205E+00
+PKER_SWETH( 20, 34) = 0.254731E+00
+PKER_SWETH( 20, 35) = 0.241721E+00
+PKER_SWETH( 20, 36) = 0.229187E+00
+PKER_SWETH( 20, 37) = 0.217193E+00
+PKER_SWETH( 20, 38) = 0.205736E+00
+PKER_SWETH( 20, 39) = 0.194834E+00
+PKER_SWETH( 20, 40) = 0.184552E+00
+PKER_SWETH( 20, 41) = 0.174896E+00
+PKER_SWETH( 20, 42) = 0.165889E+00
+PKER_SWETH( 20, 43) = 0.157584E+00
+PKER_SWETH( 20, 44) = 0.149962E+00
+PKER_SWETH( 20, 45) = 0.143091E+00
+PKER_SWETH( 20, 46) = 0.136987E+00
+PKER_SWETH( 20, 47) = 0.131684E+00
+PKER_SWETH( 20, 48) = 0.127131E+00
+PKER_SWETH( 20, 49) = 0.123368E+00
+PKER_SWETH( 20, 50) = 0.120482E+00
+PKER_SWETH( 20, 51) = 0.118312E+00
+PKER_SWETH( 20, 52) = 0.117024E+00
+PKER_SWETH( 20, 53) = 0.116498E+00
+PKER_SWETH( 20, 54) = 0.116741E+00
+PKER_SWETH( 20, 55) = 0.117760E+00
+PKER_SWETH( 20, 56) = 0.119490E+00
+PKER_SWETH( 20, 57) = 0.121912E+00
+PKER_SWETH( 20, 58) = 0.125026E+00
+PKER_SWETH( 20, 59) = 0.128717E+00
+PKER_SWETH( 20, 60) = 0.133037E+00
+PKER_SWETH( 20, 61) = 0.137854E+00
+PKER_SWETH( 20, 62) = 0.143152E+00
+PKER_SWETH( 20, 63) = 0.148909E+00
+PKER_SWETH( 20, 64) = 0.155028E+00
+PKER_SWETH( 20, 65) = 0.161482E+00
+PKER_SWETH( 20, 66) = 0.168233E+00
+PKER_SWETH( 20, 67) = 0.175210E+00
+PKER_SWETH( 20, 68) = 0.182381E+00
+PKER_SWETH( 20, 69) = 0.189701E+00
+PKER_SWETH( 20, 70) = 0.197126E+00
+PKER_SWETH( 20, 71) = 0.204610E+00
+PKER_SWETH( 20, 72) = 0.212133E+00
+PKER_SWETH( 20, 73) = 0.219663E+00
+PKER_SWETH( 20, 74) = 0.227161E+00
+PKER_SWETH( 20, 75) = 0.234611E+00
+PKER_SWETH( 20, 76) = 0.241993E+00
+PKER_SWETH( 20, 77) = 0.249279E+00
+PKER_SWETH( 20, 78) = 0.256466E+00
+PKER_SWETH( 20, 79) = 0.263532E+00
+PKER_SWETH( 20, 80) = 0.270474E+00
+PKER_SWETH( 21, 1) = 0.964600E+00
+PKER_SWETH( 21, 2) = 0.939257E+00
+PKER_SWETH( 21, 3) = 0.914360E+00
+PKER_SWETH( 21, 4) = 0.889901E+00
+PKER_SWETH( 21, 5) = 0.865869E+00
+PKER_SWETH( 21, 6) = 0.842258E+00
+PKER_SWETH( 21, 7) = 0.819060E+00
+PKER_SWETH( 21, 8) = 0.796265E+00
+PKER_SWETH( 21, 9) = 0.773867E+00
+PKER_SWETH( 21, 10) = 0.751857E+00
+PKER_SWETH( 21, 11) = 0.730228E+00
+PKER_SWETH( 21, 12) = 0.708972E+00
+PKER_SWETH( 21, 13) = 0.688082E+00
+PKER_SWETH( 21, 14) = 0.667551E+00
+PKER_SWETH( 21, 15) = 0.647371E+00
+PKER_SWETH( 21, 16) = 0.627535E+00
+PKER_SWETH( 21, 17) = 0.608037E+00
+PKER_SWETH( 21, 18) = 0.588869E+00
+PKER_SWETH( 21, 19) = 0.570026E+00
+PKER_SWETH( 21, 20) = 0.551501E+00
+PKER_SWETH( 21, 21) = 0.533287E+00
+PKER_SWETH( 21, 22) = 0.515380E+00
+PKER_SWETH( 21, 23) = 0.497773E+00
+PKER_SWETH( 21, 24) = 0.480463E+00
+PKER_SWETH( 21, 25) = 0.463444E+00
+PKER_SWETH( 21, 26) = 0.446711E+00
+PKER_SWETH( 21, 27) = 0.430263E+00
+PKER_SWETH( 21, 28) = 0.414096E+00
+PKER_SWETH( 21, 29) = 0.398210E+00
+PKER_SWETH( 21, 30) = 0.382603E+00
+PKER_SWETH( 21, 31) = 0.367275E+00
+PKER_SWETH( 21, 32) = 0.352227E+00
+PKER_SWETH( 21, 33) = 0.337465E+00
+PKER_SWETH( 21, 34) = 0.322989E+00
+PKER_SWETH( 21, 35) = 0.308812E+00
+PKER_SWETH( 21, 36) = 0.294936E+00
+PKER_SWETH( 21, 37) = 0.281370E+00
+PKER_SWETH( 21, 38) = 0.268133E+00
+PKER_SWETH( 21, 39) = 0.255237E+00
+PKER_SWETH( 21, 40) = 0.242693E+00
+PKER_SWETH( 21, 41) = 0.230521E+00
+PKER_SWETH( 21, 42) = 0.218745E+00
+PKER_SWETH( 21, 43) = 0.207374E+00
+PKER_SWETH( 21, 44) = 0.196456E+00
+PKER_SWETH( 21, 45) = 0.186006E+00
+PKER_SWETH( 21, 46) = 0.176034E+00
+PKER_SWETH( 21, 47) = 0.166585E+00
+PKER_SWETH( 21, 48) = 0.157691E+00
+PKER_SWETH( 21, 49) = 0.149357E+00
+PKER_SWETH( 21, 50) = 0.141633E+00
+PKER_SWETH( 21, 51) = 0.134534E+00
+PKER_SWETH( 21, 52) = 0.128087E+00
+PKER_SWETH( 21, 53) = 0.122323E+00
+PKER_SWETH( 21, 54) = 0.117251E+00
+PKER_SWETH( 21, 55) = 0.112878E+00
+PKER_SWETH( 21, 56) = 0.109203E+00
+PKER_SWETH( 21, 57) = 0.106305E+00
+PKER_SWETH( 21, 58) = 0.104117E+00
+PKER_SWETH( 21, 59) = 0.102613E+00
+PKER_SWETH( 21, 60) = 0.101899E+00
+PKER_SWETH( 21, 61) = 0.101799E+00
+PKER_SWETH( 21, 62) = 0.102474E+00
+PKER_SWETH( 21, 63) = 0.103715E+00
+PKER_SWETH( 21, 64) = 0.105671E+00
+PKER_SWETH( 21, 65) = 0.108140E+00
+PKER_SWETH( 21, 66) = 0.111241E+00
+PKER_SWETH( 21, 67) = 0.114792E+00
+PKER_SWETH( 21, 68) = 0.118856E+00
+PKER_SWETH( 21, 69) = 0.123331E+00
+PKER_SWETH( 21, 70) = 0.128175E+00
+PKER_SWETH( 21, 71) = 0.133378E+00
+PKER_SWETH( 21, 72) = 0.138853E+00
+PKER_SWETH( 21, 73) = 0.144569E+00
+PKER_SWETH( 21, 74) = 0.150500E+00
+PKER_SWETH( 21, 75) = 0.156584E+00
+PKER_SWETH( 21, 76) = 0.162785E+00
+PKER_SWETH( 21, 77) = 0.169073E+00
+PKER_SWETH( 21, 78) = 0.175414E+00
+PKER_SWETH( 21, 79) = 0.181779E+00
+PKER_SWETH( 21, 80) = 0.188145E+00
+PKER_SWETH( 22, 1) = 0.102663E+01
+PKER_SWETH( 22, 2) = 0.100132E+01
+PKER_SWETH( 22, 3) = 0.976458E+00
+PKER_SWETH( 22, 4) = 0.952032E+00
+PKER_SWETH( 22, 5) = 0.928038E+00
+PKER_SWETH( 22, 6) = 0.904466E+00
+PKER_SWETH( 22, 7) = 0.881308E+00
+PKER_SWETH( 22, 8) = 0.858556E+00
+PKER_SWETH( 22, 9) = 0.836203E+00
+PKER_SWETH( 22, 10) = 0.814241E+00
+PKER_SWETH( 22, 11) = 0.792663E+00
+PKER_SWETH( 22, 12) = 0.771460E+00
+PKER_SWETH( 22, 13) = 0.750626E+00
+PKER_SWETH( 22, 14) = 0.730153E+00
+PKER_SWETH( 22, 15) = 0.710034E+00
+PKER_SWETH( 22, 16) = 0.690262E+00
+PKER_SWETH( 22, 17) = 0.670830E+00
+PKER_SWETH( 22, 18) = 0.651731E+00
+PKER_SWETH( 22, 19) = 0.632959E+00
+PKER_SWETH( 22, 20) = 0.614506E+00
+PKER_SWETH( 22, 21) = 0.596367E+00
+PKER_SWETH( 22, 22) = 0.578533E+00
+PKER_SWETH( 22, 23) = 0.561001E+00
+PKER_SWETH( 22, 24) = 0.543762E+00
+PKER_SWETH( 22, 25) = 0.526811E+00
+PKER_SWETH( 22, 26) = 0.510142E+00
+PKER_SWETH( 22, 27) = 0.493749E+00
+PKER_SWETH( 22, 28) = 0.477627E+00
+PKER_SWETH( 22, 29) = 0.461770E+00
+PKER_SWETH( 22, 30) = 0.446173E+00
+PKER_SWETH( 22, 31) = 0.430831E+00
+PKER_SWETH( 22, 32) = 0.415740E+00
+PKER_SWETH( 22, 33) = 0.400897E+00
+PKER_SWETH( 22, 34) = 0.386297E+00
+PKER_SWETH( 22, 35) = 0.371937E+00
+PKER_SWETH( 22, 36) = 0.357817E+00
+PKER_SWETH( 22, 37) = 0.343935E+00
+PKER_SWETH( 22, 38) = 0.330290E+00
+PKER_SWETH( 22, 39) = 0.316883E+00
+PKER_SWETH( 22, 40) = 0.303717E+00
+PKER_SWETH( 22, 41) = 0.290794E+00
+PKER_SWETH( 22, 42) = 0.278119E+00
+PKER_SWETH( 22, 43) = 0.265701E+00
+PKER_SWETH( 22, 44) = 0.253545E+00
+PKER_SWETH( 22, 45) = 0.241666E+00
+PKER_SWETH( 22, 46) = 0.230076E+00
+PKER_SWETH( 22, 47) = 0.218781E+00
+PKER_SWETH( 22, 48) = 0.207801E+00
+PKER_SWETH( 22, 49) = 0.197160E+00
+PKER_SWETH( 22, 50) = 0.186874E+00
+PKER_SWETH( 22, 51) = 0.176967E+00
+PKER_SWETH( 22, 52) = 0.167468E+00
+PKER_SWETH( 22, 53) = 0.158380E+00
+PKER_SWETH( 22, 54) = 0.149743E+00
+PKER_SWETH( 22, 55) = 0.141595E+00
+PKER_SWETH( 22, 56) = 0.133952E+00
+PKER_SWETH( 22, 57) = 0.126819E+00
+PKER_SWETH( 22, 58) = 0.120271E+00
+PKER_SWETH( 22, 59) = 0.114272E+00
+PKER_SWETH( 22, 60) = 0.108900E+00
+PKER_SWETH( 22, 61) = 0.104131E+00
+PKER_SWETH( 22, 62) = 0.100005E+00
+PKER_SWETH( 22, 63) = 0.964858E-01
+PKER_SWETH( 22, 64) = 0.936678E-01
+PKER_SWETH( 22, 65) = 0.914899E-01
+PKER_SWETH( 22, 66) = 0.899213E-01
+PKER_SWETH( 22, 67) = 0.890466E-01
+PKER_SWETH( 22, 68) = 0.887838E-01
+PKER_SWETH( 22, 69) = 0.890992E-01
+PKER_SWETH( 22, 70) = 0.900517E-01
+PKER_SWETH( 22, 71) = 0.914975E-01
+PKER_SWETH( 22, 72) = 0.935371E-01
+PKER_SWETH( 22, 73) = 0.960107E-01
+PKER_SWETH( 22, 74) = 0.989769E-01
+PKER_SWETH( 22, 75) = 0.102335E+00
+PKER_SWETH( 22, 76) = 0.106056E+00
+PKER_SWETH( 22, 77) = 0.110140E+00
+PKER_SWETH( 22, 78) = 0.114479E+00
+PKER_SWETH( 22, 79) = 0.119089E+00
+PKER_SWETH( 22, 80) = 0.123906E+00
+PKER_SWETH( 23, 1) = 0.107990E+01
+PKER_SWETH( 23, 2) = 0.105462E+01
+PKER_SWETH( 23, 3) = 0.102978E+01
+PKER_SWETH( 23, 4) = 0.100538E+01
+PKER_SWETH( 23, 5) = 0.981410E+00
+PKER_SWETH( 23, 6) = 0.957867E+00
+PKER_SWETH( 23, 7) = 0.934739E+00
+PKER_SWETH( 23, 8) = 0.912020E+00
+PKER_SWETH( 23, 9) = 0.889701E+00
+PKER_SWETH( 23, 10) = 0.867775E+00
+PKER_SWETH( 23, 11) = 0.846234E+00
+PKER_SWETH( 23, 12) = 0.825072E+00
+PKER_SWETH( 23, 13) = 0.804280E+00
+PKER_SWETH( 23, 14) = 0.783852E+00
+PKER_SWETH( 23, 15) = 0.763780E+00
+PKER_SWETH( 23, 16) = 0.744058E+00
+PKER_SWETH( 23, 17) = 0.724679E+00
+PKER_SWETH( 23, 18) = 0.705635E+00
+PKER_SWETH( 23, 19) = 0.686921E+00
+PKER_SWETH( 23, 20) = 0.668530E+00
+PKER_SWETH( 23, 21) = 0.650455E+00
+PKER_SWETH( 23, 22) = 0.632690E+00
+PKER_SWETH( 23, 23) = 0.615228E+00
+PKER_SWETH( 23, 24) = 0.598063E+00
+PKER_SWETH( 23, 25) = 0.581189E+00
+PKER_SWETH( 23, 26) = 0.564600E+00
+PKER_SWETH( 23, 27) = 0.548291E+00
+PKER_SWETH( 23, 28) = 0.532254E+00
+PKER_SWETH( 23, 29) = 0.516484E+00
+PKER_SWETH( 23, 30) = 0.500975E+00
+PKER_SWETH( 23, 31) = 0.485722E+00
+PKER_SWETH( 23, 32) = 0.470719E+00
+PKER_SWETH( 23, 33) = 0.455961E+00
+PKER_SWETH( 23, 34) = 0.441442E+00
+PKER_SWETH( 23, 35) = 0.427157E+00
+PKER_SWETH( 23, 36) = 0.413102E+00
+PKER_SWETH( 23, 37) = 0.399271E+00
+PKER_SWETH( 23, 38) = 0.385660E+00
+PKER_SWETH( 23, 39) = 0.372266E+00
+PKER_SWETH( 23, 40) = 0.359083E+00
+PKER_SWETH( 23, 41) = 0.346109E+00
+PKER_SWETH( 23, 42) = 0.333342E+00
+PKER_SWETH( 23, 43) = 0.320779E+00
+PKER_SWETH( 23, 44) = 0.308419E+00
+PKER_SWETH( 23, 45) = 0.296260E+00
+PKER_SWETH( 23, 46) = 0.284304E+00
+PKER_SWETH( 23, 47) = 0.272552E+00
+PKER_SWETH( 23, 48) = 0.261008E+00
+PKER_SWETH( 23, 49) = 0.249673E+00
+PKER_SWETH( 23, 50) = 0.238558E+00
+PKER_SWETH( 23, 51) = 0.227666E+00
+PKER_SWETH( 23, 52) = 0.217005E+00
+PKER_SWETH( 23, 53) = 0.206592E+00
+PKER_SWETH( 23, 54) = 0.196433E+00
+PKER_SWETH( 23, 55) = 0.186542E+00
+PKER_SWETH( 23, 56) = 0.176949E+00
+PKER_SWETH( 23, 57) = 0.167658E+00
+PKER_SWETH( 23, 58) = 0.158695E+00
+PKER_SWETH( 23, 59) = 0.150084E+00
+PKER_SWETH( 23, 60) = 0.141842E+00
+PKER_SWETH( 23, 61) = 0.133987E+00
+PKER_SWETH( 23, 62) = 0.126571E+00
+PKER_SWETH( 23, 63) = 0.119594E+00
+PKER_SWETH( 23, 64) = 0.113074E+00
+PKER_SWETH( 23, 65) = 0.107064E+00
+PKER_SWETH( 23, 66) = 0.101564E+00
+PKER_SWETH( 23, 67) = 0.965908E-01
+PKER_SWETH( 23, 68) = 0.921795E-01
+PKER_SWETH( 23, 69) = 0.883094E-01
+PKER_SWETH( 23, 70) = 0.850275E-01
+PKER_SWETH( 23, 71) = 0.823296E-01
+PKER_SWETH( 23, 72) = 0.802259E-01
+PKER_SWETH( 23, 73) = 0.786679E-01
+PKER_SWETH( 23, 74) = 0.776773E-01
+PKER_SWETH( 23, 75) = 0.772834E-01
+PKER_SWETH( 23, 76) = 0.773610E-01
+PKER_SWETH( 23, 77) = 0.780159E-01
+PKER_SWETH( 23, 78) = 0.791291E-01
+PKER_SWETH( 23, 79) = 0.807063E-01
+PKER_SWETH( 23, 80) = 0.827160E-01
+PKER_SWETH( 24, 1) = 0.112566E+01
+PKER_SWETH( 24, 2) = 0.110039E+01
+PKER_SWETH( 24, 3) = 0.107557E+01
+PKER_SWETH( 24, 4) = 0.105119E+01
+PKER_SWETH( 24, 5) = 0.102724E+01
+PKER_SWETH( 24, 6) = 0.100372E+01
+PKER_SWETH( 24, 7) = 0.980613E+00
+PKER_SWETH( 24, 8) = 0.957918E+00
+PKER_SWETH( 24, 9) = 0.935625E+00
+PKER_SWETH( 24, 10) = 0.913725E+00
+PKER_SWETH( 24, 11) = 0.892213E+00
+PKER_SWETH( 24, 12) = 0.871080E+00
+PKER_SWETH( 24, 13) = 0.850320E+00
+PKER_SWETH( 24, 14) = 0.829925E+00
+PKER_SWETH( 24, 15) = 0.809889E+00
+PKER_SWETH( 24, 16) = 0.790204E+00
+PKER_SWETH( 24, 17) = 0.770864E+00
+PKER_SWETH( 24, 18) = 0.751863E+00
+PKER_SWETH( 24, 19) = 0.733193E+00
+PKER_SWETH( 24, 20) = 0.714848E+00
+PKER_SWETH( 24, 21) = 0.696822E+00
+PKER_SWETH( 24, 22) = 0.679108E+00
+PKER_SWETH( 24, 23) = 0.661701E+00
+PKER_SWETH( 24, 24) = 0.644593E+00
+PKER_SWETH( 24, 25) = 0.627780E+00
+PKER_SWETH( 24, 26) = 0.611255E+00
+PKER_SWETH( 24, 27) = 0.595013E+00
+PKER_SWETH( 24, 28) = 0.579046E+00
+PKER_SWETH( 24, 29) = 0.563350E+00
+PKER_SWETH( 24, 30) = 0.547920E+00
+PKER_SWETH( 24, 31) = 0.532748E+00
+PKER_SWETH( 24, 32) = 0.517830E+00
+PKER_SWETH( 24, 33) = 0.503161E+00
+PKER_SWETH( 24, 34) = 0.488734E+00
+PKER_SWETH( 24, 35) = 0.474545E+00
+PKER_SWETH( 24, 36) = 0.460588E+00
+PKER_SWETH( 24, 37) = 0.446858E+00
+PKER_SWETH( 24, 38) = 0.433349E+00
+PKER_SWETH( 24, 39) = 0.420058E+00
+PKER_SWETH( 24, 40) = 0.406978E+00
+PKER_SWETH( 24, 41) = 0.394105E+00
+PKER_SWETH( 24, 42) = 0.381435E+00
+PKER_SWETH( 24, 43) = 0.368962E+00
+PKER_SWETH( 24, 44) = 0.356683E+00
+PKER_SWETH( 24, 45) = 0.344594E+00
+PKER_SWETH( 24, 46) = 0.332690E+00
+PKER_SWETH( 24, 47) = 0.320968E+00
+PKER_SWETH( 24, 48) = 0.309426E+00
+PKER_SWETH( 24, 49) = 0.298060E+00
+PKER_SWETH( 24, 50) = 0.286869E+00
+PKER_SWETH( 24, 51) = 0.275851E+00
+PKER_SWETH( 24, 52) = 0.265006E+00
+PKER_SWETH( 24, 53) = 0.254333E+00
+PKER_SWETH( 24, 54) = 0.243837E+00
+PKER_SWETH( 24, 55) = 0.233517E+00
+PKER_SWETH( 24, 56) = 0.223377E+00
+PKER_SWETH( 24, 57) = 0.213423E+00
+PKER_SWETH( 24, 58) = 0.203662E+00
+PKER_SWETH( 24, 59) = 0.194100E+00
+PKER_SWETH( 24, 60) = 0.184752E+00
+PKER_SWETH( 24, 61) = 0.175626E+00
+PKER_SWETH( 24, 62) = 0.166732E+00
+PKER_SWETH( 24, 63) = 0.158096E+00
+PKER_SWETH( 24, 64) = 0.149729E+00
+PKER_SWETH( 24, 65) = 0.141646E+00
+PKER_SWETH( 24, 66) = 0.133870E+00
+PKER_SWETH( 24, 67) = 0.126426E+00
+PKER_SWETH( 24, 68) = 0.119323E+00
+PKER_SWETH( 24, 69) = 0.112607E+00
+PKER_SWETH( 24, 70) = 0.106286E+00
+PKER_SWETH( 24, 71) = 0.100373E+00
+PKER_SWETH( 24, 72) = 0.949018E-01
+PKER_SWETH( 24, 73) = 0.898940E-01
+PKER_SWETH( 24, 74) = 0.853452E-01
+PKER_SWETH( 24, 75) = 0.813000E-01
+PKER_SWETH( 24, 76) = 0.777455E-01
+PKER_SWETH( 24, 77) = 0.747052E-01
+PKER_SWETH( 24, 78) = 0.721768E-01
+PKER_SWETH( 24, 79) = 0.701599E-01
+PKER_SWETH( 24, 80) = 0.686415E-01
+PKER_SWETH( 25, 1) = 0.116497E+01
+PKER_SWETH( 25, 2) = 0.113971E+01
+PKER_SWETH( 25, 3) = 0.111490E+01
+PKER_SWETH( 25, 4) = 0.109053E+01
+PKER_SWETH( 25, 5) = 0.106660E+01
+PKER_SWETH( 25, 6) = 0.104310E+01
+PKER_SWETH( 25, 7) = 0.102001E+01
+PKER_SWETH( 25, 8) = 0.997330E+00
+PKER_SWETH( 25, 9) = 0.975056E+00
+PKER_SWETH( 25, 10) = 0.953177E+00
+PKER_SWETH( 25, 11) = 0.931686E+00
+PKER_SWETH( 25, 12) = 0.910575E+00
+PKER_SWETH( 25, 13) = 0.889839E+00
+PKER_SWETH( 25, 14) = 0.869469E+00
+PKER_SWETH( 25, 15) = 0.849459E+00
+PKER_SWETH( 25, 16) = 0.829802E+00
+PKER_SWETH( 25, 17) = 0.810491E+00
+PKER_SWETH( 25, 18) = 0.791520E+00
+PKER_SWETH( 25, 19) = 0.772883E+00
+PKER_SWETH( 25, 20) = 0.754573E+00
+PKER_SWETH( 25, 21) = 0.736583E+00
+PKER_SWETH( 25, 22) = 0.718908E+00
+PKER_SWETH( 25, 23) = 0.701542E+00
+PKER_SWETH( 25, 24) = 0.684477E+00
+PKER_SWETH( 25, 25) = 0.667710E+00
+PKER_SWETH( 25, 26) = 0.651233E+00
+PKER_SWETH( 25, 27) = 0.635041E+00
+PKER_SWETH( 25, 28) = 0.619128E+00
+PKER_SWETH( 25, 29) = 0.603489E+00
+PKER_SWETH( 25, 30) = 0.588117E+00
+PKER_SWETH( 25, 31) = 0.573008E+00
+PKER_SWETH( 25, 32) = 0.558157E+00
+PKER_SWETH( 25, 33) = 0.543557E+00
+PKER_SWETH( 25, 34) = 0.529203E+00
+PKER_SWETH( 25, 35) = 0.515090E+00
+PKER_SWETH( 25, 36) = 0.501214E+00
+PKER_SWETH( 25, 37) = 0.487568E+00
+PKER_SWETH( 25, 38) = 0.474149E+00
+PKER_SWETH( 25, 39) = 0.460950E+00
+PKER_SWETH( 25, 40) = 0.447967E+00
+PKER_SWETH( 25, 41) = 0.435194E+00
+PKER_SWETH( 25, 42) = 0.422628E+00
+PKER_SWETH( 25, 43) = 0.410264E+00
+PKER_SWETH( 25, 44) = 0.398095E+00
+PKER_SWETH( 25, 45) = 0.386119E+00
+PKER_SWETH( 25, 46) = 0.374331E+00
+PKER_SWETH( 25, 47) = 0.362725E+00
+PKER_SWETH( 25, 48) = 0.351298E+00
+PKER_SWETH( 25, 49) = 0.340046E+00
+PKER_SWETH( 25, 50) = 0.328963E+00
+PKER_SWETH( 25, 51) = 0.318048E+00
+PKER_SWETH( 25, 52) = 0.307296E+00
+PKER_SWETH( 25, 53) = 0.296703E+00
+PKER_SWETH( 25, 54) = 0.286267E+00
+PKER_SWETH( 25, 55) = 0.275984E+00
+PKER_SWETH( 25, 56) = 0.265854E+00
+PKER_SWETH( 25, 57) = 0.255873E+00
+PKER_SWETH( 25, 58) = 0.246042E+00
+PKER_SWETH( 25, 59) = 0.236359E+00
+PKER_SWETH( 25, 60) = 0.226825E+00
+PKER_SWETH( 25, 61) = 0.217443E+00
+PKER_SWETH( 25, 62) = 0.208213E+00
+PKER_SWETH( 25, 63) = 0.199139E+00
+PKER_SWETH( 25, 64) = 0.190227E+00
+PKER_SWETH( 25, 65) = 0.181484E+00
+PKER_SWETH( 25, 66) = 0.172917E+00
+PKER_SWETH( 25, 67) = 0.164534E+00
+PKER_SWETH( 25, 68) = 0.156348E+00
+PKER_SWETH( 25, 69) = 0.148370E+00
+PKER_SWETH( 25, 70) = 0.140618E+00
+PKER_SWETH( 25, 71) = 0.133107E+00
+PKER_SWETH( 25, 72) = 0.125845E+00
+PKER_SWETH( 25, 73) = 0.118858E+00
+PKER_SWETH( 25, 74) = 0.112169E+00
+PKER_SWETH( 25, 75) = 0.105791E+00
+PKER_SWETH( 25, 76) = 0.997470E-01
+PKER_SWETH( 25, 77) = 0.940613E-01
+PKER_SWETH( 25, 78) = 0.887330E-01
+PKER_SWETH( 25, 79) = 0.837961E-01
+PKER_SWETH( 25, 80) = 0.792734E-01
+PKER_SWETH( 26, 1) = 0.119873E+01
+PKER_SWETH( 26, 2) = 0.117349E+01
+PKER_SWETH( 26, 3) = 0.114869E+01
+PKER_SWETH( 26, 4) = 0.112433E+01
+PKER_SWETH( 26, 5) = 0.110041E+01
+PKER_SWETH( 26, 6) = 0.107692E+01
+PKER_SWETH( 26, 7) = 0.105384E+01
+PKER_SWETH( 26, 8) = 0.103118E+01
+PKER_SWETH( 26, 9) = 0.100892E+01
+PKER_SWETH( 26, 10) = 0.987055E+00
+PKER_SWETH( 26, 11) = 0.965579E+00
+PKER_SWETH( 26, 12) = 0.944486E+00
+PKER_SWETH( 26, 13) = 0.923767E+00
+PKER_SWETH( 26, 14) = 0.903416E+00
+PKER_SWETH( 26, 15) = 0.883425E+00
+PKER_SWETH( 26, 16) = 0.863789E+00
+PKER_SWETH( 26, 17) = 0.844501E+00
+PKER_SWETH( 26, 18) = 0.825553E+00
+PKER_SWETH( 26, 19) = 0.806940E+00
+PKER_SWETH( 26, 20) = 0.788656E+00
+PKER_SWETH( 26, 21) = 0.770694E+00
+PKER_SWETH( 26, 22) = 0.753048E+00
+PKER_SWETH( 26, 23) = 0.735711E+00
+PKER_SWETH( 26, 24) = 0.718680E+00
+PKER_SWETH( 26, 25) = 0.701946E+00
+PKER_SWETH( 26, 26) = 0.685505E+00
+PKER_SWETH( 26, 27) = 0.669351E+00
+PKER_SWETH( 26, 28) = 0.653478E+00
+PKER_SWETH( 26, 29) = 0.637881E+00
+PKER_SWETH( 26, 30) = 0.622554E+00
+PKER_SWETH( 26, 31) = 0.607492E+00
+PKER_SWETH( 26, 32) = 0.592690E+00
+PKER_SWETH( 26, 33) = 0.578142E+00
+PKER_SWETH( 26, 34) = 0.563843E+00
+PKER_SWETH( 26, 35) = 0.549789E+00
+PKER_SWETH( 26, 36) = 0.535974E+00
+PKER_SWETH( 26, 37) = 0.522393E+00
+PKER_SWETH( 26, 38) = 0.509041E+00
+PKER_SWETH( 26, 39) = 0.495913E+00
+PKER_SWETH( 26, 40) = 0.483005E+00
+PKER_SWETH( 26, 41) = 0.470312E+00
+PKER_SWETH( 26, 42) = 0.457829E+00
+PKER_SWETH( 26, 43) = 0.445551E+00
+PKER_SWETH( 26, 44) = 0.433474E+00
+PKER_SWETH( 26, 45) = 0.421594E+00
+PKER_SWETH( 26, 46) = 0.409904E+00
+PKER_SWETH( 26, 47) = 0.398403E+00
+PKER_SWETH( 26, 48) = 0.387084E+00
+PKER_SWETH( 26, 49) = 0.375943E+00
+PKER_SWETH( 26, 50) = 0.364977E+00
+PKER_SWETH( 26, 51) = 0.354180E+00
+PKER_SWETH( 26, 52) = 0.343550E+00
+PKER_SWETH( 26, 53) = 0.333081E+00
+PKER_SWETH( 26, 54) = 0.322770E+00
+PKER_SWETH( 26, 55) = 0.312613E+00
+PKER_SWETH( 26, 56) = 0.302607E+00
+PKER_SWETH( 26, 57) = 0.292747E+00
+PKER_SWETH( 26, 58) = 0.283031E+00
+PKER_SWETH( 26, 59) = 0.273455E+00
+PKER_SWETH( 26, 60) = 0.264017E+00
+PKER_SWETH( 26, 61) = 0.254714E+00
+PKER_SWETH( 26, 62) = 0.245543E+00
+PKER_SWETH( 26, 63) = 0.236504E+00
+PKER_SWETH( 26, 64) = 0.227595E+00
+PKER_SWETH( 26, 65) = 0.218815E+00
+PKER_SWETH( 26, 66) = 0.210165E+00
+PKER_SWETH( 26, 67) = 0.201645E+00
+PKER_SWETH( 26, 68) = 0.193258E+00
+PKER_SWETH( 26, 69) = 0.185005E+00
+PKER_SWETH( 26, 70) = 0.176890E+00
+PKER_SWETH( 26, 71) = 0.168918E+00
+PKER_SWETH( 26, 72) = 0.161097E+00
+PKER_SWETH( 26, 73) = 0.153434E+00
+PKER_SWETH( 26, 74) = 0.145935E+00
+PKER_SWETH( 26, 75) = 0.138615E+00
+PKER_SWETH( 26, 76) = 0.131483E+00
+PKER_SWETH( 26, 77) = 0.124550E+00
+PKER_SWETH( 26, 78) = 0.117835E+00
+PKER_SWETH( 26, 79) = 0.111348E+00
+PKER_SWETH( 26, 80) = 0.105104E+00
+PKER_SWETH( 27, 1) = 0.122775E+01
+PKER_SWETH( 27, 2) = 0.120251E+01
+PKER_SWETH( 27, 3) = 0.117772E+01
+PKER_SWETH( 27, 4) = 0.115337E+01
+PKER_SWETH( 27, 5) = 0.112946E+01
+PKER_SWETH( 27, 6) = 0.110597E+01
+PKER_SWETH( 27, 7) = 0.108291E+01
+PKER_SWETH( 27, 8) = 0.106025E+01
+PKER_SWETH( 27, 9) = 0.103800E+01
+PKER_SWETH( 27, 10) = 0.101615E+01
+PKER_SWETH( 27, 11) = 0.994689E+00
+PKER_SWETH( 27, 12) = 0.973608E+00
+PKER_SWETH( 27, 13) = 0.952902E+00
+PKER_SWETH( 27, 14) = 0.932565E+00
+PKER_SWETH( 27, 15) = 0.912589E+00
+PKER_SWETH( 27, 16) = 0.892969E+00
+PKER_SWETH( 27, 17) = 0.873697E+00
+PKER_SWETH( 27, 18) = 0.854767E+00
+PKER_SWETH( 27, 19) = 0.836172E+00
+PKER_SWETH( 27, 20) = 0.817907E+00
+PKER_SWETH( 27, 21) = 0.799966E+00
+PKER_SWETH( 27, 22) = 0.782341E+00
+PKER_SWETH( 27, 23) = 0.765028E+00
+PKER_SWETH( 27, 24) = 0.748020E+00
+PKER_SWETH( 27, 25) = 0.731312E+00
+PKER_SWETH( 27, 26) = 0.714898E+00
+PKER_SWETH( 27, 27) = 0.698772E+00
+PKER_SWETH( 27, 28) = 0.682929E+00
+PKER_SWETH( 27, 29) = 0.667364E+00
+PKER_SWETH( 27, 30) = 0.652070E+00
+PKER_SWETH( 27, 31) = 0.637043E+00
+PKER_SWETH( 27, 32) = 0.622278E+00
+PKER_SWETH( 27, 33) = 0.607770E+00
+PKER_SWETH( 27, 34) = 0.593513E+00
+PKER_SWETH( 27, 35) = 0.579502E+00
+PKER_SWETH( 27, 36) = 0.565733E+00
+PKER_SWETH( 27, 37) = 0.552200E+00
+PKER_SWETH( 27, 38) = 0.538900E+00
+PKER_SWETH( 27, 39) = 0.525826E+00
+PKER_SWETH( 27, 40) = 0.512975E+00
+PKER_SWETH( 27, 41) = 0.500341E+00
+PKER_SWETH( 27, 42) = 0.487921E+00
+PKER_SWETH( 27, 43) = 0.475710E+00
+PKER_SWETH( 27, 44) = 0.463702E+00
+PKER_SWETH( 27, 45) = 0.451895E+00
+PKER_SWETH( 27, 46) = 0.440282E+00
+PKER_SWETH( 27, 47) = 0.428861E+00
+PKER_SWETH( 27, 48) = 0.417627E+00
+PKER_SWETH( 27, 49) = 0.406575E+00
+PKER_SWETH( 27, 50) = 0.395702E+00
+PKER_SWETH( 27, 51) = 0.385002E+00
+PKER_SWETH( 27, 52) = 0.374473E+00
+PKER_SWETH( 27, 53) = 0.364110E+00
+PKER_SWETH( 27, 54) = 0.353909E+00
+PKER_SWETH( 27, 55) = 0.343866E+00
+PKER_SWETH( 27, 56) = 0.333978E+00
+PKER_SWETH( 27, 57) = 0.324240E+00
+PKER_SWETH( 27, 58) = 0.314648E+00
+PKER_SWETH( 27, 59) = 0.305200E+00
+PKER_SWETH( 27, 60) = 0.295891E+00
+PKER_SWETH( 27, 61) = 0.286718E+00
+PKER_SWETH( 27, 62) = 0.277679E+00
+PKER_SWETH( 27, 63) = 0.268769E+00
+PKER_SWETH( 27, 64) = 0.259985E+00
+PKER_SWETH( 27, 65) = 0.251326E+00
+PKER_SWETH( 27, 66) = 0.242788E+00
+PKER_SWETH( 27, 67) = 0.234370E+00
+PKER_SWETH( 27, 68) = 0.226069E+00
+PKER_SWETH( 27, 69) = 0.217884E+00
+PKER_SWETH( 27, 70) = 0.209814E+00
+PKER_SWETH( 27, 71) = 0.201858E+00
+PKER_SWETH( 27, 72) = 0.194016E+00
+PKER_SWETH( 27, 73) = 0.186289E+00
+PKER_SWETH( 27, 74) = 0.178679E+00
+PKER_SWETH( 27, 75) = 0.171186E+00
+PKER_SWETH( 27, 76) = 0.163816E+00
+PKER_SWETH( 27, 77) = 0.156570E+00
+PKER_SWETH( 27, 78) = 0.149455E+00
+PKER_SWETH( 27, 79) = 0.142478E+00
+PKER_SWETH( 27, 80) = 0.135643E+00
+PKER_SWETH( 28, 1) = 0.125268E+01
+PKER_SWETH( 28, 2) = 0.122744E+01
+PKER_SWETH( 28, 3) = 0.120266E+01
+PKER_SWETH( 28, 4) = 0.117832E+01
+PKER_SWETH( 28, 5) = 0.115441E+01
+PKER_SWETH( 28, 6) = 0.113094E+01
+PKER_SWETH( 28, 7) = 0.110788E+01
+PKER_SWETH( 28, 8) = 0.108523E+01
+PKER_SWETH( 28, 9) = 0.106299E+01
+PKER_SWETH( 28, 10) = 0.104115E+01
+PKER_SWETH( 28, 11) = 0.101969E+01
+PKER_SWETH( 28, 12) = 0.998621E+00
+PKER_SWETH( 28, 13) = 0.977925E+00
+PKER_SWETH( 28, 14) = 0.957598E+00
+PKER_SWETH( 28, 15) = 0.937634E+00
+PKER_SWETH( 28, 16) = 0.918026E+00
+PKER_SWETH( 28, 17) = 0.898766E+00
+PKER_SWETH( 28, 18) = 0.879849E+00
+PKER_SWETH( 28, 19) = 0.861269E+00
+PKER_SWETH( 28, 20) = 0.843018E+00
+PKER_SWETH( 28, 21) = 0.825092E+00
+PKER_SWETH( 28, 22) = 0.807484E+00
+PKER_SWETH( 28, 23) = 0.790188E+00
+PKER_SWETH( 28, 24) = 0.773198E+00
+PKER_SWETH( 28, 25) = 0.756509E+00
+PKER_SWETH( 28, 26) = 0.740115E+00
+PKER_SWETH( 28, 27) = 0.724011E+00
+PKER_SWETH( 28, 28) = 0.708190E+00
+PKER_SWETH( 28, 29) = 0.692649E+00
+PKER_SWETH( 28, 30) = 0.677380E+00
+PKER_SWETH( 28, 31) = 0.662380E+00
+PKER_SWETH( 28, 32) = 0.647643E+00
+PKER_SWETH( 28, 33) = 0.633164E+00
+PKER_SWETH( 28, 34) = 0.618938E+00
+PKER_SWETH( 28, 35) = 0.604960E+00
+PKER_SWETH( 28, 36) = 0.591226E+00
+PKER_SWETH( 28, 37) = 0.577729E+00
+PKER_SWETH( 28, 38) = 0.564467E+00
+PKER_SWETH( 28, 39) = 0.551434E+00
+PKER_SWETH( 28, 40) = 0.538626E+00
+PKER_SWETH( 28, 41) = 0.526037E+00
+PKER_SWETH( 28, 42) = 0.513665E+00
+PKER_SWETH( 28, 43) = 0.501503E+00
+PKER_SWETH( 28, 44) = 0.489548E+00
+PKER_SWETH( 28, 45) = 0.477796E+00
+PKER_SWETH( 28, 46) = 0.466242E+00
+PKER_SWETH( 28, 47) = 0.454882E+00
+PKER_SWETH( 28, 48) = 0.443713E+00
+PKER_SWETH( 28, 49) = 0.432729E+00
+PKER_SWETH( 28, 50) = 0.421926E+00
+PKER_SWETH( 28, 51) = 0.411302E+00
+PKER_SWETH( 28, 52) = 0.400851E+00
+PKER_SWETH( 28, 53) = 0.390570E+00
+PKER_SWETH( 28, 54) = 0.380455E+00
+PKER_SWETH( 28, 55) = 0.370502E+00
+PKER_SWETH( 28, 56) = 0.360708E+00
+PKER_SWETH( 28, 57) = 0.351068E+00
+PKER_SWETH( 28, 58) = 0.341578E+00
+PKER_SWETH( 28, 59) = 0.332236E+00
+PKER_SWETH( 28, 60) = 0.323038E+00
+PKER_SWETH( 28, 61) = 0.313980E+00
+PKER_SWETH( 28, 62) = 0.305058E+00
+PKER_SWETH( 28, 63) = 0.296269E+00
+PKER_SWETH( 28, 64) = 0.287611E+00
+PKER_SWETH( 28, 65) = 0.279079E+00
+PKER_SWETH( 28, 66) = 0.270670E+00
+PKER_SWETH( 28, 67) = 0.262382E+00
+PKER_SWETH( 28, 68) = 0.254212E+00
+PKER_SWETH( 28, 69) = 0.246157E+00
+PKER_SWETH( 28, 70) = 0.238215E+00
+PKER_SWETH( 28, 71) = 0.230382E+00
+PKER_SWETH( 28, 72) = 0.222658E+00
+PKER_SWETH( 28, 73) = 0.215040E+00
+PKER_SWETH( 28, 74) = 0.207527E+00
+PKER_SWETH( 28, 75) = 0.200118E+00
+PKER_SWETH( 28, 76) = 0.192811E+00
+PKER_SWETH( 28, 77) = 0.185607E+00
+PKER_SWETH( 28, 78) = 0.178506E+00
+PKER_SWETH( 28, 79) = 0.171508E+00
+PKER_SWETH( 28, 80) = 0.164614E+00
+PKER_SWETH( 29, 1) = 0.127410E+01
+PKER_SWETH( 29, 2) = 0.124887E+01
+PKER_SWETH( 29, 3) = 0.122409E+01
+PKER_SWETH( 29, 4) = 0.119976E+01
+PKER_SWETH( 29, 5) = 0.117586E+01
+PKER_SWETH( 29, 6) = 0.115238E+01
+PKER_SWETH( 29, 7) = 0.112933E+01
+PKER_SWETH( 29, 8) = 0.110669E+01
+PKER_SWETH( 29, 9) = 0.108446E+01
+PKER_SWETH( 29, 10) = 0.106262E+01
+PKER_SWETH( 29, 11) = 0.104117E+01
+PKER_SWETH( 29, 12) = 0.102011E+01
+PKER_SWETH( 29, 13) = 0.999419E+00
+PKER_SWETH( 29, 14) = 0.979101E+00
+PKER_SWETH( 29, 15) = 0.959145E+00
+PKER_SWETH( 29, 16) = 0.939546E+00
+PKER_SWETH( 29, 17) = 0.920295E+00
+PKER_SWETH( 29, 18) = 0.901389E+00
+PKER_SWETH( 29, 19) = 0.882819E+00
+PKER_SWETH( 29, 20) = 0.864579E+00
+PKER_SWETH( 29, 21) = 0.846665E+00
+PKER_SWETH( 29, 22) = 0.829069E+00
+PKER_SWETH( 29, 23) = 0.811786E+00
+PKER_SWETH( 29, 24) = 0.794810E+00
+PKER_SWETH( 29, 25) = 0.778136E+00
+PKER_SWETH( 29, 26) = 0.761757E+00
+PKER_SWETH( 29, 27) = 0.745669E+00
+PKER_SWETH( 29, 28) = 0.729865E+00
+PKER_SWETH( 29, 29) = 0.714342E+00
+PKER_SWETH( 29, 30) = 0.699092E+00
+PKER_SWETH( 29, 31) = 0.684112E+00
+PKER_SWETH( 29, 32) = 0.669396E+00
+PKER_SWETH( 29, 33) = 0.654939E+00
+PKER_SWETH( 29, 34) = 0.640737E+00
+PKER_SWETH( 29, 35) = 0.626783E+00
+PKER_SWETH( 29, 36) = 0.613075E+00
+PKER_SWETH( 29, 37) = 0.599606E+00
+PKER_SWETH( 29, 38) = 0.586373E+00
+PKER_SWETH( 29, 39) = 0.573371E+00
+PKER_SWETH( 29, 40) = 0.560594E+00
+PKER_SWETH( 29, 41) = 0.548040E+00
+PKER_SWETH( 29, 42) = 0.535703E+00
+PKER_SWETH( 29, 43) = 0.523579E+00
+PKER_SWETH( 29, 44) = 0.511664E+00
+PKER_SWETH( 29, 45) = 0.499954E+00
+PKER_SWETH( 29, 46) = 0.488444E+00
+PKER_SWETH( 29, 47) = 0.477131E+00
+PKER_SWETH( 29, 48) = 0.466010E+00
+PKER_SWETH( 29, 49) = 0.455077E+00
+PKER_SWETH( 29, 50) = 0.444329E+00
+PKER_SWETH( 29, 51) = 0.433762E+00
+PKER_SWETH( 29, 52) = 0.423371E+00
+PKER_SWETH( 29, 53) = 0.413152E+00
+PKER_SWETH( 29, 54) = 0.403103E+00
+PKER_SWETH( 29, 55) = 0.393220E+00
+PKER_SWETH( 29, 56) = 0.383498E+00
+PKER_SWETH( 29, 57) = 0.373933E+00
+PKER_SWETH( 29, 58) = 0.364524E+00
+PKER_SWETH( 29, 59) = 0.355265E+00
+PKER_SWETH( 29, 60) = 0.346153E+00
+PKER_SWETH( 29, 61) = 0.337185E+00
+PKER_SWETH( 29, 62) = 0.328358E+00
+PKER_SWETH( 29, 63) = 0.319668E+00
+PKER_SWETH( 29, 64) = 0.311111E+00
+PKER_SWETH( 29, 65) = 0.302685E+00
+PKER_SWETH( 29, 66) = 0.294386E+00
+PKER_SWETH( 29, 67) = 0.286211E+00
+PKER_SWETH( 29, 68) = 0.278157E+00
+PKER_SWETH( 29, 69) = 0.270221E+00
+PKER_SWETH( 29, 70) = 0.262400E+00
+PKER_SWETH( 29, 71) = 0.254692E+00
+PKER_SWETH( 29, 72) = 0.247093E+00
+PKER_SWETH( 29, 73) = 0.239601E+00
+PKER_SWETH( 29, 74) = 0.232215E+00
+PKER_SWETH( 29, 75) = 0.224931E+00
+PKER_SWETH( 29, 76) = 0.217747E+00
+PKER_SWETH( 29, 77) = 0.210662E+00
+PKER_SWETH( 29, 78) = 0.203675E+00
+PKER_SWETH( 29, 79) = 0.196783E+00
+PKER_SWETH( 29, 80) = 0.189986E+00
+PKER_SWETH( 30, 1) = 0.129252E+01
+PKER_SWETH( 30, 2) = 0.126729E+01
+PKER_SWETH( 30, 3) = 0.124251E+01
+PKER_SWETH( 30, 4) = 0.121818E+01
+PKER_SWETH( 30, 5) = 0.119428E+01
+PKER_SWETH( 30, 6) = 0.117082E+01
+PKER_SWETH( 30, 7) = 0.114777E+01
+PKER_SWETH( 30, 8) = 0.112513E+01
+PKER_SWETH( 30, 9) = 0.110290E+01
+PKER_SWETH( 30, 10) = 0.108107E+01
+PKER_SWETH( 30, 11) = 0.105963E+01
+PKER_SWETH( 30, 12) = 0.103857E+01
+PKER_SWETH( 30, 13) = 0.101789E+01
+PKER_SWETH( 30, 14) = 0.997573E+00
+PKER_SWETH( 30, 15) = 0.977623E+00
+PKER_SWETH( 30, 16) = 0.958030E+00
+PKER_SWETH( 30, 17) = 0.938788E+00
+PKER_SWETH( 30, 18) = 0.919888E+00
+PKER_SWETH( 30, 19) = 0.901326E+00
+PKER_SWETH( 30, 20) = 0.883096E+00
+PKER_SWETH( 30, 21) = 0.865190E+00
+PKER_SWETH( 30, 22) = 0.847603E+00
+PKER_SWETH( 30, 23) = 0.830330E+00
+PKER_SWETH( 30, 24) = 0.813365E+00
+PKER_SWETH( 30, 25) = 0.796701E+00
+PKER_SWETH( 30, 26) = 0.780334E+00
+PKER_SWETH( 30, 27) = 0.764258E+00
+PKER_SWETH( 30, 28) = 0.748468E+00
+PKER_SWETH( 30, 29) = 0.732958E+00
+PKER_SWETH( 30, 30) = 0.717723E+00
+PKER_SWETH( 30, 31) = 0.702758E+00
+PKER_SWETH( 30, 32) = 0.688058E+00
+PKER_SWETH( 30, 33) = 0.673618E+00
+PKER_SWETH( 30, 34) = 0.659433E+00
+PKER_SWETH( 30, 35) = 0.645498E+00
+PKER_SWETH( 30, 36) = 0.631809E+00
+PKER_SWETH( 30, 37) = 0.618362E+00
+PKER_SWETH( 30, 38) = 0.605150E+00
+PKER_SWETH( 30, 39) = 0.592171E+00
+PKER_SWETH( 30, 40) = 0.579419E+00
+PKER_SWETH( 30, 41) = 0.566891E+00
+PKER_SWETH( 30, 42) = 0.554581E+00
+PKER_SWETH( 30, 43) = 0.542485E+00
+PKER_SWETH( 30, 44) = 0.530601E+00
+PKER_SWETH( 30, 45) = 0.518922E+00
+PKER_SWETH( 30, 46) = 0.507446E+00
+PKER_SWETH( 30, 47) = 0.496168E+00
+PKER_SWETH( 30, 48) = 0.485084E+00
+PKER_SWETH( 30, 49) = 0.474190E+00
+PKER_SWETH( 30, 50) = 0.463483E+00
+PKER_SWETH( 30, 51) = 0.452959E+00
+PKER_SWETH( 30, 52) = 0.442613E+00
+PKER_SWETH( 30, 53) = 0.432443E+00
+PKER_SWETH( 30, 54) = 0.422444E+00
+PKER_SWETH( 30, 55) = 0.412613E+00
+PKER_SWETH( 30, 56) = 0.402946E+00
+PKER_SWETH( 30, 57) = 0.393440E+00
+PKER_SWETH( 30, 58) = 0.384092E+00
+PKER_SWETH( 30, 59) = 0.374897E+00
+PKER_SWETH( 30, 60) = 0.365852E+00
+PKER_SWETH( 30, 61) = 0.356955E+00
+PKER_SWETH( 30, 62) = 0.348201E+00
+PKER_SWETH( 30, 63) = 0.339587E+00
+PKER_SWETH( 30, 64) = 0.331111E+00
+PKER_SWETH( 30, 65) = 0.322768E+00
+PKER_SWETH( 30, 66) = 0.314556E+00
+PKER_SWETH( 30, 67) = 0.306471E+00
+PKER_SWETH( 30, 68) = 0.298511E+00
+PKER_SWETH( 30, 69) = 0.290673E+00
+PKER_SWETH( 30, 70) = 0.282952E+00
+PKER_SWETH( 30, 71) = 0.275348E+00
+PKER_SWETH( 30, 72) = 0.267856E+00
+PKER_SWETH( 30, 73) = 0.260475E+00
+PKER_SWETH( 30, 74) = 0.253200E+00
+PKER_SWETH( 30, 75) = 0.246031E+00
+PKER_SWETH( 30, 76) = 0.238964E+00
+PKER_SWETH( 30, 77) = 0.231997E+00
+PKER_SWETH( 30, 78) = 0.225128E+00
+PKER_SWETH( 30, 79) = 0.218354E+00
+PKER_SWETH( 30, 80) = 0.211675E+00
+PKER_SWETH( 31, 1) = 0.130834E+01
+PKER_SWETH( 31, 2) = 0.128312E+01
+PKER_SWETH( 31, 3) = 0.125834E+01
+PKER_SWETH( 31, 4) = 0.123401E+01
+PKER_SWETH( 31, 5) = 0.121012E+01
+PKER_SWETH( 31, 6) = 0.118665E+01
+PKER_SWETH( 31, 7) = 0.116361E+01
+PKER_SWETH( 31, 8) = 0.114098E+01
+PKER_SWETH( 31, 9) = 0.111875E+01
+PKER_SWETH( 31, 10) = 0.109692E+01
+PKER_SWETH( 31, 11) = 0.107548E+01
+PKER_SWETH( 31, 12) = 0.105443E+01
+PKER_SWETH( 31, 13) = 0.103375E+01
+PKER_SWETH( 31, 14) = 0.101344E+01
+PKER_SWETH( 31, 15) = 0.993498E+00
+PKER_SWETH( 31, 16) = 0.973910E+00
+PKER_SWETH( 31, 17) = 0.954673E+00
+PKER_SWETH( 31, 18) = 0.935779E+00
+PKER_SWETH( 31, 19) = 0.917224E+00
+PKER_SWETH( 31, 20) = 0.898999E+00
+PKER_SWETH( 31, 21) = 0.881100E+00
+PKER_SWETH( 31, 22) = 0.863521E+00
+PKER_SWETH( 31, 23) = 0.846256E+00
+PKER_SWETH( 31, 24) = 0.829298E+00
+PKER_SWETH( 31, 25) = 0.812643E+00
+PKER_SWETH( 31, 26) = 0.796285E+00
+PKER_SWETH( 31, 27) = 0.780218E+00
+PKER_SWETH( 31, 28) = 0.764437E+00
+PKER_SWETH( 31, 29) = 0.748938E+00
+PKER_SWETH( 31, 30) = 0.733713E+00
+PKER_SWETH( 31, 31) = 0.718760E+00
+PKER_SWETH( 31, 32) = 0.704072E+00
+PKER_SWETH( 31, 33) = 0.689645E+00
+PKER_SWETH( 31, 34) = 0.675473E+00
+PKER_SWETH( 31, 35) = 0.661553E+00
+PKER_SWETH( 31, 36) = 0.647879E+00
+PKER_SWETH( 31, 37) = 0.634447E+00
+PKER_SWETH( 31, 38) = 0.621253E+00
+PKER_SWETH( 31, 39) = 0.608291E+00
+PKER_SWETH( 31, 40) = 0.595558E+00
+PKER_SWETH( 31, 41) = 0.583048E+00
+PKER_SWETH( 31, 42) = 0.570759E+00
+PKER_SWETH( 31, 43) = 0.558685E+00
+PKER_SWETH( 31, 44) = 0.546823E+00
+PKER_SWETH( 31, 45) = 0.535169E+00
+PKER_SWETH( 31, 46) = 0.523718E+00
+PKER_SWETH( 31, 47) = 0.512467E+00
+PKER_SWETH( 31, 48) = 0.501411E+00
+PKER_SWETH( 31, 49) = 0.490547E+00
+PKER_SWETH( 31, 50) = 0.479871E+00
+PKER_SWETH( 31, 51) = 0.469379E+00
+PKER_SWETH( 31, 52) = 0.459068E+00
+PKER_SWETH( 31, 53) = 0.448934E+00
+PKER_SWETH( 31, 54) = 0.438974E+00
+PKER_SWETH( 31, 55) = 0.429183E+00
+PKER_SWETH( 31, 56) = 0.419559E+00
+PKER_SWETH( 31, 57) = 0.410097E+00
+PKER_SWETH( 31, 58) = 0.400795E+00
+PKER_SWETH( 31, 59) = 0.391650E+00
+PKER_SWETH( 31, 60) = 0.382657E+00
+PKER_SWETH( 31, 61) = 0.373813E+00
+PKER_SWETH( 31, 62) = 0.365116E+00
+PKER_SWETH( 31, 63) = 0.356561E+00
+PKER_SWETH( 31, 64) = 0.348147E+00
+PKER_SWETH( 31, 65) = 0.339869E+00
+PKER_SWETH( 31, 66) = 0.331725E+00
+PKER_SWETH( 31, 67) = 0.323711E+00
+PKER_SWETH( 31, 68) = 0.315825E+00
+PKER_SWETH( 31, 69) = 0.308064E+00
+PKER_SWETH( 31, 70) = 0.300424E+00
+PKER_SWETH( 31, 71) = 0.292903E+00
+PKER_SWETH( 31, 72) = 0.285497E+00
+PKER_SWETH( 31, 73) = 0.278205E+00
+PKER_SWETH( 31, 74) = 0.271023E+00
+PKER_SWETH( 31, 75) = 0.263949E+00
+PKER_SWETH( 31, 76) = 0.256980E+00
+PKER_SWETH( 31, 77) = 0.250113E+00
+PKER_SWETH( 31, 78) = 0.243347E+00
+PKER_SWETH( 31, 79) = 0.236679E+00
+PKER_SWETH( 31, 80) = 0.230106E+00
+PKER_SWETH( 32, 1) = 0.132194E+01
+PKER_SWETH( 32, 2) = 0.129672E+01
+PKER_SWETH( 32, 3) = 0.127195E+01
+PKER_SWETH( 32, 4) = 0.124762E+01
+PKER_SWETH( 32, 5) = 0.122373E+01
+PKER_SWETH( 32, 6) = 0.120026E+01
+PKER_SWETH( 32, 7) = 0.117722E+01
+PKER_SWETH( 32, 8) = 0.115459E+01
+PKER_SWETH( 32, 9) = 0.113237E+01
+PKER_SWETH( 32, 10) = 0.111054E+01
+PKER_SWETH( 32, 11) = 0.108911E+01
+PKER_SWETH( 32, 12) = 0.106806E+01
+PKER_SWETH( 32, 13) = 0.104738E+01
+PKER_SWETH( 32, 14) = 0.102708E+01
+PKER_SWETH( 32, 15) = 0.100714E+01
+PKER_SWETH( 32, 16) = 0.987554E+00
+PKER_SWETH( 32, 17) = 0.968320E+00
+PKER_SWETH( 32, 18) = 0.949431E+00
+PKER_SWETH( 32, 19) = 0.930880E+00
+PKER_SWETH( 32, 20) = 0.912661E+00
+PKER_SWETH( 32, 21) = 0.894767E+00
+PKER_SWETH( 32, 22) = 0.877193E+00
+PKER_SWETH( 32, 23) = 0.859934E+00
+PKER_SWETH( 32, 24) = 0.842982E+00
+PKER_SWETH( 32, 25) = 0.826333E+00
+PKER_SWETH( 32, 26) = 0.809982E+00
+PKER_SWETH( 32, 27) = 0.793922E+00
+PKER_SWETH( 32, 28) = 0.778149E+00
+PKER_SWETH( 32, 29) = 0.762657E+00
+PKER_SWETH( 32, 30) = 0.747441E+00
+PKER_SWETH( 32, 31) = 0.732497E+00
+PKER_SWETH( 32, 32) = 0.717818E+00
+PKER_SWETH( 32, 33) = 0.703401E+00
+PKER_SWETH( 32, 34) = 0.689239E+00
+PKER_SWETH( 32, 35) = 0.675330E+00
+PKER_SWETH( 32, 36) = 0.661668E+00
+PKER_SWETH( 32, 37) = 0.648248E+00
+PKER_SWETH( 32, 38) = 0.635066E+00
+PKER_SWETH( 32, 39) = 0.622117E+00
+PKER_SWETH( 32, 40) = 0.609398E+00
+PKER_SWETH( 32, 41) = 0.596904E+00
+PKER_SWETH( 32, 42) = 0.584630E+00
+PKER_SWETH( 32, 43) = 0.572573E+00
+PKER_SWETH( 32, 44) = 0.560728E+00
+PKER_SWETH( 32, 45) = 0.549092E+00
+PKER_SWETH( 32, 46) = 0.537660E+00
+PKER_SWETH( 32, 47) = 0.526429E+00
+PKER_SWETH( 32, 48) = 0.515395E+00
+PKER_SWETH( 32, 49) = 0.504553E+00
+PKER_SWETH( 32, 50) = 0.493901E+00
+PKER_SWETH( 32, 51) = 0.483435E+00
+PKER_SWETH( 32, 52) = 0.473150E+00
+PKER_SWETH( 32, 53) = 0.463044E+00
+PKER_SWETH( 32, 54) = 0.453112E+00
+PKER_SWETH( 32, 55) = 0.443352E+00
+PKER_SWETH( 32, 56) = 0.433760E+00
+PKER_SWETH( 32, 57) = 0.424333E+00
+PKER_SWETH( 32, 58) = 0.415067E+00
+PKER_SWETH( 32, 59) = 0.405958E+00
+PKER_SWETH( 32, 60) = 0.397005E+00
+PKER_SWETH( 32, 61) = 0.388203E+00
+PKER_SWETH( 32, 62) = 0.379549E+00
+PKER_SWETH( 32, 63) = 0.371040E+00
+PKER_SWETH( 32, 64) = 0.362674E+00
+PKER_SWETH( 32, 65) = 0.354446E+00
+PKER_SWETH( 32, 66) = 0.346355E+00
+PKER_SWETH( 32, 67) = 0.338396E+00
+PKER_SWETH( 32, 68) = 0.330568E+00
+PKER_SWETH( 32, 69) = 0.322866E+00
+PKER_SWETH( 32, 70) = 0.315289E+00
+PKER_SWETH( 32, 71) = 0.307833E+00
+PKER_SWETH( 32, 72) = 0.300496E+00
+PKER_SWETH( 32, 73) = 0.293275E+00
+PKER_SWETH( 32, 74) = 0.286167E+00
+PKER_SWETH( 32, 75) = 0.279170E+00
+PKER_SWETH( 32, 76) = 0.272280E+00
+PKER_SWETH( 32, 77) = 0.265496E+00
+PKER_SWETH( 32, 78) = 0.258814E+00
+PKER_SWETH( 32, 79) = 0.252233E+00
+PKER_SWETH( 32, 80) = 0.245750E+00
+PKER_SWETH( 33, 1) = 0.133363E+01
+PKER_SWETH( 33, 2) = 0.130841E+01
+PKER_SWETH( 33, 3) = 0.128364E+01
+PKER_SWETH( 33, 4) = 0.125931E+01
+PKER_SWETH( 33, 5) = 0.123542E+01
+PKER_SWETH( 33, 6) = 0.121196E+01
+PKER_SWETH( 33, 7) = 0.118892E+01
+PKER_SWETH( 33, 8) = 0.116629E+01
+PKER_SWETH( 33, 9) = 0.114407E+01
+PKER_SWETH( 33, 10) = 0.112225E+01
+PKER_SWETH( 33, 11) = 0.110082E+01
+PKER_SWETH( 33, 12) = 0.107977E+01
+PKER_SWETH( 33, 13) = 0.105910E+01
+PKER_SWETH( 33, 14) = 0.103879E+01
+PKER_SWETH( 33, 15) = 0.101886E+01
+PKER_SWETH( 33, 16) = 0.999276E+00
+PKER_SWETH( 33, 17) = 0.980046E+00
+PKER_SWETH( 33, 18) = 0.961160E+00
+PKER_SWETH( 33, 19) = 0.942613E+00
+PKER_SWETH( 33, 20) = 0.924397E+00
+PKER_SWETH( 33, 21) = 0.906508E+00
+PKER_SWETH( 33, 22) = 0.888938E+00
+PKER_SWETH( 33, 23) = 0.871683E+00
+PKER_SWETH( 33, 24) = 0.854736E+00
+PKER_SWETH( 33, 25) = 0.838092E+00
+PKER_SWETH( 33, 26) = 0.821746E+00
+PKER_SWETH( 33, 27) = 0.805692E+00
+PKER_SWETH( 33, 28) = 0.789924E+00
+PKER_SWETH( 33, 29) = 0.774438E+00
+PKER_SWETH( 33, 30) = 0.759229E+00
+PKER_SWETH( 33, 31) = 0.744291E+00
+PKER_SWETH( 33, 32) = 0.729619E+00
+PKER_SWETH( 33, 33) = 0.715209E+00
+PKER_SWETH( 33, 34) = 0.701056E+00
+PKER_SWETH( 33, 35) = 0.687155E+00
+PKER_SWETH( 33, 36) = 0.673501E+00
+PKER_SWETH( 33, 37) = 0.660091E+00
+PKER_SWETH( 33, 38) = 0.646918E+00
+PKER_SWETH( 33, 39) = 0.633980E+00
+PKER_SWETH( 33, 40) = 0.621272E+00
+PKER_SWETH( 33, 41) = 0.608789E+00
+PKER_SWETH( 33, 42) = 0.596527E+00
+PKER_SWETH( 33, 43) = 0.584482E+00
+PKER_SWETH( 33, 44) = 0.572651E+00
+PKER_SWETH( 33, 45) = 0.561029E+00
+PKER_SWETH( 33, 46) = 0.549612E+00
+PKER_SWETH( 33, 47) = 0.538396E+00
+PKER_SWETH( 33, 48) = 0.527378E+00
+PKER_SWETH( 33, 49) = 0.516554E+00
+PKER_SWETH( 33, 50) = 0.505920E+00
+PKER_SWETH( 33, 51) = 0.495472E+00
+PKER_SWETH( 33, 52) = 0.485208E+00
+PKER_SWETH( 33, 53) = 0.475123E+00
+PKER_SWETH( 33, 54) = 0.465213E+00
+PKER_SWETH( 33, 55) = 0.455477E+00
+PKER_SWETH( 33, 56) = 0.445910E+00
+PKER_SWETH( 33, 57) = 0.436508E+00
+PKER_SWETH( 33, 58) = 0.427269E+00
+PKER_SWETH( 33, 59) = 0.418190E+00
+PKER_SWETH( 33, 60) = 0.409266E+00
+PKER_SWETH( 33, 61) = 0.400496E+00
+PKER_SWETH( 33, 62) = 0.391875E+00
+PKER_SWETH( 33, 63) = 0.383402E+00
+PKER_SWETH( 33, 64) = 0.375072E+00
+PKER_SWETH( 33, 65) = 0.366883E+00
+PKER_SWETH( 33, 66) = 0.358832E+00
+PKER_SWETH( 33, 67) = 0.350916E+00
+PKER_SWETH( 33, 68) = 0.343132E+00
+PKER_SWETH( 33, 69) = 0.335478E+00
+PKER_SWETH( 33, 70) = 0.327949E+00
+PKER_SWETH( 33, 71) = 0.320545E+00
+PKER_SWETH( 33, 72) = 0.313261E+00
+PKER_SWETH( 33, 73) = 0.306096E+00
+PKER_SWETH( 33, 74) = 0.299046E+00
+PKER_SWETH( 33, 75) = 0.292109E+00
+PKER_SWETH( 33, 76) = 0.285283E+00
+PKER_SWETH( 33, 77) = 0.278564E+00
+PKER_SWETH( 33, 78) = 0.271951E+00
+PKER_SWETH( 33, 79) = 0.265440E+00
+PKER_SWETH( 33, 80) = 0.259030E+00
+PKER_SWETH( 34, 1) = 0.134368E+01
+PKER_SWETH( 34, 2) = 0.131846E+01
+PKER_SWETH( 34, 3) = 0.129369E+01
+PKER_SWETH( 34, 4) = 0.126936E+01
+PKER_SWETH( 34, 5) = 0.124548E+01
+PKER_SWETH( 34, 6) = 0.122202E+01
+PKER_SWETH( 34, 7) = 0.119898E+01
+PKER_SWETH( 34, 8) = 0.117635E+01
+PKER_SWETH( 34, 9) = 0.115413E+01
+PKER_SWETH( 34, 10) = 0.113231E+01
+PKER_SWETH( 34, 11) = 0.111088E+01
+PKER_SWETH( 34, 12) = 0.108983E+01
+PKER_SWETH( 34, 13) = 0.106916E+01
+PKER_SWETH( 34, 14) = 0.104886E+01
+PKER_SWETH( 34, 15) = 0.102893E+01
+PKER_SWETH( 34, 16) = 0.100935E+01
+PKER_SWETH( 34, 17) = 0.990122E+00
+PKER_SWETH( 34, 18) = 0.971239E+00
+PKER_SWETH( 34, 19) = 0.952694E+00
+PKER_SWETH( 34, 20) = 0.934481E+00
+PKER_SWETH( 34, 21) = 0.916595E+00
+PKER_SWETH( 34, 22) = 0.899028E+00
+PKER_SWETH( 34, 23) = 0.881776E+00
+PKER_SWETH( 34, 24) = 0.864833E+00
+PKER_SWETH( 34, 25) = 0.848193E+00
+PKER_SWETH( 34, 26) = 0.831851E+00
+PKER_SWETH( 34, 27) = 0.815801E+00
+PKER_SWETH( 34, 28) = 0.800038E+00
+PKER_SWETH( 34, 29) = 0.784557E+00
+PKER_SWETH( 34, 30) = 0.769352E+00
+PKER_SWETH( 34, 31) = 0.754419E+00
+PKER_SWETH( 34, 32) = 0.739753E+00
+PKER_SWETH( 34, 33) = 0.725349E+00
+PKER_SWETH( 34, 34) = 0.711202E+00
+PKER_SWETH( 34, 35) = 0.697307E+00
+PKER_SWETH( 34, 36) = 0.683660E+00
+PKER_SWETH( 34, 37) = 0.670256E+00
+PKER_SWETH( 34, 38) = 0.657091E+00
+PKER_SWETH( 34, 39) = 0.644161E+00
+PKER_SWETH( 34, 40) = 0.631461E+00
+PKER_SWETH( 34, 41) = 0.618986E+00
+PKER_SWETH( 34, 42) = 0.606734E+00
+PKER_SWETH( 34, 43) = 0.594699E+00
+PKER_SWETH( 34, 44) = 0.582878E+00
+PKER_SWETH( 34, 45) = 0.571266E+00
+PKER_SWETH( 34, 46) = 0.559860E+00
+PKER_SWETH( 34, 47) = 0.548656E+00
+PKER_SWETH( 34, 48) = 0.537651E+00
+PKER_SWETH( 34, 49) = 0.526840E+00
+PKER_SWETH( 34, 50) = 0.516220E+00
+PKER_SWETH( 34, 51) = 0.505787E+00
+PKER_SWETH( 34, 52) = 0.495537E+00
+PKER_SWETH( 34, 53) = 0.485469E+00
+PKER_SWETH( 34, 54) = 0.475576E+00
+PKER_SWETH( 34, 55) = 0.465858E+00
+PKER_SWETH( 34, 56) = 0.456309E+00
+PKER_SWETH( 34, 57) = 0.446928E+00
+PKER_SWETH( 34, 58) = 0.437710E+00
+PKER_SWETH( 34, 59) = 0.428652E+00
+PKER_SWETH( 34, 60) = 0.419752E+00
+PKER_SWETH( 34, 61) = 0.411006E+00
+PKER_SWETH( 34, 62) = 0.402411E+00
+PKER_SWETH( 34, 63) = 0.393964E+00
+PKER_SWETH( 34, 64) = 0.385663E+00
+PKER_SWETH( 34, 65) = 0.377504E+00
+PKER_SWETH( 34, 66) = 0.369484E+00
+PKER_SWETH( 34, 67) = 0.361601E+00
+PKER_SWETH( 34, 68) = 0.353851E+00
+PKER_SWETH( 34, 69) = 0.346233E+00
+PKER_SWETH( 34, 70) = 0.338742E+00
+PKER_SWETH( 34, 71) = 0.331378E+00
+PKER_SWETH( 34, 72) = 0.324136E+00
+PKER_SWETH( 34, 73) = 0.317014E+00
+PKER_SWETH( 34, 74) = 0.310010E+00
+PKER_SWETH( 34, 75) = 0.303120E+00
+PKER_SWETH( 34, 76) = 0.296344E+00
+PKER_SWETH( 34, 77) = 0.289677E+00
+PKER_SWETH( 34, 78) = 0.283117E+00
+PKER_SWETH( 34, 79) = 0.276663E+00
+PKER_SWETH( 34, 80) = 0.270311E+00
+PKER_SWETH( 35, 1) = 0.135231E+01
+PKER_SWETH( 35, 2) = 0.132709E+01
+PKER_SWETH( 35, 3) = 0.130233E+01
+PKER_SWETH( 35, 4) = 0.127800E+01
+PKER_SWETH( 35, 5) = 0.125412E+01
+PKER_SWETH( 35, 6) = 0.123066E+01
+PKER_SWETH( 35, 7) = 0.120762E+01
+PKER_SWETH( 35, 8) = 0.118499E+01
+PKER_SWETH( 35, 9) = 0.116278E+01
+PKER_SWETH( 35, 10) = 0.114096E+01
+PKER_SWETH( 35, 11) = 0.111953E+01
+PKER_SWETH( 35, 12) = 0.109848E+01
+PKER_SWETH( 35, 13) = 0.107781E+01
+PKER_SWETH( 35, 14) = 0.105752E+01
+PKER_SWETH( 35, 15) = 0.103758E+01
+PKER_SWETH( 35, 16) = 0.101801E+01
+PKER_SWETH( 35, 17) = 0.998780E+00
+PKER_SWETH( 35, 18) = 0.979899E+00
+PKER_SWETH( 35, 19) = 0.961356E+00
+PKER_SWETH( 35, 20) = 0.943146E+00
+PKER_SWETH( 35, 21) = 0.925261E+00
+PKER_SWETH( 35, 22) = 0.907697E+00
+PKER_SWETH( 35, 23) = 0.890448E+00
+PKER_SWETH( 35, 24) = 0.873508E+00
+PKER_SWETH( 35, 25) = 0.856871E+00
+PKER_SWETH( 35, 26) = 0.840532E+00
+PKER_SWETH( 35, 27) = 0.824485E+00
+PKER_SWETH( 35, 28) = 0.808725E+00
+PKER_SWETH( 35, 29) = 0.793248E+00
+PKER_SWETH( 35, 30) = 0.778047E+00
+PKER_SWETH( 35, 31) = 0.763118E+00
+PKER_SWETH( 35, 32) = 0.748456E+00
+PKER_SWETH( 35, 33) = 0.734056E+00
+PKER_SWETH( 35, 34) = 0.719914E+00
+PKER_SWETH( 35, 35) = 0.706024E+00
+PKER_SWETH( 35, 36) = 0.692382E+00
+PKER_SWETH( 35, 37) = 0.678984E+00
+PKER_SWETH( 35, 38) = 0.665824E+00
+PKER_SWETH( 35, 39) = 0.652900E+00
+PKER_SWETH( 35, 40) = 0.640206E+00
+PKER_SWETH( 35, 41) = 0.627738E+00
+PKER_SWETH( 35, 42) = 0.615493E+00
+PKER_SWETH( 35, 43) = 0.603465E+00
+PKER_SWETH( 35, 44) = 0.591652E+00
+PKER_SWETH( 35, 45) = 0.580048E+00
+PKER_SWETH( 35, 46) = 0.568651E+00
+PKER_SWETH( 35, 47) = 0.557457E+00
+PKER_SWETH( 35, 48) = 0.546461E+00
+PKER_SWETH( 35, 49) = 0.535660E+00
+PKER_SWETH( 35, 50) = 0.525050E+00
+PKER_SWETH( 35, 51) = 0.514628E+00
+PKER_SWETH( 35, 52) = 0.504391E+00
+PKER_SWETH( 35, 53) = 0.494334E+00
+PKER_SWETH( 35, 54) = 0.484455E+00
+PKER_SWETH( 35, 55) = 0.474750E+00
+PKER_SWETH( 35, 56) = 0.465216E+00
+PKER_SWETH( 35, 57) = 0.455850E+00
+PKER_SWETH( 35, 58) = 0.446648E+00
+PKER_SWETH( 35, 59) = 0.437607E+00
+PKER_SWETH( 35, 60) = 0.428725E+00
+PKER_SWETH( 35, 61) = 0.419997E+00
+PKER_SWETH( 35, 62) = 0.411422E+00
+PKER_SWETH( 35, 63) = 0.402996E+00
+PKER_SWETH( 35, 64) = 0.394717E+00
+PKER_SWETH( 35, 65) = 0.386580E+00
+PKER_SWETH( 35, 66) = 0.378585E+00
+PKER_SWETH( 35, 67) = 0.370727E+00
+PKER_SWETH( 35, 68) = 0.363004E+00
+PKER_SWETH( 35, 69) = 0.355413E+00
+PKER_SWETH( 35, 70) = 0.347952E+00
+PKER_SWETH( 35, 71) = 0.340618E+00
+PKER_SWETH( 35, 72) = 0.333408E+00
+PKER_SWETH( 35, 73) = 0.326320E+00
+PKER_SWETH( 35, 74) = 0.319351E+00
+PKER_SWETH( 35, 75) = 0.312499E+00
+PKER_SWETH( 35, 76) = 0.305761E+00
+PKER_SWETH( 35, 77) = 0.299135E+00
+PKER_SWETH( 35, 78) = 0.292618E+00
+PKER_SWETH( 35, 79) = 0.286208E+00
+PKER_SWETH( 35, 80) = 0.279902E+00
+PKER_SWETH( 36, 1) = 0.135974E+01
+PKER_SWETH( 36, 2) = 0.133452E+01
+PKER_SWETH( 36, 3) = 0.130975E+01
+PKER_SWETH( 36, 4) = 0.128543E+01
+PKER_SWETH( 36, 5) = 0.126154E+01
+PKER_SWETH( 36, 6) = 0.123809E+01
+PKER_SWETH( 36, 7) = 0.121505E+01
+PKER_SWETH( 36, 8) = 0.119242E+01
+PKER_SWETH( 36, 9) = 0.117021E+01
+PKER_SWETH( 36, 10) = 0.114839E+01
+PKER_SWETH( 36, 11) = 0.112696E+01
+PKER_SWETH( 36, 12) = 0.110591E+01
+PKER_SWETH( 36, 13) = 0.108525E+01
+PKER_SWETH( 36, 14) = 0.106495E+01
+PKER_SWETH( 36, 15) = 0.104502E+01
+PKER_SWETH( 36, 16) = 0.102544E+01
+PKER_SWETH( 36, 17) = 0.100622E+01
+PKER_SWETH( 36, 18) = 0.987340E+00
+PKER_SWETH( 36, 19) = 0.968799E+00
+PKER_SWETH( 36, 20) = 0.950591E+00
+PKER_SWETH( 36, 21) = 0.932708E+00
+PKER_SWETH( 36, 22) = 0.915147E+00
+PKER_SWETH( 36, 23) = 0.897899E+00
+PKER_SWETH( 36, 24) = 0.880961E+00
+PKER_SWETH( 36, 25) = 0.864326E+00
+PKER_SWETH( 36, 26) = 0.847989E+00
+PKER_SWETH( 36, 27) = 0.831945E+00
+PKER_SWETH( 36, 28) = 0.816188E+00
+PKER_SWETH( 36, 29) = 0.800713E+00
+PKER_SWETH( 36, 30) = 0.785516E+00
+PKER_SWETH( 36, 31) = 0.770590E+00
+PKER_SWETH( 36, 32) = 0.755931E+00
+PKER_SWETH( 36, 33) = 0.741535E+00
+PKER_SWETH( 36, 34) = 0.727396E+00
+PKER_SWETH( 36, 35) = 0.713509E+00
+PKER_SWETH( 36, 36) = 0.699872E+00
+PKER_SWETH( 36, 37) = 0.686477E+00
+PKER_SWETH( 36, 38) = 0.673323E+00
+PKER_SWETH( 36, 39) = 0.660403E+00
+PKER_SWETH( 36, 40) = 0.647714E+00
+PKER_SWETH( 36, 41) = 0.635251E+00
+PKER_SWETH( 36, 42) = 0.623011E+00
+PKER_SWETH( 36, 43) = 0.610989E+00
+PKER_SWETH( 36, 44) = 0.599182E+00
+PKER_SWETH( 36, 45) = 0.587585E+00
+PKER_SWETH( 36, 46) = 0.576194E+00
+PKER_SWETH( 36, 47) = 0.565007E+00
+PKER_SWETH( 36, 48) = 0.554018E+00
+PKER_SWETH( 36, 49) = 0.543225E+00
+PKER_SWETH( 36, 50) = 0.532623E+00
+PKER_SWETH( 36, 51) = 0.522210E+00
+PKER_SWETH( 36, 52) = 0.511982E+00
+PKER_SWETH( 36, 53) = 0.501935E+00
+PKER_SWETH( 36, 54) = 0.492066E+00
+PKER_SWETH( 36, 55) = 0.482372E+00
+PKER_SWETH( 36, 56) = 0.472849E+00
+PKER_SWETH( 36, 57) = 0.463494E+00
+PKER_SWETH( 36, 58) = 0.454304E+00
+PKER_SWETH( 36, 59) = 0.445277E+00
+PKER_SWETH( 36, 60) = 0.436408E+00
+PKER_SWETH( 36, 61) = 0.427695E+00
+PKER_SWETH( 36, 62) = 0.419135E+00
+PKER_SWETH( 36, 63) = 0.410724E+00
+PKER_SWETH( 36, 64) = 0.402461E+00
+PKER_SWETH( 36, 65) = 0.394343E+00
+PKER_SWETH( 36, 66) = 0.386365E+00
+PKER_SWETH( 36, 67) = 0.378527E+00
+PKER_SWETH( 36, 68) = 0.370824E+00
+PKER_SWETH( 36, 69) = 0.363255E+00
+PKER_SWETH( 36, 70) = 0.355817E+00
+PKER_SWETH( 36, 71) = 0.348506E+00
+PKER_SWETH( 36, 72) = 0.341321E+00
+PKER_SWETH( 36, 73) = 0.334260E+00
+PKER_SWETH( 36, 74) = 0.327318E+00
+PKER_SWETH( 36, 75) = 0.320495E+00
+PKER_SWETH( 36, 76) = 0.313787E+00
+PKER_SWETH( 36, 77) = 0.307192E+00
+PKER_SWETH( 36, 78) = 0.300709E+00
+PKER_SWETH( 36, 79) = 0.294333E+00
+PKER_SWETH( 36, 80) = 0.288064E+00
+PKER_SWETH( 37, 1) = 0.136612E+01
+PKER_SWETH( 37, 2) = 0.134090E+01
+PKER_SWETH( 37, 3) = 0.131613E+01
+PKER_SWETH( 37, 4) = 0.129181E+01
+PKER_SWETH( 37, 5) = 0.126793E+01
+PKER_SWETH( 37, 6) = 0.124447E+01
+PKER_SWETH( 37, 7) = 0.122143E+01
+PKER_SWETH( 37, 8) = 0.119881E+01
+PKER_SWETH( 37, 9) = 0.117659E+01
+PKER_SWETH( 37, 10) = 0.115477E+01
+PKER_SWETH( 37, 11) = 0.113335E+01
+PKER_SWETH( 37, 12) = 0.111230E+01
+PKER_SWETH( 37, 13) = 0.109164E+01
+PKER_SWETH( 37, 14) = 0.107134E+01
+PKER_SWETH( 37, 15) = 0.105141E+01
+PKER_SWETH( 37, 16) = 0.103184E+01
+PKER_SWETH( 37, 17) = 0.101261E+01
+PKER_SWETH( 37, 18) = 0.993736E+00
+PKER_SWETH( 37, 19) = 0.975196E+00
+PKER_SWETH( 37, 20) = 0.956989E+00
+PKER_SWETH( 37, 21) = 0.939108E+00
+PKER_SWETH( 37, 22) = 0.921548E+00
+PKER_SWETH( 37, 23) = 0.904302E+00
+PKER_SWETH( 37, 24) = 0.887365E+00
+PKER_SWETH( 37, 25) = 0.870732E+00
+PKER_SWETH( 37, 26) = 0.854397E+00
+PKER_SWETH( 37, 27) = 0.838355E+00
+PKER_SWETH( 37, 28) = 0.822600E+00
+PKER_SWETH( 37, 29) = 0.807127E+00
+PKER_SWETH( 37, 30) = 0.791932E+00
+PKER_SWETH( 37, 31) = 0.777008E+00
+PKER_SWETH( 37, 32) = 0.762352E+00
+PKER_SWETH( 37, 33) = 0.747958E+00
+PKER_SWETH( 37, 34) = 0.733822E+00
+PKER_SWETH( 37, 35) = 0.719939E+00
+PKER_SWETH( 37, 36) = 0.706304E+00
+PKER_SWETH( 37, 37) = 0.692913E+00
+PKER_SWETH( 37, 38) = 0.679762E+00
+PKER_SWETH( 37, 39) = 0.666846E+00
+PKER_SWETH( 37, 40) = 0.654160E+00
+PKER_SWETH( 37, 41) = 0.641702E+00
+PKER_SWETH( 37, 42) = 0.629466E+00
+PKER_SWETH( 37, 43) = 0.617448E+00
+PKER_SWETH( 37, 44) = 0.605646E+00
+PKER_SWETH( 37, 45) = 0.594053E+00
+PKER_SWETH( 37, 46) = 0.582668E+00
+PKER_SWETH( 37, 47) = 0.571486E+00
+PKER_SWETH( 37, 48) = 0.560503E+00
+PKER_SWETH( 37, 49) = 0.549716E+00
+PKER_SWETH( 37, 50) = 0.539121E+00
+PKER_SWETH( 37, 51) = 0.528714E+00
+PKER_SWETH( 37, 52) = 0.518493E+00
+PKER_SWETH( 37, 53) = 0.508453E+00
+PKER_SWETH( 37, 54) = 0.498592E+00
+PKER_SWETH( 37, 55) = 0.488905E+00
+PKER_SWETH( 37, 56) = 0.479391E+00
+PKER_SWETH( 37, 57) = 0.470045E+00
+PKER_SWETH( 37, 58) = 0.460865E+00
+PKER_SWETH( 37, 59) = 0.451847E+00
+PKER_SWETH( 37, 60) = 0.442989E+00
+PKER_SWETH( 37, 61) = 0.434287E+00
+PKER_SWETH( 37, 62) = 0.425739E+00
+PKER_SWETH( 37, 63) = 0.417341E+00
+PKER_SWETH( 37, 64) = 0.409091E+00
+PKER_SWETH( 37, 65) = 0.400985E+00
+PKER_SWETH( 37, 66) = 0.393022E+00
+PKER_SWETH( 37, 67) = 0.385199E+00
+PKER_SWETH( 37, 68) = 0.377512E+00
+PKER_SWETH( 37, 69) = 0.369960E+00
+PKER_SWETH( 37, 70) = 0.362538E+00
+PKER_SWETH( 37, 71) = 0.355246E+00
+PKER_SWETH( 37, 72) = 0.348081E+00
+PKER_SWETH( 37, 73) = 0.341039E+00
+PKER_SWETH( 37, 74) = 0.334119E+00
+PKER_SWETH( 37, 75) = 0.327318E+00
+PKER_SWETH( 37, 76) = 0.320633E+00
+PKER_SWETH( 37, 77) = 0.314063E+00
+PKER_SWETH( 37, 78) = 0.307605E+00
+PKER_SWETH( 37, 79) = 0.301257E+00
+PKER_SWETH( 37, 80) = 0.295016E+00
+PKER_SWETH( 38, 1) = 0.137160E+01
+PKER_SWETH( 38, 2) = 0.134639E+01
+PKER_SWETH( 38, 3) = 0.132162E+01
+PKER_SWETH( 38, 4) = 0.129730E+01
+PKER_SWETH( 38, 5) = 0.127341E+01
+PKER_SWETH( 38, 6) = 0.124996E+01
+PKER_SWETH( 38, 7) = 0.122692E+01
+PKER_SWETH( 38, 8) = 0.120430E+01
+PKER_SWETH( 38, 9) = 0.118208E+01
+PKER_SWETH( 38, 10) = 0.116026E+01
+PKER_SWETH( 38, 11) = 0.113884E+01
+PKER_SWETH( 38, 12) = 0.111779E+01
+PKER_SWETH( 38, 13) = 0.109713E+01
+PKER_SWETH( 38, 14) = 0.107683E+01
+PKER_SWETH( 38, 15) = 0.105690E+01
+PKER_SWETH( 38, 16) = 0.103733E+01
+PKER_SWETH( 38, 17) = 0.101811E+01
+PKER_SWETH( 38, 18) = 0.999232E+00
+PKER_SWETH( 38, 19) = 0.980694E+00
+PKER_SWETH( 38, 20) = 0.962487E+00
+PKER_SWETH( 38, 21) = 0.944607E+00
+PKER_SWETH( 38, 22) = 0.927048E+00
+PKER_SWETH( 38, 23) = 0.909804E+00
+PKER_SWETH( 38, 24) = 0.892869E+00
+PKER_SWETH( 38, 25) = 0.876237E+00
+PKER_SWETH( 38, 26) = 0.859903E+00
+PKER_SWETH( 38, 27) = 0.843862E+00
+PKER_SWETH( 38, 28) = 0.828109E+00
+PKER_SWETH( 38, 29) = 0.812638E+00
+PKER_SWETH( 38, 30) = 0.797444E+00
+PKER_SWETH( 38, 31) = 0.782523E+00
+PKER_SWETH( 38, 32) = 0.767868E+00
+PKER_SWETH( 38, 33) = 0.753477E+00
+PKER_SWETH( 38, 34) = 0.739343E+00
+PKER_SWETH( 38, 35) = 0.725462E+00
+PKER_SWETH( 38, 36) = 0.711829E+00
+PKER_SWETH( 38, 37) = 0.698441E+00
+PKER_SWETH( 38, 38) = 0.685292E+00
+PKER_SWETH( 38, 39) = 0.672379E+00
+PKER_SWETH( 38, 40) = 0.659696E+00
+PKER_SWETH( 38, 41) = 0.647241E+00
+PKER_SWETH( 38, 42) = 0.635008E+00
+PKER_SWETH( 38, 43) = 0.622994E+00
+PKER_SWETH( 38, 44) = 0.611195E+00
+PKER_SWETH( 38, 45) = 0.599607E+00
+PKER_SWETH( 38, 46) = 0.588225E+00
+PKER_SWETH( 38, 47) = 0.577047E+00
+PKER_SWETH( 38, 48) = 0.566069E+00
+PKER_SWETH( 38, 49) = 0.555286E+00
+PKER_SWETH( 38, 50) = 0.544696E+00
+PKER_SWETH( 38, 51) = 0.534294E+00
+PKER_SWETH( 38, 52) = 0.524078E+00
+PKER_SWETH( 38, 53) = 0.514044E+00
+PKER_SWETH( 38, 54) = 0.504189E+00
+PKER_SWETH( 38, 55) = 0.494509E+00
+PKER_SWETH( 38, 56) = 0.485001E+00
+PKER_SWETH( 38, 57) = 0.475662E+00
+PKER_SWETH( 38, 58) = 0.466490E+00
+PKER_SWETH( 38, 59) = 0.457480E+00
+PKER_SWETH( 38, 60) = 0.448629E+00
+PKER_SWETH( 38, 61) = 0.439936E+00
+PKER_SWETH( 38, 62) = 0.431396E+00
+PKER_SWETH( 38, 63) = 0.423008E+00
+PKER_SWETH( 38, 64) = 0.414768E+00
+PKER_SWETH( 38, 65) = 0.406673E+00
+PKER_SWETH( 38, 66) = 0.398721E+00
+PKER_SWETH( 38, 67) = 0.390909E+00
+PKER_SWETH( 38, 68) = 0.383234E+00
+PKER_SWETH( 38, 69) = 0.375695E+00
+PKER_SWETH( 38, 70) = 0.368287E+00
+PKER_SWETH( 38, 71) = 0.361009E+00
+PKER_SWETH( 38, 72) = 0.353858E+00
+PKER_SWETH( 38, 73) = 0.346832E+00
+PKER_SWETH( 38, 74) = 0.339928E+00
+PKER_SWETH( 38, 75) = 0.333145E+00
+PKER_SWETH( 38, 76) = 0.326478E+00
+PKER_SWETH( 38, 77) = 0.319927E+00
+PKER_SWETH( 38, 78) = 0.313489E+00
+PKER_SWETH( 38, 79) = 0.307162E+00
+PKER_SWETH( 38, 80) = 0.300943E+00
+PKER_SWETH( 39, 1) = 0.137632E+01
+PKER_SWETH( 39, 2) = 0.135110E+01
+PKER_SWETH( 39, 3) = 0.132634E+01
+PKER_SWETH( 39, 4) = 0.130201E+01
+PKER_SWETH( 39, 5) = 0.127813E+01
+PKER_SWETH( 39, 6) = 0.125467E+01
+PKER_SWETH( 39, 7) = 0.123164E+01
+PKER_SWETH( 39, 8) = 0.120902E+01
+PKER_SWETH( 39, 9) = 0.118680E+01
+PKER_SWETH( 39, 10) = 0.116498E+01
+PKER_SWETH( 39, 11) = 0.114356E+01
+PKER_SWETH( 39, 12) = 0.112251E+01
+PKER_SWETH( 39, 13) = 0.110185E+01
+PKER_SWETH( 39, 14) = 0.108156E+01
+PKER_SWETH( 39, 15) = 0.106163E+01
+PKER_SWETH( 39, 16) = 0.104205E+01
+PKER_SWETH( 39, 17) = 0.102283E+01
+PKER_SWETH( 39, 18) = 0.100396E+01
+PKER_SWETH( 39, 19) = 0.985418E+00
+PKER_SWETH( 39, 20) = 0.967213E+00
+PKER_SWETH( 39, 21) = 0.949334E+00
+PKER_SWETH( 39, 22) = 0.931775E+00
+PKER_SWETH( 39, 23) = 0.914532E+00
+PKER_SWETH( 39, 24) = 0.897598E+00
+PKER_SWETH( 39, 25) = 0.880967E+00
+PKER_SWETH( 39, 26) = 0.864635E+00
+PKER_SWETH( 39, 27) = 0.848595E+00
+PKER_SWETH( 39, 28) = 0.832843E+00
+PKER_SWETH( 39, 29) = 0.817373E+00
+PKER_SWETH( 39, 30) = 0.802181E+00
+PKER_SWETH( 39, 31) = 0.787261E+00
+PKER_SWETH( 39, 32) = 0.772608E+00
+PKER_SWETH( 39, 33) = 0.758218E+00
+PKER_SWETH( 39, 34) = 0.744085E+00
+PKER_SWETH( 39, 35) = 0.730206E+00
+PKER_SWETH( 39, 36) = 0.716576E+00
+PKER_SWETH( 39, 37) = 0.703189E+00
+PKER_SWETH( 39, 38) = 0.690042E+00
+PKER_SWETH( 39, 39) = 0.677131E+00
+PKER_SWETH( 39, 40) = 0.664451E+00
+PKER_SWETH( 39, 41) = 0.651998E+00
+PKER_SWETH( 39, 42) = 0.639768E+00
+PKER_SWETH( 39, 43) = 0.627756E+00
+PKER_SWETH( 39, 44) = 0.615960E+00
+PKER_SWETH( 39, 45) = 0.604374E+00
+PKER_SWETH( 39, 46) = 0.592996E+00
+PKER_SWETH( 39, 47) = 0.581821E+00
+PKER_SWETH( 39, 48) = 0.570846E+00
+PKER_SWETH( 39, 49) = 0.560067E+00
+PKER_SWETH( 39, 50) = 0.549481E+00
+PKER_SWETH( 39, 51) = 0.539083E+00
+PKER_SWETH( 39, 52) = 0.528871E+00
+PKER_SWETH( 39, 53) = 0.518842E+00
+PKER_SWETH( 39, 54) = 0.508991E+00
+PKER_SWETH( 39, 55) = 0.499316E+00
+PKER_SWETH( 39, 56) = 0.489813E+00
+PKER_SWETH( 39, 57) = 0.480480E+00
+PKER_SWETH( 39, 58) = 0.471313E+00
+PKER_SWETH( 39, 59) = 0.462309E+00
+PKER_SWETH( 39, 60) = 0.453465E+00
+PKER_SWETH( 39, 61) = 0.444778E+00
+PKER_SWETH( 39, 62) = 0.436245E+00
+PKER_SWETH( 39, 63) = 0.427864E+00
+PKER_SWETH( 39, 64) = 0.419632E+00
+PKER_SWETH( 39, 65) = 0.411545E+00
+PKER_SWETH( 39, 66) = 0.403602E+00
+PKER_SWETH( 39, 67) = 0.395799E+00
+PKER_SWETH( 39, 68) = 0.388133E+00
+PKER_SWETH( 39, 69) = 0.380603E+00
+PKER_SWETH( 39, 70) = 0.373206E+00
+PKER_SWETH( 39, 71) = 0.365939E+00
+PKER_SWETH( 39, 72) = 0.358800E+00
+PKER_SWETH( 39, 73) = 0.351786E+00
+PKER_SWETH( 39, 74) = 0.344895E+00
+PKER_SWETH( 39, 75) = 0.338124E+00
+PKER_SWETH( 39, 76) = 0.331472E+00
+PKER_SWETH( 39, 77) = 0.324936E+00
+PKER_SWETH( 39, 78) = 0.318513E+00
+PKER_SWETH( 39, 79) = 0.312202E+00
+PKER_SWETH( 39, 80) = 0.306000E+00
+PKER_SWETH( 40, 1) = 0.138037E+01
+PKER_SWETH( 40, 2) = 0.135515E+01
+PKER_SWETH( 40, 3) = 0.133039E+01
+PKER_SWETH( 40, 4) = 0.130607E+01
+PKER_SWETH( 40, 5) = 0.128218E+01
+PKER_SWETH( 40, 6) = 0.125873E+01
+PKER_SWETH( 40, 7) = 0.123569E+01
+PKER_SWETH( 40, 8) = 0.121307E+01
+PKER_SWETH( 40, 9) = 0.119086E+01
+PKER_SWETH( 40, 10) = 0.116904E+01
+PKER_SWETH( 40, 11) = 0.114761E+01
+PKER_SWETH( 40, 12) = 0.112657E+01
+PKER_SWETH( 40, 13) = 0.110591E+01
+PKER_SWETH( 40, 14) = 0.108561E+01
+PKER_SWETH( 40, 15) = 0.106568E+01
+PKER_SWETH( 40, 16) = 0.104611E+01
+PKER_SWETH( 40, 17) = 0.102689E+01
+PKER_SWETH( 40, 18) = 0.100802E+01
+PKER_SWETH( 40, 19) = 0.989479E+00
+PKER_SWETH( 40, 20) = 0.971274E+00
+PKER_SWETH( 40, 21) = 0.953396E+00
+PKER_SWETH( 40, 22) = 0.935838E+00
+PKER_SWETH( 40, 23) = 0.918595E+00
+PKER_SWETH( 40, 24) = 0.901662E+00
+PKER_SWETH( 40, 25) = 0.885032E+00
+PKER_SWETH( 40, 26) = 0.868700E+00
+PKER_SWETH( 40, 27) = 0.852662E+00
+PKER_SWETH( 40, 28) = 0.836911E+00
+PKER_SWETH( 40, 29) = 0.821442E+00
+PKER_SWETH( 40, 30) = 0.806251E+00
+PKER_SWETH( 40, 31) = 0.791332E+00
+PKER_SWETH( 40, 32) = 0.776680E+00
+PKER_SWETH( 40, 33) = 0.762291E+00
+PKER_SWETH( 40, 34) = 0.748160E+00
+PKER_SWETH( 40, 35) = 0.734282E+00
+PKER_SWETH( 40, 36) = 0.720653E+00
+PKER_SWETH( 40, 37) = 0.707268E+00
+PKER_SWETH( 40, 38) = 0.694123E+00
+PKER_SWETH( 40, 39) = 0.681213E+00
+PKER_SWETH( 40, 40) = 0.668535E+00
+PKER_SWETH( 40, 41) = 0.656084E+00
+PKER_SWETH( 40, 42) = 0.643856E+00
+PKER_SWETH( 40, 43) = 0.631846E+00
+PKER_SWETH( 40, 44) = 0.620052E+00
+PKER_SWETH( 40, 45) = 0.608469E+00
+PKER_SWETH( 40, 46) = 0.597093E+00
+PKER_SWETH( 40, 47) = 0.585921E+00
+PKER_SWETH( 40, 48) = 0.574948E+00
+PKER_SWETH( 40, 49) = 0.564172E+00
+PKER_SWETH( 40, 50) = 0.553588E+00
+PKER_SWETH( 40, 51) = 0.543194E+00
+PKER_SWETH( 40, 52) = 0.532985E+00
+PKER_SWETH( 40, 53) = 0.522959E+00
+PKER_SWETH( 40, 54) = 0.513112E+00
+PKER_SWETH( 40, 55) = 0.503441E+00
+PKER_SWETH( 40, 56) = 0.493942E+00
+PKER_SWETH( 40, 57) = 0.484613E+00
+PKER_SWETH( 40, 58) = 0.475450E+00
+PKER_SWETH( 40, 59) = 0.466451E+00
+PKER_SWETH( 40, 60) = 0.457611E+00
+PKER_SWETH( 40, 61) = 0.448930E+00
+PKER_SWETH( 40, 62) = 0.440403E+00
+PKER_SWETH( 40, 63) = 0.432027E+00
+PKER_SWETH( 40, 64) = 0.423801E+00
+PKER_SWETH( 40, 65) = 0.415720E+00
+PKER_SWETH( 40, 66) = 0.407783E+00
+PKER_SWETH( 40, 67) = 0.399987E+00
+PKER_SWETH( 40, 68) = 0.392329E+00
+PKER_SWETH( 40, 69) = 0.384807E+00
+PKER_SWETH( 40, 70) = 0.377418E+00
+PKER_SWETH( 40, 71) = 0.370159E+00
+PKER_SWETH( 40, 72) = 0.363029E+00
+PKER_SWETH( 40, 73) = 0.356024E+00
+PKER_SWETH( 40, 74) = 0.349143E+00
+PKER_SWETH( 40, 75) = 0.342383E+00
+PKER_SWETH( 40, 76) = 0.335742E+00
+PKER_SWETH( 40, 77) = 0.329217E+00
+PKER_SWETH( 40, 78) = 0.322806E+00
+PKER_SWETH( 40, 79) = 0.316508E+00
+PKER_SWETH( 40, 80) = 0.310319E+00
END IF
!
END SUBROUTINE LIMA_READ_XKER_SWETH
diff --git a/src/mesonh/micro/lima_sedimentation.f90 b/src/mesonh/micro/lima_sedimentation.f90
index 365ae0f23..23072bb81 100644
--- a/src/mesonh/micro/lima_sedimentation.f90
+++ b/src/mesonh/micro/lima_sedimentation.f90
@@ -66,17 +66,20 @@ END MODULE MODI_LIMA_SEDIMENTATION
! P. Wautelet 26/04/2019: replace non-standard FLOAT function by REAL function
! P. Wautelet 28/05/2019: move COUNTJV function to tools.f90
! B. Vie 03/2020: disable temperature change of droplets by air temperature
+! J. Wurtz 03/2022: new snow characteristics
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_CST, ONLY: XRHOLW, XCL, XCI
+USE MODD_CST, ONLY: XRHOLW, XCL, XCI, XPI
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
-USE MODD_PARAM_LIMA, ONLY: XCEXVT, XRTMIN, XCTMIN, NSPLITSED, &
- XLB, XLBEX, XD, XFSEDR, XFSEDC, &
- XALPHAC, XNUC
-USE MODD_PARAM_LIMA_COLD, ONLY: XLBEXI, XLBI, XDI
+USE MODD_PARAM_LIMA, ONLY: XCEXVT, XRTMIN, XCTMIN, NSPLITSED, &
+ XLB, XLBEX, XD, XFSEDR, XFSEDC, &
+ XALPHAC, XNUC, XALPHAS, XNUS, LSNOW_T, &
+ NMOM_S
+USE MODD_PARAM_LIMA_COLD, ONLY: XLBEXI, XLBI, XDI, XLBDAS_MAX, XBS, XEXSEDS, &
+ XLBDAS_MIN, XTRANS_MP_GAMMAS, XFVELOS
use mode_tools, only: Countjv
@@ -131,10 +134,13 @@ INTEGER , DIMENSION(SIZE(PRHODREF)) :: I1,I2,I3 ! Indexes for PACK replacement
!
REAL :: ZTSPLITG ! Small time step for rain sedimentation
REAL :: ZC ! Cpl or Cpi
+INTEGER :: ZMOMENTS
!
!
!-------------------------------------------------------------------------------
!
+ZMOMENTS=KMOMENTS
+!
! Time splitting
!
ZTSPLITG= PTSTEP / REAL(NSPLITSED(KID))
@@ -151,6 +157,12 @@ END DO
IF (HPHASE=='L') ZC=XCL
IF (HPHASE=='I') ZC=XCI
!
+IF (KID==4 .AND. ZMOMENTS==1) THEN
+ ZMOMENTS=2
+ WHERE(PRS(:,:,:)>0) PCS(:,:,:)=1/(4*XPI*900.) * PRS(:,:,:) * &
+ MAX(0.05E6,-0.15319E6-0.021454E6*ALOG(PRHODREF(:,:,:)*PRS(:,:,:)))**3
+END IF
+!
! ################################
! Compute the sedimentation fluxes
! ################################
@@ -159,7 +171,7 @@ DO JN = 1 , NSPLITSED(KID)
! Computation only where enough ice, snow, graupel or hail
GSEDIM(:,:,:) = .FALSE.
GSEDIM(KIB:KIE,KJB:KJE,KKTB:KKTE) = PRS(KIB:KIE,KJB:KJE,KKTB:KKTE)>XRTMIN(KID)
- IF (KMOMENTS==2) GSEDIM(:,:,:) = GSEDIM(:,:,:) .AND. PCS(:,:,:)>XCTMIN(KID)
+ IF (ZMOMENTS==2) GSEDIM(:,:,:) = GSEDIM(:,:,:) .AND. PCS(:,:,:)>XCTMIN(KID)
ISEDIM = COUNTJV( GSEDIM(:,:,:),I1(:),I2(:),I3(:))
!
IF( ISEDIM >= 1 ) THEN
@@ -180,14 +192,29 @@ DO JN = 1 , NSPLITSED(KID)
ZPABST(JL) = PPABST(I1(JL),I2(JL),I3(JL))
ZT(JL) = PT(I1(JL),I2(JL),I3(JL))
ZRS(JL) = PRS(I1(JL),I2(JL),I3(JL))
- IF (KMOMENTS==2) ZCS(JL) = PCS(I1(JL),I2(JL),I3(JL))
+ IF (ZMOMENTS==2) ZCS(JL) = PCS(I1(JL),I2(JL),I3(JL))
END DO
!
- IF (KMOMENTS==1) ZLBDA(:) = XLB(KID) * ( ZRHODREF(:) * ZRS(:) )**XLBEX(KID)
- IF (KMOMENTS==2) ZLBDA(:) = ( XLB(KID)*ZCS(:) / ZRS(:) )**XLBEX(KID)
+ IF (KID == 5 .AND. NMOM_S.EQ.1 .AND. LSNOW_T) THEN
+ ZLBDA(:) = 1.E10
+ WHERE(ZT(:)>263.15 .AND. ZRS(:)>XRTMIN(5))
+ ZLBDA(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZT(:))),XLBDAS_MIN)
+ END WHERE
+ WHERE(ZT(:)<=263.15 .AND. ZRS(:)>XRTMIN(5))
+ ZLBDA(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZT(:))),XLBDAS_MIN)
+ END WHERE
+ ZLBDA(:) = ZLBDA(:)*XTRANS_MP_GAMMAS
+ ZZW(:) = XFSEDR(KID) * ZRHODREF(:)**(1.-XCEXVT)*ZRS(:)* &
+ (1 + (XFVELOS/ZLBDA(:))**XALPHAS)**(-XNUS-(XD(KID)+XBS)/XALPHAS) * ZLBDA(:)**(-XD(KID))
+ ELSE
+ IF (ZMOMENTS==1) ZLBDA(:) = XLB(KID) * ( ZRHODREF(:) * ZRS(:) )**XLBEX(KID)
+ IF (ZMOMENTS==2) ZLBDA(:) = ( XLB(KID)*ZCS(:) / ZRS(:) )**XLBEX(KID)
+ ZZY(:) = ZRHODREF(:)**(-XCEXVT) * ZLBDA(:)**(-XD(KID))
+ IF (LSNOW_T .AND. KID==5) &
+ ZZY(:) = ZZY(:) * (1 + (XFVELOS/ZLBDA(:))**XALPHAS)**(-XNUS-(XD(KID)+XBS)/XALPHAS)
+ ZZW(:) = XFSEDR(KID) * ZRS(:) * ZZY(:) * ZRHODREF(:)
+ END IF ! Wurtz
!
- ZZY(:) = ZRHODREF(:)**(-XCEXVT) * ZLBDA(:)**(-XD(KID))
- ZZW(:) = XFSEDR(KID) * ZRS(:) * ZZY(:) * ZRHODREF(:)
IF (KMOMENTS==2) ZZX(:) = XFSEDC(KID) * ZCS(:) * ZZY(:) * ZRHODREF(:)
IF (KID==2) THEN
diff --git a/src/mesonh/micro/lima_snow_deposition.f90 b/src/mesonh/micro/lima_snow_deposition.f90
index 697f9ee74..3bd8d0141 100644
--- a/src/mesonh/micro/lima_snow_deposition.f90
+++ b/src/mesonh/micro/lima_snow_deposition.f90
@@ -10,7 +10,7 @@
INTERFACE
SUBROUTINE LIMA_SNOW_DEPOSITION (LDCOMPUTE, &
PRHODREF, PSSI, PAI, PCJ, PLSFACT, &
- PRST, PLBDS, &
+ PRST, PCST, PLBDS, &
P_RI_CNVI, P_CI_CNVI, &
P_TH_DEPS, P_RS_DEPS )
!
@@ -23,6 +23,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PCJ ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! abs. pressure at time t
!
REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow/aggregate concentration
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! Graupel m.r. at t
!
@@ -38,7 +39,7 @@ END MODULE MODI_LIMA_SNOW_DEPOSITION
! ##########################################################################
SUBROUTINE LIMA_SNOW_DEPOSITION (LDCOMPUTE, &
PRHODREF, PSSI, PAI, PCJ, PLSFACT, &
- PRST, PLBDS, &
+ PRST, PCST, PLBDS, &
P_RI_CNVI, P_CI_CNVI, &
P_TH_DEPS, P_RS_DEPS )
! ##########################################################################
@@ -63,20 +64,23 @@ SUBROUTINE LIMA_SNOW_DEPOSITION (LDCOMPUTE, &
!! -------------
!! Original 15/03/2018
!!
+! J. Wurtz 03/2022: new snow characteristics
+! B. Vie 03/2022: Add option for 1-moment pristine ice
+! M. Taufour 07/2022: add snow concentration
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS
-USE MODD_PARAM_LIMA_COLD, ONLY : XCXS, XCCS, &
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XALPHAI, XALPHAS, XNUI, XNUS, NMOM_I
+USE MODD_PARAM_LIMA_COLD, ONLY : XNS,XBS, &
XLBDAS_MAX, XDSCNVI_LIM, XLBDASCNVI_MAX, &
XC0DEPSI, XC1DEPSI, XR0DEPSI, XR1DEPSI, &
XSCFAC, X1DEPS, X0DEPS, XEX1DEPS, XEX0DEPS, &
XDICNVS_LIM, XLBDAICNVS_LIM, &
XC0DEPIS, XC1DEPIS, XR0DEPIS, XR1DEPIS, &
XCOLEXIS, XAGGS_CLARGE1, XAGGS_CLARGE2, &
- XAGGS_RLARGE1, XAGGS_RLARGE2
+ XAGGS_RLARGE1, XAGGS_RLARGE2, XFVELOS
!
IMPLICIT NONE
@@ -92,6 +96,7 @@ REAL, DIMENSION(:), INTENT(IN) :: PCJ ! abs. pressure at time t
REAL, DIMENSION(:), INTENT(IN) :: PLSFACT ! abs. pressure at time t
!
REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow/aggregate m.r. at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow/aggregate m.r. at t
!
REAL, DIMENSION(:), INTENT(IN) :: PLBDS ! Graupel m.r. at t
!
@@ -105,7 +110,6 @@ REAL, DIMENSION(:), INTENT(OUT) :: P_RS_DEPS
LOGICAL, DIMENSION(SIZE(PRHODREF)) :: GMICRO ! Computations only where necessary
REAL, DIMENSION(SIZE(PRHODREF)) :: ZZW, ZZW2, ZZX ! Work array
!
-!
!-------------------------------------------------------------------------------
!
P_RI_CNVI(:) = 0.
@@ -113,51 +117,63 @@ P_CI_CNVI(:) = 0.
P_TH_DEPS(:) = 0.
P_RS_DEPS(:) = 0.
!
-! Physical limitations
-!
-!
! Looking for regions where computations are necessary
-!
GMICRO(:) = LDCOMPUTE(:) .AND. PRST(:)>XRTMIN(5)
!
+IF (NMOM_I.EQ.1) THEN
+ WHERE( GMICRO )
+!
+! Deposition of water vapor on r_s: RVDEPS
!
-WHERE( GMICRO )
+ ZZW(:) = 0.0
+ WHERE ( PRST(:)>XRTMIN(5) )
+ ZZW(:) = PCST(:) * PSSI(:) / PAI(:) * &
+ ( X0DEPS*PLBDS(:)**XEX0DEPS + &
+ X1DEPS*PLBDS(:)**XEX1DEPS *PCJ(:) * &
+ (1+0.5*(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS) )
+ ZZW(:) = ZZW(:)*(0.5+SIGN(0.5,ZZW(:))) - ABS(ZZW(:))*(0.5-SIGN(0.5,ZZW(:)))
+ END WHERE
+ P_RS_DEPS(:) = ZZW(:)
+ END WHERE
+ELSE
+ WHERE( GMICRO )
!
!* 2.1 Conversion of snow to r_i: RSCNVI
! ----------------------------------------
!
!
- ZZW2(:) = 0.0
- ZZW(:) = 0.0
- WHERE ( PLBDS(:)<XLBDASCNVI_MAX .AND. (PRST(:)>XRTMIN(5)) &
- .AND. (PSSI(:)<0.0) )
- ZZW(:) = (PLBDS(:)*XDSCNVI_LIM)**(XALPHAS)
- ZZX(:) = ( -PSSI(:)/PAI(:) ) * (XCCS*PLBDS(:)**XCXS) * (ZZW(:)**XNUS) * EXP(-ZZW(:))
+ ZZW2(:) = 0.0
+ ZZW(:) = 0.0
+ WHERE ( PLBDS(:)<XLBDASCNVI_MAX .AND. PRST(:)>XRTMIN(5) .AND. PCST(:)>XCTMIN(5) &
+ .AND. PSSI(:)<0.0 )
+ ZZW(:) = (PLBDS(:)*XDSCNVI_LIM)**(XALPHAS)
+ ZZX(:) = ( -PSSI(:)/PAI(:) ) * PCST(:) * (ZZW(:)**XNUS) * EXP(-ZZW(:))
!
- ZZW(:) = ( XR0DEPSI+XR1DEPSI*PCJ(:) )*ZZX(:)
+ ZZW(:) = ( XR0DEPSI+XR1DEPSI*PCJ(:) )*ZZX(:)
!
- ZZW2(:) = ZZW(:)*( XC0DEPSI+XC1DEPSI*PCJ(:) )/( XR0DEPSI+XR1DEPSI*PCJ(:) )
- END WHERE
+ ZZW2(:)= ( XC0DEPSI+XC1DEPSI*PCJ(:) )*ZZX(:)
+ END WHERE
!
- P_RI_CNVI(:) = ZZW(:)
- P_CI_CNVI(:) = ZZW2(:)
+ P_RI_CNVI(:) = ZZW(:)
+ P_CI_CNVI(:) = ZZW2(:)
!
!
!* 2.2 Deposition of water vapor on r_s: RVDEPS
! -----------------------------------------------
!
!
- ZZW(:) = 0.0
- WHERE ( (PRST(:)>XRTMIN(5)) )
- ZZW(:) = ( PSSI(:)/(PAI(:)) ) * &
- ( X0DEPS*PLBDS(:)**XEX0DEPS + X1DEPS*PCJ(:)*PLBDS(:)**XEX1DEPS )
- ZZW(:) = ZZW(:)*(0.5+SIGN(0.5,ZZW(:))) - ABS(ZZW(:))*(0.5-SIGN(0.5,ZZW(:)))
- END WHERE
+ ZZW(:) = 0.0
+ WHERE ( PRST(:)>XRTMIN(5) .AND. PCST(:)>XCTMIN(5) )
+ ZZW(:) = ( PCST(:)*PSSI(:)/PAI(:) ) * &
+ ( X0DEPS*PLBDS(:)**XEX0DEPS + &
+ ( X1DEPS*PCJ(:)*PLBDS(:)**XEX1DEPS * &
+ (1+0.5*(XFVELOS/PLBDS(:))**XALPHAS)**(-XNUS+XEX1DEPS/XALPHAS)) )
+ ZZW(:) = ZZW(:)*(0.5+SIGN(0.5,ZZW(:))) - ABS(ZZW(:))*(0.5-SIGN(0.5,ZZW(:)))
+ END WHERE
!
- P_RS_DEPS(:) = ZZW(:)
-!!$ P_TH_DEPS(:) = P_RS_DEPS(:) * PLSFACT(:)
+ P_RS_DEPS(:) = ZZW(:)
!
-END WHERE
-!
+ END WHERE
+END IF
!
END SUBROUTINE LIMA_SNOW_DEPOSITION
diff --git a/src/mesonh/micro/lima_snow_self_collection.f90 b/src/mesonh/micro/lima_snow_self_collection.f90
new file mode 100644
index 000000000..ea38870b8
--- /dev/null
+++ b/src/mesonh/micro/lima_snow_self_collection.f90
@@ -0,0 +1,149 @@
+!MNH_LIC Copyright 2018-2021 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+!-------------------------------------------------------------------------------
+! #################################
+ MODULE MODI_LIMA_SNOW_SELF_COLLECTION
+! #################################
+!
+INTERFACE
+ SUBROUTINE LIMA_SNOW_SELF_COLLECTION (LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRST, PCST, PLBDS, &
+ P_CS_SSC )
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! Reference Exner function
+REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_SSC
+!
+END SUBROUTINE LIMA_SNOW_SELF_COLLECTION
+END INTERFACE
+END MODULE MODI_LIMA_SNOW_SELF_COLLECTION
+!
+! #############################################################
+ SUBROUTINE LIMA_SNOW_SELF_COLLECTION (LDCOMPUTE, &
+ PRHODREF, PT, &
+ PRST, PCST, PLBDS, &
+ P_CS_SSC )
+! #############################################################
+!
+!! PURPOSE
+!! -------
+!! Compute the self-collection and physical break-up of snow
+!!
+!!
+!! AUTHOR
+!! ------
+!! J.-M. Cohard * Laboratoire d'Aerologie*
+!! J.-P. Pinty * Laboratoire d'Aerologie*
+!! S. Berthet * Laboratoire d'Aerologie*
+!! B. Vié * CNRM *
+!!
+!! MODIFICATIONS
+!! -------------
+!! Original 15/03/2018
+!!
+!-------------------------------------------------------------------------------
+!
+!* 0. DECLARATIONS
+! ------------
+!
+USE MODD_CST, ONLY : XTT
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XCEXVT
+USE MODD_PARAM_LIMA_COLD, ONLY : NSCLBDAS, XSCINTP1S, XSCINTP2S, XKER_N_SSCS, XFNSSCS, XCOLEXSS, &
+ XLBNSSCS1, XLBNSSCS2
+!
+IMPLICIT NONE
+!
+!* 0.1 Declarations of dummy arguments :
+!
+LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRHODREF ! Reference Exner function
+REAL, DIMENSION(:), INTENT(IN) :: PT ! Temperature
+!
+REAL, DIMENSION(:), INTENT(IN) :: PRST ! Snow mr at t
+REAL, DIMENSION(:), INTENT(IN) :: PCST ! Snow C. at t
+REAL, DIMENSION(:), INTENT(IN) :: PLBDS !
+!
+REAL, DIMENSION(:), INTENT(OUT) :: P_CS_SSC
+!
+!* 0.2 Declarations of local variables :
+!
+REAL, DIMENSION(SIZE(PCST)) :: &
+ ZW1, & ! work arrays
+ ZW2
+LOGICAL, DIMENSION(SIZE(PCST)) :: GSSC
+INTEGER :: IGSSC, JJ
+INTEGER, DIMENSION(:), ALLOCATABLE :: IVEC1,IVEC2 ! Vectors of indices
+REAL, DIMENSION(:), ALLOCATABLE :: ZVEC1,ZVEC2, ZVEC3 ! Work vectors
+!
+!-------------------------------------------------------------------------------
+!
+!
+!* 1. Snow self-collection and break-up
+! ---------------------------------
+!
+!
+P_CS_SSC(:)=0.
+!
+ZW1(:) =0.
+ZW2(:) =0.
+!
+GSSC(:) = PCST(:)>XCTMIN(5) .AND. PRST(:)>XRTMIN(5)
+IGSSC = COUNT(GSSC(:))
+!
+IF( IGSSC>0 ) THEN
+!
+! 1.3N.0 allocations
+!
+ ALLOCATE(ZVEC1(IGSSC))
+ ALLOCATE(IVEC1(IGSSC))
+!
+! 1.3N.1 select the (ZLBDAS,ZLBDAS) couplet
+!
+ ZVEC1(:) = PACK( PLBDS(:),MASK=GSSC(:) )
+!
+! 1.3N.2 find the next lower indice for the ZLBDAS and for the ZLBDAS
+! in the geometrical set of (Lbda_s,Lbda_s) couplet use to
+! tabulate the SACCS-kernel
+!
+ ZVEC1(1:IGSSC) = MAX( 1.0001, MIN( FLOAT(NSCLBDAS)-0.0001, &
+ XSCINTP1S * LOG( ZVEC1(1:IGSSC) ) + XSCINTP2S ) )
+ IVEC1(1:IGSSC) = INT( ZVEC1(1:IGSSC) )
+ ZVEC1(1:IGSSC) = ZVEC1(1:IGSSC) - FLOAT( IVEC1(1:IGSSC) )
+!
+! 1.3N.3 perform the bilinear interpolation of the normalized
+! SSCS-kernel
+!
+ ALLOCATE(ZVEC3(IGSSC))
+ DO JJ = 1,IGSSC
+ ZVEC3(JJ) = ( XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ)+1,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * ZVEC1(JJ) &
+ - ( XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ)+1)* ZVEC1(JJ) &
+ - XKER_N_SSCS(IVEC1(JJ) ,IVEC1(JJ) )*(ZVEC1(JJ) - 1.0) ) &
+ * (ZVEC1(JJ) - 1.0)
+ END DO
+ ZW1(:) = UNPACK( VECTOR=ZVEC3(:),MASK=GSSC(:),FIELD=0.0 ) !! NSACCS
+ DEALLOCATE(ZVEC3)
+!
+ WHERE( GSSC(:) )
+ P_CS_SSC(:) = - XFNSSCS * ZW1(:) * EXP( XCOLEXSS*(PT(:)-XTT) ) * PCST(:)**2 &
+ * PRHODREF(:)**(-XCEXVT-1.) * (XLBNSSCS1+XLBNSSCS2) / PLBDS(:)**2
+ END WHERE
+ DEALLOCATE(IVEC1)
+ DEALLOCATE(ZVEC1)
+END IF
+!
+!-------------------------------------------------------------------------------
+!
+END SUBROUTINE LIMA_SNOW_SELF_COLLECTION
diff --git a/src/mesonh/micro/lima_tendencies.f90 b/src/mesonh/micro/lima_tendencies.f90
index bd98d503c..d8c8d18d9 100644
--- a/src/mesonh/micro/lima_tendencies.f90
+++ b/src/mesonh/micro/lima_tendencies.f90
@@ -7,42 +7,46 @@
MODULE MODI_LIMA_TENDENCIES
!###############################
INTERFACE
- SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
- PEXNREF, PRHODREF, PPABST, PTHT, &
- PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
- PCCT, PCRT, PCIT, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- P_CC_SELF, &
- P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
- P_RC_ACCR, P_CC_ACCR, &
- P_CR_SCBU, &
- P_TH_EVAP, P_RR_EVAP, &
- P_RI_CNVI, P_CI_CNVI, &
- P_TH_DEPS, P_RS_DEPS, &
- P_TH_DEPI, P_RI_DEPI, &
- P_RI_CNVS, P_CI_CNVS, &
- P_RI_AGGS, P_CI_AGGS, &
- P_TH_DEPG, P_RG_DEPG, &
- P_TH_BERFI, P_RC_BERFI, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC, &
- P_RS_CMEL, &
- P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
- P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
- P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
- P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
-!!! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-!!! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
- PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH, &
- PEVAP3D, &
- PCF1D, PIF1D, PPF1D )
+ SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
+ PEXNREF, PRHODREF, PPABST, PTHT, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ P_TH_HONC, P_RC_HONC, P_CC_HONC, &
+ P_CC_SELF, &
+ P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
+ P_RC_ACCR, P_CC_ACCR, &
+ P_CR_SCBU, &
+ P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
+ P_RI_CNVI, P_CI_CNVI, &
+ P_TH_DEPS, P_RS_DEPS, &
+ P_TH_DEPI, P_RI_DEPI, &
+ P_RI_CNVS, P_CI_CNVS, &
+ P_CS_SSC, &
+ P_RI_AGGS, P_CI_AGGS, &
+ P_TH_DEPG, P_RG_DEPG, &
+ P_TH_BERFI, P_RC_BERFI, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC, &
+ P_RS_CMEL, P_CS_CMEL, &
+ P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
+ P_RI_CIBU, P_CI_CIBU, &
+ P_RI_RDSF, P_CI_RDSF, &
+ P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
+ P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
+ P_RI_HMG, P_CI_HMG, P_RG_HMG, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
+ P_TH_DEPH, P_RH_DEPH, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH, &
+ PEVAP3D, &
+ PCF1D, PIF1D, PPF1D )
!
REAL, INTENT(IN) :: PTSTEP
LOGICAL, DIMENSION(:),INTENT(IN) :: LDCOMPUTE
@@ -62,7 +66,10 @@ REAL, DIMENSION(:), INTENT(IN) :: PRHT ! Mixing ratios (kg/kg)
!
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
REAL, DIMENSION(:), INTENT(IN) :: PCRT !
-REAL, DIMENSION(:), INTENT(IN) :: PCIT ! Number concentrations (/kg)
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(IN) :: PCST !
+REAL, DIMENSION(:), INTENT(IN) :: PCGT !
+REAL, DIMENSION(:), INTENT(IN) :: PCHT ! Number concentrations (/kg)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
@@ -80,7 +87,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_ACCR ! accretion of droplets by rain
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_SCBU ! self collectio break up of drops (SCBU) : Nr
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_EVAP
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_EVAP ! evaporation of rain drops (EVAP) : rr, rv=-rr
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_EVAP
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_EVAP ! evaporation of rain drops (EVAP) : rr, Nr, rv=-rr
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVI
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVI ! conversion snow -> ice (CNVI) : ri, Ni, rs=-ri
@@ -94,6 +102,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DEPI ! deposition of vapor on ice (
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVS ! conversion ice -> snow (CNVS) : ri, Ni, rs=-ri
!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_SSC ! self collection of snow (SSC) : Ns
+!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_AGGS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_AGGS ! aggregation of ice on snow (AGGS) : ri, Ni, rs=-ri
!
@@ -107,7 +117,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_RIM
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM ! cloud droplet riming (RIM) : rc, Nc, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_RIM
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM ! cloud droplet riming (RIM) : rc, Nc, rs, Ns, rg, Ng=-Ns, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_HMS
@@ -117,9 +128,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_ACC
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_ACC
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, Ns, rg, Ng=-Ns, th
!
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL ! conversion-melting (CMEL) : rs, rg=-rs
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_CMEL ! conversion-melting (CMEL) : rs, Ns, rg=-rs, Ng=-Ns
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_CFRZ
@@ -127,6 +140,12 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CFRZ ! rain freezing (CFRZ) : rr, Nr, ri, Ni, rg=-rr-ri, th
!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CIBU
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CIBU ! collisional ice break-up (CIBU) : ri, Ni, rs=-ri
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_RDSF
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_RDSF ! rain drops freezing shattering (RDSF) : ri, Ni, rg=-ri
+!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETG
@@ -135,8 +154,10 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, Nh=-Ng, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_DRYG
@@ -146,7 +167,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, Ns, rg, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_HMG
@@ -154,7 +176,32 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG ! hallett mossop graupel (HMG)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
-REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, Ng, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH ! deposition of vapor on hail (DEPH) : rv=-rh, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH ! wet growth of hail (WETH) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG ! conversion hail -> graupel (COHG) : rg, Ng, rh=-rg; Nh=-Ng
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, Nh, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RV
@@ -165,8 +212,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D
!
@@ -180,42 +230,46 @@ END MODULE MODI_LIMA_TENDENCIES
!#####################################################################
!
!#####################################################################
-SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
- PEXNREF, PRHODREF, PPABST, PTHT, &
- PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
- PCCT, PCRT, PCIT, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- P_CC_SELF, &
- P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
- P_RC_ACCR, P_CC_ACCR, &
- P_CR_SCBU, &
- P_TH_EVAP, P_RR_EVAP, &
- P_RI_CNVI, P_CI_CNVI, &
- P_TH_DEPS, P_RS_DEPS, &
- P_TH_DEPI, P_RI_DEPI, &
- P_RI_CNVS, P_CI_CNVS, &
- P_RI_AGGS, P_CI_AGGS, &
- P_TH_DEPG, P_RG_DEPG, &
- P_TH_BERFI, P_RC_BERFI, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
- P_RI_HMS, P_CI_HMS, P_RS_HMS, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC, &
- P_RS_CMEL, &
- P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
- P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
- P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
- P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
-!!! Z_RC_WETH, Z_CC_WETH, Z_RR_WETH, Z_CR_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RI_WETH, Z_CI_WETH, Z_RS_WETH, Z_RG_WETH, Z_RH_WETH, & ! wet growth of hail (WETH) : rc, Nc, rr, Nr, ri, Ni, rs, rg, rh, th
-!!! Z_RG_COHG, & ! conversion of hail into graupel (COHG) : rg, rh
-!!! Z_RR_HMLT, Z_CR_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, th
- PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH, &
- PEVAP3D, &
- PCF1D, PIF1D, PPF1D )
+SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE, &
+ PEXNREF, PRHODREF, PPABST, PTHT, &
+ PRVT, PRCT, PRRT, PRIT, PRST, PRGT, PRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ P_TH_HONC, P_RC_HONC, P_CC_HONC, &
+ P_CC_SELF, &
+ P_RC_AUTO, P_CC_AUTO, P_CR_AUTO, &
+ P_RC_ACCR, P_CC_ACCR, &
+ P_CR_SCBU, &
+ P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
+ P_RI_CNVI, P_CI_CNVI, &
+ P_TH_DEPS, P_RS_DEPS, &
+ P_TH_DEPI, P_RI_DEPI, &
+ P_RI_CNVS, P_CI_CNVS, &
+ P_CS_SSC, &
+ P_RI_AGGS, P_CI_AGGS, &
+ P_TH_DEPG, P_RG_DEPG, &
+ P_TH_BERFI, P_RC_BERFI, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
+ P_RI_HMS, P_CI_HMS, P_RS_HMS, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC, &
+ P_RS_CMEL, P_CS_CMEL, &
+ P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ, &
+ P_RI_CIBU, P_CI_CIBU, &
+ P_RI_RDSF, P_CI_RDSF, &
+ P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
+ P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
+ P_RI_HMG, P_CI_HMG, P_RG_HMG, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
+ P_TH_DEPH, P_RH_DEPH, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RV, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH, &
+ PEVAP3D, &
+ PCF1D, PIF1D, PPF1D )
! ######################################################################
!!
!! PURPOSE
@@ -231,6 +285,9 @@ SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE,
!! -------------
!! Original 15/03/2018
!!
+! Delbeke/Vie 03/2022 : KHKO option
+! J. Wurtz 03/2022 : new snow characteristics
+! B. Vie 03/2022: Add option for 1-moment pristine ice
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -238,11 +295,13 @@ SUBROUTINE LIMA_TENDENCIES (PTSTEP, LDCOMPUTE,
!
USE MODD_CST, ONLY : XP00, XRD, XRV, XMD, XMV, XCPD, XCPV, XCL, XCI, XLVTT, XLSTT, XTT, &
XALPW, XBETAW, XGAMW, XALPI, XBETAI, XGAMI
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, &
- LCOLD, LNUCL, LSNOW, LHAIL, LWARM, LACTI, LRAIN
-USE MODD_PARAM_LIMA_WARM, ONLY : XLBC, XLBEXC, XLBR, XLBEXR
-USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XLBH, XLBEXH, XLBDAG_MAX
-USE MODD_PARAM_LIMA_COLD, ONLY : XSCFAC, XLBI, XLBEXI, XLBS, XLBEXS, XLBDAS_MAX
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, XNUS, LCIBU, LRDSF, &
+ LCOLD, LNUCL, LSNOW, LHAIL, LWARM, LACTI, LRAIN, LKHKO, LSNOW_T, &
+ NMOM_C, NMOM_R, NMOM_I, NMOM_S, NMOM_G, NMOM_H
+USE MODD_PARAM_LIMA_WARM, ONLY : XLBC, XLBEXC, XLBR, XLBEXR, XCCR, XCXR
+USE MODD_PARAM_LIMA_MIXED, ONLY : XLBG, XLBEXG, XCCG, XCXG, XLBH, XLBEXH, XCCH, XCXH, XLBDAG_MAX
+USE MODD_PARAM_LIMA_COLD, ONLY : XSCFAC, XLBI, XLBEXI, XLBS, XLBEXS, XLBDAS_MAX, XTRANS_MP_GAMMAS, &
+ XFVELOS, XLBDAS_MIN, XCCS, XCXS, XBS, XNS
!
USE MODI_LIMA_DROPLETS_HOM_FREEZING
USE MODI_LIMA_DROPLETS_SELF_COLLECTION
@@ -252,13 +311,20 @@ USE MODI_LIMA_DROPS_SELF_COLLECTION
USE MODI_LIMA_RAIN_EVAPORATION
USE MODI_LIMA_ICE_DEPOSITION
USE MODI_LIMA_SNOW_DEPOSITION
+USE MODI_LIMA_SNOW_SELF_COLLECTION
USE MODI_LIMA_ICE_AGGREGATION_SNOW
USE MODI_LIMA_GRAUPEL_DEPOSITION
USE MODI_LIMA_DROPLETS_RIMING_SNOW
USE MODI_LIMA_RAIN_ACCR_SNOW
USE MODI_LIMA_CONVERSION_MELTING_SNOW
USE MODI_LIMA_RAIN_FREEZING
+USE MODI_LIMA_COLLISIONAL_ICE_BREAKUP
+USE MODI_LIMA_RAINDROP_SHATTERING_FREEZING
USE MODI_LIMA_GRAUPEL
+USE MODI_LIMA_HAIL_DEPOSITION
+USE MODI_LIMA_HAIL
+!
+USE MODI_LIMA_BERGERON
!
IMPLICIT NONE
!
@@ -281,8 +347,11 @@ REAL, DIMENSION(:), INTENT(IN) :: PRGT !
REAL, DIMENSION(:), INTENT(IN) :: PRHT ! Mixing ratios (kg/kg)
!
REAL, DIMENSION(:), INTENT(IN) :: PCCT !
-REAL, DIMENSION(:), INTENT(IN) :: PCRT !
-REAL, DIMENSION(:), INTENT(IN) :: PCIT ! Number concentrations (/kg)
+REAL, DIMENSION(:), INTENT(INOUT) :: PCRT !
+REAL, DIMENSION(:), INTENT(IN) :: PCIT !
+REAL, DIMENSION(:), INTENT(INOUT) :: PCST !
+REAL, DIMENSION(:), INTENT(INOUT) :: PCGT !
+REAL, DIMENSION(:), INTENT(INOUT) :: PCHT ! Number concentrations (/kg)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HONC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_HONC
@@ -300,7 +369,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_ACCR ! accretion of droplets by rain
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_SCBU ! self collectio break up of drops (SCBU) : Nr
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_EVAP
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_EVAP ! evaporation of rain drops (EVAP) : rr, rv=-rr
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_EVAP
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_EVAP ! evaporation of rain drops (EVAP) : rr, Nr, rv=-rr
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVI
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVI ! conversion snow -> ice (CNVI) : ri, Ni, rs=-ri
@@ -314,6 +384,8 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DEPI ! deposition of vapor on ice (
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CNVS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CNVS ! conversion ice -> snow (CNVS) : ri, Ni, rs=-ri
!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_SSC ! self collection of snow (SSC) : Ns
+!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_AGGS
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_AGGS ! aggregation of ice on snow (AGGS) : ri, Ni, rs=-ri
!
@@ -327,6 +399,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_RIM
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_RIM
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_RIM ! cloud droplet riming (RIM) : rc, Nc, rs, rg, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMS
@@ -337,9 +410,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_ACC
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_ACC
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, rg, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_ACC
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_ACC ! rain accretion on aggregates (ACC) : rr, Nr, rs, Ns, rg, Ng=-Ns, th
!
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL ! conversion-melting (CMEL) : rs, rg=-rs
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_CMEL
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_CMEL ! conversion-melting (CMEL) : rs, Ns, rg=-rs, Ng=-Ns
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_CFRZ
@@ -347,6 +422,12 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CFRZ
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CFRZ ! rain freezing (CFRZ) : rr, Nr, ri, Ni, rg=-rr-ri, th
!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_CIBU
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_CIBU ! collisional ice break-up (CIBU) : ri, Ni, rs=-ri
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_RDSF
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_RDSF ! rain drops freezing shattering (RDSF) : ri, Ni, rg=-ri
+!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETG
@@ -355,8 +436,10 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETG
-REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, rg, rh, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETG ! wet growth of graupel (WETG) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, Nh=-Ng, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_DRYG
@@ -366,6 +449,7 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_DRYG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_DRYG
REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_DRYG ! dry growth of graupel (DRYG) : rc, Nc, rr, Nr, ri, Ni, rs, rg, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_HMG
@@ -374,7 +458,32 @@ REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_HMG ! hallett mossop graupel (HMG)
!
REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_GMLT
REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_GMLT
-REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, th
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_GMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_GMLT ! graupel melting (GMLT) : rr, Nr, rg=-rr, Ng, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_DEPH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_DEPH ! deposition of vapor on hail (DEPH) : rv=-rh, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CC_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CI_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CS_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_WETH
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RH_WETH ! wet growth of hail (WETH) : rc, NC, rr, Nr, ri, Ni, rs, Ns, rg, Ng, rh, th
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RG_COHG
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CG_COHG ! conversion hail -> graupel (COHG) : rg, Ng, rh=-rg; Nh=-Ng
+!
+REAL, DIMENSION(:), INTENT(INOUT) :: P_TH_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_RR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CR_HMLT
+REAL, DIMENSION(:), INTENT(INOUT) :: P_CH_HMLT ! hail melting (HMLT) : rr, Nr, rh=-rr, Nh, th
!
REAL, DIMENSION(:), INTENT(INOUT) :: PA_TH
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RV
@@ -385,8 +494,11 @@ REAL, DIMENSION(:), INTENT(INOUT) :: PA_CR
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_CI
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RS
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CS
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RG
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CG
REAL, DIMENSION(:), INTENT(INOUT) :: PA_RH
+REAL, DIMENSION(:), INTENT(INOUT) :: PA_CH
!
REAL, DIMENSION(:), INTENT(INOUT) :: PEVAP3D
!
@@ -404,6 +516,7 @@ REAL, DIMENSION(SIZE(PRCT)) :: ZLBDR
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDR3
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDI
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDS
+REAL, DIMENSION(SIZE(PRCT)) :: ZLBDS3
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDG
REAL, DIMENSION(SIZE(PRCT)) :: ZLBDH
@@ -432,6 +545,12 @@ REAL, DIMENSION(SIZE(PRCT)) :: ZCF1D
REAL, DIMENSION(SIZE(PRCT)) :: ZIF1D
REAL, DIMENSION(SIZE(PRCT)) :: ZPF1D
!
+REAL, DIMENSION(SIZE(PRCT)) :: ZRCT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRRT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRIT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRST
+REAL, DIMENSION(SIZE(PRCT)) :: ZRGT
+REAL, DIMENSION(SIZE(PRCT)) :: ZRHT
!-------------------------------------------------------------------------------
! Pre-compute quantities
!
@@ -441,6 +560,39 @@ ZCF1D(:) = MAX(PCF1D(:),0.01)
ZIF1D(:) = MAX(PIF1D(:),0.01)
ZPF1D(:) = MAX(PPF1D(:),0.01)
!
+!
+!
+WHERE (PRCT(:).GE.XRTMIN(2))
+ ZRCT(:)=PRCT(:)
+ELSEWHERE
+ ZRCT(:)=0.
+END WHERE
+WHERE (PRRT(:).GE.XRTMIN(3))
+ ZRRT(:)=PRRT(:)
+ELSEWHERE
+ ZRRT(:)=0.
+END WHERE
+WHERE (PRIT(:).GE.XRTMIN(4))
+ ZRIT(:)=PRIT(:)
+ELSEWHERE
+ ZRIT(:)=0.
+END WHERE
+WHERE (PRST(:).GE.XRTMIN(5))
+ ZRST(:)=PRST(:)
+ELSEWHERE
+ ZRST(:)=0.
+END WHERE
+WHERE (PRGT(:).GE.XRTMIN(6))
+ ZRGT(:)=PRGT(:)
+ELSEWHERE
+ ZRGT(:)=0.
+END WHERE
+WHERE (PRHT(:).GE.XRTMIN(7))
+ ZRHT(:)=PRHT(:)
+ELSEWHERE
+ ZRHT(:)=0.
+END WHERE
+!
! Is it necessary to compute the following quantities
! accounting for subgrig cloud fraction ?
! lambda does not depend on cloud fraction for 2-m species
@@ -455,8 +607,8 @@ WHERE (LDCOMPUTE(:))
!
ZW(:) = PEXNREF(:)*( XCPD &
+XCPV*PRVT(:) &
- +XCL*(PRCT(:)+PRRT(:)) &
- +XCI*(PRIT(:)+PRST(:)+PRGT(:)+PRHT(:)) )
+ +XCL*(ZRCT(:)+ZRRT(:)) &
+ +XCI*(ZRIT(:)+ZRST(:)+ZRGT(:)+ZRHT(:)) )
!
ZLV(:) = XLVTT + (XCPV-XCL)*(ZT(:)-XTT)
ZLVFACT(:) = ZLV(:)/ZW(:) ! L_v/(Pi_ref*C_ph)
@@ -484,35 +636,88 @@ WHERE (LDCOMPUTE(:))
!
END WHERE
!
-!
+! Cloud droplets : same formula for 1 and 2 moments, but using real or fixed Nc value
ZLBDC(:) = 1.E10
ZLBDC3(:) = 1.E30
-WHERE (PRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. LDCOMPUTE(:))
- ZLBDC3(:) = XLBC*PCCT(:) / PRCT(:)
+WHERE (ZRCT(:)>XRTMIN(2) .AND. PCCT(:)>XCTMIN(2) .AND. LDCOMPUTE(:))
+ ZLBDC3(:) = XLBC*PCCT(:) / ZRCT(:)
ZLBDC(:) = ZLBDC3(:)**XLBEXC
END WHERE
+!
+! Rain drops
ZLBDR(:) = 1.E10
ZLBDR3(:) = 1.E30
-WHERE (PRRT(:)>XRTMIN(3) .AND. PCRT(:)>XCTMIN(3) .AND. LDCOMPUTE(:))
- ZLBDR3(:) = XLBR*PCRT(:) / PRRT(:)
- ZLBDR(:) = ZLBDR3(:)**XLBEXR
-END WHERE
+IF (NMOM_R.EQ.1) THEN
+ WHERE (ZRRT(:)>XRTMIN(3) .AND. LDCOMPUTE(:) )
+ ZLBDR(:) = XLBR*(PRHODREF(:)*ZRRT(:) )**XLBEXR
+ ZLBDR3(:) = ZLBDR(:)**3.
+ END WHERE
+ PCRT(:) = XCCR * ZLBDR(:)**XCXR / PRHODREF(:)
+ELSE
+ WHERE (ZRRT(:)>XRTMIN(3) .AND. PCRT(:)>XCTMIN(3) .AND. LDCOMPUTE(:))
+ ZLBDR3(:) = XLBR*PCRT(:) / ZRRT(:)
+ ZLBDR(:) = ZLBDR3(:)**XLBEXR
+ END WHERE
+END IF
+!
+! Pristine ice : same formula for 1 and 2 moments, using real or diagnosed Ni
ZLBDI(:) = 1.E10
-WHERE (PRIT(:)>XRTMIN(4) .AND. PCIT(:)>XCTMIN(4) .AND. LDCOMPUTE(:))
- ZLBDI(:) = ( XLBI*PCIT(:) / PRIT(:) )**XLBEXI
+WHERE (ZRIT(:)>XRTMIN(4) .AND. PCIT(:)>XCTMIN(4) .AND. LDCOMPUTE(:))
+ ZLBDI(:) = ( XLBI*PCIT(:) / ZRIT(:) )**XLBEXI
END WHERE
+!
+! Snow : additional option for LSNOW_T if NMOM_S=1
ZLBDS(:) = 1.E10
-WHERE (PRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
- ZLBDS(:) = XLBS*( PRHODREF(:)*PRST(:) )**XLBEXS
-END WHERE
+IF (NMOM_S.EQ.1) THEN
+ IF (LSNOW_T) THEN
+ WHERE (ZRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
+ WHERE(ZT(:)>263.15)
+ ZLBDS(:) = MAX(MIN(XLBDAS_MAX, 10**(14.554-0.0423*ZT(:))),XLBDAS_MIN)
+ END WHERE
+ WHERE(ZT(:)<=263.15)
+ ZLBDS(:) = MAX(MIN(XLBDAS_MAX, 10**(6.226-0.0106*ZT(:))),XLBDAS_MIN)
+ END WHERE
+ END WHERE
+ ZLBDS(:) = ZLBDS(:) * XTRANS_MP_GAMMAS
+ PCST(:) = XNS * ZRST(:) * ZLBDS(:)**XBS
+ ELSE
+ WHERE (ZRST(:)>XRTMIN(5) .AND. LDCOMPUTE(:) )
+ ZLBDS(:) = XLBS*( PRHODREF(:)*ZRST(:) )**XLBEXS
+ END WHERE
+ PCST(:) = XCCS * ZLBDS(:)**XCXS / PRHODREF(:)
+ END IF
+ELSE
+ WHERE (ZRST(:)>XRTMIN(5) .AND. PCST(:)>XCTMIN(5) .AND. LDCOMPUTE(:))
+ ZLBDS(:) = (XLBS*PCST(:)/ZRST(:))**XLBEXS
+ END WHERE
+END IF
+ZLBDS3(:) = ZLBDS(:)**3.
+!
+! Graupel
ZLBDG(:) = 1.E10
-WHERE (PRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
- ZLBDG(:) = XLBG*( PRHODREF(:)*PRGT(:) )**XLBEXG
-END WHERE
+IF (NMOM_G.EQ.1) THEN
+ WHERE (ZRGT(:)>XRTMIN(6) .AND. LDCOMPUTE(:) )
+ ZLBDG(:) = XLBG*( PRHODREF(:)*ZRGT(:) )**XLBEXG
+ END WHERE
+ PCGT(:) = XCCG * ZLBDG(:)**XCXG / PRHODREF(:)
+ELSE
+ WHERE (ZRGT(:)>XRTMIN(6) .AND. PCGT(:)>XCTMIN(6) .AND. LDCOMPUTE(:))
+ ZLBDG(:) = (XLBG*PCGT(:)/ZRGT(:))**XLBEXG
+ END WHERE
+END IF
+!
+! Hail
ZLBDH(:) = 1.E10
-WHERE (PRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) )
- ZLBDH(:) = XLBH*( PRHODREF(:)*PRHT(:) )**XLBEXH
-END WHERE
+IF (NMOM_H.EQ.1) THEN
+ WHERE (ZRHT(:)>XRTMIN(7) .AND. LDCOMPUTE(:) )
+ ZLBDH(:) = XLBH*( PRHODREF(:)*ZRHT(:) )**XLBEXH
+ PCHT(:) = XCCH * ZLBDH(:)**XCXH / PRHODREF(:)
+ END WHERE
+ELSE
+ WHERE (ZRHT(:)>XRTMIN(7) .AND. PCHT(:)>XCTMIN(7) .AND. LDCOMPUTE(:))
+ ZLBDH(:) = (XLBH*PCHT(:)/ZRHT(:))**XLBEXH
+ END WHERE
+END IF
!
!-------------------------------------------------------------------------------
! Call microphysical processes
@@ -520,12 +725,17 @@ END WHERE
IF (LCOLD .AND. LWARM) THEN
CALL LIMA_DROPLETS_HOM_FREEZING (PTSTEP, LDCOMPUTE, & ! independent from CF,IF,PF
ZT, ZLVFACT, ZLSFACT, &
- PRCT, PCCT, ZLBDC, &
- P_TH_HONC, P_RC_HONC, P_CC_HONC, &
- PA_TH, PA_RC, PA_CC, PA_RI, PA_CI )
+ ZRCT, PCCT, ZLBDC, &
+ P_TH_HONC, P_RC_HONC, P_CC_HONC )
+ PA_RC(:) = PA_RC(:) + P_RC_HONC(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_HONC(:)
+ PA_RI(:) = PA_RI(:) - P_RC_HONC(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) - P_CC_HONC(:)
+ P_TH_ACC(:) = - P_RC_HONC(:) * (ZLSFACT(:)-ZLVFACT(:))
+ PA_TH(:) = PA_TH(:) + P_TH_HONC(:)
END IF
!
-IF (LWARM .AND. LRAIN) THEN
+IF (LWARM .AND. LRAIN .AND. (.NOT. LKHKO) .AND. NMOM_C.GE.2) THEN
CALL LIMA_DROPLETS_SELF_COLLECTION (LDCOMPUTE, & ! depends on CF
PRHODREF, &
PCCT/ZCF1D, ZLBDC3, &
@@ -537,22 +747,22 @@ END IF
IF (LWARM .AND. LRAIN) THEN
CALL LIMA_DROPLETS_AUTOCONVERSION (LDCOMPUTE, & ! depends on CF
PRHODREF, &
- PRCT/ZCF1D, PCCT/ZCF1D, ZLBDC, ZLBDR, &
+ ZRCT/ZCF1D, PCCT/ZCF1D, ZLBDC, ZLBDR, &
P_RC_AUTO, P_CC_AUTO, P_CR_AUTO )
P_RC_AUTO(:) = P_RC_AUTO(:) * ZCF1D(:)
P_CC_AUTO(:) = P_CC_AUTO(:) * ZCF1D(:)
P_CR_AUTO(:) = P_CR_AUTO(:) * ZCF1D(:)
!
PA_RC(:) = PA_RC(:) + P_RC_AUTO(:)
- PA_CC(:) = PA_CC(:) + P_CC_AUTO(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_AUTO(:)
PA_RR(:) = PA_RR(:) - P_RC_AUTO(:)
- PA_CR(:) = PA_CR(:) + P_CR_AUTO(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_AUTO(:)
END IF
!
IF (LWARM .AND. LRAIN) THEN
CALL LIMA_DROPLETS_ACCRETION (LDCOMPUTE, & ! depends on CF, PF
PRHODREF, &
- PRCT/ZCF1D, PRRT/ZPF1D, PCCT/ZCF1D, PCRT/ZPF1D,&
+ ZRCT/ZCF1D, ZRRT/ZPF1D, PCCT/ZCF1D, PCRT/ZPF1D,&
ZLBDC, ZLBDC3, ZLBDR, ZLBDR3, &
P_RC_ACCR, P_CC_ACCR )
!
@@ -560,11 +770,11 @@ IF (LWARM .AND. LRAIN) THEN
P_RC_ACCR(:) = P_RC_ACCR(:) * ZCF1D(:)
!
PA_RC(:) = PA_RC(:) + P_RC_ACCR(:)
- PA_CC(:) = PA_CC(:) + P_CC_ACCR(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_ACCR(:)
PA_RR(:) = PA_RR(:) - P_RC_ACCR(:)
END IF
!
-IF (LWARM .AND. LRAIN) THEN
+IF (LWARM .AND. LRAIN .AND. (.NOT. LKHKO) .AND. NMOM_R.GE.2) THEN
CALL LIMA_DROPS_SELF_COLLECTION (LDCOMPUTE, & ! depends on PF
PRHODREF, &
PCRT/ZPF1D(:), ZLBDR, ZLBDR3, &
@@ -576,18 +786,20 @@ IF (LWARM .AND. LRAIN) THEN
END IF
!
IF (LWARM .AND. LRAIN) THEN
- CALL LIMA_RAIN_EVAPORATION (PTSTEP, LDCOMPUTE, & ! depends on PF > CF
- PRHODREF, ZT, ZLV, ZLVFACT, ZEVSAT, ZRVSAT, &
- PRVT, PRCT/ZPF1D, PRRT/ZPF1D, ZLBDR, &
- P_TH_EVAP, P_RR_EVAP, &
- PEVAP3D )
+ CALL LIMA_RAIN_EVAPORATION (PTSTEP, LDCOMPUTE, & ! depends on PF > CF
+ PRHODREF, ZT, ZLV, ZLVFACT, ZEVSAT, ZRVSAT, &
+ PRVT, ZRCT/ZPF1D, ZRRT/ZPF1D, PCRT/ZPF1D, ZLBDR, &
+ P_TH_EVAP, P_RR_EVAP, P_CR_EVAP, &
+ PEVAP3D )
P_RR_EVAP(:) = P_RR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
+ P_CR_EVAP(:) = P_RR_EVAP(:) * MAX((ZPF1D(:) - ZCF1D(:)),0.)
P_TH_EVAP(:) = P_RR_EVAP(:) * ZLVFACT(:)
PEVAP3D(:) = - P_RR_EVAP(:)
!
PA_TH(:) = PA_TH(:) + P_TH_EVAP(:)
PA_RV(:) = PA_RV(:) - P_RR_EVAP(:)
PA_RR(:) = PA_RR(:) + P_RR_EVAP(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_EVAP(:)
END IF
!
IF (LCOLD) THEN
@@ -595,8 +807,8 @@ IF (LCOLD) THEN
! Includes vapour deposition on ice, ice -> snow conversion
!
CALL LIMA_ICE_DEPOSITION (PTSTEP, LDCOMPUTE, & ! depends on IF, PF
- PRHODREF, ZSSI, ZAI, ZCJ, ZLSFACT, &
- PRIT/ZIF1D, PCIT/ZIF1D, ZLBDI, &
+ PRHODREF, ZT, ZSSI, ZAI, ZCJ, ZLSFACT, &
+ ZRIT/ZIF1D, PCIT/ZIF1D, ZLBDI, &
P_TH_DEPI, P_RI_DEPI, &
P_RI_CNVS, P_CI_CNVS )
!
@@ -608,8 +820,9 @@ IF (LCOLD) THEN
PA_TH(:) = PA_TH(:) + P_TH_DEPI(:)
PA_RV(:) = PA_RV(:) - P_RI_DEPI(:)
PA_RI(:) = PA_RI(:) + P_RI_DEPI(:) + P_RI_CNVS(:)
- PA_CI(:) = PA_CI(:) + P_CI_CNVS(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CNVS(:)
PA_RS(:) = PA_RS(:) - P_RI_CNVS(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) - P_CI_CNVS(:)
END IF
!
@@ -619,7 +832,7 @@ IF (LCOLD .AND. LSNOW) THEN
!
CALL LIMA_SNOW_DEPOSITION (LDCOMPUTE, & ! depends on IF, PF
PRHODREF, ZSSI, ZAI, ZCJ, ZLSFACT, &
- PRST/ZPF1D, ZLBDS, &
+ ZRST/ZPF1D, PCST/ZPF1D, ZLBDS, &
P_RI_CNVI, P_CI_CNVI, &
P_TH_DEPS, P_RS_DEPS )
!
@@ -629,36 +842,48 @@ IF (LCOLD .AND. LSNOW) THEN
P_TH_DEPS(:) = P_RS_DEPS(:) * ZLSFACT(:)
!
PA_RI(:) = PA_RI(:) + P_RI_CNVI(:)
- PA_CI(:) = PA_CI(:) + P_CI_CNVI(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CNVI(:)
PA_RS(:) = PA_RS(:) - P_RI_CNVI(:) + P_RS_DEPS(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) - P_CI_CNVI(:)
PA_TH(:) = PA_TH(:) + P_TH_DEPS(:)
PA_RV(:) = PA_RV(:) - P_RS_DEPS(:)
END IF
!
+IF (LSNOW .AND. NMOM_S.GE.2) THEN
+ CALL LIMA_SNOW_SELF_COLLECTION (LDCOMPUTE, & ! depends on PF
+ PRHODREF, &
+ ZRST(:)/ZPF1D(:), PCST/ZPF1D(:), ZLBDS, ZLBDS3, &
+ P_CS_SSC )
+ !
+ P_CS_SSC(:) = P_CS_SSC(:) * ZPF1D(:)
+ !
+ PA_CS(:) = PA_CS(:) + P_CS_SSC(:)
+END IF
+!
! Lambda_s limited for collection processes to prevent too high concentrations
! must be changed or removed if C and x modified
!
-ZLBDS(:) = MIN( XLBDAS_MAX, ZLBDS(:))
+!ZLBDS(:) = MIN( XLBDAS_MAX, ZLBDS(:))
!
!
IF (LCOLD .AND. LSNOW) THEN
- CALL LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, & ! depends on IF, PF
- ZT, PRHODREF, &
- PRIT/ZIF1D, PRST/ZPF1D, PCIT/ZIF1D, ZLBDI, ZLBDS, &
- P_RI_AGGS, P_CI_AGGS )
+ CALL LIMA_ICE_AGGREGATION_SNOW (LDCOMPUTE, & ! depends on IF, PF
+ ZT, PRHODREF, &
+ ZRIT/ZIF1D, ZRST/ZPF1D, PCIT/ZIF1D, PCST/ZPF1D, ZLBDI, ZLBDS, &
+ P_RI_AGGS, P_CI_AGGS )
P_CI_AGGS(:) = P_CI_AGGS(:) * ZIF1D(:)
P_RI_AGGS(:) = P_RI_AGGS(:) * ZIF1D(:)
!
PA_RI(:) = PA_RI(:) + P_RI_AGGS(:)
- PA_CI(:) = PA_CI(:) + P_CI_AGGS(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_AGGS(:)
PA_RS(:) = PA_RS(:) - P_RI_AGGS(:)
END IF
!
IF (LWARM .AND. LCOLD) THEN
- CALL LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, & ! depends on PF ?
- PRGT/ZPF1D, ZSSI, ZLBDG, ZAI, ZCJ, ZLSFACT, &
- P_TH_DEPG, P_RG_DEPG )
+ CALL LIMA_GRAUPEL_DEPOSITION (LDCOMPUTE, PRHODREF, & ! depends on PF ?
+ ZRGT/ZPF1D, PCGT/ZPF1D, ZSSI, ZLBDG, ZAI, ZCJ, ZLSFACT, &
+ P_TH_DEPG, P_RG_DEPG )
P_RG_DEPG(:) = P_RG_DEPG(:) * ZPF1D(:)
P_TH_DEPG(:) = P_RG_DEPG(:) * ZLSFACT(:)
!
@@ -667,16 +892,18 @@ IF (LWARM .AND. LCOLD) THEN
PA_TH(:) = PA_TH(:) + P_TH_DEPG(:)
END IF
!
-!!$IF (LWARM .AND. LCOLD) THEN
-!!$ CALL LIMA_BERGERON (LDCOMPUTE, & ! depends on CF, IF
-!!$ PRCT, PRIT, PCIT, ZLBDI, &
-!!$ ZSSIW, ZAI, ZCJ, ZLVFACT, ZLSFACT, &
-!!$ P_TH_BERFI, P_RC_BERFI, &
-!!$ PA_TH, PA_RC, PA_RI )
-!!$END IF
-P_TH_BERFI(:) = 0.
-P_RC_BERFI(:) = 0.
-!
+IF (LWARM .AND. LCOLD .AND. NMOM_I.EQ.1) THEN
+ CALL LIMA_BERGERON (LDCOMPUTE, & ! depends on CF, IF
+ ZRCT/ZCF1D, ZRIT/ZIF1D, PCIT/ZIF1D, ZLBDI, &
+ ZSSIW, ZAI, ZCJ, ZLVFACT, ZLSFACT, &
+ P_TH_BERFI, P_RC_BERFI )
+ P_TH_BERFI(:) = P_TH_BERFI(:) * MIN(ZCF1D,ZIF1D)
+ P_RC_BERFI(:) = P_RC_BERFI(:) * MIN(ZCF1D,ZIF1D)
+!
+ PA_RC(:) = PA_RC(:) + P_RC_BERFI(:)
+ PA_RI(:) = PA_RI(:) - P_RC_BERFI(:)
+ PA_TH(:) = PA_TH(:) + P_TH_BERFI(:)
+END IF
!
IF (LWARM .AND. LCOLD .AND. LSNOW) THEN
!
@@ -685,12 +912,13 @@ IF (LWARM .AND. LCOLD .AND. LSNOW) THEN
!
CALL LIMA_DROPLETS_RIMING_SNOW (PTSTEP, LDCOMPUTE, & ! depends on CF
PRHODREF, ZT, &
- PRCT/ZCF1D, PCCT/ZCF1D, PRST/ZPF1D, ZLBDC, ZLBDS, ZLVFACT, ZLSFACT, &
- P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_RG_RIM, &
+ ZRCT/ZCF1D, PCCT/ZCF1D, ZRST/ZPF1D, PCST/ZPF1D, ZLBDC, ZLBDS, ZLVFACT, ZLSFACT, &
+ P_TH_RIM, P_RC_RIM, P_CC_RIM, P_RS_RIM, P_CS_RIM, P_RG_RIM, &
P_RI_HMS, P_CI_HMS, P_RS_HMS )
P_RC_RIM(:) = P_RC_RIM(:) * ZCF1D(:)
P_CC_RIM(:) = P_CC_RIM(:) * ZCF1D(:)
P_RS_RIM(:) = P_RS_RIM(:) * ZCF1D(:)
+ P_CS_RIM(:) = P_CS_RIM(:) * ZCF1D(:)
P_RG_RIM(:) = P_RG_RIM(:) * ZCF1D(:)
P_TH_RIM(:) = - P_RC_RIM(:) * (ZLSFACT(:)-ZLVFACT(:))
P_RI_HMS(:) = P_RI_HMS(:) * ZCF1D(:)
@@ -698,11 +926,13 @@ IF (LWARM .AND. LCOLD .AND. LSNOW) THEN
P_RS_HMS(:) = P_RS_HMS(:) * ZCF1D(:)
!
PA_RC(:) = PA_RC(:) + P_RC_RIM(:)
- PA_CC(:) = PA_CC(:) + P_CC_RIM(:)
+ IF (NMOM_C.GE.2) PA_CC(:) = PA_CC(:) + P_CC_RIM(:)
PA_RI(:) = PA_RI(:) + P_RI_HMS(:)
- PA_CI(:) = PA_CI(:) + P_CI_HMS(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_HMS(:)
PA_RS(:) = PA_RS(:) + P_RS_RIM(:) + P_RS_HMS(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) + P_CS_RIM(:)
PA_RG(:) = PA_RG(:) + P_RG_RIM(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CS_RIM(:)
PA_TH(:) = PA_TH(:) + P_TH_RIM(:)
END IF
@@ -710,18 +940,21 @@ END IF
IF (LWARM .AND. LRAIN .AND. LCOLD .AND. LSNOW) THEN
CALL LIMA_RAIN_ACCR_SNOW (PTSTEP, LDCOMPUTE, & ! depends on PF
PRHODREF, ZT, &
- PRRT/ZPF1D, PCRT/ZPF1D, PRST/ZPF1D, ZLBDR, ZLBDS, ZLVFACT, ZLSFACT, &
- P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_RG_ACC )
+ ZRRT/ZPF1D, PCRT/ZPF1D, ZRST/ZPF1D, PCST/ZPF1D, ZLBDR, ZLBDS, ZLVFACT, ZLSFACT, &
+ P_TH_ACC, P_RR_ACC, P_CR_ACC, P_RS_ACC, P_CS_ACC, P_RG_ACC )
P_RR_ACC(:) = P_RR_ACC(:) * ZPF1D(:)
P_CR_ACC(:) = P_CR_ACC(:) * ZPF1D(:)
P_RS_ACC(:) = P_RS_ACC(:) * ZPF1D(:)
+ P_CS_ACC(:) = P_CS_ACC(:) * ZPF1D(:)
P_RG_ACC(:) = P_RG_ACC(:) * ZPF1D(:)
P_TH_ACC(:) = - P_RR_ACC(:) * (ZLSFACT(:)-ZLVFACT(:))
!
PA_RR(:) = PA_RR(:) + P_RR_ACC(:)
- PA_CR(:) = PA_CR(:) + P_CR_ACC(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_ACC(:)
PA_RS(:) = PA_RS(:) + P_RS_ACC(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) + P_CS_ACC(:)
PA_RG(:) = PA_RG(:) + P_RG_ACC(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CS_ACC(:)
PA_TH(:) = PA_TH(:) + P_TH_ACC(:)
END IF
@@ -733,19 +966,22 @@ IF (LWARM .AND. LCOLD .AND. LSNOW) THEN
!
CALL LIMA_CONVERSION_MELTING_SNOW (LDCOMPUTE, & ! depends on PF
PRHODREF, PPABST, ZT, ZKA, ZDV, ZCJ, &
- PRVT, PRST/ZPF1D, ZLBDS, &
- P_RS_CMEL )
+ PRVT, ZRST/ZPF1D, PCST/ZPF1D, ZLBDS, &
+ P_RS_CMEL, P_CS_CMEL )
P_RS_CMEL(:) = P_RS_CMEL(:) * ZPF1D(:)
+ P_CS_CMEL(:) = P_CS_CMEL(:) * ZPF1D(:)
!
PA_RS(:) = PA_RS(:) + P_RS_CMEL(:)
+ IF (NMOM_S.GE.2) PA_CS(:) = PA_CS(:) + P_CS_CMEL(:)
PA_RG(:) = PA_RG(:) - P_RS_CMEL(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CS_CMEL(:)
END IF
!
IF (LWARM .AND. LRAIN .AND. LCOLD ) THEN
CALL LIMA_RAIN_FREEZING (LDCOMPUTE, & ! depends on PF, IF
PRHODREF, ZT, ZLVFACT, ZLSFACT, &
- PRRT/ZPF1D, PCRT/ZPF1D, PRIT/ZIF1D, PCIT/ZIF1D, ZLBDR, &
+ ZRRT/ZPF1D, PCRT/ZPF1D, ZRIT/ZIF1D, PCIT/ZIF1D, ZLBDR, &
P_TH_CFRZ, P_RR_CFRZ, P_CR_CFRZ, P_RI_CFRZ, P_CI_CFRZ )
P_RR_CFRZ(:) = P_RR_CFRZ(:) * ZIF1D(:)
P_CR_CFRZ(:) = P_CR_CFRZ(:) * ZIF1D(:)
@@ -755,10 +991,49 @@ IF (LWARM .AND. LRAIN .AND. LCOLD ) THEN
!
PA_TH(:) = PA_TH(:) + P_TH_CFRZ(:)
PA_RR(:) = PA_RR(:) + P_RR_CFRZ(:)
- PA_CR(:) = PA_CR(:) + P_CR_CFRZ(:)
+ IF (NMOM_R.GE.2) PA_CR(:) = PA_CR(:) + P_CR_CFRZ(:)
PA_RI(:) = PA_RI(:) + P_RI_CFRZ(:)
- PA_CI(:) = PA_CI(:) + P_CI_CFRZ(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CFRZ(:)
PA_RG(:) = PA_RG(:) - P_RR_CFRZ(:) - P_RI_CFRZ(:)
+ IF (NMOM_G.GE.2) PA_CG(:) = PA_CG(:) - P_CR_CFRZ(:)
+
+END IF
+!
+IF (LWARM .AND. LCOLD .AND. LSNOW .AND. LCIBU) THEN
+ !
+ ! Conversion melting of snow should account for collected droplets and drops where T>0C, but does not !
+ ! Some thermodynamical computations inside, to externalize ?
+ !
+ CALL LIMA_COLLISIONAL_ICE_BREAKUP (LDCOMPUTE, & ! depends on PF (IF for fragments size)
+ PRHODREF, &
+ ZRIT/ZIF1D, ZRST/ZPF1D, ZRGT/ZPF1D, PCIT/ZIF1D, PCST/ZPF1D, PCST/ZPF1D, &
+ ZLBDS, ZLBDG, &
+ P_RI_CIBU, P_CI_CIBU )
+ P_RI_CIBU(:) = P_RI_CIBU(:) * ZPF1D(:)
+ P_CI_CIBU(:) = P_CI_CIBU(:) * ZPF1D(:)
+ !
+ PA_RI(:) = PA_RI(:) + P_RI_CIBU(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_CIBU(:)
+ PA_RS(:) = PA_RS(:) - P_RI_CIBU(:)
+
+END IF
+!
+IF (LWARM .AND. LRAIN .AND. LCOLD .AND. LSNOW .AND. LRDSF) THEN
+ !
+ ! Conversion melting of snow should account for collected droplets and drops where T>0C, but does not !
+ ! Some thermodynamical computations inside, to externalize ?
+ !
+ CALL LIMA_RAINDROP_SHATTERING_FREEZING (LDCOMPUTE, & ! depends on PF, IF
+ PRHODREF, &
+ ZRRT/ZPF1D, PCRT/ZPF1D, ZRIT/ZIF1D, PCIT/ZIF1D, ZRGT/ZPF1D, &
+ ZLBDR, &
+ P_RI_RDSF, P_CI_RDSF )
+ P_RI_RDSF(:) = P_RI_RDSF(:) * ZIF1D(:)
+ P_CI_RDSF(:) = P_CI_RDSF(:) * ZIF1D(:)
+ !
+ PA_RI(:) = PA_RI(:) + P_RI_RDSF(:)
+ IF (NMOM_I.GE.2) PA_CI(:) = PA_CI(:) + P_CI_RDSF(:)
+ PA_RG(:) = PA_RG(:) - P_RI_RDSF(:)
END IF
!
@@ -772,26 +1047,43 @@ IF (LWARM .AND. LCOLD) THEN
!
CALL LIMA_GRAUPEL (PTSTEP, LDCOMPUTE, & ! depends on PF, CF, IF
PRHODREF, PPABST, ZT, ZKA, ZDV, ZCJ, &
- PRVT, PRCT, PRRT, PRIT, PRST, PRGT, &
- PCCT, PCRT, PCIT, &
+ PRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, &
ZLBDC, ZLBDR, ZLBDS, ZLBDG, &
ZLVFACT, ZLSFACT, &
P_TH_WETG, P_RC_WETG, P_CC_WETG, P_RR_WETG, P_CR_WETG, &
- P_RI_WETG, P_CI_WETG, P_RS_WETG, P_RG_WETG, P_RH_WETG, &
+ P_RI_WETG, P_CI_WETG, P_RS_WETG, P_CS_WETG, P_RG_WETG, P_CG_WETG, P_RH_WETG, &
P_TH_DRYG, P_RC_DRYG, P_CC_DRYG, P_RR_DRYG, P_CR_DRYG, &
- P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_RG_DRYG, &
+ P_RI_DRYG, P_CI_DRYG, P_RS_DRYG, P_CS_DRYG, P_RG_DRYG, &
P_RI_HMG, P_CI_HMG, P_RG_HMG, &
- P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, &
+ P_TH_GMLT, P_RR_GMLT, P_CR_GMLT, P_CG_GMLT, &
PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
- PA_RI, PA_CI, PA_RS, PA_RG, PA_RH )
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
END IF
!
IF (LWARM .AND. LCOLD .AND. LHAIL) THEN
-! CALL LIMA_HAIL_GROWTH
-
-! CALL LIMA_HAIL_CONVERSION
-
-! CALL LIMA_HAIL_MELTING
+ CALL LIMA_HAIL_DEPOSITION (LDCOMPUTE, PRHODREF, & ! depends on PF ?
+ ZRHT/ZPF1D, PCHT/ZPF1D, ZSSI, ZLBDH, ZAI, ZCJ, ZLSFACT, &
+ P_TH_DEPH, P_RH_DEPH )
+ P_RH_DEPH(:) = P_RH_DEPH(:) * ZPF1D(:)
+ P_TH_DEPH(:) = P_RH_DEPH(:) * ZLSFACT(:)
+ !
+ PA_RV(:) = PA_RV(:) - P_RH_DEPH(:)
+ PA_RH(:) = PA_RH(:) + P_RH_DEPH(:)
+ PA_TH(:) = PA_TH(:) + P_TH_DEPH(:)
+! CALL LIMA_HAIL_GROWTH LIMA_HAIL_CONVERSION LIMA_HAIL_MELTING
+ CALL LIMA_HAIL (PTSTEP, LDCOMPUTE, & ! depends on PF, CF, IF
+ PRHODREF, PPABST, ZT, ZKA, ZDV, ZCJ, &
+ PRVT, ZRCT, ZRRT, ZRIT, ZRST, ZRGT, ZRHT, &
+ PCCT, PCRT, PCIT, PCST, PCGT, PCHT, &
+ ZLBDC, ZLBDR, ZLBDS, ZLBDG, ZLBDH, &
+ ZLVFACT, ZLSFACT, &
+ P_TH_WETH, P_RC_WETH, P_CC_WETH, P_RR_WETH, P_CR_WETH, &
+ P_RI_WETH, P_CI_WETH, P_RS_WETH, P_CS_WETH, P_RG_WETH, P_CG_WETH, P_RH_WETH, &
+ P_RG_COHG, P_CG_COHG, &
+ P_TH_HMLT, P_RR_HMLT, P_CR_HMLT, P_CH_HMLT, &
+ PA_TH, PA_RC, PA_CC, PA_RR, PA_CR, &
+ PA_RI, PA_CI, PA_RS, PA_CS, PA_RG, PA_CG, PA_RH, PA_CH )
END IF
!
END SUBROUTINE LIMA_TENDENCIES
diff --git a/src/mesonh/micro/lima_warm.f90 b/src/mesonh/micro/lima_warm.f90
index 14b1a09fc..97ff7edb8 100644
--- a/src/mesonh/micro/lima_warm.f90
+++ b/src/mesonh/micro/lima_warm.f90
@@ -10,8 +10,8 @@
INTERFACE
SUBROUTINE LIMA_WARM (OACTIT, OSEDC, ORAIN, KSPLITR, PTSTEP, KMI, &
TPFILE, KRR, PZZ, PRHODJ, &
- PRHODREF, PEXNREF, PW_NU, PPABSM, PPABST, &
- PTHM, PRCM, &
+ PRHODREF, PEXNREF, PW_NU, PPABST, &
+ PTHM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRC, PINPRR, PINDEP, PINPRR3D, PEVAP3D )
@@ -42,11 +42,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
@@ -70,8 +68,8 @@ END MODULE MODI_LIMA_WARM
! #####################################################################
SUBROUTINE LIMA_WARM (OACTIT, OSEDC, ORAIN, KSPLITR, PTSTEP, KMI, &
TPFILE, KRR, PZZ, PRHODJ, &
- PRHODREF, PEXNREF, PW_NU, PPABSM, PPABST, &
- PTHM, PRCM, &
+ PRHODREF, PEXNREF, PW_NU, PPABST, &
+ PTHM, &
PTHT, PRT, PSVT, &
PTHS, PRS, PSVS, &
PINPRC, PINPRR, PINDEP, PINPRR3D, PEVAP3D )
@@ -183,11 +181,9 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PEXNREF ! Reference Exner function
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABSM ! abs. pressure at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PPABST ! abs. pressure at time t
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHM ! Theta at time t-dt
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PTHT ! Theta at time t
REAL, DIMENSION(:,:,:,:), INTENT(IN) :: PRT ! m.r. at t
@@ -378,7 +374,7 @@ IF ( LACTI .AND. NMOD_CCN > 0 .AND. .NOT. LSPRO ) THEN
CALL LIMA_WARM_NUCL( OACTIT, PTSTEP, KMI, TPFILE, &
PRHODREF, PEXNREF, PPABST, ZT, PTHM, PW_NU, &
- PRCM, PRVT, PRCT, PRRT, &
+ PRVT, PRCT, PRRT, &
PTHS, PRVS, PRCS, PCCS, ZNFS, ZNAS )
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'HENU', pths(:, :, :) * prhodj(:, :, :) )
diff --git a/src/mesonh/micro/lima_warm_coal.f90 b/src/mesonh/micro/lima_warm_coal.f90
index 4ec69ac58..66c83de67 100644
--- a/src/mesonh/micro/lima_warm_coal.f90
+++ b/src/mesonh/micro/lima_warm_coal.f90
@@ -98,12 +98,14 @@ END MODULE MODI_LIMA_WARM_COAL
! P. Wautelet 05/2016-04/2018: new data structures and calls for I/O
! P. Wautelet 28/05/2019: move COUNTJV function to tools.f90
! P. Wautelet 02/2020: use the new data structures and subroutines for budgets (no more budget calls in this subroutine)
+! Delbeke/Vie 03/2022 : KHKO option
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
use modd_budget, only: lbudget_rc, lbudget_rr, lbudget_sv, NBUDGET_RC, NBUDGET_RR, NBUDGET_SV1, tbudgets
+USE MODD_CST, ONLY: XPI, XRHOLW
USE MODD_NSV, ONLY: NSV_LIMA_NC, NSV_LIMA_NR
USE MODD_PARAMETERS, ONLY: JPHEXT, JPVEXT
USE MODD_PARAM_LIMA
@@ -252,7 +254,7 @@ IF (LRAIN) THEN
GSELF(:) = ZCCT(:)>XCTMIN(2)
ISELF = COUNT(GSELF(:))
- IF( ISELF>0 ) THEN
+ IF( ISELF>0 .AND. .NOT.LKHKO) THEN
ZZW1(:) = XSELFC*(ZCCT(:)/ZLBDC3(:))**2 * ZRHODREF(:) ! analytical integration
WHERE( GSELF(:) )
ZCCS(:) = ZCCS(:) - MIN( ZCCS(:),ZZW1(:) )
@@ -273,38 +275,54 @@ IF (LRAIN) THEN
if ( lbudget_rc ) call Budget_store_init( tbudgets(NBUDGET_RC), 'AUTO', prcs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_init( tbudgets(NBUDGET_RR), 'AUTO', prrs(:, :, :) * prhodj(:, :, :) )
if ( lbudget_sv ) then
- !call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'AUTO', pccs(:, :, :) * prhodj(:, :, :) )
+ call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'AUTO', pccs(:, :, :) * prhodj(:, :, :) )
call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'AUTO', pcrs(:, :, :) * prhodj(:, :, :) )
end if
ZZW2(:) = 0.0
ZZW1(:) = 0.0
- WHERE( ZRCT(:)>XRTMIN(2) )
- ZZW2(:) = MAX( 0.0,XLAUTR*ZRHODREF(:)*ZRCT(:)* &
+ IF (LKHKO) THEN
+ WHERE ( ZRCT(:) .GT. XRTMIN(2) .AND. ZCCT(:) .GT. XCTMIN(2) &
+ .AND. (ZRCS(:) .GT. 0.0) .AND. (ZCCS(:) .GT. 0.0))
+!
+ ZZW1(:)= 1350.0 * ZRCT(:)**(2.47) * (ZCCT(:)/1.0E6)**(-1.79) ! ZCCT in cm-3
+ ZZW1(:) = min (ZRCS(:), ZZW1(:))
+ ZRCS(:) = ZRCS(:) - ZZW1(:)
+ ZRRS(:) = ZRRS(:) + ZZW1(:)
+!
+ ZCRS(:) = ZCRS(:) + ZZW1(:) * 3. * ZRHODREF(:)/(4.*XPI*XRHOLW*(XR0)**(3.))
+!
+ ZZW1(:) = min ( ZCCS(:),ZZW1(:) * ZCCT(:) / ZRCT(:))
+ ZCCS(:) = ZCCS(:) - ZZW1(:)
+!
+ END WHERE
+ ELSE
+ WHERE( ZRCT(:)>XRTMIN(2) )
+ ZZW2(:) = MAX( 0.0,XLAUTR*ZRHODREF(:)*ZRCT(:)* &
(XAUTO1/min(ZLBDC(:),1.e9)**4-XLAUTR_THRESHOLD) ) ! L
!
- ZZW3(:) = MIN( ZRCS(:), MAX( 0.0,XITAUTR*ZZW2(:)*ZRCT(:)* &
+ ZZW3(:) = MIN( ZRCS(:), MAX( 0.0,XITAUTR*ZZW2(:)*ZRCT(:)* &
(XAUTO2/ZLBDC(:)-XITAUTR_THRESHOLD) ) ) ! L/tau
!
- ZRCS(:) = ZRCS(:) - ZZW3(:)
- ZRRS(:) = ZRRS(:) + ZZW3(:)
+ ZRCS(:) = ZRCS(:) - ZZW3(:)
+ ZRRS(:) = ZRRS(:) + ZZW3(:)
!
- ZZW1(:) = MIN( MIN( 1.2E4,(XACCR4/ZLBDC(:)-XACCR5)/XACCR3), &
+ ZZW1(:) = MIN( MIN( 1.2E4,(XACCR4/ZLBDC(:)-XACCR5)/XACCR3), &
ZLBDR(:)/XACCR1 ) ! D**-1 threshold diameter for
! switching the autoconversion regimes
! min (80 microns, D_h, D_r)
- ZZW3(:) = ZZW3(:) * MAX( 0.0,ZZW1(:) )**3 / XAC
- ZCRS(:) = ZCRS(:) + ZZW3(:)
- END WHERE
-
+ ZZW3(:) = ZZW3(:) * MAX( 0.0,ZZW1(:) )**3 / XAC
+ ZCRS(:) = ZCRS(:) + ZZW3(:)
+ END WHERE
+ END IF
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'AUTO', &
Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_rr ) call Budget_store_end( tbudgets(NBUDGET_RR), 'AUTO', &
Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) then
!This budget is = 0 for nsv_lima_nc => not necessary to call it (ZCCS is not modified in this part)
- !call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'AUTO', &
- ! Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
+ call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'AUTO', &
+ Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
call Budget_store_end( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'AUTO', &
Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
end if
@@ -334,31 +352,45 @@ IF (LRAIN) THEN
Unpack( zrrs(:), mask = gmicro(:, :, :), field = prrs(:, :, :) ) * prhodj(:, :, :) )
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nc), 'ACCR', &
Unpack( zccs(:), mask = gmicro(:, :, :), field = pccs(:, :, :) ) * prhodj(:, :, :) )
- WHERE( GACCR(:).AND.(ZZW4(:)>1.E-4) ) ! Accretion for D>100 10-6 m
- ZZW3(:) = ZLBDC3(:) / ZLBDR3(:)
- ZZW1(:) = ( ZCCT(:)*ZCRT(:) / ZLBDC3(:) )*ZRHODREF(:)
- ZZW2(:) = MIN( ZZW1(:)*(XACCR_CLARGE1+XACCR_CLARGE2*ZZW3(:)),ZCCS(:) )
- ZCCS(:) = ZCCS(:) - ZZW2(:)
-!
- ZZW1(:) = ( ZZW1(:) / ZLBDC3(:) )
- ZZW2(:) = MIN( ZZW1(:)*(XACCR_RLARGE1+XACCR_RLARGE2*ZZW3(:)),ZRCS(:) )
- ZRCS(:) = ZRCS(:) - ZZW2(:)
- ZRRS(:) = ZRRS(:) + ZZW2(:)
- END WHERE
- WHERE( GACCR(:).AND.(ZZW4(:)<=1.E-4) ) ! Accretion for D<100 10-6 m
- ZZW3(:) = MIN(ZLBDC3(:) / ZLBDR3(:), 1.E8)
- ZZW1(:) = ( ZCCT(:)*ZCRT(:) / ZLBDC3(:) )*ZRHODREF(:)
- ZZW1(:) = ZZW1(:) / ZLBDC3(:)
- ZZW3(:) = ZZW3(:)**2
- ZZW2(:) = MIN( ZZW1(:)*(XACCR_CSMALL1+XACCR_CSMALL2*ZZW3(:)),ZCCS(:) )
- ZCCS(:) = ZCCS(:) - ZZW2(:)
-!
- ZZW1(:) = ZZW1(:) / ZLBDC3(:)
- ZZW2(:) = MIN( ZZW1(:)*(XACCR_RSMALL1+XACCR_RSMALL2*ZZW3(:)) &
+ IF (LKHKO) THEN
+ WHERE ( (ZRCT(:) .GT. XRTMIN(2)) .AND. (ZRRT(:) .GT. XRTMIN(3)) &
+ .AND. (ZRCS(:) .GT. 0.0) .AND. (ZCCS(:) .GT. 0.0))
+ ZZW1(:) = 67.0 * ( ZRCT(:) * ZRRT(:) )**1.15
+ ZZW1(:) = MIN (ZRCS(:),ZZW1(:))
+ ZRCS(:) = ZRCS(:) - ZZW1(:)
+ ZRRS(:) = ZRRS(:) + ZZW1(:)
+!
+ ZZW1(:) = MIN (ZCCS(:),ZZW1(:) * ZCCT(:) / ZRCT(:))
+ ZCCS(:) = ZCCS(:) - ZZW1(:)
+!
+ END WHERE
+ ELSE
+ WHERE( GACCR(:).AND.(ZZW4(:)>1.E-4) ) ! Accretion for D>100 10-6 m
+ ZZW3(:) = ZLBDC3(:) / ZLBDR3(:)
+ ZZW1(:) = ( ZCCT(:)*ZCRT(:) / ZLBDC3(:) )*ZRHODREF(:)
+ ZZW2(:) = MIN( ZZW1(:)*(XACCR_CLARGE1+XACCR_CLARGE2*ZZW3(:)),ZCCS(:) )
+ ZCCS(:) = ZCCS(:) - ZZW2(:)
+!
+ ZZW1(:) = ( ZZW1(:) / ZLBDC3(:) )
+ ZZW2(:) = MIN( ZZW1(:)*(XACCR_RLARGE1+XACCR_RLARGE2*ZZW3(:)),ZRCS(:) )
+ ZRCS(:) = ZRCS(:) - ZZW2(:)
+ ZRRS(:) = ZRRS(:) + ZZW2(:)
+ END WHERE
+ WHERE( GACCR(:).AND.(ZZW4(:)<=1.E-4) ) ! Accretion for D<100 10-6 m
+ ZZW3(:) = MIN(ZLBDC3(:) / ZLBDR3(:), 1.E8)
+ ZZW1(:) = ( ZCCT(:)*ZCRT(:) / ZLBDC3(:) )*ZRHODREF(:)
+ ZZW1(:) = ZZW1(:) / ZLBDC3(:)
+ ZZW3(:) = ZZW3(:)**2
+ ZZW2(:) = MIN( ZZW1(:)*(XACCR_CSMALL1+XACCR_CSMALL2*ZZW3(:)),ZCCS(:) )
+ ZCCS(:) = ZCCS(:) - ZZW2(:)
+!
+ ZZW1(:) = ZZW1(:) / ZLBDC3(:)
+ ZZW2(:) = MIN( ZZW1(:)*(XACCR_RSMALL1+XACCR_RSMALL2*ZZW3(:)) &
,ZRCS(:) )
- ZRCS(:) = ZRCS(:) - ZZW2(:)
- ZRRS(:) = ZRRS(:) + ZZW2(:)
- END WHERE
+ ZRCS(:) = ZRCS(:) - ZZW2(:)
+ ZRRS(:) = ZRRS(:) + ZZW2(:)
+ END WHERE
+ END IF
if ( lbudget_rc ) call Budget_store_end( tbudgets(NBUDGET_RC), 'ACCR', &
Unpack( zrcs(:), mask = gmicro(:, :, :), field = prcs(:, :, :) ) * prhodj(:, :, :) )
@@ -380,7 +412,7 @@ IF (LRAIN) THEN
ELSE
ISCBU = 0.0
END IF
- IF( ISCBU>0 ) THEN
+ IF( ISCBU>0 .AND. .NOT.LKHKO) THEN
if ( lbudget_sv ) call Budget_store_init( tbudgets(NBUDGET_SV1 - 1 + nsv_lima_nr), 'SCBU', &
Unpack( zcrs(:), mask = gmicro(:, :, :), field = pcrs(:, :, :) ) * prhodj(:, :, :) )
!
diff --git a/src/mesonh/micro/lima_warm_evap.f90 b/src/mesonh/micro/lima_warm_evap.f90
index 9a67a4b82..e62660ecd 100644
--- a/src/mesonh/micro/lima_warm_evap.f90
+++ b/src/mesonh/micro/lima_warm_evap.f90
@@ -75,6 +75,7 @@ END MODULE MODI_LIMA_WARM_EVAP
!! Original ??/??/13
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
! P. Wautelet 28/05/2019: move COUNTJV function to tools.f90
+! Delbeke/Vie 03/2022 : KHKO option
!
!-------------------------------------------------------------------------------
!
@@ -137,6 +138,7 @@ REAL, DIMENSION(:) , ALLOCATABLE :: ZCRT ! rain conc. at t
!
REAL, DIMENSION(:) , ALLOCATABLE :: ZRVS ! Water vapor m.r. source
REAL, DIMENSION(:) , ALLOCATABLE :: ZRRS ! Rain water m.r. source
+REAL, DIMENSION(:) , ALLOCATABLE :: ZCRS ! Rain water m.r. source
REAL, DIMENSION(:) , ALLOCATABLE :: ZTHS ! Theta source
!
! Other packed variables
@@ -151,7 +153,7 @@ REAL, DIMENSION(:), ALLOCATABLE :: ZZW1, ZZW2, ZZW3, &
ZZLV ! Latent heat of vaporization at T
!
REAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
- :: ZW, ZW2, ZRVSAT, ZDR
+ :: ZW, ZW2, ZRVSAT, ZDR, ZLV
!
!
REAL :: ZEPS, ZFACT
@@ -179,11 +181,14 @@ ZCTMIN(:) = XCTMIN(:) / PTSTEP
ZEPS= XMV / XMD
ZRVSAT(:,:,:) = ZEPS / (PPABST(:,:,:) * &
EXP(-XALPW+XBETAW/ZT(:,:,:)+XGAMW*ALOG(ZT(:,:,:))) - 1.0)
-
+ZLV(:,:,:) = XLVTT + (XCPV-XCL)*(ZT(:,:,:)-XTT)
!
GEVAP(:,:,:) = .FALSE.
GEVAP(IIB:IIE,IJB:IJE,IKB:IKE) = &
- PRRS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(3) .AND. &
+ PRRS(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(3) .AND. &
+ PCRS(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(3) .AND. &
+ PRRT(IIB:IIE,IJB:IJE,IKB:IKE)>ZRTMIN(3) .AND. &
+ PCRT(IIB:IIE,IJB:IJE,IKB:IKE)>ZCTMIN(3) .AND. &
PRVT(IIB:IIE,IJB:IJE,IKB:IKE)<ZRVSAT(IIB:IIE,IJB:IJE,IKB:IKE)
!
IEVAP = COUNTJV( GEVAP(:,:,:),I1(:),I2(:),I3(:))
@@ -196,6 +201,7 @@ IF( IEVAP >= 1 ) THEN
!
ALLOCATE(ZRVS(IEVAP))
ALLOCATE(ZRRS(IEVAP))
+ ALLOCATE(ZCRS(IEVAP))
ALLOCATE(ZTHS(IEVAP))
!
ALLOCATE(ZLBDR(IEVAP))
@@ -212,6 +218,7 @@ IF( IEVAP >= 1 ) THEN
ZRRT(JL) = PRRT(I1(JL),I2(JL),I3(JL))
ZCRT(JL) = PCRT(I1(JL),I2(JL),I3(JL))
ZRRS(JL) = PRRS(I1(JL),I2(JL),I3(JL))
+ ZCRS(JL) = PCRS(I1(JL),I2(JL),I3(JL))
ZRVS(JL) = PRVS(I1(JL),I2(JL),I3(JL))
ZTHS(JL) = PTHS(I1(JL),I2(JL),I3(JL))
ZZT(JL) = ZT(I1(JL),I2(JL),I3(JL))
@@ -219,8 +226,8 @@ IF( IEVAP >= 1 ) THEN
ZLBDR(JL) = ZWLBDR(I1(JL),I2(JL),I3(JL))
ZRHODREF(JL) = PRHODREF(I1(JL),I2(JL),I3(JL))
ZEXNREF(JL) = PEXNREF(I1(JL),I2(JL),I3(JL))
+ ZZLV(JL) = ZLV(I1(JL),I2(JL),I3(JL))
END DO
- ZZLV(:) = XLVTT + (XCPV-XCL)*(ZZT(:)-XTT)
!
ALLOCATE(ZZW2(IEVAP))
ALLOCATE(ZZW3(IEVAP))
@@ -242,10 +249,16 @@ IF( IEVAP >= 1 ) THEN
!
! Compute the evaporation tendency
!
- ZZW2(:) = MIN( ZZW2(:) * ZZW3(:) * ZRRT(:) * &
+ IF (LKHKO) THEN
+ ZZW2(:) = 3.0 * XCEVAP * ZZW2(:) * (4.*XPI*XRHOLW/(3.*ZRHODREF(:)))**(2./3.) * &
+ (ZRRT(:))**(1./3.) * (ZCRT(:))**(2./3.) * ZZW3(:)
+ ZZW2(:) = MIN(ZZW2(:),ZRRS(:))
+ ELSE
+ ZZW2(:) = MIN( ZZW2(:) * ZZW3(:) * ZRRT(:) * &
(X0EVAR*ZLBDR(:)**XEX0EVAR + X1EVAR*ZRHODREF(:)**XEX2EVAR* &
ZLBDR(:)**XEX1EVAR),ZRRS(:) )
- ZZW2(:) = MAX(ZZW2(:),0.0)
+ ZZW2(:) = MAX(ZZW2(:),0.0)
+ END IF
!
! Adjust sources
!
@@ -271,12 +284,20 @@ IF( IEVAP >= 1 ) THEN
ZW(:,:,:)= PEVAP3D(:,:,:)
PEVAP3D(:,:,:) = UNPACK( ZZW2(:),MASK=GEVAP(:,:,:),FIELD=ZW(:,:,:) )
!
+ IF (LKHKO) THEN
+ ZZW2(:) = MIN(ZZW2(:) * ZCRT(:)/ZRRT(:),ZCRS(:))
+ ZCRS(:) = ZCRS(:) - ZZW2(:)
+ ZW(:,:,:) = PCRS(:,:,:)
+ PCRS(:,:,:) = UNPACK( ZCRS(:),MASK=GEVAP(:,:,:),FIELD=ZW(:,:,:) )
+ ENDIF
+
DEALLOCATE(ZRCT)
DEALLOCATE(ZRRT)
DEALLOCATE(ZRVT)
DEALLOCATE(ZCRT)
DEALLOCATE(ZRVS)
DEALLOCATE(ZRRS)
+ DEALLOCATE(ZCRS)
DEALLOCATE(ZTHS)
DEALLOCATE(ZZLV)
DEALLOCATE(ZZT)
@@ -295,21 +316,40 @@ IF( IEVAP >= 1 ) THEN
! ---------------------------------------
!
!
- GEVAP(:,:,:) = PRRS(:,:,:)>ZRTMIN(3) .AND. PCRS(:,:,:)>ZCTMIN(3)
- ZDR(:,:,:) = 9999.
- WHERE (GEVAP(:,:,:))
- ZDR(:,:,:)=(6.*PRRS(:,:,:)/XPI/XRHOLW/PCRS(:,:,:))**0.33
- ZWLBDR3(:,:,:) = XLBR * PCRS(:,:,:) / PRRS(:,:,:)
- ZWLBDR(:,:,:) = ZWLBDR3(:,:,:)**XLBEXR
- END WHERE
+ IF (LKHKO) THEN
+!* correct negative values for rain
+! --------------------------------
+!
+ WHERE (PRRS(:,:,:)<0.)
+ PRCS(:,:,:) = PRCS(:,:,:)+PRRS(:,:,:)
+ PRRS(:,:,:) = 0.
+ PCRS(:,:,:) = 0.
+ END WHERE
+!
+!* REMOVES NON-PHYSICAL LOW VALUES
+ GEVAP(:,:,:) = PRRS(:,:,:)<ZRTMIN(3) .AND. PCRS(:,:,:)< ZCTMIN(3)
+ WHERE (GEVAP(:,:,:))
+ PRVS(:,:,:) = PRVS(:,:,:) + PRRS(:,:,:)
+ PTHS(:,:,:) = PTHS(:,:,:) - PRRS(:,:,:) * ZLV(:,:,:) / &
+ ( PEXNREF(:,:,:)*(XCPD + XCPV*PRVT(:,:,:) + XCL*(PRCT(:,:,:) + PRRT(:,:,:)) ) )
+ PCRS(:,:,:) = 0.0
+ PRRS(:,:,:) = 0.0
+ END WHERE
+ ELSE
+ GEVAP(:,:,:) = PRRS(:,:,:)>ZRTMIN(3) .AND. PCRS(:,:,:)>ZCTMIN(3)
+ ZDR(:,:,:) = 9999.
+ WHERE (GEVAP(:,:,:))
+ ZDR(:,:,:)=(6.*PRRS(:,:,:)/XPI/XRHOLW/PCRS(:,:,:))**0.33
+ ZWLBDR3(:,:,:) = XLBR * PCRS(:,:,:) / PRRS(:,:,:)
+ ZWLBDR(:,:,:) = ZWLBDR3(:,:,:)**XLBEXR
+ END WHERE
!
- WHERE (GEVAP(:,:,:) .AND. ZDR(:,:,:).LT.82.E-6)
- PCCS(:,:,:) = PCCS(:,:,:)+PCRS(:,:,:)
- PCRS(:,:,:) = 0.
- PRCS(:,:,:) = PRCS(:,:,:)+PRRS(:,:,:)
- PRRS(:,:,:) = 0.
- END WHERE
-
+ WHERE (GEVAP(:,:,:) .AND. ZDR(:,:,:).LT.82.E-6)
+ PCCS(:,:,:) = PCCS(:,:,:)+PCRS(:,:,:)
+ PCRS(:,:,:) = 0.
+ PRCS(:,:,:) = PRCS(:,:,:)+PRRS(:,:,:)
+ PRRS(:,:,:) = 0.
+ END WHERE
!!$ GMICRO(:,:,:) = GEVAP(:,:,:) .AND. ZWLBDR(:,:,:)/XACCR1>ZWLBDC3(:,:,:)
!!$ ! the raindrops are too small, that is lower than D_h
!!$ ZFACT = 1.2E4*XACCR1
@@ -341,6 +381,8 @@ IF( IEVAP >= 1 ) THEN
!!$ PRRS(:,:,:) = 0.0
!!$ END WHERE
!
+ END IF ! LKHKO
+ !
END IF ! IEVAP
!
!++cb++
diff --git a/src/mesonh/micro/lima_warm_nucl.f90 b/src/mesonh/micro/lima_warm_nucl.f90
index 549a5fc84..cf5382b50 100644
--- a/src/mesonh/micro/lima_warm_nucl.f90
+++ b/src/mesonh/micro/lima_warm_nucl.f90
@@ -10,7 +10,7 @@
INTERFACE
SUBROUTINE LIMA_WARM_NUCL( OACTIT, PTSTEP, KMI, TPFILE, &
PRHODREF, PEXNREF, PPABST, PT, PTM, PW_NU, &
- PRCM, PRVT, PRCT, PRRT, &
+ PRVT, PRCT, PRRT, &
PTHS, PRVS, PRCS, PCCS, PNFS, PNAS )
!
USE MODD_IO, ONLY: TFILEDATA
@@ -32,8 +32,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PTM ! Temperature at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
@@ -52,7 +50,7 @@ END MODULE MODI_LIMA_WARM_NUCL
! #######################################################################
SUBROUTINE LIMA_WARM_NUCL( OACTIT, PTSTEP, KMI, TPFILE, &
PRHODREF, PEXNREF, PPABST, PT, PTM, PW_NU, &
- PRCM, PRVT, PRCT, PRRT, &
+ PRVT, PRCT, PRRT, &
PTHS, PRVS, PRCS, PCCS, PNFS, PNAS )
! #######################################################################
!
@@ -143,8 +141,6 @@ REAL, DIMENSION(:,:,:), INTENT(IN) :: PTM ! Temperature at time t-dt
REAL, DIMENSION(:,:,:), INTENT(IN) :: PW_NU ! updraft velocity used for
! the nucleation param.
!
-REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCM ! Cloud water m.r. at t-dt
-!
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRVT ! Water vapor m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRCT ! Cloud water m.r. at t
REAL, DIMENSION(:,:,:), INTENT(IN) :: PRRT ! Rain water m.r. at t
@@ -662,7 +658,7 @@ DO JL = 1, NPTS
fl(JL)=fnew(JL)
else if (PX2 .lt. 0.05) then
PX2 = PX2 + 1.0E-2
- PRINT*, 'PX2 ALWAYS too small, we put a greater one : PX2 =',PX2
+! PRINT*, 'PX2 ALWAYS too small, we put a greater one : PX2 =',PX2
fh(JL) = SINGL_FUNCSMAX(PX2,PZZW3(JL),PZZW6(JL),JL)
go to 100
end if
@@ -683,7 +679,7 @@ DO JL = 1, NPTS
PZRIDDR(JL)=PX2
else if (PX2 .lt. 0.05) then
PX2 = PX2 + 1.0E-2
- PRINT*, 'PX2 too small, we put a greater one : PX2 =',PX2
+! PRINT*, 'PX2 too small, we put a greater one : PX2 =',PX2
fh(JL) = SINGL_FUNCSMAX(PX2,PZZW3(JL),PZZW6(JL),JL)
go to 100
else
diff --git a/src/mesonh/micro/modd_param_lima.f90 b/src/mesonh/micro/modd_param_lima.f90
index 66156a056..d199c2a66 100644
--- a/src/mesonh/micro/modd_param_lima.f90
+++ b/src/mesonh/micro/modd_param_lima.f90
@@ -31,6 +31,7 @@
!! MODIFICATIONS
!! -------------
!! Original ??/??/13
+!! C. Barthe 14/03/2022 add CIBU and RDSF
!!
!-------------------------------------------------------------------------------
!
@@ -58,6 +59,12 @@ LOGICAL, SAVE :: LHHONI ! TRUE to enable freezing of haze partic
LOGICAL, SAVE :: LSNOW ! TRUE to enable snow and graupel
LOGICAL, SAVE :: LHAIL ! TRUE to enable hail
LOGICAL, SAVE :: LMEYERS ! TRUE to use Meyers nucleation
+LOGICAL, SAVE :: LCIBU ! TRUE to use collisional ice breakup
+LOGICAL, SAVE :: LRDSF ! TRUE to use rain drop shattering by freezing
+INTEGER, SAVE :: NMOM_I ! Number of moments for pristine ice
+INTEGER, SAVE :: NMOM_S ! Number of moments for snow
+INTEGER, SAVE :: NMOM_G ! Number of moments for graupel
+INTEGER, SAVE :: NMOM_H ! Number of moments for hail
!
! 1.2 IFN initialisation
!
@@ -80,11 +87,13 @@ REAL, DIMENSION(:), SAVE, ALLOCATABLE :: XFRAC_REF ! AP compostion in P
!
! 1.3 Ice characteristics
!
+LOGICAL, SAVE :: LSNOW_T ! TRUE to enable snow param. after Wurtz 2021
+LOGICAL, SAVE :: LMURAKAMI ! snow + liq -> graupel after Murakami (as in RAIN_ICE_RED)
CHARACTER(LEN=4), SAVE :: CPRISTINE_ICE_LIMA ! Pristine type PLAT, COLU or BURO
CHARACTER(LEN=4), SAVE :: CHEVRIMED_ICE_LIMA ! Heavily rimed type GRAU or HAIL
REAL,SAVE :: XALPHAI,XNUI, & ! Pristine ice distribution parameters
- XALPHAS,XNUS, & ! Snow/aggregate distribution parameters
- XALPHAG,XNUG ! Graupel distribution parameters
+ XALPHAS,XNUS, & ! Snow/aggregate distribution parameters
+ XALPHAG,XNUG ! Graupel distribution parameters
!
! 1.4 Phillips (2013) nucleation parameterization
!
@@ -113,6 +122,11 @@ REAL,SAVE :: XFACTNUC_DEP,XFACTNUC_CON ! Amplification factor for IN conc.
! DEP refers to DEPosition mode
! CON refers to CONtact mode
!
+! 1.6 Collisional Ice Break Up parameterization
+!
+REAL,SAVE :: XNDEBRIS_CIBU ! Number of ice crystal debris produced
+ ! by the break up of aggregate particles
+!
!-------------------------------------------------------------------------------
!
!
@@ -133,6 +147,11 @@ LOGICAL, SAVE :: LDEPOC ! Deposition of rc at 1st level above ground
LOGICAL, SAVE :: LACTTKE ! TRUE to take into account TKE in W for activation
LOGICAL, SAVE :: LADJ ! TRUE for adjustment procedure + Smax (false for diagnostic supersaturation)
LOGICAL, SAVE :: LSPRO ! TRUE for prognostic supersaturation
+LOGICAL, SAVE :: LKHKO ! TRUE for Scu simulation (replicates the previous KHKO scheme)
+LOGICAL, SAVE :: LKESSLERAC ! TRUE for Kessler autoconversion (if NMOM_C=1)
+!
+INTEGER, SAVE :: NMOM_C ! Number of moments for cloud droplets
+INTEGER, SAVE :: NMOM_R ! Number of moments for rain drops
!
! 2.2 CCN initialisation
!
diff --git a/src/mesonh/micro/modd_param_lima_cold.f90 b/src/mesonh/micro/modd_param_lima_cold.f90
index 64494219e..3801cfcb7 100644
--- a/src/mesonh/micro/modd_param_lima_cold.f90
+++ b/src/mesonh/micro/modd_param_lima_cold.f90
@@ -19,6 +19,9 @@
!! MODIFICATIONS
!! -------------
!! Original ??/??/13
+!! C. Barthe 14/03/2022 add CIBU and RDSF
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!!
!-------------------------------------------------------------------------------
USE MODD_PARAMETERS, ONLY: JPSVNAMELGTMAX
@@ -45,17 +48,19 @@ IMPLICIT NONE
! distribution law
!
REAL,SAVE :: XLBEXI,XLBI ! Prist. ice distribution parameters
-REAL,SAVE :: XLBEXS,XLBS ! Snow/agg. distribution parameters
+REAL,SAVE :: XLBEXS,XLBS,XNS ! Snow/agg. distribution parameters
!
REAL,SAVE :: XAI,XBI,XC_I,XDI ,XF0I,XF2I,XC1I ! Cloud ice charact.
REAL,SAVE :: XF0IS,XF1IS ! (large Di vent. coef.)
REAL,SAVE :: XAS,XBS,XCS,XDS,XCCS,XCXS,XF0S,XF1S,XC1S ! Snow/agg. charact.
!
-REAL,SAVE :: XLBDAS_MAX ! Max values allowed for the shape
- ! parameter of snow
+REAL,SAVE :: XLBDAS_MIN, XLBDAS_MAX ! Max values allowed for the shape parameter of snow
+REAL,SAVE :: XFVELOS ! Wurtz - snow fall speed parameterizaed after Thompson 2008
+REAL,SAVE :: XTRANS_MP_GAMMAS ! Wurtz - change between lambda value for MP and gen. gamma
!
-CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
- :: CLIMA_COLD_NAMES=(/'CICE ','CIFNFREE','CIFNNUCL', &
+CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(8),PARAMETER &
+ :: CLIMA_COLD_NAMES=(/'CICE ','CSNOW ','CGRAUPEL','CHAIL ',&
+ 'CIFNFREE','CIFNNUCL', &
'CCNINIMM','CCCNNUCL'/)
! basenames of the SV articles stored
! in the binary files
@@ -63,8 +68,8 @@ CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
! IN:Ice-nuclei Nucleated (activated IFN by Dep/Cond)
! NI:Nuclei Immersed (activated IFN by Imm)
! HF:Homogeneous Freezing
-CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
- :: CLIMA_COLD_CONC=(/'NI ','NIF','NIN','NNI','NNH'/)!for DIAG
+CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(8),PARAMETER &
+ :: CLIMA_COLD_CONC=(/'NI ','NS ','NG ','NH ','NIF','NIN','NNI','NNH'/)!for DIAG
!
!-------------------------------------------------------------------------------
!
@@ -72,11 +77,12 @@ CHARACTER(LEN=JPSVNAMELGTMAX),DIMENSION(5),PARAMETER &
! ---------------------
!
REAL,SAVE :: XFSEDRI,XFSEDCI, & ! Constants for sedimentation
+ XFSEDRS,XFSEDCS, & !
XFSEDS, XEXSEDS ! fluxes of ice and snow
!
REAL,SAVE :: XNUC_DEP,XEXSI_DEP,XEX_DEP, & ! Constants for heterogeneous
- XNUC_CON,XEXTT_CON,XEX_CON, & ! ice nucleation : DEP et CON
- XMNU0 ! mass of nucleated ice crystal
+ XNUC_CON,XEXTT_CON,XEX_CON, & ! ice nucleation : DEP et CON
+ XMNU0 ! mass of nucleated ice crystal
!
REAL,SAVE :: XRHOI_HONH,XCEXP_DIFVAP_HONH, & ! Constants for homogeneous
XCOEF_DIFVAP_HONH,XRCOEF_HONH, & ! haze freezing : HHONI
@@ -86,7 +92,7 @@ REAL,SAVE :: XRHOI_HONH,XCEXP_DIFVAP_HONH, & ! Constants for homogeneous
XC1_HONH,XC2_HONH,XC3_HONH
!
REAL,SAVE :: XC_HONC,XR_HONC, & ! Constants for homogeneous
- XTEXP1_HONC,XTEXP2_HONC, & ! droplet freezing : CHONI
+ XTEXP1_HONC,XTEXP2_HONC, & ! droplet freezing : CHONI
XTEXP3_HONC,XTEXP4_HONC, &
XTEXP5_HONC
!
@@ -97,7 +103,7 @@ REAL,SAVE :: XCSCNVI_MAX, XLBDASCNVI_MAX, &
XR0DEPSI,XR1DEPSI ! pristine ice : SCNVI
!
REAL,SAVE :: XSCFAC, & ! Constants for the Bergeron
- X0DEPI,X2DEPI, & ! Findeisen process and
+ X0DEPI,X2DEPI, & ! Findeisen process and
X0DEPS,X1DEPS,XEX0DEPS,XEX1DEPS ! deposition
!
REAL,SAVE :: XDICNVS_LIM, XLBDAICNVS_LIM, & ! Constants for pristine ice
@@ -106,7 +112,11 @@ REAL,SAVE :: XDICNVS_LIM, XLBDAICNVS_LIM, & ! Constants for pristine ice
!
REAL,SAVE :: XCOLEXIS, & ! Constants for snow
XAGGS_CLARGE1,XAGGS_CLARGE2, & ! aggregation : AGG
- XAGGS_RLARGE1,XAGGS_RLARGE2
+ XAGGS_RLARGE1,XAGGS_RLARGE2, &
+ XFIAGGS,XEXIAGGS
+!
+REAL,SAVE :: XACCS1, XSPONBUDS1, XSPONBUDS2, & ! Constant for snow
+ XSPONBUDS3, XSPONCOEFS2 ! spontaneous break-up
!
!??????????????????
REAL,SAVE :: XKER_ZRNIC_A1,XKER_ZRNIC_A2 ! Long-Zrnic Kernels (ini_ice_coma)
@@ -114,6 +124,12 @@ REAL,SAVE :: XKER_ZRNIC_A1,XKER_ZRNIC_A2 ! Long-Zrnic Kernels (ini_ice_c
REAL,SAVE :: XSELFI,XCOLEXII ! Constants for pristine ice
! self-collection (ini_ice_coma)
!
+REAL,DIMENSION(:,:), SAVE, ALLOCATABLE :: XKER_N_SSCS
+REAL,SAVE :: XCOLSS,XCOLEXSS,XFNSSCS, & !
+ XLBNSSCS1,XLBNSSCS2, & ! Constants for snow self collection
+ XSCINTP1S,XSCINTP2S !
+INTEGER,SAVE :: NSCLBDAS !
+
REAL,SAVE :: XAUTO3, XAUTO4, & ! Constants for pristine ice
XLAUTS, XLAUTS_THRESHOLD, & ! autoconversion : AUT
XITAUTS, XITAUTS_THRESHOLD, & ! (ini_ice_com)
diff --git a/src/mesonh/micro/modd_param_lima_mixed.f90 b/src/mesonh/micro/modd_param_lima_mixed.f90
index f13accfc6..6a9c763dc 100644
--- a/src/mesonh/micro/modd_param_lima_mixed.f90
+++ b/src/mesonh/micro/modd_param_lima_mixed.f90
@@ -14,6 +14,9 @@
!! MODIFICATIONS
!! -------------
!! Original ??/??/13
+!! C. Barthe 14/03/2022 add CIBU and RDSF
+! J. Wurtz 03/2022: new snow characteristics
+! M. Taufour 07/2022: add concentration for snow, graupel, hail
!!
!-------------------------------------------------------------------------------
!
@@ -39,7 +42,7 @@ IMPLICIT NONE
! distribution law
!
REAL,SAVE :: XAG,XBG,XCG,XDG,XCCG,XCXG,XF0G,XF1G,XC1G ! Graupel charact.
-REAL,SAVE :: XLBEXG,XLBG ! Graupel distribution parameters
+REAL,SAVE :: XLBEXG,XLBG,XNG ! Graupel distribution parameters
REAL,SAVE :: XLBDAG_MAX ! Max values allowed for the shape
! parameter of graupeln
!
@@ -48,10 +51,47 @@ REAL,SAVE :: XALPHAH,XNUH,XLBEXH,XLBH ! Hail distribution parameters
!
!-------------------------------------------------------------------------------
!
-!* 2. MICROPHYSICAL FACTORS - Graupel
+!* 2. MICROPHYSICAL FACTORS - CIBU and RDSF
+! -------------------------------------
+!
+! Constants for ice-ice collision : CIBU
+!
+REAL, SAVE :: XDCSLIM_CIBU_MIN, & ! aggregates min diam. : 0.2 mm
+ XDCSLIM_CIBU_MAX, & ! aggregates max diam. : 1.0 mm
+ XDCGLIM_CIBU_MIN, & ! graupel min diam. : 2 mm
+ XGAMINC_BOUND_CIBU_SMIN, & ! Min val. of Lbda_s*dlim
+ XGAMINC_BOUND_CIBU_SMAX, & ! Max val. of Lbda_s*dlim
+ XGAMINC_BOUND_CIBU_GMIN, & ! Min val. of Lbda_g*dlim
+ XGAMINC_BOUND_CIBU_GMAX, & ! Max val. of Lbda_g*dlim
+ XCIBUINTP_S,XCIBUINTP1_S, & !
+ XCIBUINTP2_S, & !
+ XCIBUINTP_G,XCIBUINTP1_G, & !
+ XFACTOR_CIBU_NI,XFACTOR_CIBU_RI, & ! Factor for final CIBU Eq.
+ XMOMGG_CIBU_1,XMOMGG_CIBU_2, & ! Moment computation
+ XMOMGS_CIBU_1,XMOMGS_CIBU_2, &
+ XMOMGS_CIBU_3
+!
+REAL, DIMENSION(:,:), SAVE, ALLOCATABLE &
+ :: XGAMINC_CIBU_S, & ! Tab.incomplete Gamma function
+ XGAMINC_CIBU_G ! Tab.incomplete Gamma function
+!
+! Constants for raindrop shattering : RDSF
+!
+REAL, SAVE :: XDCRLIM_RDSF_MIN, & ! Raindrops min diam. : 0.2 mm
+ XGAMINC_BOUND_RDSF_RMIN, & ! Min val. of Lbda_r*dlim
+ XGAMINC_BOUND_RDSF_RMAX, & ! Max val. of Lbda_r*dlim
+ XRDSFINTP_R,XRDSFINTP1_R, & !
+ XFACTOR_RDSF_NI, & ! Factor for final RDSF Eq.
+ XMOMGR_RDSF
+!
+REAL, DIMENSION(:), SAVE, ALLOCATABLE &
+ :: XGAMINC_RDSF_R ! Tab.incomplete Gamma function
+!
+!
+!* 3. MICROPHYSICAL FACTORS - Graupel
! -------------------------------
!
-REAL,SAVE :: XFSEDG, XEXSEDG ! Sedimentation fluxes of Graupel
+REAL,SAVE :: XFSEDG, XEXSEDG, XFSEDRG, XFSEDCG ! Sedimentation fluxes of Graupel
!
REAL,SAVE :: X0DEPG,X1DEPG,XEX0DEPG,XEX1DEPG ! Deposition on graupel
!
@@ -67,6 +107,7 @@ REAL,SAVE :: XDCSLIM,XCOLCS, & ! Constants for the riming of
XEXCRIMSS,XCRIMSS, & ! the aggregates : RIM
XEXCRIMSG,XCRIMSG, & !
XEXSRIMCG,XSRIMCG, & !
+ XSRIMCG2, XSRIMCG3, XEXSRIMCG2, & ! Murakami 1990
XGAMINC_BOUND_MIN, & ! Min val. of Lbda_s for RIM
XGAMINC_BOUND_MAX, & ! Max val. of Lbda_s for RIM
XRIMINTP1,XRIMINTP2 ! Csts for lin. interpol. of
@@ -75,12 +116,19 @@ INTEGER,SAVE :: NGAMINC ! Number of tab. Lbda_s
REAL, DIMENSION(:), SAVE, ALLOCATABLE &
:: XGAMINC_RIM1, & ! Tab. incomplete Gamma funct.
XGAMINC_RIM2, & ! for XDS+2 and for XBS
+ XGAMINC_RIM4, & ! Murakami
XGAMINC_HMC ! and for the HM process
!
REAL,SAVE :: XFRACCSS, & ! Constants for the accretion
+ XFNRACCSS, & ! Constants for the accretion
XLBRACCS1,XLBRACCS2,XLBRACCS3, & ! raindrops onto the aggregates
+ XLBNRACCS1,XLBNRACCS2,XLBNRACCS3, & ! raindrops onto the aggregates
XFSACCRG, & ! ACC (processes RACCSS and
+ XFNSACCRG, & ! ACC (processes RACCSS and
XLBSACCR1,XLBSACCR2,XLBSACCR3, & ! SACCRG)
+ XLBNSACCR1,XLBNSACCR2,XLBNSACCR3, & ! SACCRG)
+ XSCLBDAS_MIN, & ! Min val. of Lbda_s for ACC
+ XSCLBDAS_MAX, & ! Max val. of Lbda_s for ACC
XACCLBDAS_MIN, & ! Min val. of Lbda_s for ACC
XACCLBDAS_MAX, & ! Max val. of Lbda_s for ACC
XACCLBDAR_MIN, & ! Min val. of Lbda_r for ACC
@@ -96,7 +144,10 @@ INTEGER,SAVE :: NACCLBDAS, & ! Number of Lbda_s values and
REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_RACCSS, & ! Normalized kernel for RACCSS
XKER_RACCS, & ! Normalized kernel for RACCS
- XKER_SACCRG ! Normalized kernel for SACCRG
+ XKER_SACCRG, & ! Normalized kernel for SACCRG
+ XKER_N_RACCSS, & ! Normalized kernel for RACCSS
+ XKER_N_RACCS, & ! Normalized kernel for RACCS
+ XKER_N_SACCRG ! Normalized kernel for SACCRG
REAL,SAVE :: XFSCVMG ! Melting-conversion factor of
! the aggregates
!
@@ -107,10 +158,12 @@ REAL,SAVE :: XCOLIR, & ! Constants for rain contact
REAL,SAVE :: XFCDRYG, & ! Constants for the dry growth
XCOLCG, & ! of the graupeln :
XCOLIG,XCOLEXIG,XFIDRYG, & !
- XCOLSG,XCOLEXSG,XFSDRYG, & ! RCDRYG
+ XCOLSG,XCOLEXSG,XFSDRYG,XFNSDRYG, & ! RCDRYG
XLBSDRYG1,XLBSDRYG2,XLBSDRYG3, & ! RIDRYG
- XFRDRYG, & ! RSDRYG
+ XLBNSDRYG1,XLBNSDRYG2,XLBNSDRYG3, & ! RIDRYG
+ XFRDRYG,XFNRDRYG, & ! RSDRYG
XLBRDRYG1,XLBRDRYG2,XLBRDRYG3, & ! RRDRYG
+ XLBNRDRYG1,XLBNRDRYG2,XLBNRDRYG3, & ! RRDRYG
XDRYLBDAR_MIN, & ! Min val. of Lbda_r for DRY
XDRYLBDAR_MAX, & ! Max val. of Lbda_r for DRY
XDRYLBDAS_MIN, & ! Min val. of Lbda_s for DRY
@@ -128,22 +181,26 @@ INTEGER,SAVE :: NDRYLBDAR, & ! Number of Lbda_r,
! tables
REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_SDRYG, & ! Normalized kernel for SDRYG
- XKER_RDRYG ! Normalized kernel for RDRYG
+ XKER_RDRYG, & ! Normalized kernel for RDRYG
+ XKER_N_SDRYG, & ! Normalized kernel for RDRYG
+ XKER_N_RDRYG ! Normalized kernel for RDRYG
!
!-------------------------------------------------------------------------------
!
-!* 2. MICROPHYSICAL FACTORS - Hail
+!* 4. MICROPHYSICAL FACTORS - Hail
! ----------------------------
!
-REAL,SAVE :: XFSEDH,XEXSEDH ! Constants for sedimentation
+REAL,SAVE :: XFSEDH,XEXSEDH,XFSEDRH,XFSEDCH ! Constants for sedimentation
!
!
REAL,SAVE :: X0DEPH,X1DEPH,XEX0DEPH,XEX1DEPH ! Constants for deposition
!
-REAL,SAVE :: XFWETH,XFSWETH, & ! Constants for the wet growth
+REAL,SAVE :: XFWETH,XFSWETH,XFNSWETH, & ! Constants for the wet growth
XLBSWETH1,XLBSWETH2,XLBSWETH3, & ! of the hailstones : WET
- XFGWETH, & ! processes RSWETH
+ XLBNSWETH1,XLBNSWETH2,XLBNSWETH3, & ! of the hailstones : WET
+ XFGWETH, XFNGWETH, & ! processes RSWETH
XLBGWETH1,XLBGWETH2,XLBGWETH3, & ! RGWETH
+ XLBNGWETH1,XLBNGWETH2,XLBNGWETH3, & ! RGWETH
XWETLBDAS_MIN, & ! Min val. of Lbda_s for WET
XWETLBDAS_MAX, & ! Max val. of Lbda_s for WET
XWETLBDAG_MIN, & ! Min val. of Lbda_g for WET
@@ -161,7 +218,9 @@ INTEGER,SAVE :: NWETLBDAS, & ! Number of Lbda_s,
! tables
REAL,DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_SWETH, & ! Normalized kernel for SWETH
- XKER_GWETH ! Normalized kernel for GWETH
+ XKER_GWETH, & ! Normalized kernel for GWETH
+ XKER_N_SWETH, & ! Normalized kernel for GWETH
+ XKER_N_GWETH ! Normalized kernel for GWETH
!
!-------------------------------------------------------------------------------
diff --git a/src/mesonh/micro/modd_param_lima_warm.f90 b/src/mesonh/micro/modd_param_lima_warm.f90
index 65a3d1027..cf555286d 100644
--- a/src/mesonh/micro/modd_param_lima_warm.f90
+++ b/src/mesonh/micro/modd_param_lima_warm.f90
@@ -29,10 +29,10 @@ IMPLICIT NONE
! ----------------------
!
REAL,SAVE :: XLBC, XLBEXC, & ! shape parameters of the cloud droplets
- XLBR, XLBEXR ! shape parameters of the raindrops
+ XLBR, XLBEXR, XNR ! shape parameters of the raindrops
!
REAL,SAVE :: XAR,XBR,XCR,XDR,XF0R,XF1R, & ! Raindrop charact.
- XCCR, & !For diagnostics
+ XCCR,XCXR, & !For diagnostics
XAC,XBC,XCC,XDC,XF0C,XF2C,XC1C ! Cloud droplet charact.
!
!
@@ -90,13 +90,14 @@ REAL,SAVE :: XSELFC ! Constants for cloud droplet
! selfcollection : SELF
!
REAL,SAVE :: XAUTO1, XAUTO2, XCAUTR, & ! Constants for cloud droplet
- XLAUTR, XLAUTR_THRESHOLD, & ! autoconversion : AUT
- XITAUTR, XITAUTR_THRESHOLD
+ XLAUTR, XLAUTR_THRESHOLD, & ! autoconversion : AUT
+ XITAUTR, XITAUTR_THRESHOLD, XR0 ! XR0 for KHKO autoconversion
!
REAL,SAVE :: XACCR1, XACCR2, XACCR3, & ! Constants for the accretion
XACCR4, XACCR5, XACCR6, & ! process
XACCR_CLARGE1, XACCR_CLARGE2, XACCR_RLARGE1, XACCR_RLARGE2, &
- XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2
+ XACCR_CSMALL1, XACCR_CSMALL2, XACCR_RSMALL1, XACCR_RSMALL2, &
+ XFCACCR, XEXCACCR
!
REAL,SAVE :: XSCBU2, XSCBU3, & ! Constants for the raindrop
XSCBU_EFF1, XSCBU_EFF2, XSCBUEXP1 ! breakup-selfcollection: SCBU
@@ -105,7 +106,8 @@ REAL,SAVE :: XSPONBUD1,XSPONBUD2,XSPONBUD3, & ! Spontaneous Break-up
XSPONCOEF2 ! (drop size limiter)
!
REAL,SAVE :: X0EVAR, X1EVAR, & ! Constants for raindrop
- XEX0EVAR, XEX1EVAR, XEX2EVAR ! evaporation: EVA
+ XEX0EVAR, XEX1EVAR, XEX2EVAR, & ! evaporation: EVA
+ XCEVAP ! for KHKO
!
REAL,DIMENSION(:,:,:,:), SAVE, ALLOCATABLE :: XCONCC_INI
REAL,SAVE :: XCONCR_PARAM_INI
diff --git a/src/mesonh/micro/modn_param_lima.f90 b/src/mesonh/micro/modn_param_lima.f90
index f86b1add0..44d467145 100644
--- a/src/mesonh/micro/modn_param_lima.f90
+++ b/src/mesonh/micro/modn_param_lima.f90
@@ -18,14 +18,15 @@ IMPLICIT NONE
!
!
NAMELIST/NAM_PARAM_LIMA/LCOLD, LNUCL, LSEDI, LSNOW, LHAIL, LHHONI, LMEYERS,&
+ NMOM_I, NMOM_S, NMOM_G, NMOM_H, &
NMOD_IFN, XIFN_CONC, LIFN_HOM, &
CIFN_SPECIES, CINT_MIXING, NMOD_IMM, NIND_SPECIE, &
- CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, &
+ LSNOW_T, CPRISTINE_ICE_LIMA, CHEVRIMED_ICE_LIMA, &
XALPHAI, XNUI, XALPHAS, XNUS, XALPHAG, XNUG, &
XFACTNUC_DEP, XFACTNUC_CON, NPHILLIPS, &
-!
+ LCIBU, XNDEBRIS_CIBU, LRDSF, LMURAKAMI, &
LWARM, LACTI, LRAIN, LSEDC, LACTIT, LBOUND, LSPRO, &
- LADJ, &
+ LADJ, LKHKO, LKESSLERAC, NMOM_C, NMOM_R, &
NMOD_CCN, XCCN_CONC, &
LCCN_HOM, CCCN_MODES, HINI_CCN, HTYPE_CCN, &
XALPHAC, XNUC, XALPHAR, XNUR, &
diff --git a/src/mesonh/micro/set_conc_lima.f90 b/src/mesonh/micro/set_conc_lima.f90
index 3eeda7f5a..09e6bc1e5 100644
--- a/src/mesonh/micro/set_conc_lima.f90
+++ b/src/mesonh/micro/set_conc_lima.f90
@@ -73,10 +73,12 @@ contains
!* 0. DECLARATIONS
! ------------
!
-USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LCOLD, LWARM, LRAIN, NMOD_CCN, NMOD_IFN
-USE MODD_PARAM_LIMA_COLD, ONLY : XAI, XBI
+USE MODD_PARAM_LIMA, ONLY : XRTMIN, XCTMIN, LCOLD, LWARM, LRAIN, NMOD_CCN, NMOD_IFN, &
+ NMOM_C, NMOM_R, NMOM_I
+USE MODD_PARAM_LIMA_COLD, ONLY : XAI, XBI, XAS, XBS
+USE MODD_PARAM_LIMA_MIXED,ONLY : XAG, XBG, XAH, XBH
USE MODD_NSV, ONLY : NSV_LIMA_BEG_A, NSV_LIMA_NC_A, NSV_LIMA_NR_A, NSV_LIMA_CCN_ACTI_A, &
- NSV_LIMA_NI_A, NSV_LIMA_IFN_NUCL_A
+ NSV_LIMA_NI_A, NSV_LIMA_NS_A, NSV_LIMA_NG_A, NSV_LIMA_NH_A, NSV_LIMA_IFN_NUCL_A
USE MODD_CST, ONLY : XPI, XRHOLW, XRHOLI
USE MODD_CONF, ONLY : NVERB
USE MODD_CONF_n, ONLY : NRR
@@ -99,7 +101,7 @@ REAL, DIMENSION(:,:,:,NSV_LIMA_BEG_A(kmi):), INTENT(INOUT):: PSVT ! microph
!
INTEGER :: IRESP ! Return code of FM routines
INTEGER :: ILUOUT ! Logical unit number of output-listing
-REAL :: ZCONCC, ZCONCR, ZCONCI
+REAL :: ZCONC
!
!-------------------------------------------------------------------------------
!* 1. RETRIEVE LOGICAL UNIT NUMBER
@@ -110,13 +112,13 @@ ILUOUT = TLUOUT%NLU
!* 2. INITIALIZATION
! --------------
!
-IF (LWARM .AND. NRR.GE.2) THEN
+IF (LWARM .AND. NRR.GE.2 .AND. NMOM_C.GE.2) THEN
!
! droplets
!
- ZCONCC = 300.E6 ! droplet concentration set at 300 cm-3
+ ZCONC = 300.E6 ! droplet concentration set at 300 cm-3
WHERE ( PRT(:,:,:,2) > 1.E-11 )
- PSVT(:,:,:,NSV_LIMA_NC_A(kmi)) = ZCONCC
+ PSVT(:,:,:,NSV_LIMA_NC_A(kmi)) = ZCONC
END WHERE
WHERE ( PRT(:,:,:,2) <= 1.E-11 )
PRT(:,:,:,2) = 0.0
@@ -125,54 +127,54 @@ IF (LWARM .AND. NRR.GE.2) THEN
IF (NMOD_CCN .GE. 1) THEN
WHERE ( PRT(:,:,:,2) > 1.E-11 )
- PSVT(:,:,:,NSV_LIMA_CCN_ACTI_A(kmi)) = ZCONCC
+ PSVT(:,:,:,NSV_LIMA_CCN_ACTI_A(kmi)) = ZCONC
END WHERE
WHERE ( PRT(:,:,:,2) <= 1.E-11 )
PSVT(:,:,:,NSV_LIMA_CCN_ACTI_A(kmi)) = 0.0
END WHERE
END IF
- IF( NVERB >= 5 ) THEN
- WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The droplet concentration has "
- WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
- END IF
+! IF( NVERB >= 5 ) THEN
+! WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The droplet concentration has "
+! WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
+! END IF
END IF
!
-IF (LWARM .AND. LRAIN .AND. NRR.GE.3) THEN
+IF (LWARM .AND. LRAIN .AND. NRR.GE.3 .AND. NMOM_R.GE.2) THEN
!
! drops
!
- ZCONCR = (1.E7)**3/(XPI*XRHOLW) ! cf XCONCR_PARAM_INI in ini_rain_c2r2.f90
+ ZCONC = (1.E7)**3/(XPI*XRHOLW) ! cf XCONCR_PARAM_INI in ini_rain_c2r2.f90
IF (HGETCLOUD == 'INI1') THEN ! init from REVE scheme
PSVT(:,:,:,NSV_LIMA_NR_A(kmi)) = 0.0
ELSE ! init from KESS, ICE3...
WHERE ( PRT(:,:,:,3) > 1.E-11 )
PSVT(:,:,:,NSV_LIMA_NR_A(kmi)) = MAX( SQRT(SQRT(PRHODREF(:,:,:)*PRT(:,:,:,3) &
- *ZCONCR)),1. )
+ *ZCONC)),1. )
END WHERE
WHERE ( PRT(:,:,:,3) <= 1.E-11 )
PRT(:,:,:,3) = 0.0
PSVT(:,:,:,NSV_LIMA_NR_A(kmi)) = 0.0
END WHERE
- IF( NVERB >= 5 ) THEN
- WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The raindrop concentration has "
- WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
- END IF
+! IF( NVERB >= 5 ) THEN
+! WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The raindrop concentration has "
+! WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
+! END IF
END IF
END IF
!
-IF (LCOLD .AND. NRR.GE.4) THEN
+IF (LCOLD .AND. NRR.GE.4 .AND. NMOM_I.GE.2) THEN
!
! ice crystals
!
- ZCONCI = 100.E3 ! maximum ice concentration set at 100/L
+ ZCONC = 100.E3 ! maximum ice concentration set at 100/L
WHERE ( PRT(:,:,:,4) > 1.E-11 )
!
! PSVT(:,:,:,NSV_LIMA_NI_A(kmi)) = MIN( PRHODREF(:,:,:) / &
! ( XRHOLI * XAI*(10.E-06)**XBI * PRT(:,:,:,4) ), &
-! ZCONCI )
+! ZCONC )
! Correction
- PSVT(:,:,:,NSV_LIMA_NI_A(kmi)) = MIN(PRT(:,:,:,4)/(0.82*(10.E-06)**2.5),ZCONCI )
+ PSVT(:,:,:,NSV_LIMA_NI_A(kmi)) = MIN(PRT(:,:,:,4)/(0.82*(10.E-06)**2.5),ZCONC )
END WHERE
WHERE ( PRT(:,:,:,4) <= 1.E-11 )
PRT(:,:,:,4) = 0.0
@@ -188,11 +190,50 @@ IF (LCOLD .AND. NRR.GE.4) THEN
END WHERE
END IF
- IF( NVERB >= 5 ) THEN
- WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The cloud ice concentration has "
- WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
- END IF
+! IF( NVERB >= 5 ) THEN
+! WRITE (UNIT=ILUOUT,FMT=*) "!INI_MODEL$n: The cloud ice concentration has "
+! WRITE (UNIT=ILUOUT,FMT=*) "been roughly initialised"
+! END IF
+!
+END IF
+!
+IF (NSV_LIMA_NS_A(KMI).GE.1) THEN
+!
+! snow
+!
+ ZCONC = 1./ (XAS*0.001**XBS) ! 1mm particle size
+ WHERE ( PRT(:,:,:,5) > 1.E-11 )
+ PSVT(:,:,:,NSV_LIMA_NS_A(KMI)) = PRT(:,:,:,5) * ZCONC
+ ELSEWHERE
+ PRT(:,:,:,5) = 0.0
+ PSVT(:,:,:,NSV_LIMA_NS_A(KMI)) = 0.0
+ END WHERE
+END IF
!
+IF (NSV_LIMA_NG_A(KMI).GE.1) THEN
+!
+! graupel
+!
+ ZCONC = 1./ (XAG*0.001**XBG) ! 1mm particle size
+ WHERE ( PRT(:,:,:,6) > 1.E-11 )
+ PSVT(:,:,:,NSV_LIMA_NG_A(KMI)) = PRT(:,:,:,6) * ZCONC
+ ELSEWHERE
+ PRT(:,:,:,6) = 0.0
+ PSVT(:,:,:,NSV_LIMA_NG_A(KMI)) = 0.0
+ END WHERE
+END IF
+!
+IF (NSV_LIMA_NH_A(KMI).GE.1) THEN
+!
+! hail
+!
+ ZCONC = 1./ (XAH*0.001**XBH) ! 1mm particle size
+ WHERE ( PRT(:,:,:,7) > 1.E-11 )
+ PSVT(:,:,:,NSV_LIMA_NH_A(KMI)) = PRT(:,:,:,7) * ZCONC
+ ELSEWHERE
+ PRT(:,:,:,7) = 0.0
+ PSVT(:,:,:,NSV_LIMA_NH_A(KMI)) = 0.0
+ END WHERE
END IF
!
END SUBROUTINE SET_CONC_LIMA
--
GitLab