source: LMDZ6/branches/IPSLCM6.0.13/libf/phylmd/rrtm/rrtm_kgb16.F90 @ 3040

Last change on this file since 3040 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 192.6 KB
Line 
1!OCL SCALAR
2#ifdef RS6K
3@PROCESS NOOPTIMIZE
4#endif
5!pgi$r opt=0
6SUBROUTINE RRTM_KGB16
7
8!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
9!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
10!     Reformatted for F90 by JJMorcrette, ECMWF
11!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
12
13!     ------------------------------------------------------------------
14
15USE PARKIND1  ,ONLY : JPRB
16USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
17
18USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
19USE YOERRTA16, ONLY : STRRAT
20
21!     ------------------------------------------------------------------
22
23IMPLICIT NONE
24REAL(KIND=JPRB) :: ZHOOK_HANDLE
25
26IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',0,ZHOOK_HANDLE)
27
28CALL PART1
29CALL PART2
30CALL PART3
31CALL PART4
32CALL PART5
33CALL PART6
34CALL PART7
35CALL PART8
36CALL PART9
37CALL PART10
38CALL PART11
39CALL PART12
40
41IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',1,ZHOOK_HANDLE)
42
43!     -----------------------------------------------------------------
44
45CONTAINS
46
47
48SUBROUTINE PART1
49
50REAL(KIND=JPRB) :: ZHOOK_HANDLE
51IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',0,ZHOOK_HANDLE)
52
53
54STRRAT = 830.411_JPRB
55
56!     ------------------------------------------------------------------
57
58!     The array KAO contains absorption coefs at the 16 chosen g-values
59!     for a range of pressure levels> ~100mb, temperatures, and binary
60!     species parameters (see taumol.f for definition).  The first
61!     index in the array, JS, runs from 1 to 9, and corresponds to
62!     different values of the binary species parameter.  For instance,
63!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,
64!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
65!     in the array, JT, which runs from 1 to 5, corresponds to different
66!     temperatures.  More specifically, JT = 3 means that the data are for
67!     the reference temperature TREF for this  pressure level, JT = 2 refers
68!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
69!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
70!     to the JPth reference pressure level (see taumol.f for these levels
71!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
72!     which g-interval the absorption coefficients are for.
73
74KAO( :, 1, 1, 1) = (/&
75 & 1.9384E-05_JPRB,2.9898E-05_JPRB,3.4062E-05_JPRB,3.6004E-05_JPRB,3.6430E-05_JPRB,3.5549E-05_JPRB,&
76 & 3.3320E-05_JPRB,2.9615E-05_JPRB,2.3873E-05_JPRB/) 
77KAO( :, 2, 1, 1) = (/&
78 & 1.9436E-05_JPRB,2.9740E-05_JPRB,3.3708E-05_JPRB,3.5476E-05_JPRB,3.5843E-05_JPRB,3.5033E-05_JPRB,&
79 & 3.2962E-05_JPRB,2.9462E-05_JPRB,2.4055E-05_JPRB/) 
80KAO( :, 3, 1, 1) = (/&
81 & 1.9464E-05_JPRB,2.9570E-05_JPRB,3.3324E-05_JPRB,3.4974E-05_JPRB,3.5304E-05_JPRB,3.4544E-05_JPRB,&
82 & 3.2637E-05_JPRB,2.9289E-05_JPRB,2.4237E-05_JPRB/) 
83KAO( :, 4, 1, 1) = (/&
84 & 1.9302E-05_JPRB,2.9247E-05_JPRB,3.2832E-05_JPRB,3.4416E-05_JPRB,3.4737E-05_JPRB,3.4031E-05_JPRB,&
85 & 3.2272E-05_JPRB,2.9080E-05_JPRB,2.4364E-05_JPRB/) 
86KAO( :, 5, 1, 1) = (/&
87 & 1.9123E-05_JPRB,2.8885E-05_JPRB,3.2360E-05_JPRB,3.3877E-05_JPRB,3.4211E-05_JPRB,3.3554E-05_JPRB,&
88 & 3.1880E-05_JPRB,2.8883E-05_JPRB,2.4458E-05_JPRB/) 
89KAO( :, 1, 2, 1) = (/&
90 & 1.6583E-05_JPRB,2.6012E-05_JPRB,2.9608E-05_JPRB,3.1154E-05_JPRB,3.1427E-05_JPRB,3.0616E-05_JPRB,&
91 & 2.8665E-05_JPRB,2.5368E-05_JPRB,2.0615E-05_JPRB/) 
92KAO( :, 2, 2, 1) = (/&
93 & 1.6630E-05_JPRB,2.5863E-05_JPRB,2.9249E-05_JPRB,3.0678E-05_JPRB,3.0941E-05_JPRB,3.0197E-05_JPRB,&
94 & 2.8392E-05_JPRB,2.5270E-05_JPRB,2.0786E-05_JPRB/) 
95KAO( :, 3, 2, 1) = (/&
96 & 1.6647E-05_JPRB,2.5697E-05_JPRB,2.8891E-05_JPRB,3.0222E-05_JPRB,3.0484E-05_JPRB,2.9802E-05_JPRB,&
97 & 2.8138E-05_JPRB,2.5165E-05_JPRB,2.0933E-05_JPRB/) 
98KAO( :, 4, 2, 1) = (/&
99 & 1.6540E-05_JPRB,2.5405E-05_JPRB,2.8466E-05_JPRB,2.9745E-05_JPRB,3.0011E-05_JPRB,2.9400E-05_JPRB,&
100 & 2.7847E-05_JPRB,2.5027E-05_JPRB,2.1051E-05_JPRB/) 
101KAO( :, 5, 2, 1) = (/&
102 & 1.6324E-05_JPRB,2.5032E-05_JPRB,2.7991E-05_JPRB,2.9251E-05_JPRB,2.9530E-05_JPRB,2.8984E-05_JPRB,&
103 & 2.7519E-05_JPRB,2.4864E-05_JPRB,2.1134E-05_JPRB/) 
104KAO( :, 1, 3, 1) = (/&
105 & 1.4086E-05_JPRB,2.2526E-05_JPRB,2.5577E-05_JPRB,2.6862E-05_JPRB,2.7021E-05_JPRB,2.6302E-05_JPRB,&
106 & 2.4576E-05_JPRB,2.1643E-05_JPRB,1.8751E-05_JPRB/) 
107KAO( :, 2, 3, 1) = (/&
108 & 1.4131E-05_JPRB,2.2392E-05_JPRB,2.5264E-05_JPRB,2.6452E-05_JPRB,2.6617E-05_JPRB,2.5964E-05_JPRB,&
109 & 2.4370E-05_JPRB,2.1595E-05_JPRB,1.8898E-05_JPRB/) 
110KAO( :, 3, 3, 1) = (/&
111 & 1.4113E-05_JPRB,2.2191E-05_JPRB,2.4900E-05_JPRB,2.6018E-05_JPRB,2.6215E-05_JPRB,2.5621E-05_JPRB,&
112 & 2.4158E-05_JPRB,2.1540E-05_JPRB,1.9048E-05_JPRB/) 
113KAO( :, 4, 3, 1) = (/&
114 & 1.4058E-05_JPRB,2.1961E-05_JPRB,2.4548E-05_JPRB,2.5623E-05_JPRB,2.5838E-05_JPRB,2.5312E-05_JPRB,&
115 & 2.3952E-05_JPRB,2.1469E-05_JPRB,1.9182E-05_JPRB/) 
116KAO( :, 5, 3, 1) = (/&
117 & 1.3863E-05_JPRB,2.1619E-05_JPRB,2.4113E-05_JPRB,2.5184E-05_JPRB,2.5419E-05_JPRB,2.4957E-05_JPRB,&
118 & 2.3697E-05_JPRB,2.1357E-05_JPRB,1.9265E-05_JPRB/) 
119KAO( :, 1, 4, 1) = (/&
120 & 1.1900E-05_JPRB,1.9396E-05_JPRB,2.1993E-05_JPRB,2.3049E-05_JPRB,2.3163E-05_JPRB,2.2508E-05_JPRB,&
121 & 2.0982E-05_JPRB,1.8407E-05_JPRB,1.7094E-05_JPRB/) 
122KAO( :, 2, 4, 1) = (/&
123 & 1.1936E-05_JPRB,1.9289E-05_JPRB,2.1740E-05_JPRB,2.2712E-05_JPRB,2.2827E-05_JPRB,2.2234E-05_JPRB,&
124 & 2.0833E-05_JPRB,1.8390E-05_JPRB,1.7367E-05_JPRB/) 
125KAO( :, 3, 4, 1) = (/&
126 & 1.1914E-05_JPRB,1.9113E-05_JPRB,2.1420E-05_JPRB,2.2348E-05_JPRB,2.2488E-05_JPRB,2.1958E-05_JPRB,&
127 & 2.0668E-05_JPRB,1.8368E-05_JPRB,1.7624E-05_JPRB/) 
128KAO( :, 4, 4, 1) = (/&
129 & 1.1850E-05_JPRB,1.8882E-05_JPRB,2.1069E-05_JPRB,2.1971E-05_JPRB,2.2145E-05_JPRB,2.1684E-05_JPRB,&
130 & 2.0493E-05_JPRB,1.8332E-05_JPRB,1.7862E-05_JPRB/) 
131KAO( :, 5, 4, 1) = (/&
132 & 1.1744E-05_JPRB,1.8626E-05_JPRB,2.0733E-05_JPRB,2.1634E-05_JPRB,2.1819E-05_JPRB,2.1414E-05_JPRB,&
133 & 2.0321E-05_JPRB,1.8279E-05_JPRB,1.8065E-05_JPRB/) 
134KAO( :, 1, 5, 1) = (/&
135 & 1.0007E-05_JPRB,1.6633E-05_JPRB,1.8846E-05_JPRB,1.9714E-05_JPRB,1.9792E-05_JPRB,1.9192E-05_JPRB,&
136 & 1.7849E-05_JPRB,1.5620E-05_JPRB,1.4831E-05_JPRB/) 
137KAO( :, 2, 5, 1) = (/&
138 & 1.0036E-05_JPRB,1.6537E-05_JPRB,1.8619E-05_JPRB,1.9430E-05_JPRB,1.9510E-05_JPRB,1.8974E-05_JPRB,&
139 & 1.7727E-05_JPRB,1.5597E-05_JPRB,1.5243E-05_JPRB/) 
140KAO( :, 3, 5, 1) = (/&
141 & 1.0020E-05_JPRB,1.6382E-05_JPRB,1.8357E-05_JPRB,1.9125E-05_JPRB,1.9225E-05_JPRB,1.8747E-05_JPRB,&
142 & 1.7610E-05_JPRB,1.5596E-05_JPRB,1.5694E-05_JPRB/) 
143KAO( :, 4, 5, 1) = (/&
144 & 9.9655E-06_JPRB,1.6185E-05_JPRB,1.8047E-05_JPRB,1.8806E-05_JPRB,1.8930E-05_JPRB,1.8511E-05_JPRB,&
145 & 1.7475E-05_JPRB,1.5592E-05_JPRB,1.6134E-05_JPRB/) 
146KAO( :, 5, 5, 1) = (/&
147 & 9.8924E-06_JPRB,1.5961E-05_JPRB,1.7750E-05_JPRB,1.8511E-05_JPRB,1.8653E-05_JPRB,1.8287E-05_JPRB,&
148 & 1.7340E-05_JPRB,1.5571E-05_JPRB,1.6528E-05_JPRB/) 
149KAO( :, 1, 6, 1) = (/&
150 & 8.3773E-06_JPRB,1.4205E-05_JPRB,1.6091E-05_JPRB,1.6810E-05_JPRB,1.6854E-05_JPRB,1.6312E-05_JPRB,&
151 & 1.5134E-05_JPRB,1.3227E-05_JPRB,1.2806E-05_JPRB/) 
152KAO( :, 2, 6, 1) = (/&
153 & 8.4040E-06_JPRB,1.4116E-05_JPRB,1.5890E-05_JPRB,1.6565E-05_JPRB,1.6618E-05_JPRB,1.6134E-05_JPRB,&
154 & 1.5030E-05_JPRB,1.3175E-05_JPRB,1.3188E-05_JPRB/) 
155KAO( :, 3, 6, 1) = (/&
156 & 8.3967E-06_JPRB,1.3982E-05_JPRB,1.5670E-05_JPRB,1.6315E-05_JPRB,1.6378E-05_JPRB,1.5948E-05_JPRB,&
157 & 1.4938E-05_JPRB,1.3181E-05_JPRB,1.3640E-05_JPRB/) 
158KAO( :, 4, 6, 1) = (/&
159 & 8.3520E-06_JPRB,1.3808E-05_JPRB,1.5410E-05_JPRB,1.6041E-05_JPRB,1.6129E-05_JPRB,1.5748E-05_JPRB,&
160 & 1.4840E-05_JPRB,1.3187E-05_JPRB,1.4105E-05_JPRB/) 
161KAO( :, 5, 6, 1) = (/&
162 & 8.2808E-06_JPRB,1.3600E-05_JPRB,1.5125E-05_JPRB,1.5766E-05_JPRB,1.5873E-05_JPRB,1.5546E-05_JPRB,&
163 & 1.4725E-05_JPRB,1.3184E-05_JPRB,1.4585E-05_JPRB/) 
164KAO( :, 1, 7, 1) = (/&
165 & 6.9702E-06_JPRB,1.2049E-05_JPRB,1.3655E-05_JPRB,1.4254E-05_JPRB,1.4272E-05_JPRB,1.3786E-05_JPRB,&
166 & 1.2775E-05_JPRB,1.1193E-05_JPRB,1.1151E-05_JPRB/) 
167KAO( :, 2, 7, 1) = (/&
168 & 6.9954E-06_JPRB,1.1967E-05_JPRB,1.3478E-05_JPRB,1.4043E-05_JPRB,1.4073E-05_JPRB,1.3643E-05_JPRB,&
169 & 1.2677E-05_JPRB,1.1085E-05_JPRB,1.1514E-05_JPRB/) 
170KAO( :, 3, 7, 1) = (/&
171 & 6.9926E-06_JPRB,1.1851E-05_JPRB,1.3284E-05_JPRB,1.3826E-05_JPRB,1.3871E-05_JPRB,1.3488E-05_JPRB,&
172 & 1.2600E-05_JPRB,1.1081E-05_JPRB,1.1911E-05_JPRB/) 
173KAO( :, 4, 7, 1) = (/&
174 & 6.9597E-06_JPRB,1.1700E-05_JPRB,1.3068E-05_JPRB,1.3600E-05_JPRB,1.3659E-05_JPRB,1.3321E-05_JPRB,&
175 & 1.2522E-05_JPRB,1.1091E-05_JPRB,1.2356E-05_JPRB/) 
176KAO( :, 5, 7, 1) = (/&
177 & 6.9051E-06_JPRB,1.1522E-05_JPRB,1.2825E-05_JPRB,1.3359E-05_JPRB,1.3444E-05_JPRB,1.3151E-05_JPRB,&
178 & 1.2435E-05_JPRB,1.1100E-05_JPRB,1.2847E-05_JPRB/) 
179KAO( :, 1, 8, 1) = (/&
180 & 5.8087E-06_JPRB,1.0208E-05_JPRB,1.1579E-05_JPRB,1.2087E-05_JPRB,1.2081E-05_JPRB,1.1640E-05_JPRB,&
181 & 1.0763E-05_JPRB,9.5182E-06_JPRB,9.7914E-06_JPRB/) 
182KAO( :, 2, 8, 1) = (/&
183 & 5.8314E-06_JPRB,1.0134E-05_JPRB,1.1429E-05_JPRB,1.1911E-05_JPRB,1.1918E-05_JPRB,1.1522E-05_JPRB,&
184 & 1.0685E-05_JPRB,9.3144E-06_JPRB,1.0107E-05_JPRB/) 
185KAO( :, 3, 8, 1) = (/&
186 & 5.8306E-06_JPRB,1.0039E-05_JPRB,1.1263E-05_JPRB,1.1721E-05_JPRB,1.1741E-05_JPRB,1.1392E-05_JPRB,&
187 & 1.0611E-05_JPRB,9.2970E-06_JPRB,1.0491E-05_JPRB/) 
188KAO( :, 4, 8, 1) = (/&
189 & 5.8084E-06_JPRB,9.9094E-06_JPRB,1.1082E-05_JPRB,1.1528E-05_JPRB,1.1564E-05_JPRB,1.1253E-05_JPRB,&
190 & 1.0543E-05_JPRB,9.3028E-06_JPRB,1.0943E-05_JPRB/) 
191KAO( :, 5, 8, 1) = (/&
192 & 5.7671E-06_JPRB,9.7597E-06_JPRB,1.0878E-05_JPRB,1.1322E-05_JPRB,1.1380E-05_JPRB,1.1112E-05_JPRB,&
193 & 1.0475E-05_JPRB,9.3153E-06_JPRB,1.1451E-05_JPRB/) 
194KAO( :, 1, 9, 1) = (/&
195 & 4.8301E-06_JPRB,8.6067E-06_JPRB,9.7714E-06_JPRB,1.0210E-05_JPRB,1.0192E-05_JPRB,9.7977E-06_JPRB,&
196 & 9.0505E-06_JPRB,8.2004E-06_JPRB,9.1168E-06_JPRB/) 
197KAO( :, 2, 9, 1) = (/&
198 & 4.8495E-06_JPRB,8.5468E-06_JPRB,9.6571E-06_JPRB,1.0063E-05_JPRB,1.0051E-05_JPRB,9.6903E-06_JPRB,&
199 & 8.9660E-06_JPRB,7.8251E-06_JPRB,9.4876E-06_JPRB/) 
200KAO( :, 3, 9, 1) = (/&
201 & 4.8497E-06_JPRB,8.4643E-06_JPRB,9.5144E-06_JPRB,9.9014E-06_JPRB,9.9028E-06_JPRB,9.5821E-06_JPRB,&
202 & 8.9043E-06_JPRB,7.7718E-06_JPRB,9.9373E-06_JPRB/) 
203KAO( :, 4, 9, 1) = (/&
204 & 4.8347E-06_JPRB,8.3597E-06_JPRB,9.3601E-06_JPRB,9.7348E-06_JPRB,9.7523E-06_JPRB,9.4691E-06_JPRB,&
205 & 8.8479E-06_JPRB,7.7751E-06_JPRB,1.0480E-05_JPRB/) 
206KAO( :, 5, 9, 1) = (/&
207 & 4.8060E-06_JPRB,8.2344E-06_JPRB,9.1913E-06_JPRB,9.5624E-06_JPRB,9.5965E-06_JPRB,9.3522E-06_JPRB,&
208 & 8.7881E-06_JPRB,7.7833E-06_JPRB,1.1108E-05_JPRB/) 
209KAO( :, 1,10, 1) = (/&
210 & 4.0064E-06_JPRB,7.2194E-06_JPRB,8.1998E-06_JPRB,8.5791E-06_JPRB,8.5570E-06_JPRB,8.2127E-06_JPRB,&
211 & 7.5956E-06_JPRB,7.1868E-06_JPRB,1.0453E-05_JPRB/) 
212KAO( :, 2,10, 1) = (/&
213 & 4.0197E-06_JPRB,7.1679E-06_JPRB,8.1105E-06_JPRB,8.4531E-06_JPRB,8.4331E-06_JPRB,8.1149E-06_JPRB,&
214 & 7.4918E-06_JPRB,6.5776E-06_JPRB,1.0520E-05_JPRB/) 
215KAO( :, 3,10, 1) = (/&
216 & 4.0198E-06_JPRB,7.0974E-06_JPRB,7.9934E-06_JPRB,8.3195E-06_JPRB,8.3088E-06_JPRB,8.0216E-06_JPRB,&
217 & 7.4367E-06_JPRB,6.4788E-06_JPRB,1.0711E-05_JPRB/) 
218KAO( :, 4,10, 1) = (/&
219 & 4.0097E-06_JPRB,7.0130E-06_JPRB,7.8610E-06_JPRB,8.1737E-06_JPRB,8.1778E-06_JPRB,7.9289E-06_JPRB,&
220 & 7.3886E-06_JPRB,6.4723E-06_JPRB,1.1047E-05_JPRB/) 
221KAO( :, 5,10, 1) = (/&
222 & 3.9884E-06_JPRB,6.9092E-06_JPRB,7.7198E-06_JPRB,8.0283E-06_JPRB,8.0487E-06_JPRB,7.8282E-06_JPRB,&
223 & 7.3394E-06_JPRB,6.4785E-06_JPRB,1.1524E-05_JPRB/) 
224KAO( :, 1,11, 1) = (/&
225 & 3.3235E-06_JPRB,6.0184E-06_JPRB,6.8284E-06_JPRB,7.1399E-06_JPRB,7.1176E-06_JPRB,6.8268E-06_JPRB,&
226 & 6.3069E-06_JPRB,5.9015E-06_JPRB,1.0775E-05_JPRB/) 
227KAO( :, 2,11, 1) = (/&
228 & 3.3290E-06_JPRB,5.9691E-06_JPRB,6.7492E-06_JPRB,7.0301E-06_JPRB,7.0090E-06_JPRB,6.7423E-06_JPRB,&
229 & 6.2217E-06_JPRB,5.4471E-06_JPRB,1.0671E-05_JPRB/) 
230KAO( :, 3,11, 1) = (/&
231 & 3.3251E-06_JPRB,5.9052E-06_JPRB,6.6470E-06_JPRB,6.9153E-06_JPRB,6.9027E-06_JPRB,6.6631E-06_JPRB,&
232 & 6.1768E-06_JPRB,5.3794E-06_JPRB,1.0714E-05_JPRB/) 
233KAO( :, 4,11, 1) = (/&
234 & 3.3144E-06_JPRB,5.8297E-06_JPRB,6.5309E-06_JPRB,6.7910E-06_JPRB,6.7926E-06_JPRB,6.5831E-06_JPRB,&
235 & 6.1358E-06_JPRB,5.3736E-06_JPRB,1.0902E-05_JPRB/) 
236KAO( :, 5,11, 1) = (/&
237 & 3.2953E-06_JPRB,5.7419E-06_JPRB,6.4131E-06_JPRB,6.6688E-06_JPRB,6.6812E-06_JPRB,6.4951E-06_JPRB,&
238 & 6.0888E-06_JPRB,5.3759E-06_JPRB,1.1211E-05_JPRB/) 
239KAO( :, 1,12, 1) = (/&
240 & 2.7539E-06_JPRB,5.0055E-06_JPRB,5.6748E-06_JPRB,5.9323E-06_JPRB,5.9106E-06_JPRB,5.6659E-06_JPRB,&
241 & 5.2301E-06_JPRB,4.8410E-06_JPRB,1.0041E-05_JPRB/) 
242KAO( :, 2,12, 1) = (/&
243 & 2.7540E-06_JPRB,4.9609E-06_JPRB,5.6055E-06_JPRB,5.8388E-06_JPRB,5.8173E-06_JPRB,5.5933E-06_JPRB,&
244 & 5.1585E-06_JPRB,4.5035E-06_JPRB,9.8783E-06_JPRB/) 
245KAO( :, 3,12, 1) = (/&
246 & 2.7488E-06_JPRB,4.9048E-06_JPRB,5.5190E-06_JPRB,5.7407E-06_JPRB,5.7275E-06_JPRB,5.5257E-06_JPRB,&
247 & 5.1201E-06_JPRB,4.4556E-06_JPRB,9.8584E-06_JPRB/) 
248KAO( :, 4,12, 1) = (/&
249 & 2.7385E-06_JPRB,4.8395E-06_JPRB,5.4207E-06_JPRB,5.6356E-06_JPRB,5.6337E-06_JPRB,5.4559E-06_JPRB,&
250 & 5.0826E-06_JPRB,4.4482E-06_JPRB,9.9631E-06_JPRB/) 
251KAO( :, 5,12, 1) = (/&
252 & 2.7214E-06_JPRB,4.7654E-06_JPRB,5.3225E-06_JPRB,5.5318E-06_JPRB,5.5373E-06_JPRB,5.3782E-06_JPRB,&
253 & 5.0386E-06_JPRB,4.4476E-06_JPRB,1.0178E-05_JPRB/) 
254KAO( :, 1,13, 1) = (/&
255 & 2.2801E-06_JPRB,4.1555E-06_JPRB,4.7093E-06_JPRB,4.9224E-06_JPRB,4.9034E-06_JPRB,4.6982E-06_JPRB,&
256 & 4.3297E-06_JPRB,3.9733E-06_JPRB,8.4129E-06_JPRB/) 
257KAO( :, 2,13, 1) = (/&
258 & 2.2770E-06_JPRB,4.1173E-06_JPRB,4.6509E-06_JPRB,4.8443E-06_JPRB,4.8245E-06_JPRB,4.6351E-06_JPRB,&
259 & 4.2708E-06_JPRB,3.7196E-06_JPRB,8.2708E-06_JPRB/) 
260KAO( :, 3,13, 1) = (/&
261 & 2.2712E-06_JPRB,4.0679E-06_JPRB,4.5774E-06_JPRB,4.7613E-06_JPRB,4.7480E-06_JPRB,4.5771E-06_JPRB,&
262 & 4.2377E-06_JPRB,3.6828E-06_JPRB,8.2482E-06_JPRB/) 
263KAO( :, 4,13, 1) = (/&
264 & 2.2616E-06_JPRB,4.0128E-06_JPRB,4.4962E-06_JPRB,4.6740E-06_JPRB,4.6674E-06_JPRB,4.5144E-06_JPRB,&
265 & 4.2021E-06_JPRB,3.6746E-06_JPRB,8.3289E-06_JPRB/) 
266KAO( :, 5,13, 1) = (/&
267 & 2.2466E-06_JPRB,3.9523E-06_JPRB,4.4147E-06_JPRB,4.5851E-06_JPRB,4.5844E-06_JPRB,4.4468E-06_JPRB,&
268 & 4.1612E-06_JPRB,3.6696E-06_JPRB,8.4982E-06_JPRB/) 
269KAO( :, 1, 1, 2) = (/&
270 & 4.5009E-05_JPRB,5.8537E-05_JPRB,6.2677E-05_JPRB,6.4420E-05_JPRB,6.4899E-05_JPRB,6.4046E-05_JPRB,&
271 & 6.1758E-05_JPRB,5.7308E-05_JPRB,4.4974E-05_JPRB/) 
272KAO( :, 2, 1, 2) = (/&
273 & 4.4639E-05_JPRB,5.7851E-05_JPRB,6.2018E-05_JPRB,6.3985E-05_JPRB,6.4709E-05_JPRB,6.3972E-05_JPRB,&
274 & 6.1776E-05_JPRB,5.7584E-05_JPRB,4.6032E-05_JPRB/) 
275KAO( :, 3, 1, 2) = (/&
276 & 4.4183E-05_JPRB,5.7134E-05_JPRB,6.1429E-05_JPRB,6.3594E-05_JPRB,6.4467E-05_JPRB,6.3906E-05_JPRB,&
277 & 6.1866E-05_JPRB,5.7909E-05_JPRB,4.7065E-05_JPRB/) 
278KAO( :, 4, 1, 2) = (/&
279 & 4.3603E-05_JPRB,5.6311E-05_JPRB,6.0747E-05_JPRB,6.3098E-05_JPRB,6.4110E-05_JPRB,6.3723E-05_JPRB,&
280 & 6.1859E-05_JPRB,5.8107E-05_JPRB,4.8038E-05_JPRB/) 
281KAO( :, 5, 1, 2) = (/&
282 & 4.3016E-05_JPRB,5.5575E-05_JPRB,6.0089E-05_JPRB,6.2604E-05_JPRB,6.3758E-05_JPRB,6.3526E-05_JPRB,&
283 & 6.1825E-05_JPRB,5.8256E-05_JPRB,4.8937E-05_JPRB/) 
284KAO( :, 1, 2, 2) = (/&
285 & 3.8991E-05_JPRB,5.1237E-05_JPRB,5.5073E-05_JPRB,5.6912E-05_JPRB,5.7291E-05_JPRB,5.6357E-05_JPRB,&
286 & 5.4136E-05_JPRB,4.9871E-05_JPRB,3.8345E-05_JPRB/) 
287KAO( :, 2, 2, 2) = (/&
288 & 3.8628E-05_JPRB,5.0611E-05_JPRB,5.4618E-05_JPRB,5.6670E-05_JPRB,5.7177E-05_JPRB,5.6367E-05_JPRB,&
289 & 5.4237E-05_JPRB,5.0203E-05_JPRB,3.9241E-05_JPRB/) 
290KAO( :, 3, 2, 2) = (/&
291 & 3.8218E-05_JPRB,5.0047E-05_JPRB,5.4219E-05_JPRB,5.6458E-05_JPRB,5.7088E-05_JPRB,5.6414E-05_JPRB,&
292 & 5.4375E-05_JPRB,5.0554E-05_JPRB,4.0182E-05_JPRB/) 
293KAO( :, 4, 2, 2) = (/&
294 & 3.7696E-05_JPRB,4.9413E-05_JPRB,5.3740E-05_JPRB,5.6131E-05_JPRB,5.6939E-05_JPRB,5.6393E-05_JPRB,&
295 & 5.4506E-05_JPRB,5.0827E-05_JPRB,4.1063E-05_JPRB/) 
296KAO( :, 5, 2, 2) = (/&
297 & 3.7087E-05_JPRB,4.8772E-05_JPRB,5.3212E-05_JPRB,5.5737E-05_JPRB,5.6714E-05_JPRB,5.6323E-05_JPRB,&
298 & 5.4580E-05_JPRB,5.1064E-05_JPRB,4.1833E-05_JPRB/) 
299KAO( :, 1, 3, 2) = (/&
300 & 3.3664E-05_JPRB,4.4718E-05_JPRB,4.8316E-05_JPRB,5.0054E-05_JPRB,5.0316E-05_JPRB,4.9337E-05_JPRB,&
301 & 4.7131E-05_JPRB,4.3067E-05_JPRB,3.3821E-05_JPRB/) 
302KAO( :, 2, 3, 2) = (/&
303 & 3.3332E-05_JPRB,4.4193E-05_JPRB,4.7982E-05_JPRB,4.9921E-05_JPRB,5.0286E-05_JPRB,4.9400E-05_JPRB,&
304 & 4.7278E-05_JPRB,4.3395E-05_JPRB,3.4508E-05_JPRB/) 
305KAO( :, 3, 3, 2) = (/&
306 & 3.2912E-05_JPRB,4.3709E-05_JPRB,4.7689E-05_JPRB,4.9796E-05_JPRB,5.0261E-05_JPRB,4.9490E-05_JPRB,&
307 & 4.7455E-05_JPRB,4.3769E-05_JPRB,3.5275E-05_JPRB/) 
308KAO( :, 4, 3, 2) = (/&
309 & 3.2477E-05_JPRB,4.3262E-05_JPRB,4.7404E-05_JPRB,4.9658E-05_JPRB,5.0286E-05_JPRB,4.9612E-05_JPRB,&
310 & 4.7676E-05_JPRB,4.4119E-05_JPRB,3.6032E-05_JPRB/) 
311KAO( :, 5, 3, 2) = (/&
312 & 3.1897E-05_JPRB,4.2732E-05_JPRB,4.7020E-05_JPRB,4.9397E-05_JPRB,5.0209E-05_JPRB,4.9662E-05_JPRB,&
313 & 4.7863E-05_JPRB,4.4408E-05_JPRB,3.6739E-05_JPRB/) 
314KAO( :, 1, 4, 2) = (/&
315 & 2.9034E-05_JPRB,3.9020E-05_JPRB,4.2255E-05_JPRB,4.3779E-05_JPRB,4.3941E-05_JPRB,4.2940E-05_JPRB,&
316 & 4.0749E-05_JPRB,3.6991E-05_JPRB,3.2231E-05_JPRB/) 
317KAO( :, 2, 4, 2) = (/&
318 & 2.8733E-05_JPRB,3.8566E-05_JPRB,4.1993E-05_JPRB,4.3688E-05_JPRB,4.3978E-05_JPRB,4.3065E-05_JPRB,&
319 & 4.0955E-05_JPRB,3.7298E-05_JPRB,3.2530E-05_JPRB/) 
320KAO( :, 3, 4, 2) = (/&
321 & 2.8365E-05_JPRB,3.8166E-05_JPRB,4.1800E-05_JPRB,4.3640E-05_JPRB,4.4034E-05_JPRB,4.3186E-05_JPRB,&
322 & 4.1171E-05_JPRB,3.7663E-05_JPRB,3.3003E-05_JPRB/) 
323KAO( :, 4, 4, 2) = (/&
324 & 2.7906E-05_JPRB,3.7772E-05_JPRB,4.1598E-05_JPRB,4.3582E-05_JPRB,4.4101E-05_JPRB,4.3335E-05_JPRB,&
325 & 4.1429E-05_JPRB,3.8018E-05_JPRB,3.3543E-05_JPRB/) 
326KAO( :, 5, 4, 2) = (/&
327 & 2.7464E-05_JPRB,3.7412E-05_JPRB,4.1395E-05_JPRB,4.3505E-05_JPRB,4.4180E-05_JPRB,4.3547E-05_JPRB,&
328 & 4.1708E-05_JPRB,3.8366E-05_JPRB,3.4090E-05_JPRB/) 
329KAO( :, 1, 5, 2) = (/&
330 & 2.5046E-05_JPRB,3.4030E-05_JPRB,3.6841E-05_JPRB,3.8123E-05_JPRB,3.8161E-05_JPRB,3.7165E-05_JPRB,&
331 & 3.5069E-05_JPRB,3.1597E-05_JPRB,3.1884E-05_JPRB/) 
332KAO( :, 2, 5, 2) = (/&
333 & 2.4766E-05_JPRB,3.3630E-05_JPRB,3.6644E-05_JPRB,3.8042E-05_JPRB,3.8206E-05_JPRB,3.7320E-05_JPRB,&
334 & 3.5335E-05_JPRB,3.1911E-05_JPRB,3.2055E-05_JPRB/) 
335KAO( :, 3, 5, 2) = (/&
336 & 2.4433E-05_JPRB,3.3294E-05_JPRB,3.6479E-05_JPRB,3.8027E-05_JPRB,3.8311E-05_JPRB,3.7468E-05_JPRB,&
337 & 3.5564E-05_JPRB,3.2236E-05_JPRB,3.2305E-05_JPRB/) 
338KAO( :, 4, 5, 2) = (/&
339 & 2.4018E-05_JPRB,3.2959E-05_JPRB,3.6349E-05_JPRB,3.8027E-05_JPRB,3.8418E-05_JPRB,3.7650E-05_JPRB,&
340 & 3.5828E-05_JPRB,3.2583E-05_JPRB,3.2642E-05_JPRB/) 
341KAO( :, 5, 5, 2) = (/&
342 & 2.3591E-05_JPRB,3.2668E-05_JPRB,3.6232E-05_JPRB,3.8051E-05_JPRB,3.8551E-05_JPRB,3.7905E-05_JPRB,&
343 & 3.6128E-05_JPRB,3.2939E-05_JPRB,3.3008E-05_JPRB/) 
344
345IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',1,ZHOOK_HANDLE)
346END SUBROUTINE PART1
347
348
349SUBROUTINE PART2
350
351REAL(KIND=JPRB) :: ZHOOK_HANDLE
352IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',0,ZHOOK_HANDLE)
353
354
355KAO( :, 1, 6, 2) = (/&
356 & 2.1579E-05_JPRB,2.9591E-05_JPRB,3.1991E-05_JPRB,3.3013E-05_JPRB,3.2936E-05_JPRB,3.1944E-05_JPRB,&
357 & 3.0025E-05_JPRB,2.6876E-05_JPRB,2.9999E-05_JPRB/) 
358KAO( :, 2, 6, 2) = (/&
359 & 2.1317E-05_JPRB,2.9255E-05_JPRB,3.1830E-05_JPRB,3.2965E-05_JPRB,3.2983E-05_JPRB,3.2102E-05_JPRB,&
360 & 3.0272E-05_JPRB,2.7170E-05_JPRB,3.0568E-05_JPRB/) 
361KAO( :, 3, 6, 2) = (/&
362 & 2.1011E-05_JPRB,2.8952E-05_JPRB,3.1684E-05_JPRB,3.2945E-05_JPRB,3.3093E-05_JPRB,3.2263E-05_JPRB,&
363 & 3.0533E-05_JPRB,2.7474E-05_JPRB,3.1151E-05_JPRB/) 
364KAO( :, 4, 6, 2) = (/&
365 & 2.0627E-05_JPRB,2.8670E-05_JPRB,3.1569E-05_JPRB,3.2960E-05_JPRB,3.3217E-05_JPRB,3.2461E-05_JPRB,&
366 & 3.0780E-05_JPRB,2.7789E-05_JPRB,3.1790E-05_JPRB/) 
367KAO( :, 5, 6, 2) = (/&
368 & 2.0182E-05_JPRB,2.8368E-05_JPRB,3.1449E-05_JPRB,3.2969E-05_JPRB,3.3342E-05_JPRB,3.2673E-05_JPRB,&
369 & 3.1052E-05_JPRB,2.8119E-05_JPRB,3.2386E-05_JPRB/) 
370KAO( :, 1, 7, 2) = (/&
371 & 1.8452E-05_JPRB,2.5532E-05_JPRB,2.7551E-05_JPRB,2.8351E-05_JPRB,2.8204E-05_JPRB,2.7262E-05_JPRB,&
372 & 2.5546E-05_JPRB,2.2740E-05_JPRB,2.8091E-05_JPRB/) 
373KAO( :, 2, 7, 2) = (/&
374 & 1.8215E-05_JPRB,2.5256E-05_JPRB,2.7416E-05_JPRB,2.8318E-05_JPRB,2.8249E-05_JPRB,2.7395E-05_JPRB,&
375 & 2.5765E-05_JPRB,2.3002E-05_JPRB,2.8720E-05_JPRB/) 
376KAO( :, 3, 7, 2) = (/&
377 & 1.7931E-05_JPRB,2.4972E-05_JPRB,2.7294E-05_JPRB,2.8314E-05_JPRB,2.8348E-05_JPRB,2.7572E-05_JPRB,&
378 & 2.6008E-05_JPRB,2.3291E-05_JPRB,2.9431E-05_JPRB/) 
379KAO( :, 4, 7, 2) = (/&
380 & 1.7583E-05_JPRB,2.4714E-05_JPRB,2.7183E-05_JPRB,2.8322E-05_JPRB,2.8484E-05_JPRB,2.7765E-05_JPRB,&
381 & 2.6265E-05_JPRB,2.3586E-05_JPRB,3.0235E-05_JPRB/) 
382KAO( :, 5, 7, 2) = (/&
383 & 1.7179E-05_JPRB,2.4453E-05_JPRB,2.7076E-05_JPRB,2.8339E-05_JPRB,2.8609E-05_JPRB,2.7972E-05_JPRB,&
384 & 2.6510E-05_JPRB,2.3882E-05_JPRB,3.1083E-05_JPRB/) 
385KAO( :, 1, 8, 2) = (/&
386 & 1.5794E-05_JPRB,2.2020E-05_JPRB,2.3670E-05_JPRB,2.4259E-05_JPRB,2.4056E-05_JPRB,2.3178E-05_JPRB,&
387 & 2.1635E-05_JPRB,1.9134E-05_JPRB,2.7582E-05_JPRB/) 
388KAO( :, 2, 8, 2) = (/&
389 & 1.5579E-05_JPRB,2.1775E-05_JPRB,2.3546E-05_JPRB,2.4231E-05_JPRB,2.4092E-05_JPRB,2.3297E-05_JPRB,&
390 & 2.1816E-05_JPRB,1.9397E-05_JPRB,2.8313E-05_JPRB/) 
391KAO( :, 3, 8, 2) = (/&
392 & 1.5328E-05_JPRB,2.1517E-05_JPRB,2.3429E-05_JPRB,2.4220E-05_JPRB,2.4175E-05_JPRB,2.3443E-05_JPRB,&
393 & 2.2039E-05_JPRB,1.9642E-05_JPRB,2.9205E-05_JPRB/) 
394KAO( :, 4, 8, 2) = (/&
395 & 1.5023E-05_JPRB,2.1268E-05_JPRB,2.3319E-05_JPRB,2.4225E-05_JPRB,2.4291E-05_JPRB,2.3637E-05_JPRB,&
396 & 2.2285E-05_JPRB,1.9922E-05_JPRB,3.0174E-05_JPRB/) 
397KAO( :, 5, 8, 2) = (/&
398 & 1.4668E-05_JPRB,2.1020E-05_JPRB,2.3208E-05_JPRB,2.4227E-05_JPRB,2.4407E-05_JPRB,2.3824E-05_JPRB,&
399 & 2.2528E-05_JPRB,2.0191E-05_JPRB,3.1226E-05_JPRB/) 
400KAO( :, 1, 9, 2) = (/&
401 & 1.3453E-05_JPRB,1.8874E-05_JPRB,2.0200E-05_JPRB,2.0614E-05_JPRB,2.0394E-05_JPRB,1.9585E-05_JPRB,&
402 & 1.8218E-05_JPRB,1.5952E-05_JPRB,3.1081E-05_JPRB/) 
403KAO( :, 2, 9, 2) = (/&
404 & 1.3262E-05_JPRB,1.8651E-05_JPRB,2.0085E-05_JPRB,2.0598E-05_JPRB,2.0424E-05_JPRB,1.9696E-05_JPRB,&
405 & 1.8380E-05_JPRB,1.6281E-05_JPRB,3.2467E-05_JPRB/) 
406KAO( :, 3, 9, 2) = (/&
407 & 1.3038E-05_JPRB,1.8418E-05_JPRB,1.9972E-05_JPRB,2.0581E-05_JPRB,2.0487E-05_JPRB,1.9824E-05_JPRB,&
408 & 1.8572E-05_JPRB,1.6491E-05_JPRB,3.3986E-05_JPRB/) 
409KAO( :, 4, 9, 2) = (/&
410 & 1.2776E-05_JPRB,1.8181E-05_JPRB,1.9859E-05_JPRB,2.0572E-05_JPRB,2.0585E-05_JPRB,1.9985E-05_JPRB,&
411 & 1.8794E-05_JPRB,1.6733E-05_JPRB,3.5607E-05_JPRB/) 
412KAO( :, 5, 9, 2) = (/&
413 & 1.2471E-05_JPRB,1.7952E-05_JPRB,1.9753E-05_JPRB,2.0569E-05_JPRB,2.0679E-05_JPRB,2.0158E-05_JPRB,&
414 & 1.9021E-05_JPRB,1.6980E-05_JPRB,3.7340E-05_JPRB/) 
415KAO( :, 1,10, 2) = (/&
416 & 1.1374E-05_JPRB,1.6047E-05_JPRB,1.7111E-05_JPRB,1.7393E-05_JPRB,1.7165E-05_JPRB,1.6451E-05_JPRB,&
417 & 1.5255E-05_JPRB,1.3140E-05_JPRB,3.4787E-05_JPRB/) 
418KAO( :, 2,10, 2) = (/&
419 & 1.1208E-05_JPRB,1.5847E-05_JPRB,1.6997E-05_JPRB,1.7386E-05_JPRB,1.7209E-05_JPRB,1.6555E-05_JPRB,&
420 & 1.5407E-05_JPRB,1.3598E-05_JPRB,3.7476E-05_JPRB/) 
421KAO( :, 3,10, 2) = (/&
422 & 1.1010E-05_JPRB,1.5634E-05_JPRB,1.6890E-05_JPRB,1.7366E-05_JPRB,1.7258E-05_JPRB,1.6670E-05_JPRB,&
423 & 1.5570E-05_JPRB,1.3793E-05_JPRB,4.0426E-05_JPRB/) 
424KAO( :, 4,10, 2) = (/&
425 & 1.0782E-05_JPRB,1.5423E-05_JPRB,1.6783E-05_JPRB,1.7341E-05_JPRB,1.7331E-05_JPRB,1.6806E-05_JPRB,&
426 & 1.5764E-05_JPRB,1.4000E-05_JPRB,4.3679E-05_JPRB/) 
427KAO( :, 5,10, 2) = (/&
428 & 1.0524E-05_JPRB,1.5209E-05_JPRB,1.6680E-05_JPRB,1.7333E-05_JPRB,1.7403E-05_JPRB,1.6952E-05_JPRB,&
429 & 1.5975E-05_JPRB,1.4224E-05_JPRB,4.7059E-05_JPRB/) 
430KAO( :, 1,11, 2) = (/&
431 & 9.5209E-06_JPRB,1.3499E-05_JPRB,1.4375E-05_JPRB,1.4600E-05_JPRB,1.4393E-05_JPRB,1.3793E-05_JPRB,&
432 & 1.2781E-05_JPRB,1.1038E-05_JPRB,3.2865E-05_JPRB/) 
433KAO( :, 2,11, 2) = (/&
434 & 9.3637E-06_JPRB,1.3313E-05_JPRB,1.4267E-05_JPRB,1.4592E-05_JPRB,1.4440E-05_JPRB,1.3889E-05_JPRB,&
435 & 1.2920E-05_JPRB,1.1404E-05_JPRB,3.5445E-05_JPRB/) 
436KAO( :, 3,11, 2) = (/&
437 & 9.1833E-06_JPRB,1.3123E-05_JPRB,1.4166E-05_JPRB,1.4568E-05_JPRB,1.4482E-05_JPRB,1.3996E-05_JPRB,&
438 & 1.3070E-05_JPRB,1.1568E-05_JPRB,3.8218E-05_JPRB/) 
439KAO( :, 4,11, 2) = (/&
440 & 8.9761E-06_JPRB,1.2932E-05_JPRB,1.4072E-05_JPRB,1.4544E-05_JPRB,1.4541E-05_JPRB,1.4107E-05_JPRB,&
441 & 1.3243E-05_JPRB,1.1758E-05_JPRB,4.1117E-05_JPRB/) 
442KAO( :, 5,11, 2) = (/&
443 & 8.7519E-06_JPRB,1.2738E-05_JPRB,1.3974E-05_JPRB,1.4523E-05_JPRB,1.4594E-05_JPRB,1.4232E-05_JPRB,&
444 & 1.3426E-05_JPRB,1.1955E-05_JPRB,4.4210E-05_JPRB/) 
445KAO( :, 1,12, 2) = (/&
446 & 7.9463E-06_JPRB,1.1314E-05_JPRB,1.2032E-05_JPRB,1.2211E-05_JPRB,1.2025E-05_JPRB,1.1526E-05_JPRB,&
447 & 1.0676E-05_JPRB,9.2413E-06_JPRB,2.9106E-05_JPRB/) 
448KAO( :, 2,12, 2) = (/&
449 & 7.8042E-06_JPRB,1.1141E-05_JPRB,1.1931E-05_JPRB,1.2198E-05_JPRB,1.2069E-05_JPRB,1.1610E-05_JPRB,&
450 & 1.0799E-05_JPRB,9.5264E-06_JPRB,3.1349E-05_JPRB/) 
451KAO( :, 3,12, 2) = (/&
452 & 7.6428E-06_JPRB,1.0975E-05_JPRB,1.1841E-05_JPRB,1.2172E-05_JPRB,1.2102E-05_JPRB,1.1694E-05_JPRB,&
453 & 1.0928E-05_JPRB,9.6721E-06_JPRB,3.3866E-05_JPRB/) 
454KAO( :, 4,12, 2) = (/&
455 & 7.4623E-06_JPRB,1.0806E-05_JPRB,1.1756E-05_JPRB,1.2145E-05_JPRB,1.2145E-05_JPRB,1.1788E-05_JPRB,&
456 & 1.1076E-05_JPRB,9.8394E-06_JPRB,3.6457E-05_JPRB/) 
457KAO( :, 5,12, 2) = (/&
458 & 7.2711E-06_JPRB,1.0633E-05_JPRB,1.1656E-05_JPRB,1.2115E-05_JPRB,1.2181E-05_JPRB,1.1891E-05_JPRB,&
459 & 1.1228E-05_JPRB,1.0010E-05_JPRB,3.9156E-05_JPRB/) 
460KAO( :, 1,13, 2) = (/&
461 & 6.6184E-06_JPRB,9.4565E-06_JPRB,1.0043E-05_JPRB,1.0182E-05_JPRB,1.0021E-05_JPRB,9.6035E-06_JPRB,&
462 & 8.8893E-06_JPRB,7.7053E-06_JPRB,2.4435E-05_JPRB/) 
463KAO( :, 2,13, 2) = (/&
464 & 6.4936E-06_JPRB,9.3020E-06_JPRB,9.9506E-06_JPRB,1.0164E-05_JPRB,1.0053E-05_JPRB,9.6688E-06_JPRB,&
465 & 8.9931E-06_JPRB,7.9311E-06_JPRB,2.6318E-05_JPRB/) 
466KAO( :, 3,13, 2) = (/&
467 & 6.3517E-06_JPRB,9.1558E-06_JPRB,9.8692E-06_JPRB,1.0135E-05_JPRB,1.0076E-05_JPRB,9.7347E-06_JPRB,&
468 & 9.1027E-06_JPRB,8.0612E-06_JPRB,2.8419E-05_JPRB/) 
469KAO( :, 4,13, 2) = (/&
470 & 6.1987E-06_JPRB,9.0085E-06_JPRB,9.7873E-06_JPRB,1.0106E-05_JPRB,1.0104E-05_JPRB,9.8108E-06_JPRB,&
471 & 9.2254E-06_JPRB,8.2025E-06_JPRB,3.0596E-05_JPRB/) 
472KAO( :, 5,13, 2) = (/&
473 & 6.0390E-06_JPRB,8.8585E-06_JPRB,9.6966E-06_JPRB,1.0071E-05_JPRB,1.0127E-05_JPRB,9.8907E-06_JPRB,&
474 & 9.3441E-06_JPRB,8.3431E-06_JPRB,3.2866E-05_JPRB/) 
475KAO( :, 1, 1, 3) = (/&
476 & 7.0753E-05_JPRB,8.7371E-05_JPRB,9.5172E-05_JPRB,9.9390E-05_JPRB,1.0056E-04_JPRB,9.9494E-05_JPRB,&
477 & 9.5837E-05_JPRB,8.9326E-05_JPRB,7.4323E-05_JPRB/) 
478KAO( :, 2, 1, 3) = (/&
479 & 6.9795E-05_JPRB,8.7509E-05_JPRB,9.5691E-05_JPRB,9.9950E-05_JPRB,1.0125E-04_JPRB,1.0041E-04_JPRB,&
480 & 9.7011E-05_JPRB,9.0609E-05_JPRB,7.5641E-05_JPRB/) 
481KAO( :, 3, 1, 3) = (/&
482 & 6.9131E-05_JPRB,8.7916E-05_JPRB,9.6468E-05_JPRB,1.0076E-04_JPRB,1.0214E-04_JPRB,1.0141E-04_JPRB,&
483 & 9.8247E-05_JPRB,9.2085E-05_JPRB,7.7357E-05_JPRB/) 
484KAO( :, 4, 1, 3) = (/&
485 & 6.8482E-05_JPRB,8.8338E-05_JPRB,9.7157E-05_JPRB,1.0153E-04_JPRB,1.0307E-04_JPRB,1.0249E-04_JPRB,&
486 & 9.9530E-05_JPRB,9.3696E-05_JPRB,7.9379E-05_JPRB/) 
487KAO( :, 5, 1, 3) = (/&
488 & 6.7880E-05_JPRB,8.8892E-05_JPRB,9.7857E-05_JPRB,1.0242E-04_JPRB,1.0411E-04_JPRB,1.0366E-04_JPRB,&
489 & 1.0077E-04_JPRB,9.5333E-05_JPRB,8.1423E-05_JPRB/) 
490KAO( :, 1, 2, 3) = (/&
491 & 6.2276E-05_JPRB,7.8469E-05_JPRB,8.5472E-05_JPRB,8.8868E-05_JPRB,8.9888E-05_JPRB,8.8903E-05_JPRB,&
492 & 8.5409E-05_JPRB,7.9146E-05_JPRB,6.4309E-05_JPRB/) 
493KAO( :, 2, 2, 3) = (/&
494 & 6.1522E-05_JPRB,7.8775E-05_JPRB,8.6027E-05_JPRB,8.9487E-05_JPRB,9.0686E-05_JPRB,8.9927E-05_JPRB,&
495 & 8.6540E-05_JPRB,8.0293E-05_JPRB,6.5447E-05_JPRB/) 
496KAO( :, 3, 2, 3) = (/&
497 & 6.1045E-05_JPRB,7.9281E-05_JPRB,8.6793E-05_JPRB,9.0368E-05_JPRB,9.1669E-05_JPRB,9.0966E-05_JPRB,&
498 & 8.7713E-05_JPRB,8.1579E-05_JPRB,6.6858E-05_JPRB/) 
499KAO( :, 4, 2, 3) = (/&
500 & 6.0651E-05_JPRB,7.9924E-05_JPRB,8.7586E-05_JPRB,9.1281E-05_JPRB,9.2660E-05_JPRB,9.2033E-05_JPRB,&
501 & 8.8973E-05_JPRB,8.3100E-05_JPRB,6.8552E-05_JPRB/) 
502KAO( :, 5, 2, 3) = (/&
503 & 6.0196E-05_JPRB,8.0517E-05_JPRB,8.8362E-05_JPRB,9.2181E-05_JPRB,9.3655E-05_JPRB,9.3124E-05_JPRB,&
504 & 9.0231E-05_JPRB,8.4620E-05_JPRB,7.0321E-05_JPRB/) 
505KAO( :, 1, 3, 3) = (/&
506 & 5.4594E-05_JPRB,7.0140E-05_JPRB,7.6291E-05_JPRB,7.9103E-05_JPRB,7.9908E-05_JPRB,7.8825E-05_JPRB,&
507 & 7.5557E-05_JPRB,6.9638E-05_JPRB,5.6129E-05_JPRB/) 
508KAO( :, 2, 3, 3) = (/&
509 & 5.3987E-05_JPRB,7.0481E-05_JPRB,7.6809E-05_JPRB,7.9722E-05_JPRB,8.0799E-05_JPRB,7.9847E-05_JPRB,&
510 & 7.6636E-05_JPRB,7.0746E-05_JPRB,5.7083E-05_JPRB/) 
511KAO( :, 3, 3, 3) = (/&
512 & 5.3598E-05_JPRB,7.0935E-05_JPRB,7.7478E-05_JPRB,8.0559E-05_JPRB,8.1742E-05_JPRB,8.0926E-05_JPRB,&
513 & 7.7718E-05_JPRB,7.1792E-05_JPRB,5.8231E-05_JPRB/) 
514KAO( :, 4, 3, 3) = (/&
515 & 5.3419E-05_JPRB,7.1650E-05_JPRB,7.8342E-05_JPRB,8.1570E-05_JPRB,8.2791E-05_JPRB,8.1991E-05_JPRB,&
516 & 7.8849E-05_JPRB,7.3062E-05_JPRB,5.9633E-05_JPRB/) 
517KAO( :, 5, 3, 3) = (/&
518 & 5.3129E-05_JPRB,7.2273E-05_JPRB,7.9178E-05_JPRB,8.2486E-05_JPRB,8.3759E-05_JPRB,8.3022E-05_JPRB,&
519 & 8.0014E-05_JPRB,7.4467E-05_JPRB,6.1152E-05_JPRB/) 
520KAO( :, 1, 4, 3) = (/&
521 & 4.7696E-05_JPRB,6.2286E-05_JPRB,6.7749E-05_JPRB,7.0181E-05_JPRB,7.0624E-05_JPRB,6.9456E-05_JPRB,&
522 & 6.6381E-05_JPRB,6.0701E-05_JPRB,5.1576E-05_JPRB/) 
523KAO( :, 2, 4, 3) = (/&
524 & 4.7208E-05_JPRB,6.2637E-05_JPRB,6.8240E-05_JPRB,7.0849E-05_JPRB,7.1530E-05_JPRB,7.0423E-05_JPRB,&
525 & 6.7425E-05_JPRB,6.1760E-05_JPRB,5.2349E-05_JPRB/) 
526KAO( :, 3, 4, 3) = (/&
527 & 4.6920E-05_JPRB,6.3058E-05_JPRB,6.8836E-05_JPRB,7.1607E-05_JPRB,7.2463E-05_JPRB,7.1509E-05_JPRB,&
528 & 6.8509E-05_JPRB,6.2750E-05_JPRB,5.3224E-05_JPRB/) 
529KAO( :, 4, 4, 3) = (/&
530 & 4.6776E-05_JPRB,6.3606E-05_JPRB,6.9601E-05_JPRB,7.2517E-05_JPRB,7.3446E-05_JPRB,7.2570E-05_JPRB,&
531 & 6.9521E-05_JPRB,6.3786E-05_JPRB,5.4286E-05_JPRB/) 
532KAO( :, 5, 4, 3) = (/&
533 & 4.6682E-05_JPRB,6.4343E-05_JPRB,7.0568E-05_JPRB,7.3573E-05_JPRB,7.4545E-05_JPRB,7.3619E-05_JPRB,&
534 & 7.0604E-05_JPRB,6.5003E-05_JPRB,5.5521E-05_JPRB/) 
535KAO( :, 1, 5, 3) = (/&
536 & 4.1581E-05_JPRB,5.4899E-05_JPRB,5.9799E-05_JPRB,6.1832E-05_JPRB,6.2136E-05_JPRB,6.0898E-05_JPRB,&
537 & 5.7964E-05_JPRB,5.2516E-05_JPRB,5.0115E-05_JPRB/) 
538KAO( :, 2, 5, 3) = (/&
539 & 4.1165E-05_JPRB,5.5257E-05_JPRB,6.0251E-05_JPRB,6.2555E-05_JPRB,6.3007E-05_JPRB,6.1795E-05_JPRB,&
540 & 5.8864E-05_JPRB,5.3500E-05_JPRB,5.0524E-05_JPRB/) 
541KAO( :, 3, 5, 3) = (/&
542 & 4.0905E-05_JPRB,5.5656E-05_JPRB,6.0839E-05_JPRB,6.3322E-05_JPRB,6.3891E-05_JPRB,6.2840E-05_JPRB,&
543 & 5.9887E-05_JPRB,5.4446E-05_JPRB,5.1001E-05_JPRB/) 
544KAO( :, 4, 5, 3) = (/&
545 & 4.0790E-05_JPRB,5.6129E-05_JPRB,6.1526E-05_JPRB,6.4146E-05_JPRB,6.4873E-05_JPRB,6.3880E-05_JPRB,&
546 & 6.0934E-05_JPRB,5.5421E-05_JPRB,5.1576E-05_JPRB/) 
547KAO( :, 5, 5, 3) = (/&
548 & 4.0741E-05_JPRB,5.6811E-05_JPRB,6.2419E-05_JPRB,6.5146E-05_JPRB,6.5947E-05_JPRB,6.4915E-05_JPRB,&
549 & 6.1966E-05_JPRB,5.6459E-05_JPRB,5.2345E-05_JPRB/) 
550KAO( :, 1, 6, 3) = (/&
551 & 3.6128E-05_JPRB,4.8074E-05_JPRB,5.2303E-05_JPRB,5.4088E-05_JPRB,5.4305E-05_JPRB,5.3072E-05_JPRB,&
552 & 5.0232E-05_JPRB,4.5105E-05_JPRB,5.1680E-05_JPRB/) 
553KAO( :, 2, 6, 3) = (/&
554 & 3.5776E-05_JPRB,4.8378E-05_JPRB,5.2790E-05_JPRB,5.4763E-05_JPRB,5.5146E-05_JPRB,5.3920E-05_JPRB,&
555 & 5.1041E-05_JPRB,4.6023E-05_JPRB,5.1519E-05_JPRB/) 
556KAO( :, 3, 6, 3) = (/&
557 & 3.5527E-05_JPRB,4.8788E-05_JPRB,5.3350E-05_JPRB,5.5505E-05_JPRB,5.5990E-05_JPRB,5.4859E-05_JPRB,&
558 & 5.1952E-05_JPRB,4.6910E-05_JPRB,5.1451E-05_JPRB/) 
559KAO( :, 4, 6, 3) = (/&
560 & 3.5393E-05_JPRB,4.9227E-05_JPRB,5.4029E-05_JPRB,5.6316E-05_JPRB,5.6902E-05_JPRB,5.5852E-05_JPRB,&
561 & 5.2950E-05_JPRB,4.7839E-05_JPRB,5.1463E-05_JPRB/) 
562KAO( :, 5, 6, 3) = (/&
563 & 3.5279E-05_JPRB,4.9738E-05_JPRB,5.4773E-05_JPRB,5.7200E-05_JPRB,5.7864E-05_JPRB,5.6831E-05_JPRB,&
564 & 5.3962E-05_JPRB,4.8775E-05_JPRB,5.1664E-05_JPRB/) 
565KAO( :, 1, 7, 3) = (/&
566 & 3.1175E-05_JPRB,4.1797E-05_JPRB,4.5353E-05_JPRB,4.6878E-05_JPRB,4.7045E-05_JPRB,4.5914E-05_JPRB,&
567 & 4.3260E-05_JPRB,3.8528E-05_JPRB,5.5034E-05_JPRB/) 
568KAO( :, 2, 7, 3) = (/&
569 & 3.0861E-05_JPRB,4.2063E-05_JPRB,4.5864E-05_JPRB,4.7535E-05_JPRB,4.7827E-05_JPRB,4.6677E-05_JPRB,&
570 & 4.3974E-05_JPRB,3.9350E-05_JPRB,5.5182E-05_JPRB/) 
571KAO( :, 3, 7, 3) = (/&
572 & 3.0632E-05_JPRB,4.2441E-05_JPRB,4.6427E-05_JPRB,4.8241E-05_JPRB,4.8620E-05_JPRB,4.7526E-05_JPRB,&
573 & 4.4793E-05_JPRB,4.0140E-05_JPRB,5.5398E-05_JPRB/) 
574KAO( :, 4, 7, 3) = (/&
575 & 3.0475E-05_JPRB,4.2876E-05_JPRB,4.7039E-05_JPRB,4.9018E-05_JPRB,4.9446E-05_JPRB,4.8432E-05_JPRB,&
576 & 4.5701E-05_JPRB,4.0986E-05_JPRB,5.5585E-05_JPRB/) 
577KAO( :, 5, 7, 3) = (/&
578 & 3.0340E-05_JPRB,4.3333E-05_JPRB,4.7753E-05_JPRB,4.9874E-05_JPRB,5.0366E-05_JPRB,4.9368E-05_JPRB,&
579 & 4.6641E-05_JPRB,4.1870E-05_JPRB,5.5728E-05_JPRB/) 
580KAO( :, 1, 8, 3) = (/&
581 & 2.6882E-05_JPRB,3.6181E-05_JPRB,3.9159E-05_JPRB,4.0385E-05_JPRB,4.0472E-05_JPRB,3.9467E-05_JPRB,&
582 & 3.7068E-05_JPRB,3.2787E-05_JPRB,6.0191E-05_JPRB/) 
583KAO( :, 2, 8, 3) = (/&
584 & 2.6577E-05_JPRB,3.6420E-05_JPRB,3.9630E-05_JPRB,4.1005E-05_JPRB,4.1190E-05_JPRB,4.0154E-05_JPRB,&
585 & 3.7711E-05_JPRB,3.3501E-05_JPRB,6.0976E-05_JPRB/) 
586KAO( :, 3, 8, 3) = (/&
587 & 2.6344E-05_JPRB,3.6733E-05_JPRB,4.0183E-05_JPRB,4.1714E-05_JPRB,4.1930E-05_JPRB,4.0908E-05_JPRB,&
588 & 3.8425E-05_JPRB,3.4195E-05_JPRB,6.1747E-05_JPRB/) 
589KAO( :, 4, 8, 3) = (/&
590 & 2.6154E-05_JPRB,3.7129E-05_JPRB,4.0772E-05_JPRB,4.2424E-05_JPRB,4.2698E-05_JPRB,4.1708E-05_JPRB,&
591 & 3.9208E-05_JPRB,3.4923E-05_JPRB,6.2436E-05_JPRB/) 
592KAO( :, 5, 8, 3) = (/&
593 & 2.5969E-05_JPRB,3.7541E-05_JPRB,4.1396E-05_JPRB,4.3205E-05_JPRB,4.3544E-05_JPRB,4.2561E-05_JPRB,&
594 & 4.0066E-05_JPRB,3.5716E-05_JPRB,6.2996E-05_JPRB/) 
595KAO( :, 1, 9, 3) = (/&
596 & 2.3030E-05_JPRB,3.1081E-05_JPRB,3.3574E-05_JPRB,3.4578E-05_JPRB,3.4594E-05_JPRB,3.3680E-05_JPRB,&
597 & 3.1564E-05_JPRB,2.7753E-05_JPRB,8.2972E-05_JPRB/) 
598KAO( :, 2, 9, 3) = (/&
599 & 2.2745E-05_JPRB,3.1301E-05_JPRB,3.4001E-05_JPRB,3.5099E-05_JPRB,3.5210E-05_JPRB,3.4293E-05_JPRB,&
600 & 3.2147E-05_JPRB,2.8418E-05_JPRB,8.5573E-05_JPRB/) 
601KAO( :, 3, 9, 3) = (/&
602 & 2.2504E-05_JPRB,3.1575E-05_JPRB,3.4507E-05_JPRB,3.5759E-05_JPRB,3.5892E-05_JPRB,3.4957E-05_JPRB,&
603 & 3.2777E-05_JPRB,2.9021E-05_JPRB,8.7692E-05_JPRB/) 
604KAO( :, 4, 9, 3) = (/&
605 & 2.2288E-05_JPRB,3.1903E-05_JPRB,3.5055E-05_JPRB,3.6460E-05_JPRB,3.6616E-05_JPRB,3.5667E-05_JPRB,&
606 & 3.3440E-05_JPRB,2.9641E-05_JPRB,8.9596E-05_JPRB/) 
607KAO( :, 5, 9, 3) = (/&
608 & 2.2076E-05_JPRB,3.2254E-05_JPRB,3.5612E-05_JPRB,3.7158E-05_JPRB,3.7379E-05_JPRB,3.6426E-05_JPRB,&
609 & 3.4185E-05_JPRB,3.0329E-05_JPRB,9.1172E-05_JPRB/) 
610KAO( :, 1,10, 3) = (/&
611 & 1.9573E-05_JPRB,2.6501E-05_JPRB,2.8604E-05_JPRB,2.9434E-05_JPRB,2.9415E-05_JPRB,2.8586E-05_JPRB,&
612 & 2.6756E-05_JPRB,2.3398E-05_JPRB,1.1831E-04_JPRB/) 
613KAO( :, 2,10, 3) = (/&
614 & 1.9311E-05_JPRB,2.6696E-05_JPRB,2.8987E-05_JPRB,2.9871E-05_JPRB,2.9930E-05_JPRB,2.9131E-05_JPRB,&
615 & 2.7291E-05_JPRB,2.4061E-05_JPRB,1.2413E-04_JPRB/) 
616KAO( :, 3,10, 3) = (/&
617 & 1.9064E-05_JPRB,2.6931E-05_JPRB,2.9433E-05_JPRB,3.0442E-05_JPRB,3.0524E-05_JPRB,2.9723E-05_JPRB,&
618 & 2.7830E-05_JPRB,2.4575E-05_JPRB,1.2968E-04_JPRB/) 
619KAO( :, 4,10, 3) = (/&
620 & 1.8838E-05_JPRB,2.7200E-05_JPRB,2.9911E-05_JPRB,3.1092E-05_JPRB,3.1189E-05_JPRB,3.0347E-05_JPRB,&
621 & 2.8402E-05_JPRB,2.5111E-05_JPRB,1.3500E-04_JPRB/) 
622KAO( :, 5,10, 3) = (/&
623 & 1.8619E-05_JPRB,2.7473E-05_JPRB,3.0391E-05_JPRB,3.1737E-05_JPRB,3.1883E-05_JPRB,3.1020E-05_JPRB,&
624 & 2.9042E-05_JPRB,2.5702E-05_JPRB,1.4050E-04_JPRB/) 
625KAO( :, 1,11, 3) = (/&
626 & 1.6456E-05_JPRB,2.2515E-05_JPRB,2.4353E-05_JPRB,2.5062E-05_JPRB,2.5054E-05_JPRB,2.4348E-05_JPRB,&
627 & 2.2780E-05_JPRB,1.9929E-05_JPRB,1.2447E-04_JPRB/) 
628KAO( :, 2,11, 3) = (/&
629 & 1.6210E-05_JPRB,2.2705E-05_JPRB,2.4709E-05_JPRB,2.5473E-05_JPRB,2.5515E-05_JPRB,2.4826E-05_JPRB,&
630 & 2.3259E-05_JPRB,2.0482E-05_JPRB,1.3150E-04_JPRB/) 
631KAO( :, 3,11, 3) = (/&
632 & 1.5971E-05_JPRB,2.2902E-05_JPRB,2.5095E-05_JPRB,2.5990E-05_JPRB,2.6068E-05_JPRB,2.5361E-05_JPRB,&
633 & 2.3741E-05_JPRB,2.0933E-05_JPRB,1.3833E-04_JPRB/) 
634KAO( :, 4,11, 3) = (/&
635 & 1.5752E-05_JPRB,2.3106E-05_JPRB,2.5493E-05_JPRB,2.6568E-05_JPRB,2.6674E-05_JPRB,2.5935E-05_JPRB,&
636 & 2.4259E-05_JPRB,2.1401E-05_JPRB,1.4470E-04_JPRB/) 
637KAO( :, 5,11, 3) = (/&
638 & 1.5528E-05_JPRB,2.3318E-05_JPRB,2.5901E-05_JPRB,2.7141E-05_JPRB,2.7302E-05_JPRB,2.6558E-05_JPRB,&
639 & 2.4843E-05_JPRB,2.1914E-05_JPRB,1.5074E-04_JPRB/) 
640KAO( :, 1,12, 3) = (/&
641 & 1.3780E-05_JPRB,1.9033E-05_JPRB,2.0619E-05_JPRB,2.1228E-05_JPRB,2.1226E-05_JPRB,2.0621E-05_JPRB,&
642 & 1.9294E-05_JPRB,1.6882E-05_JPRB,1.1649E-04_JPRB/) 
643KAO( :, 2,12, 3) = (/&
644 & 1.3548E-05_JPRB,1.9199E-05_JPRB,2.0913E-05_JPRB,2.1600E-05_JPRB,2.1645E-05_JPRB,2.1053E-05_JPRB,&
645 & 1.9719E-05_JPRB,1.7352E-05_JPRB,1.2368E-04_JPRB/) 
646
647IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',1,ZHOOK_HANDLE)
648END SUBROUTINE PART2
649
650
651SUBROUTINE PART3
652
653REAL(KIND=JPRB) :: ZHOOK_HANDLE
654IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',0,ZHOOK_HANDLE)
655
656
657KAO( :, 3,12, 3) = (/&
658 & 1.3324E-05_JPRB,1.9341E-05_JPRB,2.1240E-05_JPRB,2.2050E-05_JPRB,2.2132E-05_JPRB,2.1536E-05_JPRB,&
659 & 2.0156E-05_JPRB,1.7750E-05_JPRB,1.3017E-04_JPRB/) 
660KAO( :, 4,12, 3) = (/&
661 & 1.3111E-05_JPRB,1.9487E-05_JPRB,2.1558E-05_JPRB,2.2533E-05_JPRB,2.2665E-05_JPRB,2.2056E-05_JPRB,&
662 & 2.0628E-05_JPRB,1.8158E-05_JPRB,1.3659E-04_JPRB/) 
663KAO( :, 5,12, 3) = (/&
664 & 1.2895E-05_JPRB,1.9642E-05_JPRB,2.1889E-05_JPRB,2.3011E-05_JPRB,2.3210E-05_JPRB,2.2606E-05_JPRB,&
665 & 2.1150E-05_JPRB,1.8610E-05_JPRB,1.4251E-04_JPRB/) 
666KAO( :, 1,13, 3) = (/&
667 & 1.1500E-05_JPRB,1.6003E-05_JPRB,1.7357E-05_JPRB,1.7889E-05_JPRB,1.7884E-05_JPRB,1.7367E-05_JPRB,&
668 & 1.6254E-05_JPRB,1.4227E-05_JPRB,9.8757E-05_JPRB/) 
669KAO( :, 2,13, 3) = (/&
670 & 1.1286E-05_JPRB,1.6126E-05_JPRB,1.7594E-05_JPRB,1.8210E-05_JPRB,1.8252E-05_JPRB,1.7751E-05_JPRB,&
671 & 1.6632E-05_JPRB,1.4641E-05_JPRB,1.0488E-04_JPRB/) 
672KAO( :, 3,13, 3) = (/&
673 & 1.1079E-05_JPRB,1.6225E-05_JPRB,1.7843E-05_JPRB,1.8579E-05_JPRB,1.8672E-05_JPRB,1.8176E-05_JPRB,&
674 & 1.7024E-05_JPRB,1.4980E-05_JPRB,1.1036E-04_JPRB/) 
675KAO( :, 4,13, 3) = (/&
676 & 1.0876E-05_JPRB,1.6327E-05_JPRB,1.8099E-05_JPRB,1.8965E-05_JPRB,1.9122E-05_JPRB,1.8629E-05_JPRB,&
677 & 1.7445E-05_JPRB,1.5339E-05_JPRB,1.1580E-04_JPRB/) 
678KAO( :, 5,13, 3) = (/&
679 & 1.0678E-05_JPRB,1.6434E-05_JPRB,1.8360E-05_JPRB,1.9355E-05_JPRB,1.9573E-05_JPRB,1.9100E-05_JPRB,&
680 & 1.7895E-05_JPRB,1.5734E-05_JPRB,1.2071E-04_JPRB/) 
681KAO( :, 1, 1, 4) = (/&
682 & 1.0452E-04_JPRB,1.3483E-04_JPRB,1.4507E-04_JPRB,1.5035E-04_JPRB,1.5233E-04_JPRB,1.5098E-04_JPRB,&
683 & 1.4623E-04_JPRB,1.3688E-04_JPRB,1.1596E-04_JPRB/) 
684KAO( :, 2, 1, 4) = (/&
685 & 1.0431E-04_JPRB,1.3598E-04_JPRB,1.4693E-04_JPRB,1.5285E-04_JPRB,1.5505E-04_JPRB,1.5376E-04_JPRB,&
686 & 1.4899E-04_JPRB,1.4010E-04_JPRB,1.1898E-04_JPRB/) 
687KAO( :, 3, 1, 4) = (/&
688 & 1.0452E-04_JPRB,1.3748E-04_JPRB,1.4911E-04_JPRB,1.5568E-04_JPRB,1.5820E-04_JPRB,1.5701E-04_JPRB,&
689 & 1.5204E-04_JPRB,1.4309E-04_JPRB,1.2195E-04_JPRB/) 
690KAO( :, 4, 1, 4) = (/&
691 & 1.0446E-04_JPRB,1.3898E-04_JPRB,1.5142E-04_JPRB,1.5876E-04_JPRB,1.6160E-04_JPRB,1.6033E-04_JPRB,&
692 & 1.5519E-04_JPRB,1.4614E-04_JPRB,1.2504E-04_JPRB/) 
693KAO( :, 5, 1, 4) = (/&
694 & 1.0490E-04_JPRB,1.4072E-04_JPRB,1.5426E-04_JPRB,1.6221E-04_JPRB,1.6521E-04_JPRB,1.6398E-04_JPRB,&
695 & 1.5900E-04_JPRB,1.4986E-04_JPRB,1.2878E-04_JPRB/) 
696KAO( :, 1, 2, 4) = (/&
697 & 9.4204E-05_JPRB,1.2226E-04_JPRB,1.3172E-04_JPRB,1.3677E-04_JPRB,1.3845E-04_JPRB,1.3676E-04_JPRB,&
698 & 1.3184E-04_JPRB,1.2295E-04_JPRB,1.0190E-04_JPRB/) 
699KAO( :, 2, 2, 4) = (/&
700 & 9.4074E-05_JPRB,1.2351E-04_JPRB,1.3361E-04_JPRB,1.3908E-04_JPRB,1.4094E-04_JPRB,1.3921E-04_JPRB,&
701 & 1.3441E-04_JPRB,1.2595E-04_JPRB,1.0466E-04_JPRB/) 
702KAO( :, 3, 2, 4) = (/&
703 & 9.4344E-05_JPRB,1.2509E-04_JPRB,1.3579E-04_JPRB,1.4166E-04_JPRB,1.4376E-04_JPRB,1.4219E-04_JPRB,&
704 & 1.3731E-04_JPRB,1.2889E-04_JPRB,1.0736E-04_JPRB/) 
705KAO( :, 4, 2, 4) = (/&
706 & 9.4551E-05_JPRB,1.2662E-04_JPRB,1.3810E-04_JPRB,1.4452E-04_JPRB,1.4685E-04_JPRB,1.4532E-04_JPRB,&
707 & 1.4026E-04_JPRB,1.3156E-04_JPRB,1.1005E-04_JPRB/) 
708KAO( :, 5, 2, 4) = (/&
709 & 9.4911E-05_JPRB,1.2828E-04_JPRB,1.4068E-04_JPRB,1.4753E-04_JPRB,1.5017E-04_JPRB,1.4865E-04_JPRB,&
710 & 1.4353E-04_JPRB,1.3462E-04_JPRB,1.1332E-04_JPRB/) 
711KAO( :, 1, 3, 4) = (/&
712 & 8.4477E-05_JPRB,1.0977E-04_JPRB,1.1875E-04_JPRB,1.2346E-04_JPRB,1.2481E-04_JPRB,1.2312E-04_JPRB,&
713 & 1.1833E-04_JPRB,1.0957E-04_JPRB,8.9535E-05_JPRB/) 
714KAO( :, 2, 3, 4) = (/&
715 & 8.4379E-05_JPRB,1.1105E-04_JPRB,1.2059E-04_JPRB,1.2560E-04_JPRB,1.2700E-04_JPRB,1.2527E-04_JPRB,&
716 & 1.2063E-04_JPRB,1.1208E-04_JPRB,9.1925E-05_JPRB/) 
717KAO( :, 3, 3, 4) = (/&
718 & 8.4459E-05_JPRB,1.1263E-04_JPRB,1.2255E-04_JPRB,1.2789E-04_JPRB,1.2949E-04_JPRB,1.2788E-04_JPRB,&
719 & 1.2327E-04_JPRB,1.1489E-04_JPRB,9.4307E-05_JPRB/) 
720KAO( :, 4, 3, 4) = (/&
721 & 8.4957E-05_JPRB,1.1436E-04_JPRB,1.2477E-04_JPRB,1.3051E-04_JPRB,1.3225E-04_JPRB,1.3075E-04_JPRB,&
722 & 1.2605E-04_JPRB,1.1763E-04_JPRB,9.6664E-05_JPRB/) 
723KAO( :, 5, 3, 4) = (/&
724 & 8.5267E-05_JPRB,1.1603E-04_JPRB,1.2711E-04_JPRB,1.3323E-04_JPRB,1.3522E-04_JPRB,1.3376E-04_JPRB,&
725 & 1.2892E-04_JPRB,1.2027E-04_JPRB,9.9423E-05_JPRB/) 
726KAO( :, 1, 4, 4) = (/&
727 & 7.5106E-05_JPRB,9.8023E-05_JPRB,1.0634E-04_JPRB,1.1074E-04_JPRB,1.1207E-04_JPRB,1.1047E-04_JPRB,&
728 & 1.0566E-04_JPRB,9.7179E-05_JPRB,8.0970E-05_JPRB/) 
729KAO( :, 2, 4, 4) = (/&
730 & 7.5068E-05_JPRB,9.9316E-05_JPRB,1.0818E-04_JPRB,1.1273E-04_JPRB,1.1400E-04_JPRB,1.1240E-04_JPRB,&
731 & 1.0763E-04_JPRB,9.9160E-05_JPRB,8.2847E-05_JPRB/) 
732KAO( :, 3, 4, 4) = (/&
733 & 7.5176E-05_JPRB,1.0088E-04_JPRB,1.1012E-04_JPRB,1.1492E-04_JPRB,1.1630E-04_JPRB,1.1469E-04_JPRB,&
734 & 1.0990E-04_JPRB,1.0156E-04_JPRB,8.4919E-05_JPRB/) 
735KAO( :, 4, 4, 4) = (/&
736 & 7.5441E-05_JPRB,1.0260E-04_JPRB,1.1218E-04_JPRB,1.1722E-04_JPRB,1.1877E-04_JPRB,1.1722E-04_JPRB,&
737 & 1.1247E-04_JPRB,1.0418E-04_JPRB,8.7047E-05_JPRB/) 
738KAO( :, 5, 4, 4) = (/&
739 & 7.6234E-05_JPRB,1.0451E-04_JPRB,1.1445E-04_JPRB,1.1978E-04_JPRB,1.2144E-04_JPRB,1.1995E-04_JPRB,&
740 & 1.1523E-04_JPRB,1.0678E-04_JPRB,8.9379E-05_JPRB/) 
741KAO( :, 1, 5, 4) = (/&
742 & 6.6160E-05_JPRB,8.7240E-05_JPRB,9.4827E-05_JPRB,9.8971E-05_JPRB,1.0023E-04_JPRB,9.8598E-05_JPRB,&
743 & 9.3977E-05_JPRB,8.6015E-05_JPRB,7.7683E-05_JPRB/) 
744KAO( :, 2, 5, 4) = (/&
745 & 6.6183E-05_JPRB,8.8517E-05_JPRB,9.6624E-05_JPRB,1.0080E-04_JPRB,1.0196E-04_JPRB,1.0036E-04_JPRB,&
746 & 9.5737E-05_JPRB,8.7609E-05_JPRB,7.8892E-05_JPRB/) 
747KAO( :, 3, 5, 4) = (/&
748 & 6.6375E-05_JPRB,9.0052E-05_JPRB,9.8476E-05_JPRB,1.0284E-04_JPRB,1.0408E-04_JPRB,1.0241E-04_JPRB,&
749 & 9.7689E-05_JPRB,8.9585E-05_JPRB,8.0494E-05_JPRB/) 
750KAO( :, 4, 5, 4) = (/&
751 & 6.6706E-05_JPRB,9.1731E-05_JPRB,1.0049E-04_JPRB,1.0501E-04_JPRB,1.0639E-04_JPRB,1.0469E-04_JPRB,&
752 & 9.9852E-05_JPRB,9.1849E-05_JPRB,8.2317E-05_JPRB/) 
753KAO( :, 5, 5, 4) = (/&
754 & 6.7530E-05_JPRB,9.3541E-05_JPRB,1.0261E-04_JPRB,1.0728E-04_JPRB,1.0881E-04_JPRB,1.0721E-04_JPRB,&
755 & 1.0236E-04_JPRB,9.4247E-05_JPRB,8.4311E-05_JPRB/) 
756KAO( :, 1, 6, 4) = (/&
757 & 5.7820E-05_JPRB,7.7124E-05_JPRB,8.4195E-05_JPRB,8.7927E-05_JPRB,8.8972E-05_JPRB,8.7430E-05_JPRB,&
758 & 8.3132E-05_JPRB,7.5650E-05_JPRB,7.8327E-05_JPRB/) 
759KAO( :, 2, 6, 4) = (/&
760 & 5.7858E-05_JPRB,7.8413E-05_JPRB,8.5775E-05_JPRB,8.9605E-05_JPRB,9.0590E-05_JPRB,8.9122E-05_JPRB,&
761 & 8.4773E-05_JPRB,7.7051E-05_JPRB,7.8482E-05_JPRB/) 
762KAO( :, 3, 6, 4) = (/&
763 & 5.8124E-05_JPRB,7.9824E-05_JPRB,8.7576E-05_JPRB,9.1549E-05_JPRB,9.2483E-05_JPRB,9.0882E-05_JPRB,&
764 & 8.6480E-05_JPRB,7.8637E-05_JPRB,7.9105E-05_JPRB/) 
765KAO( :, 4, 6, 4) = (/&
766 & 5.8563E-05_JPRB,8.1362E-05_JPRB,8.9405E-05_JPRB,9.3593E-05_JPRB,9.4634E-05_JPRB,9.2868E-05_JPRB,&
767 & 8.8337E-05_JPRB,8.0467E-05_JPRB,8.0117E-05_JPRB/) 
768KAO( :, 5, 6, 4) = (/&
769 & 5.9163E-05_JPRB,8.2947E-05_JPRB,9.1328E-05_JPRB,9.5614E-05_JPRB,9.6868E-05_JPRB,9.5118E-05_JPRB,&
770 & 9.0461E-05_JPRB,8.2517E-05_JPRB,8.1395E-05_JPRB/) 
771KAO( :, 1, 7, 4) = (/&
772 & 5.0089E-05_JPRB,6.7496E-05_JPRB,7.4227E-05_JPRB,7.7520E-05_JPRB,7.8410E-05_JPRB,7.6863E-05_JPRB,&
773 & 7.2879E-05_JPRB,6.5963E-05_JPRB,8.6270E-05_JPRB/) 
774KAO( :, 2, 7, 4) = (/&
775 & 5.0200E-05_JPRB,6.8721E-05_JPRB,7.5605E-05_JPRB,7.9011E-05_JPRB,7.9876E-05_JPRB,7.8434E-05_JPRB,&
776 & 7.4469E-05_JPRB,6.7323E-05_JPRB,8.5543E-05_JPRB/) 
777KAO( :, 3, 7, 4) = (/&
778 & 5.0465E-05_JPRB,7.0073E-05_JPRB,7.7198E-05_JPRB,8.0725E-05_JPRB,8.1573E-05_JPRB,8.0081E-05_JPRB,&
779 & 7.6049E-05_JPRB,6.8699E-05_JPRB,8.4940E-05_JPRB/) 
780KAO( :, 4, 7, 4) = (/&
781 & 5.0935E-05_JPRB,7.1437E-05_JPRB,7.8942E-05_JPRB,8.2653E-05_JPRB,8.3546E-05_JPRB,8.1849E-05_JPRB,&
782 & 7.7644E-05_JPRB,7.0190E-05_JPRB,8.4597E-05_JPRB/) 
783KAO( :, 5, 7, 4) = (/&
784 & 5.1558E-05_JPRB,7.2909E-05_JPRB,8.0657E-05_JPRB,8.4558E-05_JPRB,8.5533E-05_JPRB,8.3860E-05_JPRB,&
785 & 7.9445E-05_JPRB,7.1873E-05_JPRB,8.4633E-05_JPRB/) 
786KAO( :, 1, 8, 4) = (/&
787 & 4.3241E-05_JPRB,5.8715E-05_JPRB,6.4907E-05_JPRB,6.7818E-05_JPRB,6.8520E-05_JPRB,6.7059E-05_JPRB,&
788 & 6.3436E-05_JPRB,5.7025E-05_JPRB,1.0556E-04_JPRB/) 
789KAO( :, 2, 8, 4) = (/&
790 & 4.3396E-05_JPRB,5.9829E-05_JPRB,6.6154E-05_JPRB,6.9172E-05_JPRB,6.9903E-05_JPRB,6.8506E-05_JPRB,&
791 & 6.4888E-05_JPRB,5.8346E-05_JPRB,1.0621E-04_JPRB/) 
792KAO( :, 3, 8, 4) = (/&
793 & 4.3671E-05_JPRB,6.1116E-05_JPRB,6.7537E-05_JPRB,7.0639E-05_JPRB,7.1418E-05_JPRB,7.0005E-05_JPRB,&
794 & 6.6322E-05_JPRB,5.9628E-05_JPRB,1.0623E-04_JPRB/) 
795KAO( :, 4, 8, 4) = (/&
796 & 4.4098E-05_JPRB,6.2393E-05_JPRB,6.9085E-05_JPRB,7.2351E-05_JPRB,7.3148E-05_JPRB,7.1679E-05_JPRB,&
797 & 6.7759E-05_JPRB,6.0926E-05_JPRB,1.0598E-04_JPRB/) 
798KAO( :, 5, 8, 4) = (/&
799 & 4.4692E-05_JPRB,6.3732E-05_JPRB,7.0698E-05_JPRB,7.4137E-05_JPRB,7.4984E-05_JPRB,7.3462E-05_JPRB,&
800 & 6.9302E-05_JPRB,6.2346E-05_JPRB,1.0567E-04_JPRB/) 
801KAO( :, 1, 9, 4) = (/&
802 & 3.7132E-05_JPRB,5.0817E-05_JPRB,5.6256E-05_JPRB,5.8754E-05_JPRB,5.9255E-05_JPRB,5.8002E-05_JPRB,&
803 & 5.4741E-05_JPRB,4.8907E-05_JPRB,1.5932E-04_JPRB/) 
804KAO( :, 2, 9, 4) = (/&
805 & 3.7275E-05_JPRB,5.1787E-05_JPRB,5.7392E-05_JPRB,6.0022E-05_JPRB,6.0595E-05_JPRB,5.9356E-05_JPRB,&
806 & 5.6080E-05_JPRB,5.0176E-05_JPRB,1.6074E-04_JPRB/) 
807KAO( :, 3, 9, 4) = (/&
808 & 3.7562E-05_JPRB,5.2932E-05_JPRB,5.8629E-05_JPRB,6.1314E-05_JPRB,6.1975E-05_JPRB,6.0718E-05_JPRB,&
809 & 5.7380E-05_JPRB,5.1383E-05_JPRB,1.6208E-04_JPRB/) 
810KAO( :, 4, 9, 4) = (/&
811 & 3.7959E-05_JPRB,5.4161E-05_JPRB,5.9989E-05_JPRB,6.2778E-05_JPRB,6.3464E-05_JPRB,6.2208E-05_JPRB,&
812 & 5.8730E-05_JPRB,5.2572E-05_JPRB,1.6367E-04_JPRB/) 
813KAO( :, 5, 9, 4) = (/&
814 & 3.8474E-05_JPRB,5.5413E-05_JPRB,6.1478E-05_JPRB,6.4374E-05_JPRB,6.5107E-05_JPRB,6.3821E-05_JPRB,&
815 & 6.0122E-05_JPRB,5.3780E-05_JPRB,1.6576E-04_JPRB/) 
816KAO( :, 1,10, 4) = (/&
817 & 3.1661E-05_JPRB,4.3721E-05_JPRB,4.8375E-05_JPRB,5.0533E-05_JPRB,5.0884E-05_JPRB,4.9757E-05_JPRB,&
818 & 4.6933E-05_JPRB,4.1760E-05_JPRB,3.3288E-04_JPRB/) 
819KAO( :, 2,10, 4) = (/&
820 & 3.1799E-05_JPRB,4.4567E-05_JPRB,4.9444E-05_JPRB,5.1711E-05_JPRB,5.2132E-05_JPRB,5.1037E-05_JPRB,&
821 & 4.8202E-05_JPRB,4.2932E-05_JPRB,3.3259E-04_JPRB/) 
822KAO( :, 3,10, 4) = (/&
823 & 3.2076E-05_JPRB,4.5598E-05_JPRB,5.0572E-05_JPRB,5.2901E-05_JPRB,5.3401E-05_JPRB,5.2274E-05_JPRB,&
824 & 4.9410E-05_JPRB,4.4046E-05_JPRB,3.3116E-04_JPRB/) 
825KAO( :, 4,10, 4) = (/&
826 & 3.2432E-05_JPRB,4.6745E-05_JPRB,5.1822E-05_JPRB,5.4161E-05_JPRB,5.4721E-05_JPRB,5.3605E-05_JPRB,&
827 & 5.0657E-05_JPRB,4.5130E-05_JPRB,3.2908E-04_JPRB/) 
828KAO( :, 5,10, 4) = (/&
829 & 3.2849E-05_JPRB,4.7929E-05_JPRB,5.3191E-05_JPRB,5.5555E-05_JPRB,5.6151E-05_JPRB,5.5034E-05_JPRB,&
830 & 5.1913E-05_JPRB,4.6196E-05_JPRB,3.2646E-04_JPRB/) 
831KAO( :, 1,11, 4) = (/&
832 & 2.6856E-05_JPRB,3.7683E-05_JPRB,4.1693E-05_JPRB,4.3606E-05_JPRB,4.3883E-05_JPRB,4.2891E-05_JPRB,&
833 & 4.0459E-05_JPRB,3.5912E-05_JPRB,4.0077E-04_JPRB/) 
834KAO( :, 2,11, 4) = (/&
835 & 2.7039E-05_JPRB,3.8497E-05_JPRB,4.2726E-05_JPRB,4.4727E-05_JPRB,4.5037E-05_JPRB,4.4055E-05_JPRB,&
836 & 4.1621E-05_JPRB,3.6978E-05_JPRB,3.9949E-04_JPRB/) 
837KAO( :, 3,11, 4) = (/&
838 & 2.7307E-05_JPRB,3.9484E-05_JPRB,4.3818E-05_JPRB,4.5808E-05_JPRB,4.6194E-05_JPRB,4.5211E-05_JPRB,&
839 & 4.2730E-05_JPRB,3.7986E-05_JPRB,3.9696E-04_JPRB/) 
840KAO( :, 4,11, 4) = (/&
841 & 2.7612E-05_JPRB,4.0551E-05_JPRB,4.5021E-05_JPRB,4.6980E-05_JPRB,4.7421E-05_JPRB,4.6420E-05_JPRB,&
842 & 4.3860E-05_JPRB,3.8943E-05_JPRB,3.9400E-04_JPRB/) 
843KAO( :, 5,11, 4) = (/&
844 & 2.7944E-05_JPRB,4.1639E-05_JPRB,4.6278E-05_JPRB,4.8247E-05_JPRB,4.8726E-05_JPRB,4.7717E-05_JPRB,&
845 & 4.5010E-05_JPRB,3.9912E-05_JPRB,3.9021E-04_JPRB/) 
846KAO( :, 1,12, 4) = (/&
847 & 2.2674E-05_JPRB,3.2256E-05_JPRB,3.5706E-05_JPRB,3.7375E-05_JPRB,3.7620E-05_JPRB,3.6748E-05_JPRB,&
848 & 3.4672E-05_JPRB,3.0753E-05_JPRB,3.9801E-04_JPRB/) 
849KAO( :, 2,12, 4) = (/&
850 & 2.2856E-05_JPRB,3.3035E-05_JPRB,3.6681E-05_JPRB,3.8389E-05_JPRB,3.8658E-05_JPRB,3.7799E-05_JPRB,&
851 & 3.5709E-05_JPRB,3.1711E-05_JPRB,3.9549E-04_JPRB/) 
852KAO( :, 3,12, 4) = (/&
853 & 2.3070E-05_JPRB,3.3949E-05_JPRB,3.7724E-05_JPRB,3.9400E-05_JPRB,3.9718E-05_JPRB,3.8860E-05_JPRB,&
854 & 3.6712E-05_JPRB,3.2588E-05_JPRB,3.9241E-04_JPRB/) 
855KAO( :, 4,12, 4) = (/&
856 & 2.3301E-05_JPRB,3.4905E-05_JPRB,3.8836E-05_JPRB,4.0484E-05_JPRB,4.0838E-05_JPRB,3.9966E-05_JPRB,&
857 & 3.7706E-05_JPRB,3.3447E-05_JPRB,3.8870E-04_JPRB/) 
858KAO( :, 5,12, 4) = (/&
859 & 2.3543E-05_JPRB,3.5840E-05_JPRB,3.9948E-05_JPRB,4.1657E-05_JPRB,4.2028E-05_JPRB,4.1130E-05_JPRB,&
860 & 3.8770E-05_JPRB,3.4320E-05_JPRB,3.8474E-04_JPRB/) 
861KAO( :, 1,13, 4) = (/&
862 & 1.9048E-05_JPRB,2.7433E-05_JPRB,3.0355E-05_JPRB,3.1781E-05_JPRB,3.2020E-05_JPRB,3.1297E-05_JPRB,&
863 & 2.9545E-05_JPRB,2.6213E-05_JPRB,3.3572E-04_JPRB/) 
864KAO( :, 2,13, 4) = (/&
865 & 1.9186E-05_JPRB,2.8151E-05_JPRB,3.1249E-05_JPRB,3.2687E-05_JPRB,3.2953E-05_JPRB,3.2236E-05_JPRB,&
866 & 3.0464E-05_JPRB,2.7042E-05_JPRB,3.3299E-04_JPRB/) 
867KAO( :, 3,13, 4) = (/&
868 & 1.9336E-05_JPRB,2.8946E-05_JPRB,3.2213E-05_JPRB,3.3632E-05_JPRB,3.3925E-05_JPRB,3.3202E-05_JPRB,&
869 & 3.1346E-05_JPRB,2.7832E-05_JPRB,3.2995E-04_JPRB/) 
870KAO( :, 4,13, 4) = (/&
871 & 1.9500E-05_JPRB,2.9752E-05_JPRB,3.3189E-05_JPRB,3.4641E-05_JPRB,3.4936E-05_JPRB,3.4186E-05_JPRB,&
872 & 3.2242E-05_JPRB,2.8586E-05_JPRB,3.2636E-04_JPRB/) 
873KAO( :, 5,13, 4) = (/&
874 & 1.9647E-05_JPRB,3.0517E-05_JPRB,3.4157E-05_JPRB,3.5690E-05_JPRB,3.6009E-05_JPRB,3.5240E-05_JPRB,&
875 & 3.3224E-05_JPRB,2.9383E-05_JPRB,3.2302E-04_JPRB/) 
876KAO( :, 1, 1, 5) = (/&
877 & 1.5710E-04_JPRB,2.0320E-04_JPRB,2.2809E-04_JPRB,2.4127E-04_JPRB,2.4664E-04_JPRB,2.4637E-04_JPRB,&
878 & 2.3954E-04_JPRB,2.2558E-04_JPRB,1.9226E-04_JPRB/) 
879KAO( :, 2, 1, 5) = (/&
880 & 1.5763E-04_JPRB,2.0602E-04_JPRB,2.3252E-04_JPRB,2.4654E-04_JPRB,2.5266E-04_JPRB,2.5275E-04_JPRB,&
881 & 2.4636E-04_JPRB,2.3254E-04_JPRB,1.9836E-04_JPRB/) 
882KAO( :, 3, 1, 5) = (/&
883 & 1.5885E-04_JPRB,2.0936E-04_JPRB,2.3726E-04_JPRB,2.5211E-04_JPRB,2.5917E-04_JPRB,2.5987E-04_JPRB,&
884 & 2.5423E-04_JPRB,2.4110E-04_JPRB,2.0597E-04_JPRB/) 
885KAO( :, 4, 1, 5) = (/&
886 & 1.6010E-04_JPRB,2.1292E-04_JPRB,2.4195E-04_JPRB,2.5773E-04_JPRB,2.6599E-04_JPRB,2.6801E-04_JPRB,&
887 & 2.6343E-04_JPRB,2.5079E-04_JPRB,2.1448E-04_JPRB/) 
888KAO( :, 5, 1, 5) = (/&
889 & 1.6183E-04_JPRB,2.1689E-04_JPRB,2.4710E-04_JPRB,2.6390E-04_JPRB,2.7349E-04_JPRB,2.7678E-04_JPRB,&
890 & 2.7286E-04_JPRB,2.6055E-04_JPRB,2.2334E-04_JPRB/) 
891KAO( :, 1, 2, 5) = (/&
892 & 1.4264E-04_JPRB,1.8747E-04_JPRB,2.0916E-04_JPRB,2.2048E-04_JPRB,2.2542E-04_JPRB,2.2467E-04_JPRB,&
893 & 2.1833E-04_JPRB,2.0428E-04_JPRB,1.7002E-04_JPRB/) 
894KAO( :, 2, 2, 5) = (/&
895 & 1.4357E-04_JPRB,1.9029E-04_JPRB,2.1342E-04_JPRB,2.2542E-04_JPRB,2.3082E-04_JPRB,2.3044E-04_JPRB,&
896 & 2.2413E-04_JPRB,2.1022E-04_JPRB,1.7510E-04_JPRB/) 
897KAO( :, 3, 2, 5) = (/&
898 & 1.4512E-04_JPRB,1.9354E-04_JPRB,2.1804E-04_JPRB,2.3071E-04_JPRB,2.3662E-04_JPRB,2.3677E-04_JPRB,&
899 & 2.3090E-04_JPRB,2.1760E-04_JPRB,1.8164E-04_JPRB/) 
900KAO( :, 4, 2, 5) = (/&
901 & 1.4675E-04_JPRB,1.9716E-04_JPRB,2.2262E-04_JPRB,2.3622E-04_JPRB,2.4303E-04_JPRB,2.4400E-04_JPRB,&
902 & 2.3876E-04_JPRB,2.2602E-04_JPRB,1.8905E-04_JPRB/) 
903KAO( :, 5, 2, 5) = (/&
904 & 1.4825E-04_JPRB,2.0084E-04_JPRB,2.2744E-04_JPRB,2.4214E-04_JPRB,2.4980E-04_JPRB,2.5170E-04_JPRB,&
905 & 2.4697E-04_JPRB,2.3468E-04_JPRB,1.9668E-04_JPRB/) 
906KAO( :, 1, 3, 5) = (/&
907 & 1.2913E-04_JPRB,1.7105E-04_JPRB,1.8962E-04_JPRB,1.9927E-04_JPRB,2.0344E-04_JPRB,2.0263E-04_JPRB,&
908 & 1.9648E-04_JPRB,1.8374E-04_JPRB,1.5154E-04_JPRB/) 
909KAO( :, 2, 3, 5) = (/&
910 & 1.3034E-04_JPRB,1.7385E-04_JPRB,1.9352E-04_JPRB,2.0379E-04_JPRB,2.0816E-04_JPRB,2.0767E-04_JPRB,&
911 & 2.0141E-04_JPRB,1.8880E-04_JPRB,1.5543E-04_JPRB/) 
912KAO( :, 3, 3, 5) = (/&
913 & 1.3189E-04_JPRB,1.7683E-04_JPRB,1.9785E-04_JPRB,2.0858E-04_JPRB,2.1306E-04_JPRB,2.1289E-04_JPRB,&
914 & 2.0705E-04_JPRB,1.9450E-04_JPRB,1.6042E-04_JPRB/) 
915KAO( :, 4, 3, 5) = (/&
916 & 1.3375E-04_JPRB,1.8038E-04_JPRB,2.0233E-04_JPRB,2.1375E-04_JPRB,2.1890E-04_JPRB,2.1897E-04_JPRB,&
917 & 2.1362E-04_JPRB,2.0111E-04_JPRB,1.6638E-04_JPRB/) 
918KAO( :, 5, 3, 5) = (/&
919 & 1.3531E-04_JPRB,1.8393E-04_JPRB,2.0677E-04_JPRB,2.1903E-04_JPRB,2.2516E-04_JPRB,2.2557E-04_JPRB,&
920 & 2.2073E-04_JPRB,2.0849E-04_JPRB,1.7278E-04_JPRB/) 
921KAO( :, 1, 4, 5) = (/&
922 & 1.1675E-04_JPRB,1.5471E-04_JPRB,1.7086E-04_JPRB,1.7907E-04_JPRB,1.8234E-04_JPRB,1.8104E-04_JPRB,&
923 & 1.7606E-04_JPRB,1.6488E-04_JPRB,1.3686E-04_JPRB/) 
924KAO( :, 2, 4, 5) = (/&
925 & 1.1811E-04_JPRB,1.5738E-04_JPRB,1.7430E-04_JPRB,1.8299E-04_JPRB,1.8662E-04_JPRB,1.8551E-04_JPRB,&
926 & 1.8028E-04_JPRB,1.6914E-04_JPRB,1.4021E-04_JPRB/) 
927KAO( :, 3, 4, 5) = (/&
928 & 1.1971E-04_JPRB,1.6033E-04_JPRB,1.7826E-04_JPRB,1.8706E-04_JPRB,1.9073E-04_JPRB,1.9003E-04_JPRB,&
929 & 1.8491E-04_JPRB,1.7381E-04_JPRB,1.4440E-04_JPRB/) 
930KAO( :, 4, 4, 5) = (/&
931 & 1.2145E-04_JPRB,1.6360E-04_JPRB,1.8232E-04_JPRB,1.9160E-04_JPRB,1.9546E-04_JPRB,1.9520E-04_JPRB,&
932 & 1.9032E-04_JPRB,1.7913E-04_JPRB,1.4919E-04_JPRB/) 
933KAO( :, 5, 4, 5) = (/&
934 & 1.2345E-04_JPRB,1.6734E-04_JPRB,1.8679E-04_JPRB,1.9667E-04_JPRB,2.0102E-04_JPRB,2.0119E-04_JPRB,&
935 & 1.9631E-04_JPRB,1.8511E-04_JPRB,1.5453E-04_JPRB/) 
936KAO( :, 1, 5, 5) = (/&
937 & 1.0534E-04_JPRB,1.3892E-04_JPRB,1.5318E-04_JPRB,1.6013E-04_JPRB,1.6249E-04_JPRB,1.6140E-04_JPRB,&
938 & 1.5677E-04_JPRB,1.4673E-04_JPRB,1.2734E-04_JPRB/) 
939KAO( :, 2, 5, 5) = (/&
940 & 1.0682E-04_JPRB,1.4149E-04_JPRB,1.5615E-04_JPRB,1.6351E-04_JPRB,1.6643E-04_JPRB,1.6536E-04_JPRB,&
941 & 1.6060E-04_JPRB,1.5077E-04_JPRB,1.3032E-04_JPRB/) 
942KAO( :, 3, 5, 5) = (/&
943 & 1.0832E-04_JPRB,1.4437E-04_JPRB,1.5968E-04_JPRB,1.6719E-04_JPRB,1.7007E-04_JPRB,1.6925E-04_JPRB,&
944 & 1.6475E-04_JPRB,1.5487E-04_JPRB,1.3383E-04_JPRB/) 
945
946IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',1,ZHOOK_HANDLE)
947END SUBROUTINE PART3
948
949
950SUBROUTINE PART4
951
952REAL(KIND=JPRB) :: ZHOOK_HANDLE
953IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',0,ZHOOK_HANDLE)
954
955
956KAO( :, 4, 5, 5) = (/&
957 & 1.0998E-04_JPRB,1.4759E-04_JPRB,1.6348E-04_JPRB,1.7115E-04_JPRB,1.7411E-04_JPRB,1.7355E-04_JPRB,&
958 & 1.6947E-04_JPRB,1.5945E-04_JPRB,1.3787E-04_JPRB/) 
959KAO( :, 5, 5, 5) = (/&
960 & 1.1196E-04_JPRB,1.5129E-04_JPRB,1.6770E-04_JPRB,1.7586E-04_JPRB,1.7902E-04_JPRB,1.7859E-04_JPRB,&
961 & 1.7456E-04_JPRB,1.6452E-04_JPRB,1.4233E-04_JPRB/) 
962KAO( :, 1, 6, 5) = (/&
963 & 9.4514E-05_JPRB,1.2412E-04_JPRB,1.3657E-04_JPRB,1.4247E-04_JPRB,1.4441E-04_JPRB,1.4315E-04_JPRB,&
964 & 1.3838E-04_JPRB,1.2929E-04_JPRB,1.2327E-04_JPRB/) 
965KAO( :, 2, 6, 5) = (/&
966 & 9.5941E-05_JPRB,1.2645E-04_JPRB,1.3931E-04_JPRB,1.4558E-04_JPRB,1.4789E-04_JPRB,1.4670E-04_JPRB,&
967 & 1.4200E-04_JPRB,1.3303E-04_JPRB,1.2601E-04_JPRB/) 
968KAO( :, 3, 6, 5) = (/&
969 & 9.7365E-05_JPRB,1.2920E-04_JPRB,1.4235E-04_JPRB,1.4876E-04_JPRB,1.5129E-04_JPRB,1.5035E-04_JPRB,&
970 & 1.4574E-04_JPRB,1.3687E-04_JPRB,1.2924E-04_JPRB/) 
971KAO( :, 4, 6, 5) = (/&
972 & 9.8894E-05_JPRB,1.3238E-04_JPRB,1.4586E-04_JPRB,1.5224E-04_JPRB,1.5484E-04_JPRB,1.5423E-04_JPRB,&
973 & 1.4989E-04_JPRB,1.4089E-04_JPRB,1.3292E-04_JPRB/) 
974KAO( :, 5, 6, 5) = (/&
975 & 1.0059E-04_JPRB,1.3577E-04_JPRB,1.4967E-04_JPRB,1.5644E-04_JPRB,1.5902E-04_JPRB,1.5844E-04_JPRB,&
976 & 1.5428E-04_JPRB,1.4522E-04_JPRB,1.3684E-04_JPRB/) 
977KAO( :, 1, 7, 5) = (/&
978 & 8.3817E-05_JPRB,1.1024E-04_JPRB,1.2069E-04_JPRB,1.2606E-04_JPRB,1.2762E-04_JPRB,1.2601E-04_JPRB,&
979 & 1.2142E-04_JPRB,1.1275E-04_JPRB,1.2580E-04_JPRB/) 
980KAO( :, 2, 7, 5) = (/&
981 & 8.5049E-05_JPRB,1.1240E-04_JPRB,1.2345E-04_JPRB,1.2908E-04_JPRB,1.3088E-04_JPRB,1.2946E-04_JPRB,&
982 & 1.2489E-04_JPRB,1.1643E-04_JPRB,1.2769E-04_JPRB/) 
983KAO( :, 3, 7, 5) = (/&
984 & 8.6443E-05_JPRB,1.1489E-04_JPRB,1.2631E-04_JPRB,1.3210E-04_JPRB,1.3408E-04_JPRB,1.3284E-04_JPRB,&
985 & 1.2822E-04_JPRB,1.1996E-04_JPRB,1.3009E-04_JPRB/) 
986KAO( :, 4, 7, 5) = (/&
987 & 8.7868E-05_JPRB,1.1787E-04_JPRB,1.2952E-04_JPRB,1.3521E-04_JPRB,1.3734E-04_JPRB,1.3637E-04_JPRB,&
988 & 1.3189E-04_JPRB,1.2366E-04_JPRB,1.3307E-04_JPRB/) 
989KAO( :, 5, 7, 5) = (/&
990 & 8.9520E-05_JPRB,1.2113E-04_JPRB,1.3311E-04_JPRB,1.3890E-04_JPRB,1.4111E-04_JPRB,1.4019E-04_JPRB,&
991 & 1.3574E-04_JPRB,1.2746E-04_JPRB,1.3629E-04_JPRB/) 
992KAO( :, 1, 8, 5) = (/&
993 & 7.3739E-05_JPRB,9.7315E-05_JPRB,1.0630E-04_JPRB,1.1091E-04_JPRB,1.1210E-04_JPRB,1.1034E-04_JPRB,&
994 & 1.0576E-04_JPRB,9.7435E-05_JPRB,1.5219E-04_JPRB/) 
995KAO( :, 2, 8, 5) = (/&
996 & 7.4739E-05_JPRB,9.9339E-05_JPRB,1.0888E-04_JPRB,1.1385E-04_JPRB,1.1515E-04_JPRB,1.1361E-04_JPRB,&
997 & 1.0914E-04_JPRB,1.0091E-04_JPRB,1.5078E-04_JPRB/) 
998KAO( :, 3, 8, 5) = (/&
999 & 7.5979E-05_JPRB,1.0158E-04_JPRB,1.1168E-04_JPRB,1.1676E-04_JPRB,1.1825E-04_JPRB,1.1684E-04_JPRB,&
1000 & 1.1240E-04_JPRB,1.0417E-04_JPRB,1.5044E-04_JPRB/) 
1001KAO( :, 4, 8, 5) = (/&
1002 & 7.7389E-05_JPRB,1.0425E-04_JPRB,1.1460E-04_JPRB,1.1977E-04_JPRB,1.2131E-04_JPRB,1.2000E-04_JPRB,&
1003 & 1.1564E-04_JPRB,1.0754E-04_JPRB,1.5083E-04_JPRB/) 
1004KAO( :, 5, 8, 5) = (/&
1005 & 7.8988E-05_JPRB,1.0719E-04_JPRB,1.1787E-04_JPRB,1.2308E-04_JPRB,1.2465E-04_JPRB,1.2345E-04_JPRB,&
1006 & 1.1918E-04_JPRB,1.1099E-04_JPRB,1.5186E-04_JPRB/) 
1007KAO( :, 1, 9, 5) = (/&
1008 & 6.4327E-05_JPRB,8.5194E-05_JPRB,9.3124E-05_JPRB,9.6906E-05_JPRB,9.7902E-05_JPRB,9.6087E-05_JPRB,&
1009 & 9.1486E-05_JPRB,8.3530E-05_JPRB,3.0559E-04_JPRB/) 
1010KAO( :, 2, 9, 5) = (/&
1011 & 6.5169E-05_JPRB,8.7114E-05_JPRB,9.5498E-05_JPRB,9.9699E-05_JPRB,1.0078E-04_JPRB,9.9075E-05_JPRB,&
1012 & 9.4585E-05_JPRB,8.6649E-05_JPRB,3.0376E-04_JPRB/) 
1013KAO( :, 3, 9, 5) = (/&
1014 & 6.6228E-05_JPRB,8.9174E-05_JPRB,9.8080E-05_JPRB,1.0257E-04_JPRB,1.0373E-04_JPRB,1.0212E-04_JPRB,&
1015 & 9.7761E-05_JPRB,8.9715E-05_JPRB,3.0205E-04_JPRB/) 
1016KAO( :, 4, 9, 5) = (/&
1017 & 6.7560E-05_JPRB,9.1493E-05_JPRB,1.0085E-04_JPRB,1.0546E-04_JPRB,1.0670E-04_JPRB,1.0511E-04_JPRB,&
1018 & 1.0078E-04_JPRB,9.2773E-05_JPRB,2.9925E-04_JPRB/) 
1019KAO( :, 5, 9, 5) = (/&
1020 & 6.9090E-05_JPRB,9.4108E-05_JPRB,1.0377E-04_JPRB,1.0852E-04_JPRB,1.0981E-04_JPRB,1.0822E-04_JPRB,&
1021 & 1.0396E-04_JPRB,9.5948E-05_JPRB,2.9560E-04_JPRB/) 
1022KAO( :, 1,10, 5) = (/&
1023 & 5.5732E-05_JPRB,7.4195E-05_JPRB,8.1092E-05_JPRB,8.4263E-05_JPRB,8.5004E-05_JPRB,8.3260E-05_JPRB,&
1024 & 7.8896E-05_JPRB,7.1326E-05_JPRB,7.3141E-04_JPRB/) 
1025KAO( :, 2,10, 5) = (/&
1026 & 5.6464E-05_JPRB,7.5996E-05_JPRB,8.3306E-05_JPRB,8.6877E-05_JPRB,8.7776E-05_JPRB,8.6058E-05_JPRB,&
1027 & 8.1636E-05_JPRB,7.4082E-05_JPRB,7.1679E-04_JPRB/) 
1028KAO( :, 3,10, 5) = (/&
1029 & 5.7403E-05_JPRB,7.7891E-05_JPRB,8.5666E-05_JPRB,8.9585E-05_JPRB,9.0592E-05_JPRB,8.8875E-05_JPRB,&
1030 & 8.4523E-05_JPRB,7.6897E-05_JPRB,7.0421E-04_JPRB/) 
1031KAO( :, 4,10, 5) = (/&
1032 & 5.8620E-05_JPRB,7.9933E-05_JPRB,8.8213E-05_JPRB,9.2386E-05_JPRB,9.3433E-05_JPRB,9.1667E-05_JPRB,&
1033 & 8.7388E-05_JPRB,7.9742E-05_JPRB,6.9385E-04_JPRB/) 
1034KAO( :, 5,10, 5) = (/&
1035 & 6.0067E-05_JPRB,8.2256E-05_JPRB,9.0893E-05_JPRB,9.5273E-05_JPRB,9.6366E-05_JPRB,9.4596E-05_JPRB,&
1036 & 9.0298E-05_JPRB,8.2632E-05_JPRB,6.8465E-04_JPRB/) 
1037KAO( :, 1,11, 5) = (/&
1038 & 4.8186E-05_JPRB,6.4983E-05_JPRB,7.1108E-05_JPRB,7.3858E-05_JPRB,7.4401E-05_JPRB,7.2817E-05_JPRB,&
1039 & 6.8716E-05_JPRB,6.1721E-05_JPRB,9.3137E-04_JPRB/) 
1040KAO( :, 2,11, 5) = (/&
1041 & 4.8927E-05_JPRB,6.6681E-05_JPRB,7.3165E-05_JPRB,7.6242E-05_JPRB,7.7034E-05_JPRB,7.5453E-05_JPRB,&
1042 & 7.1255E-05_JPRB,6.4142E-05_JPRB,9.0283E-04_JPRB/) 
1043KAO( :, 3,11, 5) = (/&
1044 & 4.9906E-05_JPRB,6.8442E-05_JPRB,7.5379E-05_JPRB,7.8833E-05_JPRB,7.9706E-05_JPRB,7.8052E-05_JPRB,&
1045 & 7.3833E-05_JPRB,6.6698E-05_JPRB,8.7896E-04_JPRB/) 
1046KAO( :, 4,11, 5) = (/&
1047 & 5.1140E-05_JPRB,7.0403E-05_JPRB,7.7738E-05_JPRB,8.1490E-05_JPRB,8.2392E-05_JPRB,8.0715E-05_JPRB,&
1048 & 7.6507E-05_JPRB,6.9333E-05_JPRB,8.5877E-04_JPRB/) 
1049KAO( :, 5,11, 5) = (/&
1050 & 5.2547E-05_JPRB,7.2595E-05_JPRB,8.0310E-05_JPRB,8.4272E-05_JPRB,8.5190E-05_JPRB,8.3479E-05_JPRB,&
1051 & 7.9204E-05_JPRB,7.1956E-05_JPRB,8.4129E-04_JPRB/) 
1052KAO( :, 1,12, 5) = (/&
1053 & 4.1357E-05_JPRB,5.6591E-05_JPRB,6.2004E-05_JPRB,6.4335E-05_JPRB,6.4718E-05_JPRB,6.3255E-05_JPRB,&
1054 & 5.9536E-05_JPRB,5.3170E-05_JPRB,9.4628E-04_JPRB/) 
1055KAO( :, 2,12, 5) = (/&
1056 & 4.2117E-05_JPRB,5.8142E-05_JPRB,6.3912E-05_JPRB,6.6563E-05_JPRB,6.7175E-05_JPRB,6.5721E-05_JPRB,&
1057 & 6.1864E-05_JPRB,5.5283E-05_JPRB,9.1448E-04_JPRB/) 
1058KAO( :, 3,12, 5) = (/&
1059 & 4.3123E-05_JPRB,5.9831E-05_JPRB,6.5955E-05_JPRB,6.8956E-05_JPRB,6.9677E-05_JPRB,6.8113E-05_JPRB,&
1060 & 6.4202E-05_JPRB,5.7597E-05_JPRB,8.8738E-04_JPRB/) 
1061KAO( :, 4,12, 5) = (/&
1062 & 4.4308E-05_JPRB,6.1719E-05_JPRB,6.8165E-05_JPRB,7.1448E-05_JPRB,7.2209E-05_JPRB,7.0617E-05_JPRB,&
1063 & 6.6651E-05_JPRB,5.9974E-05_JPRB,8.6370E-04_JPRB/) 
1064KAO( :, 5,12, 5) = (/&
1065 & 4.5586E-05_JPRB,6.3825E-05_JPRB,7.0651E-05_JPRB,7.4074E-05_JPRB,7.4824E-05_JPRB,7.3199E-05_JPRB,&
1066 & 6.9129E-05_JPRB,6.2368E-05_JPRB,8.4394E-04_JPRB/) 
1067KAO( :, 1,13, 5) = (/&
1068 & 3.5199E-05_JPRB,4.8904E-05_JPRB,5.3685E-05_JPRB,5.5708E-05_JPRB,5.5958E-05_JPRB,5.4602E-05_JPRB,&
1069 & 5.1289E-05_JPRB,4.5544E-05_JPRB,7.9844E-04_JPRB/) 
1070KAO( :, 2,13, 5) = (/&
1071 & 3.5968E-05_JPRB,5.0359E-05_JPRB,5.5441E-05_JPRB,5.7776E-05_JPRB,5.8210E-05_JPRB,5.6833E-05_JPRB,&
1072 & 5.3406E-05_JPRB,4.7437E-05_JPRB,7.7225E-04_JPRB/) 
1073KAO( :, 3,13, 5) = (/&
1074 & 3.6919E-05_JPRB,5.1978E-05_JPRB,5.7339E-05_JPRB,5.9942E-05_JPRB,6.0487E-05_JPRB,5.9061E-05_JPRB,&
1075 & 5.5548E-05_JPRB,4.9491E-05_JPRB,7.4964E-04_JPRB/) 
1076KAO( :, 4,13, 5) = (/&
1077 & 3.7983E-05_JPRB,5.3790E-05_JPRB,5.9444E-05_JPRB,6.2256E-05_JPRB,6.2844E-05_JPRB,6.1377E-05_JPRB,&
1078 & 5.7755E-05_JPRB,5.1611E-05_JPRB,7.3016E-04_JPRB/) 
1079KAO( :, 5,13, 5) = (/&
1080 & 3.9071E-05_JPRB,5.5803E-05_JPRB,6.1798E-05_JPRB,6.4723E-05_JPRB,6.5302E-05_JPRB,6.3732E-05_JPRB,&
1081 & 5.9993E-05_JPRB,5.3748E-05_JPRB,7.1404E-04_JPRB/) 
1082KAO( :, 1, 1, 6) = (/&
1083 & 2.5660E-04_JPRB,3.1807E-04_JPRB,3.6094E-04_JPRB,3.8920E-04_JPRB,4.0736E-04_JPRB,4.1545E-04_JPRB,&
1084 & 4.1386E-04_JPRB,4.0633E-04_JPRB,3.6193E-04_JPRB/) 
1085KAO( :, 2, 1, 6) = (/&
1086 & 2.5865E-04_JPRB,3.2319E-04_JPRB,3.6764E-04_JPRB,3.9762E-04_JPRB,4.1800E-04_JPRB,4.2858E-04_JPRB,&
1087 & 4.2847E-04_JPRB,4.2235E-04_JPRB,3.7675E-04_JPRB/) 
1088KAO( :, 3, 1, 6) = (/&
1089 & 2.6137E-04_JPRB,3.2915E-04_JPRB,3.7535E-04_JPRB,4.0750E-04_JPRB,4.2970E-04_JPRB,4.4147E-04_JPRB,&
1090 & 4.4293E-04_JPRB,4.3843E-04_JPRB,3.9233E-04_JPRB/) 
1091KAO( :, 4, 1, 6) = (/&
1092 & 2.6360E-04_JPRB,3.3488E-04_JPRB,3.8404E-04_JPRB,4.1788E-04_JPRB,4.4114E-04_JPRB,4.5427E-04_JPRB,&
1093 & 4.5738E-04_JPRB,4.5544E-04_JPRB,4.1003E-04_JPRB/) 
1094KAO( :, 5, 1, 6) = (/&
1095 & 2.6660E-04_JPRB,3.4173E-04_JPRB,3.9350E-04_JPRB,4.2919E-04_JPRB,4.5400E-04_JPRB,4.6894E-04_JPRB,&
1096 & 4.7415E-04_JPRB,4.7523E-04_JPRB,4.3058E-04_JPRB/) 
1097KAO( :, 1, 2, 6) = (/&
1098 & 2.3631E-04_JPRB,2.9631E-04_JPRB,3.3525E-04_JPRB,3.5919E-04_JPRB,3.7267E-04_JPRB,3.7835E-04_JPRB,&
1099 & 3.7529E-04_JPRB,3.6555E-04_JPRB,3.2111E-04_JPRB/) 
1100KAO( :, 2, 2, 6) = (/&
1101 & 2.3829E-04_JPRB,3.0128E-04_JPRB,3.4159E-04_JPRB,3.6758E-04_JPRB,3.8290E-04_JPRB,3.9019E-04_JPRB,&
1102 & 3.8891E-04_JPRB,3.7964E-04_JPRB,3.3378E-04_JPRB/) 
1103KAO( :, 3, 2, 6) = (/&
1104 & 2.4092E-04_JPRB,3.0698E-04_JPRB,3.4893E-04_JPRB,3.7703E-04_JPRB,3.9429E-04_JPRB,4.0240E-04_JPRB,&
1105 & 4.0189E-04_JPRB,3.9363E-04_JPRB,3.4730E-04_JPRB/) 
1106KAO( :, 4, 2, 6) = (/&
1107 & 2.4353E-04_JPRB,3.1280E-04_JPRB,3.5757E-04_JPRB,3.8697E-04_JPRB,4.0550E-04_JPRB,4.1447E-04_JPRB,&
1108 & 4.1496E-04_JPRB,4.0890E-04_JPRB,3.6318E-04_JPRB/) 
1109KAO( :, 5, 2, 6) = (/&
1110 & 2.4646E-04_JPRB,3.1930E-04_JPRB,3.6666E-04_JPRB,3.9774E-04_JPRB,4.1741E-04_JPRB,4.2801E-04_JPRB,&
1111 & 4.2988E-04_JPRB,4.2637E-04_JPRB,3.8102E-04_JPRB/) 
1112KAO( :, 1, 3, 6) = (/&
1113 & 2.1702E-04_JPRB,2.7392E-04_JPRB,3.0713E-04_JPRB,3.2661E-04_JPRB,3.3701E-04_JPRB,3.4012E-04_JPRB,&
1114 & 3.3574E-04_JPRB,3.2367E-04_JPRB,2.7953E-04_JPRB/) 
1115KAO( :, 2, 3, 6) = (/&
1116 & 2.1882E-04_JPRB,2.7874E-04_JPRB,3.1368E-04_JPRB,3.3483E-04_JPRB,3.4655E-04_JPRB,3.5089E-04_JPRB,&
1117 & 3.4836E-04_JPRB,3.3662E-04_JPRB,2.9075E-04_JPRB/) 
1118KAO( :, 3, 3, 6) = (/&
1119 & 2.2093E-04_JPRB,2.8379E-04_JPRB,3.2031E-04_JPRB,3.4355E-04_JPRB,3.5690E-04_JPRB,3.6196E-04_JPRB,&
1120 & 3.6029E-04_JPRB,3.4924E-04_JPRB,3.0255E-04_JPRB/) 
1121KAO( :, 4, 3, 6) = (/&
1122 & 2.2391E-04_JPRB,2.8964E-04_JPRB,3.2857E-04_JPRB,3.5322E-04_JPRB,3.6741E-04_JPRB,3.7364E-04_JPRB,&
1123 & 3.7227E-04_JPRB,3.6287E-04_JPRB,3.1610E-04_JPRB/) 
1124KAO( :, 5, 3, 6) = (/&
1125 & 2.2678E-04_JPRB,2.9569E-04_JPRB,3.3712E-04_JPRB,3.6314E-04_JPRB,3.7839E-04_JPRB,3.8589E-04_JPRB,&
1126 & 3.8538E-04_JPRB,3.7808E-04_JPRB,3.3103E-04_JPRB/) 
1127KAO( :, 1, 4, 6) = (/&
1128 & 1.9893E-04_JPRB,2.5184E-04_JPRB,2.7904E-04_JPRB,2.9424E-04_JPRB,3.0215E-04_JPRB,3.0353E-04_JPRB,&
1129 & 2.9750E-04_JPRB,2.8367E-04_JPRB,2.4378E-04_JPRB/) 
1130KAO( :, 2, 4, 6) = (/&
1131 & 2.0039E-04_JPRB,2.5636E-04_JPRB,2.8551E-04_JPRB,3.0218E-04_JPRB,3.1138E-04_JPRB,3.1364E-04_JPRB,&
1132 & 3.0933E-04_JPRB,2.9596E-04_JPRB,2.5360E-04_JPRB/) 
1133KAO( :, 3, 4, 6) = (/&
1134 & 2.0244E-04_JPRB,2.6111E-04_JPRB,2.9172E-04_JPRB,3.1073E-04_JPRB,3.2138E-04_JPRB,3.2408E-04_JPRB,&
1135 & 3.2030E-04_JPRB,3.0766E-04_JPRB,2.6380E-04_JPRB/) 
1136KAO( :, 4, 4, 6) = (/&
1137 & 2.0501E-04_JPRB,2.6640E-04_JPRB,2.9889E-04_JPRB,3.1956E-04_JPRB,3.3116E-04_JPRB,3.3435E-04_JPRB,&
1138 & 3.3120E-04_JPRB,3.1983E-04_JPRB,2.7551E-04_JPRB/) 
1139KAO( :, 5, 4, 6) = (/&
1140 & 2.0836E-04_JPRB,2.7264E-04_JPRB,3.0721E-04_JPRB,3.2917E-04_JPRB,3.4139E-04_JPRB,3.4585E-04_JPRB,&
1141 & 3.4342E-04_JPRB,3.3321E-04_JPRB,2.8833E-04_JPRB/) 
1142KAO( :, 1, 5, 6) = (/&
1143 & 1.8177E-04_JPRB,2.3005E-04_JPRB,2.5216E-04_JPRB,2.6400E-04_JPRB,2.6980E-04_JPRB,2.6977E-04_JPRB,&
1144 & 2.6270E-04_JPRB,2.4807E-04_JPRB,2.1566E-04_JPRB/) 
1145KAO( :, 2, 5, 6) = (/&
1146 & 1.8288E-04_JPRB,2.3456E-04_JPRB,2.5850E-04_JPRB,2.7178E-04_JPRB,2.7838E-04_JPRB,2.7918E-04_JPRB,&
1147 & 2.7326E-04_JPRB,2.5893E-04_JPRB,2.2464E-04_JPRB/) 
1148KAO( :, 3, 5, 6) = (/&
1149 & 1.8495E-04_JPRB,2.3899E-04_JPRB,2.6446E-04_JPRB,2.7972E-04_JPRB,2.8778E-04_JPRB,2.8887E-04_JPRB,&
1150 & 2.8352E-04_JPRB,2.6965E-04_JPRB,2.3371E-04_JPRB/) 
1151KAO( :, 4, 5, 6) = (/&
1152 & 1.8757E-04_JPRB,2.4389E-04_JPRB,2.7104E-04_JPRB,2.8807E-04_JPRB,2.9709E-04_JPRB,2.9855E-04_JPRB,&
1153 & 2.9335E-04_JPRB,2.8065E-04_JPRB,2.4386E-04_JPRB/) 
1154KAO( :, 5, 5, 6) = (/&
1155 & 1.9089E-04_JPRB,2.4987E-04_JPRB,2.7871E-04_JPRB,2.9704E-04_JPRB,3.0660E-04_JPRB,3.0888E-04_JPRB,&
1156 & 3.0414E-04_JPRB,2.9240E-04_JPRB,2.5489E-04_JPRB/) 
1157KAO( :, 1, 6, 6) = (/&
1158 & 1.6548E-04_JPRB,2.0845E-04_JPRB,2.2667E-04_JPRB,2.3621E-04_JPRB,2.3998E-04_JPRB,2.3852E-04_JPRB,&
1159 & 2.3181E-04_JPRB,2.1713E-04_JPRB,1.9774E-04_JPRB/) 
1160KAO( :, 2, 6, 6) = (/&
1161 & 1.6647E-04_JPRB,2.1295E-04_JPRB,2.3285E-04_JPRB,2.4356E-04_JPRB,2.4798E-04_JPRB,2.4711E-04_JPRB,&
1162 & 2.4086E-04_JPRB,2.2656E-04_JPRB,2.0619E-04_JPRB/) 
1163KAO( :, 3, 6, 6) = (/&
1164 & 1.6832E-04_JPRB,2.1735E-04_JPRB,2.3897E-04_JPRB,2.5101E-04_JPRB,2.5638E-04_JPRB,2.5608E-04_JPRB,&
1165 & 2.5005E-04_JPRB,2.3612E-04_JPRB,2.1472E-04_JPRB/) 
1166KAO( :, 4, 6, 6) = (/&
1167 & 1.7090E-04_JPRB,2.2192E-04_JPRB,2.4527E-04_JPRB,2.5863E-04_JPRB,2.6479E-04_JPRB,2.6498E-04_JPRB,&
1168 & 2.5909E-04_JPRB,2.4595E-04_JPRB,2.2382E-04_JPRB/) 
1169KAO( :, 5, 6, 6) = (/&
1170 & 1.7392E-04_JPRB,2.2728E-04_JPRB,2.5204E-04_JPRB,2.6653E-04_JPRB,2.7329E-04_JPRB,2.7417E-04_JPRB,&
1171 & 2.6871E-04_JPRB,2.5622E-04_JPRB,2.3379E-04_JPRB/) 
1172KAO( :, 1, 7, 6) = (/&
1173 & 1.4974E-04_JPRB,1.8746E-04_JPRB,2.0303E-04_JPRB,2.1075E-04_JPRB,2.1306E-04_JPRB,2.1110E-04_JPRB,&
1174 & 2.0431E-04_JPRB,1.8998E-04_JPRB,1.9358E-04_JPRB/) 
1175KAO( :, 2, 7, 6) = (/&
1176 & 1.5089E-04_JPRB,1.9183E-04_JPRB,2.0895E-04_JPRB,2.1750E-04_JPRB,2.2044E-04_JPRB,2.1873E-04_JPRB,&
1177 & 2.1228E-04_JPRB,1.9808E-04_JPRB,2.0012E-04_JPRB/) 
1178KAO( :, 3, 7, 6) = (/&
1179 & 1.5257E-04_JPRB,1.9611E-04_JPRB,2.1478E-04_JPRB,2.2448E-04_JPRB,2.2805E-04_JPRB,2.2660E-04_JPRB,&
1180 & 2.2066E-04_JPRB,2.0672E-04_JPRB,2.0775E-04_JPRB/) 
1181KAO( :, 4, 7, 6) = (/&
1182 & 1.5493E-04_JPRB,2.0056E-04_JPRB,2.2076E-04_JPRB,2.3152E-04_JPRB,2.3569E-04_JPRB,2.3461E-04_JPRB,&
1183 & 2.2897E-04_JPRB,2.1559E-04_JPRB,2.1605E-04_JPRB/) 
1184KAO( :, 5, 7, 6) = (/&
1185 & 1.5774E-04_JPRB,2.0562E-04_JPRB,2.2715E-04_JPRB,2.3878E-04_JPRB,2.4330E-04_JPRB,2.4290E-04_JPRB,&
1186 & 2.3768E-04_JPRB,2.2474E-04_JPRB,2.2537E-04_JPRB/) 
1187KAO( :, 1, 8, 6) = (/&
1188 & 1.3469E-04_JPRB,1.6768E-04_JPRB,1.8125E-04_JPRB,1.8765E-04_JPRB,1.8912E-04_JPRB,1.8647E-04_JPRB,&
1189 & 1.7925E-04_JPRB,1.6551E-04_JPRB,2.2549E-04_JPRB/) 
1190KAO( :, 2, 8, 6) = (/&
1191 & 1.3601E-04_JPRB,1.7179E-04_JPRB,1.8676E-04_JPRB,1.9388E-04_JPRB,1.9601E-04_JPRB,1.9365E-04_JPRB,&
1192 & 1.8651E-04_JPRB,1.7268E-04_JPRB,2.2728E-04_JPRB/) 
1193KAO( :, 3, 8, 6) = (/&
1194 & 1.3770E-04_JPRB,1.7606E-04_JPRB,1.9214E-04_JPRB,2.0024E-04_JPRB,2.0294E-04_JPRB,2.0077E-04_JPRB,&
1195 & 1.9394E-04_JPRB,1.8025E-04_JPRB,2.3037E-04_JPRB/) 
1196KAO( :, 4, 8, 6) = (/&
1197 & 1.3980E-04_JPRB,1.8052E-04_JPRB,1.9782E-04_JPRB,2.0667E-04_JPRB,2.0985E-04_JPRB,2.0804E-04_JPRB,&
1198 & 2.0170E-04_JPRB,1.8820E-04_JPRB,2.3502E-04_JPRB/) 
1199KAO( :, 5, 8, 6) = (/&
1200 & 1.4234E-04_JPRB,1.8549E-04_JPRB,2.0378E-04_JPRB,2.1326E-04_JPRB,2.1685E-04_JPRB,2.1554E-04_JPRB,&
1201 & 2.0965E-04_JPRB,1.9644E-04_JPRB,2.4136E-04_JPRB/) 
1202KAO( :, 1, 9, 6) = (/&
1203 & 1.1992E-04_JPRB,1.4933E-04_JPRB,1.6105E-04_JPRB,1.6671E-04_JPRB,1.6730E-04_JPRB,1.6393E-04_JPRB,&
1204 & 1.5666E-04_JPRB,1.4342E-04_JPRB,4.8653E-04_JPRB/) 
1205KAO( :, 2, 9, 6) = (/&
1206 & 1.2149E-04_JPRB,1.5326E-04_JPRB,1.6624E-04_JPRB,1.7247E-04_JPRB,1.7376E-04_JPRB,1.7057E-04_JPRB,&
1207 & 1.6339E-04_JPRB,1.5015E-04_JPRB,4.7263E-04_JPRB/) 
1208KAO( :, 3, 9, 6) = (/&
1209 & 1.2314E-04_JPRB,1.5738E-04_JPRB,1.7131E-04_JPRB,1.7818E-04_JPRB,1.8004E-04_JPRB,1.7724E-04_JPRB,&
1210 & 1.6998E-04_JPRB,1.5688E-04_JPRB,4.6122E-04_JPRB/) 
1211KAO( :, 4, 9, 6) = (/&
1212 & 1.2514E-04_JPRB,1.6177E-04_JPRB,1.7650E-04_JPRB,1.8400E-04_JPRB,1.8641E-04_JPRB,1.8403E-04_JPRB,&
1213 & 1.7684E-04_JPRB,1.6385E-04_JPRB,4.5149E-04_JPRB/) 
1214KAO( :, 5, 9, 6) = (/&
1215 & 1.2748E-04_JPRB,1.6660E-04_JPRB,1.8214E-04_JPRB,1.9005E-04_JPRB,1.9284E-04_JPRB,1.9097E-04_JPRB,&
1216 & 1.8405E-04_JPRB,1.7111E-04_JPRB,4.4363E-04_JPRB/) 
1217KAO( :, 1,10, 6) = (/&
1218 & 1.0584E-04_JPRB,1.3236E-04_JPRB,1.4288E-04_JPRB,1.4761E-04_JPRB,1.4780E-04_JPRB,1.4423E-04_JPRB,&
1219 & 1.3667E-04_JPRB,1.2400E-04_JPRB,1.5407E-03_JPRB/) 
1220KAO( :, 2,10, 6) = (/&
1221 & 1.0748E-04_JPRB,1.3619E-04_JPRB,1.4771E-04_JPRB,1.5305E-04_JPRB,1.5361E-04_JPRB,1.5017E-04_JPRB,&
1222 & 1.4291E-04_JPRB,1.3024E-04_JPRB,1.4707E-03_JPRB/) 
1223KAO( :, 3,10, 6) = (/&
1224 & 1.0916E-04_JPRB,1.4012E-04_JPRB,1.5258E-04_JPRB,1.5840E-04_JPRB,1.5929E-04_JPRB,1.5625E-04_JPRB,&
1225 & 1.4913E-04_JPRB,1.3639E-04_JPRB,1.4078E-03_JPRB/) 
1226KAO( :, 4,10, 6) = (/&
1227 & 1.1108E-04_JPRB,1.4432E-04_JPRB,1.5744E-04_JPRB,1.6378E-04_JPRB,1.6514E-04_JPRB,1.6251E-04_JPRB,&
1228 & 1.5541E-04_JPRB,1.4254E-04_JPRB,1.3501E-03_JPRB/) 
1229KAO( :, 5,10, 6) = (/&
1230 & 1.1328E-04_JPRB,1.4893E-04_JPRB,1.6265E-04_JPRB,1.6934E-04_JPRB,1.7119E-04_JPRB,1.6880E-04_JPRB,&
1231 & 1.6190E-04_JPRB,1.4900E-04_JPRB,1.2982E-03_JPRB/) 
1232KAO( :, 1,11, 6) = (/&
1233 & 9.3489E-05_JPRB,1.1825E-04_JPRB,1.2805E-04_JPRB,1.3224E-04_JPRB,1.3232E-04_JPRB,1.2873E-04_JPRB,&
1234 & 1.2131E-04_JPRB,1.0918E-04_JPRB,2.0757E-03_JPRB/) 
1235KAO( :, 2,11, 6) = (/&
1236 & 9.5099E-05_JPRB,1.2195E-04_JPRB,1.3268E-04_JPRB,1.3732E-04_JPRB,1.3748E-04_JPRB,1.3414E-04_JPRB,&
1237 & 1.2695E-04_JPRB,1.1489E-04_JPRB,1.9797E-03_JPRB/) 
1238KAO( :, 3,11, 6) = (/&
1239 & 9.6804E-05_JPRB,1.2575E-04_JPRB,1.3731E-04_JPRB,1.4230E-04_JPRB,1.4278E-04_JPRB,1.3973E-04_JPRB,&
1240 & 1.3283E-04_JPRB,1.2047E-04_JPRB,1.8901E-03_JPRB/) 
1241KAO( :, 4,11, 6) = (/&
1242 & 9.8710E-05_JPRB,1.2986E-04_JPRB,1.4205E-04_JPRB,1.4740E-04_JPRB,1.4826E-04_JPRB,1.4548E-04_JPRB,&
1243 & 1.3868E-04_JPRB,1.2603E-04_JPRB,1.8079E-03_JPRB/) 
1244KAO( :, 5,11, 6) = (/&
1245 & 1.0095E-04_JPRB,1.3435E-04_JPRB,1.4704E-04_JPRB,1.5275E-04_JPRB,1.5397E-04_JPRB,1.5141E-04_JPRB,&
1246 & 1.4471E-04_JPRB,1.3186E-04_JPRB,1.7340E-03_JPRB/) 
1247
1248IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',1,ZHOOK_HANDLE)
1249END SUBROUTINE PART4
1250
1251
1252SUBROUTINE PART5
1253
1254REAL(KIND=JPRB) :: ZHOOK_HANDLE
1255IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',0,ZHOOK_HANDLE)
1256
1257
1258KAO( :, 1,12, 6) = (/&
1259 & 8.2093E-05_JPRB,1.0522E-04_JPRB,1.1410E-04_JPRB,1.1782E-04_JPRB,1.1761E-04_JPRB,1.1416E-04_JPRB,&
1260 & 1.0724E-04_JPRB,9.5735E-05_JPRB,2.1586E-03_JPRB/) 
1261KAO( :, 2,12, 6) = (/&
1262 & 8.3669E-05_JPRB,1.0871E-04_JPRB,1.1846E-04_JPRB,1.2251E-04_JPRB,1.2240E-04_JPRB,1.1908E-04_JPRB,&
1263 & 1.1234E-04_JPRB,1.0091E-04_JPRB,2.0547E-03_JPRB/) 
1264KAO( :, 3,12, 6) = (/&
1265 & 8.5301E-05_JPRB,1.1235E-04_JPRB,1.2282E-04_JPRB,1.2721E-04_JPRB,1.2738E-04_JPRB,1.2431E-04_JPRB,&
1266 & 1.1770E-04_JPRB,1.0601E-04_JPRB,1.9599E-03_JPRB/) 
1267KAO( :, 4,12, 6) = (/&
1268 & 8.7242E-05_JPRB,1.1626E-04_JPRB,1.2740E-04_JPRB,1.3207E-04_JPRB,1.3252E-04_JPRB,1.2966E-04_JPRB,&
1269 & 1.2318E-04_JPRB,1.1105E-04_JPRB,1.8736E-03_JPRB/) 
1270KAO( :, 5,12, 6) = (/&
1271 & 8.9569E-05_JPRB,1.2041E-04_JPRB,1.3214E-04_JPRB,1.3715E-04_JPRB,1.3802E-04_JPRB,1.3533E-04_JPRB,&
1272 & 1.2876E-04_JPRB,1.1627E-04_JPRB,1.7949E-03_JPRB/) 
1273KAO( :, 1,13, 6) = (/&
1274 & 7.1569E-05_JPRB,9.3060E-05_JPRB,1.0102E-04_JPRB,1.0423E-04_JPRB,1.0388E-04_JPRB,1.0052E-04_JPRB,&
1275 & 9.4174E-05_JPRB,8.3531E-05_JPRB,1.8351E-03_JPRB/) 
1276KAO( :, 2,13, 6) = (/&
1277 & 7.3011E-05_JPRB,9.6373E-05_JPRB,1.0503E-04_JPRB,1.0856E-04_JPRB,1.0834E-04_JPRB,1.0508E-04_JPRB,&
1278 & 9.8836E-05_JPRB,8.8176E-05_JPRB,1.7459E-03_JPRB/) 
1279KAO( :, 3,13, 6) = (/&
1280 & 7.4663E-05_JPRB,9.9794E-05_JPRB,1.0913E-04_JPRB,1.1298E-04_JPRB,1.1299E-04_JPRB,1.0991E-04_JPRB,&
1281 & 1.0372E-04_JPRB,9.2787E-05_JPRB,1.6660E-03_JPRB/) 
1282KAO( :, 4,13, 6) = (/&
1283 & 7.6630E-05_JPRB,1.0344E-04_JPRB,1.1345E-04_JPRB,1.1756E-04_JPRB,1.1782E-04_JPRB,1.1495E-04_JPRB,&
1284 & 1.0877E-04_JPRB,9.7412E-05_JPRB,1.5932E-03_JPRB/) 
1285KAO( :, 5,13, 6) = (/&
1286 & 7.9007E-05_JPRB,1.0733E-04_JPRB,1.1787E-04_JPRB,1.2235E-04_JPRB,1.2303E-04_JPRB,1.2033E-04_JPRB,&
1287 & 1.1390E-04_JPRB,1.0206E-04_JPRB,1.5265E-03_JPRB/) 
1288KAO( :, 1, 1, 7) = (/&
1289 & 4.6305E-04_JPRB,5.4556E-04_JPRB,6.0200E-04_JPRB,6.4863E-04_JPRB,6.8107E-04_JPRB,7.0420E-04_JPRB,&
1290 & 7.2199E-04_JPRB,7.3085E-04_JPRB,6.7646E-04_JPRB/) 
1291KAO( :, 2, 1, 7) = (/&
1292 & 4.6301E-04_JPRB,5.5700E-04_JPRB,6.1674E-04_JPRB,6.6918E-04_JPRB,7.0683E-04_JPRB,7.3382E-04_JPRB,&
1293 & 7.5720E-04_JPRB,7.6870E-04_JPRB,7.1353E-04_JPRB/) 
1294KAO( :, 3, 1, 7) = (/&
1295 & 4.6454E-04_JPRB,5.7050E-04_JPRB,6.3324E-04_JPRB,6.9016E-04_JPRB,7.3249E-04_JPRB,7.6632E-04_JPRB,&
1296 & 7.9567E-04_JPRB,8.0915E-04_JPRB,7.5224E-04_JPRB/) 
1297KAO( :, 4, 1, 7) = (/&
1298 & 4.6651E-04_JPRB,5.8405E-04_JPRB,6.4895E-04_JPRB,7.1069E-04_JPRB,7.5837E-04_JPRB,7.9949E-04_JPRB,&
1299 & 8.3506E-04_JPRB,8.5087E-04_JPRB,7.9164E-04_JPRB/) 
1300KAO( :, 5, 1, 7) = (/&
1301 & 4.7034E-04_JPRB,5.9930E-04_JPRB,6.6683E-04_JPRB,7.3355E-04_JPRB,7.8609E-04_JPRB,8.3312E-04_JPRB,&
1302 & 8.7517E-04_JPRB,8.9333E-04_JPRB,8.3199E-04_JPRB/) 
1303KAO( :, 1, 2, 7) = (/&
1304 & 4.3178E-04_JPRB,5.0967E-04_JPRB,5.7208E-04_JPRB,6.1793E-04_JPRB,6.4678E-04_JPRB,6.6138E-04_JPRB,&
1305 & 6.6815E-04_JPRB,6.6568E-04_JPRB,5.9744E-04_JPRB/) 
1306KAO( :, 2, 2, 7) = (/&
1307 & 4.3227E-04_JPRB,5.2067E-04_JPRB,5.8785E-04_JPRB,6.3795E-04_JPRB,6.7133E-04_JPRB,6.9007E-04_JPRB,&
1308 & 7.0100E-04_JPRB,7.0211E-04_JPRB,6.3355E-04_JPRB/) 
1309KAO( :, 3, 2, 7) = (/&
1310 & 4.3414E-04_JPRB,5.3362E-04_JPRB,6.0473E-04_JPRB,6.5841E-04_JPRB,6.9567E-04_JPRB,7.2097E-04_JPRB,&
1311 & 7.3754E-04_JPRB,7.4189E-04_JPRB,6.7066E-04_JPRB/) 
1312KAO( :, 4, 2, 7) = (/&
1313 & 4.3688E-04_JPRB,5.4677E-04_JPRB,6.2106E-04_JPRB,6.7900E-04_JPRB,7.2053E-04_JPRB,7.5255E-04_JPRB,&
1314 & 7.7596E-04_JPRB,7.8317E-04_JPRB,7.0771E-04_JPRB/) 
1315KAO( :, 5, 2, 7) = (/&
1316 & 4.4026E-04_JPRB,5.6009E-04_JPRB,6.3723E-04_JPRB,6.9996E-04_JPRB,7.4621E-04_JPRB,7.8382E-04_JPRB,&
1317 & 8.1411E-04_JPRB,8.2479E-04_JPRB,7.4663E-04_JPRB/) 
1318KAO( :, 1, 3, 7) = (/&
1319 & 4.0042E-04_JPRB,4.7588E-04_JPRB,5.3737E-04_JPRB,5.7848E-04_JPRB,6.0266E-04_JPRB,6.1092E-04_JPRB,&
1320 & 6.0756E-04_JPRB,5.9389E-04_JPRB,5.1726E-04_JPRB/) 
1321KAO( :, 2, 3, 7) = (/&
1322 & 4.0139E-04_JPRB,4.8636E-04_JPRB,5.5256E-04_JPRB,5.9842E-04_JPRB,6.2668E-04_JPRB,6.3795E-04_JPRB,&
1323 & 6.3723E-04_JPRB,6.2673E-04_JPRB,5.4890E-04_JPRB/) 
1324KAO( :, 3, 3, 7) = (/&
1325 & 4.0264E-04_JPRB,4.9818E-04_JPRB,5.6878E-04_JPRB,6.1775E-04_JPRB,6.4985E-04_JPRB,6.6625E-04_JPRB,&
1326 & 6.6960E-04_JPRB,6.6297E-04_JPRB,5.8203E-04_JPRB/) 
1327KAO( :, 4, 3, 7) = (/&
1328 & 4.0594E-04_JPRB,5.1098E-04_JPRB,5.8559E-04_JPRB,6.3812E-04_JPRB,6.7417E-04_JPRB,6.9560E-04_JPRB,&
1329 & 7.0436E-04_JPRB,7.0139E-04_JPRB,6.1550E-04_JPRB/) 
1330KAO( :, 5, 3, 7) = (/&
1331 & 4.0942E-04_JPRB,5.2279E-04_JPRB,6.0106E-04_JPRB,6.5810E-04_JPRB,6.9804E-04_JPRB,7.2431E-04_JPRB,&
1332 & 7.3907E-04_JPRB,7.3980E-04_JPRB,6.5087E-04_JPRB/) 
1333KAO( :, 1, 4, 7) = (/&
1334 & 3.6954E-04_JPRB,4.4390E-04_JPRB,4.9967E-04_JPRB,5.3490E-04_JPRB,5.5341E-04_JPRB,5.5728E-04_JPRB,&
1335 & 5.4744E-04_JPRB,5.2585E-04_JPRB,4.5076E-04_JPRB/) 
1336KAO( :, 2, 4, 7) = (/&
1337 & 3.7099E-04_JPRB,4.5452E-04_JPRB,5.1452E-04_JPRB,5.5410E-04_JPRB,5.7617E-04_JPRB,5.8227E-04_JPRB,&
1338 & 5.7394E-04_JPRB,5.5446E-04_JPRB,4.7750E-04_JPRB/) 
1339KAO( :, 3, 4, 7) = (/&
1340 & 3.7261E-04_JPRB,4.6594E-04_JPRB,5.3039E-04_JPRB,5.7264E-04_JPRB,5.9783E-04_JPRB,6.0838E-04_JPRB,&
1341 & 6.0270E-04_JPRB,5.8596E-04_JPRB,5.0606E-04_JPRB/) 
1342KAO( :, 4, 4, 7) = (/&
1343 & 3.7542E-04_JPRB,4.7733E-04_JPRB,5.4631E-04_JPRB,5.9142E-04_JPRB,6.2021E-04_JPRB,6.3532E-04_JPRB,&
1344 & 6.3302E-04_JPRB,6.1929E-04_JPRB,5.3494E-04_JPRB/) 
1345KAO( :, 5, 4, 7) = (/&
1346 & 3.7994E-04_JPRB,4.8922E-04_JPRB,5.6238E-04_JPRB,6.1134E-04_JPRB,6.4405E-04_JPRB,6.6206E-04_JPRB,&
1347 & 6.6409E-04_JPRB,6.5333E-04_JPRB,5.6564E-04_JPRB/) 
1348KAO( :, 1, 5, 7) = (/&
1349 & 3.4061E-04_JPRB,4.1228E-04_JPRB,4.6040E-04_JPRB,4.8986E-04_JPRB,5.0320E-04_JPRB,5.0314E-04_JPRB,&
1350 & 4.9155E-04_JPRB,4.6563E-04_JPRB,3.9708E-04_JPRB/) 
1351KAO( :, 2, 5, 7) = (/&
1352 & 3.4265E-04_JPRB,4.2238E-04_JPRB,4.7497E-04_JPRB,5.0787E-04_JPRB,5.2436E-04_JPRB,5.2638E-04_JPRB,&
1353 & 5.1586E-04_JPRB,4.9074E-04_JPRB,4.1980E-04_JPRB/) 
1354KAO( :, 3, 5, 7) = (/&
1355 & 3.4457E-04_JPRB,4.3316E-04_JPRB,4.9022E-04_JPRB,5.2547E-04_JPRB,5.4476E-04_JPRB,5.5018E-04_JPRB,&
1356 & 5.4131E-04_JPRB,5.1767E-04_JPRB,4.4445E-04_JPRB/) 
1357KAO( :, 4, 5, 7) = (/&
1358 & 3.4732E-04_JPRB,4.4421E-04_JPRB,5.0540E-04_JPRB,5.4314E-04_JPRB,5.6518E-04_JPRB,5.7439E-04_JPRB,&
1359 & 5.6831E-04_JPRB,5.4593E-04_JPRB,4.6962E-04_JPRB/) 
1360KAO( :, 5, 5, 7) = (/&
1361 & 3.5182E-04_JPRB,4.5580E-04_JPRB,5.2093E-04_JPRB,5.6187E-04_JPRB,5.8688E-04_JPRB,5.9917E-04_JPRB,&
1362 & 5.9551E-04_JPRB,5.7498E-04_JPRB,4.9655E-04_JPRB/) 
1363KAO( :, 1, 6, 7) = (/&
1364 & 3.1397E-04_JPRB,3.8099E-04_JPRB,4.2085E-04_JPRB,4.4392E-04_JPRB,4.5344E-04_JPRB,4.5128E-04_JPRB,&
1365 & 4.3795E-04_JPRB,4.1046E-04_JPRB,3.5811E-04_JPRB/) 
1366KAO( :, 2, 6, 7) = (/&
1367 & 3.1655E-04_JPRB,3.9053E-04_JPRB,4.3489E-04_JPRB,4.6069E-04_JPRB,4.7295E-04_JPRB,4.7284E-04_JPRB,&
1368 & 4.6063E-04_JPRB,4.3290E-04_JPRB,3.7673E-04_JPRB/) 
1369KAO( :, 3, 6, 7) = (/&
1370 & 3.1898E-04_JPRB,4.0060E-04_JPRB,4.4896E-04_JPRB,4.7714E-04_JPRB,4.9199E-04_JPRB,4.9458E-04_JPRB,&
1371 & 4.8353E-04_JPRB,4.5629E-04_JPRB,3.9672E-04_JPRB/) 
1372KAO( :, 4, 6, 7) = (/&
1373 & 3.2158E-04_JPRB,4.1129E-04_JPRB,4.6291E-04_JPRB,4.9376E-04_JPRB,5.1129E-04_JPRB,5.1624E-04_JPRB,&
1374 & 5.0719E-04_JPRB,4.8049E-04_JPRB,4.1801E-04_JPRB/) 
1375KAO( :, 5, 6, 7) = (/&
1376 & 3.2502E-04_JPRB,4.2183E-04_JPRB,4.7677E-04_JPRB,5.1073E-04_JPRB,5.3095E-04_JPRB,5.3777E-04_JPRB,&
1377 & 5.3107E-04_JPRB,5.0560E-04_JPRB,4.4095E-04_JPRB/) 
1378KAO( :, 1, 7, 7) = (/&
1379 & 2.8858E-04_JPRB,3.5072E-04_JPRB,3.8244E-04_JPRB,3.9969E-04_JPRB,4.0628E-04_JPRB,4.0266E-04_JPRB,&
1380 & 3.8820E-04_JPRB,3.6095E-04_JPRB,3.4917E-04_JPRB/) 
1381KAO( :, 2, 7, 7) = (/&
1382 & 2.9154E-04_JPRB,3.5995E-04_JPRB,3.9513E-04_JPRB,4.1562E-04_JPRB,4.2428E-04_JPRB,4.2225E-04_JPRB,&
1383 & 4.0848E-04_JPRB,3.8100E-04_JPRB,3.6556E-04_JPRB/) 
1384KAO( :, 3, 7, 7) = (/&
1385 & 2.9427E-04_JPRB,3.6955E-04_JPRB,4.0818E-04_JPRB,4.3070E-04_JPRB,4.4206E-04_JPRB,4.4209E-04_JPRB,&
1386 & 4.2902E-04_JPRB,4.0153E-04_JPRB,3.8273E-04_JPRB/) 
1387KAO( :, 4, 7, 7) = (/&
1388 & 2.9693E-04_JPRB,3.7937E-04_JPRB,4.2130E-04_JPRB,4.4602E-04_JPRB,4.5975E-04_JPRB,4.6189E-04_JPRB,&
1389 & 4.5029E-04_JPRB,4.2249E-04_JPRB,4.0122E-04_JPRB/) 
1390KAO( :, 5, 7, 7) = (/&
1391 & 3.0032E-04_JPRB,3.8893E-04_JPRB,4.3431E-04_JPRB,4.6164E-04_JPRB,4.7805E-04_JPRB,4.8151E-04_JPRB,&
1392 & 4.7139E-04_JPRB,4.4430E-04_JPRB,4.2113E-04_JPRB/) 
1393KAO( :, 1, 8, 7) = (/&
1394 & 2.6433E-04_JPRB,3.2164E-04_JPRB,3.4678E-04_JPRB,3.5895E-04_JPRB,3.6313E-04_JPRB,3.5828E-04_JPRB,&
1395 & 3.4379E-04_JPRB,3.1784E-04_JPRB,3.8325E-04_JPRB/) 
1396KAO( :, 2, 8, 7) = (/&
1397 & 2.6764E-04_JPRB,3.3079E-04_JPRB,3.5818E-04_JPRB,3.7326E-04_JPRB,3.7969E-04_JPRB,3.7570E-04_JPRB,&
1398 & 3.6173E-04_JPRB,3.3531E-04_JPRB,3.9627E-04_JPRB/) 
1399KAO( :, 3, 8, 7) = (/&
1400 & 2.7049E-04_JPRB,3.3967E-04_JPRB,3.6984E-04_JPRB,3.8764E-04_JPRB,3.9567E-04_JPRB,3.9347E-04_JPRB,&
1401 & 3.7992E-04_JPRB,3.5345E-04_JPRB,4.1157E-04_JPRB/) 
1402KAO( :, 4, 8, 7) = (/&
1403 & 2.7332E-04_JPRB,3.4840E-04_JPRB,3.8188E-04_JPRB,4.0186E-04_JPRB,4.1166E-04_JPRB,4.1115E-04_JPRB,&
1404 & 3.9867E-04_JPRB,3.7201E-04_JPRB,4.2882E-04_JPRB/) 
1405KAO( :, 5, 8, 7) = (/&
1406 & 2.7670E-04_JPRB,3.5697E-04_JPRB,3.9392E-04_JPRB,4.1633E-04_JPRB,4.2814E-04_JPRB,4.2877E-04_JPRB,&
1407 & 4.1760E-04_JPRB,3.9091E-04_JPRB,4.4711E-04_JPRB/) 
1408KAO( :, 1, 9, 7) = (/&
1409 & 2.4137E-04_JPRB,2.9350E-04_JPRB,3.1375E-04_JPRB,3.2233E-04_JPRB,3.2400E-04_JPRB,3.1859E-04_JPRB,&
1410 & 3.0441E-04_JPRB,2.7946E-04_JPRB,7.4112E-04_JPRB/) 
1411KAO( :, 2, 9, 7) = (/&
1412 & 2.4480E-04_JPRB,3.0210E-04_JPRB,3.2420E-04_JPRB,3.3517E-04_JPRB,3.3871E-04_JPRB,3.3414E-04_JPRB,&
1413 & 3.2021E-04_JPRB,2.9498E-04_JPRB,7.2877E-04_JPRB/) 
1414KAO( :, 3, 9, 7) = (/&
1415 & 2.4785E-04_JPRB,3.1022E-04_JPRB,3.3497E-04_JPRB,3.4812E-04_JPRB,3.5338E-04_JPRB,3.4970E-04_JPRB,&
1416 & 3.3648E-04_JPRB,3.1095E-04_JPRB,7.2183E-04_JPRB/) 
1417KAO( :, 4, 9, 7) = (/&
1418 & 2.5068E-04_JPRB,3.1830E-04_JPRB,3.4602E-04_JPRB,3.6150E-04_JPRB,3.6764E-04_JPRB,3.6525E-04_JPRB,&
1419 & 3.5301E-04_JPRB,3.2741E-04_JPRB,7.2069E-04_JPRB/) 
1420KAO( :, 5, 9, 7) = (/&
1421 & 2.5395E-04_JPRB,3.2629E-04_JPRB,3.5706E-04_JPRB,3.7496E-04_JPRB,3.8230E-04_JPRB,3.8101E-04_JPRB,&
1422 & 3.6964E-04_JPRB,3.4426E-04_JPRB,7.2393E-04_JPRB/) 
1423KAO( :, 1,10, 7) = (/&
1424 & 2.1916E-04_JPRB,2.6728E-04_JPRB,2.8357E-04_JPRB,2.9003E-04_JPRB,2.9019E-04_JPRB,2.8394E-04_JPRB,&
1425 & 2.6987E-04_JPRB,2.4557E-04_JPRB,2.2951E-03_JPRB/) 
1426KAO( :, 2,10, 7) = (/&
1427 & 2.2269E-04_JPRB,2.7508E-04_JPRB,2.9328E-04_JPRB,3.0170E-04_JPRB,3.0330E-04_JPRB,2.9810E-04_JPRB,&
1428 & 2.8439E-04_JPRB,2.5963E-04_JPRB,2.1937E-03_JPRB/) 
1429KAO( :, 3,10, 7) = (/&
1430 & 2.2592E-04_JPRB,2.8247E-04_JPRB,3.0321E-04_JPRB,3.1354E-04_JPRB,3.1659E-04_JPRB,3.1208E-04_JPRB,&
1431 & 2.9880E-04_JPRB,2.7415E-04_JPRB,2.1089E-03_JPRB/) 
1432KAO( :, 4,10, 7) = (/&
1433 & 2.2891E-04_JPRB,2.8992E-04_JPRB,3.1332E-04_JPRB,3.2558E-04_JPRB,3.2968E-04_JPRB,3.2576E-04_JPRB,&
1434 & 3.1353E-04_JPRB,2.8898E-04_JPRB,2.0353E-03_JPRB/) 
1435KAO( :, 5,10, 7) = (/&
1436 & 2.3224E-04_JPRB,2.9740E-04_JPRB,3.2354E-04_JPRB,3.3796E-04_JPRB,3.4280E-04_JPRB,3.3971E-04_JPRB,&
1437 & 3.2827E-04_JPRB,3.0414E-04_JPRB,1.9694E-03_JPRB/) 
1438KAO( :, 1,11, 7) = (/&
1439 & 1.9917E-04_JPRB,2.4536E-04_JPRB,2.5993E-04_JPRB,2.6557E-04_JPRB,2.6515E-04_JPRB,2.5837E-04_JPRB,&
1440 & 2.4462E-04_JPRB,2.2066E-04_JPRB,3.1341E-03_JPRB/) 
1441KAO( :, 2,11, 7) = (/&
1442 & 2.0264E-04_JPRB,2.5224E-04_JPRB,2.6895E-04_JPRB,2.7632E-04_JPRB,2.7737E-04_JPRB,2.7142E-04_JPRB,&
1443 & 2.5767E-04_JPRB,2.3346E-04_JPRB,2.9845E-03_JPRB/) 
1444KAO( :, 3,11, 7) = (/&
1445 & 2.0597E-04_JPRB,2.5913E-04_JPRB,2.7799E-04_JPRB,2.8723E-04_JPRB,2.8930E-04_JPRB,2.8411E-04_JPRB,&
1446 & 2.7068E-04_JPRB,2.4666E-04_JPRB,2.8531E-03_JPRB/) 
1447KAO( :, 4,11, 7) = (/&
1448 & 2.0923E-04_JPRB,2.6606E-04_JPRB,2.8717E-04_JPRB,2.9817E-04_JPRB,3.0130E-04_JPRB,2.9662E-04_JPRB,&
1449 & 2.8382E-04_JPRB,2.6011E-04_JPRB,2.7344E-03_JPRB/) 
1450KAO( :, 5,11, 7) = (/&
1451 & 2.1283E-04_JPRB,2.7325E-04_JPRB,2.9677E-04_JPRB,3.0938E-04_JPRB,3.1326E-04_JPRB,3.0919E-04_JPRB,&
1452 & 2.9712E-04_JPRB,2.7384E-04_JPRB,2.6277E-03_JPRB/) 
1453KAO( :, 1,12, 7) = (/&
1454 & 1.7936E-04_JPRB,2.2328E-04_JPRB,2.3724E-04_JPRB,2.4243E-04_JPRB,2.4172E-04_JPRB,2.3478E-04_JPRB,&
1455 & 2.2093E-04_JPRB,1.9737E-04_JPRB,3.2835E-03_JPRB/) 
1456KAO( :, 2,12, 7) = (/&
1457 & 1.8285E-04_JPRB,2.2978E-04_JPRB,2.4543E-04_JPRB,2.5241E-04_JPRB,2.5294E-04_JPRB,2.4651E-04_JPRB,&
1458 & 2.3266E-04_JPRB,2.0912E-04_JPRB,3.1216E-03_JPRB/) 
1459KAO( :, 3,12, 7) = (/&
1460 & 1.8634E-04_JPRB,2.3640E-04_JPRB,2.5382E-04_JPRB,2.6232E-04_JPRB,2.6378E-04_JPRB,2.5795E-04_JPRB,&
1461 & 2.4444E-04_JPRB,2.2095E-04_JPRB,2.9752E-03_JPRB/) 
1462KAO( :, 4,12, 7) = (/&
1463 & 1.8978E-04_JPRB,2.4319E-04_JPRB,2.6232E-04_JPRB,2.7232E-04_JPRB,2.7477E-04_JPRB,2.6960E-04_JPRB,&
1464 & 2.5603E-04_JPRB,2.3306E-04_JPRB,2.8433E-03_JPRB/) 
1465KAO( :, 5,12, 7) = (/&
1466 & 1.9368E-04_JPRB,2.5043E-04_JPRB,2.7137E-04_JPRB,2.8261E-04_JPRB,2.8588E-04_JPRB,2.8109E-04_JPRB,&
1467 & 2.6784E-04_JPRB,2.4548E-04_JPRB,2.7264E-03_JPRB/) 
1468KAO( :, 1,13, 7) = (/&
1469 & 1.6014E-04_JPRB,2.0144E-04_JPRB,2.1482E-04_JPRB,2.1993E-04_JPRB,2.1918E-04_JPRB,2.1245E-04_JPRB,&
1470 & 1.9850E-04_JPRB,1.7572E-04_JPRB,2.8014E-03_JPRB/) 
1471KAO( :, 2,13, 7) = (/&
1472 & 1.6372E-04_JPRB,2.0772E-04_JPRB,2.2263E-04_JPRB,2.2918E-04_JPRB,2.2929E-04_JPRB,2.2295E-04_JPRB,&
1473 & 2.0909E-04_JPRB,1.8627E-04_JPRB,2.6597E-03_JPRB/) 
1474KAO( :, 3,13, 7) = (/&
1475 & 1.6711E-04_JPRB,2.1423E-04_JPRB,2.3053E-04_JPRB,2.3833E-04_JPRB,2.3922E-04_JPRB,2.3334E-04_JPRB,&
1476 & 2.1968E-04_JPRB,1.9695E-04_JPRB,2.5327E-03_JPRB/) 
1477KAO( :, 4,13, 7) = (/&
1478 & 1.7075E-04_JPRB,2.2099E-04_JPRB,2.3863E-04_JPRB,2.4766E-04_JPRB,2.4941E-04_JPRB,2.4382E-04_JPRB,&
1479 & 2.3022E-04_JPRB,2.0776E-04_JPRB,2.4204E-03_JPRB/) 
1480KAO( :, 5,13, 7) = (/&
1481 & 1.7481E-04_JPRB,2.2827E-04_JPRB,2.4735E-04_JPRB,2.5731E-04_JPRB,2.5972E-04_JPRB,2.5434E-04_JPRB,&
1482 & 2.4101E-04_JPRB,2.1916E-04_JPRB,2.3207E-03_JPRB/) 
1483KAO( :, 1, 1, 8) = (/&
1484 & 9.5608E-04_JPRB,1.1137E-03_JPRB,1.1928E-03_JPRB,1.2676E-03_JPRB,1.3453E-03_JPRB,1.4201E-03_JPRB,&
1485 & 1.4858E-03_JPRB,1.4985E-03_JPRB,1.3296E-03_JPRB/) 
1486KAO( :, 2, 1, 8) = (/&
1487 & 9.5994E-04_JPRB,1.1580E-03_JPRB,1.2586E-03_JPRB,1.3444E-03_JPRB,1.4304E-03_JPRB,1.5065E-03_JPRB,&
1488 & 1.5698E-03_JPRB,1.5822E-03_JPRB,1.4127E-03_JPRB/) 
1489KAO( :, 3, 1, 8) = (/&
1490 & 9.6434E-04_JPRB,1.2039E-03_JPRB,1.3295E-03_JPRB,1.4283E-03_JPRB,1.5240E-03_JPRB,1.6021E-03_JPRB,&
1491 & 1.6610E-03_JPRB,1.6690E-03_JPRB,1.4964E-03_JPRB/) 
1492KAO( :, 4, 1, 8) = (/&
1493 & 9.6594E-04_JPRB,1.2459E-03_JPRB,1.3992E-03_JPRB,1.5151E-03_JPRB,1.6213E-03_JPRB,1.7037E-03_JPRB,&
1494 & 1.7586E-03_JPRB,1.7581E-03_JPRB,1.5822E-03_JPRB/) 
1495KAO( :, 5, 1, 8) = (/&
1496 & 9.7112E-04_JPRB,1.2922E-03_JPRB,1.4733E-03_JPRB,1.6088E-03_JPRB,1.7251E-03_JPRB,1.8137E-03_JPRB,&
1497 & 1.8637E-03_JPRB,1.8544E-03_JPRB,1.6729E-03_JPRB/) 
1498KAO( :, 1, 2, 8) = (/&
1499 & 9.2093E-04_JPRB,1.0546E-03_JPRB,1.1184E-03_JPRB,1.1877E-03_JPRB,1.2677E-03_JPRB,1.3451E-03_JPRB,&
1500 & 1.4085E-03_JPRB,1.4282E-03_JPRB,1.2587E-03_JPRB/) 
1501KAO( :, 2, 2, 8) = (/&
1502 & 9.2391E-04_JPRB,1.0934E-03_JPRB,1.1705E-03_JPRB,1.2485E-03_JPRB,1.3345E-03_JPRB,1.4205E-03_JPRB,&
1503 & 1.4904E-03_JPRB,1.5108E-03_JPRB,1.3375E-03_JPRB/) 
1504KAO( :, 3, 2, 8) = (/&
1505 & 9.2775E-04_JPRB,1.1328E-03_JPRB,1.2272E-03_JPRB,1.3169E-03_JPRB,1.4101E-03_JPRB,1.5006E-03_JPRB,&
1506 & 1.5743E-03_JPRB,1.5928E-03_JPRB,1.4152E-03_JPRB/) 
1507KAO( :, 4, 2, 8) = (/&
1508 & 9.3033E-04_JPRB,1.1705E-03_JPRB,1.2842E-03_JPRB,1.3889E-03_JPRB,1.4909E-03_JPRB,1.5847E-03_JPRB,&
1509 & 1.6559E-03_JPRB,1.6749E-03_JPRB,1.4953E-03_JPRB/) 
1510KAO( :, 5, 2, 8) = (/&
1511 & 9.3350E-04_JPRB,1.2078E-03_JPRB,1.3426E-03_JPRB,1.4642E-03_JPRB,1.5755E-03_JPRB,1.6738E-03_JPRB,&
1512 & 1.7416E-03_JPRB,1.7599E-03_JPRB,1.5794E-03_JPRB/) 
1513KAO( :, 1, 3, 8) = (/&
1514 & 8.8225E-04_JPRB,9.9524E-04_JPRB,1.0564E-03_JPRB,1.1307E-03_JPRB,1.2003E-03_JPRB,1.2591E-03_JPRB,&
1515 & 1.3108E-03_JPRB,1.3309E-03_JPRB,1.1549E-03_JPRB/) 
1516KAO( :, 2, 3, 8) = (/&
1517 & 8.8537E-04_JPRB,1.0284E-03_JPRB,1.0990E-03_JPRB,1.1784E-03_JPRB,1.2595E-03_JPRB,1.3310E-03_JPRB,&
1518 & 1.3892E-03_JPRB,1.4138E-03_JPRB,1.2306E-03_JPRB/) 
1519KAO( :, 3, 3, 8) = (/&
1520 & 8.8781E-04_JPRB,1.0600E-03_JPRB,1.1442E-03_JPRB,1.2314E-03_JPRB,1.3222E-03_JPRB,1.4061E-03_JPRB,&
1521 & 1.4693E-03_JPRB,1.4932E-03_JPRB,1.3048E-03_JPRB/) 
1522KAO( :, 4, 3, 8) = (/&
1523 & 8.9189E-04_JPRB,1.0939E-03_JPRB,1.1921E-03_JPRB,1.2907E-03_JPRB,1.3886E-03_JPRB,1.4820E-03_JPRB,&
1524 & 1.5492E-03_JPRB,1.5703E-03_JPRB,1.3811E-03_JPRB/) 
1525KAO( :, 5, 3, 8) = (/&
1526 & 8.9438E-04_JPRB,1.1258E-03_JPRB,1.2397E-03_JPRB,1.3504E-03_JPRB,1.4556E-03_JPRB,1.5581E-03_JPRB,&
1527 & 1.6301E-03_JPRB,1.6498E-03_JPRB,1.4607E-03_JPRB/) 
1528KAO( :, 1, 4, 8) = (/&
1529 & 8.3849E-04_JPRB,9.3566E-04_JPRB,1.0099E-03_JPRB,1.0816E-03_JPRB,1.1344E-03_JPRB,1.1752E-03_JPRB,&
1530 & 1.2048E-03_JPRB,1.2139E-03_JPRB,1.0399E-03_JPRB/) 
1531KAO( :, 2, 4, 8) = (/&
1532 & 8.4244E-04_JPRB,9.6570E-04_JPRB,1.0454E-03_JPRB,1.1259E-03_JPRB,1.1888E-03_JPRB,1.2423E-03_JPRB,&
1533 & 1.2800E-03_JPRB,1.2943E-03_JPRB,1.1122E-03_JPRB/) 
1534KAO( :, 3, 4, 8) = (/&
1535 & 8.4472E-04_JPRB,9.9456E-04_JPRB,1.0829E-03_JPRB,1.1722E-03_JPRB,1.2472E-03_JPRB,1.3102E-03_JPRB,&
1536 & 1.3565E-03_JPRB,1.3722E-03_JPRB,1.1831E-03_JPRB/) 
1537KAO( :, 4, 4, 8) = (/&
1538 & 8.4703E-04_JPRB,1.0229E-03_JPRB,1.1215E-03_JPRB,1.2221E-03_JPRB,1.3077E-03_JPRB,1.3778E-03_JPRB,&
1539 & 1.4318E-03_JPRB,1.4488E-03_JPRB,1.2549E-03_JPRB/) 
1540KAO( :, 5, 4, 8) = (/&
1541 & 8.5239E-04_JPRB,1.0541E-03_JPRB,1.1634E-03_JPRB,1.2735E-03_JPRB,1.3695E-03_JPRB,1.4485E-03_JPRB,&
1542 & 1.5090E-03_JPRB,1.5277E-03_JPRB,1.3292E-03_JPRB/) 
1543KAO( :, 1, 5, 8) = (/&
1544 & 7.9083E-04_JPRB,8.8170E-04_JPRB,9.6674E-04_JPRB,1.0299E-03_JPRB,1.0698E-03_JPRB,1.0915E-03_JPRB,&
1545 & 1.0968E-03_JPRB,1.0912E-03_JPRB,9.3090E-04_JPRB/) 
1546KAO( :, 2, 5, 8) = (/&
1547 & 7.9562E-04_JPRB,9.0868E-04_JPRB,9.9995E-04_JPRB,1.0720E-03_JPRB,1.1213E-03_JPRB,1.1526E-03_JPRB,&
1548 & 1.1662E-03_JPRB,1.1662E-03_JPRB,9.9625E-04_JPRB/) 
1549
1550IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',1,ZHOOK_HANDLE)
1551END SUBROUTINE PART5
1552
1553
1554SUBROUTINE PART6
1555
1556REAL(KIND=JPRB) :: ZHOOK_HANDLE
1557IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',0,ZHOOK_HANDLE)
1558
1559
1560KAO( :, 3, 5, 8) = (/&
1561 & 7.9829E-04_JPRB,9.3547E-04_JPRB,1.0342E-03_JPRB,1.1161E-03_JPRB,1.1759E-03_JPRB,1.2152E-03_JPRB,&
1562 & 1.2368E-03_JPRB,1.2405E-03_JPRB,1.0609E-03_JPRB/) 
1563KAO( :, 4, 5, 8) = (/&
1564 & 8.0091E-04_JPRB,9.6089E-04_JPRB,1.0686E-03_JPRB,1.1624E-03_JPRB,1.2313E-03_JPRB,1.2778E-03_JPRB,&
1565 & 1.3076E-03_JPRB,1.3141E-03_JPRB,1.1274E-03_JPRB/) 
1566KAO( :, 5, 5, 8) = (/&
1567 & 8.0636E-04_JPRB,9.8796E-04_JPRB,1.1047E-03_JPRB,1.2088E-03_JPRB,1.2883E-03_JPRB,1.3425E-03_JPRB,&
1568 & 1.3805E-03_JPRB,1.3900E-03_JPRB,1.1960E-03_JPRB/) 
1569KAO( :, 1, 6, 8) = (/&
1570 & 7.4042E-04_JPRB,8.3357E-04_JPRB,9.1717E-04_JPRB,9.7114E-04_JPRB,1.0002E-03_JPRB,1.0057E-03_JPRB,&
1571 & 9.9270E-04_JPRB,9.6792E-04_JPRB,8.3659E-04_JPRB/) 
1572KAO( :, 2, 6, 8) = (/&
1573 & 7.4565E-04_JPRB,8.5743E-04_JPRB,9.4912E-04_JPRB,1.0119E-03_JPRB,1.0480E-03_JPRB,1.0602E-03_JPRB,&
1574 & 1.0545E-03_JPRB,1.0369E-03_JPRB,8.9582E-04_JPRB/) 
1575KAO( :, 3, 6, 8) = (/&
1576 & 7.4922E-04_JPRB,8.8128E-04_JPRB,9.8142E-04_JPRB,1.0542E-03_JPRB,1.0980E-03_JPRB,1.1167E-03_JPRB,&
1577 & 1.1185E-03_JPRB,1.1056E-03_JPRB,9.5443E-04_JPRB/) 
1578KAO( :, 4, 6, 8) = (/&
1579 & 7.5232E-04_JPRB,9.0308E-04_JPRB,1.0141E-03_JPRB,1.0981E-03_JPRB,1.1486E-03_JPRB,1.1744E-03_JPRB,&
1580 & 1.1833E-03_JPRB,1.1741E-03_JPRB,1.0132E-03_JPRB/) 
1581KAO( :, 5, 6, 8) = (/&
1582 & 7.5627E-04_JPRB,9.2523E-04_JPRB,1.0466E-03_JPRB,1.1406E-03_JPRB,1.2001E-03_JPRB,1.2335E-03_JPRB,&
1583 & 1.2490E-03_JPRB,1.2439E-03_JPRB,1.0736E-03_JPRB/) 
1584KAO( :, 1, 7, 8) = (/&
1585 & 6.8964E-04_JPRB,7.8723E-04_JPRB,8.6407E-04_JPRB,9.0570E-04_JPRB,9.2461E-04_JPRB,9.2134E-04_JPRB,&
1586 & 8.9655E-04_JPRB,8.5470E-04_JPRB,7.7227E-04_JPRB/) 
1587KAO( :, 2, 7, 8) = (/&
1588 & 6.9565E-04_JPRB,8.0904E-04_JPRB,8.9444E-04_JPRB,9.4366E-04_JPRB,9.6915E-04_JPRB,9.7063E-04_JPRB,&
1589 & 9.5066E-04_JPRB,9.1508E-04_JPRB,8.2464E-04_JPRB/) 
1590KAO( :, 3, 7, 8) = (/&
1591 & 7.0042E-04_JPRB,8.3032E-04_JPRB,9.2461E-04_JPRB,9.8296E-04_JPRB,1.0152E-03_JPRB,1.0214E-03_JPRB,&
1592 & 1.0076E-03_JPRB,9.7640E-04_JPRB,8.7766E-04_JPRB/) 
1593KAO( :, 4, 7, 8) = (/&
1594 & 7.0426E-04_JPRB,8.4981E-04_JPRB,9.5485E-04_JPRB,1.0240E-03_JPRB,1.0623E-03_JPRB,1.0734E-03_JPRB,&
1595 & 1.0651E-03_JPRB,1.0378E-03_JPRB,9.3187E-04_JPRB/) 
1596KAO( :, 5, 7, 8) = (/&
1597 & 7.0821E-04_JPRB,8.6946E-04_JPRB,9.8537E-04_JPRB,1.0646E-03_JPRB,1.1098E-03_JPRB,1.1263E-03_JPRB,&
1598 & 1.1245E-03_JPRB,1.1007E-03_JPRB,9.8663E-04_JPRB/) 
1599KAO( :, 1, 8, 8) = (/&
1600 & 6.4047E-04_JPRB,7.3858E-04_JPRB,8.0453E-04_JPRB,8.3694E-04_JPRB,8.4619E-04_JPRB,8.3765E-04_JPRB,&
1601 & 8.0766E-04_JPRB,7.5466E-04_JPRB,8.2781E-04_JPRB/) 
1602KAO( :, 2, 8, 8) = (/&
1603 & 6.4742E-04_JPRB,7.5904E-04_JPRB,8.3405E-04_JPRB,8.7266E-04_JPRB,8.8676E-04_JPRB,8.8236E-04_JPRB,&
1604 & 8.5570E-04_JPRB,8.0688E-04_JPRB,8.7433E-04_JPRB/) 
1605KAO( :, 3, 8, 8) = (/&
1606 & 6.5283E-04_JPRB,7.7980E-04_JPRB,8.6316E-04_JPRB,9.0850E-04_JPRB,9.2898E-04_JPRB,9.2841E-04_JPRB,&
1607 & 9.0551E-04_JPRB,8.6048E-04_JPRB,9.2376E-04_JPRB/) 
1608KAO( :, 4, 8, 8) = (/&
1609 & 6.5707E-04_JPRB,7.9894E-04_JPRB,8.9224E-04_JPRB,9.4602E-04_JPRB,9.7258E-04_JPRB,9.7562E-04_JPRB,&
1610 & 9.5565E-04_JPRB,9.1442E-04_JPRB,9.7371E-04_JPRB/) 
1611KAO( :, 5, 8, 8) = (/&
1612 & 6.6119E-04_JPRB,8.1764E-04_JPRB,9.2118E-04_JPRB,9.8357E-04_JPRB,1.0164E-03_JPRB,1.0233E-03_JPRB,&
1613 & 1.0075E-03_JPRB,9.7011E-04_JPRB,1.0250E-03_JPRB/) 
1614KAO( :, 1, 9, 8) = (/&
1615 & 5.9304E-04_JPRB,6.8835E-04_JPRB,7.4179E-04_JPRB,7.6634E-04_JPRB,7.7050E-04_JPRB,7.5604E-04_JPRB,&
1616 & 7.2393E-04_JPRB,6.6767E-04_JPRB,1.3527E-03_JPRB/) 
1617KAO( :, 2, 9, 8) = (/&
1618 & 6.0061E-04_JPRB,7.0826E-04_JPRB,7.7005E-04_JPRB,7.9970E-04_JPRB,8.0682E-04_JPRB,7.9622E-04_JPRB,&
1619 & 7.6713E-04_JPRB,7.1229E-04_JPRB,1.3810E-03_JPRB/) 
1620KAO( :, 3, 9, 8) = (/&
1621 & 6.0690E-04_JPRB,7.2826E-04_JPRB,7.9782E-04_JPRB,8.3277E-04_JPRB,8.4414E-04_JPRB,8.3763E-04_JPRB,&
1622 & 8.1182E-04_JPRB,7.5863E-04_JPRB,1.4228E-03_JPRB/) 
1623KAO( :, 4, 9, 8) = (/&
1624 & 6.1167E-04_JPRB,7.4710E-04_JPRB,8.2533E-04_JPRB,8.6687E-04_JPRB,8.8342E-04_JPRB,8.8028E-04_JPRB,&
1625 & 8.5678E-04_JPRB,8.0590E-04_JPRB,1.4759E-03_JPRB/) 
1626KAO( :, 5, 9, 8) = (/&
1627 & 6.1627E-04_JPRB,7.6539E-04_JPRB,8.5255E-04_JPRB,9.0125E-04_JPRB,9.2320E-04_JPRB,9.2321E-04_JPRB,&
1628 & 9.0266E-04_JPRB,8.5442E-04_JPRB,1.5365E-03_JPRB/) 
1629KAO( :, 1,10, 8) = (/&
1630 & 5.4825E-04_JPRB,6.3891E-04_JPRB,6.8254E-04_JPRB,7.0037E-04_JPRB,6.9928E-04_JPRB,6.8268E-04_JPRB,&
1631 & 6.4957E-04_JPRB,5.9476E-04_JPRB,3.8180E-03_JPRB/) 
1632KAO( :, 2,10, 8) = (/&
1633 & 5.5676E-04_JPRB,6.5829E-04_JPRB,7.0890E-04_JPRB,7.3100E-04_JPRB,7.3257E-04_JPRB,7.1817E-04_JPRB,&
1634 & 6.8748E-04_JPRB,6.3344E-04_JPRB,3.7319E-03_JPRB/) 
1635KAO( :, 3,10, 8) = (/&
1636 & 5.6387E-04_JPRB,6.7778E-04_JPRB,7.3493E-04_JPRB,7.6099E-04_JPRB,7.6595E-04_JPRB,7.5519E-04_JPRB,&
1637 & 7.2717E-04_JPRB,6.7342E-04_JPRB,3.6841E-03_JPRB/) 
1638KAO( :, 4,10, 8) = (/&
1639 & 5.6965E-04_JPRB,6.9628E-04_JPRB,7.6095E-04_JPRB,7.9168E-04_JPRB,8.0061E-04_JPRB,7.9369E-04_JPRB,&
1640 & 7.6769E-04_JPRB,7.1402E-04_JPRB,3.6718E-03_JPRB/) 
1641KAO( :, 5,10, 8) = (/&
1642 & 5.7483E-04_JPRB,7.1426E-04_JPRB,7.8640E-04_JPRB,8.2247E-04_JPRB,8.3634E-04_JPRB,8.3289E-04_JPRB,&
1643 & 8.0894E-04_JPRB,7.5561E-04_JPRB,3.6884E-03_JPRB/) 
1644KAO( :, 1,11, 8) = (/&
1645 & 5.0971E-04_JPRB,5.9908E-04_JPRB,6.3716E-04_JPRB,6.5075E-04_JPRB,6.4646E-04_JPRB,6.2883E-04_JPRB,&
1646 & 5.9611E-04_JPRB,5.4516E-04_JPRB,5.2044E-03_JPRB/) 
1647KAO( :, 2,11, 8) = (/&
1648 & 5.1851E-04_JPRB,6.1830E-04_JPRB,6.6103E-04_JPRB,6.7814E-04_JPRB,6.7644E-04_JPRB,6.6100E-04_JPRB,&
1649 & 6.3054E-04_JPRB,5.7922E-04_JPRB,5.0472E-03_JPRB/) 
1650KAO( :, 3,11, 8) = (/&
1651 & 5.2576E-04_JPRB,6.3685E-04_JPRB,6.8508E-04_JPRB,7.0561E-04_JPRB,7.0702E-04_JPRB,6.9454E-04_JPRB,&
1652 & 6.6622E-04_JPRB,6.1448E-04_JPRB,4.9485E-03_JPRB/) 
1653KAO( :, 4,11, 8) = (/&
1654 & 5.3230E-04_JPRB,6.5426E-04_JPRB,7.0906E-04_JPRB,7.3336E-04_JPRB,7.3854E-04_JPRB,7.2917E-04_JPRB,&
1655 & 7.0247E-04_JPRB,6.5031E-04_JPRB,4.8945E-03_JPRB/) 
1656KAO( :, 5,11, 8) = (/&
1657 & 5.3825E-04_JPRB,6.7152E-04_JPRB,7.3265E-04_JPRB,7.6088E-04_JPRB,7.7057E-04_JPRB,7.6479E-04_JPRB,&
1658 & 7.3945E-04_JPRB,6.8664E-04_JPRB,4.8718E-03_JPRB/) 
1659KAO( :, 1,12, 8) = (/&
1660 & 4.7268E-04_JPRB,5.5911E-04_JPRB,5.9221E-04_JPRB,6.0202E-04_JPRB,5.9599E-04_JPRB,5.7673E-04_JPRB,&
1661 & 5.4567E-04_JPRB,4.9766E-04_JPRB,5.4784E-03_JPRB/) 
1662KAO( :, 2,12, 8) = (/&
1663 & 4.8142E-04_JPRB,5.7788E-04_JPRB,6.1435E-04_JPRB,6.2655E-04_JPRB,6.2325E-04_JPRB,6.0670E-04_JPRB,&
1664 & 5.7673E-04_JPRB,5.2800E-04_JPRB,5.3059E-03_JPRB/) 
1665KAO( :, 3,12, 8) = (/&
1666 & 4.8905E-04_JPRB,5.9521E-04_JPRB,6.3638E-04_JPRB,6.5188E-04_JPRB,6.5138E-04_JPRB,6.3718E-04_JPRB,&
1667 & 6.0852E-04_JPRB,5.5928E-04_JPRB,5.1929E-03_JPRB/) 
1668KAO( :, 4,12, 8) = (/&
1669 & 4.9586E-04_JPRB,6.1204E-04_JPRB,6.5810E-04_JPRB,6.7725E-04_JPRB,6.7983E-04_JPRB,6.6800E-04_JPRB,&
1670 & 6.4102E-04_JPRB,5.9098E-04_JPRB,5.1181E-03_JPRB/) 
1671KAO( :, 5,12, 8) = (/&
1672 & 5.0219E-04_JPRB,6.2893E-04_JPRB,6.7933E-04_JPRB,7.0239E-04_JPRB,7.0829E-04_JPRB,6.9992E-04_JPRB,&
1673 & 6.7457E-04_JPRB,6.2315E-04_JPRB,5.0659E-03_JPRB/) 
1674KAO( :, 1,13, 8) = (/&
1675 & 4.3613E-04_JPRB,5.1896E-04_JPRB,5.4757E-04_JPRB,5.5450E-04_JPRB,5.4716E-04_JPRB,5.2848E-04_JPRB,&
1676 & 4.9828E-04_JPRB,4.5179E-04_JPRB,4.7039E-03_JPRB/) 
1677KAO( :, 2,13, 8) = (/&
1678 & 4.4480E-04_JPRB,5.3652E-04_JPRB,5.6828E-04_JPRB,5.7733E-04_JPRB,5.7232E-04_JPRB,5.5571E-04_JPRB,&
1679 & 5.2643E-04_JPRB,4.7940E-04_JPRB,4.5588E-03_JPRB/) 
1680KAO( :, 3,13, 8) = (/&
1681 & 4.5255E-04_JPRB,5.5296E-04_JPRB,5.8851E-04_JPRB,6.0068E-04_JPRB,5.9826E-04_JPRB,5.8320E-04_JPRB,&
1682 & 5.5480E-04_JPRB,5.0729E-04_JPRB,4.4582E-03_JPRB/) 
1683KAO( :, 4,13, 8) = (/&
1684 & 4.5948E-04_JPRB,5.6913E-04_JPRB,6.0860E-04_JPRB,6.2380E-04_JPRB,6.2384E-04_JPRB,6.1098E-04_JPRB,&
1685 & 5.8363E-04_JPRB,5.3555E-04_JPRB,4.3840E-03_JPRB/) 
1686KAO( :, 5,13, 8) = (/&
1687 & 4.6648E-04_JPRB,5.8526E-04_JPRB,6.2843E-04_JPRB,6.4682E-04_JPRB,6.4977E-04_JPRB,6.3953E-04_JPRB,&
1688 & 6.1349E-04_JPRB,5.6436E-04_JPRB,4.3301E-03_JPRB/) 
1689KAO( :, 1, 1, 9) = (/&
1690 & 4.2634E-03_JPRB,4.4619E-03_JPRB,4.8277E-03_JPRB,5.0574E-03_JPRB,5.1432E-03_JPRB,5.0824E-03_JPRB,&
1691 & 4.7995E-03_JPRB,4.2519E-03_JPRB,3.6751E-03_JPRB/) 
1692KAO( :, 2, 1, 9) = (/&
1693 & 4.3896E-03_JPRB,4.7056E-03_JPRB,5.1713E-03_JPRB,5.4539E-03_JPRB,5.5796E-03_JPRB,5.5445E-03_JPRB,&
1694 & 5.2467E-03_JPRB,4.6622E-03_JPRB,4.1226E-03_JPRB/) 
1695KAO( :, 3, 1, 9) = (/&
1696 & 4.5152E-03_JPRB,4.9543E-03_JPRB,5.5160E-03_JPRB,5.8544E-03_JPRB,6.0168E-03_JPRB,5.9967E-03_JPRB,&
1697 & 5.6895E-03_JPRB,5.0855E-03_JPRB,4.6113E-03_JPRB/) 
1698KAO( :, 4, 1, 9) = (/&
1699 & 4.6230E-03_JPRB,5.1933E-03_JPRB,5.8501E-03_JPRB,6.2450E-03_JPRB,6.4433E-03_JPRB,6.4316E-03_JPRB,&
1700 & 6.1283E-03_JPRB,5.5148E-03_JPRB,5.1307E-03_JPRB/) 
1701KAO( :, 5, 1, 9) = (/&
1702 & 4.7302E-03_JPRB,5.4309E-03_JPRB,6.1815E-03_JPRB,6.6303E-03_JPRB,6.8597E-03_JPRB,6.8605E-03_JPRB,&
1703 & 6.5693E-03_JPRB,5.9487E-03_JPRB,5.6753E-03_JPRB/) 
1704KAO( :, 1, 2, 9) = (/&
1705 & 3.9323E-03_JPRB,4.1568E-03_JPRB,4.4806E-03_JPRB,4.6618E-03_JPRB,4.7304E-03_JPRB,4.6715E-03_JPRB,&
1706 & 4.4161E-03_JPRB,3.9503E-03_JPRB,3.3395E-03_JPRB/) 
1707KAO( :, 2, 2, 9) = (/&
1708 & 4.0500E-03_JPRB,4.3934E-03_JPRB,4.8123E-03_JPRB,5.0480E-03_JPRB,5.1574E-03_JPRB,5.1013E-03_JPRB,&
1709 & 4.8274E-03_JPRB,4.3142E-03_JPRB,3.7073E-03_JPRB/) 
1710KAO( :, 3, 2, 9) = (/&
1711 & 4.1698E-03_JPRB,4.6359E-03_JPRB,5.1475E-03_JPRB,5.4370E-03_JPRB,5.5831E-03_JPRB,5.5288E-03_JPRB,&
1712 & 5.2416E-03_JPRB,4.6953E-03_JPRB,4.1146E-03_JPRB/) 
1713KAO( :, 4, 2, 9) = (/&
1714 & 4.2783E-03_JPRB,4.8739E-03_JPRB,5.4745E-03_JPRB,5.8228E-03_JPRB,5.9955E-03_JPRB,5.9514E-03_JPRB,&
1715 & 5.6672E-03_JPRB,5.0790E-03_JPRB,4.5488E-03_JPRB/) 
1716KAO( :, 5, 2, 9) = (/&
1717 & 4.3743E-03_JPRB,5.1081E-03_JPRB,5.7929E-03_JPRB,6.1965E-03_JPRB,6.3958E-03_JPRB,6.3715E-03_JPRB,&
1718 & 6.0950E-03_JPRB,5.4684E-03_JPRB,5.0068E-03_JPRB/) 
1719KAO( :, 1, 3, 9) = (/&
1720 & 3.6113E-03_JPRB,3.8183E-03_JPRB,4.0778E-03_JPRB,4.1984E-03_JPRB,4.2534E-03_JPRB,4.2158E-03_JPRB,&
1721 & 4.0193E-03_JPRB,3.6415E-03_JPRB,3.0570E-03_JPRB/) 
1722KAO( :, 2, 3, 9) = (/&
1723 & 3.7209E-03_JPRB,4.0412E-03_JPRB,4.3896E-03_JPRB,4.5667E-03_JPRB,4.6475E-03_JPRB,4.5983E-03_JPRB,&
1724 & 4.3872E-03_JPRB,3.9635E-03_JPRB,3.3466E-03_JPRB/) 
1725KAO( :, 3, 3, 9) = (/&
1726 & 3.8298E-03_JPRB,4.2704E-03_JPRB,4.6995E-03_JPRB,4.9388E-03_JPRB,5.0426E-03_JPRB,4.9845E-03_JPRB,&
1727 & 4.7617E-03_JPRB,4.3009E-03_JPRB,3.6653E-03_JPRB/) 
1728KAO( :, 4, 3, 9) = (/&
1729 & 3.9362E-03_JPRB,4.5071E-03_JPRB,5.0123E-03_JPRB,5.3097E-03_JPRB,5.4362E-03_JPRB,5.3784E-03_JPRB,&
1730 & 5.1527E-03_JPRB,4.6419E-03_JPRB,4.0116E-03_JPRB/) 
1731KAO( :, 5, 3, 9) = (/&
1732 & 4.0246E-03_JPRB,4.7366E-03_JPRB,5.3187E-03_JPRB,5.6677E-03_JPRB,5.8209E-03_JPRB,5.7784E-03_JPRB,&
1733 & 5.5482E-03_JPRB,4.9812E-03_JPRB,4.3840E-03_JPRB/) 
1734KAO( :, 1, 4, 9) = (/&
1735 & 3.3284E-03_JPRB,3.4973E-03_JPRB,3.6827E-03_JPRB,3.7696E-03_JPRB,3.8145E-03_JPRB,3.7973E-03_JPRB,&
1736 & 3.6757E-03_JPRB,3.3953E-03_JPRB,2.8711E-03_JPRB/) 
1737KAO( :, 2, 4, 9) = (/&
1738 & 3.4305E-03_JPRB,3.7049E-03_JPRB,3.9652E-03_JPRB,4.1049E-03_JPRB,4.1671E-03_JPRB,4.1383E-03_JPRB,&
1739 & 3.9965E-03_JPRB,3.6722E-03_JPRB,3.0945E-03_JPRB/) 
1740KAO( :, 3, 4, 9) = (/&
1741 & 3.5295E-03_JPRB,3.9206E-03_JPRB,4.2522E-03_JPRB,4.4452E-03_JPRB,4.5189E-03_JPRB,4.4874E-03_JPRB,&
1742 & 4.3285E-03_JPRB,3.9676E-03_JPRB,3.3441E-03_JPRB/) 
1743KAO( :, 4, 4, 9) = (/&
1744 & 3.6215E-03_JPRB,4.1396E-03_JPRB,4.5422E-03_JPRB,4.7812E-03_JPRB,4.8736E-03_JPRB,4.8440E-03_JPRB,&
1745 & 4.6768E-03_JPRB,4.2674E-03_JPRB,3.6212E-03_JPRB/) 
1746KAO( :, 5, 4, 9) = (/&
1747 & 3.7121E-03_JPRB,4.3594E-03_JPRB,4.8380E-03_JPRB,5.1176E-03_JPRB,5.2295E-03_JPRB,5.2140E-03_JPRB,&
1748 & 5.0347E-03_JPRB,4.5696E-03_JPRB,3.9241E-03_JPRB/) 
1749KAO( :, 1, 5, 9) = (/&
1750 & 3.0937E-03_JPRB,3.2190E-03_JPRB,3.3382E-03_JPRB,3.4069E-03_JPRB,3.4508E-03_JPRB,3.4576E-03_JPRB,&
1751 & 3.4038E-03_JPRB,3.2121E-03_JPRB,2.7159E-03_JPRB/) 
1752KAO( :, 2, 5, 9) = (/&
1753 & 3.1841E-03_JPRB,3.4102E-03_JPRB,3.5885E-03_JPRB,3.6988E-03_JPRB,3.7561E-03_JPRB,3.7570E-03_JPRB,&
1754 & 3.6806E-03_JPRB,3.4524E-03_JPRB,2.9248E-03_JPRB/) 
1755KAO( :, 3, 5, 9) = (/&
1756 & 3.2704E-03_JPRB,3.6051E-03_JPRB,3.8485E-03_JPRB,3.9980E-03_JPRB,4.0672E-03_JPRB,4.0649E-03_JPRB,&
1757 & 3.9688E-03_JPRB,3.7070E-03_JPRB,3.1394E-03_JPRB/) 
1758KAO( :, 4, 5, 9) = (/&
1759 & 3.3530E-03_JPRB,3.8023E-03_JPRB,4.1127E-03_JPRB,4.2944E-03_JPRB,4.3822E-03_JPRB,4.3830E-03_JPRB,&
1760 & 4.2728E-03_JPRB,3.9665E-03_JPRB,3.3644E-03_JPRB/) 
1761KAO( :, 5, 5, 9) = (/&
1762 & 3.4386E-03_JPRB,4.0026E-03_JPRB,4.3842E-03_JPRB,4.5975E-03_JPRB,4.7014E-03_JPRB,4.7133E-03_JPRB,&
1763 & 4.5874E-03_JPRB,4.2339E-03_JPRB,3.6103E-03_JPRB/) 
1764KAO( :, 1, 6, 9) = (/&
1765 & 2.9009E-03_JPRB,2.9757E-03_JPRB,3.0499E-03_JPRB,3.1038E-03_JPRB,3.1541E-03_JPRB,3.1847E-03_JPRB,&
1766 & 3.1836E-03_JPRB,3.0557E-03_JPRB,2.5583E-03_JPRB/) 
1767KAO( :, 2, 6, 9) = (/&
1768 & 2.9774E-03_JPRB,3.1460E-03_JPRB,3.2679E-03_JPRB,3.3537E-03_JPRB,3.4147E-03_JPRB,3.4421E-03_JPRB,&
1769 & 3.4203E-03_JPRB,3.2723E-03_JPRB,2.7519E-03_JPRB/) 
1770KAO( :, 3, 6, 9) = (/&
1771 & 3.0522E-03_JPRB,3.3185E-03_JPRB,3.4964E-03_JPRB,3.6100E-03_JPRB,3.6827E-03_JPRB,3.7087E-03_JPRB,&
1772 & 3.6668E-03_JPRB,3.4927E-03_JPRB,2.9536E-03_JPRB/) 
1773KAO( :, 4, 6, 9) = (/&
1774 & 3.1282E-03_JPRB,3.4957E-03_JPRB,3.7291E-03_JPRB,3.8695E-03_JPRB,3.9556E-03_JPRB,3.9847E-03_JPRB,&
1775 & 3.9266E-03_JPRB,3.7176E-03_JPRB,3.1650E-03_JPRB/) 
1776KAO( :, 5, 6, 9) = (/&
1777 & 3.1999E-03_JPRB,3.6746E-03_JPRB,3.9646E-03_JPRB,4.1331E-03_JPRB,4.2341E-03_JPRB,4.2712E-03_JPRB,&
1778 & 4.1979E-03_JPRB,3.9512E-03_JPRB,3.3876E-03_JPRB/) 
1779KAO( :, 1, 7, 9) = (/&
1780 & 2.7415E-03_JPRB,2.7746E-03_JPRB,2.8210E-03_JPRB,2.8741E-03_JPRB,2.9327E-03_JPRB,2.9829E-03_JPRB,&
1781 & 2.9928E-03_JPRB,2.8802E-03_JPRB,2.4517E-03_JPRB/) 
1782KAO( :, 2, 7, 9) = (/&
1783 & 2.8079E-03_JPRB,2.9223E-03_JPRB,3.0084E-03_JPRB,3.0853E-03_JPRB,3.1485E-03_JPRB,3.1999E-03_JPRB,&
1784 & 3.2078E-03_JPRB,3.0910E-03_JPRB,2.6310E-03_JPRB/) 
1785KAO( :, 3, 7, 9) = (/&
1786 & 2.8746E-03_JPRB,3.0732E-03_JPRB,3.2043E-03_JPRB,3.3040E-03_JPRB,3.3751E-03_JPRB,3.4239E-03_JPRB,&
1787 & 3.4236E-03_JPRB,3.2999E-03_JPRB,2.8151E-03_JPRB/) 
1788KAO( :, 4, 7, 9) = (/&
1789 & 2.9412E-03_JPRB,3.2304E-03_JPRB,3.4053E-03_JPRB,3.5266E-03_JPRB,3.6086E-03_JPRB,3.6573E-03_JPRB,&
1790 & 3.6460E-03_JPRB,3.5085E-03_JPRB,3.0037E-03_JPRB/) 
1791KAO( :, 5, 7, 9) = (/&
1792 & 3.0012E-03_JPRB,3.3903E-03_JPRB,3.6088E-03_JPRB,3.7519E-03_JPRB,3.8465E-03_JPRB,3.9004E-03_JPRB,&
1793 & 3.8789E-03_JPRB,3.7197E-03_JPRB,3.2035E-03_JPRB/) 
1794KAO( :, 1, 8, 9) = (/&
1795 & 2.6011E-03_JPRB,2.6087E-03_JPRB,2.6505E-03_JPRB,2.7115E-03_JPRB,2.7795E-03_JPRB,2.8145E-03_JPRB,&
1796 & 2.7964E-03_JPRB,2.6829E-03_JPRB,2.5124E-03_JPRB/) 
1797KAO( :, 2, 8, 9) = (/&
1798 & 2.6605E-03_JPRB,2.7384E-03_JPRB,2.8102E-03_JPRB,2.8876E-03_JPRB,2.9588E-03_JPRB,3.0106E-03_JPRB,&
1799 & 2.9995E-03_JPRB,2.8886E-03_JPRB,2.6866E-03_JPRB/) 
1800KAO( :, 3, 8, 9) = (/&
1801 & 2.7221E-03_JPRB,2.8708E-03_JPRB,2.9770E-03_JPRB,3.0697E-03_JPRB,3.1469E-03_JPRB,3.2045E-03_JPRB,&
1802 & 3.2054E-03_JPRB,3.0872E-03_JPRB,2.8608E-03_JPRB/) 
1803KAO( :, 4, 8, 9) = (/&
1804 & 2.7814E-03_JPRB,3.0087E-03_JPRB,3.1469E-03_JPRB,3.2564E-03_JPRB,3.3407E-03_JPRB,3.4007E-03_JPRB,&
1805 & 3.4134E-03_JPRB,3.2854E-03_JPRB,3.0367E-03_JPRB/) 
1806KAO( :, 5, 8, 9) = (/&
1807 & 2.8334E-03_JPRB,3.1463E-03_JPRB,3.3224E-03_JPRB,3.4471E-03_JPRB,3.5390E-03_JPRB,3.6049E-03_JPRB,&
1808 & 3.6218E-03_JPRB,3.4862E-03_JPRB,3.2148E-03_JPRB/) 
1809KAO( :, 1, 9, 9) = (/&
1810 & 2.4681E-03_JPRB,2.4670E-03_JPRB,2.5193E-03_JPRB,2.5927E-03_JPRB,2.6437E-03_JPRB,2.6462E-03_JPRB,&
1811 & 2.5937E-03_JPRB,2.4688E-03_JPRB,4.0106E-03_JPRB/) 
1812KAO( :, 2, 9, 9) = (/&
1813 & 2.5243E-03_JPRB,2.5823E-03_JPRB,2.6553E-03_JPRB,2.7401E-03_JPRB,2.8086E-03_JPRB,2.8274E-03_JPRB,&
1814 & 2.7863E-03_JPRB,2.6637E-03_JPRB,4.1870E-03_JPRB/) 
1815KAO( :, 3, 9, 9) = (/&
1816 & 2.5817E-03_JPRB,2.6985E-03_JPRB,2.7975E-03_JPRB,2.8934E-03_JPRB,2.9743E-03_JPRB,3.0076E-03_JPRB,&
1817 & 2.9804E-03_JPRB,2.8541E-03_JPRB,4.3637E-03_JPRB/) 
1818KAO( :, 4, 9, 9) = (/&
1819 & 2.6357E-03_JPRB,2.8178E-03_JPRB,2.9439E-03_JPRB,3.0496E-03_JPRB,3.1384E-03_JPRB,3.1881E-03_JPRB,&
1820 & 3.1729E-03_JPRB,3.0435E-03_JPRB,4.5427E-03_JPRB/) 
1821KAO( :, 5, 9, 9) = (/&
1822 & 2.6826E-03_JPRB,2.9379E-03_JPRB,3.0923E-03_JPRB,3.2096E-03_JPRB,3.3016E-03_JPRB,3.3682E-03_JPRB,&
1823 & 3.3659E-03_JPRB,3.2338E-03_JPRB,4.7326E-03_JPRB/) 
1824KAO( :, 1,10, 9) = (/&
1825 & 2.3365E-03_JPRB,2.3445E-03_JPRB,2.4180E-03_JPRB,2.4933E-03_JPRB,2.5143E-03_JPRB,2.4864E-03_JPRB,&
1826 & 2.4076E-03_JPRB,2.2631E-03_JPRB,1.0002E-02_JPRB/) 
1827KAO( :, 2,10, 9) = (/&
1828 & 2.3916E-03_JPRB,2.4482E-03_JPRB,2.5366E-03_JPRB,2.6275E-03_JPRB,2.6688E-03_JPRB,2.6554E-03_JPRB,&
1829 & 2.5866E-03_JPRB,2.4438E-03_JPRB,1.0188E-02_JPRB/) 
1830KAO( :, 3,10, 9) = (/&
1831 & 2.4458E-03_JPRB,2.5525E-03_JPRB,2.6602E-03_JPRB,2.7640E-03_JPRB,2.8222E-03_JPRB,2.8241E-03_JPRB,&
1832 & 2.7676E-03_JPRB,2.6219E-03_JPRB,1.0447E-02_JPRB/) 
1833KAO( :, 4,10, 9) = (/&
1834 & 2.4945E-03_JPRB,2.6579E-03_JPRB,2.7873E-03_JPRB,2.8998E-03_JPRB,2.9729E-03_JPRB,2.9898E-03_JPRB,&
1835 & 2.9465E-03_JPRB,2.7998E-03_JPRB,1.0769E-02_JPRB/) 
1836KAO( :, 5,10, 9) = (/&
1837 & 2.5382E-03_JPRB,2.7637E-03_JPRB,2.9128E-03_JPRB,3.0348E-03_JPRB,3.1210E-03_JPRB,3.1536E-03_JPRB,&
1838 & 3.1245E-03_JPRB,2.9806E-03_JPRB,1.1144E-02_JPRB/) 
1839KAO( :, 1,11, 9) = (/&
1840 & 2.2189E-03_JPRB,2.2637E-03_JPRB,2.3663E-03_JPRB,2.4375E-03_JPRB,2.4436E-03_JPRB,2.3971E-03_JPRB,&
1841 & 2.2998E-03_JPRB,2.1349E-03_JPRB,1.4165E-02_JPRB/) 
1842KAO( :, 2,11, 9) = (/&
1843 & 2.2725E-03_JPRB,2.3594E-03_JPRB,2.4775E-03_JPRB,2.5648E-03_JPRB,2.5873E-03_JPRB,2.5525E-03_JPRB,&
1844 & 2.4655E-03_JPRB,2.2999E-03_JPRB,1.4362E-02_JPRB/) 
1845KAO( :, 3,11, 9) = (/&
1846 & 2.3225E-03_JPRB,2.4563E-03_JPRB,2.5905E-03_JPRB,2.6905E-03_JPRB,2.7282E-03_JPRB,2.7081E-03_JPRB,&
1847 & 2.6314E-03_JPRB,2.4622E-03_JPRB,1.4689E-02_JPRB/) 
1848
1849IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',1,ZHOOK_HANDLE)
1850END SUBROUTINE PART6
1851
1852
1853SUBROUTINE PART7
1854
1855REAL(KIND=JPRB) :: ZHOOK_HANDLE
1856IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',0,ZHOOK_HANDLE)
1857
1858
1859KAO( :, 4,11, 9) = (/&
1860 & 2.3671E-03_JPRB,2.5537E-03_JPRB,2.7011E-03_JPRB,2.8153E-03_JPRB,2.8667E-03_JPRB,2.8616E-03_JPRB,&
1861 & 2.7947E-03_JPRB,2.6271E-03_JPRB,1.5129E-02_JPRB/) 
1862KAO( :, 5,11, 9) = (/&
1863 & 2.4082E-03_JPRB,2.6482E-03_JPRB,2.8083E-03_JPRB,2.9363E-03_JPRB,3.0040E-03_JPRB,3.0155E-03_JPRB,&
1864 & 2.9597E-03_JPRB,2.7977E-03_JPRB,1.5652E-02_JPRB/) 
1865KAO( :, 1,12, 9) = (/&
1866 & 2.0910E-03_JPRB,2.1698E-03_JPRB,2.2939E-03_JPRB,2.3579E-03_JPRB,2.3558E-03_JPRB,2.2934E-03_JPRB,&
1867 & 2.1816E-03_JPRB,2.0022E-03_JPRB,1.5828E-02_JPRB/) 
1868KAO( :, 2,12, 9) = (/&
1869 & 2.1414E-03_JPRB,2.2595E-03_JPRB,2.4019E-03_JPRB,2.4797E-03_JPRB,2.4872E-03_JPRB,2.4364E-03_JPRB,&
1870 & 2.3325E-03_JPRB,2.1497E-03_JPRB,1.6052E-02_JPRB/) 
1871KAO( :, 3,12, 9) = (/&
1872 & 2.1876E-03_JPRB,2.3512E-03_JPRB,2.5089E-03_JPRB,2.5983E-03_JPRB,2.6170E-03_JPRB,2.5791E-03_JPRB,&
1873 & 2.4816E-03_JPRB,2.2977E-03_JPRB,1.6424E-02_JPRB/) 
1874KAO( :, 4,12, 9) = (/&
1875 & 2.2305E-03_JPRB,2.4411E-03_JPRB,2.6103E-03_JPRB,2.7123E-03_JPRB,2.7468E-03_JPRB,2.7221E-03_JPRB,&
1876 & 2.6302E-03_JPRB,2.4491E-03_JPRB,1.6928E-02_JPRB/) 
1877KAO( :, 5,12, 9) = (/&
1878 & 2.2685E-03_JPRB,2.5264E-03_JPRB,2.7071E-03_JPRB,2.8237E-03_JPRB,2.8760E-03_JPRB,2.8651E-03_JPRB,&
1879 & 2.7812E-03_JPRB,2.6061E-03_JPRB,1.7523E-02_JPRB/) 
1880KAO( :, 1,13, 9) = (/&
1881 & 1.9577E-03_JPRB,2.0704E-03_JPRB,2.2038E-03_JPRB,2.2584E-03_JPRB,2.2491E-03_JPRB,2.1789E-03_JPRB,&
1882 & 2.0585E-03_JPRB,1.8702E-03_JPRB,1.4483E-02_JPRB/) 
1883KAO( :, 2,13, 9) = (/&
1884 & 2.0058E-03_JPRB,2.1546E-03_JPRB,2.3069E-03_JPRB,2.3735E-03_JPRB,2.3721E-03_JPRB,2.3101E-03_JPRB,&
1885 & 2.1933E-03_JPRB,2.0001E-03_JPRB,1.4716E-02_JPRB/) 
1886KAO( :, 3,13, 9) = (/&
1887 & 2.0506E-03_JPRB,2.2392E-03_JPRB,2.4060E-03_JPRB,2.4864E-03_JPRB,2.4932E-03_JPRB,2.4402E-03_JPRB,&
1888 & 2.3277E-03_JPRB,2.1324E-03_JPRB,1.5081E-02_JPRB/) 
1889KAO( :, 4,13, 9) = (/&
1890 & 2.0915E-03_JPRB,2.3209E-03_JPRB,2.5015E-03_JPRB,2.5952E-03_JPRB,2.6152E-03_JPRB,2.5711E-03_JPRB,&
1891 & 2.4622E-03_JPRB,2.2684E-03_JPRB,1.5556E-02_JPRB/) 
1892KAO( :, 5,13, 9) = (/&
1893 & 2.1275E-03_JPRB,2.3984E-03_JPRB,2.5936E-03_JPRB,2.7019E-03_JPRB,2.7369E-03_JPRB,2.7034E-03_JPRB,&
1894 & 2.5998E-03_JPRB,2.4103E-03_JPRB,1.6100E-02_JPRB/) 
1895KAO( :, 1, 1,10) = (/&
1896 & 1.7685E-02_JPRB,1.5886E-02_JPRB,1.5286E-02_JPRB,1.4910E-02_JPRB,1.4213E-02_JPRB,1.2872E-02_JPRB,&
1897 & 1.1554E-02_JPRB,9.7299E-03_JPRB,9.7670E-03_JPRB/) 
1898KAO( :, 2, 1,10) = (/&
1899 & 1.7924E-02_JPRB,1.6198E-02_JPRB,1.5800E-02_JPRB,1.5762E-02_JPRB,1.5013E-02_JPRB,1.3648E-02_JPRB,&
1900 & 1.2502E-02_JPRB,1.0682E-02_JPRB,1.1264E-02_JPRB/) 
1901KAO( :, 3, 1,10) = (/&
1902 & 1.8162E-02_JPRB,1.6493E-02_JPRB,1.6320E-02_JPRB,1.6501E-02_JPRB,1.5785E-02_JPRB,1.4461E-02_JPRB,&
1903 & 1.3394E-02_JPRB,1.1688E-02_JPRB,1.2766E-02_JPRB/) 
1904KAO( :, 4, 1,10) = (/&
1905 & 1.8373E-02_JPRB,1.6799E-02_JPRB,1.6869E-02_JPRB,1.7132E-02_JPRB,1.6537E-02_JPRB,1.5302E-02_JPRB,&
1906 & 1.4231E-02_JPRB,1.2873E-02_JPRB,1.4298E-02_JPRB/) 
1907KAO( :, 5, 1,10) = (/&
1908 & 1.8575E-02_JPRB,1.7109E-02_JPRB,1.7449E-02_JPRB,1.7721E-02_JPRB,1.7274E-02_JPRB,1.6125E-02_JPRB,&
1909 & 1.4995E-02_JPRB,1.4230E-02_JPRB,1.5931E-02_JPRB/) 
1910KAO( :, 1, 2,10) = (/&
1911 & 1.6873E-02_JPRB,1.5273E-02_JPRB,1.4928E-02_JPRB,1.4779E-02_JPRB,1.3931E-02_JPRB,1.2662E-02_JPRB,&
1912 & 1.1382E-02_JPRB,9.2864E-03_JPRB,8.6917E-03_JPRB/) 
1913KAO( :, 2, 2,10) = (/&
1914 & 1.7158E-02_JPRB,1.5636E-02_JPRB,1.5517E-02_JPRB,1.5568E-02_JPRB,1.4735E-02_JPRB,1.3617E-02_JPRB,&
1915 & 1.2343E-02_JPRB,1.0165E-02_JPRB,1.0091E-02_JPRB/) 
1916KAO( :, 3, 2,10) = (/&
1917 & 1.7424E-02_JPRB,1.6018E-02_JPRB,1.6130E-02_JPRB,1.6288E-02_JPRB,1.5522E-02_JPRB,1.4562E-02_JPRB,&
1918 & 1.3276E-02_JPRB,1.1047E-02_JPRB,1.1539E-02_JPRB/) 
1919KAO( :, 4, 2,10) = (/&
1920 & 1.7705E-02_JPRB,1.6391E-02_JPRB,1.6775E-02_JPRB,1.6913E-02_JPRB,1.6383E-02_JPRB,1.5440E-02_JPRB,&
1921 & 1.4111E-02_JPRB,1.2115E-02_JPRB,1.3109E-02_JPRB/) 
1922KAO( :, 5, 2,10) = (/&
1923 & 1.7946E-02_JPRB,1.6730E-02_JPRB,1.7389E-02_JPRB,1.7560E-02_JPRB,1.7230E-02_JPRB,1.6260E-02_JPRB,&
1924 & 1.4862E-02_JPRB,1.3377E-02_JPRB,1.4792E-02_JPRB/) 
1925KAO( :, 1, 3,10) = (/&
1926 & 1.5798E-02_JPRB,1.4431E-02_JPRB,1.4230E-02_JPRB,1.4159E-02_JPRB,1.3349E-02_JPRB,1.2204E-02_JPRB,&
1927 & 1.0867E-02_JPRB,8.8000E-03_JPRB,7.4513E-03_JPRB/) 
1928KAO( :, 2, 3,10) = (/&
1929 & 1.6121E-02_JPRB,1.4897E-02_JPRB,1.4916E-02_JPRB,1.4922E-02_JPRB,1.4162E-02_JPRB,1.3251E-02_JPRB,&
1930 & 1.1847E-02_JPRB,9.5823E-03_JPRB,8.7330E-03_JPRB/) 
1931KAO( :, 3, 3,10) = (/&
1932 & 1.6462E-02_JPRB,1.5342E-02_JPRB,1.5618E-02_JPRB,1.5620E-02_JPRB,1.5015E-02_JPRB,1.4282E-02_JPRB,&
1933 & 1.2797E-02_JPRB,1.0384E-02_JPRB,1.0179E-02_JPRB/) 
1934KAO( :, 4, 3,10) = (/&
1935 & 1.6798E-02_JPRB,1.5765E-02_JPRB,1.6290E-02_JPRB,1.6289E-02_JPRB,1.5973E-02_JPRB,1.5269E-02_JPRB,&
1936 & 1.3672E-02_JPRB,1.1383E-02_JPRB,1.1725E-02_JPRB/) 
1937KAO( :, 5, 3,10) = (/&
1938 & 1.7062E-02_JPRB,1.6131E-02_JPRB,1.6868E-02_JPRB,1.7006E-02_JPRB,1.6890E-02_JPRB,1.6143E-02_JPRB,&
1939 & 1.4482E-02_JPRB,1.2538E-02_JPRB,1.3312E-02_JPRB/) 
1940KAO( :, 1, 4,10) = (/&
1941 & 1.4564E-02_JPRB,1.3497E-02_JPRB,1.3366E-02_JPRB,1.3251E-02_JPRB,1.2600E-02_JPRB,1.1517E-02_JPRB,&
1942 & 1.0115E-02_JPRB,8.2572E-03_JPRB,6.3788E-03_JPRB/) 
1943KAO( :, 2, 4,10) = (/&
1944 & 1.4956E-02_JPRB,1.4021E-02_JPRB,1.4143E-02_JPRB,1.3989E-02_JPRB,1.3446E-02_JPRB,1.2579E-02_JPRB,&
1945 & 1.1185E-02_JPRB,9.0656E-03_JPRB,7.4847E-03_JPRB/) 
1946KAO( :, 3, 4,10) = (/&
1947 & 1.5366E-02_JPRB,1.4523E-02_JPRB,1.4865E-02_JPRB,1.4686E-02_JPRB,1.4396E-02_JPRB,1.3630E-02_JPRB,&
1948 & 1.2209E-02_JPRB,9.8300E-03_JPRB,8.7484E-03_JPRB/) 
1949KAO( :, 4, 4,10) = (/&
1950 & 1.5673E-02_JPRB,1.4963E-02_JPRB,1.5538E-02_JPRB,1.5419E-02_JPRB,1.5384E-02_JPRB,1.4661E-02_JPRB,&
1951 & 1.3123E-02_JPRB,1.0681E-02_JPRB,1.0095E-02_JPRB/) 
1952KAO( :, 5, 4,10) = (/&
1953 & 1.5927E-02_JPRB,1.5374E-02_JPRB,1.6106E-02_JPRB,1.6246E-02_JPRB,1.6331E-02_JPRB,1.5570E-02_JPRB,&
1954 & 1.3997E-02_JPRB,1.1612E-02_JPRB,1.1475E-02_JPRB/) 
1955KAO( :, 1, 5,10) = (/&
1956 & 1.3266E-02_JPRB,1.2466E-02_JPRB,1.2400E-02_JPRB,1.2242E-02_JPRB,1.1629E-02_JPRB,1.0628E-02_JPRB,&
1957 & 9.2898E-03_JPRB,7.6240E-03_JPRB,5.9670E-03_JPRB/) 
1958KAO( :, 2, 5,10) = (/&
1959 & 1.3732E-02_JPRB,1.3052E-02_JPRB,1.3208E-02_JPRB,1.3005E-02_JPRB,1.2522E-02_JPRB,1.1685E-02_JPRB,&
1960 & 1.0389E-02_JPRB,8.4463E-03_JPRB,6.6100E-03_JPRB/) 
1961KAO( :, 3, 5,10) = (/&
1962 & 1.4084E-02_JPRB,1.3547E-02_JPRB,1.3938E-02_JPRB,1.3750E-02_JPRB,1.3484E-02_JPRB,1.2725E-02_JPRB,&
1963 & 1.1484E-02_JPRB,9.2095E-03_JPRB,7.5100E-03_JPRB/) 
1964KAO( :, 4, 5,10) = (/&
1965 & 1.4380E-02_JPRB,1.4005E-02_JPRB,1.4577E-02_JPRB,1.4581E-02_JPRB,1.4467E-02_JPRB,1.3764E-02_JPRB,&
1966 & 1.2436E-02_JPRB,1.0053E-02_JPRB,8.5649E-03_JPRB/) 
1967KAO( :, 5, 5,10) = (/&
1968 & 1.4640E-02_JPRB,1.4480E-02_JPRB,1.5153E-02_JPRB,1.5470E-02_JPRB,1.5438E-02_JPRB,1.4721E-02_JPRB,&
1969 & 1.3356E-02_JPRB,1.0839E-02_JPRB,9.6988E-03_JPRB/) 
1970KAO( :, 1, 6,10) = (/&
1971 & 1.1942E-02_JPRB,1.1353E-02_JPRB,1.1339E-02_JPRB,1.1150E-02_JPRB,1.0468E-02_JPRB,9.5854E-03_JPRB,&
1972 & 8.3811E-03_JPRB,7.0885E-03_JPRB,5.8798E-03_JPRB/) 
1973KAO( :, 2, 6,10) = (/&
1974 & 1.2358E-02_JPRB,1.1922E-02_JPRB,1.2141E-02_JPRB,1.1920E-02_JPRB,1.1378E-02_JPRB,1.0610E-02_JPRB,&
1975 & 9.4501E-03_JPRB,7.7713E-03_JPRB,6.4066E-03_JPRB/) 
1976KAO( :, 3, 6,10) = (/&
1977 & 1.2698E-02_JPRB,1.2427E-02_JPRB,1.2838E-02_JPRB,1.2735E-02_JPRB,1.2366E-02_JPRB,1.1633E-02_JPRB,&
1978 & 1.0517E-02_JPRB,8.4962E-03_JPRB,6.9615E-03_JPRB/) 
1979KAO( :, 4, 6,10) = (/&
1980 & 1.2998E-02_JPRB,1.2956E-02_JPRB,1.3432E-02_JPRB,1.3603E-02_JPRB,1.3351E-02_JPRB,1.2693E-02_JPRB,&
1981 & 1.1517E-02_JPRB,9.2932E-03_JPRB,7.5694E-03_JPRB/) 
1982KAO( :, 5, 6,10) = (/&
1983 & 1.3245E-02_JPRB,1.3459E-02_JPRB,1.4045E-02_JPRB,1.4501E-02_JPRB,1.4340E-02_JPRB,1.3672E-02_JPRB,&
1984 & 1.2434E-02_JPRB,1.0037E-02_JPRB,8.3088E-03_JPRB/) 
1985KAO( :, 1, 7,10) = (/&
1986 & 1.0635E-02_JPRB,1.0181E-02_JPRB,1.0247E-02_JPRB,9.9535E-03_JPRB,9.2688E-03_JPRB,8.4744E-03_JPRB,&
1987 & 7.6731E-03_JPRB,6.9595E-03_JPRB,5.7767E-03_JPRB/) 
1988KAO( :, 2, 7,10) = (/&
1989 & 1.1001E-02_JPRB,1.0731E-02_JPRB,1.1001E-02_JPRB,1.0727E-02_JPRB,1.0196E-02_JPRB,9.4273E-03_JPRB,&
1990 & 8.5283E-03_JPRB,7.4633E-03_JPRB,6.2551E-03_JPRB/) 
1991KAO( :, 3, 7,10) = (/&
1992 & 1.1326E-02_JPRB,1.1289E-02_JPRB,1.1647E-02_JPRB,1.1559E-02_JPRB,1.1156E-02_JPRB,1.0455E-02_JPRB,&
1993 & 9.4847E-03_JPRB,7.9997E-03_JPRB,6.7556E-03_JPRB/) 
1994KAO( :, 4, 7,10) = (/&
1995 & 1.1605E-02_JPRB,1.1840E-02_JPRB,1.2266E-02_JPRB,1.2419E-02_JPRB,1.2130E-02_JPRB,1.1514E-02_JPRB,&
1996 & 1.0422E-02_JPRB,8.6046E-03_JPRB,7.2812E-03_JPRB/) 
1997KAO( :, 5, 7,10) = (/&
1998 & 1.1846E-02_JPRB,1.2301E-02_JPRB,1.2939E-02_JPRB,1.3278E-02_JPRB,1.3141E-02_JPRB,1.2520E-02_JPRB,&
1999 & 1.1309E-02_JPRB,9.2291E-03_JPRB,7.8135E-03_JPRB/) 
2000KAO( :, 1, 8,10) = (/&
2001 & 9.5318E-03_JPRB,9.1400E-03_JPRB,9.1541E-03_JPRB,8.7469E-03_JPRB,8.1107E-03_JPRB,7.6844E-03_JPRB,&
2002 & 7.4790E-03_JPRB,6.8560E-03_JPRB,6.1100E-03_JPRB/) 
2003KAO( :, 2, 8,10) = (/&
2004 & 9.8513E-03_JPRB,9.6543E-03_JPRB,9.8221E-03_JPRB,9.4930E-03_JPRB,8.9990E-03_JPRB,8.4087E-03_JPRB,&
2005 & 8.1002E-03_JPRB,7.3297E-03_JPRB,6.5036E-03_JPRB/) 
2006KAO( :, 3, 8,10) = (/&
2007 & 1.0121E-02_JPRB,1.0183E-02_JPRB,1.0429E-02_JPRB,1.0295E-02_JPRB,9.9219E-03_JPRB,9.3052E-03_JPRB,&
2008 & 8.7495E-03_JPRB,7.8409E-03_JPRB,6.8133E-03_JPRB/) 
2009KAO( :, 4, 8,10) = (/&
2010 & 1.0342E-02_JPRB,1.0668E-02_JPRB,1.1072E-02_JPRB,1.1128E-02_JPRB,1.0881E-02_JPRB,1.0314E-02_JPRB,&
2011 & 9.4319E-03_JPRB,8.3379E-03_JPRB,7.1719E-03_JPRB/) 
2012KAO( :, 5, 8,10) = (/&
2013 & 1.0574E-02_JPRB,1.1111E-02_JPRB,1.1730E-02_JPRB,1.1969E-02_JPRB,1.1864E-02_JPRB,1.1283E-02_JPRB,&
2014 & 1.0148E-02_JPRB,8.8068E-03_JPRB,7.6246E-03_JPRB/) 
2015KAO( :, 1, 9,10) = (/&
2016 & 8.6979E-03_JPRB,8.3079E-03_JPRB,8.1722E-03_JPRB,7.6777E-03_JPRB,7.3529E-03_JPRB,7.3690E-03_JPRB,&
2017 & 7.3422E-03_JPRB,6.6830E-03_JPRB,8.5832E-03_JPRB/) 
2018KAO( :, 2, 9,10) = (/&
2019 & 8.9724E-03_JPRB,8.7731E-03_JPRB,8.7419E-03_JPRB,8.3348E-03_JPRB,7.9939E-03_JPRB,7.9020E-03_JPRB,&
2020 & 7.8887E-03_JPRB,7.1655E-03_JPRB,9.0283E-03_JPRB/) 
2021KAO( :, 3, 9,10) = (/&
2022 & 9.1636E-03_JPRB,9.2350E-03_JPRB,9.2903E-03_JPRB,9.0718E-03_JPRB,8.7389E-03_JPRB,8.5612E-03_JPRB,&
2023 & 8.4201E-03_JPRB,7.6462E-03_JPRB,9.4969E-03_JPRB/) 
2024KAO( :, 4, 9,10) = (/&
2025 & 9.3430E-03_JPRB,9.6411E-03_JPRB,9.8735E-03_JPRB,9.8458E-03_JPRB,9.5925E-03_JPRB,9.3082E-03_JPRB,&
2026 & 8.9479E-03_JPRB,8.0999E-03_JPRB,9.9701E-03_JPRB/) 
2027KAO( :, 5, 9,10) = (/&
2028 & 9.5543E-03_JPRB,1.0034E-02_JPRB,1.0504E-02_JPRB,1.0652E-02_JPRB,1.0546E-02_JPRB,1.0105E-02_JPRB,&
2029 & 9.4548E-03_JPRB,8.5503E-03_JPRB,1.0439E-02_JPRB/) 
2030KAO( :, 1,10,10) = (/&
2031 & 8.1157E-03_JPRB,7.6953E-03_JPRB,7.3856E-03_JPRB,7.0143E-03_JPRB,7.0934E-03_JPRB,7.1592E-03_JPRB,&
2032 & 7.1366E-03_JPRB,6.4736E-03_JPRB,2.5288E-02_JPRB/) 
2033KAO( :, 2,10,10) = (/&
2034 & 8.3228E-03_JPRB,8.1050E-03_JPRB,7.8899E-03_JPRB,7.5150E-03_JPRB,7.5383E-03_JPRB,7.6577E-03_JPRB,&
2035 & 7.6569E-03_JPRB,6.9536E-03_JPRB,2.5969E-02_JPRB/) 
2036KAO( :, 3,10,10) = (/&
2037 & 8.4638E-03_JPRB,8.4927E-03_JPRB,8.3732E-03_JPRB,8.1065E-03_JPRB,8.0674E-03_JPRB,8.2304E-03_JPRB,&
2038 & 8.1217E-03_JPRB,7.4527E-03_JPRB,2.6813E-02_JPRB/) 
2039KAO( :, 4,10,10) = (/&
2040 & 8.6251E-03_JPRB,8.8393E-03_JPRB,8.8777E-03_JPRB,8.7542E-03_JPRB,8.7078E-03_JPRB,8.8286E-03_JPRB,&
2041 & 8.6165E-03_JPRB,7.9058E-03_JPRB,2.7708E-02_JPRB/) 
2042KAO( :, 5,10,10) = (/&
2043 & 8.7883E-03_JPRB,9.2004E-03_JPRB,9.4445E-03_JPRB,9.4717E-03_JPRB,9.4479E-03_JPRB,9.4125E-03_JPRB,&
2044 & 9.0956E-03_JPRB,8.3203E-03_JPRB,2.8653E-02_JPRB/) 
2045KAO( :, 1,11,10) = (/&
2046 & 7.8501E-03_JPRB,7.4452E-03_JPRB,7.0342E-03_JPRB,6.9004E-03_JPRB,7.0570E-03_JPRB,7.1201E-03_JPRB,&
2047 & 7.0476E-03_JPRB,6.4243E-03_JPRB,4.0572E-02_JPRB/) 
2048KAO( :, 2,11,10) = (/&
2049 & 7.9753E-03_JPRB,7.7749E-03_JPRB,7.4240E-03_JPRB,7.3009E-03_JPRB,7.4854E-03_JPRB,7.6408E-03_JPRB,&
2050 & 7.5205E-03_JPRB,6.9049E-03_JPRB,4.1441E-02_JPRB/) 
2051KAO( :, 3,11,10) = (/&
2052 & 8.0806E-03_JPRB,8.0563E-03_JPRB,7.8316E-03_JPRB,7.7518E-03_JPRB,7.9930E-03_JPRB,8.1574E-03_JPRB,&
2053 & 7.9957E-03_JPRB,7.3976E-03_JPRB,4.2222E-02_JPRB/) 
2054KAO( :, 4,11,10) = (/&
2055 & 8.1992E-03_JPRB,8.3401E-03_JPRB,8.2986E-03_JPRB,8.2629E-03_JPRB,8.5167E-03_JPRB,8.6635E-03_JPRB,&
2056 & 8.4735E-03_JPRB,7.8541E-03_JPRB,4.3187E-02_JPRB/) 
2057KAO( :, 5,11,10) = (/&
2058 & 8.2878E-03_JPRB,8.6780E-03_JPRB,8.8506E-03_JPRB,8.8633E-03_JPRB,9.0484E-03_JPRB,9.1413E-03_JPRB,&
2059 & 8.9084E-03_JPRB,8.2746E-03_JPRB,4.4361E-02_JPRB/) 
2060KAO( :, 1,12,10) = (/&
2061 & 7.6139E-03_JPRB,7.2726E-03_JPRB,6.8850E-03_JPRB,6.9089E-03_JPRB,6.9663E-03_JPRB,7.0443E-03_JPRB,&
2062 & 6.8750E-03_JPRB,6.2469E-03_JPRB,4.8797E-02_JPRB/) 
2063KAO( :, 2,12,10) = (/&
2064 & 7.7194E-03_JPRB,7.5180E-03_JPRB,7.1615E-03_JPRB,7.2509E-03_JPRB,7.4345E-03_JPRB,7.5251E-03_JPRB,&
2065 & 7.3302E-03_JPRB,6.7269E-03_JPRB,4.9597E-02_JPRB/) 
2066KAO( :, 3,12,10) = (/&
2067 & 7.8184E-03_JPRB,7.7399E-03_JPRB,7.4810E-03_JPRB,7.6258E-03_JPRB,7.9008E-03_JPRB,7.9967E-03_JPRB,&
2068 & 7.8018E-03_JPRB,7.1947E-03_JPRB,5.0339E-02_JPRB/) 
2069KAO( :, 4,12,10) = (/&
2070 & 7.8914E-03_JPRB,7.9922E-03_JPRB,7.8923E-03_JPRB,8.0511E-03_JPRB,8.3449E-03_JPRB,8.4240E-03_JPRB,&
2071 & 8.2687E-03_JPRB,7.6521E-03_JPRB,5.1350E-02_JPRB/) 
2072KAO( :, 5,12,10) = (/&
2073 & 7.9507E-03_JPRB,8.2886E-03_JPRB,8.3628E-03_JPRB,8.5321E-03_JPRB,8.7647E-03_JPRB,8.8141E-03_JPRB,&
2074 & 8.7116E-03_JPRB,8.0986E-03_JPRB,5.2764E-02_JPRB/) 
2075KAO( :, 1,13,10) = (/&
2076 & 7.3158E-03_JPRB,7.0328E-03_JPRB,6.8235E-03_JPRB,6.9230E-03_JPRB,6.9064E-03_JPRB,6.8869E-03_JPRB,&
2077 & 6.6102E-03_JPRB,5.9534E-03_JPRB,4.6027E-02_JPRB/) 
2078KAO( :, 2,13,10) = (/&
2079 & 7.4278E-03_JPRB,7.2607E-03_JPRB,7.0591E-03_JPRB,7.2420E-03_JPRB,7.3482E-03_JPRB,7.3254E-03_JPRB,&
2080 & 7.0547E-03_JPRB,6.4187E-03_JPRB,4.6671E-02_JPRB/) 
2081KAO( :, 3,13,10) = (/&
2082 & 7.5295E-03_JPRB,7.4924E-03_JPRB,7.3494E-03_JPRB,7.5754E-03_JPRB,7.7630E-03_JPRB,7.7638E-03_JPRB,&
2083 & 7.4975E-03_JPRB,6.8755E-03_JPRB,4.7440E-02_JPRB/) 
2084KAO( :, 4,13,10) = (/&
2085 & 7.6080E-03_JPRB,7.7470E-03_JPRB,7.6819E-03_JPRB,7.9565E-03_JPRB,8.1173E-03_JPRB,8.1428E-03_JPRB,&
2086 & 7.9589E-03_JPRB,7.3493E-03_JPRB,4.8497E-02_JPRB/) 
2087KAO( :, 5,13,10) = (/&
2088 & 7.6817E-03_JPRB,8.0217E-03_JPRB,8.0425E-03_JPRB,8.3061E-03_JPRB,8.4701E-03_JPRB,8.5085E-03_JPRB,&
2089 & 8.3860E-03_JPRB,7.8301E-03_JPRB,4.9971E-02_JPRB/) 
2090KAO( :, 1, 1,11) = (/&
2091 & 2.7764E-02_JPRB,2.4426E-02_JPRB,2.1973E-02_JPRB,2.0093E-02_JPRB,1.8666E-02_JPRB,1.7278E-02_JPRB,&
2092 & 1.5087E-02_JPRB,1.3103E-02_JPRB,1.4300E-02_JPRB/) 
2093KAO( :, 2, 1,11) = (/&
2094 & 2.7963E-02_JPRB,2.4667E-02_JPRB,2.2450E-02_JPRB,2.0789E-02_JPRB,1.9549E-02_JPRB,1.8247E-02_JPRB,&
2095 & 1.6059E-02_JPRB,1.4781E-02_JPRB,1.6422E-02_JPRB/) 
2096KAO( :, 3, 1,11) = (/&
2097 & 2.8032E-02_JPRB,2.4854E-02_JPRB,2.2829E-02_JPRB,2.1504E-02_JPRB,2.0423E-02_JPRB,1.9213E-02_JPRB,&
2098 & 1.7147E-02_JPRB,1.6580E-02_JPRB,1.8603E-02_JPRB/) 
2099KAO( :, 4, 1,11) = (/&
2100 & 2.7908E-02_JPRB,2.4878E-02_JPRB,2.3088E-02_JPRB,2.2255E-02_JPRB,2.1236E-02_JPRB,2.0204E-02_JPRB,&
2101 & 1.8256E-02_JPRB,1.8454E-02_JPRB,2.0859E-02_JPRB/) 
2102KAO( :, 5, 1,11) = (/&
2103 & 2.7693E-02_JPRB,2.4833E-02_JPRB,2.3283E-02_JPRB,2.2953E-02_JPRB,2.2107E-02_JPRB,2.1010E-02_JPRB,&
2104 & 1.9343E-02_JPRB,2.0385E-02_JPRB,2.3144E-02_JPRB/) 
2105KAO( :, 1, 2,11) = (/&
2106 & 2.7646E-02_JPRB,2.4332E-02_JPRB,2.2092E-02_JPRB,2.0298E-02_JPRB,1.9042E-02_JPRB,1.7440E-02_JPRB,&
2107 & 1.5349E-02_JPRB,1.2664E-02_JPRB,1.3386E-02_JPRB/) 
2108KAO( :, 2, 2,11) = (/&
2109 & 2.7909E-02_JPRB,2.4672E-02_JPRB,2.2646E-02_JPRB,2.1214E-02_JPRB,2.0006E-02_JPRB,1.8412E-02_JPRB,&
2110 & 1.6391E-02_JPRB,1.4178E-02_JPRB,1.5546E-02_JPRB/) 
2111KAO( :, 3, 2,11) = (/&
2112 & 2.7965E-02_JPRB,2.4859E-02_JPRB,2.3085E-02_JPRB,2.2119E-02_JPRB,2.0910E-02_JPRB,1.9436E-02_JPRB,&
2113 & 1.7350E-02_JPRB,1.5867E-02_JPRB,1.7743E-02_JPRB/) 
2114KAO( :, 4, 2,11) = (/&
2115 & 2.7851E-02_JPRB,2.4932E-02_JPRB,2.3473E-02_JPRB,2.2951E-02_JPRB,2.1773E-02_JPRB,2.0509E-02_JPRB,&
2116 & 1.8306E-02_JPRB,1.7658E-02_JPRB,1.9938E-02_JPRB/) 
2117KAO( :, 5, 2,11) = (/&
2118 & 2.7716E-02_JPRB,2.4986E-02_JPRB,2.3872E-02_JPRB,2.3624E-02_JPRB,2.2685E-02_JPRB,2.1385E-02_JPRB,&
2119 & 1.9339E-02_JPRB,1.9475E-02_JPRB,2.2096E-02_JPRB/) 
2120KAO( :, 1, 3,11) = (/&
2121 & 2.7136E-02_JPRB,2.3913E-02_JPRB,2.1898E-02_JPRB,2.0239E-02_JPRB,1.8943E-02_JPRB,1.7255E-02_JPRB,&
2122 & 1.5286E-02_JPRB,1.1962E-02_JPRB,1.1731E-02_JPRB/) 
2123KAO( :, 2, 3,11) = (/&
2124 & 2.7384E-02_JPRB,2.4261E-02_JPRB,2.2497E-02_JPRB,2.1296E-02_JPRB,2.0064E-02_JPRB,1.8265E-02_JPRB,&
2125 & 1.6402E-02_JPRB,1.3201E-02_JPRB,1.3756E-02_JPRB/) 
2126KAO( :, 3, 3,11) = (/&
2127 & 2.7424E-02_JPRB,2.4494E-02_JPRB,2.3027E-02_JPRB,2.2286E-02_JPRB,2.1084E-02_JPRB,1.9295E-02_JPRB,&
2128 & 1.7402E-02_JPRB,1.4625E-02_JPRB,1.5844E-02_JPRB/) 
2129KAO( :, 4, 3,11) = (/&
2130 & 2.7396E-02_JPRB,2.4666E-02_JPRB,2.3610E-02_JPRB,2.3218E-02_JPRB,2.1991E-02_JPRB,2.0436E-02_JPRB,&
2131 & 1.8232E-02_JPRB,1.6186E-02_JPRB,1.7976E-02_JPRB/) 
2132KAO( :, 5, 3,11) = (/&
2133 & 2.7396E-02_JPRB,2.4863E-02_JPRB,2.4263E-02_JPRB,2.4003E-02_JPRB,2.2894E-02_JPRB,2.1428E-02_JPRB,&
2134 & 1.9099E-02_JPRB,1.7923E-02_JPRB,2.0191E-02_JPRB/) 
2135KAO( :, 1, 4,11) = (/&
2136 & 2.6120E-02_JPRB,2.3055E-02_JPRB,2.1334E-02_JPRB,1.9874E-02_JPRB,1.8554E-02_JPRB,1.6913E-02_JPRB,&
2137 & 1.4849E-02_JPRB,1.1247E-02_JPRB,9.9817E-03_JPRB/) 
2138KAO( :, 2, 4,11) = (/&
2139 & 2.6346E-02_JPRB,2.3452E-02_JPRB,2.1987E-02_JPRB,2.1036E-02_JPRB,1.9768E-02_JPRB,1.8034E-02_JPRB,&
2140 & 1.5969E-02_JPRB,1.2323E-02_JPRB,1.1891E-02_JPRB/) 
2141KAO( :, 3, 4,11) = (/&
2142 & 2.6444E-02_JPRB,2.3743E-02_JPRB,2.2663E-02_JPRB,2.2134E-02_JPRB,2.0858E-02_JPRB,1.9164E-02_JPRB,&
2143 & 1.7004E-02_JPRB,1.3536E-02_JPRB,1.3883E-02_JPRB/) 
2144KAO( :, 4, 4,11) = (/&
2145 & 2.6615E-02_JPRB,2.4091E-02_JPRB,2.3417E-02_JPRB,2.3175E-02_JPRB,2.1815E-02_JPRB,2.0352E-02_JPRB,&
2146 & 1.7938E-02_JPRB,1.4897E-02_JPRB,1.5955E-02_JPRB/) 
2147KAO( :, 5, 4,11) = (/&
2148 & 2.6757E-02_JPRB,2.4467E-02_JPRB,2.4289E-02_JPRB,2.4064E-02_JPRB,2.2838E-02_JPRB,2.1378E-02_JPRB,&
2149 & 1.8780E-02_JPRB,1.6458E-02_JPRB,1.8170E-02_JPRB/) 
2150
2151IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',1,ZHOOK_HANDLE)
2152END SUBROUTINE PART7
2153
2154
2155SUBROUTINE PART8
2156
2157REAL(KIND=JPRB) :: ZHOOK_HANDLE
2158IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',0,ZHOOK_HANDLE)
2159
2160
2161KAO( :, 1, 5,11) = (/&
2162 & 2.4649E-02_JPRB,2.1845E-02_JPRB,2.0397E-02_JPRB,1.9200E-02_JPRB,1.7986E-02_JPRB,1.6354E-02_JPRB,&
2163 & 1.4106E-02_JPRB,1.0659E-02_JPRB,8.5296E-03_JPRB/) 
2164KAO( :, 2, 5,11) = (/&
2165 & 2.4915E-02_JPRB,2.2302E-02_JPRB,2.1150E-02_JPRB,2.0451E-02_JPRB,1.9259E-02_JPRB,1.7581E-02_JPRB,&
2166 & 1.5270E-02_JPRB,1.1646E-02_JPRB,1.0194E-02_JPRB/) 
2167KAO( :, 3, 5,11) = (/&
2168 & 2.5218E-02_JPRB,2.2788E-02_JPRB,2.1977E-02_JPRB,2.1628E-02_JPRB,2.0422E-02_JPRB,1.8826E-02_JPRB,&
2169 & 1.6327E-02_JPRB,1.2719E-02_JPRB,1.2019E-02_JPRB/) 
2170KAO( :, 4, 5,11) = (/&
2171 & 2.5482E-02_JPRB,2.3305E-02_JPRB,2.2941E-02_JPRB,2.2718E-02_JPRB,2.1512E-02_JPRB,2.0034E-02_JPRB,&
2172 & 1.7375E-02_JPRB,1.3885E-02_JPRB,1.4041E-02_JPRB/) 
2173KAO( :, 5, 5,11) = (/&
2174 & 2.5726E-02_JPRB,2.3793E-02_JPRB,2.3951E-02_JPRB,2.3636E-02_JPRB,2.2618E-02_JPRB,2.1077E-02_JPRB,&
2175 & 1.8363E-02_JPRB,1.5350E-02_JPRB,1.6202E-02_JPRB/) 
2176KAO( :, 1, 6,11) = (/&
2177 & 2.2851E-02_JPRB,2.0373E-02_JPRB,1.9153E-02_JPRB,1.8191E-02_JPRB,1.7169E-02_JPRB,1.5447E-02_JPRB,&
2178 & 1.3127E-02_JPRB,9.9268E-03_JPRB,7.8128E-03_JPRB/) 
2179KAO( :, 2, 6,11) = (/&
2180 & 2.3274E-02_JPRB,2.0974E-02_JPRB,2.0039E-02_JPRB,1.9515E-02_JPRB,1.8501E-02_JPRB,1.6740E-02_JPRB,&
2181 & 1.4344E-02_JPRB,1.0951E-02_JPRB,8.8752E-03_JPRB/) 
2182KAO( :, 3, 6,11) = (/&
2183 & 2.3672E-02_JPRB,2.1617E-02_JPRB,2.1050E-02_JPRB,2.0731E-02_JPRB,1.9672E-02_JPRB,1.8067E-02_JPRB,&
2184 & 1.5465E-02_JPRB,1.2013E-02_JPRB,1.0301E-02_JPRB/) 
2185KAO( :, 4, 6,11) = (/&
2186 & 2.4031E-02_JPRB,2.2215E-02_JPRB,2.2188E-02_JPRB,2.1796E-02_JPRB,2.0865E-02_JPRB,1.9256E-02_JPRB,&
2187 & 1.6602E-02_JPRB,1.3087E-02_JPRB,1.2045E-02_JPRB/) 
2188KAO( :, 5, 6,11) = (/&
2189 & 2.4424E-02_JPRB,2.2835E-02_JPRB,2.3262E-02_JPRB,2.2762E-02_JPRB,2.2024E-02_JPRB,2.0317E-02_JPRB,&
2190 & 1.7726E-02_JPRB,1.4330E-02_JPRB,1.3970E-02_JPRB/) 
2191KAO( :, 1, 7,11) = (/&
2192 & 2.0897E-02_JPRB,1.8755E-02_JPRB,1.7733E-02_JPRB,1.7022E-02_JPRB,1.6054E-02_JPRB,1.4311E-02_JPRB,&
2193 & 1.2008E-02_JPRB,9.2731E-03_JPRB,7.7437E-03_JPRB/) 
2194KAO( :, 2, 7,11) = (/&
2195 & 2.1410E-02_JPRB,1.9491E-02_JPRB,1.8752E-02_JPRB,1.8362E-02_JPRB,1.7373E-02_JPRB,1.5636E-02_JPRB,&
2196 & 1.3285E-02_JPRB,1.0177E-02_JPRB,8.5051E-03_JPRB/) 
2197KAO( :, 3, 7,11) = (/&
2198 & 2.1887E-02_JPRB,2.0202E-02_JPRB,1.9920E-02_JPRB,1.9593E-02_JPRB,1.8568E-02_JPRB,1.6958E-02_JPRB,&
2199 & 1.4466E-02_JPRB,1.1212E-02_JPRB,9.3670E-03_JPRB/) 
2200KAO( :, 4, 7,11) = (/&
2201 & 2.2392E-02_JPRB,2.0930E-02_JPRB,2.1140E-02_JPRB,2.0643E-02_JPRB,1.9778E-02_JPRB,1.8147E-02_JPRB,&
2202 & 1.5692E-02_JPRB,1.2278E-02_JPRB,1.0489E-02_JPRB/) 
2203KAO( :, 5, 7,11) = (/&
2204 & 2.2888E-02_JPRB,2.1742E-02_JPRB,2.2178E-02_JPRB,2.1714E-02_JPRB,2.0936E-02_JPRB,1.9278E-02_JPRB,&
2205 & 1.6882E-02_JPRB,1.3452E-02_JPRB,1.1897E-02_JPRB/) 
2206KAO( :, 1, 8,11) = (/&
2207 & 1.8841E-02_JPRB,1.7056E-02_JPRB,1.6222E-02_JPRB,1.5693E-02_JPRB,1.4689E-02_JPRB,1.2994E-02_JPRB,&
2208 & 1.0918E-02_JPRB,9.1547E-03_JPRB,7.9124E-03_JPRB/) 
2209KAO( :, 2, 8,11) = (/&
2210 & 1.9409E-02_JPRB,1.7855E-02_JPRB,1.7363E-02_JPRB,1.7024E-02_JPRB,1.5955E-02_JPRB,1.4305E-02_JPRB,&
2211 & 1.2087E-02_JPRB,9.7905E-03_JPRB,8.4826E-03_JPRB/) 
2212KAO( :, 3, 8,11) = (/&
2213 & 1.9993E-02_JPRB,1.8663E-02_JPRB,1.8622E-02_JPRB,1.8244E-02_JPRB,1.7158E-02_JPRB,1.5610E-02_JPRB,&
2214 & 1.3302E-02_JPRB,1.0551E-02_JPRB,9.2336E-03_JPRB/) 
2215KAO( :, 4, 8,11) = (/&
2216 & 2.0602E-02_JPRB,1.9539E-02_JPRB,1.9827E-02_JPRB,1.9347E-02_JPRB,1.8357E-02_JPRB,1.6779E-02_JPRB,&
2217 & 1.4567E-02_JPRB,1.1467E-02_JPRB,9.9909E-03_JPRB/) 
2218KAO( :, 5, 8,11) = (/&
2219 & 2.1064E-02_JPRB,2.0402E-02_JPRB,2.0838E-02_JPRB,2.0466E-02_JPRB,1.9507E-02_JPRB,1.7959E-02_JPRB,&
2220 & 1.5824E-02_JPRB,1.2520E-02_JPRB,1.0807E-02_JPRB/) 
2221KAO( :, 1, 9,11) = (/&
2222 & 1.6824E-02_JPRB,1.5334E-02_JPRB,1.4694E-02_JPRB,1.4181E-02_JPRB,1.3143E-02_JPRB,1.1680E-02_JPRB,&
2223 & 1.0334E-02_JPRB,9.1831E-03_JPRB,1.1053E-02_JPRB/) 
2224KAO( :, 2, 9,11) = (/&
2225 & 1.7417E-02_JPRB,1.6144E-02_JPRB,1.5897E-02_JPRB,1.5487E-02_JPRB,1.4380E-02_JPRB,1.2867E-02_JPRB,&
2226 & 1.1184E-02_JPRB,9.7551E-03_JPRB,1.1728E-02_JPRB/) 
2227KAO( :, 3, 9,11) = (/&
2228 & 1.8068E-02_JPRB,1.7042E-02_JPRB,1.7161E-02_JPRB,1.6678E-02_JPRB,1.5557E-02_JPRB,1.4093E-02_JPRB,&
2229 & 1.2184E-02_JPRB,1.0404E-02_JPRB,1.2483E-02_JPRB/) 
2230KAO( :, 4, 9,11) = (/&
2231 & 1.8632E-02_JPRB,1.7983E-02_JPRB,1.8323E-02_JPRB,1.7788E-02_JPRB,1.6784E-02_JPRB,1.5260E-02_JPRB,&
2232 & 1.3324E-02_JPRB,1.1123E-02_JPRB,1.3280E-02_JPRB/) 
2233KAO( :, 5, 9,11) = (/&
2234 & 1.9073E-02_JPRB,1.8843E-02_JPRB,1.9281E-02_JPRB,1.8905E-02_JPRB,1.7900E-02_JPRB,1.6447E-02_JPRB,&
2235 & 1.4515E-02_JPRB,1.1877E-02_JPRB,1.4077E-02_JPRB/) 
2236KAO( :, 1,10,11) = (/&
2237 & 1.5121E-02_JPRB,1.3838E-02_JPRB,1.3365E-02_JPRB,1.2721E-02_JPRB,1.1737E-02_JPRB,1.0953E-02_JPRB,&
2238 & 1.0213E-02_JPRB,9.1916E-03_JPRB,3.5198E-02_JPRB/) 
2239KAO( :, 2,10,11) = (/&
2240 & 1.5710E-02_JPRB,1.4640E-02_JPRB,1.4492E-02_JPRB,1.3911E-02_JPRB,1.2838E-02_JPRB,1.1818E-02_JPRB,&
2241 & 1.0924E-02_JPRB,9.7376E-03_JPRB,3.6361E-02_JPRB/) 
2242KAO( :, 3,10,11) = (/&
2243 & 1.6286E-02_JPRB,1.5525E-02_JPRB,1.5683E-02_JPRB,1.5045E-02_JPRB,1.3992E-02_JPRB,1.2769E-02_JPRB,&
2244 & 1.1723E-02_JPRB,1.0342E-02_JPRB,3.7359E-02_JPRB/) 
2245KAO( :, 4,10,11) = (/&
2246 & 1.6782E-02_JPRB,1.6440E-02_JPRB,1.6745E-02_JPRB,1.6156E-02_JPRB,1.5181E-02_JPRB,1.3811E-02_JPRB,&
2247 & 1.2551E-02_JPRB,1.1044E-02_JPRB,3.8551E-02_JPRB/) 
2248KAO( :, 5,10,11) = (/&
2249 & 1.7221E-02_JPRB,1.7284E-02_JPRB,1.7650E-02_JPRB,1.7276E-02_JPRB,1.6297E-02_JPRB,1.4958E-02_JPRB,&
2250 & 1.3449E-02_JPRB,1.1753E-02_JPRB,3.9714E-02_JPRB/) 
2251KAO( :, 1,11,11) = (/&
2252 & 1.4019E-02_JPRB,1.2957E-02_JPRB,1.2611E-02_JPRB,1.1869E-02_JPRB,1.1221E-02_JPRB,1.0951E-02_JPRB,&
2253 & 1.0419E-02_JPRB,9.2574E-03_JPRB,5.9295E-02_JPRB/) 
2254KAO( :, 2,11,11) = (/&
2255 & 1.4514E-02_JPRB,1.3729E-02_JPRB,1.3655E-02_JPRB,1.2913E-02_JPRB,1.2091E-02_JPRB,1.1604E-02_JPRB,&
2256 & 1.1118E-02_JPRB,9.8828E-03_JPRB,6.0862E-02_JPRB/) 
2257KAO( :, 3,11,11) = (/&
2258 & 1.4986E-02_JPRB,1.4596E-02_JPRB,1.4648E-02_JPRB,1.3931E-02_JPRB,1.3062E-02_JPRB,1.2353E-02_JPRB,&
2259 & 1.1821E-02_JPRB,1.0518E-02_JPRB,6.2214E-02_JPRB/) 
2260KAO( :, 4,11,11) = (/&
2261 & 1.5398E-02_JPRB,1.5423E-02_JPRB,1.5511E-02_JPRB,1.4991E-02_JPRB,1.4093E-02_JPRB,1.3225E-02_JPRB,&
2262 & 1.2498E-02_JPRB,1.1195E-02_JPRB,6.3269E-02_JPRB/) 
2263KAO( :, 5,11,11) = (/&
2264 & 1.5718E-02_JPRB,1.6102E-02_JPRB,1.6332E-02_JPRB,1.5968E-02_JPRB,1.5171E-02_JPRB,1.4160E-02_JPRB,&
2265 & 1.3209E-02_JPRB,1.1891E-02_JPRB,6.4542E-02_JPRB/) 
2266KAO( :, 1,12,11) = (/&
2267 & 1.3164E-02_JPRB,1.2292E-02_JPRB,1.1927E-02_JPRB,1.1265E-02_JPRB,1.1057E-02_JPRB,1.0913E-02_JPRB,&
2268 & 1.0445E-02_JPRB,9.2736E-03_JPRB,7.4756E-02_JPRB/) 
2269KAO( :, 2,12,11) = (/&
2270 & 1.3602E-02_JPRB,1.3075E-02_JPRB,1.2792E-02_JPRB,1.2052E-02_JPRB,1.1692E-02_JPRB,1.1536E-02_JPRB,&
2271 & 1.1126E-02_JPRB,9.9170E-03_JPRB,7.6306E-02_JPRB/) 
2272KAO( :, 3,12,11) = (/&
2273 & 1.3977E-02_JPRB,1.3830E-02_JPRB,1.3590E-02_JPRB,1.2927E-02_JPRB,1.2424E-02_JPRB,1.2227E-02_JPRB,&
2274 & 1.1745E-02_JPRB,1.0613E-02_JPRB,7.7655E-02_JPRB/) 
2275KAO( :, 4,12,11) = (/&
2276 & 1.4251E-02_JPRB,1.4432E-02_JPRB,1.4329E-02_JPRB,1.3821E-02_JPRB,1.3256E-02_JPRB,1.2933E-02_JPRB,&
2277 & 1.2386E-02_JPRB,1.1303E-02_JPRB,7.8663E-02_JPRB/) 
2278KAO( :, 5,12,11) = (/&
2279 & 1.4497E-02_JPRB,1.4939E-02_JPRB,1.5040E-02_JPRB,1.4676E-02_JPRB,1.4122E-02_JPRB,1.3675E-02_JPRB,&
2280 & 1.3045E-02_JPRB,1.1981E-02_JPRB,7.9879E-02_JPRB/) 
2281KAO( :, 1,13,11) = (/&
2282 & 1.2616E-02_JPRB,1.1893E-02_JPRB,1.1313E-02_JPRB,1.0907E-02_JPRB,1.0966E-02_JPRB,1.0790E-02_JPRB,&
2283 & 1.0280E-02_JPRB,9.1949E-03_JPRB,7.3725E-02_JPRB/) 
2284KAO( :, 2,13,11) = (/&
2285 & 1.2957E-02_JPRB,1.2555E-02_JPRB,1.2016E-02_JPRB,1.1533E-02_JPRB,1.1499E-02_JPRB,1.1400E-02_JPRB,&
2286 & 1.0924E-02_JPRB,9.8797E-03_JPRB,7.4996E-02_JPRB/) 
2287KAO( :, 3,13,11) = (/&
2288 & 1.3172E-02_JPRB,1.3071E-02_JPRB,1.2663E-02_JPRB,1.2207E-02_JPRB,1.2117E-02_JPRB,1.2009E-02_JPRB,&
2289 & 1.1575E-02_JPRB,1.0610E-02_JPRB,7.6038E-02_JPRB/) 
2290KAO( :, 4,13,11) = (/&
2291 & 1.3348E-02_JPRB,1.3517E-02_JPRB,1.3285E-02_JPRB,1.2851E-02_JPRB,1.2762E-02_JPRB,1.2671E-02_JPRB,&
2292 & 1.2190E-02_JPRB,1.1315E-02_JPRB,7.7063E-02_JPRB/) 
2293KAO( :, 5,13,11) = (/&
2294 & 1.3524E-02_JPRB,1.3946E-02_JPRB,1.3887E-02_JPRB,1.3540E-02_JPRB,1.3388E-02_JPRB,1.3305E-02_JPRB,&
2295 & 1.2841E-02_JPRB,1.2009E-02_JPRB,7.8468E-02_JPRB/) 
2296KAO( :, 1, 1,12) = (/&
2297 & 3.9522E-02_JPRB,3.4695E-02_JPRB,3.0393E-02_JPRB,2.7444E-02_JPRB,2.4701E-02_JPRB,2.2430E-02_JPRB,&
2298 & 1.9690E-02_JPRB,1.9007E-02_JPRB,2.1357E-02_JPRB/) 
2299KAO( :, 2, 1,12) = (/&
2300 & 3.9055E-02_JPRB,3.4293E-02_JPRB,3.0365E-02_JPRB,2.7692E-02_JPRB,2.5619E-02_JPRB,2.3505E-02_JPRB,&
2301 & 2.1002E-02_JPRB,2.1723E-02_JPRB,2.4548E-02_JPRB/) 
2302KAO( :, 3, 1,12) = (/&
2303 & 3.8771E-02_JPRB,3.4045E-02_JPRB,3.0558E-02_JPRB,2.8122E-02_JPRB,2.6598E-02_JPRB,2.4455E-02_JPRB,&
2304 & 2.2524E-02_JPRB,2.4725E-02_JPRB,2.7978E-02_JPRB/) 
2305KAO( :, 4, 1,12) = (/&
2306 & 3.8655E-02_JPRB,3.3972E-02_JPRB,3.0813E-02_JPRB,2.8575E-02_JPRB,2.7403E-02_JPRB,2.5405E-02_JPRB,&
2307 & 2.4525E-02_JPRB,2.7903E-02_JPRB,3.1582E-02_JPRB/) 
2308KAO( :, 5, 1,12) = (/&
2309 & 3.8581E-02_JPRB,3.4020E-02_JPRB,3.1105E-02_JPRB,2.9186E-02_JPRB,2.7932E-02_JPRB,2.6686E-02_JPRB,&
2310 & 2.7056E-02_JPRB,3.1213E-02_JPRB,3.5341E-02_JPRB/) 
2311KAO( :, 1, 2,12) = (/&
2312 & 4.0900E-02_JPRB,3.5882E-02_JPRB,3.1540E-02_JPRB,2.8648E-02_JPRB,2.5916E-02_JPRB,2.3479E-02_JPRB,&
2313 & 1.9842E-02_JPRB,1.8172E-02_JPRB,2.0462E-02_JPRB/) 
2314KAO( :, 2, 2,12) = (/&
2315 & 4.0629E-02_JPRB,3.5647E-02_JPRB,3.1749E-02_JPRB,2.9079E-02_JPRB,2.7038E-02_JPRB,2.4448E-02_JPRB,&
2316 & 2.0997E-02_JPRB,2.0801E-02_JPRB,2.3586E-02_JPRB/) 
2317KAO( :, 3, 2,12) = (/&
2318 & 4.0634E-02_JPRB,3.5666E-02_JPRB,3.2165E-02_JPRB,2.9630E-02_JPRB,2.8090E-02_JPRB,2.5205E-02_JPRB,&
2319 & 2.2483E-02_JPRB,2.3756E-02_JPRB,2.6981E-02_JPRB/) 
2320KAO( :, 4, 2,12) = (/&
2321 & 4.0680E-02_JPRB,3.5804E-02_JPRB,3.2512E-02_JPRB,3.0271E-02_JPRB,2.8844E-02_JPRB,2.6048E-02_JPRB,&
2322 & 2.4362E-02_JPRB,2.6965E-02_JPRB,3.0664E-02_JPRB/) 
2323KAO( :, 5, 2,12) = (/&
2324 & 4.0551E-02_JPRB,3.5850E-02_JPRB,3.2760E-02_JPRB,3.1085E-02_JPRB,2.9377E-02_JPRB,2.7302E-02_JPRB,&
2325 & 2.6614E-02_JPRB,3.0323E-02_JPRB,3.4512E-02_JPRB/) 
2326KAO( :, 1, 3,12) = (/&
2327 & 4.2297E-02_JPRB,3.7083E-02_JPRB,3.2675E-02_JPRB,2.9696E-02_JPRB,2.6819E-02_JPRB,2.4251E-02_JPRB,&
2328 & 1.9800E-02_JPRB,1.7013E-02_JPRB,1.8998E-02_JPRB/) 
2329KAO( :, 2, 3,12) = (/&
2330 & 4.2345E-02_JPRB,3.7129E-02_JPRB,3.3126E-02_JPRB,3.0221E-02_JPRB,2.7989E-02_JPRB,2.5268E-02_JPRB,&
2331 & 2.0870E-02_JPRB,1.9534E-02_JPRB,2.2175E-02_JPRB/) 
2332KAO( :, 3, 3,12) = (/&
2333 & 4.2503E-02_JPRB,3.7329E-02_JPRB,3.3705E-02_JPRB,3.0884E-02_JPRB,2.9095E-02_JPRB,2.6012E-02_JPRB,&
2334 & 2.2274E-02_JPRB,2.2409E-02_JPRB,2.5549E-02_JPRB/) 
2335KAO( :, 4, 3,12) = (/&
2336 & 4.2563E-02_JPRB,3.7513E-02_JPRB,3.4118E-02_JPRB,3.1719E-02_JPRB,2.9991E-02_JPRB,2.6648E-02_JPRB,&
2337 & 2.4107E-02_JPRB,2.5501E-02_JPRB,2.9091E-02_JPRB/) 
2338KAO( :, 5, 3,12) = (/&
2339 & 4.2352E-02_JPRB,3.7494E-02_JPRB,3.4375E-02_JPRB,3.2625E-02_JPRB,3.0646E-02_JPRB,2.7653E-02_JPRB,&
2340 & 2.6034E-02_JPRB,2.8674E-02_JPRB,3.2704E-02_JPRB/) 
2341KAO( :, 1, 4,12) = (/&
2342 & 4.3449E-02_JPRB,3.8071E-02_JPRB,3.3569E-02_JPRB,3.0433E-02_JPRB,2.7408E-02_JPRB,2.4611E-02_JPRB,&
2343 & 2.0108E-02_JPRB,1.5832E-02_JPRB,1.6869E-02_JPRB/) 
2344KAO( :, 2, 4,12) = (/&
2345 & 4.3754E-02_JPRB,3.8357E-02_JPRB,3.4350E-02_JPRB,3.1115E-02_JPRB,2.8679E-02_JPRB,2.5625E-02_JPRB,&
2346 & 2.1066E-02_JPRB,1.8077E-02_JPRB,2.0082E-02_JPRB/) 
2347KAO( :, 3, 4,12) = (/&
2348 & 4.3973E-02_JPRB,3.8656E-02_JPRB,3.5023E-02_JPRB,3.2006E-02_JPRB,2.9792E-02_JPRB,2.6458E-02_JPRB,&
2349 & 2.2328E-02_JPRB,2.0812E-02_JPRB,2.3540E-02_JPRB/) 
2350KAO( :, 4, 4,12) = (/&
2351 & 4.3938E-02_JPRB,3.8773E-02_JPRB,3.5454E-02_JPRB,3.2980E-02_JPRB,3.0747E-02_JPRB,2.7193E-02_JPRB,&
2352 & 2.3978E-02_JPRB,2.3783E-02_JPRB,2.7070E-02_JPRB/) 
2353KAO( :, 5, 4,12) = (/&
2354 & 4.3814E-02_JPRB,3.8836E-02_JPRB,3.5796E-02_JPRB,3.3909E-02_JPRB,3.1572E-02_JPRB,2.8214E-02_JPRB,&
2355 & 2.5779E-02_JPRB,2.6823E-02_JPRB,3.0560E-02_JPRB/) 
2356KAO( :, 1, 5,12) = (/&
2357 & 4.3987E-02_JPRB,3.8530E-02_JPRB,3.4139E-02_JPRB,3.0809E-02_JPRB,2.7641E-02_JPRB,2.4664E-02_JPRB,&
2358 & 2.0281E-02_JPRB,1.4828E-02_JPRB,1.4596E-02_JPRB/) 
2359KAO( :, 2, 5,12) = (/&
2360 & 4.4423E-02_JPRB,3.8965E-02_JPRB,3.5098E-02_JPRB,3.1717E-02_JPRB,2.9032E-02_JPRB,2.5717E-02_JPRB,&
2361 & 2.1306E-02_JPRB,1.6792E-02_JPRB,1.7692E-02_JPRB/) 
2362KAO( :, 3, 5,12) = (/&
2363 & 4.4740E-02_JPRB,3.9368E-02_JPRB,3.5854E-02_JPRB,3.2800E-02_JPRB,3.0202E-02_JPRB,2.6633E-02_JPRB,&
2364 & 2.2521E-02_JPRB,1.9130E-02_JPRB,2.0967E-02_JPRB/) 
2365KAO( :, 4, 5,12) = (/&
2366 & 4.4784E-02_JPRB,3.9578E-02_JPRB,3.6349E-02_JPRB,3.3852E-02_JPRB,3.1212E-02_JPRB,2.7594E-02_JPRB,&
2367 & 2.3985E-02_JPRB,2.1768E-02_JPRB,2.4335E-02_JPRB/) 
2368KAO( :, 5, 5,12) = (/&
2369 & 4.4634E-02_JPRB,3.9684E-02_JPRB,3.6716E-02_JPRB,3.4783E-02_JPRB,3.2166E-02_JPRB,2.8840E-02_JPRB,&
2370 & 2.5566E-02_JPRB,2.4589E-02_JPRB,2.7780E-02_JPRB/) 
2371KAO( :, 1, 6,12) = (/&
2372 & 4.3652E-02_JPRB,3.8230E-02_JPRB,3.4067E-02_JPRB,3.0633E-02_JPRB,2.7394E-02_JPRB,2.4357E-02_JPRB,&
2373 & 2.0018E-02_JPRB,1.4129E-02_JPRB,1.2309E-02_JPRB/) 
2374KAO( :, 2, 6,12) = (/&
2375 & 4.4319E-02_JPRB,3.8893E-02_JPRB,3.5172E-02_JPRB,3.1745E-02_JPRB,2.8902E-02_JPRB,2.5570E-02_JPRB,&
2376 & 2.1093E-02_JPRB,1.5716E-02_JPRB,1.5104E-02_JPRB/) 
2377KAO( :, 3, 6,12) = (/&
2378 & 4.4786E-02_JPRB,3.9451E-02_JPRB,3.6064E-02_JPRB,3.2991E-02_JPRB,3.0223E-02_JPRB,2.6609E-02_JPRB,&
2379 & 2.2435E-02_JPRB,1.7637E-02_JPRB,1.8165E-02_JPRB/) 
2380KAO( :, 4, 6,12) = (/&
2381 & 4.4788E-02_JPRB,3.9699E-02_JPRB,3.6561E-02_JPRB,3.4163E-02_JPRB,3.1314E-02_JPRB,2.7788E-02_JPRB,&
2382 & 2.3906E-02_JPRB,1.9877E-02_JPRB,2.1395E-02_JPRB/) 
2383KAO( :, 5, 6,12) = (/&
2384 & 4.4447E-02_JPRB,3.9668E-02_JPRB,3.6988E-02_JPRB,3.5173E-02_JPRB,3.2361E-02_JPRB,2.9209E-02_JPRB,&
2385 & 2.5326E-02_JPRB,2.2392E-02_JPRB,2.4740E-02_JPRB/) 
2386KAO( :, 1, 7,12) = (/&
2387 & 4.2520E-02_JPRB,3.7241E-02_JPRB,3.3313E-02_JPRB,2.9817E-02_JPRB,2.6724E-02_JPRB,2.3713E-02_JPRB,&
2388 & 1.9392E-02_JPRB,1.3514E-02_JPRB,1.0779E-02_JPRB/) 
2389KAO( :, 2, 7,12) = (/&
2390 & 4.3342E-02_JPRB,3.8062E-02_JPRB,3.4549E-02_JPRB,3.1204E-02_JPRB,2.8393E-02_JPRB,2.5083E-02_JPRB,&
2391 & 2.0539E-02_JPRB,1.4970E-02_JPRB,1.2835E-02_JPRB/) 
2392KAO( :, 3, 7,12) = (/&
2393 & 4.3790E-02_JPRB,3.8673E-02_JPRB,3.5497E-02_JPRB,3.2592E-02_JPRB,2.9885E-02_JPRB,2.6278E-02_JPRB,&
2394 & 2.1950E-02_JPRB,1.6561E-02_JPRB,1.5528E-02_JPRB/) 
2395KAO( :, 4, 7,12) = (/&
2396 & 4.3699E-02_JPRB,3.8889E-02_JPRB,3.6038E-02_JPRB,3.3992E-02_JPRB,3.1096E-02_JPRB,2.7610E-02_JPRB,&
2397 & 2.3462E-02_JPRB,1.8494E-02_JPRB,1.8561E-02_JPRB/) 
2398KAO( :, 5, 7,12) = (/&
2399 & 4.3391E-02_JPRB,3.8899E-02_JPRB,3.6695E-02_JPRB,3.5094E-02_JPRB,3.2242E-02_JPRB,2.9127E-02_JPRB,&
2400 & 2.4986E-02_JPRB,2.0683E-02_JPRB,2.1759E-02_JPRB/) 
2401KAO( :, 1, 8,12) = (/&
2402 & 4.0705E-02_JPRB,3.5661E-02_JPRB,3.2044E-02_JPRB,2.8588E-02_JPRB,2.5730E-02_JPRB,2.2651E-02_JPRB,&
2403 & 1.8403E-02_JPRB,1.2786E-02_JPRB,1.0617E-02_JPRB/) 
2404KAO( :, 2, 8,12) = (/&
2405 & 4.1513E-02_JPRB,3.6523E-02_JPRB,3.3287E-02_JPRB,3.0168E-02_JPRB,2.7518E-02_JPRB,2.4185E-02_JPRB,&
2406 & 1.9645E-02_JPRB,1.4186E-02_JPRB,1.1770E-02_JPRB/) 
2407KAO( :, 3, 8,12) = (/&
2408 & 4.1918E-02_JPRB,3.7171E-02_JPRB,3.4241E-02_JPRB,3.1699E-02_JPRB,2.9124E-02_JPRB,2.5489E-02_JPRB,&
2409 & 2.1120E-02_JPRB,1.5769E-02_JPRB,1.3550E-02_JPRB/) 
2410KAO( :, 4, 8,12) = (/&
2411 & 4.1853E-02_JPRB,3.7439E-02_JPRB,3.4958E-02_JPRB,3.3201E-02_JPRB,3.0465E-02_JPRB,2.6939E-02_JPRB,&
2412 & 2.2712E-02_JPRB,1.7517E-02_JPRB,1.5986E-02_JPRB/) 
2413KAO( :, 5, 8,12) = (/&
2414 & 4.1733E-02_JPRB,3.7668E-02_JPRB,3.5839E-02_JPRB,3.4355E-02_JPRB,3.1760E-02_JPRB,2.8542E-02_JPRB,&
2415 & 2.4348E-02_JPRB,1.9402E-02_JPRB,1.8887E-02_JPRB/) 
2416KAO( :, 1, 9,12) = (/&
2417 & 3.8179E-02_JPRB,3.3470E-02_JPRB,3.0206E-02_JPRB,2.7054E-02_JPRB,2.4424E-02_JPRB,2.1213E-02_JPRB,&
2418 & 1.7112E-02_JPRB,1.2467E-02_JPRB,1.5003E-02_JPRB/) 
2419KAO( :, 2, 9,12) = (/&
2420 & 3.9010E-02_JPRB,3.4434E-02_JPRB,3.1441E-02_JPRB,2.8741E-02_JPRB,2.6231E-02_JPRB,2.2823E-02_JPRB,&
2421 & 1.8428E-02_JPRB,1.3530E-02_JPRB,1.6372E-02_JPRB/) 
2422KAO( :, 3, 9,12) = (/&
2423 & 3.9453E-02_JPRB,3.5166E-02_JPRB,3.2518E-02_JPRB,3.0394E-02_JPRB,2.7907E-02_JPRB,2.4225E-02_JPRB,&
2424 & 1.9954E-02_JPRB,1.4900E-02_JPRB,1.8039E-02_JPRB/) 
2425KAO( :, 4, 9,12) = (/&
2426 & 3.9552E-02_JPRB,3.5595E-02_JPRB,3.3460E-02_JPRB,3.1929E-02_JPRB,2.9264E-02_JPRB,2.5769E-02_JPRB,&
2427 & 2.1600E-02_JPRB,1.6537E-02_JPRB,1.9903E-02_JPRB/) 
2428KAO( :, 5, 9,12) = (/&
2429 & 3.9456E-02_JPRB,3.5940E-02_JPRB,3.4560E-02_JPRB,3.3060E-02_JPRB,3.0675E-02_JPRB,2.7481E-02_JPRB,&
2430 & 2.3382E-02_JPRB,1.8398E-02_JPRB,2.1739E-02_JPRB/) 
2431KAO( :, 1,10,12) = (/&
2432 & 3.5238E-02_JPRB,3.0971E-02_JPRB,2.8042E-02_JPRB,2.5331E-02_JPRB,2.2876E-02_JPRB,1.9632E-02_JPRB,&
2433 & 1.5965E-02_JPRB,1.2700E-02_JPRB,4.7338E-02_JPRB/) 
2434KAO( :, 2,10,12) = (/&
2435 & 3.6134E-02_JPRB,3.2062E-02_JPRB,2.9356E-02_JPRB,2.7135E-02_JPRB,2.4639E-02_JPRB,2.1263E-02_JPRB,&
2436 & 1.7126E-02_JPRB,1.3564E-02_JPRB,4.9352E-02_JPRB/) 
2437KAO( :, 3,10,12) = (/&
2438 & 3.6647E-02_JPRB,3.2881E-02_JPRB,3.0571E-02_JPRB,2.8822E-02_JPRB,2.6275E-02_JPRB,2.2691E-02_JPRB,&
2439 & 1.8634E-02_JPRB,1.4609E-02_JPRB,5.1163E-02_JPRB/) 
2440KAO( :, 4,10,12) = (/&
2441 & 3.6732E-02_JPRB,3.3352E-02_JPRB,3.1697E-02_JPRB,3.0299E-02_JPRB,2.7653E-02_JPRB,2.4298E-02_JPRB,&
2442 & 2.0355E-02_JPRB,1.5925E-02_JPRB,5.2665E-02_JPRB/) 
2443KAO( :, 5,10,12) = (/&
2444 & 3.6735E-02_JPRB,3.3801E-02_JPRB,3.2857E-02_JPRB,3.1401E-02_JPRB,2.9116E-02_JPRB,2.6070E-02_JPRB,&
2445 & 2.2245E-02_JPRB,1.7479E-02_JPRB,5.4548E-02_JPRB/) 
2446KAO( :, 1,11,12) = (/&
2447 & 3.2545E-02_JPRB,2.8854E-02_JPRB,2.6358E-02_JPRB,2.4300E-02_JPRB,2.1804E-02_JPRB,1.8684E-02_JPRB,&
2448 & 1.5775E-02_JPRB,1.3392E-02_JPRB,8.3440E-02_JPRB/) 
2449KAO( :, 2,11,12) = (/&
2450 & 3.3300E-02_JPRB,2.9905E-02_JPRB,2.7758E-02_JPRB,2.6019E-02_JPRB,2.3465E-02_JPRB,2.0097E-02_JPRB,&
2451 & 1.6793E-02_JPRB,1.4249E-02_JPRB,8.5867E-02_JPRB/) 
2452
2453IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',1,ZHOOK_HANDLE)
2454END SUBROUTINE PART8
2455
2456
2457SUBROUTINE PART9
2458
2459REAL(KIND=JPRB) :: ZHOOK_HANDLE
2460IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',0,ZHOOK_HANDLE)
2461
2462
2463KAO( :, 3,11,12) = (/&
2464 & 3.3558E-02_JPRB,3.0525E-02_JPRB,2.8985E-02_JPRB,2.7554E-02_JPRB,2.4920E-02_JPRB,2.1636E-02_JPRB,&
2465 & 1.8144E-02_JPRB,1.5281E-02_JPRB,8.8098E-02_JPRB/) 
2466KAO( :, 4,11,12) = (/&
2467 & 3.3710E-02_JPRB,3.1080E-02_JPRB,3.0218E-02_JPRB,2.8753E-02_JPRB,2.6347E-02_JPRB,2.3365E-02_JPRB,&
2468 & 1.9836E-02_JPRB,1.6406E-02_JPRB,9.0071E-02_JPRB/) 
2469KAO( :, 5,11,12) = (/&
2470 & 3.3928E-02_JPRB,3.1726E-02_JPRB,3.1326E-02_JPRB,2.9966E-02_JPRB,2.7916E-02_JPRB,2.5204E-02_JPRB,&
2471 & 2.1753E-02_JPRB,1.7712E-02_JPRB,9.1519E-02_JPRB/) 
2472KAO( :, 1,12,12) = (/&
2473 & 2.9830E-02_JPRB,2.6721E-02_JPRB,2.4676E-02_JPRB,2.2938E-02_JPRB,2.0448E-02_JPRB,1.7882E-02_JPRB,&
2474 & 1.5923E-02_JPRB,1.3970E-02_JPRB,1.1086E-01_JPRB/) 
2475KAO( :, 2,12,12) = (/&
2476 & 3.0231E-02_JPRB,2.7476E-02_JPRB,2.6007E-02_JPRB,2.4462E-02_JPRB,2.1935E-02_JPRB,1.9103E-02_JPRB,&
2477 & 1.6840E-02_JPRB,1.4875E-02_JPRB,1.1330E-01_JPRB/) 
2478KAO( :, 3,12,12) = (/&
2479 & 3.0491E-02_JPRB,2.8099E-02_JPRB,2.7260E-02_JPRB,2.5711E-02_JPRB,2.3307E-02_JPRB,2.0562E-02_JPRB,&
2480 & 1.8077E-02_JPRB,1.5918E-02_JPRB,1.1557E-01_JPRB/) 
2481KAO( :, 4,12,12) = (/&
2482 & 3.0757E-02_JPRB,2.8842E-02_JPRB,2.8411E-02_JPRB,2.6924E-02_JPRB,2.4803E-02_JPRB,2.2253E-02_JPRB,&
2483 & 1.9581E-02_JPRB,1.7012E-02_JPRB,1.1765E-01_JPRB/) 
2484KAO( :, 5,12,12) = (/&
2485 & 3.0918E-02_JPRB,2.9599E-02_JPRB,2.9489E-02_JPRB,2.8288E-02_JPRB,2.6494E-02_JPRB,2.4129E-02_JPRB,&
2486 & 2.1275E-02_JPRB,1.8143E-02_JPRB,1.1909E-01_JPRB/) 
2487KAO( :, 1,13,12) = (/&
2488 & 2.7094E-02_JPRB,2.4532E-02_JPRB,2.3049E-02_JPRB,2.1309E-02_JPRB,1.9154E-02_JPRB,1.7486E-02_JPRB,&
2489 & 1.6144E-02_JPRB,1.4353E-02_JPRB,1.1524E-01_JPRB/) 
2490KAO( :, 2,13,12) = (/&
2491 & 2.7412E-02_JPRB,2.5168E-02_JPRB,2.4223E-02_JPRB,2.2514E-02_JPRB,2.0316E-02_JPRB,1.8507E-02_JPRB,&
2492 & 1.7150E-02_JPRB,1.5366E-02_JPRB,1.1754E-01_JPRB/) 
2493KAO( :, 3,13,12) = (/&
2494 & 2.7677E-02_JPRB,2.5904E-02_JPRB,2.5334E-02_JPRB,2.3685E-02_JPRB,2.1617E-02_JPRB,1.9773E-02_JPRB,&
2495 & 1.8343E-02_JPRB,1.6413E-02_JPRB,1.1954E-01_JPRB/) 
2496KAO( :, 4,13,12) = (/&
2497 & 2.7872E-02_JPRB,2.6672E-02_JPRB,2.6384E-02_JPRB,2.5015E-02_JPRB,2.3188E-02_JPRB,2.1278E-02_JPRB,&
2498 & 1.9644E-02_JPRB,1.7533E-02_JPRB,1.2118E-01_JPRB/) 
2499KAO( :, 5,13,12) = (/&
2500 & 2.7954E-02_JPRB,2.7488E-02_JPRB,2.7495E-02_JPRB,2.6532E-02_JPRB,2.4977E-02_JPRB,2.3012E-02_JPRB,&
2501 & 2.1088E-02_JPRB,1.8595E-02_JPRB,1.2230E-01_JPRB/) 
2502KAO( :, 1, 1,13) = (/&
2503 & 5.6053E-02_JPRB,4.9173E-02_JPRB,4.2351E-02_JPRB,3.6619E-02_JPRB,3.1919E-02_JPRB,2.7549E-02_JPRB,&
2504 & 2.5709E-02_JPRB,2.8817E-02_JPRB,3.2228E-02_JPRB/) 
2505KAO( :, 2, 1,13) = (/&
2506 & 5.5104E-02_JPRB,4.8363E-02_JPRB,4.1989E-02_JPRB,3.6731E-02_JPRB,3.2283E-02_JPRB,2.9042E-02_JPRB,&
2507 & 2.9013E-02_JPRB,3.3235E-02_JPRB,3.7260E-02_JPRB/) 
2508KAO( :, 3, 1,13) = (/&
2509 & 5.3995E-02_JPRB,4.7411E-02_JPRB,4.1385E-02_JPRB,3.6532E-02_JPRB,3.2764E-02_JPRB,3.0737E-02_JPRB,&
2510 & 3.2896E-02_JPRB,3.7808E-02_JPRB,4.2479E-02_JPRB/) 
2511KAO( :, 4, 1,13) = (/&
2512 & 5.2736E-02_JPRB,4.6336E-02_JPRB,4.0785E-02_JPRB,3.6489E-02_JPRB,3.3723E-02_JPRB,3.2658E-02_JPRB,&
2513 & 3.6921E-02_JPRB,4.2523E-02_JPRB,4.7856E-02_JPRB/) 
2514KAO( :, 5, 1,13) = (/&
2515 & 5.1501E-02_JPRB,4.5267E-02_JPRB,4.0254E-02_JPRB,3.6460E-02_JPRB,3.5114E-02_JPRB,3.5037E-02_JPRB,&
2516 & 4.0972E-02_JPRB,4.7260E-02_JPRB,5.3261E-02_JPRB/) 
2517KAO( :, 1, 2,13) = (/&
2518 & 6.0681E-02_JPRB,5.3202E-02_JPRB,4.5845E-02_JPRB,3.9636E-02_JPRB,3.4042E-02_JPRB,2.9064E-02_JPRB,&
2519 & 2.6532E-02_JPRB,2.9036E-02_JPRB,3.2832E-02_JPRB/) 
2520KAO( :, 2, 2,13) = (/&
2521 & 5.9591E-02_JPRB,5.2263E-02_JPRB,4.5381E-02_JPRB,3.9598E-02_JPRB,3.4216E-02_JPRB,3.0746E-02_JPRB,&
2522 & 2.9570E-02_JPRB,3.3591E-02_JPRB,3.8065E-02_JPRB/) 
2523KAO( :, 3, 2,13) = (/&
2524 & 5.8268E-02_JPRB,5.1123E-02_JPRB,4.4655E-02_JPRB,3.9364E-02_JPRB,3.4820E-02_JPRB,3.2584E-02_JPRB,&
2525 & 3.3306E-02_JPRB,3.8344E-02_JPRB,4.3514E-02_JPRB/) 
2526KAO( :, 4, 2,13) = (/&
2527 & 5.6859E-02_JPRB,4.9908E-02_JPRB,4.4073E-02_JPRB,3.9320E-02_JPRB,3.5951E-02_JPRB,3.4443E-02_JPRB,&
2528 & 3.7381E-02_JPRB,4.3145E-02_JPRB,4.9018E-02_JPRB/) 
2529KAO( :, 5, 2,13) = (/&
2530 & 5.5606E-02_JPRB,4.8809E-02_JPRB,4.3641E-02_JPRB,3.9295E-02_JPRB,3.7457E-02_JPRB,3.6510E-02_JPRB,&
2531 & 4.1577E-02_JPRB,4.8053E-02_JPRB,5.4636E-02_JPRB/) 
2532KAO( :, 1, 3,13) = (/&
2533 & 6.5281E-02_JPRB,5.7202E-02_JPRB,4.9259E-02_JPRB,4.2481E-02_JPRB,3.6242E-02_JPRB,3.0257E-02_JPRB,&
2534 & 2.6947E-02_JPRB,2.7850E-02_JPRB,3.1754E-02_JPRB/) 
2535KAO( :, 2, 3,13) = (/&
2536 & 6.4026E-02_JPRB,5.6115E-02_JPRB,4.8709E-02_JPRB,4.2529E-02_JPRB,3.6413E-02_JPRB,3.1975E-02_JPRB,&
2537 & 2.9537E-02_JPRB,3.2421E-02_JPRB,3.6975E-02_JPRB/) 
2538KAO( :, 3, 3,13) = (/&
2539 & 6.2582E-02_JPRB,5.4864E-02_JPRB,4.7944E-02_JPRB,4.2387E-02_JPRB,3.6942E-02_JPRB,3.3882E-02_JPRB,&
2540 & 3.2746E-02_JPRB,3.7152E-02_JPRB,4.2391E-02_JPRB/) 
2541KAO( :, 4, 3,13) = (/&
2542 & 6.1252E-02_JPRB,5.3699E-02_JPRB,4.7471E-02_JPRB,4.2276E-02_JPRB,3.8007E-02_JPRB,3.5845E-02_JPRB,&
2543 & 3.6492E-02_JPRB,4.2063E-02_JPRB,4.8049E-02_JPRB/) 
2544KAO( :, 5, 3,13) = (/&
2545 & 6.0092E-02_JPRB,5.2697E-02_JPRB,4.7050E-02_JPRB,4.2178E-02_JPRB,3.9419E-02_JPRB,3.7791E-02_JPRB,&
2546 & 4.0791E-02_JPRB,4.7197E-02_JPRB,5.3978E-02_JPRB/) 
2547KAO( :, 1, 4,13) = (/&
2548 & 6.9156E-02_JPRB,6.0580E-02_JPRB,5.2151E-02_JPRB,4.4993E-02_JPRB,3.8321E-02_JPRB,3.1681E-02_JPRB,&
2549 & 2.7066E-02_JPRB,2.6200E-02_JPRB,2.9938E-02_JPRB/) 
2550KAO( :, 2, 4,13) = (/&
2551 & 6.7721E-02_JPRB,5.9333E-02_JPRB,5.1460E-02_JPRB,4.5174E-02_JPRB,3.8672E-02_JPRB,3.3341E-02_JPRB,&
2552 & 2.9463E-02_JPRB,3.0601E-02_JPRB,3.4960E-02_JPRB/) 
2553KAO( :, 3, 4,13) = (/&
2554 & 6.6317E-02_JPRB,5.8105E-02_JPRB,5.0834E-02_JPRB,4.5138E-02_JPRB,3.9401E-02_JPRB,3.5131E-02_JPRB,&
2555 & 3.2153E-02_JPRB,3.5157E-02_JPRB,4.0204E-02_JPRB/) 
2556KAO( :, 4, 4,13) = (/&
2557 & 6.5137E-02_JPRB,5.7074E-02_JPRB,5.0526E-02_JPRB,4.5041E-02_JPRB,4.0452E-02_JPRB,3.6956E-02_JPRB,&
2558 & 3.5433E-02_JPRB,4.0097E-02_JPRB,4.5914E-02_JPRB/) 
2559KAO( :, 5, 4,13) = (/&
2560 & 6.4115E-02_JPRB,5.6230E-02_JPRB,5.0276E-02_JPRB,4.5144E-02_JPRB,4.1609E-02_JPRB,3.8932E-02_JPRB,&
2561 & 3.9448E-02_JPRB,4.5417E-02_JPRB,5.2017E-02_JPRB/) 
2562KAO( :, 1, 5,13) = (/&
2563 & 7.2400E-02_JPRB,6.3404E-02_JPRB,5.4540E-02_JPRB,4.7112E-02_JPRB,4.0185E-02_JPRB,3.3245E-02_JPRB,&
2564 & 2.7454E-02_JPRB,2.4538E-02_JPRB,2.7637E-02_JPRB/) 
2565KAO( :, 2, 5,13) = (/&
2566 & 7.1034E-02_JPRB,6.2212E-02_JPRB,5.3950E-02_JPRB,4.7421E-02_JPRB,4.0716E-02_JPRB,3.5033E-02_JPRB,&
2567 & 2.9541E-02_JPRB,2.8475E-02_JPRB,3.2456E-02_JPRB/) 
2568KAO( :, 3, 5,13) = (/&
2569 & 6.9683E-02_JPRB,6.1033E-02_JPRB,5.3449E-02_JPRB,4.7487E-02_JPRB,4.1776E-02_JPRB,3.6647E-02_JPRB,&
2570 & 3.1941E-02_JPRB,3.2964E-02_JPRB,3.7708E-02_JPRB/) 
2571KAO( :, 4, 5,13) = (/&
2572 & 6.8593E-02_JPRB,6.0082E-02_JPRB,5.3255E-02_JPRB,4.7581E-02_JPRB,4.2936E-02_JPRB,3.8247E-02_JPRB,&
2573 & 3.4793E-02_JPRB,3.7940E-02_JPRB,4.3452E-02_JPRB/) 
2574KAO( :, 5, 5,13) = (/&
2575 & 6.7660E-02_JPRB,5.9367E-02_JPRB,5.3230E-02_JPRB,4.8095E-02_JPRB,4.3998E-02_JPRB,4.0012E-02_JPRB,&
2576 & 3.8369E-02_JPRB,4.3216E-02_JPRB,4.9502E-02_JPRB/) 
2577KAO( :, 1, 6,13) = (/&
2578 & 7.5282E-02_JPRB,6.5913E-02_JPRB,5.6672E-02_JPRB,4.9038E-02_JPRB,4.1667E-02_JPRB,3.4580E-02_JPRB,&
2579 & 2.8084E-02_JPRB,2.2885E-02_JPRB,2.4729E-02_JPRB/) 
2580KAO( :, 2, 6,13) = (/&
2581 & 7.3954E-02_JPRB,6.4757E-02_JPRB,5.6182E-02_JPRB,4.9451E-02_JPRB,4.2376E-02_JPRB,3.6480E-02_JPRB,&
2582 & 3.0034E-02_JPRB,2.6432E-02_JPRB,2.9602E-02_JPRB/) 
2583KAO( :, 3, 6,13) = (/&
2584 & 7.2618E-02_JPRB,6.3591E-02_JPRB,5.5752E-02_JPRB,4.9591E-02_JPRB,4.3630E-02_JPRB,3.8182E-02_JPRB,&
2585 & 3.2101E-02_JPRB,3.0615E-02_JPRB,3.4863E-02_JPRB/) 
2586KAO( :, 4, 6,13) = (/&
2587 & 7.1650E-02_JPRB,6.2766E-02_JPRB,5.5838E-02_JPRB,4.9867E-02_JPRB,4.5071E-02_JPRB,3.9626E-02_JPRB,&
2588 & 3.4633E-02_JPRB,3.5415E-02_JPRB,4.0513E-02_JPRB/) 
2589KAO( :, 5, 6,13) = (/&
2590 & 7.0928E-02_JPRB,6.2275E-02_JPRB,5.5944E-02_JPRB,5.0656E-02_JPRB,4.6360E-02_JPRB,4.1240E-02_JPRB,&
2591 & 3.7820E-02_JPRB,4.0601E-02_JPRB,4.6473E-02_JPRB/) 
2592KAO( :, 1, 7,13) = (/&
2593 & 7.7231E-02_JPRB,6.7608E-02_JPRB,5.8137E-02_JPRB,5.0496E-02_JPRB,4.2780E-02_JPRB,3.5440E-02_JPRB,&
2594 & 2.8711E-02_JPRB,2.1532E-02_JPRB,2.1358E-02_JPRB/) 
2595KAO( :, 2, 7,13) = (/&
2596 & 7.6126E-02_JPRB,6.6645E-02_JPRB,5.7867E-02_JPRB,5.0956E-02_JPRB,4.3638E-02_JPRB,3.7441E-02_JPRB,&
2597 & 3.0756E-02_JPRB,2.4515E-02_JPRB,2.6150E-02_JPRB/) 
2598KAO( :, 3, 7,13) = (/&
2599 & 7.4977E-02_JPRB,6.5643E-02_JPRB,5.7692E-02_JPRB,5.1264E-02_JPRB,4.5058E-02_JPRB,3.9385E-02_JPRB,&
2600 & 3.2638E-02_JPRB,2.8375E-02_JPRB,3.1403E-02_JPRB/) 
2601KAO( :, 4, 7,13) = (/&
2602 & 7.4190E-02_JPRB,6.5005E-02_JPRB,5.7989E-02_JPRB,5.1738E-02_JPRB,4.6795E-02_JPRB,4.1075E-02_JPRB,&
2603 & 3.4915E-02_JPRB,3.2892E-02_JPRB,3.7110E-02_JPRB/) 
2604KAO( :, 5, 7,13) = (/&
2605 & 7.3624E-02_JPRB,6.4678E-02_JPRB,5.8242E-02_JPRB,5.2839E-02_JPRB,4.8405E-02_JPRB,4.2696E-02_JPRB,&
2606 & 3.7814E-02_JPRB,3.7869E-02_JPRB,4.3186E-02_JPRB/) 
2607KAO( :, 1, 8,13) = (/&
2608 & 7.8000E-02_JPRB,6.8274E-02_JPRB,5.8718E-02_JPRB,5.1101E-02_JPRB,4.3121E-02_JPRB,3.5929E-02_JPRB,&
2609 & 2.8945E-02_JPRB,2.0591E-02_JPRB,1.8045E-02_JPRB/) 
2610KAO( :, 2, 8,13) = (/&
2611 & 7.7193E-02_JPRB,6.7571E-02_JPRB,5.8739E-02_JPRB,5.1625E-02_JPRB,4.4291E-02_JPRB,3.8058E-02_JPRB,&
2612 & 3.1224E-02_JPRB,2.3099E-02_JPRB,2.2474E-02_JPRB/) 
2613KAO( :, 3, 8,13) = (/&
2614 & 7.6273E-02_JPRB,6.6769E-02_JPRB,5.8915E-02_JPRB,5.2274E-02_JPRB,4.5989E-02_JPRB,4.0273E-02_JPRB,&
2615 & 3.3241E-02_JPRB,2.6350E-02_JPRB,2.7546E-02_JPRB/) 
2616KAO( :, 4, 8,13) = (/&
2617 & 7.5688E-02_JPRB,6.6346E-02_JPRB,5.9396E-02_JPRB,5.3087E-02_JPRB,4.8066E-02_JPRB,4.2222E-02_JPRB,&
2618 & 3.5406E-02_JPRB,3.0325E-02_JPRB,3.3143E-02_JPRB/) 
2619KAO( :, 5, 8,13) = (/&
2620 & 7.5270E-02_JPRB,6.6169E-02_JPRB,5.9886E-02_JPRB,5.4558E-02_JPRB,5.0013E-02_JPRB,4.4073E-02_JPRB,&
2621 & 3.8032E-02_JPRB,3.5067E-02_JPRB,3.9209E-02_JPRB/) 
2622KAO( :, 1, 9,13) = (/&
2623 & 7.7473E-02_JPRB,6.7808E-02_JPRB,5.8332E-02_JPRB,5.0781E-02_JPRB,4.2784E-02_JPRB,3.5895E-02_JPRB,&
2624 & 2.8746E-02_JPRB,1.9977E-02_JPRB,2.5516E-02_JPRB/) 
2625KAO( :, 2, 9,13) = (/&
2626 & 7.6914E-02_JPRB,6.7321E-02_JPRB,5.8710E-02_JPRB,5.1554E-02_JPRB,4.4348E-02_JPRB,3.8188E-02_JPRB,&
2627 & 3.1209E-02_JPRB,2.2143E-02_JPRB,2.7211E-02_JPRB/) 
2628KAO( :, 3, 9,13) = (/&
2629 & 7.6348E-02_JPRB,6.6831E-02_JPRB,5.9238E-02_JPRB,5.2455E-02_JPRB,4.6359E-02_JPRB,4.0690E-02_JPRB,&
2630 & 3.3365E-02_JPRB,2.4927E-02_JPRB,2.8892E-02_JPRB/) 
2631KAO( :, 4, 9,13) = (/&
2632 & 7.6078E-02_JPRB,6.6718E-02_JPRB,5.9965E-02_JPRB,5.3687E-02_JPRB,4.8782E-02_JPRB,4.2963E-02_JPRB,&
2633 & 3.5682E-02_JPRB,2.8422E-02_JPRB,3.1640E-02_JPRB/) 
2634KAO( :, 5, 9,13) = (/&
2635 & 7.5933E-02_JPRB,6.6835E-02_JPRB,6.0758E-02_JPRB,5.5666E-02_JPRB,5.1075E-02_JPRB,4.5007E-02_JPRB,&
2636 & 3.8345E-02_JPRB,3.2458E-02_JPRB,3.5657E-02_JPRB/) 
2637KAO( :, 1,10,13) = (/&
2638 & 7.5495E-02_JPRB,6.6073E-02_JPRB,5.6962E-02_JPRB,4.9669E-02_JPRB,4.1944E-02_JPRB,3.5433E-02_JPRB,&
2639 & 2.8273E-02_JPRB,1.9547E-02_JPRB,6.8270E-02_JPRB/) 
2640KAO( :, 2,10,13) = (/&
2641 & 7.5127E-02_JPRB,6.5753E-02_JPRB,5.7655E-02_JPRB,5.0612E-02_JPRB,4.3966E-02_JPRB,3.7985E-02_JPRB,&
2642 & 3.0798E-02_JPRB,2.1586E-02_JPRB,7.2556E-02_JPRB/) 
2643KAO( :, 3,10,13) = (/&
2644 & 7.4986E-02_JPRB,6.5658E-02_JPRB,5.8530E-02_JPRB,5.1941E-02_JPRB,4.6351E-02_JPRB,4.0729E-02_JPRB,&
2645 & 3.3154E-02_JPRB,2.4145E-02_JPRB,7.6901E-02_JPRB/) 
2646KAO( :, 4,10,13) = (/&
2647 & 7.5261E-02_JPRB,6.6078E-02_JPRB,5.9658E-02_JPRB,5.3761E-02_JPRB,4.9061E-02_JPRB,4.3256E-02_JPRB,&
2648 & 3.5593E-02_JPRB,2.7205E-02_JPRB,8.0949E-02_JPRB/) 
2649KAO( :, 5,10,13) = (/&
2650 & 7.5310E-02_JPRB,6.6484E-02_JPRB,6.0891E-02_JPRB,5.6203E-02_JPRB,5.1608E-02_JPRB,4.5631E-02_JPRB,&
2651 & 3.8393E-02_JPRB,3.0810E-02_JPRB,8.3946E-02_JPRB/) 
2652KAO( :, 1,11,13) = (/&
2653 & 7.2145E-02_JPRB,6.3140E-02_JPRB,5.5079E-02_JPRB,4.8199E-02_JPRB,4.1552E-02_JPRB,3.5607E-02_JPRB,&
2654 & 2.8410E-02_JPRB,2.0333E-02_JPRB,1.1722E-01_JPRB/) 
2655KAO( :, 2,11,13) = (/&
2656 & 7.2308E-02_JPRB,6.3289E-02_JPRB,5.6229E-02_JPRB,4.9646E-02_JPRB,4.4153E-02_JPRB,3.8471E-02_JPRB,&
2657 & 3.1024E-02_JPRB,2.2227E-02_JPRB,1.2017E-01_JPRB/) 
2658KAO( :, 3,11,13) = (/&
2659 & 7.2843E-02_JPRB,6.3926E-02_JPRB,5.7644E-02_JPRB,5.1784E-02_JPRB,4.7031E-02_JPRB,4.1323E-02_JPRB,&
2660 & 3.3588E-02_JPRB,2.4733E-02_JPRB,1.2387E-01_JPRB/) 
2661KAO( :, 4,11,13) = (/&
2662 & 7.3135E-02_JPRB,6.4581E-02_JPRB,5.9101E-02_JPRB,5.4448E-02_JPRB,4.9988E-02_JPRB,4.3915E-02_JPRB,&
2663 & 3.6387E-02_JPRB,2.7718E-02_JPRB,1.2773E-01_JPRB/) 
2664KAO( :, 5,11,13) = (/&
2665 & 7.3317E-02_JPRB,6.5357E-02_JPRB,6.0772E-02_JPRB,5.7257E-02_JPRB,5.2643E-02_JPRB,4.6647E-02_JPRB,&
2666 & 3.9495E-02_JPRB,3.1088E-02_JPRB,1.3117E-01_JPRB/) 
2667KAO( :, 1,12,13) = (/&
2668 & 6.8339E-02_JPRB,5.9807E-02_JPRB,5.2868E-02_JPRB,4.6514E-02_JPRB,4.1030E-02_JPRB,3.5325E-02_JPRB,&
2669 & 2.8259E-02_JPRB,2.1368E-02_JPRB,1.5845E-01_JPRB/) 
2670KAO( :, 2,12,13) = (/&
2671 & 6.9028E-02_JPRB,6.0544E-02_JPRB,5.4494E-02_JPRB,4.8800E-02_JPRB,4.4025E-02_JPRB,3.8260E-02_JPRB,&
2672 & 3.0917E-02_JPRB,2.3169E-02_JPRB,1.6072E-01_JPRB/) 
2673KAO( :, 3,12,13) = (/&
2674 & 6.9564E-02_JPRB,6.1451E-02_JPRB,5.6107E-02_JPRB,5.1605E-02_JPRB,4.7233E-02_JPRB,4.1139E-02_JPRB,&
2675 & 3.3727E-02_JPRB,2.5462E-02_JPRB,1.6379E-01_JPRB/) 
2676KAO( :, 4,12,13) = (/&
2677 & 7.0110E-02_JPRB,6.2544E-02_JPRB,5.8080E-02_JPRB,5.4612E-02_JPRB,5.0269E-02_JPRB,4.4060E-02_JPRB,&
2678 & 3.6850E-02_JPRB,2.8277E-02_JPRB,1.6703E-01_JPRB/) 
2679KAO( :, 5,12,13) = (/&
2680 & 7.0812E-02_JPRB,6.3874E-02_JPRB,6.0361E-02_JPRB,5.7551E-02_JPRB,5.3132E-02_JPRB,4.7188E-02_JPRB,&
2681 & 4.0179E-02_JPRB,3.1468E-02_JPRB,1.7022E-01_JPRB/) 
2682KAO( :, 1,13,13) = (/&
2683 & 6.4142E-02_JPRB,5.6225E-02_JPRB,5.0394E-02_JPRB,4.4947E-02_JPRB,4.0201E-02_JPRB,3.4418E-02_JPRB,&
2684 & 2.8158E-02_JPRB,2.2746E-02_JPRB,1.7050E-01_JPRB/) 
2685KAO( :, 2,13,13) = (/&
2686 & 6.4886E-02_JPRB,5.7309E-02_JPRB,5.2171E-02_JPRB,4.7818E-02_JPRB,4.3432E-02_JPRB,3.7455E-02_JPRB,&
2687 & 3.0630E-02_JPRB,2.4364E-02_JPRB,1.7276E-01_JPRB/) 
2688KAO( :, 3,13,13) = (/&
2689 & 6.5727E-02_JPRB,5.8652E-02_JPRB,5.4299E-02_JPRB,5.0937E-02_JPRB,4.6609E-02_JPRB,4.0612E-02_JPRB,&
2690 & 3.3484E-02_JPRB,2.6453E-02_JPRB,1.7566E-01_JPRB/) 
2691KAO( :, 4,13,13) = (/&
2692 & 6.6753E-02_JPRB,6.0302E-02_JPRB,5.6875E-02_JPRB,5.4053E-02_JPRB,4.9735E-02_JPRB,4.3858E-02_JPRB,&
2693 & 3.6837E-02_JPRB,2.8969E-02_JPRB,1.7832E-01_JPRB/) 
2694KAO( :, 5,13,13) = (/&
2695 & 6.7695E-02_JPRB,6.1869E-02_JPRB,5.9620E-02_JPRB,5.7064E-02_JPRB,5.2850E-02_JPRB,4.7362E-02_JPRB,&
2696 & 4.0382E-02_JPRB,3.1936E-02_JPRB,1.8057E-01_JPRB/) 
2697KAO( :, 1, 1,14) = (/&
2698 & 7.1125E-02_JPRB,6.2447E-02_JPRB,5.3777E-02_JPRB,4.6002E-02_JPRB,3.9919E-02_JPRB,3.6099E-02_JPRB,&
2699 & 4.0006E-02_JPRB,4.6122E-02_JPRB,5.1833E-02_JPRB/) 
2700KAO( :, 2, 1,14) = (/&
2701 & 6.9870E-02_JPRB,6.1342E-02_JPRB,5.2827E-02_JPRB,4.5922E-02_JPRB,4.0565E-02_JPRB,3.9007E-02_JPRB,&
2702 & 4.5679E-02_JPRB,5.2643E-02_JPRB,5.9148E-02_JPRB/) 
2703KAO( :, 3, 1,14) = (/&
2704 & 6.8757E-02_JPRB,6.0364E-02_JPRB,5.2393E-02_JPRB,4.6480E-02_JPRB,4.1375E-02_JPRB,4.3228E-02_JPRB,&
2705 & 5.1554E-02_JPRB,5.9415E-02_JPRB,6.6727E-02_JPRB/) 
2706KAO( :, 4, 1,14) = (/&
2707 & 6.7713E-02_JPRB,5.9439E-02_JPRB,5.2158E-02_JPRB,4.6803E-02_JPRB,4.2633E-02_JPRB,4.8201E-02_JPRB,&
2708 & 5.7539E-02_JPRB,6.6348E-02_JPRB,7.4536E-02_JPRB/) 
2709KAO( :, 5, 1,14) = (/&
2710 & 6.6600E-02_JPRB,5.8466E-02_JPRB,5.1820E-02_JPRB,4.7055E-02_JPRB,4.4661E-02_JPRB,5.3325E-02_JPRB,&
2711 & 6.3678E-02_JPRB,7.3404E-02_JPRB,8.2448E-02_JPRB/) 
2712KAO( :, 1, 2,14) = (/&
2713 & 7.7042E-02_JPRB,6.7550E-02_JPRB,5.8058E-02_JPRB,4.9570E-02_JPRB,4.3264E-02_JPRB,3.8479E-02_JPRB,&
2714 & 4.1328E-02_JPRB,4.7688E-02_JPRB,5.4228E-02_JPRB/) 
2715KAO( :, 2, 2,14) = (/&
2716 & 7.5776E-02_JPRB,6.6451E-02_JPRB,5.7187E-02_JPRB,4.9780E-02_JPRB,4.4125E-02_JPRB,4.1352E-02_JPRB,&
2717 & 4.7706E-02_JPRB,5.5037E-02_JPRB,6.2579E-02_JPRB/) 
2718KAO( :, 3, 2,14) = (/&
2719 & 7.4669E-02_JPRB,6.5491E-02_JPRB,5.6847E-02_JPRB,5.0512E-02_JPRB,4.5218E-02_JPRB,4.5782E-02_JPRB,&
2720 & 5.4332E-02_JPRB,6.2645E-02_JPRB,7.1228E-02_JPRB/) 
2721KAO( :, 4, 2,14) = (/&
2722 & 7.3494E-02_JPRB,6.4459E-02_JPRB,5.6471E-02_JPRB,5.0688E-02_JPRB,4.6511E-02_JPRB,5.1170E-02_JPRB,&
2723 & 6.1095E-02_JPRB,7.0411E-02_JPRB,8.0040E-02_JPRB/) 
2724KAO( :, 5, 2,14) = (/&
2725 & 7.2133E-02_JPRB,6.3274E-02_JPRB,5.5909E-02_JPRB,5.0987E-02_JPRB,4.8402E-02_JPRB,5.6911E-02_JPRB,&
2726 & 6.7954E-02_JPRB,7.8300E-02_JPRB,8.9007E-02_JPRB/) 
2727KAO( :, 1, 3,14) = (/&
2728 & 8.3277E-02_JPRB,7.2971E-02_JPRB,6.2667E-02_JPRB,5.3474E-02_JPRB,4.6645E-02_JPRB,4.0581E-02_JPRB,&
2729 & 4.0951E-02_JPRB,4.7132E-02_JPRB,5.4097E-02_JPRB/) 
2730KAO( :, 2, 3,14) = (/&
2731 & 8.2055E-02_JPRB,7.1904E-02_JPRB,6.1829E-02_JPRB,5.3750E-02_JPRB,4.7688E-02_JPRB,4.3144E-02_JPRB,&
2732 & 4.7845E-02_JPRB,5.5169E-02_JPRB,6.3384E-02_JPRB/) 
2733KAO( :, 3, 3,14) = (/&
2734 & 8.0862E-02_JPRB,7.0861E-02_JPRB,6.1457E-02_JPRB,5.4455E-02_JPRB,4.8823E-02_JPRB,4.7333E-02_JPRB,&
2735 & 5.5190E-02_JPRB,6.3675E-02_JPRB,7.3215E-02_JPRB/) 
2736KAO( :, 4, 3,14) = (/&
2737 & 7.9537E-02_JPRB,6.9705E-02_JPRB,6.0972E-02_JPRB,5.4811E-02_JPRB,5.0281E-02_JPRB,5.2809E-02_JPRB,&
2738 & 6.2782E-02_JPRB,7.2454E-02_JPRB,8.3349E-02_JPRB/) 
2739KAO( :, 5, 3,14) = (/&
2740 & 7.8064E-02_JPRB,6.8419E-02_JPRB,6.0465E-02_JPRB,5.5324E-02_JPRB,5.2307E-02_JPRB,5.9034E-02_JPRB,&
2741 & 7.0524E-02_JPRB,8.1382E-02_JPRB,9.3638E-02_JPRB/) 
2742KAO( :, 1, 4,14) = (/&
2743 & 9.0845E-02_JPRB,7.9564E-02_JPRB,6.8284E-02_JPRB,5.7995E-02_JPRB,5.0071E-02_JPRB,4.2766E-02_JPRB,&
2744 & 4.0354E-02_JPRB,4.5834E-02_JPRB,5.2848E-02_JPRB/) 
2745KAO( :, 2, 4,14) = (/&
2746 & 8.9552E-02_JPRB,7.8435E-02_JPRB,6.7367E-02_JPRB,5.8123E-02_JPRB,5.1123E-02_JPRB,4.5183E-02_JPRB,&
2747 & 4.7218E-02_JPRB,5.4390E-02_JPRB,6.2802E-02_JPRB/) 
2748KAO( :, 3, 4,14) = (/&
2749 & 8.8242E-02_JPRB,7.7291E-02_JPRB,6.6872E-02_JPRB,5.8721E-02_JPRB,5.2277E-02_JPRB,4.9062E-02_JPRB,&
2750 & 5.5104E-02_JPRB,6.3535E-02_JPRB,7.3415E-02_JPRB/) 
2751
2752IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',1,ZHOOK_HANDLE)
2753END SUBROUTINE PART9
2754
2755
2756SUBROUTINE PART10
2757
2758REAL(KIND=JPRB) :: ZHOOK_HANDLE
2759IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',0,ZHOOK_HANDLE)
2760
2761
2762KAO( :, 4, 4,14) = (/&
2763 & 8.6759E-02_JPRB,7.5998E-02_JPRB,6.6249E-02_JPRB,5.9144E-02_JPRB,5.4005E-02_JPRB,5.4305E-02_JPRB,&
2764 & 6.3297E-02_JPRB,7.3031E-02_JPRB,8.4384E-02_JPRB/) 
2765KAO( :, 5, 4,14) = (/&
2766 & 8.5264E-02_JPRB,7.4691E-02_JPRB,6.5716E-02_JPRB,5.9851E-02_JPRB,5.6460E-02_JPRB,6.0471E-02_JPRB,&
2767 & 7.1720E-02_JPRB,8.2783E-02_JPRB,9.5664E-02_JPRB/) 
2768KAO( :, 1, 5,14) = (/&
2769 & 9.9315E-02_JPRB,8.6956E-02_JPRB,7.4597E-02_JPRB,6.3098E-02_JPRB,5.3822E-02_JPRB,4.5087E-02_JPRB,&
2770 & 4.0285E-02_JPRB,4.4268E-02_JPRB,5.1127E-02_JPRB/) 
2771KAO( :, 2, 5,14) = (/&
2772 & 9.7906E-02_JPRB,8.5725E-02_JPRB,7.3576E-02_JPRB,6.3138E-02_JPRB,5.4941E-02_JPRB,4.7422E-02_JPRB,&
2773 & 4.6902E-02_JPRB,5.3385E-02_JPRB,6.1752E-02_JPRB/) 
2774KAO( :, 3, 5,14) = (/&
2775 & 9.6528E-02_JPRB,8.4522E-02_JPRB,7.2985E-02_JPRB,6.3691E-02_JPRB,5.5941E-02_JPRB,5.1390E-02_JPRB,&
2776 & 5.4800E-02_JPRB,6.3141E-02_JPRB,7.3064E-02_JPRB/) 
2777KAO( :, 4, 5,14) = (/&
2778 & 9.5030E-02_JPRB,8.3215E-02_JPRB,7.2382E-02_JPRB,6.4248E-02_JPRB,5.7876E-02_JPRB,5.6367E-02_JPRB,&
2779 & 6.3403E-02_JPRB,7.3204E-02_JPRB,8.4675E-02_JPRB/) 
2780KAO( :, 5, 5,14) = (/&
2781 & 9.3519E-02_JPRB,8.1896E-02_JPRB,7.1942E-02_JPRB,6.4913E-02_JPRB,6.0750E-02_JPRB,6.2288E-02_JPRB,&
2782 & 7.2363E-02_JPRB,8.3574E-02_JPRB,9.6711E-02_JPRB/) 
2783KAO( :, 1, 6,14) = (/&
2784 & 1.0848E-01_JPRB,9.4964E-02_JPRB,8.1446E-02_JPRB,6.8624E-02_JPRB,5.8073E-02_JPRB,4.7733E-02_JPRB,&
2785 & 4.0794E-02_JPRB,4.2233E-02_JPRB,4.8838E-02_JPRB/) 
2786KAO( :, 2, 6,14) = (/&
2787 & 1.0700E-01_JPRB,9.3665E-02_JPRB,8.0341E-02_JPRB,6.8687E-02_JPRB,5.9287E-02_JPRB,4.9965E-02_JPRB,&
2788 & 4.6801E-02_JPRB,5.1522E-02_JPRB,5.9571E-02_JPRB/) 
2789KAO( :, 3, 6,14) = (/&
2790 & 1.0569E-01_JPRB,9.2526E-02_JPRB,7.9786E-02_JPRB,6.9323E-02_JPRB,6.0296E-02_JPRB,5.3850E-02_JPRB,&
2791 & 5.4326E-02_JPRB,6.1617E-02_JPRB,7.1174E-02_JPRB/) 
2792KAO( :, 4, 6,14) = (/&
2793 & 1.0422E-01_JPRB,9.1243E-02_JPRB,7.9257E-02_JPRB,7.0200E-02_JPRB,6.2110E-02_JPRB,5.8890E-02_JPRB,&
2794 & 6.2697E-02_JPRB,7.2186E-02_JPRB,8.3411E-02_JPRB/) 
2795KAO( :, 5, 6,14) = (/&
2796 & 1.0274E-01_JPRB,8.9945E-02_JPRB,7.8955E-02_JPRB,7.0870E-02_JPRB,6.5007E-02_JPRB,6.4538E-02_JPRB,&
2797 & 7.1962E-02_JPRB,8.3225E-02_JPRB,9.6184E-02_JPRB/) 
2798KAO( :, 1, 7,14) = (/&
2799 & 1.1805E-01_JPRB,1.0333E-01_JPRB,8.8604E-02_JPRB,7.4383E-02_JPRB,6.2795E-02_JPRB,5.0938E-02_JPRB,&
2800 & 4.1734E-02_JPRB,4.0173E-02_JPRB,4.6320E-02_JPRB/) 
2801KAO( :, 2, 7,14) = (/&
2802 & 1.1659E-01_JPRB,1.0206E-01_JPRB,8.7517E-02_JPRB,7.4746E-02_JPRB,6.4050E-02_JPRB,5.3141E-02_JPRB,&
2803 & 4.7155E-02_JPRB,4.9297E-02_JPRB,5.6966E-02_JPRB/) 
2804KAO( :, 3, 7,14) = (/&
2805 & 1.1548E-01_JPRB,1.0108E-01_JPRB,8.7065E-02_JPRB,7.5639E-02_JPRB,6.5270E-02_JPRB,5.6793E-02_JPRB,&
2806 & 5.4049E-02_JPRB,5.9341E-02_JPRB,6.8535E-02_JPRB/) 
2807KAO( :, 4, 7,14) = (/&
2808 & 1.1421E-01_JPRB,9.9974E-02_JPRB,8.6788E-02_JPRB,7.6683E-02_JPRB,6.6954E-02_JPRB,6.1718E-02_JPRB,&
2809 & 6.2059E-02_JPRB,7.0009E-02_JPRB,8.0835E-02_JPRB/) 
2810KAO( :, 5, 7,14) = (/&
2811 & 1.1283E-01_JPRB,9.8769E-02_JPRB,8.6621E-02_JPRB,7.7418E-02_JPRB,6.9776E-02_JPRB,6.7214E-02_JPRB,&
2812 & 7.0897E-02_JPRB,8.1280E-02_JPRB,9.3717E-02_JPRB/) 
2813KAO( :, 1, 8,14) = (/&
2814 & 1.2760E-01_JPRB,1.1168E-01_JPRB,9.5756E-02_JPRB,8.0242E-02_JPRB,6.7771E-02_JPRB,5.4512E-02_JPRB,&
2815 & 4.3297E-02_JPRB,3.8468E-02_JPRB,4.3412E-02_JPRB/) 
2816KAO( :, 2, 8,14) = (/&
2817 & 1.2647E-01_JPRB,1.1069E-01_JPRB,9.4911E-02_JPRB,8.1080E-02_JPRB,6.9303E-02_JPRB,5.6801E-02_JPRB,&
2818 & 4.8262E-02_JPRB,4.7089E-02_JPRB,5.4046E-02_JPRB/) 
2819KAO( :, 3, 8,14) = (/&
2820 & 1.2554E-01_JPRB,1.0988E-01_JPRB,9.4556E-02_JPRB,8.2231E-02_JPRB,7.0704E-02_JPRB,6.0253E-02_JPRB,&
2821 & 5.4589E-02_JPRB,5.6872E-02_JPRB,6.5560E-02_JPRB/) 
2822KAO( :, 4, 8,14) = (/&
2823 & 1.2457E-01_JPRB,1.0903E-01_JPRB,9.4616E-02_JPRB,8.3457E-02_JPRB,7.2396E-02_JPRB,6.4980E-02_JPRB,&
2824 & 6.1867E-02_JPRB,6.7548E-02_JPRB,7.7808E-02_JPRB/) 
2825KAO( :, 5, 8,14) = (/&
2826 & 1.2330E-01_JPRB,1.0792E-01_JPRB,9.4626E-02_JPRB,8.4389E-02_JPRB,7.5157E-02_JPRB,7.0416E-02_JPRB,&
2827 & 7.0105E-02_JPRB,7.8665E-02_JPRB,9.0560E-02_JPRB/) 
2828KAO( :, 1, 9,14) = (/&
2829 & 1.3720E-01_JPRB,1.2007E-01_JPRB,1.0294E-01_JPRB,8.6103E-02_JPRB,7.2470E-02_JPRB,5.8097E-02_JPRB,&
2830 & 4.5389E-02_JPRB,3.6904E-02_JPRB,4.1799E-02_JPRB/) 
2831KAO( :, 2, 9,14) = (/&
2832 & 1.3628E-01_JPRB,1.1927E-01_JPRB,1.0226E-01_JPRB,8.7181E-02_JPRB,7.4343E-02_JPRB,6.0740E-02_JPRB,&
2833 & 4.9959E-02_JPRB,4.4876E-02_JPRB,5.0393E-02_JPRB/) 
2834KAO( :, 3, 9,14) = (/&
2835 & 1.3535E-01_JPRB,1.1846E-01_JPRB,1.0188E-01_JPRB,8.8693E-02_JPRB,7.6184E-02_JPRB,6.4206E-02_JPRB,&
2836 & 5.5907E-02_JPRB,5.4085E-02_JPRB,6.1556E-02_JPRB/) 
2837KAO( :, 4, 9,14) = (/&
2838 & 1.3444E-01_JPRB,1.1766E-01_JPRB,1.0208E-01_JPRB,9.0218E-02_JPRB,7.8130E-02_JPRB,6.8528E-02_JPRB,&
2839 & 6.2619E-02_JPRB,6.4323E-02_JPRB,7.3797E-02_JPRB/) 
2840KAO( :, 5, 9,14) = (/&
2841 & 1.3348E-01_JPRB,1.1683E-01_JPRB,1.0242E-01_JPRB,9.1503E-02_JPRB,8.0977E-02_JPRB,7.3855E-02_JPRB,&
2842 & 6.9865E-02_JPRB,7.5417E-02_JPRB,8.6747E-02_JPRB/) 
2843KAO( :, 1,10,14) = (/&
2844 & 1.4622E-01_JPRB,1.2796E-01_JPRB,1.0970E-01_JPRB,9.1694E-02_JPRB,7.6915E-02_JPRB,6.1594E-02_JPRB,&
2845 & 4.7802E-02_JPRB,3.6372E-02_JPRB,1.2782E-01_JPRB/) 
2846KAO( :, 2,10,14) = (/&
2847 & 1.4558E-01_JPRB,1.2740E-01_JPRB,1.0923E-01_JPRB,9.3107E-02_JPRB,7.9235E-02_JPRB,6.4561E-02_JPRB,&
2848 & 5.2530E-02_JPRB,4.3432E-02_JPRB,1.2805E-01_JPRB/) 
2849KAO( :, 3,10,14) = (/&
2850 & 1.4478E-01_JPRB,1.2670E-01_JPRB,1.0897E-01_JPRB,9.4925E-02_JPRB,8.1357E-02_JPRB,6.8532E-02_JPRB,&
2851 & 5.8051E-02_JPRB,5.1858E-02_JPRB,1.2910E-01_JPRB/) 
2852KAO( :, 4,10,14) = (/&
2853 & 1.4390E-01_JPRB,1.2594E-01_JPRB,1.0930E-01_JPRB,9.6640E-02_JPRB,8.3903E-02_JPRB,7.3006E-02_JPRB,&
2854 & 6.4450E-02_JPRB,6.1593E-02_JPRB,1.3078E-01_JPRB/) 
2855KAO( :, 5,10,14) = (/&
2856 & 1.4315E-01_JPRB,1.2528E-01_JPRB,1.1004E-01_JPRB,9.8357E-02_JPRB,8.7154E-02_JPRB,7.8009E-02_JPRB,&
2857 & 7.1120E-02_JPRB,7.2455E-02_JPRB,1.3316E-01_JPRB/) 
2858KAO( :, 1,11,14) = (/&
2859 & 1.5395E-01_JPRB,1.3473E-01_JPRB,1.1550E-01_JPRB,9.7315E-02_JPRB,8.2228E-02_JPRB,6.6162E-02_JPRB,&
2860 & 5.2338E-02_JPRB,3.8889E-02_JPRB,2.0928E-01_JPRB/) 
2861KAO( :, 2,11,14) = (/&
2862 & 1.5355E-01_JPRB,1.3437E-01_JPRB,1.1530E-01_JPRB,9.9444E-02_JPRB,8.4668E-02_JPRB,7.0074E-02_JPRB,&
2863 & 5.7545E-02_JPRB,4.5714E-02_JPRB,2.1031E-01_JPRB/) 
2864KAO( :, 3,11,14) = (/&
2865 & 1.5306E-01_JPRB,1.3395E-01_JPRB,1.1569E-01_JPRB,1.0160E-01_JPRB,8.7341E-02_JPRB,7.4791E-02_JPRB,&
2866 & 6.3171E-02_JPRB,5.3818E-02_JPRB,2.0902E-01_JPRB/) 
2867KAO( :, 4,11,14) = (/&
2868 & 1.5264E-01_JPRB,1.3359E-01_JPRB,1.1675E-01_JPRB,1.0361E-01_JPRB,9.0695E-02_JPRB,7.9958E-02_JPRB,&
2869 & 6.9362E-02_JPRB,6.3424E-02_JPRB,2.0832E-01_JPRB/) 
2870KAO( :, 5,11,14) = (/&
2871 & 1.5211E-01_JPRB,1.3312E-01_JPRB,1.1800E-01_JPRB,1.0575E-01_JPRB,9.4915E-02_JPRB,8.5107E-02_JPRB,&
2872 & 7.5798E-02_JPRB,7.4229E-02_JPRB,2.0949E-01_JPRB/) 
2873KAO( :, 1,12,14) = (/&
2874 & 1.6007E-01_JPRB,1.4008E-01_JPRB,1.2008E-01_JPRB,1.0232E-01_JPRB,8.6761E-02_JPRB,7.0740E-02_JPRB,&
2875 & 5.6718E-02_JPRB,4.1250E-02_JPRB,2.6518E-01_JPRB/) 
2876KAO( :, 2,12,14) = (/&
2877 & 1.6020E-01_JPRB,1.4019E-01_JPRB,1.2063E-01_JPRB,1.0501E-01_JPRB,8.9744E-02_JPRB,7.5616E-02_JPRB,&
2878 & 6.2355E-02_JPRB,4.7922E-02_JPRB,2.6549E-01_JPRB/) 
2879KAO( :, 3,12,14) = (/&
2880 & 1.6044E-01_JPRB,1.4040E-01_JPRB,1.2209E-01_JPRB,1.0775E-01_JPRB,9.3316E-02_JPRB,8.1050E-02_JPRB,&
2881 & 6.8087E-02_JPRB,5.5672E-02_JPRB,2.6354E-01_JPRB/) 
2882KAO( :, 4,12,14) = (/&
2883 & 1.6037E-01_JPRB,1.4035E-01_JPRB,1.2384E-01_JPRB,1.1034E-01_JPRB,9.7597E-02_JPRB,8.6743E-02_JPRB,&
2884 & 7.4072E-02_JPRB,6.4868E-02_JPRB,2.6219E-01_JPRB/) 
2885KAO( :, 5,12,14) = (/&
2886 & 1.6003E-01_JPRB,1.4017E-01_JPRB,1.2549E-01_JPRB,1.1310E-01_JPRB,1.0250E-01_JPRB,9.1994E-02_JPRB,&
2887 & 8.0439E-02_JPRB,7.5469E-02_JPRB,2.6239E-01_JPRB/) 
2888KAO( :, 1,13,14) = (/&
2889 & 1.6469E-01_JPRB,1.4412E-01_JPRB,1.2368E-01_JPRB,1.0640E-01_JPRB,9.0617E-02_JPRB,7.5149E-02_JPRB,&
2890 & 6.0781E-02_JPRB,4.3348E-02_JPRB,2.6721E-01_JPRB/) 
2891KAO( :, 2,13,14) = (/&
2892 & 1.6562E-01_JPRB,1.4493E-01_JPRB,1.2548E-01_JPRB,1.0990E-01_JPRB,9.4570E-02_JPRB,8.0925E-02_JPRB,&
2893 & 6.6783E-02_JPRB,4.9779E-02_JPRB,2.6700E-01_JPRB/) 
2894KAO( :, 3,13,14) = (/&
2895 & 1.6629E-01_JPRB,1.4552E-01_JPRB,1.2768E-01_JPRB,1.1332E-01_JPRB,9.9317E-02_JPRB,8.6925E-02_JPRB,&
2896 & 7.2626E-02_JPRB,5.7255E-02_JPRB,2.6579E-01_JPRB/) 
2897KAO( :, 4,13,14) = (/&
2898 & 1.6653E-01_JPRB,1.4581E-01_JPRB,1.2999E-01_JPRB,1.1666E-01_JPRB,1.0451E-01_JPRB,9.2915E-02_JPRB,&
2899 & 7.8534E-02_JPRB,6.6130E-02_JPRB,2.6675E-01_JPRB/) 
2900KAO( :, 5,13,14) = (/&
2901 & 1.6684E-01_JPRB,1.4632E-01_JPRB,1.3221E-01_JPRB,1.2027E-01_JPRB,1.0991E-01_JPRB,9.8357E-02_JPRB,&
2902 & 8.4972E-02_JPRB,7.6473E-02_JPRB,2.6996E-01_JPRB/) 
2903KAO( :, 1, 1,15) = (/&
2904 & 8.6335E-02_JPRB,7.5626E-02_JPRB,6.4917E-02_JPRB,5.5295E-02_JPRB,5.0812E-02_JPRB,5.9948E-02_JPRB,&
2905 & 7.1505E-02_JPRB,8.2180E-02_JPRB,9.1859E-02_JPRB/) 
2906KAO( :, 2, 1,15) = (/&
2907 & 8.4567E-02_JPRB,7.4086E-02_JPRB,6.3604E-02_JPRB,5.5283E-02_JPRB,5.6490E-02_JPRB,6.9672E-02_JPRB,&
2908 & 8.3123E-02_JPRB,9.5602E-02_JPRB,1.0689E-01_JPRB/) 
2909KAO( :, 3, 1,15) = (/&
2910 & 8.2946E-02_JPRB,7.2675E-02_JPRB,6.2405E-02_JPRB,5.5773E-02_JPRB,6.3940E-02_JPRB,7.9639E-02_JPRB,&
2911 & 9.5049E-02_JPRB,1.0933E-01_JPRB,1.2237E-01_JPRB/) 
2912KAO( :, 4, 1,15) = (/&
2913 & 8.1353E-02_JPRB,7.1286E-02_JPRB,6.1452E-02_JPRB,5.8032E-02_JPRB,7.2168E-02_JPRB,8.9901E-02_JPRB,&
2914 & 1.0730E-01_JPRB,1.2343E-01_JPRB,1.3810E-01_JPRB/) 
2915KAO( :, 5, 1,15) = (/&
2916 & 8.0306E-02_JPRB,7.0375E-02_JPRB,6.1401E-02_JPRB,6.2088E-02_JPRB,8.0744E-02_JPRB,1.0061E-01_JPRB,&
2917 & 1.2011E-01_JPRB,1.3812E-01_JPRB,1.5455E-01_JPRB/) 
2918KAO( :, 1, 2,15) = (/&
2919 & 9.5589E-02_JPRB,8.3777E-02_JPRB,7.1976E-02_JPRB,6.1258E-02_JPRB,5.5368E-02_JPRB,6.4085E-02_JPRB,&
2920 & 7.6446E-02_JPRB,8.7825E-02_JPRB,9.9724E-02_JPRB/) 
2921KAO( :, 2, 2,15) = (/&
2922 & 9.3570E-02_JPRB,8.1988E-02_JPRB,7.0421E-02_JPRB,6.1059E-02_JPRB,6.1189E-02_JPRB,7.4507E-02_JPRB,&
2923 & 8.8919E-02_JPRB,1.0224E-01_JPRB,1.1610E-01_JPRB/) 
2924KAO( :, 3, 2,15) = (/&
2925 & 9.1829E-02_JPRB,8.0436E-02_JPRB,6.9070E-02_JPRB,6.1314E-02_JPRB,6.8582E-02_JPRB,8.5238E-02_JPRB,&
2926 & 1.0175E-01_JPRB,1.1706E-01_JPRB,1.3301E-01_JPRB/) 
2927KAO( :, 4, 2,15) = (/&
2928 & 9.0487E-02_JPRB,7.9254E-02_JPRB,6.8526E-02_JPRB,6.4228E-02_JPRB,7.7434E-02_JPRB,9.6498E-02_JPRB,&
2929 & 1.1522E-01_JPRB,1.3267E-01_JPRB,1.5077E-01_JPRB/) 
2930KAO( :, 5, 2,15) = (/&
2931 & 8.9669E-02_JPRB,7.8542E-02_JPRB,6.8954E-02_JPRB,6.8451E-02_JPRB,8.6910E-02_JPRB,1.0835E-01_JPRB,&
2932 & 1.2939E-01_JPRB,1.4902E-01_JPRB,1.6935E-01_JPRB/) 
2933KAO( :, 1, 3,15) = (/&
2934 & 1.0676E-01_JPRB,9.3553E-02_JPRB,8.0347E-02_JPRB,6.7838E-02_JPRB,5.9827E-02_JPRB,6.6522E-02_JPRB,&
2935 & 7.9363E-02_JPRB,9.1189E-02_JPRB,1.0525E-01_JPRB/) 
2936KAO( :, 2, 3,15) = (/&
2937 & 1.0446E-01_JPRB,9.1534E-02_JPRB,7.8612E-02_JPRB,6.7925E-02_JPRB,6.5040E-02_JPRB,7.7741E-02_JPRB,&
2938 & 9.2778E-02_JPRB,1.0667E-01_JPRB,1.2309E-01_JPRB/) 
2939KAO( :, 3, 3,15) = (/&
2940 & 1.0249E-01_JPRB,8.9809E-02_JPRB,7.7136E-02_JPRB,6.8091E-02_JPRB,7.2454E-02_JPRB,8.9300E-02_JPRB,&
2941 & 1.0660E-01_JPRB,1.2265E-01_JPRB,1.4148E-01_JPRB/) 
2942KAO( :, 4, 3,15) = (/&
2943 & 1.0145E-01_JPRB,8.8891E-02_JPRB,7.6929E-02_JPRB,7.0768E-02_JPRB,8.1305E-02_JPRB,1.0131E-01_JPRB,&
2944 & 1.2096E-01_JPRB,1.3918E-01_JPRB,1.6053E-01_JPRB/) 
2945KAO( :, 5, 3,15) = (/&
2946 & 1.0070E-01_JPRB,8.8241E-02_JPRB,7.7594E-02_JPRB,7.4852E-02_JPRB,9.1339E-02_JPRB,1.1386E-01_JPRB,&
2947 & 1.3595E-01_JPRB,1.5652E-01_JPRB,1.8047E-01_JPRB/) 
2948KAO( :, 1, 4,15) = (/&
2949 & 1.1948E-01_JPRB,1.0466E-01_JPRB,8.9846E-02_JPRB,7.5435E-02_JPRB,6.5653E-02_JPRB,6.8395E-02_JPRB,&
2950 & 8.1117E-02_JPRB,9.3286E-02_JPRB,1.0845E-01_JPRB/) 
2951KAO( :, 2, 4,15) = (/&
2952 & 1.1744E-01_JPRB,1.0288E-01_JPRB,8.8326E-02_JPRB,7.6088E-02_JPRB,7.0000E-02_JPRB,8.0045E-02_JPRB,&
2953 & 9.5565E-02_JPRB,1.0996E-01_JPRB,1.2777E-01_JPRB/) 
2954KAO( :, 3, 4,15) = (/&
2955 & 1.1572E-01_JPRB,1.0138E-01_JPRB,8.7035E-02_JPRB,7.6536E-02_JPRB,7.6949E-02_JPRB,9.2508E-02_JPRB,&
2956 & 1.1046E-01_JPRB,1.2718E-01_JPRB,1.4769E-01_JPRB/) 
2957KAO( :, 4, 4,15) = (/&
2958 & 1.1457E-01_JPRB,1.0037E-01_JPRB,8.6743E-02_JPRB,7.8791E-02_JPRB,8.5479E-02_JPRB,1.0549E-01_JPRB,&
2959 & 1.2598E-01_JPRB,1.4506E-01_JPRB,1.6844E-01_JPRB/) 
2960KAO( :, 5, 4,15) = (/&
2961 & 1.1371E-01_JPRB,9.9614E-02_JPRB,8.7543E-02_JPRB,8.2406E-02_JPRB,9.5523E-02_JPRB,1.1901E-01_JPRB,&
2962 & 1.4214E-01_JPRB,1.6372E-01_JPRB,1.9001E-01_JPRB/) 
2963KAO( :, 1, 5,15) = (/&
2964 & 1.3435E-01_JPRB,1.1765E-01_JPRB,1.0095E-01_JPRB,8.4469E-02_JPRB,7.2853E-02_JPRB,7.1272E-02_JPRB,&
2965 & 8.1960E-02_JPRB,9.4385E-02_JPRB,1.0990E-01_JPRB/) 
2966KAO( :, 2, 5,15) = (/&
2967 & 1.3249E-01_JPRB,1.1603E-01_JPRB,9.9565E-02_JPRB,8.5291E-02_JPRB,7.6670E-02_JPRB,8.2310E-02_JPRB,&
2968 & 9.7448E-02_JPRB,1.1228E-01_JPRB,1.3064E-01_JPRB/) 
2969KAO( :, 3, 5,15) = (/&
2970 & 1.3078E-01_JPRB,1.1453E-01_JPRB,9.8289E-02_JPRB,8.6209E-02_JPRB,8.3093E-02_JPRB,9.5057E-02_JPRB,&
2971 & 1.1357E-01_JPRB,1.3082E-01_JPRB,1.5225E-01_JPRB/) 
2972KAO( :, 4, 5,15) = (/&
2973 & 1.2949E-01_JPRB,1.1340E-01_JPRB,9.7892E-02_JPRB,8.8436E-02_JPRB,9.1112E-02_JPRB,1.0924E-01_JPRB,&
2974 & 1.3047E-01_JPRB,1.5034E-01_JPRB,1.7498E-01_JPRB/) 
2975KAO( :, 5, 5,15) = (/&
2976 & 1.2852E-01_JPRB,1.1256E-01_JPRB,9.8533E-02_JPRB,9.1755E-02_JPRB,1.0068E-01_JPRB,1.2400E-01_JPRB,&
2977 & 1.4814E-01_JPRB,1.7069E-01_JPRB,1.9863E-01_JPRB/) 
2978KAO( :, 1, 6,15) = (/&
2979 & 1.5076E-01_JPRB,1.3198E-01_JPRB,1.1320E-01_JPRB,9.4463E-02_JPRB,8.0666E-02_JPRB,7.5054E-02_JPRB,&
2980 & 8.0871E-02_JPRB,9.3264E-02_JPRB,1.0849E-01_JPRB/) 
2981KAO( :, 2, 6,15) = (/&
2982 & 1.4906E-01_JPRB,1.3049E-01_JPRB,1.1193E-01_JPRB,9.5115E-02_JPRB,8.4634E-02_JPRB,8.5281E-02_JPRB,&
2983 & 9.7599E-02_JPRB,1.1257E-01_JPRB,1.3098E-01_JPRB/) 
2984KAO( :, 3, 6,15) = (/&
2985 & 1.4751E-01_JPRB,1.2914E-01_JPRB,1.1077E-01_JPRB,9.6775E-02_JPRB,9.0721E-02_JPRB,9.7408E-02_JPRB,&
2986 & 1.1514E-01_JPRB,1.3281E-01_JPRB,1.5454E-01_JPRB/) 
2987KAO( :, 4, 6,15) = (/&
2988 & 1.4640E-01_JPRB,1.2818E-01_JPRB,1.1040E-01_JPRB,9.8990E-02_JPRB,9.8328E-02_JPRB,1.1180E-01_JPRB,&
2989 & 1.3358E-01_JPRB,1.5404E-01_JPRB,1.7929E-01_JPRB/) 
2990KAO( :, 5, 6,15) = (/&
2991 & 1.4534E-01_JPRB,1.2726E-01_JPRB,1.1100E-01_JPRB,1.0247E-01_JPRB,1.0712E-01_JPRB,1.2780E-01_JPRB,&
2992 & 1.5274E-01_JPRB,1.7614E-01_JPRB,2.0503E-01_JPRB/) 
2993KAO( :, 1, 7,15) = (/&
2994 & 1.7017E-01_JPRB,1.4895E-01_JPRB,1.2773E-01_JPRB,1.0651E-01_JPRB,8.8726E-02_JPRB,8.0014E-02_JPRB,&
2995 & 7.9958E-02_JPRB,9.0777E-02_JPRB,1.0558E-01_JPRB/) 
2996KAO( :, 2, 7,15) = (/&
2997 & 1.6840E-01_JPRB,1.4740E-01_JPRB,1.2641E-01_JPRB,1.0633E-01_JPRB,9.3561E-02_JPRB,8.9399E-02_JPRB,&
2998 & 9.6654E-02_JPRB,1.1154E-01_JPRB,1.2974E-01_JPRB/) 
2999KAO( :, 3, 7,15) = (/&
3000 & 1.6683E-01_JPRB,1.4603E-01_JPRB,1.2523E-01_JPRB,1.0816E-01_JPRB,9.9523E-02_JPRB,1.0085E-01_JPRB,&
3001 & 1.1565E-01_JPRB,1.3349E-01_JPRB,1.5523E-01_JPRB/) 
3002KAO( :, 4, 7,15) = (/&
3003 & 1.6579E-01_JPRB,1.4512E-01_JPRB,1.2467E-01_JPRB,1.1069E-01_JPRB,1.0674E-01_JPRB,1.1452E-01_JPRB,&
3004 & 1.3558E-01_JPRB,1.5645E-01_JPRB,1.8200E-01_JPRB/) 
3005KAO( :, 5, 7,15) = (/&
3006 & 1.6467E-01_JPRB,1.4415E-01_JPRB,1.2512E-01_JPRB,1.1428E-01_JPRB,1.1515E-01_JPRB,1.3096E-01_JPRB,&
3007 & 1.5653E-01_JPRB,1.8061E-01_JPRB,2.1020E-01_JPRB/) 
3008KAO( :, 1, 8,15) = (/&
3009 & 1.9300E-01_JPRB,1.6891E-01_JPRB,1.4482E-01_JPRB,1.2074E-01_JPRB,9.8428E-02_JPRB,8.6453E-02_JPRB,&
3010 & 8.0104E-02_JPRB,8.7414E-02_JPRB,1.0158E-01_JPRB/) 
3011KAO( :, 2, 8,15) = (/&
3012 & 1.9118E-01_JPRB,1.6732E-01_JPRB,1.4346E-01_JPRB,1.1993E-01_JPRB,1.0330E-01_JPRB,9.4785E-02_JPRB,&
3013 & 9.5939E-02_JPRB,1.0927E-01_JPRB,1.2693E-01_JPRB/) 
3014KAO( :, 3, 8,15) = (/&
3015 & 1.8966E-01_JPRB,1.6599E-01_JPRB,1.4233E-01_JPRB,1.2111E-01_JPRB,1.0944E-01_JPRB,1.0556E-01_JPRB,&
3016 & 1.1490E-01_JPRB,1.3272E-01_JPRB,1.5419E-01_JPRB/) 
3017KAO( :, 4, 8,15) = (/&
3018 & 1.8827E-01_JPRB,1.6478E-01_JPRB,1.4129E-01_JPRB,1.2410E-01_JPRB,1.1628E-01_JPRB,1.1877E-01_JPRB,&
3019 & 1.3648E-01_JPRB,1.5764E-01_JPRB,1.8319E-01_JPRB/) 
3020KAO( :, 5, 8,15) = (/&
3021 & 1.8700E-01_JPRB,1.6367E-01_JPRB,1.4137E-01_JPRB,1.2760E-01_JPRB,1.2425E-01_JPRB,1.3451E-01_JPRB,&
3022 & 1.5950E-01_JPRB,1.8417E-01_JPRB,2.1419E-01_JPRB/) 
3023KAO( :, 1, 9,15) = (/&
3024 & 2.1903E-01_JPRB,1.9168E-01_JPRB,1.6432E-01_JPRB,1.3697E-01_JPRB,1.1022E-01_JPRB,9.3381E-02_JPRB,&
3025 & 8.1173E-02_JPRB,8.3378E-02_JPRB,9.6854E-02_JPRB/) 
3026KAO( :, 2, 9,15) = (/&
3027 & 2.1750E-01_JPRB,1.9034E-01_JPRB,1.6318E-01_JPRB,1.3602E-01_JPRB,1.1431E-01_JPRB,1.0171E-01_JPRB,&
3028 & 9.6008E-02_JPRB,1.0601E-01_JPRB,1.2308E-01_JPRB/) 
3029KAO( :, 3, 9,15) = (/&
3030 & 2.1621E-01_JPRB,1.8921E-01_JPRB,1.6222E-01_JPRB,1.3665E-01_JPRB,1.2052E-01_JPRB,1.1120E-01_JPRB,&
3031 & 1.1434E-01_JPRB,1.3077E-01_JPRB,1.5182E-01_JPRB/) 
3032KAO( :, 4, 9,15) = (/&
3033 & 2.1461E-01_JPRB,1.8782E-01_JPRB,1.6103E-01_JPRB,1.3944E-01_JPRB,1.2758E-01_JPRB,1.2410E-01_JPRB,&
3034 & 1.3607E-01_JPRB,1.5728E-01_JPRB,1.8262E-01_JPRB/) 
3035KAO( :, 5, 9,15) = (/&
3036 & 2.1295E-01_JPRB,1.8637E-01_JPRB,1.6039E-01_JPRB,1.4274E-01_JPRB,1.3480E-01_JPRB,1.3933E-01_JPRB,&
3037 & 1.6084E-01_JPRB,1.8591E-01_JPRB,2.1587E-01_JPRB/) 
3038KAO( :, 1,10,15) = (/&
3039 & 2.4831E-01_JPRB,2.1729E-01_JPRB,1.8627E-01_JPRB,1.5526E-01_JPRB,1.2434E-01_JPRB,1.0185E-01_JPRB,&
3040 & 8.4815E-02_JPRB,8.0841E-02_JPRB,1.7532E-01_JPRB/) 
3041KAO( :, 2,10,15) = (/&
3042 & 2.4704E-01_JPRB,2.1618E-01_JPRB,1.8532E-01_JPRB,1.5447E-01_JPRB,1.2750E-01_JPRB,1.1098E-01_JPRB,&
3043 & 9.8299E-02_JPRB,1.0410E-01_JPRB,1.7367E-01_JPRB/) 
3044KAO( :, 3,10,15) = (/&
3045 & 2.4585E-01_JPRB,2.1514E-01_JPRB,1.8444E-01_JPRB,1.5466E-01_JPRB,1.3408E-01_JPRB,1.1953E-01_JPRB,&
3046 & 1.1633E-01_JPRB,1.3023E-01_JPRB,1.7996E-01_JPRB/) 
3047KAO( :, 4,10,15) = (/&
3048 & 2.4402E-01_JPRB,2.1354E-01_JPRB,1.8307E-01_JPRB,1.5695E-01_JPRB,1.4115E-01_JPRB,1.3126E-01_JPRB,&
3049 & 1.3793E-01_JPRB,1.5846E-01_JPRB,1.9548E-01_JPRB/) 
3050KAO( :, 5,10,15) = (/&
3051 & 2.4208E-01_JPRB,2.1185E-01_JPRB,1.8198E-01_JPRB,1.6040E-01_JPRB,1.4820E-01_JPRB,1.4650E-01_JPRB,&
3052 & 1.6334E-01_JPRB,1.8884E-01_JPRB,2.2082E-01_JPRB/) 
3053
3054IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',1,ZHOOK_HANDLE)
3055END SUBROUTINE PART10
3056
3057
3058SUBROUTINE PART11
3059
3060REAL(KIND=JPRB) :: ZHOOK_HANDLE
3061IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',0,ZHOOK_HANDLE)
3062
3063
3064KAO( :, 1,11,15) = (/&
3065 & 2.8046E-01_JPRB,2.4542E-01_JPRB,2.1039E-01_JPRB,1.7535E-01_JPRB,1.4072E-01_JPRB,1.1602E-01_JPRB,&
3066 & 9.4756E-02_JPRB,8.8842E-02_JPRB,3.0507E-01_JPRB/) 
3067KAO( :, 2,11,15) = (/&
3068 & 2.7918E-01_JPRB,2.4430E-01_JPRB,2.0943E-01_JPRB,1.7456E-01_JPRB,1.4537E-01_JPRB,1.2533E-01_JPRB,&
3069 & 1.0891E-01_JPRB,1.1392E-01_JPRB,2.9566E-01_JPRB/) 
3070KAO( :, 3,11,15) = (/&
3071 & 2.7735E-01_JPRB,2.4270E-01_JPRB,2.0805E-01_JPRB,1.7500E-01_JPRB,1.5257E-01_JPRB,1.3417E-01_JPRB,&
3072 & 1.2847E-01_JPRB,1.4223E-01_JPRB,2.9322E-01_JPRB/) 
3073KAO( :, 4,11,15) = (/&
3074 & 2.7527E-01_JPRB,2.4088E-01_JPRB,2.0649E-01_JPRB,1.7781E-01_JPRB,1.5979E-01_JPRB,1.4614E-01_JPRB,&
3075 & 1.5179E-01_JPRB,1.7334E-01_JPRB,2.9538E-01_JPRB/) 
3076KAO( :, 5,11,15) = (/&
3077 & 2.7287E-01_JPRB,2.3878E-01_JPRB,2.0537E-01_JPRB,1.8183E-01_JPRB,1.6671E-01_JPRB,1.6236E-01_JPRB,&
3078 & 1.7904E-01_JPRB,2.0699E-01_JPRB,3.0432E-01_JPRB/) 
3079KAO( :, 1,12,15) = (/&
3080 & 3.1597E-01_JPRB,2.7649E-01_JPRB,2.3701E-01_JPRB,1.9754E-01_JPRB,1.5924E-01_JPRB,1.3168E-01_JPRB,&
3081 & 1.0585E-01_JPRB,9.7375E-02_JPRB,4.0358E-01_JPRB/) 
3082KAO( :, 2,12,15) = (/&
3083 & 3.1432E-01_JPRB,2.7505E-01_JPRB,2.3578E-01_JPRB,1.9654E-01_JPRB,1.6498E-01_JPRB,1.4094E-01_JPRB,&
3084 & 1.2051E-01_JPRB,1.2392E-01_JPRB,3.9336E-01_JPRB/) 
3085KAO( :, 3,12,15) = (/&
3086 & 3.1171E-01_JPRB,2.7277E-01_JPRB,2.3383E-01_JPRB,1.9721E-01_JPRB,1.7246E-01_JPRB,1.5023E-01_JPRB,&
3087 & 1.4122E-01_JPRB,1.5462E-01_JPRB,3.9393E-01_JPRB/) 
3088KAO( :, 4,12,15) = (/&
3089 & 3.0880E-01_JPRB,2.7022E-01_JPRB,2.3164E-01_JPRB,2.0058E-01_JPRB,1.7964E-01_JPRB,1.6232E-01_JPRB,&
3090 & 1.6619E-01_JPRB,1.8839E-01_JPRB,3.9596E-01_JPRB/) 
3091KAO( :, 5,12,15) = (/&
3092 & 3.0525E-01_JPRB,2.6711E-01_JPRB,2.3006E-01_JPRB,2.0488E-01_JPRB,1.8690E-01_JPRB,1.7940E-01_JPRB,&
3093 & 1.9528E-01_JPRB,2.2516E-01_JPRB,4.0079E-01_JPRB/) 
3094KAO( :, 1,13,15) = (/&
3095 & 3.5411E-01_JPRB,3.0986E-01_JPRB,2.6562E-01_JPRB,2.2137E-01_JPRB,1.7962E-01_JPRB,1.4841E-01_JPRB,&
3096 & 1.1804E-01_JPRB,1.0632E-01_JPRB,4.1876E-01_JPRB/) 
3097KAO( :, 2,13,15) = (/&
3098 & 3.5164E-01_JPRB,3.0771E-01_JPRB,2.6377E-01_JPRB,2.2010E-01_JPRB,1.8598E-01_JPRB,1.5750E-01_JPRB,&
3099 & 1.3321E-01_JPRB,1.3429E-01_JPRB,4.1787E-01_JPRB/) 
3100KAO( :, 3,13,15) = (/&
3101 & 3.4820E-01_JPRB,3.0469E-01_JPRB,2.6119E-01_JPRB,2.2112E-01_JPRB,1.9338E-01_JPRB,1.6728E-01_JPRB,&
3102 & 1.5455E-01_JPRB,1.6711E-01_JPRB,4.2377E-01_JPRB/) 
3103KAO( :, 4,13,15) = (/&
3104 & 3.4395E-01_JPRB,3.0097E-01_JPRB,2.5812E-01_JPRB,2.2469E-01_JPRB,2.0035E-01_JPRB,1.7975E-01_JPRB,&
3105 & 1.8098E-01_JPRB,2.0337E-01_JPRB,4.2831E-01_JPRB/) 
3106KAO( :, 5,13,15) = (/&
3107 & 3.3896E-01_JPRB,2.9661E-01_JPRB,2.5572E-01_JPRB,2.2897E-01_JPRB,2.0809E-01_JPRB,1.9725E-01_JPRB,&
3108 & 2.1144E-01_JPRB,2.4250E-01_JPRB,4.3491E-01_JPRB/) 
3109KAO( :, 1, 1,16) = (/&
3110 & 9.7171E-02_JPRB,8.5148E-02_JPRB,7.3125E-02_JPRB,6.1102E-02_JPRB,7.6485E-02_JPRB,9.5172E-02_JPRB,&
3111 & 1.1335E-01_JPRB,1.2955E-01_JPRB,1.4355E-01_JPRB/) 
3112KAO( :, 2, 1,16) = (/&
3113 & 9.4236E-02_JPRB,8.2602E-02_JPRB,7.0968E-02_JPRB,6.8035E-02_JPRB,9.0374E-02_JPRB,1.1244E-01_JPRB,&
3114 & 1.3393E-01_JPRB,1.5311E-01_JPRB,1.6974E-01_JPRB/) 
3115KAO( :, 3, 1,16) = (/&
3116 & 9.1543E-02_JPRB,8.0273E-02_JPRB,6.9003E-02_JPRB,7.8791E-02_JPRB,1.0469E-01_JPRB,1.3025E-01_JPRB,&
3117 & 1.5519E-01_JPRB,1.7738E-01_JPRB,1.9670E-01_JPRB/) 
3118KAO( :, 4, 1,16) = (/&
3119 & 8.8644E-02_JPRB,7.7768E-02_JPRB,6.6893E-02_JPRB,8.9756E-02_JPRB,1.1926E-01_JPRB,1.4844E-01_JPRB,&
3120 & 1.7683E-01_JPRB,2.0215E-01_JPRB,2.2416E-01_JPRB/) 
3121KAO( :, 5, 1,16) = (/&
3122 & 8.6144E-02_JPRB,7.5584E-02_JPRB,6.7875E-02_JPRB,1.0078E-01_JPRB,1.3394E-01_JPRB,1.6670E-01_JPRB,&
3123 & 1.9859E-01_JPRB,2.2714E-01_JPRB,2.5185E-01_JPRB/) 
3124KAO( :, 1, 2,16) = (/&
3125 & 1.1053E-01_JPRB,9.6812E-02_JPRB,8.3097E-02_JPRB,6.9381E-02_JPRB,8.5062E-02_JPRB,1.0587E-01_JPRB,&
3126 & 1.2610E-01_JPRB,1.4420E-01_JPRB,1.6344E-01_JPRB/) 
3127KAO( :, 2, 2,16) = (/&
3128 & 1.0742E-01_JPRB,9.4110E-02_JPRB,8.0803E-02_JPRB,7.6274E-02_JPRB,1.0134E-01_JPRB,1.2610E-01_JPRB,&
3129 & 1.5024E-01_JPRB,1.7183E-01_JPRB,1.9478E-01_JPRB/) 
3130KAO( :, 3, 2,16) = (/&
3131 & 1.0452E-01_JPRB,9.1604E-02_JPRB,7.8683E-02_JPRB,8.8937E-02_JPRB,1.1819E-01_JPRB,1.4709E-01_JPRB,&
3132 & 1.7526E-01_JPRB,2.0044E-01_JPRB,2.2725E-01_JPRB/) 
3133KAO( :, 4, 2,16) = (/&
3134 & 1.0156E-01_JPRB,8.9034E-02_JPRB,7.6513E-02_JPRB,1.0188E-01_JPRB,1.3537E-01_JPRB,1.6848E-01_JPRB,&
3135 & 2.0078E-01_JPRB,2.2973E-01_JPRB,2.6038E-01_JPRB/) 
3136KAO( :, 5, 2,16) = (/&
3137 & 9.9221E-02_JPRB,8.6974E-02_JPRB,7.8015E-02_JPRB,1.1491E-01_JPRB,1.5271E-01_JPRB,1.9010E-01_JPRB,&
3138 & 2.2653E-01_JPRB,2.5922E-01_JPRB,2.9391E-01_JPRB/) 
3139KAO( :, 1, 3,16) = (/&
3140 & 1.2741E-01_JPRB,1.1157E-01_JPRB,9.5716E-02_JPRB,7.9867E-02_JPRB,9.0261E-02_JPRB,1.1233E-01_JPRB,&
3141 & 1.3379E-01_JPRB,1.5315E-01_JPRB,1.7733E-01_JPRB/) 
3142KAO( :, 2, 3,16) = (/&
3143 & 1.2407E-01_JPRB,1.0865E-01_JPRB,9.3240E-02_JPRB,8.3066E-02_JPRB,1.0895E-01_JPRB,1.3559E-01_JPRB,&
3144 & 1.6159E-01_JPRB,1.8497E-01_JPRB,2.1412E-01_JPRB/) 
3145KAO( :, 3, 3,16) = (/&
3146 & 1.2077E-01_JPRB,1.0579E-01_JPRB,9.0806E-02_JPRB,9.6664E-02_JPRB,1.2848E-01_JPRB,1.5988E-01_JPRB,&
3147 & 1.9057E-01_JPRB,2.1812E-01_JPRB,2.5248E-01_JPRB/) 
3148KAO( :, 4, 3,16) = (/&
3149 & 1.1796E-01_JPRB,1.0334E-01_JPRB,8.8711E-02_JPRB,1.1167E-01_JPRB,1.4847E-01_JPRB,1.8483E-01_JPRB,&
3150 & 2.2029E-01_JPRB,2.5232E-01_JPRB,2.9201E-01_JPRB/) 
3151KAO( :, 5, 3,16) = (/&
3152 & 1.1579E-01_JPRB,1.0144E-01_JPRB,8.8938E-02_JPRB,1.2695E-01_JPRB,1.6868E-01_JPRB,2.1009E-01_JPRB,&
3153 & 2.5050E-01_JPRB,2.8682E-01_JPRB,3.3195E-01_JPRB/) 
3154KAO( :, 1, 4,16) = (/&
3155 & 1.4795E-01_JPRB,1.2951E-01_JPRB,1.1108E-01_JPRB,9.2642E-02_JPRB,9.3362E-02_JPRB,1.1620E-01_JPRB,&
3156 & 1.3849E-01_JPRB,1.5859E-01_JPRB,1.8531E-01_JPRB/) 
3157KAO( :, 2, 4,16) = (/&
3158 & 1.4437E-01_JPRB,1.2639E-01_JPRB,1.0842E-01_JPRB,9.2423E-02_JPRB,1.1442E-01_JPRB,1.4252E-01_JPRB,&
3159 & 1.6987E-01_JPRB,1.9459E-01_JPRB,2.2738E-01_JPRB/) 
3160KAO( :, 3, 4,16) = (/&
3161 & 1.4082E-01_JPRB,1.2330E-01_JPRB,1.0578E-01_JPRB,1.0327E-01_JPRB,1.3669E-01_JPRB,1.7021E-01_JPRB,&
3162 & 2.0291E-01_JPRB,2.3254E-01_JPRB,2.7168E-01_JPRB/) 
3163KAO( :, 4, 4,16) = (/&
3164 & 1.3812E-01_JPRB,1.2094E-01_JPRB,1.0376E-01_JPRB,1.2016E-01_JPRB,1.5971E-01_JPRB,1.9884E-01_JPRB,&
3165 & 2.3712E-01_JPRB,2.7173E-01_JPRB,3.1737E-01_JPRB/) 
3166KAO( :, 5, 4,16) = (/&
3167 & 1.3617E-01_JPRB,1.1924E-01_JPRB,1.0266E-01_JPRB,1.3775E-01_JPRB,1.8312E-01_JPRB,2.2801E-01_JPRB,&
3168 & 2.7185E-01_JPRB,3.1180E-01_JPRB,3.6388E-01_JPRB/) 
3169KAO( :, 1, 5,16) = (/&
3170 & 1.7254E-01_JPRB,1.5104E-01_JPRB,1.2954E-01_JPRB,1.0804E-01_JPRB,9.7033E-02_JPRB,1.1821E-01_JPRB,&
3171 & 1.4096E-01_JPRB,1.6165E-01_JPRB,1.8940E-01_JPRB/) 
3172KAO( :, 2, 5,16) = (/&
3173 & 1.6864E-01_JPRB,1.4763E-01_JPRB,1.2663E-01_JPRB,1.0583E-01_JPRB,1.1845E-01_JPRB,1.4755E-01_JPRB,&
3174 & 1.7593E-01_JPRB,2.0174E-01_JPRB,2.3625E-01_JPRB/) 
3175KAO( :, 3, 5,16) = (/&
3176 & 1.6515E-01_JPRB,1.4456E-01_JPRB,1.2397E-01_JPRB,1.1290E-01_JPRB,1.4346E-01_JPRB,1.7861E-01_JPRB,&
3177 & 2.1302E-01_JPRB,2.4445E-01_JPRB,2.8621E-01_JPRB/) 
3178KAO( :, 4, 5,16) = (/&
3179 & 1.6266E-01_JPRB,1.4239E-01_JPRB,1.2212E-01_JPRB,1.2793E-01_JPRB,1.6939E-01_JPRB,2.1102E-01_JPRB,&
3180 & 2.5177E-01_JPRB,2.8892E-01_JPRB,3.3809E-01_JPRB/) 
3181KAO( :, 5, 5,16) = (/&
3182 & 1.6070E-01_JPRB,1.4068E-01_JPRB,1.2066E-01_JPRB,1.4743E-01_JPRB,1.9603E-01_JPRB,2.4421E-01_JPRB,&
3183 & 2.9142E-01_JPRB,3.3457E-01_JPRB,3.9133E-01_JPRB/) 
3184KAO( :, 1, 6,16) = (/&
3185 & 2.0388E-01_JPRB,1.7849E-01_JPRB,1.5310E-01_JPRB,1.2771E-01_JPRB,1.0526E-01_JPRB,1.1860E-01_JPRB,&
3186 & 1.4142E-01_JPRB,1.6203E-01_JPRB,1.9043E-01_JPRB/) 
3187KAO( :, 2, 6,16) = (/&
3188 & 1.9953E-01_JPRB,1.7470E-01_JPRB,1.4986E-01_JPRB,1.2501E-01_JPRB,1.2166E-01_JPRB,1.5016E-01_JPRB,&
3189 & 1.7907E-01_JPRB,2.0547E-01_JPRB,2.4111E-01_JPRB/) 
3190KAO( :, 3, 6,16) = (/&
3191 & 1.9494E-01_JPRB,1.7068E-01_JPRB,1.4642E-01_JPRB,1.2626E-01_JPRB,1.4789E-01_JPRB,1.8422E-01_JPRB,&
3192 & 2.1980E-01_JPRB,2.5220E-01_JPRB,2.9578E-01_JPRB/) 
3193KAO( :, 4, 6,16) = (/&
3194 & 1.9206E-01_JPRB,1.6810E-01_JPRB,1.4414E-01_JPRB,1.3841E-01_JPRB,1.7663E-01_JPRB,2.1999E-01_JPRB,&
3195 & 2.6255E-01_JPRB,3.0157E-01_JPRB,3.5331E-01_JPRB/) 
3196KAO( :, 5, 6,16) = (/&
3197 & 1.9005E-01_JPRB,1.6635E-01_JPRB,1.4264E-01_JPRB,1.5606E-01_JPRB,2.0643E-01_JPRB,2.5713E-01_JPRB,&
3198 & 3.0687E-01_JPRB,3.5252E-01_JPRB,4.1278E-01_JPRB/) 
3199KAO( :, 1, 7,16) = (/&
3200 & 2.4312E-01_JPRB,2.1282E-01_JPRB,1.8252E-01_JPRB,1.5222E-01_JPRB,1.2192E-01_JPRB,1.1888E-01_JPRB,&
3201 & 1.4174E-01_JPRB,1.6248E-01_JPRB,1.9115E-01_JPRB/) 
3202KAO( :, 2, 7,16) = (/&
3203 & 2.3797E-01_JPRB,2.0832E-01_JPRB,1.7867E-01_JPRB,1.4904E-01_JPRB,1.2994E-01_JPRB,1.5302E-01_JPRB,&
3204 & 1.8249E-01_JPRB,2.0929E-01_JPRB,2.4599E-01_JPRB/) 
3205KAO( :, 3, 7,16) = (/&
3206 & 2.3255E-01_JPRB,2.0359E-01_JPRB,1.7463E-01_JPRB,1.4575E-01_JPRB,1.5275E-01_JPRB,1.9023E-01_JPRB,&
3207 & 2.2691E-01_JPRB,2.6041E-01_JPRB,3.0584E-01_JPRB/) 
3208KAO( :, 4, 7,16) = (/&
3209 & 2.2807E-01_JPRB,1.9965E-01_JPRB,1.7122E-01_JPRB,1.5317E-01_JPRB,1.8432E-01_JPRB,2.2969E-01_JPRB,&
3210 & 2.7402E-01_JPRB,3.1471E-01_JPRB,3.6920E-01_JPRB/) 
3211KAO( :, 5, 7,16) = (/&
3212 & 2.2498E-01_JPRB,1.9692E-01_JPRB,1.6887E-01_JPRB,1.6865E-01_JPRB,2.1725E-01_JPRB,2.7068E-01_JPRB,&
3213 & 3.2308E-01_JPRB,3.7116E-01_JPRB,4.3516E-01_JPRB/) 
3214KAO( :, 1, 8,16) = (/&
3215 & 2.9068E-01_JPRB,2.5442E-01_JPRB,2.1816E-01_JPRB,1.8190E-01_JPRB,1.4564E-01_JPRB,1.2041E-01_JPRB,&
3216 & 1.4177E-01_JPRB,1.6257E-01_JPRB,1.9124E-01_JPRB/) 
3217KAO( :, 2, 8,16) = (/&
3218 & 2.8457E-01_JPRB,2.4908E-01_JPRB,2.1359E-01_JPRB,1.7807E-01_JPRB,1.4515E-01_JPRB,1.5579E-01_JPRB,&
3219 & 1.8584E-01_JPRB,2.1331E-01_JPRB,2.5071E-01_JPRB/) 
3220KAO( :, 3, 8,16) = (/&
3221 & 2.7790E-01_JPRB,2.4325E-01_JPRB,2.0861E-01_JPRB,1.7396E-01_JPRB,1.6105E-01_JPRB,1.9656E-01_JPRB,&
3222 & 2.3447E-01_JPRB,2.6926E-01_JPRB,3.1620E-01_JPRB/) 
3223KAO( :, 4, 8,16) = (/&
3224 & 2.7204E-01_JPRB,2.3812E-01_JPRB,2.0420E-01_JPRB,1.7391E-01_JPRB,1.9266E-01_JPRB,2.4008E-01_JPRB,&
3225 & 2.8658E-01_JPRB,3.2922E-01_JPRB,3.8634E-01_JPRB/) 
3226KAO( :, 5, 8,16) = (/&
3227 & 2.6773E-01_JPRB,2.3434E-01_JPRB,2.0095E-01_JPRB,1.8582E-01_JPRB,2.2918E-01_JPRB,2.8567E-01_JPRB,&
3228 & 3.4098E-01_JPRB,3.9189E-01_JPRB,4.5943E-01_JPRB/) 
3229KAO( :, 1, 9,16) = (/&
3230 & 3.4732E-01_JPRB,3.0397E-01_JPRB,2.6061E-01_JPRB,2.1726E-01_JPRB,1.7390E-01_JPRB,1.3271E-01_JPRB,&
3231 & 1.4035E-01_JPRB,1.6109E-01_JPRB,1.8937E-01_JPRB/) 
3232KAO( :, 2, 9,16) = (/&
3233 & 3.3981E-01_JPRB,2.9740E-01_JPRB,2.5499E-01_JPRB,2.1257E-01_JPRB,1.7017E-01_JPRB,1.5746E-01_JPRB,&
3234 & 1.8783E-01_JPRB,2.1574E-01_JPRB,2.5330E-01_JPRB/) 
3235KAO( :, 3, 9,16) = (/&
3236 & 3.3164E-01_JPRB,2.9026E-01_JPRB,2.4888E-01_JPRB,2.0750E-01_JPRB,1.7718E-01_JPRB,2.0179E-01_JPRB,&
3237 & 2.4086E-01_JPRB,2.7675E-01_JPRB,3.2472E-01_JPRB/) 
3238KAO( :, 4, 9,16) = (/&
3239 & 3.2434E-01_JPRB,2.8387E-01_JPRB,2.4340E-01_JPRB,2.0299E-01_JPRB,2.0166E-01_JPRB,2.4979E-01_JPRB,&
3240 & 2.9816E-01_JPRB,3.4279E-01_JPRB,4.0187E-01_JPRB/) 
3241KAO( :, 5, 9,16) = (/&
3242 & 3.1856E-01_JPRB,2.7881E-01_JPRB,2.3907E-01_JPRB,2.0909E-01_JPRB,2.4079E-01_JPRB,3.0025E-01_JPRB,&
3243 & 3.5852E-01_JPRB,4.1238E-01_JPRB,4.8294E-01_JPRB/) 
3244KAO( :, 1,10,16) = (/&
3245 & 4.1296E-01_JPRB,3.6138E-01_JPRB,3.0981E-01_JPRB,2.5823E-01_JPRB,2.0667E-01_JPRB,1.5510E-01_JPRB,&
3246 & 1.4272E-01_JPRB,1.6382E-01_JPRB,1.9375E-01_JPRB/) 
3247KAO( :, 2,10,16) = (/&
3248 & 4.0355E-01_JPRB,3.5316E-01_JPRB,3.0277E-01_JPRB,2.5237E-01_JPRB,2.0198E-01_JPRB,1.6688E-01_JPRB,&
3249 & 1.9258E-01_JPRB,2.2130E-01_JPRB,2.5965E-01_JPRB/) 
3250KAO( :, 3,10,16) = (/&
3251 & 3.9334E-01_JPRB,3.4423E-01_JPRB,2.9512E-01_JPRB,2.4601E-01_JPRB,2.0198E-01_JPRB,2.0922E-01_JPRB,&
3252 & 2.4978E-01_JPRB,2.8734E-01_JPRB,3.3649E-01_JPRB/) 
3253KAO( :, 4,10,16) = (/&
3254 & 3.8468E-01_JPRB,3.3665E-01_JPRB,2.8862E-01_JPRB,2.4064E-01_JPRB,2.1892E-01_JPRB,2.6187E-01_JPRB,&
3255 & 3.1276E-01_JPRB,3.6003E-01_JPRB,4.2127E-01_JPRB/) 
3256KAO( :, 5,10,16) = (/&
3257 & 3.7732E-01_JPRB,3.3021E-01_JPRB,2.8310E-01_JPRB,2.4052E-01_JPRB,2.5525E-01_JPRB,3.1772E-01_JPRB,&
3258 & 3.7953E-01_JPRB,4.3694E-01_JPRB,5.1089E-01_JPRB/) 
3259KAO( :, 1,11,16) = (/&
3260 & 4.8302E-01_JPRB,4.2268E-01_JPRB,3.6234E-01_JPRB,3.0200E-01_JPRB,2.4165E-01_JPRB,1.8151E-01_JPRB,&
3261 & 1.6877E-01_JPRB,1.9388E-01_JPRB,3.3421E-01_JPRB/) 
3262KAO( :, 2,11,16) = (/&
3263 & 4.7050E-01_JPRB,4.1173E-01_JPRB,3.5296E-01_JPRB,2.9420E-01_JPRB,2.3543E-01_JPRB,1.9660E-01_JPRB,&
3264 & 2.2543E-01_JPRB,2.5921E-01_JPRB,3.3179E-01_JPRB/) 
3265KAO( :, 3,11,16) = (/&
3266 & 4.5896E-01_JPRB,4.0163E-01_JPRB,3.4431E-01_JPRB,2.8698E-01_JPRB,2.3627E-01_JPRB,2.4234E-01_JPRB,&
3267 & 2.8945E-01_JPRB,3.3305E-01_JPRB,3.8992E-01_JPRB/) 
3268KAO( :, 4,11,16) = (/&
3269 & 4.4916E-01_JPRB,3.9306E-01_JPRB,3.3696E-01_JPRB,2.8088E-01_JPRB,2.5515E-01_JPRB,3.0073E-01_JPRB,&
3270 & 3.5922E-01_JPRB,4.1373E-01_JPRB,4.8361E-01_JPRB/) 
3271KAO( :, 5,11,16) = (/&
3272 & 4.3990E-01_JPRB,3.8496E-01_JPRB,3.3001E-01_JPRB,2.8070E-01_JPRB,2.9324E-01_JPRB,3.6251E-01_JPRB,&
3273 & 4.3320E-01_JPRB,4.9939E-01_JPRB,5.8288E-01_JPRB/) 
3274KAO( :, 1,12,16) = (/&
3275 & 5.5949E-01_JPRB,4.8959E-01_JPRB,4.1968E-01_JPRB,3.4978E-01_JPRB,2.7990E-01_JPRB,2.1117E-01_JPRB,&
3276 & 1.9846E-01_JPRB,2.2823E-01_JPRB,4.6485E-01_JPRB/) 
3277KAO( :, 2,12,16) = (/&
3278 & 5.4466E-01_JPRB,4.7661E-01_JPRB,4.0856E-01_JPRB,3.4053E-01_JPRB,2.7248E-01_JPRB,2.3023E-01_JPRB,&
3279 & 2.6289E-01_JPRB,3.0262E-01_JPRB,4.5843E-01_JPRB/) 
3280KAO( :, 3,12,16) = (/&
3281 & 5.3198E-01_JPRB,4.6551E-01_JPRB,3.9905E-01_JPRB,3.3259E-01_JPRB,2.7378E-01_JPRB,2.8016E-01_JPRB,&
3282 & 3.3471E-01_JPRB,3.8547E-01_JPRB,4.7894E-01_JPRB/) 
3283KAO( :, 4,12,16) = (/&
3284 & 5.2001E-01_JPRB,4.5505E-01_JPRB,3.9008E-01_JPRB,3.2510E-01_JPRB,2.9551E-01_JPRB,3.4473E-01_JPRB,&
3285 & 4.1193E-01_JPRB,4.7482E-01_JPRB,5.5483E-01_JPRB/) 
3286KAO( :, 5,12,16) = (/&
3287 & 5.0915E-01_JPRB,4.4554E-01_JPRB,3.8193E-01_JPRB,3.2460E-01_JPRB,3.3469E-01_JPRB,4.1244E-01_JPRB,&
3288 & 4.9294E-01_JPRB,5.6854E-01_JPRB,6.6308E-01_JPRB/) 
3289KAO( :, 1,13,16) = (/&
3290 & 6.4209E-01_JPRB,5.6185E-01_JPRB,4.8161E-01_JPRB,4.0138E-01_JPRB,3.2111E-01_JPRB,2.4405E-01_JPRB,&
3291 & 2.3126E-01_JPRB,2.6629E-01_JPRB,5.1031E-01_JPRB/) 
3292KAO( :, 2,13,16) = (/&
3293 & 6.2605E-01_JPRB,5.4782E-01_JPRB,4.6959E-01_JPRB,3.9135E-01_JPRB,3.1312E-01_JPRB,2.6752E-01_JPRB,&
3294 & 3.0417E-01_JPRB,3.5056E-01_JPRB,5.0701E-01_JPRB/) 
3295KAO( :, 3,13,16) = (/&
3296 & 6.1094E-01_JPRB,5.3460E-01_JPRB,4.5826E-01_JPRB,3.8192E-01_JPRB,3.1501E-01_JPRB,3.2162E-01_JPRB,&
3297 & 3.8441E-01_JPRB,4.4331E-01_JPRB,5.4185E-01_JPRB/) 
3298KAO( :, 4,13,16) = (/&
3299 & 5.9718E-01_JPRB,5.2256E-01_JPRB,4.4794E-01_JPRB,3.7327E-01_JPRB,3.3928E-01_JPRB,3.9296E-01_JPRB,&
3300 & 4.6976E-01_JPRB,5.4198E-01_JPRB,6.3180E-01_JPRB/) 
3301KAO( :, 5,13,16) = (/&
3302 & 5.8381E-01_JPRB,5.1086E-01_JPRB,4.3791E-01_JPRB,3.7153E-01_JPRB,3.7939E-01_JPRB,4.6700E-01_JPRB,&
3303 & 5.5841E-01_JPRB,6.4458E-01_JPRB,7.5053E-01_JPRB/) 
3304
3305!     The array SELFREFO contains the coefficient of the water vapor
3306!     self-continuum (including the energy term).  The first index
3307!     refers to temperature in 7.2 degree increments.  For instance,
3308!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
3309!     etc.  The second index runs over the g-channel (1 to 16).
3310
3311SELFREFO( :, 1) = (/&
3312 & 1.26476E-03_JPRB, 1.04962E-03_JPRB, 8.71080E-04_JPRB, 7.22907E-04_JPRB, 5.99939E-04_JPRB,&
3313 & 4.97888E-04_JPRB, 4.13197E-04_JPRB, 3.42911E-04_JPRB, 2.84581E-04_JPRB, 2.36173E-04_JPRB/) 
3314SELFREFO( :, 2) = (/&
3315 & 1.27380E-03_JPRB, 1.05867E-03_JPRB, 8.79870E-04_JPRB, 7.31270E-04_JPRB, 6.07767E-04_JPRB,&
3316 & 5.05121E-04_JPRB, 4.19812E-04_JPRB, 3.48911E-04_JPRB, 2.89983E-04_JPRB, 2.41008E-04_JPRB/) 
3317SELFREFO( :, 3) = (/&
3318 & 1.26332E-03_JPRB, 1.05867E-03_JPRB, 8.87172E-04_JPRB, 7.43454E-04_JPRB, 6.23018E-04_JPRB,&
3319 & 5.22092E-04_JPRB, 4.37515E-04_JPRB, 3.66640E-04_JPRB, 3.07246E-04_JPRB, 2.57474E-04_JPRB/) 
3320SELFREFO( :, 4) = (/&
3321 & 1.28078E-03_JPRB, 1.07802E-03_JPRB, 9.07363E-04_JPRB, 7.63722E-04_JPRB, 6.42820E-04_JPRB,&
3322 & 5.41057E-04_JPRB, 4.55404E-04_JPRB, 3.83311E-04_JPRB, 3.22630E-04_JPRB, 2.71556E-04_JPRB/) 
3323SELFREFO( :, 5) = (/&
3324 & 1.61188E-03_JPRB, 1.32375E-03_JPRB, 1.08712E-03_JPRB, 8.92794E-04_JPRB, 7.33203E-04_JPRB,&
3325 & 6.02140E-04_JPRB, 4.94505E-04_JPRB, 4.06110E-04_JPRB, 3.33516E-04_JPRB, 2.73898E-04_JPRB/) 
3326SELFREFO( :, 6) = (/&
3327 & 1.42549E-03_JPRB, 1.25964E-03_JPRB, 1.11309E-03_JPRB, 9.83595E-04_JPRB, 8.69162E-04_JPRB,&
3328 & 7.68043E-04_JPRB, 6.78688E-04_JPRB, 5.99728E-04_JPRB, 5.29955E-04_JPRB, 4.68299E-04_JPRB/) 
3329SELFREFO( :, 7) = (/&
3330 & 1.43253E-03_JPRB, 1.28535E-03_JPRB, 1.15330E-03_JPRB, 1.03480E-03_JPRB, 9.28488E-04_JPRB,&
3331 & 8.33094E-04_JPRB, 7.47501E-04_JPRB, 6.70702E-04_JPRB, 6.01794E-04_JPRB, 5.39965E-04_JPRB/) 
3332SELFREFO( :, 8) = (/&
3333 & 1.48973E-03_JPRB, 1.33348E-03_JPRB, 1.19363E-03_JPRB, 1.06844E-03_JPRB, 9.56378E-04_JPRB,&
3334 & 8.56072E-04_JPRB, 7.66286E-04_JPRB, 6.85918E-04_JPRB, 6.13978E-04_JPRB, 5.49583E-04_JPRB/) 
3335SELFREFO( :, 9) = (/&
3336 & 1.53002E-03_JPRB, 1.44607E-03_JPRB, 1.36674E-03_JPRB, 1.29175E-03_JPRB, 1.22088E-03_JPRB,&
3337 & 1.15390E-03_JPRB, 1.09059E-03_JPRB, 1.03076E-03_JPRB, 9.74209E-04_JPRB, 9.20760E-04_JPRB/) 
3338SELFREFO( :,10) = (/&
3339 & 1.78480E-03_JPRB, 1.68865E-03_JPRB, 1.59768E-03_JPRB, 1.51161E-03_JPRB, 1.43018E-03_JPRB,&
3340 & 1.35313E-03_JPRB, 1.28023E-03_JPRB, 1.21126E-03_JPRB, 1.14601E-03_JPRB, 1.08427E-03_JPRB/) 
3341SELFREFO( :,11) = (/&
3342 & 1.85121E-03_JPRB, 1.73903E-03_JPRB, 1.63364E-03_JPRB, 1.53464E-03_JPRB, 1.44164E-03_JPRB,&
3343 & 1.35427E-03_JPRB, 1.27220E-03_JPRB, 1.19510E-03_JPRB, 1.12268E-03_JPRB, 1.05464E-03_JPRB/) 
3344SELFREFO( :,12) = (/&
3345 & 2.10772E-03_JPRB, 1.96994E-03_JPRB, 1.84118E-03_JPRB, 1.72082E-03_JPRB, 1.60834E-03_JPRB,&
3346 & 1.50321E-03_JPRB, 1.40495E-03_JPRB, 1.31311E-03_JPRB, 1.22728E-03_JPRB, 1.14705E-03_JPRB/) 
3347SELFREFO( :,13) = (/&
3348 & 1.99323E-03_JPRB, 1.89279E-03_JPRB, 1.79741E-03_JPRB, 1.70684E-03_JPRB, 1.62083E-03_JPRB,&
3349 & 1.53915E-03_JPRB, 1.46159E-03_JPRB, 1.38794E-03_JPRB, 1.31800E-03_JPRB, 1.25159E-03_JPRB/) 
3350SELFREFO( :,14) = (/&
3351 & 2.05835E-03_JPRB, 1.93301E-03_JPRB, 1.81529E-03_JPRB, 1.70475E-03_JPRB, 1.60093E-03_JPRB,&
3352 & 1.50344E-03_JPRB, 1.41189E-03_JPRB, 1.32591E-03_JPRB, 1.24516E-03_JPRB, 1.16934E-03_JPRB/) 
3353
3354IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',1,ZHOOK_HANDLE)
3355END SUBROUTINE PART11
3356
3357
3358SUBROUTINE PART12
3359
3360REAL(KIND=JPRB) :: ZHOOK_HANDLE
3361IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',0,ZHOOK_HANDLE)
3362
3363
3364SELFREFO( :,15) = (/&
3365 & 2.34120E-03_JPRB, 2.20012E-03_JPRB, 2.06754E-03_JPRB, 1.94295E-03_JPRB, 1.82587E-03_JPRB,&
3366 & 1.71585E-03_JPRB, 1.61245E-03_JPRB, 1.51529E-03_JPRB, 1.42398E-03_JPRB, 1.33817E-03_JPRB/) 
3367SELFREFO( :,16) = (/&
3368 & 3.03559E-03_JPRB, 2.80023E-03_JPRB, 2.58312E-03_JPRB, 2.38284E-03_JPRB, 2.19809E-03_JPRB,&
3369 & 2.02767E-03_JPRB, 1.87045E-03_JPRB, 1.72543E-03_JPRB, 1.59165E-03_JPRB, 1.46825E-03_JPRB/) 
3370
3371FRACREFAO( :, 1) = (/&
3372 !     From P = 862.6 mb.
3373 & 0.17356300_JPRB,0.18880001_JPRB,0.17704099_JPRB,0.13661300_JPRB,&
3374 & 0.10691600_JPRB,0.08222480_JPRB,0.05939860_JPRB,0.04230810_JPRB,&
3375 & 0.02526330_JPRB,0.00244532_JPRB,0.00193541_JPRB,0.00150415_JPRB,&
3376 & 0.00103528_JPRB,0.00067068_JPRB,0.00024951_JPRB,0.00003348_JPRB/) 
3377FRACREFAO( :, 2) = (/&
3378 & 0.17779499_JPRB,0.19837400_JPRB,0.16557600_JPRB,0.13470000_JPRB,&
3379 & 0.11013600_JPRB,0.08342720_JPRB,0.05987030_JPRB,0.03938700_JPRB,&
3380 & 0.02293650_JPRB,0.00238849_JPRB,0.00192400_JPRB,0.00149921_JPRB,&
3381 & 0.00103539_JPRB,0.00067150_JPRB,0.00024822_JPRB,0.00003348_JPRB/) 
3382FRACREFAO( :, 3) = (/&
3383 & 0.18535601_JPRB,0.19407199_JPRB,0.16053200_JPRB,0.13300700_JPRB,&
3384 & 0.10779000_JPRB,0.08408500_JPRB,0.06480450_JPRB,0.04070160_JPRB,&
3385 & 0.02203590_JPRB,0.00227779_JPRB,0.00189074_JPRB,0.00146888_JPRB,&
3386 & 0.00103147_JPRB,0.00066770_JPRB,0.00024751_JPRB,0.00003348_JPRB/) 
3387FRACREFAO( :, 4) = (/&
3388 & 0.19139200_JPRB,0.18917400_JPRB,0.15748601_JPRB,0.13240699_JPRB,&
3389 & 0.10557300_JPRB,0.08383260_JPRB,0.06724060_JPRB,0.04364450_JPRB,&
3390 & 0.02175820_JPRB,0.00225436_JPRB,0.00184421_JPRB,0.00143153_JPRB,&
3391 & 0.00103027_JPRB,0.00066066_JPRB,0.00024222_JPRB,0.00003148_JPRB/) 
3392FRACREFAO( :, 5) = (/&
3393 & 0.19547801_JPRB,0.18539500_JPRB,0.15442000_JPRB,0.13114899_JPRB,&
3394 & 0.10515600_JPRB,0.08350350_JPRB,0.06909780_JPRB,0.04671630_JPRB,&
3395 & 0.02168820_JPRB,0.00224400_JPRB,0.00182009_JPRB,0.00139098_JPRB,&
3396 & 0.00102582_JPRB,0.00065367_JPRB,0.00023202_JPRB,0.00003148_JPRB/) 
3397FRACREFAO( :, 6) = (/&
3398 & 0.19757500_JPRB,0.18266800_JPRB,0.15208900_JPRB,0.12897800_JPRB,&
3399 & 0.10637200_JPRB,0.08391220_JPRB,0.06989830_JPRB,0.04964120_JPRB,&
3400 & 0.02155800_JPRB,0.00224310_JPRB,0.00177358_JPRB,0.00138184_JPRB,&
3401 & 0.00101538_JPRB,0.00063370_JPRB,0.00023227_JPRB,0.00003148_JPRB/) 
3402FRACREFAO( :, 7) = (/&
3403 & 0.20145500_JPRB,0.17692900_JPRB,0.14940600_JPRB,0.12690400_JPRB,&
3404 & 0.10828800_JPRB,0.08553720_JPRB,0.07004940_JPRB,0.05153430_JPRB,&
3405 & 0.02268740_JPRB,0.00216943_JPRB,0.00178603_JPRB,0.00137754_JPRB,&
3406 & 0.00098344_JPRB,0.00063165_JPRB,0.00023218_JPRB,0.00003148_JPRB/) 
3407FRACREFAO( :, 8) = (/&
3408 & 0.20383500_JPRB,0.17047501_JPRB,0.14570600_JPRB,0.12679300_JPRB,&
3409 & 0.11043100_JPRB,0.08719150_JPRB,0.07045440_JPRB,0.05345420_JPRB,&
3410 & 0.02448340_JPRB,0.00215839_JPRB,0.00175893_JPRB,0.00138296_JPRB,&
3411 & 0.00098318_JPRB,0.00063188_JPRB,0.00023199_JPRB,0.00003148_JPRB/) 
3412FRACREFAO( :, 9) = (/&
3413 & 0.18680701_JPRB,0.15961801_JPRB,0.15092900_JPRB,0.13049100_JPRB,&
3414 & 0.11418400_JPRB,0.09380540_JPRB,0.07093450_JPRB,0.05664280_JPRB,&
3415 & 0.02938410_JPRB,0.00217751_JPRB,0.00176766_JPRB,0.00138275_JPRB,&
3416 & 0.00098377_JPRB,0.00063181_JPRB,0.00023193_JPRB,0.00003148_JPRB/) 
3417
3418IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',1,ZHOOK_HANDLE)
3419END SUBROUTINE PART12
3420
3421
3422END SUBROUTINE RRTM_KGB16
Note: See TracBrowser for help on using the repository browser.