source: LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/rrtm/rrtm_kgb2.F90 @ 4109

Last change on this file since 4109 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: 113.1 KB
Line 
1#ifdef RS6K
2@PROCESS NOOPTIMIZE
3#endif
4!OCL SCALAR
5!pgi$r opt=0
6SUBROUTINE RRTM_KGB2
7
8!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
9!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
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 YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
19 & FRACREFBO  ,FORREFO 
20USE YOERRTA2 , ONLY : REFPARAM
21
22!     ------------------------------------------------------------------
23
24IMPLICIT NONE
25REAL(KIND=JPRB) :: ZHOOK_HANDLE
26
27IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',0,ZHOOK_HANDLE)
28
29CALL PART1
30CALL PART2
31CALL PART3
32CALL PART4
33CALL PART5
34CALL PART6
35CALL PART7
36CALL PART8
37
38IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',1,ZHOOK_HANDLE)
39
40!     -----------------------------------------------------------------
41
42CONTAINS
43
44
45SUBROUTINE PART1
46
47REAL(KIND=JPRB) :: ZHOOK_HANDLE
48IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',0,ZHOOK_HANDLE)
49
50
51FRACREFBO( :) = (/&
52 !     From P = 0.432 mb.
53 & 0.17444289_JPRB,0.16467269_JPRB,0.15021490_JPRB,0.12460902_JPRB,&
54 & 0.10400643_JPRB,0.09481928_JPRB,0.07590704_JPRB,0.05752856_JPRB,&
55 & 0.03931715_JPRB,0.00428572_JPRB,0.00349352_JPRB,0.00278938_JPRB,&
56 & 0.00203448_JPRB,0.00130037_JPRB,0.00051560_JPRB,0.00006255_JPRB/) 
57
58FORREFO( :) = (/&
59 & -2.34550E-03_JPRB,-8.42698E-03_JPRB,-2.01816E-02_JPRB,-5.66701E-02_JPRB,&
60 & -8.93189E-02_JPRB,-6.37487E-02_JPRB,-4.56455E-02_JPRB,-4.41417E-02_JPRB,&
61 & -4.48605E-02_JPRB,-4.74696E-02_JPRB,-5.16648E-02_JPRB,-5.63099E-02_JPRB,&
62 & -4.74781E-02_JPRB,-3.84704E-02_JPRB,-2.49905E-02_JPRB, 2.02114E-03_JPRB/) 
63
64!     The following are parameters related to the reference water vapor
65!     mixing ratios by REFPARAM(I) = REFH2O(I) / (.002+REFH2O(I)).
66!     These parameters are used for the Planck function interpolation.
67REFPARAM( :) = (/&
68 & 0.903661_JPRB   , 0.859386_JPRB   , 0.746542_JPRB   , 0.580496_JPRB   , 0.412889_JPRB   ,&
69 & 0.275283_JPRB   , 0.162745_JPRB   , 7.63929E-02_JPRB, 1.82553E-02_JPRB, 3.72432E-03_JPRB, &
70 & 2.14946E-03_JPRB, 1.66320E-03_JPRB, 1.59940E-03_JPRB/) 
71
72!     ------------------------------------------------------------------
73
74!     The array KAO contains absorption coefs at the 16 chosen g-values
75!     for a range of pressure levels > ~100mb and temperatures.  The first
76!     index in the array, JT, which runs from 1 to 5, corresponds to
77!     different temperatures.  More specifically, JT = 3 means that the
78!     data are for the corresponding TREF for this  pressure level,
79!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30,
80!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second
81!     index, JP, runs from 1 to 13 and refers to the corresponding
82!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). 
83!     The third index, IG, goes from 1 to 16, and tells us which
84!     g-interval the absorption coefficients are for.
85
86KAO( :, 1, 1) = (/&
87 & 1.4400E-02_JPRB,1.5554E-02_JPRB,1.6739E-02_JPRB,1.7961E-02_JPRB,1.9379E-02_JPRB/) 
88KAO( :, 2, 1) = (/&
89 & 1.1452E-02_JPRB,1.2288E-02_JPRB,1.3232E-02_JPRB,1.4190E-02_JPRB,1.5277E-02_JPRB/) 
90KAO( :, 3, 1) = (/&
91 & 8.9989E-03_JPRB,9.5960E-03_JPRB,1.0327E-02_JPRB,1.1068E-02_JPRB,1.1889E-02_JPRB/) 
92KAO( :, 4, 1) = (/&
93 & 7.1078E-03_JPRB,7.5424E-03_JPRB,8.0710E-03_JPRB,8.6639E-03_JPRB,9.2920E-03_JPRB/) 
94KAO( :, 5, 1) = (/&
95 & 5.6632E-03_JPRB,5.9616E-03_JPRB,6.3421E-03_JPRB,6.8076E-03_JPRB,7.2949E-03_JPRB/) 
96KAO( :, 6, 1) = (/&
97 & 4.5348E-03_JPRB,4.7267E-03_JPRB,5.0015E-03_JPRB,5.3391E-03_JPRB,5.7317E-03_JPRB/) 
98KAO( :, 7, 1) = (/&
99 & 3.6484E-03_JPRB,3.7737E-03_JPRB,3.9583E-03_JPRB,4.2050E-03_JPRB,4.5069E-03_JPRB/) 
100KAO( :, 8, 1) = (/&
101 & 2.9485E-03_JPRB,3.0305E-03_JPRB,3.1509E-03_JPRB,3.3270E-03_JPRB,3.5470E-03_JPRB/) 
102KAO( :, 9, 1) = (/&
103 & 2.4028E-03_JPRB,2.4476E-03_JPRB,2.5272E-03_JPRB,2.6456E-03_JPRB,2.8089E-03_JPRB/) 
104KAO( :,10, 1) = (/&
105 & 1.9899E-03_JPRB,2.0047E-03_JPRB,2.0583E-03_JPRB,2.1403E-03_JPRB,2.2643E-03_JPRB/) 
106KAO( :,11, 1) = (/&
107 & 1.6478E-03_JPRB,1.6593E-03_JPRB,1.7036E-03_JPRB,1.7737E-03_JPRB,1.8823E-03_JPRB/) 
108KAO( :,12, 1) = (/&
109 & 1.3599E-03_JPRB,1.3694E-03_JPRB,1.4067E-03_JPRB,1.4672E-03_JPRB,1.5617E-03_JPRB/) 
110KAO( :,13, 1) = (/&
111 & 1.1157E-03_JPRB,1.1241E-03_JPRB,1.1555E-03_JPRB,1.2073E-03_JPRB,1.2864E-03_JPRB/) 
112KAO( :, 1, 2) = (/&
113 & 3.8905E-02_JPRB,4.2429E-02_JPRB,4.6513E-02_JPRB,5.0588E-02_JPRB,5.5021E-02_JPRB/) 
114KAO( :, 2, 2) = (/&
115 & 3.0803E-02_JPRB,3.3461E-02_JPRB,3.6546E-02_JPRB,3.9922E-02_JPRB,4.3440E-02_JPRB/) 
116KAO( :, 3, 2) = (/&
117 & 2.4144E-02_JPRB,2.6019E-02_JPRB,2.8287E-02_JPRB,3.0953E-02_JPRB,3.3739E-02_JPRB/) 
118KAO( :, 4, 2) = (/&
119 & 1.9082E-02_JPRB,2.0371E-02_JPRB,2.2034E-02_JPRB,2.4014E-02_JPRB,2.6250E-02_JPRB/) 
120KAO( :, 5, 2) = (/&
121 & 1.5203E-02_JPRB,1.6092E-02_JPRB,1.7271E-02_JPRB,1.8721E-02_JPRB,2.0471E-02_JPRB/) 
122KAO( :, 6, 2) = (/&
123 & 1.2164E-02_JPRB,1.2769E-02_JPRB,1.3578E-02_JPRB,1.4643E-02_JPRB,1.5928E-02_JPRB/) 
124KAO( :, 7, 2) = (/&
125 & 9.7815E-03_JPRB,1.0186E-02_JPRB,1.0740E-02_JPRB,1.1487E-02_JPRB,1.2435E-02_JPRB/) 
126KAO( :, 8, 2) = (/&
127 & 7.9245E-03_JPRB,8.1687E-03_JPRB,8.5497E-03_JPRB,9.0644E-03_JPRB,9.7618E-03_JPRB/) 
128KAO( :, 9, 2) = (/&
129 & 6.4727E-03_JPRB,6.5836E-03_JPRB,6.8391E-03_JPRB,7.1947E-03_JPRB,7.6826E-03_JPRB/) 
130KAO( :,10, 2) = (/&
131 & 5.3240E-03_JPRB,5.3575E-03_JPRB,5.5193E-03_JPRB,5.7706E-03_JPRB,6.1166E-03_JPRB/) 
132KAO( :,11, 2) = (/&
133 & 4.3783E-03_JPRB,4.4065E-03_JPRB,4.5391E-03_JPRB,4.7453E-03_JPRB,5.0313E-03_JPRB/) 
134KAO( :,12, 2) = (/&
135 & 3.5968E-03_JPRB,3.6203E-03_JPRB,3.7298E-03_JPRB,3.8998E-03_JPRB,4.1378E-03_JPRB/) 
136KAO( :,13, 2) = (/&
137 & 2.9507E-03_JPRB,2.9704E-03_JPRB,3.0611E-03_JPRB,3.2015E-03_JPRB,3.4012E-03_JPRB/) 
138KAO( :, 1, 3) = (/&
139 & 1.0636E-01_JPRB,1.1680E-01_JPRB,1.2824E-01_JPRB,1.4017E-01_JPRB,1.5266E-01_JPRB/) 
140KAO( :, 2, 3) = (/&
141 & 8.4443E-02_JPRB,9.2480E-02_JPRB,1.0148E-01_JPRB,1.1092E-01_JPRB,1.2100E-01_JPRB/) 
142KAO( :, 3, 3) = (/&
143 & 6.5959E-02_JPRB,7.1869E-02_JPRB,7.8770E-02_JPRB,8.6250E-02_JPRB,9.4058E-02_JPRB/) 
144KAO( :, 4, 3) = (/&
145 & 5.1681E-02_JPRB,5.6029E-02_JPRB,6.1207E-02_JPRB,6.7088E-02_JPRB,7.3195E-02_JPRB/) 
146KAO( :, 5, 3) = (/&
147 & 4.0734E-02_JPRB,4.3938E-02_JPRB,4.7777E-02_JPRB,5.2288E-02_JPRB,5.7243E-02_JPRB/) 
148KAO( :, 6, 3) = (/&
149 & 3.2248E-02_JPRB,3.4534E-02_JPRB,3.7344E-02_JPRB,4.0738E-02_JPRB,4.4673E-02_JPRB/) 
150KAO( :, 7, 3) = (/&
151 & 2.5731E-02_JPRB,2.7244E-02_JPRB,2.9333E-02_JPRB,3.1849E-02_JPRB,3.4861E-02_JPRB/) 
152KAO( :, 8, 3) = (/&
153 & 2.0693E-02_JPRB,2.1657E-02_JPRB,2.3154E-02_JPRB,2.5012E-02_JPRB,2.7268E-02_JPRB/) 
154KAO( :, 9, 3) = (/&
155 & 1.6730E-02_JPRB,1.7346E-02_JPRB,1.8327E-02_JPRB,1.9716E-02_JPRB,2.1381E-02_JPRB/) 
156KAO( :,10, 3) = (/&
157 & 1.3588E-02_JPRB,1.4015E-02_JPRB,1.4658E-02_JPRB,1.5680E-02_JPRB,1.6936E-02_JPRB/) 
158KAO( :,11, 3) = (/&
159 & 1.1180E-02_JPRB,1.1528E-02_JPRB,1.2063E-02_JPRB,1.2917E-02_JPRB,1.3959E-02_JPRB/) 
160KAO( :,12, 3) = (/&
161 & 9.1920E-03_JPRB,9.4766E-03_JPRB,9.9244E-03_JPRB,1.0636E-02_JPRB,1.1502E-02_JPRB/) 
162KAO( :,13, 3) = (/&
163 & 7.5517E-03_JPRB,7.7861E-03_JPRB,8.1602E-03_JPRB,8.7504E-03_JPRB,9.4682E-03_JPRB/) 
164KAO( :, 1, 4) = (/&
165 & 2.6559E-01_JPRB,2.7778E-01_JPRB,2.8983E-01_JPRB,3.0112E-01_JPRB,3.1151E-01_JPRB/) 
166KAO( :, 2, 4) = (/&
167 & 2.1415E-01_JPRB,2.2376E-01_JPRB,2.3372E-01_JPRB,2.4291E-01_JPRB,2.5148E-01_JPRB/) 
168KAO( :, 3, 4) = (/&
169 & 1.7113E-01_JPRB,1.7864E-01_JPRB,1.8679E-01_JPRB,1.9418E-01_JPRB,2.0158E-01_JPRB/) 
170KAO( :, 4, 4) = (/&
171 & 1.3689E-01_JPRB,1.4305E-01_JPRB,1.4933E-01_JPRB,1.5577E-01_JPRB,1.6212E-01_JPRB/) 
172KAO( :, 5, 4) = (/&
173 & 1.0951E-01_JPRB,1.1484E-01_JPRB,1.1993E-01_JPRB,1.2527E-01_JPRB,1.3048E-01_JPRB/) 
174KAO( :, 6, 4) = (/&
175 & 8.7678E-02_JPRB,9.2013E-02_JPRB,9.6292E-02_JPRB,1.0052E-01_JPRB,1.0492E-01_JPRB/) 
176KAO( :, 7, 4) = (/&
177 & 7.0271E-02_JPRB,7.3646E-02_JPRB,7.7252E-02_JPRB,8.0679E-02_JPRB,8.4295E-02_JPRB/) 
178KAO( :, 8, 4) = (/&
179 & 5.6292E-02_JPRB,5.9027E-02_JPRB,6.1915E-02_JPRB,6.4784E-02_JPRB,6.7662E-02_JPRB/) 
180KAO( :, 9, 4) = (/&
181 & 4.5045E-02_JPRB,4.7308E-02_JPRB,4.9593E-02_JPRB,5.1992E-02_JPRB,5.4350E-02_JPRB/) 
182KAO( :,10, 4) = (/&
183 & 3.6083E-02_JPRB,3.8037E-02_JPRB,3.9928E-02_JPRB,4.1868E-02_JPRB,4.3827E-02_JPRB/) 
184KAO( :,11, 4) = (/&
185 & 2.9684E-02_JPRB,3.1305E-02_JPRB,3.2869E-02_JPRB,3.4458E-02_JPRB,3.6069E-02_JPRB/) 
186KAO( :,12, 4) = (/&
187 & 2.4428E-02_JPRB,2.5760E-02_JPRB,2.7039E-02_JPRB,2.8345E-02_JPRB,2.9671E-02_JPRB/) 
188KAO( :,13, 4) = (/&
189 & 2.0094E-02_JPRB,2.1179E-02_JPRB,2.2224E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/) 
190KAO( :, 1, 5) = (/&
191 & 4.7290E-01_JPRB,4.8928E-01_JPRB,5.0887E-01_JPRB,5.3328E-01_JPRB,5.6216E-01_JPRB/) 
192KAO( :, 2, 5) = (/&
193 & 3.8475E-01_JPRB,3.9762E-01_JPRB,4.1280E-01_JPRB,4.3219E-01_JPRB,4.5473E-01_JPRB/) 
194KAO( :, 3, 5) = (/&
195 & 3.0979E-01_JPRB,3.1996E-01_JPRB,3.3105E-01_JPRB,3.4530E-01_JPRB,3.6216E-01_JPRB/) 
196KAO( :, 4, 5) = (/&
197 & 2.5002E-01_JPRB,2.5800E-01_JPRB,2.6674E-01_JPRB,2.7709E-01_JPRB,2.8946E-01_JPRB/) 
198KAO( :, 5, 5) = (/&
199 & 2.0218E-01_JPRB,2.0847E-01_JPRB,2.1546E-01_JPRB,2.2311E-01_JPRB,2.3239E-01_JPRB/) 
200KAO( :, 6, 5) = (/&
201 & 1.6286E-01_JPRB,1.6840E-01_JPRB,1.7397E-01_JPRB,1.7996E-01_JPRB,1.8683E-01_JPRB/) 
202KAO( :, 7, 5) = (/&
203 & 1.3055E-01_JPRB,1.3602E-01_JPRB,1.4050E-01_JPRB,1.4524E-01_JPRB,1.5047E-01_JPRB/) 
204KAO( :, 8, 5) = (/&
205 & 1.0442E-01_JPRB,1.0954E-01_JPRB,1.1353E-01_JPRB,1.1737E-01_JPRB,1.2143E-01_JPRB/) 
206KAO( :, 9, 5) = (/&
207 & 8.3388E-02_JPRB,8.7841E-02_JPRB,9.1682E-02_JPRB,9.4816E-02_JPRB,9.8050E-02_JPRB/) 
208KAO( :,10, 5) = (/&
209 & 6.7010E-02_JPRB,7.0598E-02_JPRB,7.4015E-02_JPRB,7.6769E-02_JPRB,7.9372E-02_JPRB/) 
210KAO( :,11, 5) = (/&
211 & 5.5118E-02_JPRB,5.8051E-02_JPRB,6.0869E-02_JPRB,6.3114E-02_JPRB,6.5294E-02_JPRB/) 
212KAO( :,12, 5) = (/&
213 & 4.5300E-02_JPRB,4.7721E-02_JPRB,5.0049E-02_JPRB,5.1890E-02_JPRB,5.3682E-02_JPRB/) 
214KAO( :,13, 5) = (/&
215 & 3.7225E-02_JPRB,3.9236E-02_JPRB,4.1133E-02_JPRB,4.2631E-02_JPRB,4.4126E-02_JPRB/) 
216KAO( :, 1, 6) = (/&
217 & 8.4224E-01_JPRB,9.2264E-01_JPRB,1.0073E+00_JPRB,1.0930E+00_JPRB,1.1793E+00_JPRB/) 
218KAO( :, 2, 6) = (/&
219 & 6.7595E-01_JPRB,7.4232E-01_JPRB,8.1248E-01_JPRB,8.8302E-01_JPRB,9.5616E-01_JPRB/) 
220KAO( :, 3, 6) = (/&
221 & 5.2904E-01_JPRB,5.8048E-01_JPRB,6.3751E-01_JPRB,6.9642E-01_JPRB,7.5721E-01_JPRB/) 
222KAO( :, 4, 6) = (/&
223 & 4.1315E-01_JPRB,4.5407E-01_JPRB,4.9971E-01_JPRB,5.4886E-01_JPRB,5.9964E-01_JPRB/) 
224KAO( :, 5, 6) = (/&
225 & 3.2467E-01_JPRB,3.5531E-01_JPRB,3.9159E-01_JPRB,4.3161E-01_JPRB,4.7423E-01_JPRB/) 
226KAO( :, 6, 6) = (/&
227 & 2.5574E-01_JPRB,2.7784E-01_JPRB,3.0579E-01_JPRB,3.3817E-01_JPRB,3.7278E-01_JPRB/) 
228KAO( :, 7, 6) = (/&
229 & 2.0313E-01_JPRB,2.1792E-01_JPRB,2.3876E-01_JPRB,2.6386E-01_JPRB,2.9205E-01_JPRB/) 
230KAO( :, 8, 6) = (/&
231 & 1.6285E-01_JPRB,1.7201E-01_JPRB,1.8675E-01_JPRB,2.0598E-01_JPRB,2.2843E-01_JPRB/) 
232KAO( :, 9, 6) = (/&
233 & 1.3178E-01_JPRB,1.3687E-01_JPRB,1.4670E-01_JPRB,1.6087E-01_JPRB,1.7827E-01_JPRB/) 
234KAO( :,10, 6) = (/&
235 & 1.0760E-01_JPRB,1.1022E-01_JPRB,1.1661E-01_JPRB,1.2690E-01_JPRB,1.4033E-01_JPRB/) 
236KAO( :,11, 6) = (/&
237 & 8.8471E-02_JPRB,9.0742E-02_JPRB,9.6088E-02_JPRB,1.0477E-01_JPRB,1.1601E-01_JPRB/) 
238KAO( :,12, 6) = (/&
239 & 7.2724E-02_JPRB,7.4645E-02_JPRB,7.9165E-02_JPRB,8.6464E-02_JPRB,9.5844E-02_JPRB/) 
240KAO( :,13, 6) = (/&
241 & 5.9719E-02_JPRB,6.1350E-02_JPRB,6.5177E-02_JPRB,7.1301E-02_JPRB,7.9088E-02_JPRB/) 
242KAO( :, 1, 7) = (/&
243 & 1.8416E+00_JPRB,2.0377E+00_JPRB,2.2351E+00_JPRB,2.4351E+00_JPRB,2.6357E+00_JPRB/) 
244KAO( :, 2, 7) = (/&
245 & 1.5057E+00_JPRB,1.6691E+00_JPRB,1.8342E+00_JPRB,2.0031E+00_JPRB,2.1705E+00_JPRB/) 
246KAO( :, 3, 7) = (/&
247 & 1.1980E+00_JPRB,1.3329E+00_JPRB,1.4704E+00_JPRB,1.6099E+00_JPRB,1.7488E+00_JPRB/) 
248KAO( :, 4, 7) = (/&
249 & 9.4408E-01_JPRB,1.0566E+00_JPRB,1.1708E+00_JPRB,1.2874E+00_JPRB,1.4014E+00_JPRB/) 
250KAO( :, 5, 7) = (/&
251 & 7.4052E-01_JPRB,8.3332E-01_JPRB,9.3007E-01_JPRB,1.0263E+00_JPRB,1.1221E+00_JPRB/) 
252KAO( :, 6, 7) = (/&
253 & 5.7502E-01_JPRB,6.5145E-01_JPRB,7.3102E-01_JPRB,8.1228E-01_JPRB,8.9283E-01_JPRB/) 
254KAO( :, 7, 7) = (/&
255 & 4.4413E-01_JPRB,5.0565E-01_JPRB,5.7113E-01_JPRB,6.3832E-01_JPRB,7.0636E-01_JPRB/) 
256KAO( :, 8, 7) = (/&
257 & 3.4215E-01_JPRB,3.9125E-01_JPRB,4.4414E-01_JPRB,4.9963E-01_JPRB,5.5600E-01_JPRB/) 
258KAO( :, 9, 7) = (/&
259 & 2.6278E-01_JPRB,3.0155E-01_JPRB,3.4409E-01_JPRB,3.8940E-01_JPRB,4.3634E-01_JPRB/) 
260KAO( :,10, 7) = (/&
261 & 2.0399E-01_JPRB,2.3450E-01_JPRB,2.6863E-01_JPRB,3.0559E-01_JPRB,3.4410E-01_JPRB/) 
262KAO( :,11, 7) = (/&
263 & 1.6899E-01_JPRB,1.9452E-01_JPRB,2.2306E-01_JPRB,2.5367E-01_JPRB,2.8600E-01_JPRB/) 
264KAO( :,12, 7) = (/&
265 & 1.4000E-01_JPRB,1.6132E-01_JPRB,1.8504E-01_JPRB,2.1049E-01_JPRB,2.3736E-01_JPRB/) 
266KAO( :,13, 7) = (/&
267 & 1.1587E-01_JPRB,1.3364E-01_JPRB,1.5332E-01_JPRB,1.7448E-01_JPRB,1.9695E-01_JPRB/) 
268KAO( :, 1, 8) = (/&
269 & 4.7751E+00_JPRB,5.2791E+00_JPRB,5.7933E+00_JPRB,6.3083E+00_JPRB,6.8326E+00_JPRB/) 
270KAO( :, 2, 8) = (/&
271 & 4.0048E+00_JPRB,4.4443E+00_JPRB,4.8940E+00_JPRB,5.3580E+00_JPRB,5.8267E+00_JPRB/) 
272KAO( :, 3, 8) = (/&
273 & 3.2400E+00_JPRB,3.6253E+00_JPRB,4.0207E+00_JPRB,4.4230E+00_JPRB,4.8210E+00_JPRB/) 
274KAO( :, 4, 8) = (/&
275 & 2.5883E+00_JPRB,2.9210E+00_JPRB,3.2656E+00_JPRB,3.6154E+00_JPRB,3.9641E+00_JPRB/) 
276KAO( :, 5, 8) = (/&
277 & 2.0550E+00_JPRB,2.3390E+00_JPRB,2.6351E+00_JPRB,2.9336E+00_JPRB,3.2370E+00_JPRB/) 
278KAO( :, 6, 8) = (/&
279 & 1.6130E+00_JPRB,1.8538E+00_JPRB,2.1027E+00_JPRB,2.3582E+00_JPRB,2.6184E+00_JPRB/) 
280KAO( :, 7, 8) = (/&
281 & 1.2548E+00_JPRB,1.4567E+00_JPRB,1.6664E+00_JPRB,1.8820E+00_JPRB,2.1036E+00_JPRB/) 
282KAO( :, 8, 8) = (/&
283 & 9.6687E-01_JPRB,1.1348E+00_JPRB,1.3110E+00_JPRB,1.4930E+00_JPRB,1.6805E+00_JPRB/) 
284KAO( :, 9, 8) = (/&
285 & 7.3847E-01_JPRB,8.7593E-01_JPRB,1.0221E+00_JPRB,1.1741E+00_JPRB,1.3319E+00_JPRB/) 
286KAO( :,10, 8) = (/&
287 & 5.6776E-01_JPRB,6.8017E-01_JPRB,8.0059E-01_JPRB,9.2750E-01_JPRB,1.0593E+00_JPRB/) 
288KAO( :,11, 8) = (/&
289 & 4.7511E-01_JPRB,5.6972E-01_JPRB,6.7118E-01_JPRB,7.7840E-01_JPRB,8.8949E-01_JPRB/) 
290KAO( :,12, 8) = (/&
291 & 3.9658E-01_JPRB,4.7593E-01_JPRB,5.6128E-01_JPRB,6.5124E-01_JPRB,7.4417E-01_JPRB/) 
292KAO( :,13, 8) = (/&
293 & 3.3005E-01_JPRB,3.9650E-01_JPRB,4.6807E-01_JPRB,5.4357E-01_JPRB,6.2155E-01_JPRB/) 
294KAO( :, 1, 9) = (/&
295 & 1.7831E+01_JPRB,1.9823E+01_JPRB,2.1884E+01_JPRB,2.3937E+01_JPRB,2.5904E+01_JPRB/) 
296KAO( :, 2, 9) = (/&
297 & 1.5983E+01_JPRB,1.7908E+01_JPRB,1.9844E+01_JPRB,2.1750E+01_JPRB,2.3639E+01_JPRB/) 
298KAO( :, 3, 9) = (/&
299 & 1.3838E+01_JPRB,1.5652E+01_JPRB,1.7428E+01_JPRB,1.9195E+01_JPRB,2.0946E+01_JPRB/) 
300KAO( :, 4, 9) = (/&
301 & 1.1707E+01_JPRB,1.3372E+01_JPRB,1.5018E+01_JPRB,1.6675E+01_JPRB,1.8330E+01_JPRB/) 
302KAO( :, 5, 9) = (/&
303 & 9.7619E+00_JPRB,1.1244E+01_JPRB,1.2752E+01_JPRB,1.4279E+01_JPRB,1.5837E+01_JPRB/) 
304KAO( :, 6, 9) = (/&
305 & 7.9817E+00_JPRB,9.2988E+00_JPRB,1.0650E+01_JPRB,1.2029E+01_JPRB,1.3449E+01_JPRB/) 
306KAO( :, 7, 9) = (/&
307 & 6.4478E+00_JPRB,7.5864E+00_JPRB,8.7717E+00_JPRB,1.0008E+01_JPRB,1.1289E+01_JPRB/) 
308KAO( :, 8, 9) = (/&
309 & 5.1550E+00_JPRB,6.1381E+00_JPRB,7.1667E+00_JPRB,8.2567E+00_JPRB,9.3759E+00_JPRB/) 
310KAO( :, 9, 9) = (/&
311 & 4.0462E+00_JPRB,4.8924E+00_JPRB,5.7944E+00_JPRB,6.7466E+00_JPRB,7.7100E+00_JPRB/) 
312KAO( :,10, 9) = (/&
313 & 3.1920E+00_JPRB,3.9133E+00_JPRB,4.6912E+00_JPRB,5.5091E+00_JPRB,6.3432E+00_JPRB/) 
314KAO( :,11, 9) = (/&
315 & 2.7717E+00_JPRB,3.4039E+00_JPRB,4.0800E+00_JPRB,4.7818E+00_JPRB,5.5081E+00_JPRB/) 
316KAO( :,12, 9) = (/&
317 & 2.3978E+00_JPRB,2.9436E+00_JPRB,3.5235E+00_JPRB,4.1293E+00_JPRB,4.7600E+00_JPRB/) 
318KAO( :,13, 9) = (/&
319 & 2.0575E+00_JPRB,2.5263E+00_JPRB,3.0244E+00_JPRB,3.5477E+00_JPRB,4.0896E+00_JPRB/) 
320KAO( :, 1,10) = (/&
321 & 4.9748E+01_JPRB,5.5112E+01_JPRB,5.9938E+01_JPRB,6.5023E+01_JPRB,7.0458E+01_JPRB/) 
322KAO( :, 2,10) = (/&
323 & 4.6588E+01_JPRB,5.1661E+01_JPRB,5.6901E+01_JPRB,6.2463E+01_JPRB,6.8487E+01_JPRB/) 
324KAO( :, 3,10) = (/&
325 & 4.1628E+01_JPRB,4.6699E+01_JPRB,5.2314E+01_JPRB,5.8353E+01_JPRB,6.4458E+01_JPRB/) 
326KAO( :, 4,10) = (/&
327 & 3.7456E+01_JPRB,4.2469E+01_JPRB,4.7867E+01_JPRB,5.3384E+01_JPRB,5.9111E+01_JPRB/) 
328KAO( :, 5,10) = (/&
329 & 3.3436E+01_JPRB,3.8793E+01_JPRB,4.3992E+01_JPRB,4.9077E+01_JPRB,5.4046E+01_JPRB/) 
330KAO( :, 6,10) = (/&
331 & 2.8948E+01_JPRB,3.4066E+01_JPRB,3.9093E+01_JPRB,4.3943E+01_JPRB,4.8577E+01_JPRB/) 
332KAO( :, 7,10) = (/&
333 & 2.4411E+01_JPRB,2.9169E+01_JPRB,3.3772E+01_JPRB,3.8328E+01_JPRB,4.2674E+01_JPRB/) 
334KAO( :, 8,10) = (/&
335 & 2.0213E+01_JPRB,2.4379E+01_JPRB,2.8547E+01_JPRB,3.2632E+01_JPRB,3.6717E+01_JPRB/) 
336KAO( :, 9,10) = (/&
337 & 1.6770E+01_JPRB,2.0275E+01_JPRB,2.3726E+01_JPRB,2.7289E+01_JPRB,3.1149E+01_JPRB/) 
338KAO( :,10,10) = (/&
339 & 1.3740E+01_JPRB,1.6814E+01_JPRB,1.9874E+01_JPRB,2.3039E+01_JPRB,2.6529E+01_JPRB/) 
340
341IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',1,ZHOOK_HANDLE)
342END SUBROUTINE PART1
343
344
345SUBROUTINE PART2
346
347REAL(KIND=JPRB) :: ZHOOK_HANDLE
348IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',0,ZHOOK_HANDLE)
349
350
351KAO( :,11,10) = (/&
352 & 1.2161E+01_JPRB,1.4820E+01_JPRB,1.7667E+01_JPRB,2.0767E+01_JPRB,2.3948E+01_JPRB/) 
353KAO( :,12,10) = (/&
354 & 1.0666E+01_JPRB,1.3093E+01_JPRB,1.5727E+01_JPRB,1.8473E+01_JPRB,2.1195E+01_JPRB/) 
355KAO( :,13,10) = (/&
356 & 9.3915E+00_JPRB,1.1557E+01_JPRB,1.3847E+01_JPRB,1.6172E+01_JPRB,1.8558E+01_JPRB/) 
357KAO( :, 1,11) = (/&
358 & 7.2842E+01_JPRB,8.2127E+01_JPRB,9.1751E+01_JPRB,1.0081E+02_JPRB,1.0868E+02_JPRB/) 
359KAO( :, 2,11) = (/&
360 & 7.0912E+01_JPRB,8.0211E+01_JPRB,8.9133E+01_JPRB,9.7767E+01_JPRB,1.0537E+02_JPRB/) 
361KAO( :, 3,11) = (/&
362 & 6.7169E+01_JPRB,7.5895E+01_JPRB,8.3957E+01_JPRB,9.1467E+01_JPRB,9.8740E+01_JPRB/) 
363KAO( :, 4,11) = (/&
364 & 6.1046E+01_JPRB,6.9086E+01_JPRB,7.7071E+01_JPRB,8.4625E+01_JPRB,9.2325E+01_JPRB/) 
365KAO( :, 5,11) = (/&
366 & 5.4291E+01_JPRB,6.1624E+01_JPRB,6.9146E+01_JPRB,7.6916E+01_JPRB,8.5050E+01_JPRB/) 
367KAO( :, 6,11) = (/&
368 & 4.7940E+01_JPRB,5.4754E+01_JPRB,6.1943E+01_JPRB,6.9739E+01_JPRB,7.7765E+01_JPRB/) 
369KAO( :, 7,11) = (/&
370 & 4.1424E+01_JPRB,4.8323E+01_JPRB,5.5884E+01_JPRB,6.3434E+01_JPRB,7.1064E+01_JPRB/) 
371KAO( :, 8,11) = (/&
372 & 3.4808E+01_JPRB,4.1718E+01_JPRB,4.9240E+01_JPRB,5.6728E+01_JPRB,6.4032E+01_JPRB/) 
373KAO( :, 9,11) = (/&
374 & 2.8724E+01_JPRB,3.5333E+01_JPRB,4.2395E+01_JPRB,4.9372E+01_JPRB,5.6186E+01_JPRB/) 
375KAO( :,10,11) = (/&
376 & 2.4060E+01_JPRB,2.9886E+01_JPRB,3.6171E+01_JPRB,4.2511E+01_JPRB,4.8855E+01_JPRB/) 
377KAO( :,11,11) = (/&
378 & 2.2466E+01_JPRB,2.7842E+01_JPRB,3.3276E+01_JPRB,3.8707E+01_JPRB,4.4411E+01_JPRB/) 
379KAO( :,12,11) = (/&
380 & 2.0635E+01_JPRB,2.5402E+01_JPRB,3.0130E+01_JPRB,3.5065E+01_JPRB,4.0456E+01_JPRB/) 
381KAO( :,13,11) = (/&
382 & 1.8375E+01_JPRB,2.2528E+01_JPRB,2.6944E+01_JPRB,3.1721E+01_JPRB,3.6642E+01_JPRB/) 
383KAO( :, 1,12) = (/&
384 & 1.2814E+02_JPRB,1.3938E+02_JPRB,1.4994E+02_JPRB,1.6150E+02_JPRB,1.7273E+02_JPRB/) 
385KAO( :, 2,12) = (/&
386 & 1.2028E+02_JPRB,1.3171E+02_JPRB,1.4381E+02_JPRB,1.5628E+02_JPRB,1.6936E+02_JPRB/) 
387KAO( :, 3,12) = (/&
388 & 1.0908E+02_JPRB,1.2221E+02_JPRB,1.3662E+02_JPRB,1.5108E+02_JPRB,1.6591E+02_JPRB/) 
389KAO( :, 4,12) = (/&
390 & 9.9689E+01_JPRB,1.1393E+02_JPRB,1.2899E+02_JPRB,1.4446E+02_JPRB,1.5932E+02_JPRB/) 
391KAO( :, 5,12) = (/&
392 & 9.1574E+01_JPRB,1.0647E+02_JPRB,1.2179E+02_JPRB,1.3681E+02_JPRB,1.5090E+02_JPRB/) 
393KAO( :, 6,12) = (/&
394 & 8.3159E+01_JPRB,9.8372E+01_JPRB,1.1370E+02_JPRB,1.2787E+02_JPRB,1.4184E+02_JPRB/) 
395KAO( :, 7,12) = (/&
396 & 7.5130E+01_JPRB,8.9279E+01_JPRB,1.0335E+02_JPRB,1.1696E+02_JPRB,1.3088E+02_JPRB/) 
397KAO( :, 8,12) = (/&
398 & 6.6942E+01_JPRB,7.9719E+01_JPRB,9.2547E+01_JPRB,1.0530E+02_JPRB,1.1887E+02_JPRB/) 
399KAO( :, 9,12) = (/&
400 & 5.7722E+01_JPRB,6.9837E+01_JPRB,8.2082E+01_JPRB,9.4593E+01_JPRB,1.0770E+02_JPRB/) 
401KAO( :,10,12) = (/&
402 & 4.9040E+01_JPRB,6.0620E+01_JPRB,7.2577E+01_JPRB,8.5187E+01_JPRB,9.7844E+01_JPRB/) 
403KAO( :,11,12) = (/&
404 & 4.5433E+01_JPRB,5.6352E+01_JPRB,6.8223E+01_JPRB,8.0499E+01_JPRB,9.2512E+01_JPRB/) 
405KAO( :,12,12) = (/&
406 & 4.1971E+01_JPRB,5.2467E+01_JPRB,6.3533E+01_JPRB,7.4543E+01_JPRB,8.5084E+01_JPRB/) 
407KAO( :,13,12) = (/&
408 & 3.9013E+01_JPRB,4.8568E+01_JPRB,5.8272E+01_JPRB,6.7741E+01_JPRB,7.7194E+01_JPRB/) 
409KAO( :, 1,13) = (/&
410 & 2.2210E+02_JPRB,2.4767E+02_JPRB,2.7177E+02_JPRB,2.9506E+02_JPRB,3.1428E+02_JPRB/) 
411KAO( :, 2,13) = (/&
412 & 2.2387E+02_JPRB,2.5269E+02_JPRB,2.7872E+02_JPRB,2.9937E+02_JPRB,3.1679E+02_JPRB/) 
413KAO( :, 3,13) = (/&
414 & 2.1746E+02_JPRB,2.4620E+02_JPRB,2.7168E+02_JPRB,2.9352E+02_JPRB,3.1488E+02_JPRB/) 
415KAO( :, 4,13) = (/&
416 & 2.0527E+02_JPRB,2.3513E+02_JPRB,2.5998E+02_JPRB,2.8303E+02_JPRB,3.0506E+02_JPRB/) 
417KAO( :, 5,13) = (/&
418 & 1.8964E+02_JPRB,2.1890E+02_JPRB,2.4311E+02_JPRB,2.6810E+02_JPRB,2.9248E+02_JPRB/) 
419KAO( :, 6,13) = (/&
420 & 1.7090E+02_JPRB,1.9758E+02_JPRB,2.2284E+02_JPRB,2.4839E+02_JPRB,2.7463E+02_JPRB/) 
421KAO( :, 7,13) = (/&
422 & 1.5109E+02_JPRB,1.7710E+02_JPRB,2.0295E+02_JPRB,2.2932E+02_JPRB,2.5634E+02_JPRB/) 
423KAO( :, 8,13) = (/&
424 & 1.3270E+02_JPRB,1.5826E+02_JPRB,1.8450E+02_JPRB,2.1121E+02_JPRB,2.3873E+02_JPRB/) 
425KAO( :, 9,13) = (/&
426 & 1.1570E+02_JPRB,1.4021E+02_JPRB,1.6653E+02_JPRB,1.9389E+02_JPRB,2.2105E+02_JPRB/) 
427KAO( :,10,13) = (/&
428 & 1.0259E+02_JPRB,1.2584E+02_JPRB,1.5091E+02_JPRB,1.7718E+02_JPRB,2.0281E+02_JPRB/) 
429KAO( :,11,13) = (/&
430 & 1.0076E+02_JPRB,1.2370E+02_JPRB,1.4756E+02_JPRB,1.7147E+02_JPRB,1.9575E+02_JPRB/) 
431KAO( :,12,13) = (/&
432 & 9.7325E+01_JPRB,1.1939E+02_JPRB,1.4174E+02_JPRB,1.6449E+02_JPRB,1.8836E+02_JPRB/) 
433KAO( :,13,13) = (/&
434 & 9.2070E+01_JPRB,1.1299E+02_JPRB,1.3489E+02_JPRB,1.5734E+02_JPRB,1.8036E+02_JPRB/) 
435KAO( :, 1,14) = (/&
436 & 4.2241E+02_JPRB,4.5820E+02_JPRB,4.8815E+02_JPRB,5.1730E+02_JPRB,5.4765E+02_JPRB/) 
437KAO( :, 2,14) = (/&
438 & 4.2461E+02_JPRB,4.6681E+02_JPRB,4.9982E+02_JPRB,5.3726E+02_JPRB,5.6640E+02_JPRB/) 
439KAO( :, 3,14) = (/&
440 & 4.1742E+02_JPRB,4.5924E+02_JPRB,4.9930E+02_JPRB,5.3630E+02_JPRB,5.8090E+02_JPRB/) 
441KAO( :, 4,14) = (/&
442 & 3.9739E+02_JPRB,4.4336E+02_JPRB,4.8832E+02_JPRB,5.2886E+02_JPRB,5.8035E+02_JPRB/) 
443KAO( :, 5,14) = (/&
444 & 3.7398E+02_JPRB,4.2048E+02_JPRB,4.7438E+02_JPRB,5.2486E+02_JPRB,5.7134E+02_JPRB/) 
445KAO( :, 6,14) = (/&
446 & 3.4725E+02_JPRB,3.9940E+02_JPRB,4.5648E+02_JPRB,5.1230E+02_JPRB,5.6617E+02_JPRB/) 
447KAO( :, 7,14) = (/&
448 & 3.2072E+02_JPRB,3.7728E+02_JPRB,4.3646E+02_JPRB,4.9362E+02_JPRB,5.5200E+02_JPRB/) 
449KAO( :, 8,14) = (/&
450 & 2.9404E+02_JPRB,3.5487E+02_JPRB,4.1802E+02_JPRB,4.7825E+02_JPRB,5.4076E+02_JPRB/) 
451KAO( :, 9,14) = (/&
452 & 2.7034E+02_JPRB,3.3232E+02_JPRB,3.9722E+02_JPRB,4.5997E+02_JPRB,5.2290E+02_JPRB/) 
453KAO( :,10,14) = (/&
454 & 2.5045E+02_JPRB,3.1309E+02_JPRB,3.7582E+02_JPRB,4.4096E+02_JPRB,5.0588E+02_JPRB/) 
455KAO( :,11,14) = (/&
456 & 2.5624E+02_JPRB,3.1911E+02_JPRB,3.8269E+02_JPRB,4.5034E+02_JPRB,5.1713E+02_JPRB/) 
457KAO( :,12,14) = (/&
458 & 2.6046E+02_JPRB,3.2208E+02_JPRB,3.8851E+02_JPRB,4.5644E+02_JPRB,5.2468E+02_JPRB/) 
459KAO( :,13,14) = (/&
460 & 2.6376E+02_JPRB,3.2552E+02_JPRB,3.9097E+02_JPRB,4.5804E+02_JPRB,5.2614E+02_JPRB/) 
461KAO( :, 1,15) = (/&
462 & 8.5706E+02_JPRB,9.2142E+02_JPRB,9.6878E+02_JPRB,1.0281E+03_JPRB,1.0795E+03_JPRB/) 
463KAO( :, 2,15) = (/&
464 & 9.5189E+02_JPRB,1.0335E+03_JPRB,1.0913E+03_JPRB,1.1632E+03_JPRB,1.2011E+03_JPRB/) 
465KAO( :, 3,15) = (/&
466 & 1.0232E+03_JPRB,1.0861E+03_JPRB,1.1646E+03_JPRB,1.2285E+03_JPRB,1.3057E+03_JPRB/) 
467KAO( :, 4,15) = (/&
468 & 1.0392E+03_JPRB,1.1356E+03_JPRB,1.2544E+03_JPRB,1.3115E+03_JPRB,1.4338E+03_JPRB/) 
469KAO( :, 5,15) = (/&
470 & 1.0616E+03_JPRB,1.1713E+03_JPRB,1.3147E+03_JPRB,1.4146E+03_JPRB,1.4989E+03_JPRB/) 
471KAO( :, 6,15) = (/&
472 & 1.0788E+03_JPRB,1.1886E+03_JPRB,1.3302E+03_JPRB,1.4680E+03_JPRB,1.5638E+03_JPRB/) 
473KAO( :, 7,15) = (/&
474 & 1.0593E+03_JPRB,1.1909E+03_JPRB,1.3423E+03_JPRB,1.4840E+03_JPRB,1.6000E+03_JPRB/) 
475KAO( :, 8,15) = (/&
476 & 9.9873E+02_JPRB,1.1655E+03_JPRB,1.3439E+03_JPRB,1.4887E+03_JPRB,1.6318E+03_JPRB/) 
477KAO( :, 9,15) = (/&
478 & 9.4071E+02_JPRB,1.1173E+03_JPRB,1.3103E+03_JPRB,1.4801E+03_JPRB,1.6507E+03_JPRB/) 
479KAO( :,10,15) = (/&
480 & 8.8647E+02_JPRB,1.0727E+03_JPRB,1.2703E+03_JPRB,1.4721E+03_JPRB,1.6711E+03_JPRB/) 
481KAO( :,11,15) = (/&
482 & 9.2131E+02_JPRB,1.1303E+03_JPRB,1.3379E+03_JPRB,1.5675E+03_JPRB,1.7706E+03_JPRB/) 
483KAO( :,12,15) = (/&
484 & 9.6245E+02_JPRB,1.1976E+03_JPRB,1.4205E+03_JPRB,1.6577E+03_JPRB,1.8724E+03_JPRB/) 
485KAO( :,13,15) = (/&
486 & 1.0149E+03_JPRB,1.2514E+03_JPRB,1.4928E+03_JPRB,1.7376E+03_JPRB,1.9688E+03_JPRB/) 
487KAO( :, 1,16) = (/&
488 & 1.1893E+03_JPRB,1.2688E+03_JPRB,1.3351E+03_JPRB,1.3959E+03_JPRB,1.4433E+03_JPRB/) 
489KAO( :, 2,16) = (/&
490 & 1.4043E+03_JPRB,1.5015E+03_JPRB,1.5933E+03_JPRB,1.6702E+03_JPRB,1.7343E+03_JPRB/) 
491KAO( :, 3,16) = (/&
492 & 1.6203E+03_JPRB,1.7272E+03_JPRB,1.8338E+03_JPRB,1.9414E+03_JPRB,2.0288E+03_JPRB/) 
493KAO( :, 4,16) = (/&
494 & 1.7997E+03_JPRB,1.9426E+03_JPRB,2.1186E+03_JPRB,2.2171E+03_JPRB,2.3429E+03_JPRB/) 
495KAO( :, 5,16) = (/&
496 & 1.9840E+03_JPRB,2.1906E+03_JPRB,2.3875E+03_JPRB,2.5360E+03_JPRB,2.6578E+03_JPRB/) 
497KAO( :, 6,16) = (/&
498 & 2.1706E+03_JPRB,2.4031E+03_JPRB,2.6185E+03_JPRB,2.8410E+03_JPRB,2.9858E+03_JPRB/) 
499KAO( :, 7,16) = (/&
500 & 2.3367E+03_JPRB,2.6044E+03_JPRB,2.8764E+03_JPRB,3.1365E+03_JPRB,3.3254E+03_JPRB/) 
501KAO( :, 8,16) = (/&
502 & 2.4353E+03_JPRB,2.7922E+03_JPRB,3.1601E+03_JPRB,3.4455E+03_JPRB,3.6918E+03_JPRB/) 
503KAO( :, 9,16) = (/&
504 & 2.5375E+03_JPRB,2.9571E+03_JPRB,3.4043E+03_JPRB,3.7567E+03_JPRB,4.0876E+03_JPRB/) 
505KAO( :,10,16) = (/&
506 & 2.6751E+03_JPRB,3.1240E+03_JPRB,3.6015E+03_JPRB,4.0631E+03_JPRB,4.4658E+03_JPRB/) 
507KAO( :,11,16) = (/&
508 & 3.0220E+03_JPRB,3.5297E+03_JPRB,4.0306E+03_JPRB,4.6185E+03_JPRB,5.0516E+03_JPRB/) 
509KAO( :,12,16) = (/&
510 & 3.3138E+03_JPRB,4.0094E+03_JPRB,4.5368E+03_JPRB,5.2030E+03_JPRB,5.7257E+03_JPRB/) 
511KAO( :,13,16) = (/&
512 & 3.6770E+03_JPRB,4.3534E+03_JPRB,5.0748E+03_JPRB,5.8067E+03_JPRB,6.4888E+03_JPRB/) 
513
514!     The array KBO contains absorption coefs at the 16 chosen g-values
515!     for a range of pressure levels < ~100mb and temperatures. The first
516!     index in the array, JT, which runs from 1 to 5, corresponds to
517!     different temperatures.  More specifically, JT = 3 means that the
518!     data are for the reference temperature TREF for this pressure
519!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
520!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. 
521!     The second index, JP, runs from 13 to 59 and refers to the JPth
522!     reference pressure level (see taumol.f for the value of these
523!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
524!     and tells us which g-interval the absorption coefficients are for.
525
526KBO( :,13, 1) = (/&
527 & 1.1165E-03_JPRB,1.1247E-03_JPRB,1.1560E-03_JPRB,1.2076E-03_JPRB,1.2869E-03_JPRB/) 
528KBO( :,14, 1) = (/&
529 & 9.1499E-04_JPRB,9.2417E-04_JPRB,9.5214E-04_JPRB,9.9793E-04_JPRB,1.0647E-03_JPRB/) 
530KBO( :,15, 1) = (/&
531 & 7.4895E-04_JPRB,7.5885E-04_JPRB,7.8398E-04_JPRB,8.2364E-04_JPRB,8.7934E-04_JPRB/) 
532KBO( :,16, 1) = (/&
533 & 6.1285E-04_JPRB,6.2301E-04_JPRB,6.4528E-04_JPRB,6.7919E-04_JPRB,7.2561E-04_JPRB/) 
534KBO( :,17, 1) = (/&
535 & 5.0161E-04_JPRB,5.1162E-04_JPRB,5.3088E-04_JPRB,5.5956E-04_JPRB,5.9827E-04_JPRB/) 
536KBO( :,18, 1) = (/&
537 & 4.1059E-04_JPRB,4.2007E-04_JPRB,4.3635E-04_JPRB,4.6069E-04_JPRB,4.9285E-04_JPRB/) 
538KBO( :,19, 1) = (/&
539 & 3.3641E-04_JPRB,3.4500E-04_JPRB,3.5879E-04_JPRB,3.7929E-04_JPRB,4.0616E-04_JPRB/) 
540KBO( :,20, 1) = (/&
541 & 2.7603E-04_JPRB,2.8363E-04_JPRB,2.9537E-04_JPRB,3.1276E-04_JPRB,3.3531E-04_JPRB/) 
542KBO( :,21, 1) = (/&
543 & 2.2659E-04_JPRB,2.3317E-04_JPRB,2.4324E-04_JPRB,2.5796E-04_JPRB,2.7695E-04_JPRB/) 
544KBO( :,22, 1) = (/&
545 & 1.8631E-04_JPRB,1.9217E-04_JPRB,2.0103E-04_JPRB,2.1374E-04_JPRB,2.2994E-04_JPRB/) 
546KBO( :,23, 1) = (/&
547 & 1.5327E-04_JPRB,1.5846E-04_JPRB,1.6631E-04_JPRB,1.7723E-04_JPRB,1.9096E-04_JPRB/) 
548KBO( :,24, 1) = (/&
549 & 1.2620E-04_JPRB,1.3080E-04_JPRB,1.3778E-04_JPRB,1.4714E-04_JPRB,1.5867E-04_JPRB/) 
550KBO( :,25, 1) = (/&
551 & 1.0400E-04_JPRB,1.0810E-04_JPRB,1.1426E-04_JPRB,1.2231E-04_JPRB,1.3192E-04_JPRB/) 
552KBO( :,26, 1) = (/&
553 & 8.5812E-05_JPRB,8.9507E-05_JPRB,9.4927E-05_JPRB,1.0190E-04_JPRB,1.0982E-04_JPRB/) 
554KBO( :,27, 1) = (/&
555 & 7.0859E-05_JPRB,7.4205E-05_JPRB,7.8939E-05_JPRB,8.4957E-05_JPRB,9.1449E-05_JPRB/) 
556KBO( :,28, 1) = (/&
557 & 5.8569E-05_JPRB,6.1594E-05_JPRB,6.5700E-05_JPRB,7.0820E-05_JPRB,7.6191E-05_JPRB/) 
558KBO( :,29, 1) = (/&
559 & 4.8465E-05_JPRB,5.1177E-05_JPRB,5.4745E-05_JPRB,5.9040E-05_JPRB,6.3532E-05_JPRB/) 
560KBO( :,30, 1) = (/&
561 & 4.0147E-05_JPRB,4.2553E-05_JPRB,4.5653E-05_JPRB,4.9207E-05_JPRB,5.2981E-05_JPRB/) 
562KBO( :,31, 1) = (/&
563 & 3.3300E-05_JPRB,3.5414E-05_JPRB,3.8102E-05_JPRB,4.1014E-05_JPRB,4.4195E-05_JPRB/) 
564KBO( :,32, 1) = (/&
565 & 2.7662E-05_JPRB,2.9504E-05_JPRB,3.1798E-05_JPRB,3.4208E-05_JPRB,3.6892E-05_JPRB/) 
566KBO( :,33, 1) = (/&
567 & 2.3000E-05_JPRB,2.4605E-05_JPRB,2.6531E-05_JPRB,2.8549E-05_JPRB,3.0814E-05_JPRB/) 
568KBO( :,34, 1) = (/&
569 & 1.9101E-05_JPRB,2.0488E-05_JPRB,2.2081E-05_JPRB,2.3773E-05_JPRB,2.5683E-05_JPRB/) 
570KBO( :,35, 1) = (/&
571 & 1.5772E-05_JPRB,1.6945E-05_JPRB,1.8248E-05_JPRB,1.9654E-05_JPRB,2.1248E-05_JPRB/) 
572KBO( :,36, 1) = (/&
573 & 1.2932E-05_JPRB,1.3897E-05_JPRB,1.4964E-05_JPRB,1.6118E-05_JPRB,1.7427E-05_JPRB/) 
574KBO( :,37, 1) = (/&
575 & 1.0500E-05_JPRB,1.1266E-05_JPRB,1.2140E-05_JPRB,1.3070E-05_JPRB,1.4122E-05_JPRB/) 
576KBO( :,38, 1) = (/&
577 & 8.5232E-06_JPRB,9.1293E-06_JPRB,9.8424E-06_JPRB,1.0593E-05_JPRB,1.1438E-05_JPRB/) 
578KBO( :,39, 1) = (/&
579 & 6.9199E-06_JPRB,7.4001E-06_JPRB,7.9793E-06_JPRB,8.5851E-06_JPRB,9.2651E-06_JPRB/) 
580KBO( :,40, 1) = (/&
581 & 5.5869E-06_JPRB,5.9579E-06_JPRB,6.4208E-06_JPRB,6.9067E-06_JPRB,7.4490E-06_JPRB/) 
582KBO( :,41, 1) = (/&
583 & 4.5102E-06_JPRB,4.7959E-06_JPRB,5.1598E-06_JPRB,5.5535E-06_JPRB,5.9845E-06_JPRB/) 
584KBO( :,42, 1) = (/&
585 & 3.6455E-06_JPRB,3.8634E-06_JPRB,4.1445E-06_JPRB,4.4666E-06_JPRB,4.8093E-06_JPRB/) 
586KBO( :,43, 1) = (/&
587 & 2.9434E-06_JPRB,3.1045E-06_JPRB,3.3181E-06_JPRB,3.5779E-06_JPRB,3.8500E-06_JPRB/) 
588KBO( :,44, 1) = (/&
589 & 2.3784E-06_JPRB,2.4940E-06_JPRB,2.6554E-06_JPRB,2.8596E-06_JPRB,3.0773E-06_JPRB/) 
590KBO( :,45, 1) = (/&
591 & 1.9254E-06_JPRB,2.0073E-06_JPRB,2.1280E-06_JPRB,2.2840E-06_JPRB,2.4615E-06_JPRB/) 
592KBO( :,46, 1) = (/&
593 & 1.5599E-06_JPRB,1.6176E-06_JPRB,1.7055E-06_JPRB,1.8226E-06_JPRB,1.9656E-06_JPRB/) 
594KBO( :,47, 1) = (/&
595 & 1.2647E-06_JPRB,1.3045E-06_JPRB,1.3657E-06_JPRB,1.4527E-06_JPRB,1.5636E-06_JPRB/) 
596KBO( :,48, 1) = (/&
597 & 1.0280E-06_JPRB,1.0546E-06_JPRB,1.0967E-06_JPRB,1.1602E-06_JPRB,1.2430E-06_JPRB/) 
598KBO( :,49, 1) = (/&
599 & 8.3899E-07_JPRB,8.5435E-07_JPRB,8.8348E-07_JPRB,9.2841E-07_JPRB,9.8990E-07_JPRB/) 
600KBO( :,50, 1) = (/&
601 & 6.8758E-07_JPRB,6.9417E-07_JPRB,7.1424E-07_JPRB,7.4551E-07_JPRB,7.9125E-07_JPRB/) 
602KBO( :,51, 1) = (/&
603 & 5.6525E-07_JPRB,5.6564E-07_JPRB,5.7879E-07_JPRB,6.0067E-07_JPRB,6.3406E-07_JPRB/) 
604KBO( :,52, 1) = (/&
605 & 4.6614E-07_JPRB,4.6262E-07_JPRB,4.6991E-07_JPRB,4.8521E-07_JPRB,5.0895E-07_JPRB/) 
606KBO( :,53, 1) = (/&
607 & 3.8583E-07_JPRB,3.7971E-07_JPRB,3.8237E-07_JPRB,3.9285E-07_JPRB,4.0940E-07_JPRB/) 
608KBO( :,54, 1) = (/&
609 & 3.1998E-07_JPRB,3.1249E-07_JPRB,3.1214E-07_JPRB,3.1896E-07_JPRB,3.3069E-07_JPRB/) 
610KBO( :,55, 1) = (/&
611 & 2.6585E-07_JPRB,2.5784E-07_JPRB,2.5568E-07_JPRB,2.5953E-07_JPRB,2.6785E-07_JPRB/) 
612KBO( :,56, 1) = (/&
613 & 2.2137E-07_JPRB,2.1341E-07_JPRB,2.1005E-07_JPRB,2.1159E-07_JPRB,2.1739E-07_JPRB/) 
614KBO( :,57, 1) = (/&
615 & 1.8477E-07_JPRB,1.7712E-07_JPRB,1.7304E-07_JPRB,1.7292E-07_JPRB,1.7676E-07_JPRB/) 
616KBO( :,58, 1) = (/&
617 & 1.5448E-07_JPRB,1.4728E-07_JPRB,1.4291E-07_JPRB,1.4181E-07_JPRB,1.4406E-07_JPRB/) 
618KBO( :,59, 1) = (/&
619 & 1.2795E-07_JPRB,1.2169E-07_JPRB,1.1777E-07_JPRB,1.1651E-07_JPRB,1.1802E-07_JPRB/) 
620KBO( :,13, 2) = (/&
621 & 2.9516E-03_JPRB,2.9713E-03_JPRB,3.0616E-03_JPRB,3.2019E-03_JPRB,3.4017E-03_JPRB/) 
622KBO( :,14, 2) = (/&
623 & 2.4197E-03_JPRB,2.4414E-03_JPRB,2.5207E-03_JPRB,2.6407E-03_JPRB,2.8167E-03_JPRB/) 
624KBO( :,15, 2) = (/&
625 & 1.9831E-03_JPRB,2.0063E-03_JPRB,2.0755E-03_JPRB,2.1800E-03_JPRB,2.3342E-03_JPRB/) 
626KBO( :,16, 2) = (/&
627 & 1.6252E-03_JPRB,1.6492E-03_JPRB,1.7097E-03_JPRB,1.8014E-03_JPRB,1.9341E-03_JPRB/) 
628KBO( :,17, 2) = (/&
629 & 1.3321E-03_JPRB,1.3556E-03_JPRB,1.4086E-03_JPRB,1.4882E-03_JPRB,1.6017E-03_JPRB/) 
630KBO( :,18, 2) = (/&
631 & 1.0920E-03_JPRB,1.1148E-03_JPRB,1.1610E-03_JPRB,1.2292E-03_JPRB,1.3248E-03_JPRB/) 
632KBO( :,19, 2) = (/&
633 & 8.9534E-04_JPRB,9.1690E-04_JPRB,9.5709E-04_JPRB,1.0148E-03_JPRB,1.0951E-03_JPRB/) 
634KBO( :,20, 2) = (/&
635 & 7.3445E-04_JPRB,7.5503E-04_JPRB,7.8958E-04_JPRB,8.3863E-04_JPRB,9.0600E-04_JPRB/) 
636KBO( :,21, 2) = (/&
637 & 6.0290E-04_JPRB,6.2180E-04_JPRB,6.5148E-04_JPRB,6.9308E-04_JPRB,7.4966E-04_JPRB/) 
638KBO( :,22, 2) = (/&
639 & 4.9595E-04_JPRB,5.1353E-04_JPRB,5.3937E-04_JPRB,5.7561E-04_JPRB,6.2348E-04_JPRB/) 
640KBO( :,23, 2) = (/&
641 & 4.0855E-04_JPRB,4.2434E-04_JPRB,4.4677E-04_JPRB,4.7846E-04_JPRB,5.1897E-04_JPRB/) 
642
643IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',1,ZHOOK_HANDLE)
644END SUBROUTINE PART2
645
646
647SUBROUTINE PART3
648
649REAL(KIND=JPRB) :: ZHOOK_HANDLE
650IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',0,ZHOOK_HANDLE)
651
652
653KBO( :,24, 2) = (/&
654 & 3.3704E-04_JPRB,3.5087E-04_JPRB,3.7041E-04_JPRB,3.9825E-04_JPRB,4.3254E-04_JPRB/) 
655KBO( :,25, 2) = (/&
656 & 2.7823E-04_JPRB,2.9034E-04_JPRB,3.0756E-04_JPRB,3.3176E-04_JPRB,3.6108E-04_JPRB/) 
657KBO( :,26, 2) = (/&
658 & 2.2988E-04_JPRB,2.4065E-04_JPRB,2.5599E-04_JPRB,2.7689E-04_JPRB,3.0218E-04_JPRB/) 
659KBO( :,27, 2) = (/&
660 & 1.9008E-04_JPRB,1.9966E-04_JPRB,2.1335E-04_JPRB,2.3118E-04_JPRB,2.5287E-04_JPRB/) 
661KBO( :,28, 2) = (/&
662 & 1.5729E-04_JPRB,1.6582E-04_JPRB,1.7804E-04_JPRB,1.9321E-04_JPRB,2.1158E-04_JPRB/) 
663KBO( :,29, 2) = (/&
664 & 1.3030E-04_JPRB,1.3794E-04_JPRB,1.4870E-04_JPRB,1.6172E-04_JPRB,1.7712E-04_JPRB/) 
665KBO( :,30, 2) = (/&
666 & 1.0807E-04_JPRB,1.1491E-04_JPRB,1.2423E-04_JPRB,1.3552E-04_JPRB,1.4830E-04_JPRB/) 
667KBO( :,31, 2) = (/&
668 & 8.9737E-05_JPRB,9.5873E-05_JPRB,1.0385E-04_JPRB,1.1357E-04_JPRB,1.2422E-04_JPRB/) 
669KBO( :,32, 2) = (/&
670 & 7.4607E-05_JPRB,8.0114E-05_JPRB,8.6925E-05_JPRB,9.5160E-05_JPRB,1.0409E-04_JPRB/) 
671KBO( :,33, 2) = (/&
672 & 6.2115E-05_JPRB,6.6976E-05_JPRB,7.2842E-05_JPRB,7.9749E-05_JPRB,8.7261E-05_JPRB/) 
673KBO( :,34, 2) = (/&
674 & 5.1667E-05_JPRB,5.5854E-05_JPRB,6.0911E-05_JPRB,6.6641E-05_JPRB,7.2945E-05_JPRB/) 
675KBO( :,35, 2) = (/&
676 & 4.2714E-05_JPRB,4.6224E-05_JPRB,5.0476E-05_JPRB,5.5207E-05_JPRB,6.0446E-05_JPRB/) 
677KBO( :,36, 2) = (/&
678 & 3.5033E-05_JPRB,3.7916E-05_JPRB,4.1413E-05_JPRB,4.5290E-05_JPRB,4.9590E-05_JPRB/) 
679KBO( :,37, 2) = (/&
680 & 2.8417E-05_JPRB,3.0724E-05_JPRB,3.3511E-05_JPRB,3.6656E-05_JPRB,4.0123E-05_JPRB/) 
681KBO( :,38, 2) = (/&
682 & 2.3044E-05_JPRB,2.4879E-05_JPRB,2.7091E-05_JPRB,2.9646E-05_JPRB,3.2440E-05_JPRB/) 
683KBO( :,39, 2) = (/&
684 & 1.8696E-05_JPRB,2.0150E-05_JPRB,2.1905E-05_JPRB,2.3977E-05_JPRB,2.6231E-05_JPRB/) 
685KBO( :,40, 2) = (/&
686 & 1.5079E-05_JPRB,1.6190E-05_JPRB,1.7561E-05_JPRB,1.9219E-05_JPRB,2.1019E-05_JPRB/) 
687KBO( :,41, 2) = (/&
688 & 1.2166E-05_JPRB,1.2998E-05_JPRB,1.4076E-05_JPRB,1.5387E-05_JPRB,1.6826E-05_JPRB/) 
689KBO( :,42, 2) = (/&
690 & 9.8245E-06_JPRB,1.0447E-05_JPRB,1.1292E-05_JPRB,1.2314E-05_JPRB,1.3470E-05_JPRB/) 
691KBO( :,43, 2) = (/&
692 & 7.9207E-06_JPRB,8.3766E-06_JPRB,9.0212E-06_JPRB,9.8015E-06_JPRB,1.0730E-05_JPRB/) 
693KBO( :,44, 2) = (/&
694 & 6.3891E-06_JPRB,6.7204E-06_JPRB,7.1950E-06_JPRB,7.7968E-06_JPRB,8.5295E-06_JPRB/) 
695KBO( :,45, 2) = (/&
696 & 5.1614E-06_JPRB,5.4018E-06_JPRB,5.7463E-06_JPRB,6.2126E-06_JPRB,6.7779E-06_JPRB/) 
697KBO( :,46, 2) = (/&
698 & 4.1735E-06_JPRB,4.3451E-06_JPRB,4.5931E-06_JPRB,4.9450E-06_JPRB,5.3724E-06_JPRB/) 
699KBO( :,47, 2) = (/&
700 & 3.3750E-06_JPRB,3.4959E-06_JPRB,3.6722E-06_JPRB,3.9247E-06_JPRB,4.2513E-06_JPRB/) 
701KBO( :,48, 2) = (/&
702 & 2.7418E-06_JPRB,2.8192E-06_JPRB,2.9434E-06_JPRB,3.1225E-06_JPRB,3.3711E-06_JPRB/) 
703KBO( :,49, 2) = (/&
704 & 2.2371E-06_JPRB,2.2775E-06_JPRB,2.3656E-06_JPRB,2.4925E-06_JPRB,2.6750E-06_JPRB/) 
705KBO( :,50, 2) = (/&
706 & 1.8317E-06_JPRB,1.8465E-06_JPRB,1.9073E-06_JPRB,1.9984E-06_JPRB,2.1290E-06_JPRB/) 
707KBO( :,51, 2) = (/&
708 & 1.5036E-06_JPRB,1.5039E-06_JPRB,1.5416E-06_JPRB,1.6065E-06_JPRB,1.7002E-06_JPRB/) 
709KBO( :,52, 2) = (/&
710 & 1.2365E-06_JPRB,1.2289E-06_JPRB,1.2476E-06_JPRB,1.2944E-06_JPRB,1.3617E-06_JPRB/) 
711KBO( :,53, 2) = (/&
712 & 1.0180E-06_JPRB,1.0070E-06_JPRB,1.0130E-06_JPRB,1.0447E-06_JPRB,1.0931E-06_JPRB/) 
713KBO( :,54, 2) = (/&
714 & 8.3881E-07_JPRB,8.2694E-07_JPRB,8.2607E-07_JPRB,8.4574E-07_JPRB,8.8059E-07_JPRB/) 
715KBO( :,55, 2) = (/&
716 & 6.9195E-07_JPRB,6.7987E-07_JPRB,6.7548E-07_JPRB,6.8562E-07_JPRB,7.1114E-07_JPRB/) 
717KBO( :,56, 2) = (/&
718 & 5.7173E-07_JPRB,5.5948E-07_JPRB,5.5356E-07_JPRB,5.5733E-07_JPRB,5.7508E-07_JPRB/) 
719KBO( :,57, 2) = (/&
720 & 4.7316E-07_JPRB,4.6096E-07_JPRB,4.5452E-07_JPRB,4.5448E-07_JPRB,4.6581E-07_JPRB/) 
721KBO( :,58, 2) = (/&
722 & 3.9189E-07_JPRB,3.8013E-07_JPRB,3.7366E-07_JPRB,3.7160E-07_JPRB,3.7785E-07_JPRB/) 
723KBO( :,59, 2) = (/&
724 & 3.2262E-07_JPRB,3.1241E-07_JPRB,3.0663E-07_JPRB,3.0438E-07_JPRB,3.0850E-07_JPRB/) 
725KBO( :,13, 3) = (/&
726 & 7.5527E-03_JPRB,7.7875E-03_JPRB,8.1613E-03_JPRB,8.7500E-03_JPRB,9.4693E-03_JPRB/) 
727KBO( :,14, 3) = (/&
728 & 6.2162E-03_JPRB,6.4179E-03_JPRB,6.7443E-03_JPRB,7.2436E-03_JPRB,7.8488E-03_JPRB/) 
729KBO( :,15, 3) = (/&
730 & 5.1154E-03_JPRB,5.2899E-03_JPRB,5.5758E-03_JPRB,5.9977E-03_JPRB,6.5097E-03_JPRB/) 
731KBO( :,16, 3) = (/&
732 & 4.2091E-03_JPRB,4.3598E-03_JPRB,4.6108E-03_JPRB,4.9662E-03_JPRB,5.4041E-03_JPRB/) 
733KBO( :,17, 3) = (/&
734 & 3.4624E-03_JPRB,3.5931E-03_JPRB,3.8125E-03_JPRB,4.1118E-03_JPRB,4.4867E-03_JPRB/) 
735KBO( :,18, 3) = (/&
736 & 2.8478E-03_JPRB,2.9611E-03_JPRB,3.1513E-03_JPRB,3.4056E-03_JPRB,3.7227E-03_JPRB/) 
737KBO( :,19, 3) = (/&
738 & 2.3424E-03_JPRB,2.4403E-03_JPRB,2.6050E-03_JPRB,2.8205E-03_JPRB,3.0875E-03_JPRB/) 
739KBO( :,20, 3) = (/&
740 & 1.9279E-03_JPRB,2.0136E-03_JPRB,2.1568E-03_JPRB,2.3394E-03_JPRB,2.5633E-03_JPRB/) 
741KBO( :,21, 3) = (/&
742 & 1.5868E-03_JPRB,1.6625E-03_JPRB,1.7866E-03_JPRB,1.9403E-03_JPRB,2.1279E-03_JPRB/) 
743KBO( :,22, 3) = (/&
744 & 1.3095E-03_JPRB,1.3798E-03_JPRB,1.4873E-03_JPRB,1.6185E-03_JPRB,1.7762E-03_JPRB/) 
745KBO( :,23, 3) = (/&
746 & 1.0820E-03_JPRB,1.1470E-03_JPRB,1.2388E-03_JPRB,1.3506E-03_JPRB,1.4828E-03_JPRB/) 
747KBO( :,24, 3) = (/&
748 & 8.9533E-04_JPRB,9.5480E-04_JPRB,1.0325E-03_JPRB,1.1273E-03_JPRB,1.2391E-03_JPRB/) 
749KBO( :,25, 3) = (/&
750 & 7.4229E-04_JPRB,7.9534E-04_JPRB,8.6151E-04_JPRB,9.4186E-04_JPRB,1.0361E-03_JPRB/) 
751KBO( :,26, 3) = (/&
752 & 6.1705E-04_JPRB,6.6349E-04_JPRB,7.2018E-04_JPRB,7.8870E-04_JPRB,8.6741E-04_JPRB/) 
753KBO( :,27, 3) = (/&
754 & 5.1373E-04_JPRB,5.5377E-04_JPRB,6.0259E-04_JPRB,6.6085E-04_JPRB,7.2640E-04_JPRB/) 
755KBO( :,28, 3) = (/&
756 & 4.2826E-04_JPRB,4.6245E-04_JPRB,5.0434E-04_JPRB,5.5405E-04_JPRB,6.0850E-04_JPRB/) 
757KBO( :,29, 3) = (/&
758 & 3.5730E-04_JPRB,3.8667E-04_JPRB,4.2255E-04_JPRB,4.6475E-04_JPRB,5.1008E-04_JPRB/) 
759KBO( :,30, 3) = (/&
760 & 2.9823E-04_JPRB,3.2356E-04_JPRB,3.5427E-04_JPRB,3.8963E-04_JPRB,4.2762E-04_JPRB/) 
761KBO( :,31, 3) = (/&
762 & 2.4915E-04_JPRB,2.7111E-04_JPRB,2.9730E-04_JPRB,3.2676E-04_JPRB,3.5853E-04_JPRB/) 
763KBO( :,32, 3) = (/&
764 & 2.0835E-04_JPRB,2.2726E-04_JPRB,2.4969E-04_JPRB,2.7415E-04_JPRB,3.0052E-04_JPRB/) 
765KBO( :,33, 3) = (/&
766 & 1.7440E-04_JPRB,1.9063E-04_JPRB,2.0966E-04_JPRB,2.3004E-04_JPRB,2.5180E-04_JPRB/) 
767KBO( :,34, 3) = (/&
768 & 1.4566E-04_JPRB,1.5949E-04_JPRB,1.7537E-04_JPRB,1.9242E-04_JPRB,2.1028E-04_JPRB/) 
769KBO( :,35, 3) = (/&
770 & 1.2069E-04_JPRB,1.3227E-04_JPRB,1.4538E-04_JPRB,1.5949E-04_JPRB,1.7412E-04_JPRB/) 
771KBO( :,36, 3) = (/&
772 & 9.9043E-05_JPRB,1.0856E-04_JPRB,1.1931E-04_JPRB,1.3088E-04_JPRB,1.4285E-04_JPRB/) 
773KBO( :,37, 3) = (/&
774 & 8.0192E-05_JPRB,8.7828E-05_JPRB,9.6552E-05_JPRB,1.0592E-04_JPRB,1.1571E-04_JPRB/) 
775KBO( :,38, 3) = (/&
776 & 6.4895E-05_JPRB,7.1006E-05_JPRB,7.8078E-05_JPRB,8.5641E-05_JPRB,9.3649E-05_JPRB/) 
777KBO( :,39, 3) = (/&
778 & 5.2529E-05_JPRB,5.7417E-05_JPRB,6.3137E-05_JPRB,6.9248E-05_JPRB,7.5786E-05_JPRB/) 
779KBO( :,40, 3) = (/&
780 & 4.2172E-05_JPRB,4.6011E-05_JPRB,5.0550E-05_JPRB,5.5469E-05_JPRB,6.0782E-05_JPRB/) 
781KBO( :,41, 3) = (/&
782 & 3.3845E-05_JPRB,3.6843E-05_JPRB,4.0405E-05_JPRB,4.4378E-05_JPRB,4.8669E-05_JPRB/) 
783KBO( :,42, 3) = (/&
784 & 2.7178E-05_JPRB,2.9499E-05_JPRB,3.2305E-05_JPRB,3.5507E-05_JPRB,3.8948E-05_JPRB/) 
785KBO( :,43, 3) = (/&
786 & 2.1748E-05_JPRB,2.3526E-05_JPRB,2.5707E-05_JPRB,2.8262E-05_JPRB,3.0999E-05_JPRB/) 
787KBO( :,44, 3) = (/&
788 & 1.7386E-05_JPRB,1.8745E-05_JPRB,2.0430E-05_JPRB,2.2420E-05_JPRB,2.4615E-05_JPRB/) 
789KBO( :,45, 3) = (/&
790 & 1.3919E-05_JPRB,1.4955E-05_JPRB,1.6239E-05_JPRB,1.7786E-05_JPRB,1.9548E-05_JPRB/) 
791KBO( :,46, 3) = (/&
792 & 1.1164E-05_JPRB,1.1925E-05_JPRB,1.2898E-05_JPRB,1.4092E-05_JPRB,1.5493E-05_JPRB/) 
793KBO( :,47, 3) = (/&
794 & 8.9724E-06_JPRB,9.4906E-06_JPRB,1.0225E-05_JPRB,1.1136E-05_JPRB,1.2214E-05_JPRB/) 
795KBO( :,48, 3) = (/&
796 & 7.2294E-06_JPRB,7.5737E-06_JPRB,8.1199E-06_JPRB,8.8033E-06_JPRB,9.6335E-06_JPRB/) 
797KBO( :,49, 3) = (/&
798 & 5.8381E-06_JPRB,6.0726E-06_JPRB,6.4582E-06_JPRB,6.9718E-06_JPRB,7.6076E-06_JPRB/) 
799KBO( :,50, 3) = (/&
800 & 4.7296E-06_JPRB,4.8930E-06_JPRB,5.1532E-06_JPRB,5.5428E-06_JPRB,6.0261E-06_JPRB/) 
801KBO( :,51, 3) = (/&
802 & 3.8399E-06_JPRB,3.9514E-06_JPRB,4.1284E-06_JPRB,4.4168E-06_JPRB,4.7822E-06_JPRB/) 
803KBO( :,52, 3) = (/&
804 & 3.1245E-06_JPRB,3.1973E-06_JPRB,3.3211E-06_JPRB,3.5239E-06_JPRB,3.8012E-06_JPRB/) 
805KBO( :,53, 3) = (/&
806 & 2.5471E-06_JPRB,2.5925E-06_JPRB,2.6785E-06_JPRB,2.8158E-06_JPRB,3.0258E-06_JPRB/) 
807KBO( :,54, 3) = (/&
808 & 2.0814E-06_JPRB,2.1073E-06_JPRB,2.1664E-06_JPRB,2.2617E-06_JPRB,2.4173E-06_JPRB/) 
809KBO( :,55, 3) = (/&
810 & 1.7028E-06_JPRB,1.7165E-06_JPRB,1.7558E-06_JPRB,1.8239E-06_JPRB,1.9350E-06_JPRB/) 
811KBO( :,56, 3) = (/&
812 & 1.3936E-06_JPRB,1.4001E-06_JPRB,1.4255E-06_JPRB,1.4737E-06_JPRB,1.5508E-06_JPRB/) 
813KBO( :,57, 3) = (/&
814 & 1.1409E-06_JPRB,1.1442E-06_JPRB,1.1589E-06_JPRB,1.1924E-06_JPRB,1.2461E-06_JPRB/) 
815KBO( :,58, 3) = (/&
816 & 9.3532E-07_JPRB,9.3617E-07_JPRB,9.4415E-07_JPRB,9.6677E-07_JPRB,1.0053E-06_JPRB/) 
817KBO( :,59, 3) = (/&
818 & 7.6716E-07_JPRB,7.6655E-07_JPRB,7.7193E-07_JPRB,7.8900E-07_JPRB,8.1899E-07_JPRB/) 
819KBO( :,13, 4) = (/&
820 & 2.0095E-02_JPRB,2.1182E-02_JPRB,2.2225E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/) 
821KBO( :,14, 4) = (/&
822 & 1.6601E-02_JPRB,1.7480E-02_JPRB,1.8338E-02_JPRB,1.9231E-02_JPRB,2.0128E-02_JPRB/) 
823KBO( :,15, 4) = (/&
824 & 1.3711E-02_JPRB,1.4425E-02_JPRB,1.5134E-02_JPRB,1.5868E-02_JPRB,1.6611E-02_JPRB/) 
825KBO( :,16, 4) = (/&
826 & 1.1319E-02_JPRB,1.1903E-02_JPRB,1.2490E-02_JPRB,1.3094E-02_JPRB,1.3700E-02_JPRB/) 
827KBO( :,17, 4) = (/&
828 & 9.3377E-03_JPRB,9.8166E-03_JPRB,1.0301E-02_JPRB,1.0797E-02_JPRB,1.1296E-02_JPRB/) 
829KBO( :,18, 4) = (/&
830 & 7.6994E-03_JPRB,8.0931E-03_JPRB,8.4951E-03_JPRB,8.8986E-03_JPRB,9.3140E-03_JPRB/) 
831KBO( :,19, 4) = (/&
832 & 6.3454E-03_JPRB,6.6690E-03_JPRB,7.0019E-03_JPRB,7.3313E-03_JPRB,7.6829E-03_JPRB/) 
833KBO( :,20, 4) = (/&
834 & 5.2328E-03_JPRB,5.5001E-03_JPRB,5.7724E-03_JPRB,6.0469E-03_JPRB,6.3413E-03_JPRB/) 
835KBO( :,21, 4) = (/&
836 & 4.3150E-03_JPRB,4.5344E-03_JPRB,4.7593E-03_JPRB,4.9881E-03_JPRB,5.2336E-03_JPRB/) 
837KBO( :,22, 4) = (/&
838 & 3.5703E-03_JPRB,3.7499E-03_JPRB,3.9366E-03_JPRB,4.1268E-03_JPRB,4.3318E-03_JPRB/) 
839KBO( :,23, 4) = (/&
840 & 2.9547E-03_JPRB,3.1024E-03_JPRB,3.2576E-03_JPRB,3.4140E-03_JPRB,3.5849E-03_JPRB/) 
841KBO( :,24, 4) = (/&
842 & 2.4452E-03_JPRB,2.5697E-03_JPRB,2.6961E-03_JPRB,2.8259E-03_JPRB,2.9642E-03_JPRB/) 
843KBO( :,25, 4) = (/&
844 & 2.0245E-03_JPRB,2.1288E-03_JPRB,2.2320E-03_JPRB,2.3397E-03_JPRB,2.4511E-03_JPRB/) 
845KBO( :,26, 4) = (/&
846 & 1.6785E-03_JPRB,1.7643E-03_JPRB,1.8488E-03_JPRB,1.9387E-03_JPRB,2.0283E-03_JPRB/) 
847KBO( :,27, 4) = (/&
848 & 1.3920E-03_JPRB,1.4619E-03_JPRB,1.5313E-03_JPRB,1.6067E-03_JPRB,1.6789E-03_JPRB/) 
849KBO( :,28, 4) = (/&
850 & 1.1548E-03_JPRB,1.2112E-03_JPRB,1.2686E-03_JPRB,1.3305E-03_JPRB,1.3899E-03_JPRB/) 
851KBO( :,29, 4) = (/&
852 & 9.5779E-04_JPRB,1.0036E-03_JPRB,1.0515E-03_JPRB,1.1016E-03_JPRB,1.1501E-03_JPRB/) 
853KBO( :,30, 4) = (/&
854 & 7.9398E-04_JPRB,8.3159E-04_JPRB,8.7176E-04_JPRB,9.1222E-04_JPRB,9.5119E-04_JPRB/) 
855KBO( :,31, 4) = (/&
856 & 6.5813E-04_JPRB,6.8913E-04_JPRB,7.2305E-04_JPRB,7.5559E-04_JPRB,7.8680E-04_JPRB/) 
857KBO( :,32, 4) = (/&
858 & 5.4557E-04_JPRB,5.7133E-04_JPRB,5.9920E-04_JPRB,6.2591E-04_JPRB,6.5094E-04_JPRB/) 
859KBO( :,33, 4) = (/&
860 & 4.5225E-04_JPRB,4.7384E-04_JPRB,4.9635E-04_JPRB,5.1810E-04_JPRB,5.3850E-04_JPRB/) 
861KBO( :,34, 4) = (/&
862 & 3.7429E-04_JPRB,3.9240E-04_JPRB,4.1057E-04_JPRB,4.2811E-04_JPRB,4.4483E-04_JPRB/) 
863KBO( :,35, 4) = (/&
864 & 3.0841E-04_JPRB,3.2350E-04_JPRB,3.3821E-04_JPRB,3.5240E-04_JPRB,3.6608E-04_JPRB/) 
865KBO( :,36, 4) = (/&
866 & 2.5285E-04_JPRB,2.6525E-04_JPRB,2.7729E-04_JPRB,2.8885E-04_JPRB,3.0006E-04_JPRB/) 
867KBO( :,37, 4) = (/&
868 & 2.0586E-04_JPRB,2.1585E-04_JPRB,2.2582E-04_JPRB,2.3540E-04_JPRB,2.4457E-04_JPRB/) 
869KBO( :,38, 4) = (/&
870 & 1.6753E-04_JPRB,1.7559E-04_JPRB,1.8384E-04_JPRB,1.9177E-04_JPRB,1.9927E-04_JPRB/) 
871KBO( :,39, 4) = (/&
872 & 1.3635E-04_JPRB,1.4286E-04_JPRB,1.4968E-04_JPRB,1.5622E-04_JPRB,1.6235E-04_JPRB/) 
873KBO( :,40, 4) = (/&
874 & 1.1045E-04_JPRB,1.1567E-04_JPRB,1.2132E-04_JPRB,1.2672E-04_JPRB,1.3176E-04_JPRB/) 
875KBO( :,41, 4) = (/&
876 & 8.9410E-05_JPRB,9.3610E-05_JPRB,9.8241E-05_JPRB,1.0266E-04_JPRB,1.0686E-04_JPRB/) 
877KBO( :,42, 4) = (/&
878 & 7.2378E-05_JPRB,7.5781E-05_JPRB,7.9465E-05_JPRB,8.3145E-05_JPRB,8.6672E-05_JPRB/) 
879KBO( :,43, 4) = (/&
880 & 5.8424E-05_JPRB,6.1188E-05_JPRB,6.4107E-05_JPRB,6.7188E-05_JPRB,7.0140E-05_JPRB/) 
881KBO( :,44, 4) = (/&
882 & 4.7058E-05_JPRB,4.9346E-05_JPRB,5.1671E-05_JPRB,5.4230E-05_JPRB,5.6657E-05_JPRB/) 
883KBO( :,45, 4) = (/&
884 & 3.7899E-05_JPRB,3.9798E-05_JPRB,4.1669E-05_JPRB,4.3706E-05_JPRB,4.5724E-05_JPRB/) 
885KBO( :,46, 4) = (/&
886 & 3.0497E-05_JPRB,3.2055E-05_JPRB,3.3572E-05_JPRB,3.5176E-05_JPRB,3.6873E-05_JPRB/) 
887KBO( :,47, 4) = (/&
888 & 2.4479E-05_JPRB,2.5732E-05_JPRB,2.6995E-05_JPRB,2.8267E-05_JPRB,2.9671E-05_JPRB/) 
889KBO( :,48, 4) = (/&
890 & 1.9635E-05_JPRB,2.0659E-05_JPRB,2.1706E-05_JPRB,2.2729E-05_JPRB,2.3830E-05_JPRB/) 
891KBO( :,49, 4) = (/&
892 & 1.5750E-05_JPRB,1.6588E-05_JPRB,1.7438E-05_JPRB,1.8276E-05_JPRB,1.9144E-05_JPRB/) 
893KBO( :,50, 4) = (/&
894 & 1.2638E-05_JPRB,1.3327E-05_JPRB,1.4014E-05_JPRB,1.4713E-05_JPRB,1.5408E-05_JPRB/) 
895KBO( :,51, 4) = (/&
896 & 1.0134E-05_JPRB,1.0710E-05_JPRB,1.1273E-05_JPRB,1.1849E-05_JPRB,1.2410E-05_JPRB/) 
897KBO( :,52, 4) = (/&
898 & 8.1350E-06_JPRB,8.6070E-06_JPRB,9.0666E-06_JPRB,9.5314E-06_JPRB,9.9961E-06_JPRB/) 
899KBO( :,53, 4) = (/&
900 & 6.5268E-06_JPRB,6.9077E-06_JPRB,7.2874E-06_JPRB,7.6647E-06_JPRB,8.0514E-06_JPRB/) 
901KBO( :,54, 4) = (/&
902 & 5.2400E-06_JPRB,5.5504E-06_JPRB,5.8662E-06_JPRB,6.1754E-06_JPRB,6.4922E-06_JPRB/) 
903KBO( :,55, 4) = (/&
904 & 4.2244E-06_JPRB,4.4665E-06_JPRB,4.7250E-06_JPRB,4.9775E-06_JPRB,5.2331E-06_JPRB/) 
905KBO( :,56, 4) = (/&
906 & 3.4163E-06_JPRB,3.5930E-06_JPRB,3.8023E-06_JPRB,4.0104E-06_JPRB,4.2175E-06_JPRB/) 
907KBO( :,57, 4) = (/&
908 & 2.7693E-06_JPRB,2.8867E-06_JPRB,3.0575E-06_JPRB,3.2307E-06_JPRB,3.4003E-06_JPRB/) 
909KBO( :,58, 4) = (/&
910 & 2.2500E-06_JPRB,2.3279E-06_JPRB,2.4627E-06_JPRB,2.6048E-06_JPRB,2.7433E-06_JPRB/) 
911KBO( :,59, 4) = (/&
912 & 1.8386E-06_JPRB,1.8966E-06_JPRB,2.0040E-06_JPRB,2.1199E-06_JPRB,2.2332E-06_JPRB/) 
913KBO( :,13, 5) = (/&
914 & 3.7227E-02_JPRB,3.9236E-02_JPRB,4.1136E-02_JPRB,4.2635E-02_JPRB,4.4125E-02_JPRB/) 
915KBO( :,14, 5) = (/&
916 & 3.0731E-02_JPRB,3.2386E-02_JPRB,3.3908E-02_JPRB,3.5126E-02_JPRB,3.6383E-02_JPRB/) 
917KBO( :,15, 5) = (/&
918 & 2.5378E-02_JPRB,2.6727E-02_JPRB,2.7941E-02_JPRB,2.8947E-02_JPRB,3.0002E-02_JPRB/) 
919KBO( :,16, 5) = (/&
920 & 2.0959E-02_JPRB,2.2046E-02_JPRB,2.3014E-02_JPRB,2.3851E-02_JPRB,2.4734E-02_JPRB/) 
921KBO( :,17, 5) = (/&
922 & 1.7294E-02_JPRB,1.8176E-02_JPRB,1.8952E-02_JPRB,1.9643E-02_JPRB,2.0380E-02_JPRB/) 
923KBO( :,18, 5) = (/&
924 & 1.4261E-02_JPRB,1.4983E-02_JPRB,1.5597E-02_JPRB,1.6174E-02_JPRB,1.6784E-02_JPRB/) 
925KBO( :,19, 5) = (/&
926 & 1.1754E-02_JPRB,1.2342E-02_JPRB,1.2837E-02_JPRB,1.3312E-02_JPRB,1.3820E-02_JPRB/) 
927KBO( :,20, 5) = (/&
928 & 9.6940E-03_JPRB,1.0172E-02_JPRB,1.0569E-02_JPRB,1.0962E-02_JPRB,1.1389E-02_JPRB/) 
929KBO( :,21, 5) = (/&
930 & 7.9935E-03_JPRB,8.3804E-03_JPRB,8.7019E-03_JPRB,9.0256E-03_JPRB,9.3917E-03_JPRB/) 
931KBO( :,22, 5) = (/&
932 & 6.6098E-03_JPRB,6.9213E-03_JPRB,7.1802E-03_JPRB,7.4552E-03_JPRB,7.7626E-03_JPRB/) 
933KBO( :,23, 5) = (/&
934 & 5.4675E-03_JPRB,5.7122E-03_JPRB,5.9276E-03_JPRB,6.1590E-03_JPRB,6.4177E-03_JPRB/) 
935KBO( :,24, 5) = (/&
936 & 4.5248E-03_JPRB,4.7145E-03_JPRB,4.8956E-03_JPRB,5.0905E-03_JPRB,5.3103E-03_JPRB/) 
937KBO( :,25, 5) = (/&
938 & 3.7436E-03_JPRB,3.8938E-03_JPRB,4.0451E-03_JPRB,4.2083E-03_JPRB,4.3977E-03_JPRB/) 
939KBO( :,26, 5) = (/&
940 & 3.0980E-03_JPRB,3.2193E-03_JPRB,3.3446E-03_JPRB,3.4820E-03_JPRB,3.6461E-03_JPRB/) 
941KBO( :,27, 5) = (/&
942 & 2.5629E-03_JPRB,2.6621E-03_JPRB,2.7660E-03_JPRB,2.8810E-03_JPRB,3.0242E-03_JPRB/) 
943
944IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',1,ZHOOK_HANDLE)
945END SUBROUTINE PART3
946
947
948SUBROUTINE PART4
949
950REAL(KIND=JPRB) :: ZHOOK_HANDLE
951IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',0,ZHOOK_HANDLE)
952
953
954KBO( :,28, 5) = (/&
955 & 2.1185E-03_JPRB,2.2012E-03_JPRB,2.2881E-03_JPRB,2.3854E-03_JPRB,2.5100E-03_JPRB/) 
956KBO( :,29, 5) = (/&
957 & 1.7520E-03_JPRB,1.8201E-03_JPRB,1.8933E-03_JPRB,1.9774E-03_JPRB,2.0861E-03_JPRB/) 
958KBO( :,30, 5) = (/&
959 & 1.4490E-03_JPRB,1.5053E-03_JPRB,1.5668E-03_JPRB,1.6405E-03_JPRB,1.7353E-03_JPRB/) 
960KBO( :,31, 5) = (/&
961 & 1.1987E-03_JPRB,1.2454E-03_JPRB,1.2970E-03_JPRB,1.3620E-03_JPRB,1.4446E-03_JPRB/) 
962KBO( :,32, 5) = (/&
963 & 9.9162E-04_JPRB,1.0307E-03_JPRB,1.0749E-03_JPRB,1.1317E-03_JPRB,1.2036E-03_JPRB/) 
964KBO( :,33, 5) = (/&
965 & 8.2024E-04_JPRB,8.5336E-04_JPRB,8.9176E-04_JPRB,9.4137E-04_JPRB,1.0034E-03_JPRB/) 
966KBO( :,34, 5) = (/&
967 & 6.7773E-04_JPRB,7.0554E-04_JPRB,7.3898E-04_JPRB,7.8201E-04_JPRB,8.3490E-04_JPRB/) 
968KBO( :,35, 5) = (/&
969 & 5.5797E-04_JPRB,5.8103E-04_JPRB,6.0950E-04_JPRB,6.4595E-04_JPRB,6.9024E-04_JPRB/) 
970KBO( :,36, 5) = (/&
971 & 4.5741E-04_JPRB,4.7636E-04_JPRB,4.9987E-04_JPRB,5.2994E-04_JPRB,5.6634E-04_JPRB/) 
972KBO( :,37, 5) = (/&
973 & 3.7275E-04_JPRB,3.8812E-04_JPRB,4.0671E-04_JPRB,4.3063E-04_JPRB,4.5983E-04_JPRB/) 
974KBO( :,38, 5) = (/&
975 & 3.0368E-04_JPRB,3.1612E-04_JPRB,3.3079E-04_JPRB,3.4977E-04_JPRB,3.7316E-04_JPRB/) 
976KBO( :,39, 5) = (/&
977 & 2.4743E-04_JPRB,2.5746E-04_JPRB,2.6909E-04_JPRB,2.8414E-04_JPRB,3.0287E-04_JPRB/) 
978KBO( :,40, 5) = (/&
979 & 2.0083E-04_JPRB,2.0881E-04_JPRB,2.1786E-04_JPRB,2.2950E-04_JPRB,2.4422E-04_JPRB/) 
980KBO( :,41, 5) = (/&
981 & 1.6290E-04_JPRB,1.6930E-04_JPRB,1.7640E-04_JPRB,1.8539E-04_JPRB,1.9681E-04_JPRB/) 
982KBO( :,42, 5) = (/&
983 & 1.3212E-04_JPRB,1.3729E-04_JPRB,1.4297E-04_JPRB,1.4983E-04_JPRB,1.5865E-04_JPRB/) 
984KBO( :,43, 5) = (/&
985 & 1.0692E-04_JPRB,1.1111E-04_JPRB,1.1561E-04_JPRB,1.2081E-04_JPRB,1.2752E-04_JPRB/) 
986KBO( :,44, 5) = (/&
987 & 8.6484E-05_JPRB,8.9851E-05_JPRB,9.3401E-05_JPRB,9.7384E-05_JPRB,1.0246E-04_JPRB/) 
988KBO( :,45, 5) = (/&
989 & 6.9902E-05_JPRB,7.2641E-05_JPRB,7.5491E-05_JPRB,7.8632E-05_JPRB,8.2438E-05_JPRB/) 
990KBO( :,46, 5) = (/&
991 & 5.6357E-05_JPRB,5.8678E-05_JPRB,6.0987E-05_JPRB,6.3456E-05_JPRB,6.6309E-05_JPRB/) 
992KBO( :,47, 5) = (/&
993 & 4.5246E-05_JPRB,4.7351E-05_JPRB,4.9188E-05_JPRB,5.1132E-05_JPRB,5.3302E-05_JPRB/) 
994KBO( :,48, 5) = (/&
995 & 3.6331E-05_JPRB,3.8149E-05_JPRB,3.9667E-05_JPRB,4.1226E-05_JPRB,4.2932E-05_JPRB/) 
996KBO( :,49, 5) = (/&
997 & 2.9150E-05_JPRB,3.0662E-05_JPRB,3.1997E-05_JPRB,3.3254E-05_JPRB,3.4583E-05_JPRB/) 
998KBO( :,50, 5) = (/&
999 & 2.3393E-05_JPRB,2.4645E-05_JPRB,2.5835E-05_JPRB,2.6842E-05_JPRB,2.7903E-05_JPRB/) 
1000KBO( :,51, 5) = (/&
1001 & 1.8850E-05_JPRB,1.9822E-05_JPRB,2.0830E-05_JPRB,2.1675E-05_JPRB,2.2533E-05_JPRB/) 
1002KBO( :,52, 5) = (/&
1003 & 1.5259E-05_JPRB,1.5932E-05_JPRB,1.6760E-05_JPRB,1.7514E-05_JPRB,1.8199E-05_JPRB/) 
1004KBO( :,53, 5) = (/&
1005 & 1.2418E-05_JPRB,1.2796E-05_JPRB,1.3482E-05_JPRB,1.4141E-05_JPRB,1.4696E-05_JPRB/) 
1006KBO( :,54, 5) = (/&
1007 & 1.0153E-05_JPRB,1.0334E-05_JPRB,1.0859E-05_JPRB,1.1414E-05_JPRB,1.1882E-05_JPRB/) 
1008KBO( :,55, 5) = (/&
1009 & 8.3134E-06_JPRB,8.3805E-06_JPRB,8.7476E-06_JPRB,9.2016E-06_JPRB,9.6168E-06_JPRB/) 
1010KBO( :,56, 5) = (/&
1011 & 6.8128E-06_JPRB,6.8250E-06_JPRB,7.0422E-06_JPRB,7.4184E-06_JPRB,7.7786E-06_JPRB/) 
1012KBO( :,57, 5) = (/&
1013 & 5.5871E-06_JPRB,5.5794E-06_JPRB,5.6879E-06_JPRB,5.9805E-06_JPRB,6.2836E-06_JPRB/) 
1014KBO( :,58, 5) = (/&
1015 & 4.5833E-06_JPRB,4.5677E-06_JPRB,4.6123E-06_JPRB,4.8228E-06_JPRB,5.0715E-06_JPRB/) 
1016KBO( :,59, 5) = (/&
1017 & 3.7554E-06_JPRB,3.7413E-06_JPRB,3.7664E-06_JPRB,3.9250E-06_JPRB,4.1286E-06_JPRB/) 
1018KBO( :,13, 6) = (/&
1019 & 5.9721E-02_JPRB,6.1354E-02_JPRB,6.5184E-02_JPRB,7.1296E-02_JPRB,7.9076E-02_JPRB/) 
1020KBO( :,14, 6) = (/&
1021 & 4.9090E-02_JPRB,5.0657E-02_JPRB,5.4055E-02_JPRB,5.9268E-02_JPRB,6.5784E-02_JPRB/) 
1022KBO( :,15, 6) = (/&
1023 & 4.0373E-02_JPRB,4.1857E-02_JPRB,4.4839E-02_JPRB,4.9265E-02_JPRB,5.4749E-02_JPRB/) 
1024KBO( :,16, 6) = (/&
1025 & 3.3205E-02_JPRB,3.4589E-02_JPRB,3.7200E-02_JPRB,4.0963E-02_JPRB,4.5588E-02_JPRB/) 
1026KBO( :,17, 6) = (/&
1027 & 2.7321E-02_JPRB,2.8572E-02_JPRB,3.0844E-02_JPRB,3.4044E-02_JPRB,3.7943E-02_JPRB/) 
1028KBO( :,18, 6) = (/&
1029 & 2.2479E-02_JPRB,2.3595E-02_JPRB,2.5570E-02_JPRB,2.8293E-02_JPRB,3.1545E-02_JPRB/) 
1030KBO( :,19, 6) = (/&
1031 & 1.8500E-02_JPRB,1.9491E-02_JPRB,2.1196E-02_JPRB,2.3496E-02_JPRB,2.6203E-02_JPRB/) 
1032KBO( :,20, 6) = (/&
1033 & 1.5238E-02_JPRB,1.6125E-02_JPRB,1.7598E-02_JPRB,1.9543E-02_JPRB,2.1792E-02_JPRB/) 
1034KBO( :,21, 6) = (/&
1035 & 1.2557E-02_JPRB,1.3343E-02_JPRB,1.4614E-02_JPRB,1.6252E-02_JPRB,1.8124E-02_JPRB/) 
1036KBO( :,22, 6) = (/&
1037 & 1.0384E-02_JPRB,1.1107E-02_JPRB,1.2217E-02_JPRB,1.3612E-02_JPRB,1.5187E-02_JPRB/) 
1038KBO( :,23, 6) = (/&
1039 & 8.6014E-03_JPRB,9.2602E-03_JPRB,1.0223E-02_JPRB,1.1410E-02_JPRB,1.2737E-02_JPRB/) 
1040KBO( :,24, 6) = (/&
1041 & 7.1344E-03_JPRB,7.7349E-03_JPRB,8.5670E-03_JPRB,9.5773E-03_JPRB,1.0688E-02_JPRB/) 
1042KBO( :,25, 6) = (/&
1043 & 5.9318E-03_JPRB,6.4720E-03_JPRB,7.1956E-03_JPRB,8.0463E-03_JPRB,8.9744E-03_JPRB/) 
1044KBO( :,26, 6) = (/&
1045 & 4.9484E-03_JPRB,5.4321E-03_JPRB,6.0595E-03_JPRB,6.7732E-03_JPRB,7.5465E-03_JPRB/) 
1046KBO( :,27, 6) = (/&
1047 & 4.1359E-03_JPRB,4.5660E-03_JPRB,5.1046E-03_JPRB,5.7011E-03_JPRB,6.3447E-03_JPRB/) 
1048KBO( :,28, 6) = (/&
1049 & 3.4651E-03_JPRB,3.8427E-03_JPRB,4.2986E-03_JPRB,4.7976E-03_JPRB,5.3324E-03_JPRB/) 
1050KBO( :,29, 6) = (/&
1051 & 2.9102E-03_JPRB,3.2386E-03_JPRB,3.6218E-03_JPRB,4.0393E-03_JPRB,4.4830E-03_JPRB/) 
1052KBO( :,30, 6) = (/&
1053 & 2.4470E-03_JPRB,2.7307E-03_JPRB,3.0520E-03_JPRB,3.4007E-03_JPRB,3.7682E-03_JPRB/) 
1054KBO( :,31, 6) = (/&
1055 & 2.0606E-03_JPRB,2.3037E-03_JPRB,2.5728E-03_JPRB,2.8636E-03_JPRB,3.1684E-03_JPRB/) 
1056KBO( :,32, 6) = (/&
1057 & 1.7372E-03_JPRB,1.9434E-03_JPRB,2.1690E-03_JPRB,2.4112E-03_JPRB,2.6643E-03_JPRB/) 
1058KBO( :,33, 6) = (/&
1059 & 1.4660E-03_JPRB,1.6395E-03_JPRB,1.8287E-03_JPRB,2.0301E-03_JPRB,2.2400E-03_JPRB/) 
1060KBO( :,34, 6) = (/&
1061 & 1.2328E-03_JPRB,1.3780E-03_JPRB,1.5359E-03_JPRB,1.7027E-03_JPRB,1.8761E-03_JPRB/) 
1062KBO( :,35, 6) = (/&
1063 & 1.0255E-03_JPRB,1.1459E-03_JPRB,1.2766E-03_JPRB,1.4142E-03_JPRB,1.5568E-03_JPRB/) 
1064KBO( :,36, 6) = (/&
1065 & 8.4246E-04_JPRB,9.4144E-04_JPRB,1.0489E-03_JPRB,1.1618E-03_JPRB,1.2788E-03_JPRB/) 
1066KBO( :,37, 6) = (/&
1067 & 6.8032E-04_JPRB,7.6059E-04_JPRB,8.4800E-04_JPRB,9.4011E-04_JPRB,1.0358E-03_JPRB/) 
1068KBO( :,38, 6) = (/&
1069 & 5.4877E-04_JPRB,6.1380E-04_JPRB,6.8481E-04_JPRB,7.5996E-04_JPRB,8.3820E-04_JPRB/) 
1070KBO( :,39, 6) = (/&
1071 & 4.4270E-04_JPRB,4.9539E-04_JPRB,5.5302E-04_JPRB,6.1429E-04_JPRB,6.7818E-04_JPRB/) 
1072KBO( :,40, 6) = (/&
1073 & 3.5308E-04_JPRB,3.9528E-04_JPRB,4.4159E-04_JPRB,4.9127E-04_JPRB,5.4322E-04_JPRB/) 
1074KBO( :,41, 6) = (/&
1075 & 2.8136E-04_JPRB,3.1489E-04_JPRB,3.5201E-04_JPRB,3.9219E-04_JPRB,4.3434E-04_JPRB/) 
1076KBO( :,42, 6) = (/&
1077 & 2.2435E-04_JPRB,2.5074E-04_JPRB,2.8049E-04_JPRB,3.1292E-04_JPRB,3.4710E-04_JPRB/) 
1078KBO( :,43, 6) = (/&
1079 & 1.7802E-04_JPRB,1.9831E-04_JPRB,2.2204E-04_JPRB,2.4800E-04_JPRB,2.7568E-04_JPRB/) 
1080KBO( :,44, 6) = (/&
1081 & 1.4111E-04_JPRB,1.5650E-04_JPRB,1.7526E-04_JPRB,1.9592E-04_JPRB,2.1824E-04_JPRB/) 
1082KBO( :,45, 6) = (/&
1083 & 1.1219E-04_JPRB,1.2365E-04_JPRB,1.3828E-04_JPRB,1.5471E-04_JPRB,1.7263E-04_JPRB/) 
1084KBO( :,46, 6) = (/&
1085 & 8.9353E-05_JPRB,9.7626E-05_JPRB,1.0876E-04_JPRB,1.2182E-04_JPRB,1.3611E-04_JPRB/) 
1086KBO( :,47, 6) = (/&
1087 & 7.1331E-05_JPRB,7.6923E-05_JPRB,8.5223E-05_JPRB,9.5443E-05_JPRB,1.0675E-04_JPRB/) 
1088KBO( :,48, 6) = (/&
1089 & 5.7219E-05_JPRB,6.0885E-05_JPRB,6.6897E-05_JPRB,7.4726E-05_JPRB,8.3664E-05_JPRB/) 
1090KBO( :,49, 6) = (/&
1091 & 4.6157E-05_JPRB,4.8450E-05_JPRB,5.2634E-05_JPRB,5.8499E-05_JPRB,6.5552E-05_JPRB/) 
1092KBO( :,50, 6) = (/&
1093 & 3.7497E-05_JPRB,3.8822E-05_JPRB,4.1643E-05_JPRB,4.5997E-05_JPRB,5.1490E-05_JPRB/) 
1094KBO( :,51, 6) = (/&
1095 & 3.0548E-05_JPRB,3.1258E-05_JPRB,3.3116E-05_JPRB,3.6272E-05_JPRB,4.0468E-05_JPRB/) 
1096KBO( :,52, 6) = (/&
1097 & 2.4904E-05_JPRB,2.5290E-05_JPRB,2.6467E-05_JPRB,2.8662E-05_JPRB,3.1824E-05_JPRB/) 
1098KBO( :,53, 6) = (/&
1099 & 2.0318E-05_JPRB,2.0573E-05_JPRB,2.1239E-05_JPRB,2.2721E-05_JPRB,2.5059E-05_JPRB/) 
1100KBO( :,54, 6) = (/&
1101 & 1.6597E-05_JPRB,1.6771E-05_JPRB,1.7139E-05_JPRB,1.8127E-05_JPRB,1.9830E-05_JPRB/) 
1102KBO( :,55, 6) = (/&
1103 & 1.3561E-05_JPRB,1.3681E-05_JPRB,1.3892E-05_JPRB,1.4536E-05_JPRB,1.5739E-05_JPRB/) 
1104KBO( :,56, 6) = (/&
1105 & 1.1086E-05_JPRB,1.1167E-05_JPRB,1.1310E-05_JPRB,1.1693E-05_JPRB,1.2526E-05_JPRB/) 
1106KBO( :,57, 6) = (/&
1107 & 9.0628E-06_JPRB,9.1225E-06_JPRB,9.2203E-06_JPRB,9.4367E-06_JPRB,9.9993E-06_JPRB/) 
1108KBO( :,58, 6) = (/&
1109 & 7.4303E-06_JPRB,7.4548E-06_JPRB,7.5223E-06_JPRB,7.6481E-06_JPRB,8.0215E-06_JPRB/) 
1110KBO( :,59, 6) = (/&
1111 & 6.0935E-06_JPRB,6.1009E-06_JPRB,6.1525E-06_JPRB,6.2448E-06_JPRB,6.5226E-06_JPRB/) 
1112KBO( :,13, 7) = (/&
1113 & 1.1588E-01_JPRB,1.3365E-01_JPRB,1.5332E-01_JPRB,1.7451E-01_JPRB,1.9690E-01_JPRB/) 
1114KBO( :,14, 7) = (/&
1115 & 9.7055E-02_JPRB,1.1196E-01_JPRB,1.2839E-01_JPRB,1.4612E-01_JPRB,1.6488E-01_JPRB/) 
1116KBO( :,15, 7) = (/&
1117 & 8.1294E-02_JPRB,9.3772E-02_JPRB,1.0756E-01_JPRB,1.2240E-01_JPRB,1.3809E-01_JPRB/) 
1118KBO( :,16, 7) = (/&
1119 & 6.8061E-02_JPRB,7.8545E-02_JPRB,9.0101E-02_JPRB,1.0250E-01_JPRB,1.1550E-01_JPRB/) 
1120KBO( :,17, 7) = (/&
1121 & 5.6952E-02_JPRB,6.5739E-02_JPRB,7.5393E-02_JPRB,8.5665E-02_JPRB,9.6436E-02_JPRB/) 
1122KBO( :,18, 7) = (/&
1123 & 4.7617E-02_JPRB,5.4966E-02_JPRB,6.2979E-02_JPRB,7.1480E-02_JPRB,8.0409E-02_JPRB/) 
1124KBO( :,19, 7) = (/&
1125 & 3.9773E-02_JPRB,4.5894E-02_JPRB,5.2544E-02_JPRB,5.9585E-02_JPRB,6.7003E-02_JPRB/) 
1126KBO( :,20, 7) = (/&
1127 & 3.3266E-02_JPRB,3.8381E-02_JPRB,4.3891E-02_JPRB,4.9742E-02_JPRB,5.5899E-02_JPRB/) 
1128KBO( :,21, 7) = (/&
1129 & 2.7821E-02_JPRB,3.2077E-02_JPRB,3.6647E-02_JPRB,4.1505E-02_JPRB,4.6608E-02_JPRB/) 
1130KBO( :,22, 7) = (/&
1131 & 2.3478E-02_JPRB,2.7039E-02_JPRB,3.0839E-02_JPRB,3.4879E-02_JPRB,3.9103E-02_JPRB/) 
1132KBO( :,23, 7) = (/&
1133 & 1.9822E-02_JPRB,2.2790E-02_JPRB,2.5960E-02_JPRB,2.9305E-02_JPRB,3.2804E-02_JPRB/) 
1134KBO( :,24, 7) = (/&
1135 & 1.6745E-02_JPRB,1.9225E-02_JPRB,2.1856E-02_JPRB,2.4636E-02_JPRB,2.7545E-02_JPRB/) 
1136KBO( :,25, 7) = (/&
1137 & 1.4161E-02_JPRB,1.6225E-02_JPRB,1.8415E-02_JPRB,2.0732E-02_JPRB,2.3157E-02_JPRB/) 
1138KBO( :,26, 7) = (/&
1139 & 1.2003E-02_JPRB,1.3719E-02_JPRB,1.5547E-02_JPRB,1.7489E-02_JPRB,1.9498E-02_JPRB/) 
1140KBO( :,27, 7) = (/&
1141 & 1.0171E-02_JPRB,1.1602E-02_JPRB,1.3133E-02_JPRB,1.4753E-02_JPRB,1.6413E-02_JPRB/) 
1142KBO( :,28, 7) = (/&
1143 & 8.6151E-03_JPRB,9.8138E-03_JPRB,1.1097E-02_JPRB,1.2440E-02_JPRB,1.3808E-02_JPRB/) 
1144KBO( :,29, 7) = (/&
1145 & 7.3031E-03_JPRB,8.3100E-03_JPRB,9.3806E-03_JPRB,1.0489E-02_JPRB,1.1614E-02_JPRB/) 
1146KBO( :,30, 7) = (/&
1147 & 6.1924E-03_JPRB,7.0350E-03_JPRB,7.9243E-03_JPRB,8.8379E-03_JPRB,9.7615E-03_JPRB/) 
1148KBO( :,31, 7) = (/&
1149 & 5.2533E-03_JPRB,5.9562E-03_JPRB,6.6929E-03_JPRB,7.4442E-03_JPRB,8.2040E-03_JPRB/) 
1150KBO( :,32, 7) = (/&
1151 & 4.4571E-03_JPRB,5.0422E-03_JPRB,5.6504E-03_JPRB,6.2688E-03_JPRB,6.8946E-03_JPRB/) 
1152KBO( :,33, 7) = (/&
1153 & 3.7800E-03_JPRB,4.2660E-03_JPRB,4.7678E-03_JPRB,5.2772E-03_JPRB,5.7931E-03_JPRB/) 
1154KBO( :,34, 7) = (/&
1155 & 3.1899E-03_JPRB,3.5923E-03_JPRB,4.0058E-03_JPRB,4.4259E-03_JPRB,4.8520E-03_JPRB/) 
1156KBO( :,35, 7) = (/&
1157 & 2.6588E-03_JPRB,2.9911E-03_JPRB,3.3311E-03_JPRB,3.6773E-03_JPRB,4.0289E-03_JPRB/) 
1158KBO( :,36, 7) = (/&
1159 & 2.1867E-03_JPRB,2.4598E-03_JPRB,2.7392E-03_JPRB,3.0239E-03_JPRB,3.3135E-03_JPRB/) 
1160KBO( :,37, 7) = (/&
1161 & 1.7654E-03_JPRB,1.9884E-03_JPRB,2.2175E-03_JPRB,2.4512E-03_JPRB,2.6886E-03_JPRB/) 
1162KBO( :,38, 7) = (/&
1163 & 1.4235E-03_JPRB,1.6055E-03_JPRB,1.7932E-03_JPRB,1.9849E-03_JPRB,2.1796E-03_JPRB/) 
1164KBO( :,39, 7) = (/&
1165 & 1.1477E-03_JPRB,1.2961E-03_JPRB,1.4499E-03_JPRB,1.6071E-03_JPRB,1.7668E-03_JPRB/) 
1166KBO( :,40, 7) = (/&
1167 & 9.1302E-04_JPRB,1.0335E-03_JPRB,1.1591E-03_JPRB,1.2877E-03_JPRB,1.4185E-03_JPRB/) 
1168KBO( :,41, 7) = (/&
1169 & 7.2467E-04_JPRB,8.2221E-04_JPRB,9.2464E-04_JPRB,1.0298E-03_JPRB,1.1370E-03_JPRB/) 
1170KBO( :,42, 7) = (/&
1171 & 5.7474E-04_JPRB,6.5369E-04_JPRB,7.3701E-04_JPRB,8.2293E-04_JPRB,9.1070E-04_JPRB/) 
1172KBO( :,43, 7) = (/&
1173 & 4.5204E-04_JPRB,5.1571E-04_JPRB,5.8312E-04_JPRB,6.5322E-04_JPRB,7.2492E-04_JPRB/) 
1174KBO( :,44, 7) = (/&
1175 & 3.5397E-04_JPRB,4.0509E-04_JPRB,4.5944E-04_JPRB,5.1651E-04_JPRB,5.7502E-04_JPRB/) 
1176KBO( :,45, 7) = (/&
1177 & 2.7677E-04_JPRB,3.1783E-04_JPRB,3.6162E-04_JPRB,4.0793E-04_JPRB,4.5562E-04_JPRB/) 
1178KBO( :,46, 7) = (/&
1179 & 2.1540E-04_JPRB,2.4835E-04_JPRB,2.8358E-04_JPRB,3.2093E-04_JPRB,3.5979E-04_JPRB/) 
1180KBO( :,47, 7) = (/&
1181 & 1.6633E-04_JPRB,1.9266E-04_JPRB,2.2081E-04_JPRB,2.5080E-04_JPRB,2.8236E-04_JPRB/) 
1182KBO( :,48, 7) = (/&
1183 & 1.2830E-04_JPRB,1.4914E-04_JPRB,1.7167E-04_JPRB,1.9573E-04_JPRB,2.2121E-04_JPRB/) 
1184KBO( :,49, 7) = (/&
1185 & 9.8900E-05_JPRB,1.1524E-04_JPRB,1.3325E-04_JPRB,1.5252E-04_JPRB,1.7300E-04_JPRB/) 
1186KBO( :,50, 7) = (/&
1187 & 7.6523E-05_JPRB,8.9264E-05_JPRB,1.0363E-04_JPRB,1.1906E-04_JPRB,1.3550E-04_JPRB/) 
1188KBO( :,51, 7) = (/&
1189 & 5.9350E-05_JPRB,6.9204E-05_JPRB,8.0571E-05_JPRB,9.2952E-05_JPRB,1.0617E-04_JPRB/) 
1190KBO( :,52, 7) = (/&
1191 & 4.6110E-05_JPRB,5.3638E-05_JPRB,6.2565E-05_JPRB,7.2480E-05_JPRB,8.3081E-05_JPRB/) 
1192KBO( :,53, 7) = (/&
1193 & 3.5907E-05_JPRB,4.1572E-05_JPRB,4.8523E-05_JPRB,5.6421E-05_JPRB,6.4919E-05_JPRB/) 
1194KBO( :,54, 7) = (/&
1195 & 2.8169E-05_JPRB,3.2394E-05_JPRB,3.7786E-05_JPRB,4.4047E-05_JPRB,5.0874E-05_JPRB/) 
1196KBO( :,55, 7) = (/&
1197 & 2.2244E-05_JPRB,2.5332E-05_JPRB,2.9480E-05_JPRB,3.4420E-05_JPRB,3.9903E-05_JPRB/) 
1198KBO( :,56, 7) = (/&
1199 & 1.7661E-05_JPRB,1.9848E-05_JPRB,2.3004E-05_JPRB,2.6875E-05_JPRB,3.1261E-05_JPRB/) 
1200KBO( :,57, 7) = (/&
1201 & 1.4116E-05_JPRB,1.5590E-05_JPRB,1.7962E-05_JPRB,2.0972E-05_JPRB,2.4457E-05_JPRB/) 
1202KBO( :,58, 7) = (/&
1203 & 1.1342E-05_JPRB,1.2323E-05_JPRB,1.4076E-05_JPRB,1.6403E-05_JPRB,1.9161E-05_JPRB/) 
1204KBO( :,59, 7) = (/&
1205 & 9.2282E-06_JPRB,9.9669E-06_JPRB,1.1338E-05_JPRB,1.3199E-05_JPRB,1.5427E-05_JPRB/) 
1206KBO( :,13, 8) = (/&
1207 & 3.3007E-01_JPRB,3.9651E-01_JPRB,4.6809E-01_JPRB,5.4357E-01_JPRB,6.2157E-01_JPRB/) 
1208KBO( :,14, 8) = (/&
1209 & 2.7899E-01_JPRB,3.3507E-01_JPRB,3.9534E-01_JPRB,4.5851E-01_JPRB,5.2383E-01_JPRB/) 
1210KBO( :,15, 8) = (/&
1211 & 2.3603E-01_JPRB,2.8320E-01_JPRB,3.3377E-01_JPRB,3.8669E-01_JPRB,4.4137E-01_JPRB/) 
1212KBO( :,16, 8) = (/&
1213 & 1.9959E-01_JPRB,2.3926E-01_JPRB,2.8155E-01_JPRB,3.2567E-01_JPRB,3.7161E-01_JPRB/) 
1214KBO( :,17, 8) = (/&
1215 & 1.6854E-01_JPRB,2.0171E-01_JPRB,2.3696E-01_JPRB,2.7391E-01_JPRB,3.1236E-01_JPRB/) 
1216KBO( :,18, 8) = (/&
1217 & 1.4209E-01_JPRB,1.6977E-01_JPRB,1.9918E-01_JPRB,2.3009E-01_JPRB,2.6229E-01_JPRB/) 
1218KBO( :,19, 8) = (/&
1219 & 1.1954E-01_JPRB,1.4262E-01_JPRB,1.6719E-01_JPRB,1.9301E-01_JPRB,2.1984E-01_JPRB/) 
1220KBO( :,20, 8) = (/&
1221 & 1.0077E-01_JPRB,1.2005E-01_JPRB,1.4054E-01_JPRB,1.6208E-01_JPRB,1.8429E-01_JPRB/) 
1222KBO( :,21, 8) = (/&
1223 & 8.4914E-02_JPRB,1.0100E-01_JPRB,1.1806E-01_JPRB,1.3588E-01_JPRB,1.5437E-01_JPRB/) 
1224KBO( :,22, 8) = (/&
1225 & 7.2355E-02_JPRB,8.5791E-02_JPRB,9.9982E-02_JPRB,1.1481E-01_JPRB,1.3020E-01_JPRB/) 
1226KBO( :,23, 8) = (/&
1227 & 6.1637E-02_JPRB,7.2833E-02_JPRB,8.4658E-02_JPRB,9.6984E-02_JPRB,1.0981E-01_JPRB/) 
1228KBO( :,24, 8) = (/&
1229 & 5.2514E-02_JPRB,6.1860E-02_JPRB,7.1701E-02_JPRB,8.1967E-02_JPRB,9.2596E-02_JPRB/) 
1230KBO( :,25, 8) = (/&
1231 & 4.4769E-02_JPRB,5.2568E-02_JPRB,6.0763E-02_JPRB,6.9296E-02_JPRB,7.8120E-02_JPRB/) 
1232KBO( :,26, 8) = (/&
1233 & 3.8253E-02_JPRB,4.4756E-02_JPRB,5.1578E-02_JPRB,5.8670E-02_JPRB,6.6013E-02_JPRB/) 
1234KBO( :,27, 8) = (/&
1235 & 3.2667E-02_JPRB,3.8088E-02_JPRB,4.3757E-02_JPRB,4.9656E-02_JPRB,5.5793E-02_JPRB/) 
1236KBO( :,28, 8) = (/&
1237 & 2.7877E-02_JPRB,3.2393E-02_JPRB,3.7109E-02_JPRB,4.2030E-02_JPRB,4.7179E-02_JPRB/) 
1238KBO( :,29, 8) = (/&
1239 & 2.3797E-02_JPRB,2.7555E-02_JPRB,3.1491E-02_JPRB,3.5617E-02_JPRB,3.9923E-02_JPRB/) 
1240KBO( :,30, 8) = (/&
1241 & 2.0298E-02_JPRB,2.3432E-02_JPRB,2.6727E-02_JPRB,3.0189E-02_JPRB,3.3773E-02_JPRB/) 
1242KBO( :,31, 8) = (/&
1243 & 1.7314E-02_JPRB,1.9936E-02_JPRB,2.2701E-02_JPRB,2.5587E-02_JPRB,2.8571E-02_JPRB/) 
1244
1245IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',1,ZHOOK_HANDLE)
1246END SUBROUTINE PART4
1247
1248
1249SUBROUTINE PART5
1250
1251REAL(KIND=JPRB) :: ZHOOK_HANDLE
1252IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',0,ZHOOK_HANDLE)
1253
1254
1255KBO( :,32, 8) = (/&
1256 & 1.4770E-02_JPRB,1.6972E-02_JPRB,1.9281E-02_JPRB,2.1688E-02_JPRB,2.4162E-02_JPRB/) 
1257KBO( :,33, 8) = (/&
1258 & 1.2600E-02_JPRB,1.4446E-02_JPRB,1.6373E-02_JPRB,1.8374E-02_JPRB,2.0424E-02_JPRB/) 
1259KBO( :,34, 8) = (/&
1260 & 1.0696E-02_JPRB,1.2236E-02_JPRB,1.3839E-02_JPRB,1.5497E-02_JPRB,1.7194E-02_JPRB/) 
1261KBO( :,35, 8) = (/&
1262 & 8.9555E-03_JPRB,1.0232E-02_JPRB,1.1559E-02_JPRB,1.2931E-02_JPRB,1.4335E-02_JPRB/) 
1263KBO( :,36, 8) = (/&
1264 & 7.3846E-03_JPRB,8.4373E-03_JPRB,9.5325E-03_JPRB,1.0662E-02_JPRB,1.1822E-02_JPRB/) 
1265KBO( :,37, 8) = (/&
1266 & 5.9606E-03_JPRB,6.8233E-03_JPRB,7.7209E-03_JPRB,8.6487E-03_JPRB,9.6041E-03_JPRB/) 
1267KBO( :,38, 8) = (/&
1268 & 4.8037E-03_JPRB,5.5105E-03_JPRB,6.2459E-03_JPRB,7.0079E-03_JPRB,7.7943E-03_JPRB/) 
1269KBO( :,39, 8) = (/&
1270 & 3.8706E-03_JPRB,4.4491E-03_JPRB,5.0519E-03_JPRB,5.6779E-03_JPRB,6.3251E-03_JPRB/) 
1271KBO( :,40, 8) = (/&
1272 & 3.0705E-03_JPRB,3.5417E-03_JPRB,4.0336E-03_JPRB,4.5461E-03_JPRB,5.0773E-03_JPRB/) 
1273KBO( :,41, 8) = (/&
1274 & 2.4285E-03_JPRB,2.8118E-03_JPRB,3.2129E-03_JPRB,3.6318E-03_JPRB,4.0673E-03_JPRB/) 
1275KBO( :,42, 8) = (/&
1276 & 1.9184E-03_JPRB,2.2300E-03_JPRB,2.5570E-03_JPRB,2.8991E-03_JPRB,3.2561E-03_JPRB/) 
1277KBO( :,43, 8) = (/&
1278 & 1.4999E-03_JPRB,1.7522E-03_JPRB,2.0180E-03_JPRB,2.2966E-03_JPRB,2.5881E-03_JPRB/) 
1279KBO( :,44, 8) = (/&
1280 & 1.1655E-03_JPRB,1.3694E-03_JPRB,1.5849E-03_JPRB,1.8113E-03_JPRB,2.0488E-03_JPRB/) 
1281KBO( :,45, 8) = (/&
1282 & 9.0376E-04_JPRB,1.0682E-03_JPRB,1.2427E-03_JPRB,1.4266E-03_JPRB,1.6199E-03_JPRB/) 
1283KBO( :,46, 8) = (/&
1284 & 6.9650E-04_JPRB,8.2858E-04_JPRB,9.6950E-04_JPRB,1.1186E-03_JPRB,1.2755E-03_JPRB/) 
1285KBO( :,47, 8) = (/&
1286 & 5.3108E-04_JPRB,6.3643E-04_JPRB,7.4984E-04_JPRB,8.7018E-04_JPRB,9.9721E-04_JPRB/) 
1287KBO( :,48, 8) = (/&
1288 & 4.0361E-04_JPRB,4.8742E-04_JPRB,5.7833E-04_JPRB,6.7534E-04_JPRB,7.7807E-04_JPRB/) 
1289KBO( :,49, 8) = (/&
1290 & 3.0566E-04_JPRB,3.7215E-04_JPRB,4.4475E-04_JPRB,5.2279E-04_JPRB,6.0579E-04_JPRB/) 
1291KBO( :,50, 8) = (/&
1292 & 2.3193E-04_JPRB,2.8459E-04_JPRB,3.4251E-04_JPRB,4.0526E-04_JPRB,4.7230E-04_JPRB/) 
1293KBO( :,51, 8) = (/&
1294 & 1.7590E-04_JPRB,2.1748E-04_JPRB,2.6361E-04_JPRB,3.1395E-04_JPRB,3.6804E-04_JPRB/) 
1295KBO( :,52, 8) = (/&
1296 & 1.3304E-04_JPRB,1.6573E-04_JPRB,2.0240E-04_JPRB,2.4265E-04_JPRB,2.8621E-04_JPRB/) 
1297KBO( :,53, 8) = (/&
1298 & 1.0033E-04_JPRB,1.2590E-04_JPRB,1.5496E-04_JPRB,1.8704E-04_JPRB,2.2201E-04_JPRB/) 
1299KBO( :,54, 8) = (/&
1300 & 7.6043E-05_JPRB,9.6033E-05_JPRB,1.1903E-04_JPRB,1.4464E-04_JPRB,1.7271E-04_JPRB/) 
1301KBO( :,55, 8) = (/&
1302 & 5.7725E-05_JPRB,7.3309E-05_JPRB,9.1482E-05_JPRB,1.1190E-04_JPRB,1.3439E-04_JPRB/) 
1303KBO( :,56, 8) = (/&
1304 & 4.3773E-05_JPRB,5.5845E-05_JPRB,7.0155E-05_JPRB,8.6401E-05_JPRB,1.0439E-04_JPRB/) 
1305KBO( :,57, 8) = (/&
1306 & 3.3178E-05_JPRB,4.2466E-05_JPRB,5.3677E-05_JPRB,6.6562E-05_JPRB,8.0932E-05_JPRB/) 
1307KBO( :,58, 8) = (/&
1308 & 2.5276E-05_JPRB,3.2365E-05_JPRB,4.1133E-05_JPRB,5.1343E-05_JPRB,6.2815E-05_JPRB/) 
1309KBO( :,59, 8) = (/&
1310 & 2.0138E-05_JPRB,2.5779E-05_JPRB,3.2836E-05_JPRB,4.1105E-05_JPRB,5.0433E-05_JPRB/) 
1311KBO( :,13, 9) = (/&
1312 & 2.0575E+00_JPRB,2.5259E+00_JPRB,3.0234E+00_JPRB,3.5471E+00_JPRB,4.0892E+00_JPRB/) 
1313KBO( :,14, 9) = (/&
1314 & 1.7896E+00_JPRB,2.1936E+00_JPRB,2.6243E+00_JPRB,3.0754E+00_JPRB,3.5357E+00_JPRB/) 
1315KBO( :,15, 9) = (/&
1316 & 1.5532E+00_JPRB,1.9005E+00_JPRB,2.2698E+00_JPRB,2.6534E+00_JPRB,3.0460E+00_JPRB/) 
1317KBO( :,16, 9) = (/&
1318 & 1.3431E+00_JPRB,1.6399E+00_JPRB,1.9542E+00_JPRB,2.2801E+00_JPRB,2.6154E+00_JPRB/) 
1319KBO( :,17, 9) = (/&
1320 & 1.1564E+00_JPRB,1.4091E+00_JPRB,1.6750E+00_JPRB,1.9517E+00_JPRB,2.2353E+00_JPRB/) 
1321KBO( :,18, 9) = (/&
1322 & 9.9261E-01_JPRB,1.2059E+00_JPRB,1.4303E+00_JPRB,1.6635E+00_JPRB,1.9029E+00_JPRB/) 
1323KBO( :,19, 9) = (/&
1324 & 8.4829E-01_JPRB,1.0283E+00_JPRB,1.2171E+00_JPRB,1.4131E+00_JPRB,1.6142E+00_JPRB/) 
1325KBO( :,20, 9) = (/&
1326 & 7.2551E-01_JPRB,8.7689E-01_JPRB,1.0360E+00_JPRB,1.2012E+00_JPRB,1.3703E+00_JPRB/) 
1327KBO( :,21, 9) = (/&
1328 & 6.1932E-01_JPRB,7.4645E-01_JPRB,8.8019E-01_JPRB,1.0189E+00_JPRB,1.1616E+00_JPRB/) 
1329KBO( :,22, 9) = (/&
1330 & 5.3436E-01_JPRB,6.4171E-01_JPRB,7.5441E-01_JPRB,8.7104E-01_JPRB,9.9107E-01_JPRB/) 
1331KBO( :,23, 9) = (/&
1332 & 4.6064E-01_JPRB,5.5112E-01_JPRB,6.4570E-01_JPRB,7.4365E-01_JPRB,8.4436E-01_JPRB/) 
1333KBO( :,24, 9) = (/&
1334 & 3.9696E-01_JPRB,4.7292E-01_JPRB,5.5220E-01_JPRB,6.3452E-01_JPRB,7.1905E-01_JPRB/) 
1335KBO( :,25, 9) = (/&
1336 & 3.4206E-01_JPRB,4.0576E-01_JPRB,4.7240E-01_JPRB,5.4144E-01_JPRB,6.1253E-01_JPRB/) 
1337KBO( :,26, 9) = (/&
1338 & 2.9509E-01_JPRB,3.4866E-01_JPRB,4.0462E-01_JPRB,4.6255E-01_JPRB,5.2212E-01_JPRB/) 
1339KBO( :,27, 9) = (/&
1340 & 2.5432E-01_JPRB,2.9938E-01_JPRB,3.4636E-01_JPRB,3.9487E-01_JPRB,4.4473E-01_JPRB/) 
1341KBO( :,28, 9) = (/&
1342 & 2.1897E-01_JPRB,2.5686E-01_JPRB,2.9621E-01_JPRB,3.3690E-01_JPRB,3.7871E-01_JPRB/) 
1343KBO( :,29, 9) = (/&
1344 & 1.8863E-01_JPRB,2.2035E-01_JPRB,2.5338E-01_JPRB,2.8746E-01_JPRB,3.2276E-01_JPRB/) 
1345KBO( :,30, 9) = (/&
1346 & 1.6227E-01_JPRB,1.8891E-01_JPRB,2.1659E-01_JPRB,2.4532E-01_JPRB,2.7508E-01_JPRB/) 
1347KBO( :,31, 9) = (/&
1348 & 1.3961E-01_JPRB,1.6197E-01_JPRB,1.8522E-01_JPRB,2.0946E-01_JPRB,2.3451E-01_JPRB/) 
1349KBO( :,32, 9) = (/&
1350 & 1.2009E-01_JPRB,1.3886E-01_JPRB,1.5848E-01_JPRB,1.7888E-01_JPRB,2.0001E-01_JPRB/) 
1351KBO( :,33, 9) = (/&
1352 & 1.0324E-01_JPRB,1.1904E-01_JPRB,1.3559E-01_JPRB,1.5281E-01_JPRB,1.7071E-01_JPRB/) 
1353KBO( :,34, 9) = (/&
1354 & 8.8245E-02_JPRB,1.0156E-01_JPRB,1.1550E-01_JPRB,1.3006E-01_JPRB,1.4528E-01_JPRB/) 
1355KBO( :,35, 9) = (/&
1356 & 7.4373E-02_JPRB,8.5551E-02_JPRB,9.7297E-02_JPRB,1.0957E-01_JPRB,1.2251E-01_JPRB/) 
1357KBO( :,36, 9) = (/&
1358 & 6.1704E-02_JPRB,7.1049E-02_JPRB,8.0900E-02_JPRB,9.1251E-02_JPRB,1.0221E-01_JPRB/) 
1359KBO( :,37, 9) = (/&
1360 & 5.0060E-02_JPRB,5.7820E-02_JPRB,6.6024E-02_JPRB,7.4701E-02_JPRB,8.3923E-02_JPRB/) 
1361KBO( :,38, 9) = (/&
1362 & 4.0550E-02_JPRB,4.6991E-02_JPRB,5.3826E-02_JPRB,6.1105E-02_JPRB,6.8864E-02_JPRB/) 
1363KBO( :,39, 9) = (/&
1364 & 3.2845E-02_JPRB,3.8185E-02_JPRB,4.3883E-02_JPRB,4.9990E-02_JPRB,5.6512E-02_JPRB/) 
1365KBO( :,40, 9) = (/&
1366 & 2.6159E-02_JPRB,3.0559E-02_JPRB,3.5279E-02_JPRB,4.0364E-02_JPRB,4.5803E-02_JPRB/) 
1367KBO( :,41, 9) = (/&
1368 & 2.0762E-02_JPRB,2.4380E-02_JPRB,2.8285E-02_JPRB,3.2514E-02_JPRB,3.7041E-02_JPRB/) 
1369KBO( :,42, 9) = (/&
1370 & 1.6454E-02_JPRB,1.9426E-02_JPRB,2.2652E-02_JPRB,2.6163E-02_JPRB,2.9929E-02_JPRB/) 
1371KBO( :,43, 9) = (/&
1372 & 1.2889E-02_JPRB,1.5316E-02_JPRB,1.7969E-02_JPRB,2.0865E-02_JPRB,2.3986E-02_JPRB/) 
1373KBO( :,44, 9) = (/&
1374 & 1.0025E-02_JPRB,1.2000E-02_JPRB,1.4172E-02_JPRB,1.6553E-02_JPRB,1.9131E-02_JPRB/) 
1375KBO( :,45, 9) = (/&
1376 & 7.7746E-03_JPRB,9.3784E-03_JPRB,1.1153E-02_JPRB,1.3107E-02_JPRB,1.5232E-02_JPRB/) 
1377KBO( :,46, 9) = (/&
1378 & 5.9839E-03_JPRB,7.2803E-03_JPRB,8.7236E-03_JPRB,1.0320E-02_JPRB,1.2066E-02_JPRB/) 
1379KBO( :,47, 9) = (/&
1380 & 4.5469E-03_JPRB,5.5872E-03_JPRB,6.7527E-03_JPRB,8.0490E-03_JPRB,9.4737E-03_JPRB/) 
1381KBO( :,48, 9) = (/&
1382 & 3.4387E-03_JPRB,4.2707E-03_JPRB,5.2081E-03_JPRB,6.2578E-03_JPRB,7.4170E-03_JPRB/) 
1383KBO( :,49, 9) = (/&
1384 & 2.5872E-03_JPRB,3.2502E-03_JPRB,4.0014E-03_JPRB,4.8487E-03_JPRB,5.7896E-03_JPRB/) 
1385KBO( :,50, 9) = (/&
1386 & 1.9484E-03_JPRB,2.4763E-03_JPRB,3.0782E-03_JPRB,3.7619E-03_JPRB,4.5255E-03_JPRB/) 
1387KBO( :,51, 9) = (/&
1388 & 1.4641E-03_JPRB,1.8833E-03_JPRB,2.3642E-03_JPRB,2.9156E-03_JPRB,3.5343E-03_JPRB/) 
1389KBO( :,52, 9) = (/&
1390 & 1.0947E-03_JPRB,1.4260E-03_JPRB,1.8092E-03_JPRB,2.2525E-03_JPRB,2.7523E-03_JPRB/) 
1391KBO( :,53, 9) = (/&
1392 & 8.1385E-04_JPRB,1.0744E-03_JPRB,1.3788E-03_JPRB,1.7335E-03_JPRB,2.1363E-03_JPRB/) 
1393KBO( :,54, 9) = (/&
1394 & 6.0727E-04_JPRB,8.1227E-04_JPRB,1.0543E-03_JPRB,1.3383E-03_JPRB,1.6634E-03_JPRB/) 
1395KBO( :,55, 9) = (/&
1396 & 4.5272E-04_JPRB,6.1374E-04_JPRB,8.0589E-04_JPRB,1.0331E-03_JPRB,1.2952E-03_JPRB/) 
1397KBO( :,56, 9) = (/&
1398 & 3.3583E-04_JPRB,4.6181E-04_JPRB,6.1377E-04_JPRB,7.9508E-04_JPRB,1.0057E-03_JPRB/) 
1399KBO( :,57, 9) = (/&
1400 & 2.4776E-04_JPRB,3.4590E-04_JPRB,4.6559E-04_JPRB,6.0978E-04_JPRB,7.7861E-04_JPRB/) 
1401KBO( :,58, 9) = (/&
1402 & 1.8283E-04_JPRB,2.5924E-04_JPRB,3.5338E-04_JPRB,4.6808E-04_JPRB,6.0340E-04_JPRB/) 
1403KBO( :,59, 9) = (/&
1404 & 1.4394E-04_JPRB,2.0565E-04_JPRB,2.8231E-04_JPRB,3.7641E-04_JPRB,4.8766E-04_JPRB/) 
1405KBO( :,13,10) = (/&
1406 & 9.3904E+00_JPRB,1.1558E+01_JPRB,1.3845E+01_JPRB,1.6163E+01_JPRB,1.8555E+01_JPRB/) 
1407KBO( :,14,10) = (/&
1408 & 8.3973E+00_JPRB,1.0270E+01_JPRB,1.2209E+01_JPRB,1.4231E+01_JPRB,1.6403E+01_JPRB/) 
1409KBO( :,15,10) = (/&
1410 & 7.4227E+00_JPRB,9.0328E+00_JPRB,1.0725E+01_JPRB,1.2539E+01_JPRB,1.4424E+01_JPRB/) 
1411KBO( :,16,10) = (/&
1412 & 6.5205E+00_JPRB,7.9257E+00_JPRB,9.4310E+00_JPRB,1.1012E+01_JPRB,1.2602E+01_JPRB/) 
1413KBO( :,17,10) = (/&
1414 & 5.6968E+00_JPRB,6.9236E+00_JPRB,8.2313E+00_JPRB,9.5792E+00_JPRB,1.0956E+01_JPRB/) 
1415KBO( :,18,10) = (/&
1416 & 4.9471E+00_JPRB,6.0161E+00_JPRB,7.1339E+00_JPRB,8.2948E+00_JPRB,9.4857E+00_JPRB/) 
1417KBO( :,19,10) = (/&
1418 & 4.2895E+00_JPRB,5.2029E+00_JPRB,6.1642E+00_JPRB,7.1527E+00_JPRB,8.1730E+00_JPRB/) 
1419KBO( :,20,10) = (/&
1420 & 3.7147E+00_JPRB,4.4929E+00_JPRB,5.3068E+00_JPRB,6.1474E+00_JPRB,7.0078E+00_JPRB/) 
1421KBO( :,21,10) = (/&
1422 & 3.2024E+00_JPRB,3.8631E+00_JPRB,4.5499E+00_JPRB,5.2596E+00_JPRB,5.9867E+00_JPRB/) 
1423KBO( :,22,10) = (/&
1424 & 2.7881E+00_JPRB,3.3462E+00_JPRB,3.9291E+00_JPRB,4.5332E+00_JPRB,5.1516E+00_JPRB/) 
1425KBO( :,23,10) = (/&
1426 & 2.4221E+00_JPRB,2.8934E+00_JPRB,3.3888E+00_JPRB,3.9007E+00_JPRB,4.4296E+00_JPRB/) 
1427KBO( :,24,10) = (/&
1428 & 2.1012E+00_JPRB,2.5042E+00_JPRB,2.9257E+00_JPRB,3.3605E+00_JPRB,3.8099E+00_JPRB/) 
1429KBO( :,25,10) = (/&
1430 & 1.8234E+00_JPRB,2.1683E+00_JPRB,2.5234E+00_JPRB,2.8940E+00_JPRB,3.2740E+00_JPRB/) 
1431KBO( :,26,10) = (/&
1432 & 1.5880E+00_JPRB,1.8773E+00_JPRB,2.1781E+00_JPRB,2.4921E+00_JPRB,2.8182E+00_JPRB/) 
1433KBO( :,27,10) = (/&
1434 & 1.3795E+00_JPRB,1.6233E+00_JPRB,1.8790E+00_JPRB,2.1463E+00_JPRB,2.4246E+00_JPRB/) 
1435KBO( :,28,10) = (/&
1436 & 1.1952E+00_JPRB,1.4020E+00_JPRB,1.6204E+00_JPRB,1.8473E+00_JPRB,2.0818E+00_JPRB/) 
1437KBO( :,29,10) = (/&
1438 & 1.0353E+00_JPRB,1.2126E+00_JPRB,1.3974E+00_JPRB,1.5895E+00_JPRB,1.7854E+00_JPRB/) 
1439KBO( :,30,10) = (/&
1440 & 8.9710E-01_JPRB,1.0479E+00_JPRB,1.2046E+00_JPRB,1.3665E+00_JPRB,1.5321E+00_JPRB/) 
1441KBO( :,31,10) = (/&
1442 & 7.7817E-01_JPRB,9.0519E-01_JPRB,1.0386E+00_JPRB,1.1754E+00_JPRB,1.3182E+00_JPRB/) 
1443KBO( :,32,10) = (/&
1444 & 6.7399E-01_JPRB,7.8251E-01_JPRB,8.9515E-01_JPRB,1.0127E+00_JPRB,1.1369E+00_JPRB/) 
1445KBO( :,33,10) = (/&
1446 & 5.8405E-01_JPRB,6.7622E-01_JPRB,7.7236E-01_JPRB,8.7403E-01_JPRB,9.7956E-01_JPRB/) 
1447KBO( :,34,10) = (/&
1448 & 5.0357E-01_JPRB,5.8182E-01_JPRB,6.6452E-01_JPRB,7.5151E-01_JPRB,8.4035E-01_JPRB/) 
1449KBO( :,35,10) = (/&
1450 & 4.2779E-01_JPRB,4.9440E-01_JPRB,5.6491E-01_JPRB,6.3892E-01_JPRB,7.1333E-01_JPRB/) 
1451KBO( :,36,10) = (/&
1452 & 3.5777E-01_JPRB,4.1421E-01_JPRB,4.7387E-01_JPRB,5.3617E-01_JPRB,5.9900E-01_JPRB/) 
1453KBO( :,37,10) = (/&
1454 & 2.9234E-01_JPRB,3.3963E-01_JPRB,3.8973E-01_JPRB,4.4194E-01_JPRB,4.9508E-01_JPRB/) 
1455KBO( :,38,10) = (/&
1456 & 2.3845E-01_JPRB,2.7804E-01_JPRB,3.2014E-01_JPRB,3.6393E-01_JPRB,4.0887E-01_JPRB/) 
1457KBO( :,39,10) = (/&
1458 & 1.9449E-01_JPRB,2.2762E-01_JPRB,2.6303E-01_JPRB,2.9987E-01_JPRB,3.3808E-01_JPRB/) 
1459KBO( :,40,10) = (/&
1460 & 1.5581E-01_JPRB,1.8338E-01_JPRB,2.1298E-01_JPRB,2.4388E-01_JPRB,2.7640E-01_JPRB/) 
1461KBO( :,41,10) = (/&
1462 & 1.2437E-01_JPRB,1.4728E-01_JPRB,1.7198E-01_JPRB,1.9790E-01_JPRB,2.2561E-01_JPRB/) 
1463KBO( :,42,10) = (/&
1464 & 9.9114E-02_JPRB,1.1814E-01_JPRB,1.3871E-01_JPRB,1.6049E-01_JPRB,1.8409E-01_JPRB/) 
1465KBO( :,43,10) = (/&
1466 & 7.8014E-02_JPRB,9.3699E-02_JPRB,1.1072E-01_JPRB,1.2897E-01_JPRB,1.4893E-01_JPRB/) 
1467KBO( :,44,10) = (/&
1468 & 6.0930E-02_JPRB,7.3813E-02_JPRB,8.7829E-02_JPRB,1.0306E-01_JPRB,1.1990E-01_JPRB/) 
1469KBO( :,45,10) = (/&
1470 & 4.7439E-02_JPRB,5.7963E-02_JPRB,6.9524E-02_JPRB,8.2179E-02_JPRB,9.6377E-02_JPRB/) 
1471KBO( :,46,10) = (/&
1472 & 3.6628E-02_JPRB,4.5189E-02_JPRB,5.4663E-02_JPRB,6.5139E-02_JPRB,7.7031E-02_JPRB/) 
1473KBO( :,47,10) = (/&
1474 & 2.7890E-02_JPRB,3.4787E-02_JPRB,4.2493E-02_JPRB,5.1096E-02_JPRB,6.0965E-02_JPRB/) 
1475KBO( :,48,10) = (/&
1476 & 2.1119E-02_JPRB,2.6645E-02_JPRB,3.2896E-02_JPRB,3.9921E-02_JPRB,4.8089E-02_JPRB/) 
1477KBO( :,49,10) = (/&
1478 & 1.5900E-02_JPRB,2.0307E-02_JPRB,2.5351E-02_JPRB,3.1064E-02_JPRB,3.7792E-02_JPRB/) 
1479KBO( :,50,10) = (/&
1480 & 1.1982E-02_JPRB,1.5486E-02_JPRB,1.9553E-02_JPRB,2.4196E-02_JPRB,2.9727E-02_JPRB/) 
1481KBO( :,51,10) = (/&
1482 & 9.0056E-03_JPRB,1.1788E-02_JPRB,1.5051E-02_JPRB,1.8815E-02_JPRB,2.3348E-02_JPRB/) 
1483KBO( :,52,10) = (/&
1484 & 6.7287E-03_JPRB,8.9323E-03_JPRB,1.1543E-02_JPRB,1.4581E-02_JPRB,1.8277E-02_JPRB/) 
1485KBO( :,53,10) = (/&
1486 & 4.9917E-03_JPRB,6.7318E-03_JPRB,8.8095E-03_JPRB,1.1255E-02_JPRB,1.4250E-02_JPRB/) 
1487KBO( :,54,10) = (/&
1488 & 3.7166E-03_JPRB,5.0897E-03_JPRB,6.7438E-03_JPRB,8.7155E-03_JPRB,1.1147E-02_JPRB/) 
1489KBO( :,55,10) = (/&
1490 & 2.7631E-03_JPRB,3.8456E-03_JPRB,5.1593E-03_JPRB,6.7476E-03_JPRB,8.7195E-03_JPRB/) 
1491KBO( :,56,10) = (/&
1492 & 2.0411E-03_JPRB,2.8905E-03_JPRB,3.9308E-03_JPRB,5.2031E-03_JPRB,6.7949E-03_JPRB/) 
1493KBO( :,57,10) = (/&
1494 & 1.4978E-03_JPRB,2.1598E-03_JPRB,2.9807E-03_JPRB,3.9948E-03_JPRB,5.2752E-03_JPRB/) 
1495KBO( :,58,10) = (/&
1496 & 1.0985E-03_JPRB,1.6142E-03_JPRB,2.2613E-03_JPRB,3.0687E-03_JPRB,4.0986E-03_JPRB/) 
1497KBO( :,59,10) = (/&
1498 & 8.6500E-04_JPRB,1.2833E-03_JPRB,1.8127E-03_JPRB,2.4817E-03_JPRB,3.3443E-03_JPRB/) 
1499KBO( :,13,11) = (/&
1500 & 1.8372E+01_JPRB,2.2531E+01_JPRB,2.6942E+01_JPRB,3.1721E+01_JPRB,3.6666E+01_JPRB/) 
1501KBO( :,14,11) = (/&
1502 & 1.6476E+01_JPRB,2.0266E+01_JPRB,2.4375E+01_JPRB,2.8673E+01_JPRB,3.2960E+01_JPRB/) 
1503KBO( :,15,11) = (/&
1504 & 1.4838E+01_JPRB,1.8258E+01_JPRB,2.1874E+01_JPRB,2.5540E+01_JPRB,2.9299E+01_JPRB/) 
1505KBO( :,16,11) = (/&
1506 & 1.3322E+01_JPRB,1.6282E+01_JPRB,1.9361E+01_JPRB,2.2553E+01_JPRB,2.5938E+01_JPRB/) 
1507KBO( :,17,11) = (/&
1508 & 1.1797E+01_JPRB,1.4340E+01_JPRB,1.7022E+01_JPRB,1.9865E+01_JPRB,2.2805E+01_JPRB/) 
1509KBO( :,18,11) = (/&
1510 & 1.0354E+01_JPRB,1.2576E+01_JPRB,1.4945E+01_JPRB,1.7409E+01_JPRB,1.9880E+01_JPRB/) 
1511KBO( :,19,11) = (/&
1512 & 9.0365E+00_JPRB,1.0980E+01_JPRB,1.3039E+01_JPRB,1.5152E+01_JPRB,1.7258E+01_JPRB/) 
1513KBO( :,20,11) = (/&
1514 & 7.8834E+00_JPRB,9.5695E+00_JPRB,1.1327E+01_JPRB,1.3132E+01_JPRB,1.4932E+01_JPRB/) 
1515KBO( :,21,11) = (/&
1516 & 6.8550E+00_JPRB,8.2970E+00_JPRB,9.8119E+00_JPRB,1.1335E+01_JPRB,1.2856E+01_JPRB/) 
1517KBO( :,22,11) = (/&
1518 & 6.0199E+00_JPRB,7.2562E+00_JPRB,8.5326E+00_JPRB,9.8104E+00_JPRB,1.1086E+01_JPRB/) 
1519KBO( :,23,11) = (/&
1520 & 5.2655E+00_JPRB,6.3155E+00_JPRB,7.3813E+00_JPRB,8.4546E+00_JPRB,9.5205E+00_JPRB/) 
1521KBO( :,24,11) = (/&
1522 & 4.5968E+00_JPRB,5.4765E+00_JPRB,6.3717E+00_JPRB,7.2772E+00_JPRB,8.1752E+00_JPRB/) 
1523KBO( :,25,11) = (/&
1524 & 4.0046E+00_JPRB,4.7437E+00_JPRB,5.5012E+00_JPRB,6.2582E+00_JPRB,7.0243E+00_JPRB/) 
1525KBO( :,26,11) = (/&
1526 & 3.4899E+00_JPRB,4.1156E+00_JPRB,4.7544E+00_JPRB,5.3978E+00_JPRB,6.0478E+00_JPRB/) 
1527KBO( :,27,11) = (/&
1528 & 3.0370E+00_JPRB,3.5704E+00_JPRB,4.1083E+00_JPRB,4.6559E+00_JPRB,5.2026E+00_JPRB/) 
1529KBO( :,28,11) = (/&
1530 & 2.6441E+00_JPRB,3.0908E+00_JPRB,3.5452E+00_JPRB,4.0092E+00_JPRB,4.4774E+00_JPRB/) 
1531KBO( :,29,11) = (/&
1532 & 2.2991E+00_JPRB,2.6744E+00_JPRB,3.0609E+00_JPRB,3.4545E+00_JPRB,3.8571E+00_JPRB/) 
1533KBO( :,30,11) = (/&
1534 & 1.9952E+00_JPRB,2.3130E+00_JPRB,2.6436E+00_JPRB,2.9785E+00_JPRB,3.3224E+00_JPRB/) 
1535KBO( :,31,11) = (/&
1536 & 1.7303E+00_JPRB,2.0035E+00_JPRB,2.2828E+00_JPRB,2.5698E+00_JPRB,2.8597E+00_JPRB/) 
1537KBO( :,32,11) = (/&
1538 & 1.5021E+00_JPRB,1.7349E+00_JPRB,1.9723E+00_JPRB,2.2162E+00_JPRB,2.4607E+00_JPRB/) 
1539KBO( :,33,11) = (/&
1540 & 1.3048E+00_JPRB,1.5022E+00_JPRB,1.7054E+00_JPRB,1.9112E+00_JPRB,2.1255E+00_JPRB/) 
1541KBO( :,34,11) = (/&
1542 & 1.1267E+00_JPRB,1.2952E+00_JPRB,1.4682E+00_JPRB,1.6457E+00_JPRB,1.8352E+00_JPRB/) 
1543KBO( :,35,11) = (/&
1544 & 9.5958E-01_JPRB,1.1033E+00_JPRB,1.2514E+00_JPRB,1.4063E+00_JPRB,1.5730E+00_JPRB/) 
1545
1546IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',1,ZHOOK_HANDLE)
1547END SUBROUTINE PART5
1548
1549
1550SUBROUTINE PART6
1551
1552REAL(KIND=JPRB) :: ZHOOK_HANDLE
1553IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',0,ZHOOK_HANDLE)
1554
1555
1556KBO( :,36,11) = (/&
1557 & 8.0543E-01_JPRB,9.2728E-01_JPRB,1.0546E+00_JPRB,1.1895E+00_JPRB,1.3346E+00_JPRB/) 
1558KBO( :,37,11) = (/&
1559 & 6.6117E-01_JPRB,7.6429E-01_JPRB,8.7311E-01_JPRB,9.8956E-01_JPRB,1.1138E+00_JPRB/) 
1560KBO( :,38,11) = (/&
1561 & 5.4219E-01_JPRB,6.2915E-01_JPRB,7.2220E-01_JPRB,8.2189E-01_JPRB,9.2832E-01_JPRB/) 
1562KBO( :,39,11) = (/&
1563 & 4.4474E-01_JPRB,5.1851E-01_JPRB,5.9758E-01_JPRB,6.8269E-01_JPRB,7.7379E-01_JPRB/) 
1564KBO( :,40,11) = (/&
1565 & 3.5874E-01_JPRB,4.2077E-01_JPRB,4.8738E-01_JPRB,5.5930E-01_JPRB,6.3666E-01_JPRB/) 
1566KBO( :,41,11) = (/&
1567 & 2.8809E-01_JPRB,3.4018E-01_JPRB,3.9623E-01_JPRB,4.5702E-01_JPRB,5.2265E-01_JPRB/) 
1568KBO( :,42,11) = (/&
1569 & 2.3093E-01_JPRB,2.7453E-01_JPRB,3.2175E-01_JPRB,3.7304E-01_JPRB,4.2866E-01_JPRB/) 
1570KBO( :,43,11) = (/&
1571 & 1.8286E-01_JPRB,2.1908E-01_JPRB,2.5860E-01_JPRB,3.0169E-01_JPRB,3.4866E-01_JPRB/) 
1572KBO( :,44,11) = (/&
1573 & 1.4371E-01_JPRB,1.7364E-01_JPRB,2.0655E-01_JPRB,2.4258E-01_JPRB,2.8218E-01_JPRB/) 
1574KBO( :,45,11) = (/&
1575 & 1.1254E-01_JPRB,1.3724E-01_JPRB,1.6458E-01_JPRB,1.9466E-01_JPRB,2.2800E-01_JPRB/) 
1576KBO( :,46,11) = (/&
1577 & 8.7419E-02_JPRB,1.0769E-01_JPRB,1.3029E-01_JPRB,1.5534E-01_JPRB,1.8325E-01_JPRB/) 
1578KBO( :,47,11) = (/&
1579 & 6.6946E-02_JPRB,8.3455E-02_JPRB,1.0198E-01_JPRB,1.2266E-01_JPRB,1.4588E-01_JPRB/) 
1580KBO( :,48,11) = (/&
1581 & 5.0941E-02_JPRB,6.4338E-02_JPRB,7.9485E-02_JPRB,9.6523E-02_JPRB,1.1573E-01_JPRB/) 
1582KBO( :,49,11) = (/&
1583 & 3.8506E-02_JPRB,4.9326E-02_JPRB,6.1662E-02_JPRB,7.5682E-02_JPRB,9.1536E-02_JPRB/) 
1584KBO( :,50,11) = (/&
1585 & 2.9103E-02_JPRB,3.7840E-02_JPRB,4.7868E-02_JPRB,5.9376E-02_JPRB,7.2482E-02_JPRB/) 
1586KBO( :,51,11) = (/&
1587 & 2.1916E-02_JPRB,2.8951E-02_JPRB,3.7067E-02_JPRB,4.6499E-02_JPRB,5.7317E-02_JPRB/) 
1588KBO( :,52,11) = (/&
1589 & 1.6392E-02_JPRB,2.2020E-02_JPRB,2.8575E-02_JPRB,3.6268E-02_JPRB,4.5169E-02_JPRB/) 
1590KBO( :,53,11) = (/&
1591 & 1.2172E-02_JPRB,1.6642E-02_JPRB,2.1908E-02_JPRB,2.8155E-02_JPRB,3.5457E-02_JPRB/) 
1592KBO( :,54,11) = (/&
1593 & 9.0658E-03_JPRB,1.2613E-02_JPRB,1.6847E-02_JPRB,2.1915E-02_JPRB,2.7906E-02_JPRB/) 
1594KBO( :,55,11) = (/&
1595 & 6.7444E-03_JPRB,9.5483E-03_JPRB,1.2947E-02_JPRB,1.7041E-02_JPRB,2.1954E-02_JPRB/) 
1596KBO( :,56,11) = (/&
1597 & 4.9837E-03_JPRB,7.1893E-03_JPRB,9.9031E-03_JPRB,1.3201E-02_JPRB,1.7215E-02_JPRB/) 
1598KBO( :,57,11) = (/&
1599 & 3.6555E-03_JPRB,5.3797E-03_JPRB,7.5345E-03_JPRB,1.0185E-02_JPRB,1.3448E-02_JPRB/) 
1600KBO( :,58,11) = (/&
1601 & 2.6798E-03_JPRB,4.0234E-03_JPRB,5.7322E-03_JPRB,7.8591E-03_JPRB,1.0509E-02_JPRB/) 
1602KBO( :,59,11) = (/&
1603 & 2.1174E-03_JPRB,3.2126E-03_JPRB,4.6178E-03_JPRB,6.3890E-03_JPRB,8.6307E-03_JPRB/) 
1604KBO( :,13,12) = (/&
1605 & 3.9037E+01_JPRB,4.8595E+01_JPRB,5.8290E+01_JPRB,6.7743E+01_JPRB,7.7175E+01_JPRB/) 
1606KBO( :,14,12) = (/&
1607 & 3.6731E+01_JPRB,4.5143E+01_JPRB,5.3367E+01_JPRB,6.1735E+01_JPRB,7.0266E+01_JPRB/) 
1608KBO( :,15,12) = (/&
1609 & 3.3782E+01_JPRB,4.1053E+01_JPRB,4.8465E+01_JPRB,5.6101E+01_JPRB,6.4046E+01_JPRB/) 
1610KBO( :,16,12) = (/&
1611 & 3.0361E+01_JPRB,3.6837E+01_JPRB,4.3692E+01_JPRB,5.0749E+01_JPRB,5.7770E+01_JPRB/) 
1612KBO( :,17,12) = (/&
1613 & 2.7181E+01_JPRB,3.3037E+01_JPRB,3.9122E+01_JPRB,4.5236E+01_JPRB,5.1302E+01_JPRB/) 
1614KBO( :,18,12) = (/&
1615 & 2.4289E+01_JPRB,2.9373E+01_JPRB,3.4573E+01_JPRB,3.9820E+01_JPRB,4.5254E+01_JPRB/) 
1616KBO( :,19,12) = (/&
1617 & 2.1489E+01_JPRB,2.5832E+01_JPRB,3.0286E+01_JPRB,3.4895E+01_JPRB,3.9728E+01_JPRB/) 
1618KBO( :,20,12) = (/&
1619 & 1.8889E+01_JPRB,2.2626E+01_JPRB,2.6516E+01_JPRB,3.0573E+01_JPRB,3.4729E+01_JPRB/) 
1620KBO( :,21,12) = (/&
1621 & 1.6499E+01_JPRB,1.9772E+01_JPRB,2.3169E+01_JPRB,2.6668E+01_JPRB,3.0247E+01_JPRB/) 
1622KBO( :,22,12) = (/&
1623 & 1.4564E+01_JPRB,1.7397E+01_JPRB,2.0332E+01_JPRB,2.3375E+01_JPRB,2.6482E+01_JPRB/) 
1624KBO( :,23,12) = (/&
1625 & 1.2811E+01_JPRB,1.5254E+01_JPRB,1.7803E+01_JPRB,2.0436E+01_JPRB,2.3110E+01_JPRB/) 
1626KBO( :,24,12) = (/&
1627 & 1.1250E+01_JPRB,1.3354E+01_JPRB,1.5549E+01_JPRB,1.7797E+01_JPRB,2.0094E+01_JPRB/) 
1628KBO( :,25,12) = (/&
1629 & 9.8597E+00_JPRB,1.1670E+01_JPRB,1.3537E+01_JPRB,1.5466E+01_JPRB,1.7423E+01_JPRB/) 
1630KBO( :,26,12) = (/&
1631 & 8.6447E+00_JPRB,1.0181E+01_JPRB,1.1779E+01_JPRB,1.3417E+01_JPRB,1.5081E+01_JPRB/) 
1632KBO( :,27,12) = (/&
1633 & 7.5594E+00_JPRB,8.8642E+00_JPRB,1.0226E+01_JPRB,1.1630E+01_JPRB,1.3058E+01_JPRB/) 
1634KBO( :,28,12) = (/&
1635 & 6.5925E+00_JPRB,7.7161E+00_JPRB,8.8897E+00_JPRB,1.0087E+01_JPRB,1.1327E+01_JPRB/) 
1636KBO( :,29,12) = (/&
1637 & 5.7565E+00_JPRB,6.7240E+00_JPRB,7.7268E+00_JPRB,8.7632E+00_JPRB,9.8409E+00_JPRB/) 
1638KBO( :,30,12) = (/&
1639 & 5.0290E+00_JPRB,5.8636E+00_JPRB,6.7247E+00_JPRB,7.6290E+00_JPRB,8.5599E+00_JPRB/) 
1640KBO( :,31,12) = (/&
1641 & 4.4035E+00_JPRB,5.1182E+00_JPRB,5.8680E+00_JPRB,6.6555E+00_JPRB,7.4665E+00_JPRB/) 
1642KBO( :,32,12) = (/&
1643 & 3.8578E+00_JPRB,4.4752E+00_JPRB,5.1308E+00_JPRB,5.8151E+00_JPRB,6.5278E+00_JPRB/) 
1644KBO( :,33,12) = (/&
1645 & 3.3794E+00_JPRB,3.9167E+00_JPRB,4.4904E+00_JPRB,5.0880E+00_JPRB,5.7148E+00_JPRB/) 
1646KBO( :,34,12) = (/&
1647 & 2.9486E+00_JPRB,3.4193E+00_JPRB,3.9167E+00_JPRB,4.4410E+00_JPRB,4.9898E+00_JPRB/) 
1648KBO( :,35,12) = (/&
1649 & 2.5384E+00_JPRB,2.9485E+00_JPRB,3.3806E+00_JPRB,3.8382E+00_JPRB,4.3138E+00_JPRB/) 
1650KBO( :,36,12) = (/&
1651 & 2.1524E+00_JPRB,2.5062E+00_JPRB,2.8802E+00_JPRB,3.2776E+00_JPRB,3.6933E+00_JPRB/) 
1652KBO( :,37,12) = (/&
1653 & 1.7833E+00_JPRB,2.0847E+00_JPRB,2.4072E+00_JPRB,2.7505E+00_JPRB,3.1124E+00_JPRB/) 
1654KBO( :,38,12) = (/&
1655 & 1.4749E+00_JPRB,1.7326E+00_JPRB,2.0108E+00_JPRB,2.3067E+00_JPRB,2.6244E+00_JPRB/) 
1656KBO( :,39,12) = (/&
1657 & 1.2194E+00_JPRB,1.4403E+00_JPRB,1.6807E+00_JPRB,1.9373E+00_JPRB,2.2164E+00_JPRB/) 
1658KBO( :,40,12) = (/&
1659 & 9.9010E-01_JPRB,1.1776E+00_JPRB,1.3838E+00_JPRB,1.6055E+00_JPRB,1.8489E+00_JPRB/) 
1660KBO( :,41,12) = (/&
1661 & 8.0150E-01_JPRB,9.6002E-01_JPRB,1.1360E+00_JPRB,1.3281E+00_JPRB,1.5396E+00_JPRB/) 
1662KBO( :,42,12) = (/&
1663 & 6.4778E-01_JPRB,7.8194E-01_JPRB,9.3223E-01_JPRB,1.0980E+00_JPRB,1.2824E+00_JPRB/) 
1664KBO( :,43,12) = (/&
1665 & 5.1676E-01_JPRB,6.2955E-01_JPRB,7.5710E-01_JPRB,8.9908E-01_JPRB,1.0583E+00_JPRB/) 
1666KBO( :,44,12) = (/&
1667 & 4.0901E-01_JPRB,5.0320E-01_JPRB,6.1071E-01_JPRB,7.3181E-01_JPRB,8.6848E-01_JPRB/) 
1668KBO( :,45,12) = (/&
1669 & 3.2265E-01_JPRB,4.0131E-01_JPRB,4.9147E-01_JPRB,5.9412E-01_JPRB,7.1124E-01_JPRB/) 
1670KBO( :,46,12) = (/&
1671 & 2.5210E-01_JPRB,3.1747E-01_JPRB,3.9284E-01_JPRB,4.7937E-01_JPRB,5.7886E-01_JPRB/) 
1672KBO( :,47,12) = (/&
1673 & 1.9387E-01_JPRB,2.4750E-01_JPRB,3.1014E-01_JPRB,3.8262E-01_JPRB,4.6634E-01_JPRB/) 
1674KBO( :,48,12) = (/&
1675 & 1.4828E-01_JPRB,1.9192E-01_JPRB,2.4351E-01_JPRB,3.0403E-01_JPRB,3.7442E-01_JPRB/) 
1676KBO( :,49,12) = (/&
1677 & 1.1268E-01_JPRB,1.4796E-01_JPRB,1.9021E-01_JPRB,2.4026E-01_JPRB,2.9934E-01_JPRB/) 
1678KBO( :,50,12) = (/&
1679 & 8.5692E-02_JPRB,1.1419E-01_JPRB,1.4876E-01_JPRB,1.9007E-01_JPRB,2.3948E-01_JPRB/) 
1680KBO( :,51,12) = (/&
1681 & 6.4968E-02_JPRB,8.7898E-02_JPRB,1.1604E-01_JPRB,1.5016E-01_JPRB,1.9137E-01_JPRB/) 
1682KBO( :,52,12) = (/&
1683 & 4.8913E-02_JPRB,6.7280E-02_JPRB,9.0117E-02_JPRB,1.1814E-01_JPRB,1.5238E-01_JPRB/) 
1684KBO( :,53,12) = (/&
1685 & 3.6537E-02_JPRB,5.1125E-02_JPRB,6.9609E-02_JPRB,9.2472E-02_JPRB,1.2076E-01_JPRB/) 
1686KBO( :,54,12) = (/&
1687 & 2.7389E-02_JPRB,3.8999E-02_JPRB,5.3932E-02_JPRB,7.2676E-02_JPRB,9.6049E-02_JPRB/) 
1688KBO( :,55,12) = (/&
1689 & 2.0487E-02_JPRB,2.9701E-02_JPRB,4.1725E-02_JPRB,5.7075E-02_JPRB,7.6390E-02_JPRB/) 
1690KBO( :,56,12) = (/&
1691 & 1.5211E-02_JPRB,2.2473E-02_JPRB,3.2096E-02_JPRB,4.4552E-02_JPRB,6.0534E-02_JPRB/) 
1692KBO( :,57,12) = (/&
1693 & 1.1206E-02_JPRB,1.6892E-02_JPRB,2.4543E-02_JPRB,3.4596E-02_JPRB,4.7689E-02_JPRB/) 
1694KBO( :,58,12) = (/&
1695 & 8.2520E-03_JPRB,1.2686E-02_JPRB,1.8758E-02_JPRB,2.6873E-02_JPRB,3.7588E-02_JPRB/) 
1696KBO( :,59,12) = (/&
1697 & 6.5700E-03_JPRB,1.0221E-02_JPRB,1.5297E-02_JPRB,2.2161E-02_JPRB,3.1343E-02_JPRB/) 
1698KBO( :,13,13) = (/&
1699 & 9.2129E+01_JPRB,1.1302E+02_JPRB,1.3488E+02_JPRB,1.5732E+02_JPRB,1.8023E+02_JPRB/) 
1700KBO( :,14,13) = (/&
1701 & 8.7183E+01_JPRB,1.0718E+02_JPRB,1.2873E+02_JPRB,1.5116E+02_JPRB,1.7346E+02_JPRB/) 
1702KBO( :,15,13) = (/&
1703 & 8.2328E+01_JPRB,1.0157E+02_JPRB,1.2222E+02_JPRB,1.4315E+02_JPRB,1.6347E+02_JPRB/) 
1704KBO( :,16,13) = (/&
1705 & 7.8040E+01_JPRB,9.6014E+01_JPRB,1.1471E+02_JPRB,1.3306E+02_JPRB,1.5181E+02_JPRB/) 
1706KBO( :,17,13) = (/&
1707 & 7.3174E+01_JPRB,8.9440E+01_JPRB,1.0586E+02_JPRB,1.2255E+02_JPRB,1.3976E+02_JPRB/) 
1708KBO( :,18,13) = (/&
1709 & 6.7948E+01_JPRB,8.2226E+01_JPRB,9.6794E+01_JPRB,1.1202E+02_JPRB,1.2767E+02_JPRB/) 
1710KBO( :,19,13) = (/&
1711 & 6.1809E+01_JPRB,7.4613E+01_JPRB,8.7919E+01_JPRB,1.0172E+02_JPRB,1.1585E+02_JPRB/) 
1712KBO( :,20,13) = (/&
1713 & 5.5733E+01_JPRB,6.7276E+01_JPRB,7.9378E+01_JPRB,9.1765E+01_JPRB,1.0432E+02_JPRB/) 
1714KBO( :,21,13) = (/&
1715 & 5.0119E+01_JPRB,6.0399E+01_JPRB,7.1023E+01_JPRB,8.1955E+01_JPRB,9.3098E+01_JPRB/) 
1716KBO( :,22,13) = (/&
1717 & 4.5387E+01_JPRB,5.4362E+01_JPRB,6.3623E+01_JPRB,7.3263E+01_JPRB,8.3176E+01_JPRB/) 
1718KBO( :,23,13) = (/&
1719 & 4.0785E+01_JPRB,4.8586E+01_JPRB,5.6740E+01_JPRB,6.5256E+01_JPRB,7.4004E+01_JPRB/) 
1720KBO( :,24,13) = (/&
1721 & 3.6418E+01_JPRB,4.3297E+01_JPRB,5.0491E+01_JPRB,5.7972E+01_JPRB,6.5666E+01_JPRB/) 
1722KBO( :,25,13) = (/&
1723 & 3.2482E+01_JPRB,3.8561E+01_JPRB,4.4879E+01_JPRB,5.1407E+01_JPRB,5.8182E+01_JPRB/) 
1724KBO( :,26,13) = (/&
1725 & 2.9006E+01_JPRB,3.4335E+01_JPRB,3.9885E+01_JPRB,4.5662E+01_JPRB,5.1599E+01_JPRB/) 
1726KBO( :,27,13) = (/&
1727 & 2.5837E+01_JPRB,3.0498E+01_JPRB,3.5383E+01_JPRB,4.0444E+01_JPRB,4.5658E+01_JPRB/) 
1728KBO( :,28,13) = (/&
1729 & 2.2962E+01_JPRB,2.7037E+01_JPRB,3.1320E+01_JPRB,3.5758E+01_JPRB,4.0290E+01_JPRB/) 
1730KBO( :,29,13) = (/&
1731 & 2.0397E+01_JPRB,2.3995E+01_JPRB,2.7731E+01_JPRB,3.1631E+01_JPRB,3.5578E+01_JPRB/) 
1732KBO( :,30,13) = (/&
1733 & 1.8112E+01_JPRB,2.1250E+01_JPRB,2.4540E+01_JPRB,2.7936E+01_JPRB,3.1421E+01_JPRB/) 
1734KBO( :,31,13) = (/&
1735 & 1.6067E+01_JPRB,1.8811E+01_JPRB,2.1703E+01_JPRB,2.4693E+01_JPRB,2.7776E+01_JPRB/) 
1736KBO( :,32,13) = (/&
1737 & 1.4258E+01_JPRB,1.6681E+01_JPRB,1.9216E+01_JPRB,2.1851E+01_JPRB,2.4609E+01_JPRB/) 
1738KBO( :,33,13) = (/&
1739 & 1.2678E+01_JPRB,1.4812E+01_JPRB,1.7059E+01_JPRB,1.9407E+01_JPRB,2.1877E+01_JPRB/) 
1740KBO( :,34,13) = (/&
1741 & 1.1234E+01_JPRB,1.3124E+01_JPRB,1.5116E+01_JPRB,1.7220E+01_JPRB,1.9477E+01_JPRB/) 
1742KBO( :,35,13) = (/&
1743 & 9.8183E+00_JPRB,1.1494E+01_JPRB,1.3264E+01_JPRB,1.5165E+01_JPRB,1.7217E+01_JPRB/) 
1744KBO( :,36,13) = (/&
1745 & 8.4512E+00_JPRB,9.9248E+00_JPRB,1.1505E+01_JPRB,1.3215E+01_JPRB,1.5066E+01_JPRB/) 
1746KBO( :,37,13) = (/&
1747 & 7.1046E+00_JPRB,8.3927E+00_JPRB,9.7872E+00_JPRB,1.1310E+01_JPRB,1.2976E+01_JPRB/) 
1748KBO( :,38,13) = (/&
1749 & 5.9713E+00_JPRB,7.0990E+00_JPRB,8.3334E+00_JPRB,9.6940E+00_JPRB,1.1182E+01_JPRB/) 
1750KBO( :,39,13) = (/&
1751 & 5.0257E+00_JPRB,6.0152E+00_JPRB,7.1078E+00_JPRB,8.3261E+00_JPRB,9.6615E+00_JPRB/) 
1752KBO( :,40,13) = (/&
1753 & 4.1523E+00_JPRB,5.0116E+00_JPRB,5.9715E+00_JPRB,7.0484E+00_JPRB,8.2344E+00_JPRB/) 
1754KBO( :,41,13) = (/&
1755 & 3.4206E+00_JPRB,4.1640E+00_JPRB,5.0022E+00_JPRB,5.9574E+00_JPRB,7.0137E+00_JPRB/) 
1756KBO( :,42,13) = (/&
1757 & 2.8151E+00_JPRB,3.4582E+00_JPRB,4.1916E+00_JPRB,5.0330E+00_JPRB,5.9745E+00_JPRB/) 
1758KBO( :,43,13) = (/&
1759 & 2.2836E+00_JPRB,2.8346E+00_JPRB,3.4702E+00_JPRB,4.2076E+00_JPRB,5.0392E+00_JPRB/) 
1760KBO( :,44,13) = (/&
1761 & 1.8358E+00_JPRB,2.3065E+00_JPRB,2.8540E+00_JPRB,3.4947E+00_JPRB,4.2292E+00_JPRB/) 
1762KBO( :,45,13) = (/&
1763 & 1.4699E+00_JPRB,1.8708E+00_JPRB,2.3414E+00_JPRB,2.8971E+00_JPRB,3.5454E+00_JPRB/) 
1764KBO( :,46,13) = (/&
1765 & 1.1650E+00_JPRB,1.5043E+00_JPRB,1.9061E+00_JPRB,2.3856E+00_JPRB,2.9537E+00_JPRB/) 
1766KBO( :,47,13) = (/&
1767 & 9.0755E-01_JPRB,1.1912E+00_JPRB,1.5311E+00_JPRB,1.9396E+00_JPRB,2.4325E+00_JPRB/) 
1768KBO( :,48,13) = (/&
1769 & 7.0184E-01_JPRB,9.3709E-01_JPRB,1.2239E+00_JPRB,1.5710E+00_JPRB,1.9958E+00_JPRB/) 
1770KBO( :,49,13) = (/&
1771 & 5.3970E-01_JPRB,7.3243E-01_JPRB,9.7194E-01_JPRB,1.2677E+00_JPRB,1.6307E+00_JPRB/) 
1772KBO( :,50,13) = (/&
1773 & 4.1584E-01_JPRB,5.7380E-01_JPRB,7.7303E-01_JPRB,1.0235E+00_JPRB,1.3360E+00_JPRB/) 
1774KBO( :,51,13) = (/&
1775 & 3.1970E-01_JPRB,4.4857E-01_JPRB,6.1406E-01_JPRB,8.2493E-01_JPRB,1.0932E+00_JPRB/) 
1776KBO( :,52,13) = (/&
1777 & 2.4403E-01_JPRB,3.4872E-01_JPRB,4.8565E-01_JPRB,6.6228E-01_JPRB,8.9043E-01_JPRB/) 
1778KBO( :,53,13) = (/&
1779 & 1.8461E-01_JPRB,2.6942E-01_JPRB,3.8200E-01_JPRB,5.2938E-01_JPRB,7.2205E-01_JPRB/) 
1780KBO( :,54,13) = (/&
1781 & 1.4016E-01_JPRB,2.0879E-01_JPRB,3.0199E-01_JPRB,4.2537E-01_JPRB,5.8863E-01_JPRB/) 
1782KBO( :,55,13) = (/&
1783 & 1.0627E-01_JPRB,1.6160E-01_JPRB,2.3840E-01_JPRB,3.4179E-01_JPRB,4.8036E-01_JPRB/) 
1784KBO( :,56,13) = (/&
1785 & 7.9975E-02_JPRB,1.2430E-01_JPRB,1.8699E-01_JPRB,2.7356E-01_JPRB,3.9081E-01_JPRB/) 
1786KBO( :,57,13) = (/&
1787 & 5.9672E-02_JPRB,9.4998E-02_JPRB,1.4581E-01_JPRB,2.1774E-01_JPRB,3.1655E-01_JPRB/) 
1788KBO( :,58,13) = (/&
1789 & 4.4475E-02_JPRB,7.2566E-02_JPRB,1.1372E-01_JPRB,1.7325E-01_JPRB,2.5698E-01_JPRB/) 
1790KBO( :,59,13) = (/&
1791 & 3.6215E-02_JPRB,6.0132E-02_JPRB,9.5691E-02_JPRB,1.4806E-01_JPRB,2.2323E-01_JPRB/) 
1792KBO( :,13,14) = (/&
1793 & 2.6336E+02_JPRB,3.2548E+02_JPRB,3.9074E+02_JPRB,4.5756E+02_JPRB,5.2579E+02_JPRB/) 
1794KBO( :,14,14) = (/&
1795 & 2.7039E+02_JPRB,3.3171E+02_JPRB,3.9551E+02_JPRB,4.6127E+02_JPRB,5.2944E+02_JPRB/) 
1796KBO( :,15,14) = (/&
1797 & 2.7394E+02_JPRB,3.3456E+02_JPRB,3.9772E+02_JPRB,4.6386E+02_JPRB,5.3259E+02_JPRB/) 
1798KBO( :,16,14) = (/&
1799 & 2.7489E+02_JPRB,3.3472E+02_JPRB,3.9868E+02_JPRB,4.6474E+02_JPRB,5.3170E+02_JPRB/) 
1800KBO( :,17,14) = (/&
1801 & 2.7361E+02_JPRB,3.3269E+02_JPRB,3.9532E+02_JPRB,4.5778E+02_JPRB,5.2000E+02_JPRB/) 
1802KBO( :,18,14) = (/&
1803 & 2.6867E+02_JPRB,3.2519E+02_JPRB,3.8389E+02_JPRB,4.4282E+02_JPRB,5.0150E+02_JPRB/) 
1804KBO( :,19,14) = (/&
1805 & 2.5965E+02_JPRB,3.1265E+02_JPRB,3.6765E+02_JPRB,4.2321E+02_JPRB,4.7874E+02_JPRB/) 
1806KBO( :,20,14) = (/&
1807 & 2.4734E+02_JPRB,2.9762E+02_JPRB,3.4946E+02_JPRB,4.0232E+02_JPRB,4.5540E+02_JPRB/) 
1808KBO( :,21,14) = (/&
1809 & 2.3283E+02_JPRB,2.7966E+02_JPRB,3.2877E+02_JPRB,3.7834E+02_JPRB,4.2789E+02_JPRB/) 
1810KBO( :,22,14) = (/&
1811 & 2.2036E+02_JPRB,2.6406E+02_JPRB,3.0915E+02_JPRB,3.5433E+02_JPRB,3.9946E+02_JPRB/) 
1812KBO( :,23,14) = (/&
1813 & 2.0698E+02_JPRB,2.4687E+02_JPRB,2.8731E+02_JPRB,3.2870E+02_JPRB,3.7050E+02_JPRB/) 
1814KBO( :,24,14) = (/&
1815 & 1.9330E+02_JPRB,2.2881E+02_JPRB,2.6520E+02_JPRB,3.0278E+02_JPRB,3.4148E+02_JPRB/) 
1816KBO( :,25,14) = (/&
1817 & 1.7915E+02_JPRB,2.1082E+02_JPRB,2.4386E+02_JPRB,2.7843E+02_JPRB,3.1413E+02_JPRB/) 
1818KBO( :,26,14) = (/&
1819 & 1.6500E+02_JPRB,1.9389E+02_JPRB,2.2412E+02_JPRB,2.5557E+02_JPRB,2.8754E+02_JPRB/) 
1820KBO( :,27,14) = (/&
1821 & 1.5126E+02_JPRB,1.7765E+02_JPRB,2.0524E+02_JPRB,2.3351E+02_JPRB,2.6284E+02_JPRB/) 
1822KBO( :,28,14) = (/&
1823 & 1.3836E+02_JPRB,1.6228E+02_JPRB,1.8728E+02_JPRB,2.1350E+02_JPRB,2.4088E+02_JPRB/) 
1824KBO( :,29,14) = (/&
1825 & 1.2669E+02_JPRB,1.4825E+02_JPRB,1.7120E+02_JPRB,1.9571E+02_JPRB,2.2144E+02_JPRB/) 
1826KBO( :,30,14) = (/&
1827 & 1.1586E+02_JPRB,1.3560E+02_JPRB,1.5706E+02_JPRB,1.7985E+02_JPRB,2.0425E+02_JPRB/) 
1828KBO( :,31,14) = (/&
1829 & 1.0606E+02_JPRB,1.2445E+02_JPRB,1.4457E+02_JPRB,1.6605E+02_JPRB,1.8909E+02_JPRB/) 
1830KBO( :,32,14) = (/&
1831 & 9.7506E+01_JPRB,1.1472E+02_JPRB,1.3364E+02_JPRB,1.5393E+02_JPRB,1.7576E+02_JPRB/) 
1832KBO( :,33,14) = (/&
1833 & 9.0128E+01_JPRB,1.0634E+02_JPRB,1.2404E+02_JPRB,1.4330E+02_JPRB,1.6431E+02_JPRB/) 
1834KBO( :,34,14) = (/&
1835 & 8.3269E+01_JPRB,9.8432E+01_JPRB,1.1521E+02_JPRB,1.3353E+02_JPRB,1.5390E+02_JPRB/) 
1836KBO( :,35,14) = (/&
1837 & 7.5995E+01_JPRB,9.0208E+01_JPRB,1.0603E+02_JPRB,1.2357E+02_JPRB,1.4330E+02_JPRB/) 
1838KBO( :,36,14) = (/&
1839 & 6.8313E+01_JPRB,8.1602E+01_JPRB,9.6446E+01_JPRB,1.1317E+02_JPRB,1.3204E+02_JPRB/) 
1840KBO( :,37,14) = (/&
1841 & 5.9886E+01_JPRB,7.2145E+01_JPRB,8.5923E+01_JPRB,1.0161E+02_JPRB,1.1943E+02_JPRB/) 
1842KBO( :,38,14) = (/&
1843 & 5.2518E+01_JPRB,6.3836E+01_JPRB,7.6674E+01_JPRB,9.1446E+01_JPRB,1.0826E+02_JPRB/) 
1844KBO( :,39,14) = (/&
1845 & 4.6141E+01_JPRB,5.6624E+01_JPRB,6.8640E+01_JPRB,8.2585E+01_JPRB,9.8545E+01_JPRB/) 
1846
1847IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',1,ZHOOK_HANDLE)
1848END SUBROUTINE PART6
1849
1850
1851SUBROUTINE PART7
1852
1853REAL(KIND=JPRB) :: ZHOOK_HANDLE
1854IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',0,ZHOOK_HANDLE)
1855
1856
1857KBO( :,40,14) = (/&
1858 & 3.9743E+01_JPRB,4.9296E+01_JPRB,6.0431E+01_JPRB,7.3425E+01_JPRB,8.8431E+01_JPRB/) 
1859KBO( :,41,14) = (/&
1860 & 3.4132E+01_JPRB,4.2840E+01_JPRB,5.3118E+01_JPRB,6.5214E+01_JPRB,7.9338E+01_JPRB/) 
1861KBO( :,42,14) = (/&
1862 & 2.9302E+01_JPRB,3.7264E+01_JPRB,4.6737E+01_JPRB,5.8014E+01_JPRB,7.1287E+01_JPRB/) 
1863KBO( :,43,14) = (/&
1864 & 2.4764E+01_JPRB,3.1960E+01_JPRB,4.0612E+01_JPRB,5.1039E+01_JPRB,6.3433E+01_JPRB/) 
1865KBO( :,44,14) = (/&
1866 & 2.0724E+01_JPRB,2.7192E+01_JPRB,3.5067E+01_JPRB,4.4640E+01_JPRB,5.6164E+01_JPRB/) 
1867KBO( :,45,14) = (/&
1868 & 1.7302E+01_JPRB,2.3086E+01_JPRB,3.0232E+01_JPRB,3.8995E+01_JPRB,4.9699E+01_JPRB/) 
1869KBO( :,46,14) = (/&
1870 & 1.4294E+01_JPRB,1.9412E+01_JPRB,2.5856E+01_JPRB,3.3850E+01_JPRB,4.3695E+01_JPRB/) 
1871KBO( :,47,14) = (/&
1872 & 1.1576E+01_JPRB,1.6045E+01_JPRB,2.1765E+01_JPRB,2.8969E+01_JPRB,3.7957E+01_JPRB/) 
1873KBO( :,48,14) = (/&
1874 & 9.3047E+00_JPRB,1.3187E+01_JPRB,1.8238E+01_JPRB,2.4704E+01_JPRB,3.2846E+01_JPRB/) 
1875KBO( :,49,14) = (/&
1876 & 7.4233E+00_JPRB,1.0766E+01_JPRB,1.5205E+01_JPRB,2.0973E+01_JPRB,2.8303E+01_JPRB/) 
1877KBO( :,50,14) = (/&
1878 & 5.9319E+00_JPRB,8.8036E+00_JPRB,1.2699E+01_JPRB,1.7857E+01_JPRB,2.4492E+01_JPRB/) 
1879KBO( :,51,14) = (/&
1880 & 4.7353E+00_JPRB,7.1869E+00_JPRB,1.0601E+01_JPRB,1.5199E+01_JPRB,2.1205E+01_JPRB/) 
1881KBO( :,52,14) = (/&
1882 & 3.7469E+00_JPRB,5.8275E+00_JPRB,8.7938E+00_JPRB,1.2866E+01_JPRB,1.8302E+01_JPRB/) 
1883KBO( :,53,14) = (/&
1884 & 2.9368E+00_JPRB,4.6957E+00_JPRB,7.2478E+00_JPRB,1.0838E+01_JPRB,1.5721E+01_JPRB/) 
1885KBO( :,54,14) = (/&
1886 & 2.3156E+00_JPRB,3.8057E+00_JPRB,6.0167E+00_JPRB,9.1925E+00_JPRB,1.3590E+01_JPRB/) 
1887KBO( :,55,14) = (/&
1888 & 1.8252E+00_JPRB,3.0811E+00_JPRB,5.0017E+00_JPRB,7.8029E+00_JPRB,1.1764E+01_JPRB/) 
1889KBO( :,56,14) = (/&
1890 & 1.4272E+00_JPRB,2.4767E+00_JPRB,4.1376E+00_JPRB,6.5946E+00_JPRB,1.0136E+01_JPRB/) 
1891KBO( :,57,14) = (/&
1892 & 1.1086E+00_JPRB,1.9781E+00_JPRB,3.3958E+00_JPRB,5.5471E+00_JPRB,8.7031E+00_JPRB/) 
1893KBO( :,58,14) = (/&
1894 & 8.6140E-01_JPRB,1.5824E+00_JPRB,2.7911E+00_JPRB,4.6768E+00_JPRB,7.4888E+00_JPRB/) 
1895KBO( :,59,14) = (/&
1896 & 7.4828E-01_JPRB,1.4056E+00_JPRB,2.5265E+00_JPRB,4.3052E+00_JPRB,6.9802E+00_JPRB/) 
1897KBO( :,13,15) = (/&
1898 & 1.0111E+03_JPRB,1.2570E+03_JPRB,1.4901E+03_JPRB,1.7375E+03_JPRB,1.9647E+03_JPRB/) 
1899KBO( :,14,15) = (/&
1900 & 1.0798E+03_JPRB,1.3354E+03_JPRB,1.5807E+03_JPRB,1.8253E+03_JPRB,2.0644E+03_JPRB/) 
1901KBO( :,15,15) = (/&
1902 & 1.1550E+03_JPRB,1.4096E+03_JPRB,1.6671E+03_JPRB,1.9146E+03_JPRB,2.1680E+03_JPRB/) 
1903KBO( :,16,15) = (/&
1904 & 1.2133E+03_JPRB,1.4796E+03_JPRB,1.7458E+03_JPRB,1.9980E+03_JPRB,2.2730E+03_JPRB/) 
1905KBO( :,17,15) = (/&
1906 & 1.2650E+03_JPRB,1.5359E+03_JPRB,1.8049E+03_JPRB,2.0803E+03_JPRB,2.3678E+03_JPRB/) 
1907KBO( :,18,15) = (/&
1908 & 1.3114E+03_JPRB,1.5935E+03_JPRB,1.8807E+03_JPRB,2.1759E+03_JPRB,2.4722E+03_JPRB/) 
1909KBO( :,19,15) = (/&
1910 & 1.3601E+03_JPRB,1.6562E+03_JPRB,1.9621E+03_JPRB,2.2640E+03_JPRB,2.5731E+03_JPRB/) 
1911KBO( :,20,15) = (/&
1912 & 1.4219E+03_JPRB,1.7257E+03_JPRB,2.0357E+03_JPRB,2.3424E+03_JPRB,2.6494E+03_JPRB/) 
1913KBO( :,21,15) = (/&
1914 & 1.4797E+03_JPRB,1.7824E+03_JPRB,2.0872E+03_JPRB,2.4001E+03_JPRB,2.7105E+03_JPRB/) 
1915KBO( :,22,15) = (/&
1916 & 1.5335E+03_JPRB,1.8378E+03_JPRB,2.1448E+03_JPRB,2.4560E+03_JPRB,2.7714E+03_JPRB/) 
1917KBO( :,23,15) = (/&
1918 & 1.5773E+03_JPRB,1.8793E+03_JPRB,2.1836E+03_JPRB,2.4946E+03_JPRB,2.8114E+03_JPRB/) 
1919KBO( :,24,15) = (/&
1920 & 1.6080E+03_JPRB,1.9047E+03_JPRB,2.2086E+03_JPRB,2.5288E+03_JPRB,2.8346E+03_JPRB/) 
1921KBO( :,25,15) = (/&
1922 & 1.6263E+03_JPRB,1.9189E+03_JPRB,2.2269E+03_JPRB,2.5372E+03_JPRB,2.8437E+03_JPRB/) 
1923KBO( :,26,15) = (/&
1924 & 1.6402E+03_JPRB,1.9311E+03_JPRB,2.2342E+03_JPRB,2.5429E+03_JPRB,2.8526E+03_JPRB/) 
1925KBO( :,27,15) = (/&
1926 & 1.6484E+03_JPRB,1.9393E+03_JPRB,2.2378E+03_JPRB,2.5479E+03_JPRB,2.8584E+03_JPRB/) 
1927KBO( :,28,15) = (/&
1928 & 1.6552E+03_JPRB,1.9438E+03_JPRB,2.2426E+03_JPRB,2.5488E+03_JPRB,2.8513E+03_JPRB/) 
1929KBO( :,29,15) = (/&
1930 & 1.6623E+03_JPRB,1.9469E+03_JPRB,2.2435E+03_JPRB,2.5469E+03_JPRB,2.8487E+03_JPRB/) 
1931KBO( :,30,15) = (/&
1932 & 1.6645E+03_JPRB,1.9461E+03_JPRB,2.2408E+03_JPRB,2.5383E+03_JPRB,2.8471E+03_JPRB/) 
1933KBO( :,31,15) = (/&
1934 & 1.6666E+03_JPRB,1.9464E+03_JPRB,2.2424E+03_JPRB,2.5437E+03_JPRB,2.8541E+03_JPRB/) 
1935KBO( :,32,15) = (/&
1936 & 1.6715E+03_JPRB,1.9532E+03_JPRB,2.2512E+03_JPRB,2.5534E+03_JPRB,2.8676E+03_JPRB/) 
1937KBO( :,33,15) = (/&
1938 & 1.6819E+03_JPRB,1.9666E+03_JPRB,2.2688E+03_JPRB,2.5748E+03_JPRB,2.8918E+03_JPRB/) 
1939KBO( :,34,15) = (/&
1940 & 1.6895E+03_JPRB,1.9778E+03_JPRB,2.2816E+03_JPRB,2.5925E+03_JPRB,2.9158E+03_JPRB/) 
1941KBO( :,35,15) = (/&
1942 & 1.6762E+03_JPRB,1.9659E+03_JPRB,2.2723E+03_JPRB,2.5875E+03_JPRB,2.9156E+03_JPRB/) 
1943KBO( :,36,15) = (/&
1944 & 1.6393E+03_JPRB,1.9297E+03_JPRB,2.2372E+03_JPRB,2.5554E+03_JPRB,2.8869E+03_JPRB/) 
1945KBO( :,37,15) = (/&
1946 & 1.5657E+03_JPRB,1.8547E+03_JPRB,2.1621E+03_JPRB,2.4812E+03_JPRB,2.8134E+03_JPRB/) 
1947KBO( :,38,15) = (/&
1948 & 1.4959E+03_JPRB,1.7834E+03_JPRB,2.0905E+03_JPRB,2.4085E+03_JPRB,2.7423E+03_JPRB/) 
1949KBO( :,39,15) = (/&
1950 & 1.4312E+03_JPRB,1.7180E+03_JPRB,2.0231E+03_JPRB,2.3408E+03_JPRB,2.6756E+03_JPRB/) 
1951KBO( :,40,15) = (/&
1952 & 1.3437E+03_JPRB,1.6273E+03_JPRB,1.9282E+03_JPRB,2.2440E+03_JPRB,2.5841E+03_JPRB/) 
1953KBO( :,41,15) = (/&
1954 & 1.2581E+03_JPRB,1.5370E+03_JPRB,1.8334E+03_JPRB,2.1461E+03_JPRB,2.4843E+03_JPRB/) 
1955KBO( :,42,15) = (/&
1956 & 1.1774E+03_JPRB,1.4499E+03_JPRB,1.7425E+03_JPRB,2.0516E+03_JPRB,2.3873E+03_JPRB/) 
1957KBO( :,43,15) = (/&
1958 & 1.0861E+03_JPRB,1.3512E+03_JPRB,1.6377E+03_JPRB,1.9415E+03_JPRB,2.2734E+03_JPRB/) 
1959KBO( :,44,15) = (/&
1960 & 9.9323E+02_JPRB,1.2501E+03_JPRB,1.5289E+03_JPRB,1.8275E+03_JPRB,2.1544E+03_JPRB/) 
1961KBO( :,45,15) = (/&
1962 & 9.0550E+02_JPRB,1.1536E+03_JPRB,1.4239E+03_JPRB,1.7214E+03_JPRB,2.0382E+03_JPRB/) 
1963KBO( :,46,15) = (/&
1964 & 8.1702E+02_JPRB,1.0558E+03_JPRB,1.3173E+03_JPRB,1.6071E+03_JPRB,1.9180E+03_JPRB/) 
1965KBO( :,47,15) = (/&
1966 & 7.2488E+02_JPRB,9.5181E+02_JPRB,1.2036E+03_JPRB,1.4836E+03_JPRB,1.7874E+03_JPRB/) 
1967KBO( :,48,15) = (/&
1968 & 6.3986E+02_JPRB,8.5318E+02_JPRB,1.0938E+03_JPRB,1.3648E+03_JPRB,1.6602E+03_JPRB/) 
1969KBO( :,49,15) = (/&
1970 & 5.5978E+02_JPRB,7.6064E+02_JPRB,9.8918E+02_JPRB,1.2514E+03_JPRB,1.5371E+03_JPRB/) 
1971KBO( :,50,15) = (/&
1972 & 4.9043E+02_JPRB,6.7832E+02_JPRB,8.9646E+02_JPRB,1.1489E+03_JPRB,1.4252E+03_JPRB/) 
1973KBO( :,51,15) = (/&
1974 & 4.2854E+02_JPRB,6.0344E+02_JPRB,8.1294E+02_JPRB,1.0522E+03_JPRB,1.3193E+03_JPRB/) 
1975KBO( :,52,15) = (/&
1976 & 3.7247E+02_JPRB,5.3364E+02_JPRB,7.3121E+02_JPRB,9.5966E+02_JPRB,1.2181E+03_JPRB/) 
1977KBO( :,53,15) = (/&
1978 & 3.2147E+02_JPRB,4.6899E+02_JPRB,6.5393E+02_JPRB,8.7133E+02_JPRB,1.1199E+03_JPRB/) 
1979KBO( :,54,15) = (/&
1980 & 2.7925E+02_JPRB,4.1444E+02_JPRB,5.8692E+02_JPRB,7.9382E+02_JPRB,1.0327E+03_JPRB/) 
1981KBO( :,55,15) = (/&
1982 & 2.4236E+02_JPRB,3.6648E+02_JPRB,5.2661E+02_JPRB,7.2283E+02_JPRB,9.5269E+02_JPRB/) 
1983KBO( :,56,15) = (/&
1984 & 2.0878E+02_JPRB,3.2240E+02_JPRB,4.7042E+02_JPRB,6.5558E+02_JPRB,8.7457E+02_JPRB/) 
1985KBO( :,57,15) = (/&
1986 & 1.7832E+02_JPRB,2.8217E+02_JPRB,4.1844E+02_JPRB,5.9173E+02_JPRB,8.0081E+02_JPRB/) 
1987KBO( :,58,15) = (/&
1988 & 1.5222E+02_JPRB,2.4706E+02_JPRB,3.7269E+02_JPRB,5.3459E+02_JPRB,7.3370E+02_JPRB/) 
1989KBO( :,59,15) = (/&
1990 & 1.4227E+02_JPRB,2.3374E+02_JPRB,3.5521E+02_JPRB,5.1259E+02_JPRB,7.0748E+02_JPRB/) 
1991KBO( :,13,16) = (/&
1992 & 3.6681E+03_JPRB,4.4146E+03_JPRB,5.0601E+03_JPRB,5.8217E+03_JPRB,6.4602E+03_JPRB/) 
1993KBO( :,14,16) = (/&
1994 & 4.1383E+03_JPRB,5.0055E+03_JPRB,5.7969E+03_JPRB,6.5815E+03_JPRB,7.3466E+03_JPRB/) 
1995KBO( :,15,16) = (/&
1996 & 4.7877E+03_JPRB,5.7010E+03_JPRB,6.6308E+03_JPRB,7.5076E+03_JPRB,8.4346E+03_JPRB/) 
1997KBO( :,16,16) = (/&
1998 & 5.4281E+03_JPRB,6.5150E+03_JPRB,7.5529E+03_JPRB,8.5202E+03_JPRB,9.5967E+03_JPRB/) 
1999KBO( :,17,16) = (/&
2000 & 6.1845E+03_JPRB,7.4144E+03_JPRB,8.5274E+03_JPRB,9.6391E+03_JPRB,1.0752E+04_JPRB/) 
2001KBO( :,18,16) = (/&
2002 & 7.0091E+03_JPRB,8.3702E+03_JPRB,9.5741E+03_JPRB,1.0846E+04_JPRB,1.1981E+04_JPRB/) 
2003KBO( :,19,16) = (/&
2004 & 7.8177E+03_JPRB,9.3538E+03_JPRB,1.0755E+04_JPRB,1.2016E+04_JPRB,1.3317E+04_JPRB/) 
2005KBO( :,20,16) = (/&
2006 & 8.7063E+03_JPRB,1.0319E+04_JPRB,1.1914E+04_JPRB,1.3366E+04_JPRB,1.4769E+04_JPRB/) 
2007KBO( :,21,16) = (/&
2008 & 9.6583E+03_JPRB,1.1430E+04_JPRB,1.3099E+04_JPRB,1.4798E+04_JPRB,1.6351E+04_JPRB/) 
2009KBO( :,22,16) = (/&
2010 & 1.0855E+04_JPRB,1.2791E+04_JPRB,1.4609E+04_JPRB,1.6400E+04_JPRB,1.8171E+04_JPRB/) 
2011KBO( :,23,16) = (/&
2012 & 1.2201E+04_JPRB,1.4278E+04_JPRB,1.6275E+04_JPRB,1.8206E+04_JPRB,2.0113E+04_JPRB/) 
2013KBO( :,24,16) = (/&
2014 & 1.3628E+04_JPRB,1.5860E+04_JPRB,1.8039E+04_JPRB,2.0176E+04_JPRB,2.2137E+04_JPRB/) 
2015KBO( :,25,16) = (/&
2016 & 1.5188E+04_JPRB,1.7579E+04_JPRB,1.9918E+04_JPRB,2.2170E+04_JPRB,2.4222E+04_JPRB/) 
2017KBO( :,26,16) = (/&
2018 & 1.6826E+04_JPRB,1.9365E+04_JPRB,2.1844E+04_JPRB,2.4184E+04_JPRB,2.6322E+04_JPRB/) 
2019KBO( :,27,16) = (/&
2020 & 1.8524E+04_JPRB,2.1162E+04_JPRB,2.3751E+04_JPRB,2.6170E+04_JPRB,2.8371E+04_JPRB/) 
2021KBO( :,28,16) = (/&
2022 & 2.0216E+04_JPRB,2.2951E+04_JPRB,2.5589E+04_JPRB,2.8116E+04_JPRB,3.0326E+04_JPRB/) 
2023KBO( :,29,16) = (/&
2024 & 2.1910E+04_JPRB,2.4742E+04_JPRB,2.7452E+04_JPRB,3.0040E+04_JPRB,3.2278E+04_JPRB/) 
2025KBO( :,30,16) = (/&
2026 & 2.3613E+04_JPRB,2.6515E+04_JPRB,2.9278E+04_JPRB,3.1815E+04_JPRB,3.4145E+04_JPRB/) 
2027KBO( :,31,16) = (/&
2028 & 2.5314E+04_JPRB,2.8268E+04_JPRB,3.1043E+04_JPRB,3.3568E+04_JPRB,3.5897E+04_JPRB/) 
2029KBO( :,32,16) = (/&
2030 & 2.6975E+04_JPRB,2.9937E+04_JPRB,3.2719E+04_JPRB,3.5244E+04_JPRB,3.7549E+04_JPRB/) 
2031KBO( :,33,16) = (/&
2032 & 2.8572E+04_JPRB,3.1529E+04_JPRB,3.4290E+04_JPRB,3.6787E+04_JPRB,3.9063E+04_JPRB/) 
2033KBO( :,34,16) = (/&
2034 & 2.9977E+04_JPRB,3.2921E+04_JPRB,3.5678E+04_JPRB,3.8134E+04_JPRB,4.0357E+04_JPRB/) 
2035KBO( :,35,16) = (/&
2036 & 3.0980E+04_JPRB,3.3963E+04_JPRB,3.6707E+04_JPRB,3.9142E+04_JPRB,4.1334E+04_JPRB/) 
2037KBO( :,36,16) = (/&
2038 & 3.1578E+04_JPRB,3.4586E+04_JPRB,3.7314E+04_JPRB,3.9783E+04_JPRB,4.1980E+04_JPRB/) 
2039KBO( :,37,16) = (/&
2040 & 3.1622E+04_JPRB,3.4683E+04_JPRB,3.7456E+04_JPRB,3.9972E+04_JPRB,4.2211E+04_JPRB/) 
2041KBO( :,38,16) = (/&
2042 & 3.1560E+04_JPRB,3.4667E+04_JPRB,3.7489E+04_JPRB,4.0060E+04_JPRB,4.2344E+04_JPRB/) 
2043KBO( :,39,16) = (/&
2044 & 3.1432E+04_JPRB,3.4581E+04_JPRB,3.7452E+04_JPRB,4.0068E+04_JPRB,4.2389E+04_JPRB/) 
2045KBO( :,40,16) = (/&
2046 & 3.0900E+04_JPRB,3.4111E+04_JPRB,3.7067E+04_JPRB,3.9756E+04_JPRB,4.2232E+04_JPRB/) 
2047KBO( :,41,16) = (/&
2048 & 3.0258E+04_JPRB,3.3539E+04_JPRB,3.6571E+04_JPRB,3.9344E+04_JPRB,4.1895E+04_JPRB/) 
2049KBO( :,42,16) = (/&
2050 & 2.9543E+04_JPRB,3.2906E+04_JPRB,3.6015E+04_JPRB,3.8861E+04_JPRB,4.1489E+04_JPRB/) 
2051KBO( :,43,16) = (/&
2052 & 2.8595E+04_JPRB,3.2035E+04_JPRB,3.5232E+04_JPRB,3.8174E+04_JPRB,4.0894E+04_JPRB/) 
2053KBO( :,44,16) = (/&
2054 & 2.7503E+04_JPRB,3.1021E+04_JPRB,3.4315E+04_JPRB,3.7350E+04_JPRB,4.0170E+04_JPRB/) 
2055KBO( :,45,16) = (/&
2056 & 2.6360E+04_JPRB,2.9953E+04_JPRB,3.3340E+04_JPRB,3.6512E+04_JPRB,3.9389E+04_JPRB/) 
2057KBO( :,46,16) = (/&
2058 & 2.5097E+04_JPRB,2.8760E+04_JPRB,3.2236E+04_JPRB,3.5509E+04_JPRB,3.8490E+04_JPRB/) 
2059KBO( :,47,16) = (/&
2060 & 2.3642E+04_JPRB,2.7372E+04_JPRB,3.0938E+04_JPRB,3.4319E+04_JPRB,3.7409E+04_JPRB/) 
2061KBO( :,48,16) = (/&
2062 & 2.2183E+04_JPRB,2.5937E+04_JPRB,2.9591E+04_JPRB,3.3067E+04_JPRB,3.6272E+04_JPRB/) 
2063KBO( :,49,16) = (/&
2064 & 2.0670E+04_JPRB,2.4507E+04_JPRB,2.8195E+04_JPRB,3.1753E+04_JPRB,3.5074E+04_JPRB/) 
2065KBO( :,50,16) = (/&
2066 & 1.9238E+04_JPRB,2.3103E+04_JPRB,2.6846E+04_JPRB,3.0481E+04_JPRB,3.3904E+04_JPRB/) 
2067KBO( :,51,16) = (/&
2068 & 1.7844E+04_JPRB,2.1722E+04_JPRB,2.5514E+04_JPRB,2.9217E+04_JPRB,3.2732E+04_JPRB/) 
2069KBO( :,52,16) = (/&
2070 & 1.6449E+04_JPRB,2.0331E+04_JPRB,2.4157E+04_JPRB,2.7921E+04_JPRB,3.1511E+04_JPRB/) 
2071KBO( :,53,16) = (/&
2072 & 1.5063E+04_JPRB,1.8925E+04_JPRB,2.2776E+04_JPRB,2.6593E+04_JPRB,3.0255E+04_JPRB/) 
2073KBO( :,54,16) = (/&
2074 & 1.3809E+04_JPRB,1.7636E+04_JPRB,2.1500E+04_JPRB,2.5353E+04_JPRB,2.9077E+04_JPRB/) 
2075KBO( :,55,16) = (/&
2076 & 1.2629E+04_JPRB,1.6403E+04_JPRB,2.0265E+04_JPRB,2.4149E+04_JPRB,2.7924E+04_JPRB/) 
2077KBO( :,56,16) = (/&
2078 & 1.1481E+04_JPRB,1.5182E+04_JPRB,1.9032E+04_JPRB,2.2931E+04_JPRB,2.6738E+04_JPRB/) 
2079KBO( :,57,16) = (/&
2080 & 1.0369E+04_JPRB,1.3975E+04_JPRB,1.7793E+04_JPRB,2.1704E+04_JPRB,2.5546E+04_JPRB/) 
2081KBO( :,58,16) = (/&
2082 & 9.3525E+03_JPRB,1.2853E+04_JPRB,1.6624E+04_JPRB,2.0533E+04_JPRB,2.4399E+04_JPRB/) 
2083KBO( :,59,16) = (/&
2084 & 8.9578E+03_JPRB,1.2412E+04_JPRB,1.6161E+04_JPRB,2.0067E+04_JPRB,2.3943E+04_JPRB/) 
2085
2086!     The array SELFREFO contains the coefficient of the water vapor
2087!     self-continuum (including the energy term).  The first index
2088!     refers to temperature in 7.2 degree increments.  For instance,
2089!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
2090!     etc.  The second index runs over the g-channel (1 to 16).
2091
2092SELFREFO( :, 1) = (/&
2093 & 7.54232E-01_JPRB, 6.87231E-01_JPRB, 6.26181E-01_JPRB, 5.70555E-01_JPRB, 5.19870E-01_JPRB,&
2094 & 4.73688E-01_JPRB, 4.31608E-01_JPRB, 3.93266E-01_JPRB, 3.58331E-01_JPRB, 3.26499E-01_JPRB/) 
2095SELFREFO( :, 2) = (/&
2096 & 1.01377E+00_JPRB, 9.30266E-01_JPRB, 8.53637E-01_JPRB, 7.83320E-01_JPRB, 7.18796E-01_JPRB,&
2097 & 6.59587E-01_JPRB, 6.05254E-01_JPRB, 5.55398E-01_JPRB, 5.09648E-01_JPRB, 4.67667E-01_JPRB/) 
2098SELFREFO( :, 3) = (/&
2099 & 1.31954E+00_JPRB, 1.22523E+00_JPRB, 1.13766E+00_JPRB, 1.05635E+00_JPRB, 9.80853E-01_JPRB,&
2100 & 9.10749E-01_JPRB, 8.45656E-01_JPRB, 7.85215E-01_JPRB, 7.29095E-01_JPRB, 6.76985E-01_JPRB/) 
2101SELFREFO( :, 4) = (/&
2102 & 2.18726E+00_JPRB, 2.05960E+00_JPRB, 1.93940E+00_JPRB, 1.82621E+00_JPRB, 1.71962E+00_JPRB,&
2103 & 1.61926E+00_JPRB, 1.52476E+00_JPRB, 1.43577E+00_JPRB, 1.35197E+00_JPRB, 1.27306E+00_JPRB/) 
2104SELFREFO( :, 5) = (/&
2105 & 3.17440E+00_JPRB, 2.92794E+00_JPRB, 2.70061E+00_JPRB, 2.49094E+00_JPRB, 2.29754E+00_JPRB,&
2106 & 2.11916E+00_JPRB, 1.95463E+00_JPRB, 1.80287E+00_JPRB, 1.66290E+00_JPRB, 1.53379E+00_JPRB/) 
2107SELFREFO( :, 6) = (/&
2108 & 2.69705E+00_JPRB, 2.48684E+00_JPRB, 2.29302E+00_JPRB, 2.11431E+00_JPRB, 1.94952E+00_JPRB,&
2109 & 1.79758E+00_JPRB, 1.65748E+00_JPRB, 1.52830E+00_JPRB, 1.40919E+00_JPRB, 1.29936E+00_JPRB/) 
2110SELFREFO( :, 7) = (/&
2111 & 2.91893E+00_JPRB, 2.68371E+00_JPRB, 2.46745E+00_JPRB, 2.26862E+00_JPRB, 2.08581E+00_JPRB,&
2112 & 1.91773E+00_JPRB, 1.76319E+00_JPRB, 1.62111E+00_JPRB, 1.49048E+00_JPRB, 1.37037E+00_JPRB/) 
2113SELFREFO( :, 8) = (/&
2114 & 2.91847E+00_JPRB, 2.69138E+00_JPRB, 2.48195E+00_JPRB, 2.28883E+00_JPRB, 2.11073E+00_JPRB,&
2115 & 1.94648E+00_JPRB, 1.79502E+00_JPRB, 1.65535E+00_JPRB, 1.52654E+00_JPRB, 1.40776E+00_JPRB/) 
2116SELFREFO( :, 9) = (/&
2117 & 2.73994E+00_JPRB, 2.54834E+00_JPRB, 2.37014E+00_JPRB, 2.20440E+00_JPRB, 2.05026E+00_JPRB,&
2118 & 1.90689E+00_JPRB, 1.77354E+00_JPRB, 1.64952E+00_JPRB, 1.53418E+00_JPRB, 1.42690E+00_JPRB/) 
2119SELFREFO( :,10) = (/&
2120 & 2.81902E+00_JPRB, 2.66010E+00_JPRB, 2.51014E+00_JPRB, 2.36863E+00_JPRB, 2.23510E+00_JPRB,&
2121 & 2.10909E+00_JPRB, 1.99020E+00_JPRB, 1.87800E+00_JPRB, 1.77213E+00_JPRB, 1.67222E+00_JPRB/) 
2122SELFREFO( :,11) = (/&
2123 & 3.19430E+00_JPRB, 2.97671E+00_JPRB, 2.77395E+00_JPRB, 2.58500E+00_JPRB, 2.40891E+00_JPRB,&
2124 & 2.24483E+00_JPRB, 2.09192E+00_JPRB, 1.94942E+00_JPRB, 1.81663E+00_JPRB, 1.69289E+00_JPRB/) 
2125SELFREFO( :,12) = (/&
2126 & 3.24778E+00_JPRB, 3.04535E+00_JPRB, 2.85553E+00_JPRB, 2.67755E+00_JPRB, 2.51066E+00_JPRB,&
2127 & 2.35417E+00_JPRB, 2.20744E+00_JPRB, 2.06985E+00_JPRB, 1.94084E+00_JPRB, 1.81987E+00_JPRB/) 
2128SELFREFO( :,13) = (/&
2129 & 3.67142E+00_JPRB, 3.39875E+00_JPRB, 3.14634E+00_JPRB, 2.91267E+00_JPRB, 2.69636E+00_JPRB,&
2130 & 2.49611E+00_JPRB, 2.31073E+00_JPRB, 2.13913E+00_JPRB, 1.98026E+00_JPRB, 1.83319E+00_JPRB/) 
2131SELFREFO( :,14) = (/&
2132 & 3.73679E+00_JPRB, 3.49113E+00_JPRB, 3.26162E+00_JPRB, 3.04719E+00_JPRB, 2.84686E+00_JPRB,&
2133 & 2.65970E+00_JPRB, 2.48485E+00_JPRB, 2.32149E+00_JPRB, 2.16887E+00_JPRB, 2.02628E+00_JPRB/) 
2134SELFREFO( :,15) = (/&
2135 & 4.25684E+00_JPRB, 3.95885E+00_JPRB, 3.68171E+00_JPRB, 3.42397E+00_JPRB, 3.18428E+00_JPRB,&
2136 & 2.96137E+00_JPRB, 2.75406E+00_JPRB, 2.56126E+00_JPRB, 2.38196E+00_JPRB, 2.21521E+00_JPRB/) 
2137SELFREFO( :,16) = (/&
2138 & 4.97048E+00_JPRB, 4.59255E+00_JPRB, 4.24336E+00_JPRB, 3.92072E+00_JPRB, 3.62261E+00_JPRB,&
2139 & 3.34717E+00_JPRB, 3.09267E+00_JPRB, 2.85752E+00_JPRB, 2.64025E+00_JPRB, 2.43950E+00_JPRB/) 
2140
2141!     The ith set of reference fractions are from the ith reference
2142!     pressure level.
2143FRACREFAO( :, 1) = (/&
2144 & 0.18068060_JPRB,0.16803175_JPRB,0.15140158_JPRB,0.12221480_JPRB,&
2145 & 0.10240850_JPRB,0.09330297_JPRB,0.07518960_JPRB,0.05611294_JPRB,&
2146 & 0.03781487_JPRB,0.00387192_JPRB,0.00321285_JPRB,0.00244440_JPRB,&
2147 & 0.00179546_JPRB,0.00107704_JPRB,0.00038798_JPRB,0.00005060_JPRB/) 
2148
2149IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',1,ZHOOK_HANDLE)
2150END SUBROUTINE PART7
2151
2152
2153SUBROUTINE PART8
2154
2155REAL(KIND=JPRB) :: ZHOOK_HANDLE
2156IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',0,ZHOOK_HANDLE)
2157
2158
2159FRACREFAO( :, 2) = (/&
2160 & 0.17927621_JPRB,0.16731168_JPRB,0.15129538_JPRB,0.12328085_JPRB,&
2161 & 0.10243484_JPRB,0.09354796_JPRB,0.07538418_JPRB,0.05633071_JPRB,&
2162 & 0.03810832_JPRB,0.00398347_JPRB,0.00320262_JPRB,0.00250029_JPRB,&
2163 & 0.00178666_JPRB,0.00111127_JPRB,0.00039438_JPRB,0.00005169_JPRB/) 
2164FRACREFAO( :, 3) = (/&
2165 & 0.17762886_JPRB,0.16638555_JPRB,0.15115446_JPRB,0.12470623_JPRB,&
2166 & 0.10253213_JPRB,0.09383459_JPRB,0.07560240_JPRB,0.05646568_JPRB,&
2167 & 0.03844077_JPRB,0.00409142_JPRB,0.00322521_JPRB,0.00254918_JPRB,&
2168 & 0.00179296_JPRB,0.00113652_JPRB,0.00040169_JPRB,0.00005259_JPRB/) 
2169FRACREFAO( :, 4) = (/&
2170 & 0.17566043_JPRB,0.16539773_JPRB,0.15092199_JPRB,0.12571971_JPRB,&
2171 & 0.10340609_JPRB,0.09426189_JPRB,0.07559051_JPRB,0.05678188_JPRB,&
2172 & 0.03881499_JPRB,0.00414102_JPRB,0.00328551_JPRB,0.00258795_JPRB,&
2173 & 0.00181648_JPRB,0.00115145_JPRB,0.00040969_JPRB,0.00005357_JPRB/) 
2174FRACREFAO( :, 5) = (/&
2175 & 0.17335825_JPRB,0.16442548_JPRB,0.15070701_JPRB,0.12667464_JPRB,&
2176 & 0.10452303_JPRB,0.09450833_JPRB,0.07599410_JPRB,0.05706393_JPRB,&
2177 & 0.03910370_JPRB,0.00417880_JPRB,0.00335256_JPRB,0.00261708_JPRB,&
2178 & 0.00185491_JPRB,0.00116627_JPRB,0.00041759_JPRB,0.00005464_JPRB/) 
2179FRACREFAO( :, 6) = (/&
2180 & 0.17082544_JPRB,0.16321516_JPRB,0.15044247_JPRB,0.12797612_JPRB,&
2181 & 0.10574646_JPRB,0.09470057_JPRB,0.07647423_JPRB,0.05738756_JPRB,&
2182 & 0.03935621_JPRB,0.00423789_JPRB,0.00342651_JPRB,0.00264549_JPRB,&
2183 & 0.00190188_JPRB,0.00118281_JPRB,0.00042592_JPRB,0.00005583_JPRB/) 
2184FRACREFAO( :, 7) = (/&
2185 & 0.16809277_JPRB,0.16193336_JPRB,0.15013184_JPRB,0.12937409_JPRB,&
2186 & 0.10720784_JPRB,0.09485368_JPRB,0.07692636_JPRB,0.05771774_JPRB,&
2187 & 0.03966988_JPRB,0.00427754_JPRB,0.00349696_JPRB,0.00268946_JPRB,&
2188 & 0.00193536_JPRB,0.00120222_JPRB,0.00043462_JPRB,0.00005712_JPRB/) 
2189FRACREFAO( :, 8) = (/&
2190 & 0.16517997_JPRB,0.16059248_JPRB,0.14984852_JPRB,0.13079269_JPRB,&
2191 & 0.10865030_JPRB,0.09492947_JPRB,0.07759736_JPRB,0.05812201_JPRB,&
2192 & 0.03997169_JPRB,0.00432356_JPRB,0.00355308_JPRB,0.00274031_JPRB,&
2193 & 0.00197243_JPRB,0.00122401_JPRB,0.00044359_JPRB,0.00005849_JPRB/) 
2194FRACREFAO( :, 9) = (/&
2195 & 0.16209179_JPRB,0.15912023_JPRB,0.14938223_JPRB,0.13198245_JPRB,&
2196 & 0.11077233_JPRB,0.09487948_JPRB,0.07831636_JPRB,0.05863440_JPRB,&
2197 & 0.04028239_JPRB,0.00436804_JPRB,0.00360407_JPRB,0.00279885_JPRB,&
2198 & 0.00200364_JPRB,0.00124861_JPRB,0.00045521_JPRB,0.00005996_JPRB/) 
2199FRACREFAO( :,10) = (/&
2200 & 0.15962425_JPRB,0.15789343_JPRB,0.14898103_JPRB,0.13275230_JPRB,&
2201 & 0.11253940_JPRB,0.09503502_JPRB,0.07884382_JPRB,0.05908009_JPRB,&
2202 & 0.04053524_JPRB,0.00439971_JPRB,0.00364269_JPRB,0.00284965_JPRB,&
2203 & 0.00202758_JPRB,0.00127076_JPRB,0.00046408_JPRB,0.00006114_JPRB/) 
2204FRACREFAO( :,11) = (/&
2205 & 0.15926200_JPRB,0.15770932_JPRB,0.14891729_JPRB,0.13283882_JPRB,&
2206 & 0.11276010_JPRB,0.09507311_JPRB,0.07892222_JPRB,0.05919230_JPRB,&
2207 & 0.04054824_JPRB,0.00440833_JPRB,0.00365575_JPRB,0.00286459_JPRB,&
2208 & 0.00203786_JPRB,0.00128405_JPRB,0.00046504_JPRB,0.00006146_JPRB/) 
2209FRACREFAO( :,12) = (/&
2210 & 0.15926351_JPRB,0.15770483_JPRB,0.14891177_JPRB,0.13279966_JPRB,&
2211 & 0.11268171_JPRB,0.09515216_JPRB,0.07890341_JPRB,0.05924807_JPRB,&
2212 & 0.04052851_JPRB,0.00440870_JPRB,0.00365425_JPRB,0.00286878_JPRB,&
2213 & 0.00205747_JPRB,0.00128916_JPRB,0.00046589_JPRB,0.00006221_JPRB/) 
2214FRACREFAO( :,13) = (/&
2215 & 0.15937765_JPRB,0.15775780_JPRB,0.14892603_JPRB,0.13273248_JPRB,&
2216 & 0.11252731_JPRB,0.09521657_JPRB,0.07885858_JPRB,0.05927679_JPRB,&
2217 & 0.04050184_JPRB,0.00440285_JPRB,0.00365748_JPRB,0.00286791_JPRB,&
2218 & 0.00207507_JPRB,0.00129193_JPRB,0.00046679_JPRB,0.00006308_JPRB/) 
2219
2220IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',1,ZHOOK_HANDLE)
2221END SUBROUTINE PART8
2222
2223
2224END SUBROUTINE RRTM_KGB2
Note: See TracBrowser for help on using the repository browser.