1 |
|
|
!OCL SCALAR |
2 |
|
|
#ifdef RS6K |
3 |
|
|
@PROCESS NOOPTIMIZE |
4 |
|
|
#endif |
5 |
|
|
!pgi$r opt=0 |
6 |
|
1 |
SUBROUTINE RRTM_KGB9 |
7 |
|
|
|
8 |
|
|
! Originally by Eli J. Mlawer, Atmospheric & Environmental Research. |
9 |
|
|
! BAND 9: 1180-1390 cm-1 (low - H2O,CH4; high - CH4) |
10 |
|
|
! Reformatted for F90 by JJMorcrette, ECMWF |
11 |
|
|
! R. Elkhatib 12-10-2005 Split for faster and more robust compilation. |
12 |
|
|
|
13 |
|
|
! ------------------------------------------------------------------ |
14 |
|
|
|
15 |
|
|
USE PARKIND1 ,ONLY : JPRB |
16 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
17 |
|
|
|
18 |
|
|
USE YOERRTO9 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,& |
19 |
|
|
& FRACREFBO, ABSN2OO |
20 |
|
|
USE YOERRTA9 , ONLY : N2OREF ,H2OREF ,CH4REF ,ETAREF ,STRRAT |
21 |
|
|
|
22 |
|
|
! ------------------------------------------------------------------ |
23 |
|
|
|
24 |
|
|
IMPLICIT NONE |
25 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
26 |
|
|
|
27 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9',0,ZHOOK_HANDLE) |
28 |
|
|
|
29 |
|
1 |
CALL PART1 |
30 |
|
1 |
CALL PART2 |
31 |
|
1 |
CALL PART3 |
32 |
|
1 |
CALL PART4 |
33 |
|
1 |
CALL PART5 |
34 |
|
1 |
CALL PART6 |
35 |
|
1 |
CALL PART7 |
36 |
|
1 |
CALL PART8 |
37 |
|
1 |
CALL PART9 |
38 |
|
1 |
CALL PART10 |
39 |
|
1 |
CALL PART11 |
40 |
|
1 |
CALL PART12 |
41 |
|
1 |
CALL PART13 |
42 |
|
1 |
CALL PART14 |
43 |
|
1 |
CALL PART15 |
44 |
|
1 |
CALL PART16 |
45 |
|
1 |
CALL PART17 |
46 |
|
|
|
47 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9',1,ZHOOK_HANDLE) |
48 |
|
|
|
49 |
|
|
! ----------------------------------------------------------------- |
50 |
|
|
|
51 |
|
|
CONTAINS |
52 |
|
|
|
53 |
|
|
|
54 |
|
1 |
SUBROUTINE PART1 |
55 |
|
|
|
56 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
57 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART1',0,ZHOOK_HANDLE) |
58 |
|
|
|
59 |
|
|
|
60 |
|
|
FRACREFBO( :) = (/& |
61 |
|
|
! From P = 0.071 mb. |
62 |
|
|
& 0.20148601_JPRB,0.15252700_JPRB,0.13376500_JPRB,0.12184600_JPRB,& |
63 |
|
|
& 0.10767800_JPRB,0.09307410_JPRB,0.07674570_JPRB,0.05876940_JPRB,& |
64 |
|
|
& 0.04001480_JPRB,0.00424612_JPRB,0.00346896_JPRB,0.00269954_JPRB,& |
65 |
|
1 |
& 0.00196864_JPRB,0.00122562_JPRB,0.00043628_JPRB,0.00004892_JPRB/) |
66 |
|
|
|
67 |
|
|
N2OREF( :) = (/& |
68 |
|
|
& 3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,& |
69 |
|
|
& 3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,& |
70 |
|
1 |
& 2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB/) |
71 |
|
|
|
72 |
|
|
H2OREF( :) = (/& |
73 |
|
|
& 1.8759999E-02_JPRB, 1.2223309E-02_JPRB, 5.8908667E-03_JPRB, 2.7675382E-03_JPRB, & |
74 |
|
|
& 1.4065107E-03_JPRB, 7.5969833E-04_JPRB, 3.8875898E-04_JPRB, 1.6542293E-04_JPRB, & |
75 |
|
|
& 3.7189537E-05_JPRB, 7.4764857E-06_JPRB, 4.3081886E-06_JPRB, 3.3319423E-06_JPRB, & |
76 |
|
1 |
& 3.2039343E-06_JPRB/) |
77 |
|
|
|
78 |
|
|
CH4REF( :) = (/& |
79 |
|
|
& 1.7000001E-06_JPRB, 1.7000001E-06_JPRB, 1.6998713E-06_JPRB, 1.6904165E-06_JPRB, & |
80 |
|
|
& 1.6671424E-06_JPRB, 1.6350652E-06_JPRB, 1.6097551E-06_JPRB, 1.5590465E-06_JPRB, & |
81 |
|
|
& 1.5119849E-06_JPRB, 1.4741138E-06_JPRB, 1.4384609E-06_JPRB, 1.4002215E-06_JPRB, & |
82 |
|
1 |
& 1.3573376E-06_JPRB/) |
83 |
|
|
|
84 |
|
|
ETAREF( :) = (/& |
85 |
|
1 |
& 0.0_JPRB,0.125_JPRB,0.25_JPRB,0.375_JPRB,0.5_JPRB,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.96_JPRB,0.99_JPRB,1.0_JPRB/) |
86 |
|
|
|
87 |
|
|
ABSN2OO( :) = (/& |
88 |
|
|
! From P = 952. |
89 |
|
|
& 3.26267E-01_JPRB,2.42869E-00_JPRB,1.15455E+01_JPRB,7.39478E-00_JPRB,& |
90 |
|
|
& 5.16550E-00_JPRB,2.54474E-00_JPRB,3.53082E-00_JPRB,3.82278E-00_JPRB,& |
91 |
|
|
& 1.81297E-00_JPRB,6.65313E-01_JPRB,1.23652E-01_JPRB,1.83895E-03_JPRB,& |
92 |
|
|
& 1.70592E-03_JPRB,2.68434E-09_JPRB,0.0_JPRB,0.0_JPRB,& |
93 |
|
|
! From P = 620. |
94 |
|
|
& 2.08632E-01_JPRB,1.11865E+00_JPRB,4.95975E+00_JPRB,8.10907E+00_JPRB,& |
95 |
|
|
& 1.10408E+01_JPRB,5.45460E+00_JPRB,4.18611E+00_JPRB,3.53422E+00_JPRB,& |
96 |
|
|
& 2.54164E+00_JPRB,3.65093E-01_JPRB,5.84480E-01_JPRB,2.26918E-01_JPRB,& |
97 |
|
|
& 1.36230E-03_JPRB,5.54400E-10_JPRB,6.83703E-10_JPRB,0.0_JPRB,& |
98 |
|
|
! From P=313. |
99 |
|
|
& 6.20022E-02_JPRB,2.69521E-01_JPRB,9.81928E-01_JPRB,1.65004E-00_JPRB,& |
100 |
|
|
& 3.08089E-00_JPRB,5.38696E-00_JPRB,1.14600E+01_JPRB,2.41211E+01_JPRB,& |
101 |
|
|
& 1.69655E+01_JPRB,1.37556E-00_JPRB,5.43254E-01_JPRB,3.52079E-01_JPRB,& |
102 |
|
1 |
& 4.31888E-01_JPRB,4.82523E-06_JPRB,5.74747E-11_JPRB,0.0_JPRB/) |
103 |
|
|
|
104 |
|
1 |
STRRAT = 21.6282_JPRB |
105 |
|
|
|
106 |
|
|
! ------------------------------------------------------------------ |
107 |
|
|
|
108 |
|
|
! The array KAO contains absorption coefs at the 16 chosen g-values |
109 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
110 |
|
|
! species parameters (see taumol.f for definition). The first |
111 |
|
|
! index in the array, JS, runs from 1 to 11, and corresponds to |
112 |
|
|
! different values of the binary species parameter. For instance, |
113 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
114 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
115 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
116 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
117 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
118 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
119 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
120 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
121 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
122 |
|
|
! which g-interval the absorption coefficients are for. |
123 |
|
|
|
124 |
|
|
KAO( :, 1, 1, 1) = (/& |
125 |
|
|
& 1.8511E-03_JPRB,2.1684E-03_JPRB,1.9806E-03_JPRB,1.7402E-03_JPRB,1.4775E-03_JPRB,1.1966E-03_JPRB,& |
126 |
✓✓ |
12 |
& 8.9433E-04_JPRB,5.6221E-04_JPRB,3.0428E-04_JPRB,1.8439E-04_JPRB,1.3102E-04_JPRB/) |
127 |
|
|
KAO( :, 2, 1, 1) = (/& |
128 |
|
|
& 2.0894E-03_JPRB,2.4523E-03_JPRB,2.2500E-03_JPRB,1.9818E-03_JPRB,1.6875E-03_JPRB,1.3729E-03_JPRB,& |
129 |
✓✓ |
12 |
& 1.0298E-03_JPRB,6.5344E-04_JPRB,3.5857E-04_JPRB,2.2082E-04_JPRB,1.5794E-04_JPRB/) |
130 |
|
|
KAO( :, 3, 1, 1) = (/& |
131 |
|
|
& 2.3330E-03_JPRB,2.7449E-03_JPRB,2.5294E-03_JPRB,2.2345E-03_JPRB,1.9095E-03_JPRB,1.5602E-03_JPRB,& |
132 |
✓✓ |
12 |
& 1.1757E-03_JPRB,7.5512E-04_JPRB,4.2015E-04_JPRB,2.6222E-04_JPRB,1.8993E-04_JPRB/) |
133 |
|
|
KAO( :, 4, 1, 1) = (/& |
134 |
|
|
& 2.5835E-03_JPRB,3.0490E-03_JPRB,2.8221E-03_JPRB,2.5018E-03_JPRB,2.1465E-03_JPRB,1.7595E-03_JPRB,& |
135 |
✓✓ |
12 |
& 1.3344E-03_JPRB,8.6724E-04_JPRB,4.8897E-04_JPRB,3.0971E-04_JPRB,2.2746E-04_JPRB/) |
136 |
|
|
KAO( :, 5, 1, 1) = (/& |
137 |
|
|
& 2.8404E-03_JPRB,3.3655E-03_JPRB,3.1292E-03_JPRB,2.7851E-03_JPRB,2.3984E-03_JPRB,1.9730E-03_JPRB,& |
138 |
✓✓ |
12 |
& 1.5065E-03_JPRB,9.9023E-04_JPRB,5.6589E-04_JPRB,3.6410E-04_JPRB,2.7116E-04_JPRB/) |
139 |
|
|
KAO( :, 1, 2, 1) = (/& |
140 |
|
|
& 1.5469E-03_JPRB,1.8260E-03_JPRB,1.6779E-03_JPRB,1.4743E-03_JPRB,1.2523E-03_JPRB,1.0146E-03_JPRB,& |
141 |
✓✓ |
12 |
& 7.5802E-04_JPRB,4.7362E-04_JPRB,2.5248E-04_JPRB,1.4960E-04_JPRB,1.0313E-04_JPRB/) |
142 |
|
|
KAO( :, 2, 2, 1) = (/& |
143 |
|
|
& 1.7573E-03_JPRB,2.0750E-03_JPRB,1.9149E-03_JPRB,1.6867E-03_JPRB,1.4365E-03_JPRB,1.1680E-03_JPRB,& |
144 |
✓✓ |
12 |
& 8.7632E-04_JPRB,5.5250E-04_JPRB,2.9879E-04_JPRB,1.7951E-04_JPRB,1.2466E-04_JPRB/) |
145 |
|
|
KAO( :, 3, 2, 1) = (/& |
146 |
|
|
& 1.9736E-03_JPRB,2.3350E-03_JPRB,2.1627E-03_JPRB,1.9104E-03_JPRB,1.6322E-03_JPRB,1.3324E-03_JPRB,& |
147 |
✓✓ |
12 |
& 1.0035E-03_JPRB,6.4000E-04_JPRB,3.5119E-04_JPRB,2.1343E-04_JPRB,1.4991E-04_JPRB/) |
148 |
|
|
KAO( :, 4, 2, 1) = (/& |
149 |
|
|
& 2.1961E-03_JPRB,2.6057E-03_JPRB,2.4227E-03_JPRB,2.1470E-03_JPRB,1.8412E-03_JPRB,1.5084E-03_JPRB,& |
150 |
✓✓ |
12 |
& 1.1417E-03_JPRB,7.3666E-04_JPRB,4.0980E-04_JPRB,2.5228E-04_JPRB,1.7955E-04_JPRB/) |
151 |
|
|
KAO( :, 5, 2, 1) = (/& |
152 |
|
|
& 2.4226E-03_JPRB,2.8887E-03_JPRB,2.6975E-03_JPRB,2.3995E-03_JPRB,2.0641E-03_JPRB,1.6967E-03_JPRB,& |
153 |
✓✓ |
12 |
& 1.2922E-03_JPRB,8.4309E-04_JPRB,4.7525E-04_JPRB,2.9676E-04_JPRB,2.1402E-04_JPRB/) |
154 |
|
|
KAO( :, 1, 3, 1) = (/& |
155 |
|
|
& 1.2487E-03_JPRB,1.4859E-03_JPRB,1.3703E-03_JPRB,1.2034E-03_JPRB,1.0233E-03_JPRB,8.2934E-04_JPRB,& |
156 |
✓✓ |
12 |
& 6.1870E-04_JPRB,3.8491E-04_JPRB,2.0061E-04_JPRB,1.1644E-04_JPRB,8.3034E-05_JPRB/) |
157 |
|
|
KAO( :, 2, 3, 1) = (/& |
158 |
|
|
& 1.4306E-03_JPRB,1.7008E-03_JPRB,1.5762E-03_JPRB,1.3877E-03_JPRB,1.1829E-03_JPRB,9.6138E-04_JPRB,& |
159 |
✓✓ |
12 |
& 7.2009E-04_JPRB,4.5115E-04_JPRB,2.3871E-04_JPRB,1.4060E-04_JPRB,1.0024E-04_JPRB/) |
160 |
|
|
KAO( :, 3, 3, 1) = (/& |
161 |
|
|
& 1.6189E-03_JPRB,1.9278E-03_JPRB,1.7928E-03_JPRB,1.5827E-03_JPRB,1.3525E-03_JPRB,1.1028E-03_JPRB,& |
162 |
✓✓ |
12 |
& 8.2939E-04_JPRB,5.2453E-04_JPRB,2.8190E-04_JPRB,1.6789E-04_JPRB,1.2022E-04_JPRB/) |
163 |
|
|
KAO( :, 4, 3, 1) = (/& |
164 |
|
|
& 1.8135E-03_JPRB,2.1671E-03_JPRB,2.0211E-03_JPRB,1.7891E-03_JPRB,1.5341E-03_JPRB,1.2544E-03_JPRB,& |
165 |
✓✓ |
12 |
& 9.4745E-04_JPRB,6.0589E-04_JPRB,3.3035E-04_JPRB,1.9886E-04_JPRB,1.4335E-04_JPRB/) |
166 |
|
|
KAO( :, 5, 3, 1) = (/& |
167 |
|
|
& 2.0119E-03_JPRB,2.4174E-03_JPRB,2.2628E-03_JPRB,2.0104E-03_JPRB,1.7281E-03_JPRB,1.4171E-03_JPRB,& |
168 |
✓✓ |
12 |
& 1.0763E-03_JPRB,6.9556E-04_JPRB,3.8485E-04_JPRB,2.3413E-04_JPRB,1.7025E-04_JPRB/) |
169 |
|
|
KAO( :, 1, 4, 1) = (/& |
170 |
|
|
& 9.9332E-04_JPRB,1.1937E-03_JPRB,1.1041E-03_JPRB,9.6868E-04_JPRB,8.2360E-04_JPRB,6.6725E-04_JPRB,& |
171 |
✓✓ |
12 |
& 4.9729E-04_JPRB,3.0812E-04_JPRB,1.5709E-04_JPRB,8.9177E-05_JPRB,7.0382E-05_JPRB/) |
172 |
|
|
KAO( :, 2, 4, 1) = (/& |
173 |
|
|
& 1.1489E-03_JPRB,1.3782E-03_JPRB,1.2812E-03_JPRB,1.1272E-03_JPRB,9.6052E-04_JPRB,7.8016E-04_JPRB,& |
174 |
✓✓ |
12 |
& 5.8305E-04_JPRB,3.6333E-04_JPRB,1.8801E-04_JPRB,1.0835E-04_JPRB,8.4949E-05_JPRB/) |
175 |
|
|
KAO( :, 3, 4, 1) = (/& |
176 |
|
|
& 1.3111E-03_JPRB,1.5738E-03_JPRB,1.4685E-03_JPRB,1.2957E-03_JPRB,1.1067E-03_JPRB,9.0126E-04_JPRB,& |
177 |
✓✓ |
12 |
& 6.7612E-04_JPRB,4.2453E-04_JPRB,2.2322E-04_JPRB,1.3010E-04_JPRB,1.0182E-04_JPRB/) |
178 |
|
|
KAO( :, 4, 4, 1) = (/& |
179 |
|
|
& 1.4784E-03_JPRB,1.7816E-03_JPRB,1.6672E-03_JPRB,1.4760E-03_JPRB,1.2640E-03_JPRB,1.0311E-03_JPRB,& |
180 |
✓✓ |
12 |
& 7.7663E-04_JPRB,4.9254E-04_JPRB,2.6274E-04_JPRB,1.5479E-04_JPRB,1.2151E-04_JPRB/) |
181 |
|
|
KAO( :, 5, 4, 1) = (/& |
182 |
|
|
& 1.6498E-03_JPRB,2.0005E-03_JPRB,1.8776E-03_JPRB,1.6682E-03_JPRB,1.4321E-03_JPRB,1.1713E-03_JPRB,& |
183 |
✓✓ |
12 |
& 8.8632E-04_JPRB,5.6750E-04_JPRB,3.0711E-04_JPRB,1.8305E-04_JPRB,1.4406E-04_JPRB/) |
184 |
|
|
KAO( :, 1, 5, 1) = (/& |
185 |
|
|
& 7.8562E-04_JPRB,9.5485E-04_JPRB,8.8731E-04_JPRB,7.7760E-04_JPRB,6.6042E-04_JPRB,5.3465E-04_JPRB,& |
186 |
✓✓ |
12 |
& 3.9818E-04_JPRB,2.4507E-04_JPRB,1.2280E-04_JPRB,6.8024E-05_JPRB,6.2892E-05_JPRB/) |
187 |
|
|
KAO( :, 2, 5, 1) = (/& |
188 |
|
|
& 9.1788E-04_JPRB,1.1130E-03_JPRB,1.0387E-03_JPRB,9.1348E-04_JPRB,7.7739E-04_JPRB,6.3079E-04_JPRB,& |
189 |
✓✓ |
12 |
& 4.7083E-04_JPRB,2.9144E-04_JPRB,1.4786E-04_JPRB,8.3150E-05_JPRB,7.5836E-05_JPRB/) |
190 |
|
|
KAO( :, 3, 5, 1) = (/& |
191 |
|
|
& 1.0564E-03_JPRB,1.2815E-03_JPRB,1.1993E-03_JPRB,1.0584E-03_JPRB,9.0286E-04_JPRB,7.3472E-04_JPRB,& |
192 |
✓✓ |
12 |
& 5.4988E-04_JPRB,3.4257E-04_JPRB,1.7646E-04_JPRB,1.0042E-04_JPRB,9.0784E-05_JPRB/) |
193 |
|
|
KAO( :, 4, 5, 1) = (/& |
194 |
|
|
& 1.2000E-03_JPRB,1.4607E-03_JPRB,1.3706E-03_JPRB,1.2143E-03_JPRB,1.0385E-03_JPRB,8.4626E-04_JPRB,& |
195 |
✓✓ |
12 |
& 6.3535E-04_JPRB,3.9924E-04_JPRB,2.0859E-04_JPRB,1.2014E-04_JPRB,1.0789E-04_JPRB/) |
196 |
|
|
KAO( :, 5, 5, 1) = (/& |
197 |
|
|
& 1.3470E-03_JPRB,1.6493E-03_JPRB,1.5534E-03_JPRB,1.3815E-03_JPRB,1.1841E-03_JPRB,9.6670E-04_JPRB,& |
198 |
✓✓ |
12 |
& 7.2902E-04_JPRB,4.6176E-04_JPRB,2.4472E-04_JPRB,1.4262E-04_JPRB,1.2760E-04_JPRB/) |
199 |
|
|
KAO( :, 1, 6, 1) = (/& |
200 |
|
|
& 6.1309E-04_JPRB,7.5529E-04_JPRB,7.0573E-04_JPRB,6.1814E-04_JPRB,5.2423E-04_JPRB,4.2388E-04_JPRB,& |
201 |
✓✓ |
12 |
& 3.1493E-04_JPRB,1.9253E-04_JPRB,9.5104E-05_JPRB,5.1400E-05_JPRB,5.8511E-05_JPRB/) |
202 |
|
|
KAO( :, 2, 6, 1) = (/& |
203 |
|
|
& 7.2529E-04_JPRB,8.9038E-04_JPRB,8.3470E-04_JPRB,7.3394E-04_JPRB,6.2382E-04_JPRB,5.0540E-04_JPRB,& |
204 |
✓✓ |
12 |
& 3.7640E-04_JPRB,2.3131E-04_JPRB,1.1537E-04_JPRB,6.3305E-05_JPRB,7.0591E-05_JPRB/) |
205 |
|
|
KAO( :, 3, 6, 1) = (/& |
206 |
|
|
& 8.4334E-04_JPRB,1.0336E-03_JPRB,9.7184E-04_JPRB,8.5812E-04_JPRB,7.3092E-04_JPRB,5.9381E-04_JPRB,& |
207 |
✓✓ |
12 |
& 4.4329E-04_JPRB,2.7409E-04_JPRB,1.3848E-04_JPRB,7.6884E-05_JPRB,8.4368E-05_JPRB/) |
208 |
|
|
KAO( :, 4, 6, 1) = (/& |
209 |
|
|
& 9.6591E-04_JPRB,1.1861E-03_JPRB,1.1181E-03_JPRB,9.9183E-04_JPRB,8.4677E-04_JPRB,6.8969E-04_JPRB,& |
210 |
✓✓ |
12 |
& 5.1579E-04_JPRB,3.2112E-04_JPRB,1.6446E-04_JPRB,9.2420E-05_JPRB,9.9996E-05_JPRB/) |
211 |
|
|
KAO( :, 5, 6, 1) = (/& |
212 |
|
|
& 1.0919E-03_JPRB,1.3468E-03_JPRB,1.2743E-03_JPRB,1.1355E-03_JPRB,9.7181E-04_JPRB,7.9286E-04_JPRB,& |
213 |
✓✓ |
12 |
& 5.9519E-04_JPRB,3.7314E-04_JPRB,1.9367E-04_JPRB,1.1025E-04_JPRB,1.1781E-04_JPRB/) |
214 |
|
|
KAO( :, 1, 7, 1) = (/& |
215 |
|
|
& 4.7156E-04_JPRB,5.8937E-04_JPRB,5.5332E-04_JPRB,4.8469E-04_JPRB,4.1048E-04_JPRB,3.3155E-04_JPRB,& |
216 |
✓✓ |
12 |
& 2.4554E-04_JPRB,1.4938E-04_JPRB,7.2895E-05_JPRB,3.8595E-05_JPRB,5.7264E-05_JPRB/) |
217 |
|
|
KAO( :, 2, 7, 1) = (/& |
218 |
|
|
& 5.6495E-04_JPRB,7.0294E-04_JPRB,6.6167E-04_JPRB,5.8245E-04_JPRB,4.9439E-04_JPRB,4.0002E-04_JPRB,& |
219 |
✓✓ |
12 |
& 2.9682E-04_JPRB,1.8140E-04_JPRB,8.9227E-05_JPRB,4.7916E-05_JPRB,6.9677E-05_JPRB/) |
220 |
|
|
KAO( :, 3, 7, 1) = (/& |
221 |
|
|
& 6.6439E-04_JPRB,8.2373E-04_JPRB,7.7721E-04_JPRB,6.8744E-04_JPRB,5.8490E-04_JPRB,4.7448E-04_JPRB,& |
222 |
✓✓ |
12 |
& 3.5318E-04_JPRB,2.1689E-04_JPRB,1.0783E-04_JPRB,5.8667E-05_JPRB,8.3618E-05_JPRB/) |
223 |
|
|
KAO( :, 4, 7, 1) = (/& |
224 |
|
|
& 7.6901E-04_JPRB,9.5239E-04_JPRB,9.0133E-04_JPRB,8.0079E-04_JPRB,6.8276E-04_JPRB,5.5536E-04_JPRB,& |
225 |
✓✓ |
12 |
& 4.1449E-04_JPRB,2.5602E-04_JPRB,1.2881E-04_JPRB,7.0934E-05_JPRB,9.9245E-05_JPRB/) |
226 |
|
|
KAO( :, 5, 7, 1) = (/& |
227 |
|
|
& 8.7687E-04_JPRB,1.0882E-03_JPRB,1.0337E-03_JPRB,9.2277E-04_JPRB,7.8860E-04_JPRB,6.4298E-04_JPRB,& |
228 |
✓✓ |
12 |
& 4.8152E-04_JPRB,2.9917E-04_JPRB,1.5235E-04_JPRB,8.4990E-05_JPRB,1.1668E-04_JPRB/) |
229 |
|
|
KAO( :, 1, 8, 1) = (/& |
230 |
|
|
& 3.6149E-04_JPRB,4.5739E-04_JPRB,4.3172E-04_JPRB,3.7856E-04_JPRB,3.2005E-04_JPRB,2.5782E-04_JPRB,& |
231 |
✓✓ |
12 |
& 1.9045E-04_JPRB,1.1541E-04_JPRB,5.5760E-05_JPRB,2.8968E-05_JPRB,6.3348E-05_JPRB/) |
232 |
|
|
KAO( :, 2, 8, 1) = (/& |
233 |
|
|
& 4.3856E-04_JPRB,5.5284E-04_JPRB,5.2317E-04_JPRB,4.6128E-04_JPRB,3.9080E-04_JPRB,3.1525E-04_JPRB,& |
234 |
✓✓ |
12 |
& 2.3332E-04_JPRB,1.4196E-04_JPRB,6.8893E-05_JPRB,3.6257E-05_JPRB,7.8227E-05_JPRB/) |
235 |
|
|
KAO( :, 3, 8, 1) = (/& |
236 |
|
|
& 5.2180E-04_JPRB,6.5495E-04_JPRB,6.2122E-04_JPRB,5.5050E-04_JPRB,4.6739E-04_JPRB,3.7783E-04_JPRB,& |
237 |
✓✓ |
12 |
& 2.8052E-04_JPRB,1.7141E-04_JPRB,8.3884E-05_JPRB,4.4746E-05_JPRB,9.4849E-05_JPRB/) |
238 |
|
|
KAO( :, 4, 8, 1) = (/& |
239 |
|
|
& 6.1041E-04_JPRB,7.6428E-04_JPRB,7.2626E-04_JPRB,6.4667E-04_JPRB,5.5039E-04_JPRB,4.4616E-04_JPRB,& |
240 |
✓✓ |
12 |
& 3.3220E-04_JPRB,2.0388E-04_JPRB,1.0087E-04_JPRB,5.4479E-05_JPRB,1.1299E-04_JPRB/) |
241 |
|
|
KAO( :, 5, 8, 1) = (/& |
242 |
|
|
& 7.0263E-04_JPRB,8.7961E-04_JPRB,8.3866E-04_JPRB,7.5024E-04_JPRB,6.4012E-04_JPRB,5.2015E-04_JPRB,& |
243 |
✓✓ |
12 |
& 3.8858E-04_JPRB,2.3987E-04_JPRB,1.1991E-04_JPRB,6.5600E-05_JPRB,1.3300E-04_JPRB/) |
244 |
|
|
KAO( :, 1, 9, 1) = (/& |
245 |
|
|
& 2.7588E-04_JPRB,3.5363E-04_JPRB,3.3564E-04_JPRB,2.9442E-04_JPRB,2.4845E-04_JPRB,1.9944E-04_JPRB,& |
246 |
✓✓ |
12 |
& 1.4687E-04_JPRB,8.8846E-05_JPRB,4.2564E-05_JPRB,2.1694E-05_JPRB,1.1635E-04_JPRB/) |
247 |
|
|
KAO( :, 2, 9, 1) = (/& |
248 |
|
|
& 3.3926E-04_JPRB,4.3331E-04_JPRB,4.1256E-04_JPRB,3.6456E-04_JPRB,3.0818E-04_JPRB,2.4781E-04_JPRB,& |
249 |
✓✓ |
12 |
& 1.8292E-04_JPRB,1.1098E-04_JPRB,5.3248E-05_JPRB,2.7395E-05_JPRB,1.4478E-04_JPRB/) |
250 |
|
|
KAO( :, 3, 9, 1) = (/& |
251 |
|
|
& 4.0867E-04_JPRB,5.1901E-04_JPRB,4.9554E-04_JPRB,4.4073E-04_JPRB,3.7338E-04_JPRB,3.0096E-04_JPRB,& |
252 |
✓✓ |
12 |
& 2.2284E-04_JPRB,1.3558E-04_JPRB,6.5394E-05_JPRB,3.4106E-05_JPRB,1.7665E-04_JPRB/) |
253 |
|
|
KAO( :, 4, 9, 1) = (/& |
254 |
|
|
& 4.8311E-04_JPRB,6.1155E-04_JPRB,5.8496E-04_JPRB,5.2319E-04_JPRB,4.4421E-04_JPRB,3.5901E-04_JPRB,& |
255 |
✓✓ |
12 |
& 2.6668E-04_JPRB,1.6266E-04_JPRB,7.9185E-05_JPRB,4.1808E-05_JPRB,2.1187E-04_JPRB/) |
256 |
|
|
KAO( :, 5, 9, 1) = (/& |
257 |
|
|
& 5.6145E-04_JPRB,7.0981E-04_JPRB,6.8093E-04_JPRB,6.1164E-04_JPRB,5.2090E-04_JPRB,4.2218E-04_JPRB,& |
258 |
✓✓ |
12 |
& 3.1451E-04_JPRB,1.9257E-04_JPRB,9.4690E-05_JPRB,5.0644E-05_JPRB,2.5097E-04_JPRB/) |
259 |
|
|
KAO( :, 1,10, 1) = (/& |
260 |
|
|
& 2.1325E-04_JPRB,2.7761E-04_JPRB,2.6556E-04_JPRB,2.3335E-04_JPRB,1.9651E-04_JPRB,1.5718E-04_JPRB,& |
261 |
✓✓ |
12 |
& 1.1525E-04_JPRB,6.9475E-05_JPRB,3.3064E-05_JPRB,1.6594E-05_JPRB,2.6093E-04_JPRB/) |
262 |
|
|
KAO( :, 2,10, 1) = (/& |
263 |
|
|
& 2.6523E-04_JPRB,3.4415E-04_JPRB,3.3059E-04_JPRB,2.9327E-04_JPRB,2.4721E-04_JPRB,1.9814E-04_JPRB,& |
264 |
✓✓ |
12 |
& 1.4562E-04_JPRB,8.8015E-05_JPRB,4.1956E-05_JPRB,2.1115E-05_JPRB,3.2387E-04_JPRB/) |
265 |
|
|
KAO( :, 3,10, 1) = (/& |
266 |
|
|
& 3.2298E-04_JPRB,4.1660E-04_JPRB,4.0088E-04_JPRB,3.5836E-04_JPRB,3.0264E-04_JPRB,2.4324E-04_JPRB,& |
267 |
✓✓ |
12 |
& 1.7951E-04_JPRB,1.0893E-04_JPRB,5.2077E-05_JPRB,2.6475E-05_JPRB,3.9665E-04_JPRB/) |
268 |
|
|
KAO( :, 4,10, 1) = (/& |
269 |
|
|
& 3.8555E-04_JPRB,4.9515E-04_JPRB,4.7688E-04_JPRB,4.2876E-04_JPRB,3.6342E-04_JPRB,2.9294E-04_JPRB,& |
270 |
✓✓ |
12 |
& 2.1704E-04_JPRB,1.3203E-04_JPRB,6.3508E-05_JPRB,3.2669E-05_JPRB,4.7888E-04_JPRB/) |
271 |
|
|
KAO( :, 5,10, 1) = (/& |
272 |
|
|
& 4.5214E-04_JPRB,5.7861E-04_JPRB,5.5869E-04_JPRB,5.0469E-04_JPRB,4.2960E-04_JPRB,3.4738E-04_JPRB,& |
273 |
✓✓ |
12 |
& 2.5818E-04_JPRB,1.5755E-04_JPRB,7.6353E-05_JPRB,3.9767E-05_JPRB,5.6953E-04_JPRB/) |
274 |
|
|
KAO( :, 1,11, 1) = (/& |
275 |
|
|
& 1.8263E-04_JPRB,2.4132E-04_JPRB,2.3375E-04_JPRB,2.0689E-04_JPRB,1.7392E-04_JPRB,1.3885E-04_JPRB,& |
276 |
✓✓ |
12 |
& 1.0153E-04_JPRB,6.1012E-05_JPRB,2.8844E-05_JPRB,1.4318E-05_JPRB,3.1500E-04_JPRB/) |
277 |
|
|
KAO( :, 2,11, 1) = (/& |
278 |
|
|
& 2.2729E-04_JPRB,2.9882E-04_JPRB,2.9035E-04_JPRB,2.5993E-04_JPRB,2.1873E-04_JPRB,1.7499E-04_JPRB,& |
279 |
✓✓ |
12 |
& 1.2837E-04_JPRB,7.7411E-05_JPRB,3.6724E-05_JPRB,1.8248E-05_JPRB,3.9075E-04_JPRB/) |
280 |
|
|
KAO( :, 3,11, 1) = (/& |
281 |
|
|
& 2.7702E-04_JPRB,3.6186E-04_JPRB,3.5142E-04_JPRB,3.1724E-04_JPRB,2.6804E-04_JPRB,2.1505E-04_JPRB,& |
282 |
✓✓ |
12 |
& 1.5840E-04_JPRB,9.5897E-05_JPRB,4.5698E-05_JPRB,2.2869E-05_JPRB,4.7807E-04_JPRB/) |
283 |
|
|
KAO( :, 4,11, 1) = (/& |
284 |
|
|
& 3.3090E-04_JPRB,4.2990E-04_JPRB,4.1786E-04_JPRB,3.7887E-04_JPRB,3.2210E-04_JPRB,2.5914E-04_JPRB,& |
285 |
✓✓ |
12 |
& 1.9166E-04_JPRB,1.1648E-04_JPRB,5.5756E-05_JPRB,2.8227E-05_JPRB,5.7397E-04_JPRB/) |
286 |
|
|
KAO( :, 5,11, 1) = (/& |
287 |
|
|
& 3.8797E-04_JPRB,5.0222E-04_JPRB,4.8941E-04_JPRB,4.4563E-04_JPRB,3.8069E-04_JPRB,3.0738E-04_JPRB,& |
288 |
✓✓ |
12 |
& 2.2816E-04_JPRB,1.3917E-04_JPRB,6.7021E-05_JPRB,3.4339E-05_JPRB,6.7669E-04_JPRB/) |
289 |
|
|
KAO( :, 1,12, 1) = (/& |
290 |
|
|
& 1.5441E-04_JPRB,2.0564E-04_JPRB,2.0096E-04_JPRB,1.7923E-04_JPRB,1.5061E-04_JPRB,1.2020E-04_JPRB,& |
291 |
✓✓ |
12 |
& 8.7841E-05_JPRB,5.2718E-05_JPRB,2.4841E-05_JPRB,1.2247E-05_JPRB,3.0779E-04_JPRB/) |
292 |
|
|
KAO( :, 2,12, 1) = (/& |
293 |
|
|
& 1.9212E-04_JPRB,2.5449E-04_JPRB,2.4895E-04_JPRB,2.2471E-04_JPRB,1.8931E-04_JPRB,1.5143E-04_JPRB,& |
294 |
✓✓ |
12 |
& 1.1103E-04_JPRB,6.6933E-05_JPRB,3.1660E-05_JPRB,1.5617E-05_JPRB,3.8209E-04_JPRB/) |
295 |
|
|
KAO( :, 3,12, 1) = (/& |
296 |
|
|
& 2.3412E-04_JPRB,3.0815E-04_JPRB,3.0111E-04_JPRB,2.7354E-04_JPRB,2.3196E-04_JPRB,1.8605E-04_JPRB,& |
297 |
✓✓ |
12 |
& 1.3699E-04_JPRB,8.2969E-05_JPRB,3.9466E-05_JPRB,1.9595E-05_JPRB,4.6727E-04_JPRB/) |
298 |
|
|
KAO( :, 4,12, 1) = (/& |
299 |
|
|
& 2.7956E-04_JPRB,3.6583E-04_JPRB,3.5793E-04_JPRB,3.2668E-04_JPRB,2.7866E-04_JPRB,2.2413E-04_JPRB,& |
300 |
✓✓ |
12 |
& 1.6571E-04_JPRB,1.0083E-04_JPRB,4.8187E-05_JPRB,2.4182E-05_JPRB,5.5911E-04_JPRB/) |
301 |
|
|
KAO( :, 5,12, 1) = (/& |
302 |
|
|
& 3.2770E-04_JPRB,4.2716E-04_JPRB,4.1907E-04_JPRB,3.8390E-04_JPRB,3.2941E-04_JPRB,2.6578E-04_JPRB,& |
303 |
✓✓ |
12 |
& 1.9722E-04_JPRB,1.2047E-04_JPRB,5.7910E-05_JPRB,2.9402E-05_JPRB,6.5729E-04_JPRB/) |
304 |
|
|
KAO( :, 1,13, 1) = (/& |
305 |
|
|
& 1.2926E-04_JPRB,1.7285E-04_JPRB,1.6977E-04_JPRB,1.5243E-04_JPRB,1.2815E-04_JPRB,1.0230E-04_JPRB,& |
306 |
✓✓ |
12 |
& 7.4794E-05_JPRB,4.4876E-05_JPRB,2.1143E-05_JPRB,1.0395E-05_JPRB,2.5481E-04_JPRB/) |
307 |
|
|
KAO( :, 2,13, 1) = (/& |
308 |
|
|
& 1.6076E-04_JPRB,2.1391E-04_JPRB,2.1001E-04_JPRB,1.9062E-04_JPRB,1.6104E-04_JPRB,1.2883E-04_JPRB,& |
309 |
✓✓ |
12 |
& 9.4499E-05_JPRB,5.6968E-05_JPRB,2.6983E-05_JPRB,1.3259E-05_JPRB,3.1628E-04_JPRB/) |
310 |
|
|
KAO( :, 3,13, 1) = (/& |
311 |
|
|
& 1.9591E-04_JPRB,2.5905E-04_JPRB,2.5408E-04_JPRB,2.3203E-04_JPRB,1.9732E-04_JPRB,1.5826E-04_JPRB,& |
312 |
✓✓ |
12 |
& 1.1655E-04_JPRB,7.0656E-05_JPRB,3.3658E-05_JPRB,1.6638E-05_JPRB,3.8652E-04_JPRB/) |
313 |
|
|
KAO( :, 4,13, 1) = (/& |
314 |
|
|
& 2.3390E-04_JPRB,3.0751E-04_JPRB,3.0205E-04_JPRB,2.7698E-04_JPRB,2.3712E-04_JPRB,1.9078E-04_JPRB,& |
315 |
✓✓ |
12 |
& 1.4104E-04_JPRB,8.5929E-05_JPRB,4.1109E-05_JPRB,2.0532E-05_JPRB,4.6199E-04_JPRB/) |
316 |
|
|
KAO( :, 5,13, 1) = (/& |
317 |
|
|
& 2.7408E-04_JPRB,3.5916E-04_JPRB,3.5371E-04_JPRB,3.2549E-04_JPRB,2.8046E-04_JPRB,2.2630E-04_JPRB,& |
318 |
✓✓ |
12 |
& 1.6790E-04_JPRB,1.0268E-04_JPRB,4.9402E-05_JPRB,2.4960E-05_JPRB,5.4289E-04_JPRB/) |
319 |
|
|
KAO( :, 1, 1, 2) = (/& |
320 |
|
|
& 6.0407E-03_JPRB,7.8065E-03_JPRB,8.1846E-03_JPRB,7.8906E-03_JPRB,7.1910E-03_JPRB,6.1108E-03_JPRB,& |
321 |
✓✓ |
12 |
& 4.6908E-03_JPRB,3.0070E-03_JPRB,1.6029E-03_JPRB,8.9663E-04_JPRB,5.4161E-04_JPRB/) |
322 |
|
|
KAO( :, 2, 1, 2) = (/& |
323 |
|
|
& 6.8195E-03_JPRB,8.6717E-03_JPRB,9.0298E-03_JPRB,8.7022E-03_JPRB,7.9330E-03_JPRB,6.7597E-03_JPRB,& |
324 |
✓✓ |
12 |
& 5.2275E-03_JPRB,3.3989E-03_JPRB,1.8520E-03_JPRB,1.0477E-03_JPRB,6.3833E-04_JPRB/) |
325 |
|
|
KAO( :, 3, 1, 2) = (/& |
326 |
|
|
& 7.5788E-03_JPRB,9.5388E-03_JPRB,9.9036E-03_JPRB,9.5604E-03_JPRB,8.7254E-03_JPRB,7.4504E-03_JPRB,& |
327 |
✓✓ |
12 |
& 5.8064E-03_JPRB,3.8251E-03_JPRB,2.1238E-03_JPRB,1.2161E-03_JPRB,7.5231E-04_JPRB/) |
328 |
|
|
KAO( :, 4, 1, 2) = (/& |
329 |
|
|
& 8.3303E-03_JPRB,1.0419E-02_JPRB,1.0813E-02_JPRB,1.0461E-02_JPRB,9.5556E-03_JPRB,8.1956E-03_JPRB,& |
330 |
✓✓ |
12 |
& 6.4324E-03_JPRB,4.2921E-03_JPRB,2.4115E-03_JPRB,1.4052E-03_JPRB,8.8294E-04_JPRB/) |
331 |
|
|
KAO( :, 5, 1, 2) = (/& |
332 |
|
|
& 9.0559E-03_JPRB,1.1320E-02_JPRB,1.1753E-02_JPRB,1.1384E-02_JPRB,1.0421E-02_JPRB,8.9932E-03_JPRB,& |
333 |
✓✓ |
12 |
& 7.1094E-03_JPRB,4.8020E-03_JPRB,2.7233E-03_JPRB,1.6150E-03_JPRB,1.0321E-03_JPRB/) |
334 |
|
|
KAO( :, 1, 2, 2) = (/& |
335 |
|
|
& 5.2124E-03_JPRB,6.6819E-03_JPRB,6.9789E-03_JPRB,6.7465E-03_JPRB,6.1674E-03_JPRB,5.2549E-03_JPRB,& |
336 |
✓✓ |
12 |
& 4.0193E-03_JPRB,2.5539E-03_JPRB,1.3468E-03_JPRB,7.4621E-04_JPRB,4.4731E-04_JPRB/) |
337 |
|
|
KAO( :, 2, 2, 2) = (/& |
338 |
|
|
& 5.8769E-03_JPRB,7.4300E-03_JPRB,7.7105E-03_JPRB,7.4546E-03_JPRB,6.8169E-03_JPRB,5.8241E-03_JPRB,& |
339 |
✓✓ |
12 |
& 4.4832E-03_JPRB,2.8884E-03_JPRB,1.5578E-03_JPRB,8.7448E-04_JPRB,5.2849E-04_JPRB/) |
340 |
|
|
KAO( :, 3, 2, 2) = (/& |
341 |
|
|
& 6.5337E-03_JPRB,8.1860E-03_JPRB,8.4759E-03_JPRB,8.2057E-03_JPRB,7.5067E-03_JPRB,6.4273E-03_JPRB,& |
342 |
✓✓ |
12 |
& 4.9857E-03_JPRB,3.2553E-03_JPRB,1.7880E-03_JPRB,1.0185E-03_JPRB,6.2321E-04_JPRB/) |
343 |
|
|
KAO( :, 4, 2, 2) = (/& |
344 |
|
|
& 7.1816E-03_JPRB,8.9552E-03_JPRB,9.2749E-03_JPRB,8.9993E-03_JPRB,8.2303E-03_JPRB,7.0662E-03_JPRB,& |
345 |
✓✓ |
12 |
& 5.5323E-03_JPRB,3.6583E-03_JPRB,2.0367E-03_JPRB,1.1804E-03_JPRB,7.3231E-04_JPRB/) |
346 |
|
|
KAO( :, 5, 2, 2) = (/& |
347 |
|
|
& 7.8051E-03_JPRB,9.7506E-03_JPRB,1.0101E-02_JPRB,9.8071E-03_JPRB,8.9873E-03_JPRB,7.7508E-03_JPRB,& |
348 |
✓✓ |
12 |
& 6.1243E-03_JPRB,4.1022E-03_JPRB,2.3063E-03_JPRB,1.3585E-03_JPRB,8.5647E-04_JPRB/) |
349 |
|
|
|
350 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART1',1,ZHOOK_HANDLE) |
351 |
|
1 |
END SUBROUTINE PART1 |
352 |
|
|
|
353 |
|
|
|
354 |
|
1 |
SUBROUTINE PART2 |
355 |
|
|
|
356 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
357 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART2',0,ZHOOK_HANDLE) |
358 |
|
|
|
359 |
|
|
|
360 |
|
|
KAO( :, 1, 3, 2) = (/& |
361 |
|
|
& 4.3523E-03_JPRB,5.5520E-03_JPRB,5.7775E-03_JPRB,5.5913E-03_JPRB,5.1223E-03_JPRB,4.3826E-03_JPRB,& |
362 |
✓✓ |
12 |
& 3.3610E-03_JPRB,2.1161E-03_JPRB,1.0951E-03_JPRB,5.9556E-04_JPRB,3.7857E-04_JPRB/) |
363 |
|
|
KAO( :, 2, 3, 2) = (/& |
364 |
|
|
& 4.9209E-03_JPRB,6.2002E-03_JPRB,6.4082E-03_JPRB,6.1965E-03_JPRB,5.6752E-03_JPRB,4.8744E-03_JPRB,& |
365 |
✓✓ |
12 |
& 3.7636E-03_JPRB,2.3985E-03_JPRB,1.2700E-03_JPRB,7.0291E-04_JPRB,4.5096E-04_JPRB/) |
366 |
|
|
KAO( :, 3, 3, 2) = (/& |
367 |
|
|
& 5.4868E-03_JPRB,6.8502E-03_JPRB,7.0667E-03_JPRB,6.8427E-03_JPRB,6.2712E-03_JPRB,5.3957E-03_JPRB,& |
368 |
✓✓ |
12 |
& 4.1940E-03_JPRB,2.7077E-03_JPRB,1.4615E-03_JPRB,8.2150E-04_JPRB,5.3286E-04_JPRB/) |
369 |
|
|
KAO( :, 4, 3, 2) = (/& |
370 |
|
|
& 6.0417E-03_JPRB,7.5160E-03_JPRB,7.7553E-03_JPRB,7.5242E-03_JPRB,6.9056E-03_JPRB,5.9509E-03_JPRB,& |
371 |
✓✓ |
12 |
& 4.6578E-03_JPRB,3.0477E-03_JPRB,1.6703E-03_JPRB,9.5611E-04_JPRB,6.2579E-04_JPRB/) |
372 |
|
|
KAO( :, 5, 3, 2) = (/& |
373 |
|
|
& 6.5818E-03_JPRB,8.2045E-03_JPRB,8.4687E-03_JPRB,8.2290E-03_JPRB,7.5712E-03_JPRB,6.5448E-03_JPRB,& |
374 |
✓✓ |
12 |
& 5.1618E-03_JPRB,3.4239E-03_JPRB,1.8984E-03_JPRB,1.1049E-03_JPRB,7.3100E-04_JPRB/) |
375 |
|
|
KAO( :, 1, 4, 2) = (/& |
376 |
|
|
& 3.6037E-03_JPRB,4.5619E-03_JPRB,4.7284E-03_JPRB,4.5758E-03_JPRB,4.1942E-03_JPRB,3.5992E-03_JPRB,& |
377 |
✓✓ |
12 |
& 2.7695E-03_JPRB,1.7380E-03_JPRB,8.8220E-04_JPRB,4.6885E-04_JPRB,3.3625E-04_JPRB/) |
378 |
|
|
KAO( :, 2, 4, 2) = (/& |
379 |
|
|
& 4.0887E-03_JPRB,5.1148E-03_JPRB,5.2710E-03_JPRB,5.0898E-03_JPRB,4.6632E-03_JPRB,4.0157E-03_JPRB,& |
380 |
✓✓ |
12 |
& 3.1155E-03_JPRB,1.9801E-03_JPRB,1.0256E-03_JPRB,5.5681E-04_JPRB,4.0363E-04_JPRB/) |
381 |
|
|
KAO( :, 3, 4, 2) = (/& |
382 |
|
|
& 4.5729E-03_JPRB,5.6722E-03_JPRB,5.8309E-03_JPRB,5.6384E-03_JPRB,5.1725E-03_JPRB,4.4617E-03_JPRB,& |
383 |
✓✓ |
12 |
& 3.4837E-03_JPRB,2.2420E-03_JPRB,1.1837E-03_JPRB,6.5451E-04_JPRB,4.7814E-04_JPRB/) |
384 |
|
|
KAO( :, 4, 4, 2) = (/& |
385 |
|
|
& 5.0500E-03_JPRB,6.2435E-03_JPRB,6.4200E-03_JPRB,6.2178E-03_JPRB,5.7168E-03_JPRB,4.9415E-03_JPRB,& |
386 |
✓✓ |
12 |
& 3.8793E-03_JPRB,2.5280E-03_JPRB,1.3568E-03_JPRB,7.6386E-04_JPRB,5.6139E-04_JPRB/) |
387 |
|
|
KAO( :, 5, 4, 2) = (/& |
388 |
|
|
& 5.5166E-03_JPRB,6.8327E-03_JPRB,7.0292E-03_JPRB,6.8237E-03_JPRB,6.2950E-03_JPRB,5.4568E-03_JPRB,& |
389 |
✓✓ |
12 |
& 4.3128E-03_JPRB,2.8421E-03_JPRB,1.5485E-03_JPRB,8.8605E-04_JPRB,6.5402E-04_JPRB/) |
390 |
|
|
KAO( :, 1, 5, 2) = (/& |
391 |
|
|
& 2.9853E-03_JPRB,3.7407E-03_JPRB,3.8556E-03_JPRB,3.7312E-03_JPRB,3.4190E-03_JPRB,2.9428E-03_JPRB,& |
392 |
✓✓ |
12 |
& 2.2723E-03_JPRB,1.4198E-03_JPRB,7.1091E-04_JPRB,3.6855E-04_JPRB,3.1611E-04_JPRB/) |
393 |
|
|
KAO( :, 2, 5, 2) = (/& |
394 |
|
|
& 3.4022E-03_JPRB,4.2141E-03_JPRB,4.3188E-03_JPRB,4.1657E-03_JPRB,3.8152E-03_JPRB,3.2922E-03_JPRB,& |
395 |
✓✓ |
12 |
& 2.5629E-03_JPRB,1.6244E-03_JPRB,8.2914E-04_JPRB,4.3956E-04_JPRB,3.7920E-04_JPRB/) |
396 |
|
|
KAO( :, 3, 5, 2) = (/& |
397 |
|
|
& 3.8163E-03_JPRB,4.6908E-03_JPRB,4.7976E-03_JPRB,4.6281E-03_JPRB,4.2450E-03_JPRB,3.6719E-03_JPRB,& |
398 |
✓✓ |
12 |
& 2.8734E-03_JPRB,1.8464E-03_JPRB,9.6023E-04_JPRB,5.1918E-04_JPRB,4.5044E-04_JPRB/) |
399 |
|
|
KAO( :, 4, 5, 2) = (/& |
400 |
|
|
& 4.2238E-03_JPRB,5.1812E-03_JPRB,5.2987E-03_JPRB,5.1187E-03_JPRB,4.7071E-03_JPRB,4.0810E-03_JPRB,& |
401 |
✓✓ |
12 |
& 3.2111E-03_JPRB,2.0883E-03_JPRB,1.1042E-03_JPRB,6.0901E-04_JPRB,5.3057E-04_JPRB/) |
402 |
|
|
KAO( :, 5, 5, 2) = (/& |
403 |
|
|
& 4.6242E-03_JPRB,5.6849E-03_JPRB,5.8163E-03_JPRB,5.6316E-03_JPRB,5.2005E-03_JPRB,4.5233E-03_JPRB,& |
404 |
✓✓ |
12 |
& 3.5780E-03_JPRB,2.3536E-03_JPRB,1.2639E-03_JPRB,7.0822E-04_JPRB,6.1748E-04_JPRB/) |
405 |
|
|
KAO( :, 1, 6, 2) = (/& |
406 |
|
|
& 2.4498E-03_JPRB,3.0475E-03_JPRB,3.1220E-03_JPRB,3.0196E-03_JPRB,2.7652E-03_JPRB,2.3889E-03_JPRB,& |
407 |
✓✓ |
12 |
& 1.8491E-03_JPRB,1.1489E-03_JPRB,5.6714E-04_JPRB,2.8783E-04_JPRB,3.1080E-04_JPRB/) |
408 |
|
|
KAO( :, 2, 6, 2) = (/& |
409 |
|
|
& 2.8080E-03_JPRB,3.4520E-03_JPRB,3.5157E-03_JPRB,3.3870E-03_JPRB,3.0980E-03_JPRB,2.6793E-03_JPRB,& |
410 |
✓✓ |
12 |
& 2.0903E-03_JPRB,1.3197E-03_JPRB,6.6501E-04_JPRB,3.4472E-04_JPRB,3.7051E-04_JPRB/) |
411 |
|
|
KAO( :, 3, 6, 2) = (/& |
412 |
|
|
& 3.1640E-03_JPRB,3.8601E-03_JPRB,3.9229E-03_JPRB,3.7774E-03_JPRB,3.4589E-03_JPRB,2.9977E-03_JPRB,& |
413 |
✓✓ |
12 |
& 2.3510E-03_JPRB,1.5040E-03_JPRB,7.7398E-04_JPRB,4.0896E-04_JPRB,4.3796E-04_JPRB/) |
414 |
|
|
KAO( :, 4, 6, 2) = (/& |
415 |
|
|
& 3.5132E-03_JPRB,4.2794E-03_JPRB,4.3478E-03_JPRB,4.1882E-03_JPRB,3.8474E-03_JPRB,3.3403E-03_JPRB,& |
416 |
✓✓ |
12 |
& 2.6340E-03_JPRB,1.7060E-03_JPRB,8.9431E-04_JPRB,4.8188E-04_JPRB,5.1446E-04_JPRB/) |
417 |
|
|
KAO( :, 5, 6, 2) = (/& |
418 |
|
|
& 3.8604E-03_JPRB,4.7099E-03_JPRB,4.7886E-03_JPRB,4.6205E-03_JPRB,4.2616E-03_JPRB,3.7139E-03_JPRB,& |
419 |
✓✓ |
12 |
& 2.9438E-03_JPRB,1.9283E-03_JPRB,1.0272E-03_JPRB,5.6324E-04_JPRB,5.9978E-04_JPRB/) |
420 |
|
|
KAO( :, 1, 7, 2) = (/& |
421 |
|
|
& 1.9828E-03_JPRB,2.4555E-03_JPRB,2.5089E-03_JPRB,2.4265E-03_JPRB,2.2222E-03_JPRB,1.9219E-03_JPRB,& |
422 |
✓✓ |
12 |
& 1.4917E-03_JPRB,9.2169E-04_JPRB,4.4935E-04_JPRB,2.2355E-04_JPRB,3.2905E-04_JPRB/) |
423 |
|
|
KAO( :, 2, 7, 2) = (/& |
424 |
|
|
& 2.2898E-03_JPRB,2.8015E-03_JPRB,2.8404E-03_JPRB,2.7343E-03_JPRB,2.4995E-03_JPRB,2.1638E-03_JPRB,& |
425 |
✓✓ |
12 |
& 1.6905E-03_JPRB,1.0629E-03_JPRB,5.2977E-04_JPRB,2.6953E-04_JPRB,3.8642E-04_JPRB/) |
426 |
|
|
KAO( :, 3, 7, 2) = (/& |
427 |
|
|
& 2.5950E-03_JPRB,3.1495E-03_JPRB,3.1847E-03_JPRB,3.0608E-03_JPRB,2.7988E-03_JPRB,2.4271E-03_JPRB,& |
428 |
✓✓ |
12 |
& 1.9063E-03_JPRB,1.2157E-03_JPRB,6.1889E-04_JPRB,3.2121E-04_JPRB,4.5238E-04_JPRB/) |
429 |
|
|
KAO( :, 4, 7, 2) = (/& |
430 |
|
|
& 2.8946E-03_JPRB,3.5066E-03_JPRB,3.5426E-03_JPRB,3.4040E-03_JPRB,3.1227E-03_JPRB,2.7135E-03_JPRB,& |
431 |
✓✓ |
12 |
& 2.1417E-03_JPRB,1.3825E-03_JPRB,7.1739E-04_JPRB,3.7957E-04_JPRB,5.2784E-04_JPRB/) |
432 |
|
|
KAO( :, 5, 7, 2) = (/& |
433 |
|
|
& 3.1931E-03_JPRB,3.8740E-03_JPRB,3.9151E-03_JPRB,3.7654E-03_JPRB,3.4684E-03_JPRB,3.0255E-03_JPRB,& |
434 |
✓✓ |
12 |
& 2.3992E-03_JPRB,1.5660E-03_JPRB,8.2652E-04_JPRB,4.4537E-04_JPRB,6.1466E-04_JPRB/) |
435 |
|
|
KAO( :, 1, 8, 2) = (/& |
436 |
|
|
& 1.5989E-03_JPRB,1.9702E-03_JPRB,2.0115E-03_JPRB,1.9470E-03_JPRB,1.7844E-03_JPRB,1.5432E-03_JPRB,& |
437 |
✓✓ |
12 |
& 1.1995E-03_JPRB,7.3709E-04_JPRB,3.5460E-04_JPRB,1.7239E-04_JPRB,4.0077E-04_JPRB/) |
438 |
|
|
KAO( :, 2, 8, 2) = (/& |
439 |
|
|
& 1.8612E-03_JPRB,2.2667E-03_JPRB,2.2904E-03_JPRB,2.2044E-03_JPRB,2.0147E-03_JPRB,1.7439E-03_JPRB,& |
440 |
✓✓ |
12 |
& 1.3635E-03_JPRB,8.5344E-04_JPRB,4.2074E-04_JPRB,2.0967E-04_JPRB,4.6582E-04_JPRB/) |
441 |
|
|
KAO( :, 3, 8, 2) = (/& |
442 |
|
|
& 2.1244E-03_JPRB,2.5624E-03_JPRB,2.5789E-03_JPRB,2.4755E-03_JPRB,2.2630E-03_JPRB,1.9622E-03_JPRB,& |
443 |
✓✓ |
12 |
& 1.5425E-03_JPRB,9.7987E-04_JPRB,4.9319E-04_JPRB,2.5142E-04_JPRB,5.4055E-04_JPRB/) |
444 |
|
|
KAO( :, 4, 8, 2) = (/& |
445 |
|
|
& 2.3819E-03_JPRB,2.8649E-03_JPRB,2.8813E-03_JPRB,2.7618E-03_JPRB,2.5306E-03_JPRB,2.2005E-03_JPRB,& |
446 |
✓✓ |
12 |
& 1.7382E-03_JPRB,1.1179E-03_JPRB,5.7326E-04_JPRB,2.9833E-04_JPRB,6.2468E-04_JPRB/) |
447 |
|
|
KAO( :, 5, 8, 2) = (/& |
448 |
|
|
& 2.6384E-03_JPRB,3.1771E-03_JPRB,3.1953E-03_JPRB,3.0634E-03_JPRB,2.8174E-03_JPRB,2.4583E-03_JPRB,& |
449 |
✓✓ |
12 |
& 1.9520E-03_JPRB,1.2696E-03_JPRB,6.6233E-04_JPRB,3.5121E-04_JPRB,7.1932E-04_JPRB/) |
450 |
|
|
KAO( :, 1, 9, 2) = (/& |
451 |
|
|
& 1.2874E-03_JPRB,1.5807E-03_JPRB,1.6105E-03_JPRB,1.5596E-03_JPRB,1.4331E-03_JPRB,1.2409E-03_JPRB,& |
452 |
✓✓ |
12 |
& 9.6467E-04_JPRB,5.8855E-04_JPRB,2.7878E-04_JPRB,1.3223E-04_JPRB,7.1624E-04_JPRB/) |
453 |
|
|
KAO( :, 2, 9, 2) = (/& |
454 |
|
|
& 1.5123E-03_JPRB,1.8336E-03_JPRB,1.8477E-03_JPRB,1.7758E-03_JPRB,1.6249E-03_JPRB,1.4066E-03_JPRB,& |
455 |
✓✓ |
12 |
& 1.0996E-03_JPRB,6.8448E-04_JPRB,3.3322E-04_JPRB,1.6247E-04_JPRB,8.2651E-04_JPRB/) |
456 |
|
|
KAO( :, 3, 9, 2) = (/& |
457 |
|
|
& 1.7405E-03_JPRB,2.0860E-03_JPRB,2.0902E-03_JPRB,2.0023E-03_JPRB,1.8310E-03_JPRB,1.5864E-03_JPRB,& |
458 |
✓✓ |
12 |
& 1.2475E-03_JPRB,7.8935E-04_JPRB,3.9239E-04_JPRB,1.9609E-04_JPRB,9.5177E-04_JPRB/) |
459 |
|
|
KAO( :, 4, 9, 2) = (/& |
460 |
|
|
& 1.9645E-03_JPRB,2.3442E-03_JPRB,2.3456E-03_JPRB,2.2427E-03_JPRB,2.0525E-03_JPRB,1.7831E-03_JPRB,& |
461 |
✓✓ |
12 |
& 1.4096E-03_JPRB,9.0343E-04_JPRB,4.5751E-04_JPRB,2.3374E-04_JPRB,1.0933E-03_JPRB/) |
462 |
|
|
KAO( :, 5, 9, 2) = (/& |
463 |
|
|
& 2.1858E-03_JPRB,2.6097E-03_JPRB,2.6113E-03_JPRB,2.4953E-03_JPRB,2.2897E-03_JPRB,1.9950E-03_JPRB,& |
464 |
✓✓ |
12 |
& 1.5860E-03_JPRB,1.0288E-03_JPRB,5.2969E-04_JPRB,2.7603E-04_JPRB,1.2508E-03_JPRB/) |
465 |
|
|
KAO( :, 1,10, 2) = (/& |
466 |
|
|
& 1.0529E-03_JPRB,1.2869E-03_JPRB,1.3057E-03_JPRB,1.2641E-03_JPRB,1.1629E-03_JPRB,1.0080E-03_JPRB,& |
467 |
✓✓ |
12 |
& 7.8495E-04_JPRB,4.7620E-04_JPRB,2.2170E-04_JPRB,1.0270E-04_JPRB,1.3580E-03_JPRB/) |
468 |
|
|
KAO( :, 2,10, 2) = (/& |
469 |
|
|
& 1.2490E-03_JPRB,1.5074E-03_JPRB,1.5131E-03_JPRB,1.4495E-03_JPRB,1.3257E-03_JPRB,1.1471E-03_JPRB,& |
470 |
✓✓ |
12 |
& 8.9825E-04_JPRB,5.5593E-04_JPRB,2.6681E-04_JPRB,1.2750E-04_JPRB,1.5971E-03_JPRB/) |
471 |
|
|
KAO( :, 3,10, 2) = (/& |
472 |
|
|
& 1.4492E-03_JPRB,1.7260E-03_JPRB,1.7215E-03_JPRB,1.6426E-03_JPRB,1.5005E-03_JPRB,1.2985E-03_JPRB,& |
473 |
✓✓ |
12 |
& 1.0216E-03_JPRB,6.4239E-04_JPRB,3.1568E-04_JPRB,1.5479E-04_JPRB,1.8667E-03_JPRB/) |
474 |
|
|
KAO( :, 4,10, 2) = (/& |
475 |
|
|
& 1.6458E-03_JPRB,1.9481E-03_JPRB,1.9385E-03_JPRB,1.8468E-03_JPRB,1.6872E-03_JPRB,1.4625E-03_JPRB,& |
476 |
✓✓ |
12 |
& 1.1568E-03_JPRB,7.3723E-04_JPRB,3.6917E-04_JPRB,1.8512E-04_JPRB,2.1592E-03_JPRB/) |
477 |
|
|
KAO( :, 5,10, 2) = (/& |
478 |
|
|
& 1.8388E-03_JPRB,2.1768E-03_JPRB,2.1658E-03_JPRB,2.0613E-03_JPRB,1.8866E-03_JPRB,1.6398E-03_JPRB,& |
479 |
✓✓ |
12 |
& 1.3041E-03_JPRB,8.4131E-04_JPRB,4.2827E-04_JPRB,2.1913E-04_JPRB,2.4697E-03_JPRB/) |
480 |
|
|
KAO( :, 1,11, 2) = (/& |
481 |
|
|
& 9.3652E-04_JPRB,1.1385E-03_JPRB,1.1471E-03_JPRB,1.1044E-03_JPRB,1.0133E-03_JPRB,8.7645E-04_JPRB,& |
482 |
✓✓ |
12 |
& 6.8412E-04_JPRB,4.1724E-04_JPRB,1.9356E-04_JPRB,8.8827E-05_JPRB,1.5807E-03_JPRB/) |
483 |
|
|
KAO( :, 2,11, 2) = (/& |
484 |
|
|
& 1.1100E-03_JPRB,1.3322E-03_JPRB,1.3282E-03_JPRB,1.2667E-03_JPRB,1.1577E-03_JPRB,1.0002E-03_JPRB,& |
485 |
✓✓ |
12 |
& 7.8407E-04_JPRB,4.8629E-04_JPRB,2.3224E-04_JPRB,1.1007E-04_JPRB,1.8547E-03_JPRB/) |
486 |
|
|
KAO( :, 3,11, 2) = (/& |
487 |
|
|
& 1.2856E-03_JPRB,1.5232E-03_JPRB,1.5121E-03_JPRB,1.4368E-03_JPRB,1.3117E-03_JPRB,1.1334E-03_JPRB,& |
488 |
✓✓ |
12 |
& 8.9329E-04_JPRB,5.6169E-04_JPRB,2.7435E-04_JPRB,1.3331E-04_JPRB,2.1559E-03_JPRB/) |
489 |
|
|
KAO( :, 4,11, 2) = (/& |
490 |
|
|
& 1.4549E-03_JPRB,1.7175E-03_JPRB,1.7035E-03_JPRB,1.6171E-03_JPRB,1.4759E-03_JPRB,1.2781E-03_JPRB,& |
491 |
✓✓ |
12 |
& 1.0119E-03_JPRB,6.4442E-04_JPRB,3.2046E-04_JPRB,1.5895E-04_JPRB,2.4834E-03_JPRB/) |
492 |
|
|
KAO( :, 5,11, 2) = (/& |
493 |
|
|
& 1.6224E-03_JPRB,1.9187E-03_JPRB,1.9023E-03_JPRB,1.8058E-03_JPRB,1.6504E-03_JPRB,1.4334E-03_JPRB,& |
494 |
✓✓ |
12 |
& 1.1403E-03_JPRB,7.3509E-04_JPRB,3.7157E-04_JPRB,1.8783E-04_JPRB,2.8350E-03_JPRB/) |
495 |
|
|
KAO( :, 1,12, 2) = (/& |
496 |
|
|
& 8.1827E-04_JPRB,9.9361E-04_JPRB,9.9598E-04_JPRB,9.5548E-04_JPRB,8.7645E-04_JPRB,7.5891E-04_JPRB,& |
497 |
✓✓ |
12 |
& 5.9398E-04_JPRB,3.6310E-04_JPRB,1.6830E-04_JPRB,7.6627E-05_JPRB,1.5346E-03_JPRB/) |
498 |
|
|
KAO( :, 2,12, 2) = (/& |
499 |
|
|
& 9.6798E-04_JPRB,1.1604E-03_JPRB,1.1525E-03_JPRB,1.0960E-03_JPRB,1.0027E-03_JPRB,8.6748E-04_JPRB,& |
500 |
✓✓ |
12 |
& 6.8181E-04_JPRB,4.2341E-04_JPRB,2.0151E-04_JPRB,9.4708E-05_JPRB,1.7971E-03_JPRB/) |
501 |
|
|
KAO( :, 3,12, 2) = (/& |
502 |
|
|
& 1.1161E-03_JPRB,1.3239E-03_JPRB,1.3118E-03_JPRB,1.2444E-03_JPRB,1.1369E-03_JPRB,9.8346E-04_JPRB,& |
503 |
✓✓ |
12 |
& 7.7783E-04_JPRB,4.8954E-04_JPRB,2.3774E-04_JPRB,1.1437E-04_JPRB,2.0823E-03_JPRB/) |
504 |
|
|
KAO( :, 4,12, 2) = (/& |
505 |
|
|
& 1.2595E-03_JPRB,1.4901E-03_JPRB,1.4761E-03_JPRB,1.3996E-03_JPRB,1.2792E-03_JPRB,1.1092E-03_JPRB,& |
506 |
✓✓ |
12 |
& 8.8159E-04_JPRB,5.6210E-04_JPRB,2.7747E-04_JPRB,1.3609E-04_JPRB,2.3913E-03_JPRB/) |
507 |
|
|
KAO( :, 5,12, 2) = (/& |
508 |
|
|
& 1.4015E-03_JPRB,1.6631E-03_JPRB,1.6469E-03_JPRB,1.5633E-03_JPRB,1.4309E-03_JPRB,1.2447E-03_JPRB,& |
509 |
✓✓ |
12 |
& 9.9327E-04_JPRB,6.4127E-04_JPRB,3.2131E-04_JPRB,1.6049E-04_JPRB,2.7230E-03_JPRB/) |
510 |
|
|
KAO( :, 1,13, 2) = (/& |
511 |
|
|
& 7.0404E-04_JPRB,8.5653E-04_JPRB,8.5583E-04_JPRB,8.1887E-04_JPRB,7.5123E-04_JPRB,6.5123E-04_JPRB,& |
512 |
✓✓ |
12 |
& 5.1170E-04_JPRB,3.1408E-04_JPRB,1.4547E-04_JPRB,6.5608E-05_JPRB,1.2897E-03_JPRB/) |
513 |
|
|
KAO( :, 2,13, 2) = (/& |
514 |
|
|
& 8.3008E-04_JPRB,9.9639E-04_JPRB,9.8845E-04_JPRB,9.3911E-04_JPRB,8.5990E-04_JPRB,7.4464E-04_JPRB,& |
515 |
✓✓ |
12 |
& 5.8802E-04_JPRB,3.6685E-04_JPRB,1.7398E-04_JPRB,8.0807E-05_JPRB,1.5096E-03_JPRB/) |
516 |
|
|
KAO( :, 3,13, 2) = (/& |
517 |
|
|
& 9.5290E-04_JPRB,1.1338E-03_JPRB,1.1232E-03_JPRB,1.0653E-03_JPRB,9.7462E-04_JPRB,8.4434E-04_JPRB,& |
518 |
✓✓ |
12 |
& 6.7107E-04_JPRB,4.2462E-04_JPRB,2.0511E-04_JPRB,9.7336E-05_JPRB,1.7467E-03_JPRB/) |
519 |
|
|
KAO( :, 4,13, 2) = (/& |
520 |
|
|
& 1.0727E-03_JPRB,1.2739E-03_JPRB,1.2624E-03_JPRB,1.1971E-03_JPRB,1.0958E-03_JPRB,9.5214E-04_JPRB,& |
521 |
✓✓ |
12 |
& 7.5999E-04_JPRB,4.8760E-04_JPRB,2.3902E-04_JPRB,1.1564E-04_JPRB,2.0029E-03_JPRB/) |
522 |
|
|
KAO( :, 5,13, 2) = (/& |
523 |
|
|
& 1.1912E-03_JPRB,1.4186E-03_JPRB,1.4067E-03_JPRB,1.3365E-03_JPRB,1.2243E-03_JPRB,1.0674E-03_JPRB,& |
524 |
✓✓ |
12 |
& 8.5545E-04_JPRB,5.5580E-04_JPRB,2.7627E-04_JPRB,1.3629E-04_JPRB,2.2773E-03_JPRB/) |
525 |
|
|
KAO( :, 1, 1, 3) = (/& |
526 |
|
|
& 1.5976E-02_JPRB,1.8568E-02_JPRB,1.8677E-02_JPRB,1.8308E-02_JPRB,1.7430E-02_JPRB,1.5980E-02_JPRB,& |
527 |
✓✓ |
12 |
& 1.3794E-02_JPRB,1.0032E-02_JPRB,5.6593E-03_JPRB,3.1315E-03_JPRB,1.4725E-03_JPRB/) |
528 |
|
|
KAO( :, 2, 1, 3) = (/& |
529 |
|
|
& 1.7009E-02_JPRB,1.9983E-02_JPRB,2.0158E-02_JPRB,1.9765E-02_JPRB,1.8846E-02_JPRB,1.7308E-02_JPRB,& |
530 |
✓✓ |
12 |
& 1.4965E-02_JPRB,1.0920E-02_JPRB,6.2447E-03_JPRB,3.5291E-03_JPRB,1.7476E-03_JPRB/) |
531 |
|
|
KAO( :, 3, 1, 3) = (/& |
532 |
|
|
& 1.8075E-02_JPRB,2.1456E-02_JPRB,2.1662E-02_JPRB,2.1259E-02_JPRB,2.0298E-02_JPRB,1.8677E-02_JPRB,& |
533 |
✓✓ |
12 |
& 1.6168E-02_JPRB,1.1845E-02_JPRB,6.8970E-03_JPRB,3.9734E-03_JPRB,2.0647E-03_JPRB/) |
534 |
|
|
KAO( :, 4, 1, 3) = (/& |
535 |
|
|
& 1.9173E-02_JPRB,2.2980E-02_JPRB,2.3194E-02_JPRB,2.2786E-02_JPRB,2.1822E-02_JPRB,2.0115E-02_JPRB,& |
536 |
✓✓ |
12 |
& 1.7401E-02_JPRB,1.2827E-02_JPRB,7.6128E-03_JPRB,4.4580E-03_JPRB,2.4335E-03_JPRB/) |
537 |
|
|
KAO( :, 5, 1, 3) = (/& |
538 |
|
|
& 2.0338E-02_JPRB,2.4533E-02_JPRB,2.4778E-02_JPRB,2.4397E-02_JPRB,2.3401E-02_JPRB,2.1590E-02_JPRB,& |
539 |
✓✓ |
12 |
& 1.8677E-02_JPRB,1.3858E-02_JPRB,8.3792E-03_JPRB,4.9858E-03_JPRB,2.8649E-03_JPRB/) |
540 |
|
|
KAO( :, 1, 2, 3) = (/& |
541 |
|
|
& 1.3803E-02_JPRB,1.6030E-02_JPRB,1.6037E-02_JPRB,1.5594E-02_JPRB,1.4756E-02_JPRB,1.3459E-02_JPRB,& |
542 |
✓✓ |
12 |
& 1.1617E-02_JPRB,8.5122E-03_JPRB,4.8022E-03_JPRB,2.6569E-03_JPRB,1.3182E-03_JPRB/) |
543 |
|
|
KAO( :, 2, 2, 3) = (/& |
544 |
|
|
& 1.4747E-02_JPRB,1.7312E-02_JPRB,1.7346E-02_JPRB,1.6863E-02_JPRB,1.5968E-02_JPRB,1.4592E-02_JPRB,& |
545 |
✓✓ |
12 |
& 1.2613E-02_JPRB,9.2706E-03_JPRB,5.3102E-03_JPRB,3.0023E-03_JPRB,1.5460E-03_JPRB/) |
546 |
|
|
KAO( :, 3, 2, 3) = (/& |
547 |
|
|
& 1.5720E-02_JPRB,1.8638E-02_JPRB,1.8676E-02_JPRB,1.8166E-02_JPRB,1.7228E-02_JPRB,1.5775E-02_JPRB,& |
548 |
✓✓ |
12 |
& 1.3646E-02_JPRB,1.0060E-02_JPRB,5.8750E-03_JPRB,3.3882E-03_JPRB,1.8045E-03_JPRB/) |
549 |
|
|
KAO( :, 4, 2, 3) = (/& |
550 |
|
|
& 1.6750E-02_JPRB,1.9993E-02_JPRB,2.0028E-02_JPRB,1.9499E-02_JPRB,1.8542E-02_JPRB,1.7020E-02_JPRB,& |
551 |
✓✓ |
12 |
& 1.4712E-02_JPRB,1.0896E-02_JPRB,6.4908E-03_JPRB,3.8125E-03_JPRB,2.0990E-03_JPRB/) |
552 |
|
|
KAO( :, 5, 2, 3) = (/& |
553 |
|
|
& 1.7833E-02_JPRB,2.1360E-02_JPRB,2.1424E-02_JPRB,2.0911E-02_JPRB,1.9906E-02_JPRB,1.8307E-02_JPRB,& |
554 |
✓✓ |
12 |
& 1.5816E-02_JPRB,1.1769E-02_JPRB,7.1573E-03_JPRB,4.2773E-03_JPRB,2.4433E-03_JPRB/) |
555 |
|
|
KAO( :, 1, 3, 3) = (/& |
556 |
|
|
& 1.1661E-02_JPRB,1.3546E-02_JPRB,1.3524E-02_JPRB,1.3093E-02_JPRB,1.2307E-02_JPRB,1.1159E-02_JPRB,& |
557 |
✓✓ |
12 |
& 9.5780E-03_JPRB,7.0484E-03_JPRB,3.9675E-03_JPRB,2.1846E-03_JPRB,1.2406E-03_JPRB/) |
558 |
|
|
KAO( :, 2, 3, 3) = (/& |
559 |
|
|
& 1.2503E-02_JPRB,1.4707E-02_JPRB,1.4691E-02_JPRB,1.4206E-02_JPRB,1.3360E-02_JPRB,1.2110E-02_JPRB,& |
560 |
✓✓ |
12 |
& 1.0409E-02_JPRB,7.6788E-03_JPRB,4.3933E-03_JPRB,2.4719E-03_JPRB,1.4298E-03_JPRB/) |
561 |
|
|
KAO( :, 3, 3, 3) = (/& |
562 |
|
|
& 1.3391E-02_JPRB,1.5887E-02_JPRB,1.5874E-02_JPRB,1.5334E-02_JPRB,1.4440E-02_JPRB,1.3111E-02_JPRB,& |
563 |
✓✓ |
12 |
& 1.1280E-02_JPRB,8.3388E-03_JPRB,4.8688E-03_JPRB,2.7958E-03_JPRB,1.6523E-03_JPRB/) |
564 |
|
|
KAO( :, 4, 3, 3) = (/& |
565 |
|
|
& 1.4336E-02_JPRB,1.7085E-02_JPRB,1.7069E-02_JPRB,1.6495E-02_JPRB,1.5553E-02_JPRB,1.4166E-02_JPRB,& |
566 |
✓✓ |
12 |
& 1.2195E-02_JPRB,9.0457E-03_JPRB,5.3867E-03_JPRB,3.1533E-03_JPRB,1.9090E-03_JPRB/) |
567 |
|
|
KAO( :, 5, 3, 3) = (/& |
568 |
|
|
& 1.5320E-02_JPRB,1.8321E-02_JPRB,1.8292E-02_JPRB,1.7706E-02_JPRB,1.6704E-02_JPRB,1.5265E-02_JPRB,& |
569 |
✓✓ |
12 |
& 1.3148E-02_JPRB,9.7836E-03_JPRB,5.9483E-03_JPRB,3.5492E-03_JPRB,2.2059E-03_JPRB/) |
570 |
|
|
KAO( :, 1, 4, 3) = (/& |
571 |
|
|
& 9.7449E-03_JPRB,1.1294E-02_JPRB,1.1258E-02_JPRB,1.0884E-02_JPRB,1.0199E-02_JPRB,9.2227E-03_JPRB,& |
572 |
✓✓ |
12 |
& 7.8658E-03_JPRB,5.7767E-03_JPRB,3.2406E-03_JPRB,1.7708E-03_JPRB,1.2728E-03_JPRB/) |
573 |
|
|
KAO( :, 2, 4, 3) = (/& |
574 |
|
|
& 1.0487E-02_JPRB,1.2330E-02_JPRB,1.2286E-02_JPRB,1.1862E-02_JPRB,1.1122E-02_JPRB,1.0046E-02_JPRB,& |
575 |
✓✓ |
12 |
& 8.5629E-03_JPRB,6.2952E-03_JPRB,3.5929E-03_JPRB,2.0093E-03_JPRB,1.4326E-03_JPRB/) |
576 |
|
|
KAO( :, 3, 4, 3) = (/& |
577 |
|
|
& 1.1282E-02_JPRB,1.3369E-02_JPRB,1.3332E-02_JPRB,1.2857E-02_JPRB,1.2064E-02_JPRB,1.0901E-02_JPRB,& |
578 |
✓✓ |
12 |
& 9.2930E-03_JPRB,6.8463E-03_JPRB,3.9872E-03_JPRB,2.2770E-03_JPRB,1.6227E-03_JPRB/) |
579 |
|
|
KAO( :, 4, 4, 3) = (/& |
580 |
|
|
& 1.2130E-02_JPRB,1.4435E-02_JPRB,1.4396E-02_JPRB,1.3883E-02_JPRB,1.3026E-02_JPRB,1.1786E-02_JPRB,& |
581 |
✓✓ |
12 |
& 1.0067E-02_JPRB,7.4371E-03_JPRB,4.4153E-03_JPRB,2.5725E-03_JPRB,1.8437E-03_JPRB/) |
582 |
|
|
KAO( :, 5, 4, 3) = (/& |
583 |
|
|
& 1.3022E-02_JPRB,1.5544E-02_JPRB,1.5501E-02_JPRB,1.4941E-02_JPRB,1.4007E-02_JPRB,1.2708E-02_JPRB,& |
584 |
✓✓ |
12 |
& 1.0876E-02_JPRB,8.0666E-03_JPRB,4.8767E-03_JPRB,2.9035E-03_JPRB,2.1000E-03_JPRB/) |
585 |
|
|
KAO( :, 1, 5, 3) = (/& |
586 |
|
|
& 8.1183E-03_JPRB,9.3706E-03_JPRB,9.3339E-03_JPRB,9.0036E-03_JPRB,8.4209E-03_JPRB,7.5832E-03_JPRB,& |
587 |
✓✓ |
12 |
& 6.4445E-03_JPRB,4.7331E-03_JPRB,2.6371E-03_JPRB,1.4269E-03_JPRB,1.3512E-03_JPRB/) |
588 |
|
|
KAO( :, 2, 5, 3) = (/& |
589 |
|
|
& 8.7619E-03_JPRB,1.0271E-02_JPRB,1.0226E-02_JPRB,9.8533E-03_JPRB,9.2177E-03_JPRB,8.3034E-03_JPRB,& |
590 |
✓✓ |
12 |
& 7.0466E-03_JPRB,5.1625E-03_JPRB,2.9261E-03_JPRB,1.6222E-03_JPRB,1.4975E-03_JPRB/) |
591 |
|
|
KAO( :, 3, 5, 3) = (/& |
592 |
|
|
& 9.4590E-03_JPRB,1.1191E-02_JPRB,1.1132E-02_JPRB,1.0717E-02_JPRB,1.0035E-02_JPRB,9.0438E-03_JPRB,& |
593 |
✓✓ |
12 |
& 7.6825E-03_JPRB,5.6186E-03_JPRB,3.2487E-03_JPRB,1.8419E-03_JPRB,1.6628E-03_JPRB/) |
594 |
|
|
KAO( :, 4, 5, 3) = (/& |
595 |
|
|
& 1.0214E-02_JPRB,1.2129E-02_JPRB,1.2065E-02_JPRB,1.1613E-02_JPRB,1.0874E-02_JPRB,9.8104E-03_JPRB,& |
596 |
✓✓ |
12 |
& 8.3376E-03_JPRB,6.1127E-03_JPRB,3.6040E-03_JPRB,2.0844E-03_JPRB,1.8526E-03_JPRB/) |
597 |
|
|
KAO( :, 5, 5, 3) = (/& |
598 |
|
|
& 1.1012E-02_JPRB,1.3112E-02_JPRB,1.3045E-02_JPRB,1.2543E-02_JPRB,1.1733E-02_JPRB,1.0605E-02_JPRB,& |
599 |
✓✓ |
12 |
& 9.0222E-03_JPRB,6.6408E-03_JPRB,3.9796E-03_JPRB,2.3572E-03_JPRB,2.0770E-03_JPRB/) |
600 |
|
|
KAO( :, 1, 6, 3) = (/& |
601 |
|
|
& 6.7387E-03_JPRB,7.7194E-03_JPRB,7.6902E-03_JPRB,7.3986E-03_JPRB,6.9016E-03_JPRB,6.1800E-03_JPRB,& |
602 |
✓✓ |
12 |
& 5.2304E-03_JPRB,3.8605E-03_JPRB,2.1393E-03_JPRB,1.1384E-03_JPRB,1.3809E-03_JPRB/) |
603 |
|
|
KAO( :, 2, 6, 3) = (/& |
604 |
|
|
& 7.2904E-03_JPRB,8.4901E-03_JPRB,8.4559E-03_JPRB,8.1341E-03_JPRB,7.5897E-03_JPRB,6.8043E-03_JPRB,& |
605 |
✓✓ |
12 |
& 5.7497E-03_JPRB,4.2219E-03_JPRB,2.3703E-03_JPRB,1.2951E-03_JPRB,1.5336E-03_JPRB/) |
606 |
|
|
KAO( :, 3, 6, 3) = (/& |
607 |
|
|
& 7.8883E-03_JPRB,9.2955E-03_JPRB,9.2345E-03_JPRB,8.8797E-03_JPRB,8.2936E-03_JPRB,7.4421E-03_JPRB,& |
608 |
✓✓ |
12 |
& 6.2952E-03_JPRB,4.6028E-03_JPRB,2.6285E-03_JPRB,1.4716E-03_JPRB,1.6931E-03_JPRB/) |
609 |
|
|
KAO( :, 4, 6, 3) = (/& |
610 |
|
|
& 8.5494E-03_JPRB,1.0121E-02_JPRB,1.0046E-02_JPRB,9.6522E-03_JPRB,9.0176E-03_JPRB,8.1042E-03_JPRB,& |
611 |
✓✓ |
12 |
& 6.8613E-03_JPRB,5.0179E-03_JPRB,2.9165E-03_JPRB,1.6693E-03_JPRB,1.8690E-03_JPRB/) |
612 |
|
|
KAO( :, 5, 6, 3) = (/& |
613 |
|
|
& 9.2455E-03_JPRB,1.0989E-02_JPRB,1.0902E-02_JPRB,1.0465E-02_JPRB,9.7689E-03_JPRB,8.7913E-03_JPRB,& |
614 |
✓✓ |
12 |
& 7.4494E-03_JPRB,5.4572E-03_JPRB,3.2276E-03_JPRB,1.8909E-03_JPRB,2.0643E-03_JPRB/) |
615 |
|
|
KAO( :, 1, 7, 3) = (/& |
616 |
|
|
& 5.5708E-03_JPRB,6.3303E-03_JPRB,6.2934E-03_JPRB,6.0276E-03_JPRB,5.6127E-03_JPRB,5.0058E-03_JPRB,& |
617 |
✓✓ |
12 |
& 4.2172E-03_JPRB,3.1142E-03_JPRB,1.7288E-03_JPRB,9.0214E-04_JPRB,1.3580E-03_JPRB/) |
618 |
|
|
KAO( :, 2, 7, 3) = (/& |
619 |
|
|
& 6.0396E-03_JPRB,6.9771E-03_JPRB,6.9412E-03_JPRB,6.6559E-03_JPRB,6.1993E-03_JPRB,5.5301E-03_JPRB,& |
620 |
✓✓ |
12 |
& 4.6524E-03_JPRB,3.4207E-03_JPRB,1.9119E-03_JPRB,1.0257E-03_JPRB,1.5329E-03_JPRB/) |
621 |
|
|
KAO( :, 3, 7, 3) = (/& |
622 |
|
|
& 6.5450E-03_JPRB,7.6646E-03_JPRB,7.6059E-03_JPRB,7.3014E-03_JPRB,6.8031E-03_JPRB,6.0741E-03_JPRB,& |
623 |
✓✓ |
12 |
& 5.1130E-03_JPRB,3.7412E-03_JPRB,2.1172E-03_JPRB,1.1666E-03_JPRB,1.7255E-03_JPRB/) |
624 |
|
|
KAO( :, 4, 7, 3) = (/& |
625 |
|
|
& 7.1105E-03_JPRB,8.3764E-03_JPRB,8.3038E-03_JPRB,7.9705E-03_JPRB,7.4282E-03_JPRB,6.6393E-03_JPRB,& |
626 |
✓✓ |
12 |
& 5.5928E-03_JPRB,4.0886E-03_JPRB,2.3470E-03_JPRB,1.3258E-03_JPRB,1.9241E-03_JPRB/) |
627 |
|
|
KAO( :, 5, 7, 3) = (/& |
628 |
|
|
& 7.7089E-03_JPRB,9.1270E-03_JPRB,9.0467E-03_JPRB,8.6734E-03_JPRB,8.0760E-03_JPRB,7.2286E-03_JPRB,& |
629 |
✓✓ |
12 |
& 6.0941E-03_JPRB,4.4574E-03_JPRB,2.6042E-03_JPRB,1.5049E-03_JPRB,2.1289E-03_JPRB/) |
630 |
|
|
KAO( :, 1, 8, 3) = (/& |
631 |
|
|
& 4.5931E-03_JPRB,5.1838E-03_JPRB,5.1398E-03_JPRB,4.8986E-03_JPRB,4.5439E-03_JPRB,4.0450E-03_JPRB,& |
632 |
✓✓ |
12 |
& 3.3970E-03_JPRB,2.5021E-03_JPRB,1.3915E-03_JPRB,7.1461E-04_JPRB,1.4342E-03_JPRB/) |
633 |
|
|
KAO( :, 2, 8, 3) = (/& |
634 |
|
|
& 4.9923E-03_JPRB,5.7205E-03_JPRB,5.6835E-03_JPRB,5.4255E-03_JPRB,5.0420E-03_JPRB,4.4815E-03_JPRB,& |
635 |
✓✓ |
12 |
& 3.7569E-03_JPRB,2.7595E-03_JPRB,1.5378E-03_JPRB,8.1223E-04_JPRB,1.6265E-03_JPRB/) |
636 |
|
|
KAO( :, 3, 8, 3) = (/& |
637 |
|
|
& 5.4187E-03_JPRB,6.3059E-03_JPRB,6.2512E-03_JPRB,5.9779E-03_JPRB,5.5552E-03_JPRB,4.9397E-03_JPRB,& |
638 |
✓✓ |
12 |
& 4.1407E-03_JPRB,3.0283E-03_JPRB,1.7020E-03_JPRB,9.2374E-04_JPRB,1.8395E-03_JPRB/) |
639 |
|
|
KAO( :, 4, 8, 3) = (/& |
640 |
|
|
& 5.8951E-03_JPRB,6.9159E-03_JPRB,6.8456E-03_JPRB,6.5555E-03_JPRB,6.0927E-03_JPRB,5.4203E-03_JPRB,& |
641 |
✓✓ |
12 |
& 4.5434E-03_JPRB,3.3140E-03_JPRB,1.8874E-03_JPRB,1.0500E-03_JPRB,2.0723E-03_JPRB/) |
642 |
|
|
KAO( :, 5, 8, 3) = (/& |
643 |
|
|
& 6.4067E-03_JPRB,7.5583E-03_JPRB,7.4822E-03_JPRB,7.1624E-03_JPRB,6.6529E-03_JPRB,5.9218E-03_JPRB,& |
644 |
✓✓ |
12 |
& 4.9680E-03_JPRB,3.6203E-03_JPRB,2.0980E-03_JPRB,1.1933E-03_JPRB,2.3247E-03_JPRB/) |
645 |
|
|
KAO( :, 1, 9, 3) = (/& |
646 |
|
|
& 3.7723E-03_JPRB,4.2334E-03_JPRB,4.1819E-03_JPRB,3.9649E-03_JPRB,3.6588E-03_JPRB,3.2575E-03_JPRB,& |
647 |
✓✓ |
12 |
& 2.7305E-03_JPRB,2.0072E-03_JPRB,1.1193E-03_JPRB,5.6741E-04_JPRB,1.9860E-03_JPRB/) |
648 |
|
|
KAO( :, 2, 9, 3) = (/& |
649 |
|
|
& 4.1112E-03_JPRB,4.6764E-03_JPRB,4.6357E-03_JPRB,4.4068E-03_JPRB,4.0793E-03_JPRB,3.6198E-03_JPRB,& |
650 |
✓✓ |
12 |
& 3.0290E-03_JPRB,2.2191E-03_JPRB,1.2358E-03_JPRB,6.4340E-04_JPRB,2.2587E-03_JPRB/) |
651 |
|
|
|
652 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART2',1,ZHOOK_HANDLE) |
653 |
|
1 |
END SUBROUTINE PART2 |
654 |
|
|
|
655 |
|
|
|
656 |
|
1 |
SUBROUTINE PART3 |
657 |
|
|
|
658 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
659 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART3',0,ZHOOK_HANDLE) |
660 |
|
|
|
661 |
|
|
|
662 |
|
|
KAO( :, 3, 9, 3) = (/& |
663 |
|
|
& 4.4681E-03_JPRB,5.1657E-03_JPRB,5.1169E-03_JPRB,4.8742E-03_JPRB,4.5148E-03_JPRB,4.0038E-03_JPRB,& |
664 |
✓✓ |
12 |
& 3.3466E-03_JPRB,2.4441E-03_JPRB,1.3675E-03_JPRB,7.3070E-04_JPRB,2.5668E-03_JPRB/) |
665 |
|
|
KAO( :, 4, 9, 3) = (/& |
666 |
|
|
& 4.8668E-03_JPRB,5.6866E-03_JPRB,5.6264E-03_JPRB,5.3677E-03_JPRB,4.9748E-03_JPRB,4.4113E-03_JPRB,& |
667 |
✓✓ |
12 |
& 3.6848E-03_JPRB,2.6780E-03_JPRB,1.5165E-03_JPRB,8.3094E-04_JPRB,2.9044E-03_JPRB/) |
668 |
|
|
KAO( :, 5, 9, 3) = (/& |
669 |
|
|
& 5.3024E-03_JPRB,6.2338E-03_JPRB,6.1683E-03_JPRB,5.8906E-03_JPRB,5.4560E-03_JPRB,4.8416E-03_JPRB,& |
670 |
✓✓ |
12 |
& 4.0418E-03_JPRB,2.9316E-03_JPRB,1.6868E-03_JPRB,9.4494E-04_JPRB,3.2758E-03_JPRB/) |
671 |
|
|
KAO( :, 1,10, 3) = (/& |
672 |
|
|
& 3.1048E-03_JPRB,3.4713E-03_JPRB,3.4149E-03_JPRB,3.2215E-03_JPRB,2.9606E-03_JPRB,2.6323E-03_JPRB,& |
673 |
✓✓ |
12 |
& 2.2040E-03_JPRB,1.6183E-03_JPRB,9.0511E-04_JPRB,4.5442E-04_JPRB,3.4066E-03_JPRB/) |
674 |
|
|
KAO( :, 2,10, 3) = (/& |
675 |
|
|
& 3.3920E-03_JPRB,3.8387E-03_JPRB,3.7924E-03_JPRB,3.5898E-03_JPRB,3.3084E-03_JPRB,2.9358E-03_JPRB,& |
676 |
✓✓ |
12 |
& 2.4507E-03_JPRB,1.7915E-03_JPRB,9.9919E-04_JPRB,5.1342E-04_JPRB,3.8889E-03_JPRB/) |
677 |
|
|
KAO( :, 3,10, 3) = (/& |
678 |
|
|
& 3.6957E-03_JPRB,4.2459E-03_JPRB,4.1994E-03_JPRB,3.9831E-03_JPRB,3.6769E-03_JPRB,3.2571E-03_JPRB,& |
679 |
✓✓ |
12 |
& 2.7157E-03_JPRB,1.9778E-03_JPRB,1.1048E-03_JPRB,5.8256E-04_JPRB,4.4355E-03_JPRB/) |
680 |
|
|
KAO( :, 4,10, 3) = (/& |
681 |
|
|
& 4.0318E-03_JPRB,4.6867E-03_JPRB,4.6340E-03_JPRB,4.4000E-03_JPRB,4.0676E-03_JPRB,3.6005E-03_JPRB,& |
682 |
✓✓ |
12 |
& 2.9971E-03_JPRB,2.1730E-03_JPRB,1.2259E-03_JPRB,6.6297E-04_JPRB,5.0564E-03_JPRB/) |
683 |
|
|
KAO( :, 5,10, 3) = (/& |
684 |
|
|
& 4.4033E-03_JPRB,5.1538E-03_JPRB,5.0961E-03_JPRB,4.8470E-03_JPRB,4.4796E-03_JPRB,3.9660E-03_JPRB,& |
685 |
✓✓ |
12 |
& 3.2977E-03_JPRB,2.3839E-03_JPRB,1.3631E-03_JPRB,7.5476E-04_JPRB,5.7516E-03_JPRB/) |
686 |
|
|
KAO( :, 1,11, 3) = (/& |
687 |
|
|
& 2.6765E-03_JPRB,2.9827E-03_JPRB,2.9227E-03_JPRB,2.7508E-03_JPRB,2.5220E-03_JPRB,2.2363E-03_JPRB,& |
688 |
✓✓ |
12 |
& 1.8676E-03_JPRB,1.3675E-03_JPRB,7.6612E-04_JPRB,3.8447E-04_JPRB,4.0480E-03_JPRB/) |
689 |
|
|
KAO( :, 2,11, 3) = (/& |
690 |
|
|
& 2.9286E-03_JPRB,3.3040E-03_JPRB,3.2538E-03_JPRB,3.0703E-03_JPRB,2.8192E-03_JPRB,2.4962E-03_JPRB,& |
691 |
✓✓ |
12 |
& 2.0772E-03_JPRB,1.5146E-03_JPRB,8.4625E-04_JPRB,4.3409E-04_JPRB,4.6666E-03_JPRB/) |
692 |
|
|
KAO( :, 3,11, 3) = (/& |
693 |
|
|
& 3.2003E-03_JPRB,3.6648E-03_JPRB,3.6125E-03_JPRB,3.4113E-03_JPRB,3.1362E-03_JPRB,2.7724E-03_JPRB,& |
694 |
✓✓ |
12 |
& 2.3029E-03_JPRB,1.6722E-03_JPRB,9.3679E-04_JPRB,4.9229E-04_JPRB,5.3654E-03_JPRB/) |
695 |
|
|
KAO( :, 4,11, 3) = (/& |
696 |
|
|
& 3.5051E-03_JPRB,4.0531E-03_JPRB,3.9947E-03_JPRB,3.7750E-03_JPRB,3.4761E-03_JPRB,3.0693E-03_JPRB,& |
697 |
✓✓ |
12 |
& 2.5452E-03_JPRB,1.8406E-03_JPRB,1.0404E-03_JPRB,5.6079E-04_JPRB,6.1512E-03_JPRB/) |
698 |
|
|
KAO( :, 5,11, 3) = (/& |
699 |
|
|
& 3.8321E-03_JPRB,4.4649E-03_JPRB,4.4022E-03_JPRB,4.1654E-03_JPRB,3.8377E-03_JPRB,3.3874E-03_JPRB,& |
700 |
✓✓ |
12 |
& 2.8053E-03_JPRB,2.0226E-03_JPRB,1.1574E-03_JPRB,6.3974E-04_JPRB,7.0160E-03_JPRB/) |
701 |
|
|
KAO( :, 1,12, 3) = (/& |
702 |
|
|
& 2.3036E-03_JPRB,2.5583E-03_JPRB,2.4978E-03_JPRB,2.3445E-03_JPRB,2.1430E-03_JPRB,1.8944E-03_JPRB,& |
703 |
✓✓ |
12 |
& 1.5761E-03_JPRB,1.1517E-03_JPRB,6.4556E-04_JPRB,3.2349E-04_JPRB,4.0392E-03_JPRB/) |
704 |
|
|
KAO( :, 2,12, 3) = (/& |
705 |
|
|
& 2.5244E-03_JPRB,2.8452E-03_JPRB,2.7899E-03_JPRB,2.6237E-03_JPRB,2.3996E-03_JPRB,2.1171E-03_JPRB,& |
706 |
✓✓ |
12 |
& 1.7537E-03_JPRB,1.2751E-03_JPRB,7.1384E-04_JPRB,3.6513E-04_JPRB,4.6690E-03_JPRB/) |
707 |
|
|
KAO( :, 3,12, 3) = (/& |
708 |
|
|
& 2.7664E-03_JPRB,3.1661E-03_JPRB,3.1080E-03_JPRB,2.9230E-03_JPRB,2.6751E-03_JPRB,2.3552E-03_JPRB,& |
709 |
✓✓ |
12 |
& 1.9462E-03_JPRB,1.4075E-03_JPRB,7.9075E-04_JPRB,4.1435E-04_JPRB,5.3798E-03_JPRB/) |
710 |
|
|
KAO( :, 4,12, 3) = (/& |
711 |
|
|
& 3.0371E-03_JPRB,3.5090E-03_JPRB,3.4460E-03_JPRB,3.2437E-03_JPRB,2.9706E-03_JPRB,2.6114E-03_JPRB,& |
712 |
✓✓ |
12 |
& 2.1543E-03_JPRB,1.5507E-03_JPRB,8.7926E-04_JPRB,4.7250E-04_JPRB,6.1711E-03_JPRB/) |
713 |
|
|
KAO( :, 5,12, 3) = (/& |
714 |
|
|
& 3.3239E-03_JPRB,3.8709E-03_JPRB,3.8063E-03_JPRB,3.5842E-03_JPRB,3.2855E-03_JPRB,2.8872E-03_JPRB,& |
715 |
✓✓ |
12 |
& 2.3774E-03_JPRB,1.7073E-03_JPRB,9.7951E-04_JPRB,5.3974E-04_JPRB,7.0329E-03_JPRB/) |
716 |
|
|
KAO( :, 1,13, 3) = (/& |
717 |
|
|
& 1.9693E-03_JPRB,2.1819E-03_JPRB,2.1260E-03_JPRB,1.9917E-03_JPRB,1.8142E-03_JPRB,1.5977E-03_JPRB,& |
718 |
✓✓ |
12 |
& 1.3230E-03_JPRB,9.6163E-04_JPRB,5.3722E-04_JPRB,2.6914E-04_JPRB,3.4457E-03_JPRB/) |
719 |
|
|
KAO( :, 2,13, 3) = (/& |
720 |
|
|
& 2.1605E-03_JPRB,2.4363E-03_JPRB,2.3825E-03_JPRB,2.2341E-03_JPRB,2.0358E-03_JPRB,1.7890E-03_JPRB,& |
721 |
✓✓ |
12 |
& 1.4743E-03_JPRB,1.0637E-03_JPRB,5.9461E-04_JPRB,3.0420E-04_JPRB,3.9859E-03_JPRB/) |
722 |
|
|
KAO( :, 3,13, 3) = (/& |
723 |
|
|
& 2.3729E-03_JPRB,2.7175E-03_JPRB,2.6607E-03_JPRB,2.4950E-03_JPRB,2.2744E-03_JPRB,1.9956E-03_JPRB,& |
724 |
✓✓ |
12 |
& 1.6383E-03_JPRB,1.1739E-03_JPRB,6.5958E-04_JPRB,3.4564E-04_JPRB,4.5954E-03_JPRB/) |
725 |
|
|
KAO( :, 4,13, 3) = (/& |
726 |
|
|
& 2.6042E-03_JPRB,3.0147E-03_JPRB,2.9558E-03_JPRB,2.7741E-03_JPRB,2.5310E-03_JPRB,2.2169E-03_JPRB,& |
727 |
✓✓ |
12 |
& 1.8165E-03_JPRB,1.2954E-03_JPRB,7.3516E-04_JPRB,3.9462E-04_JPRB,5.2719E-03_JPRB/) |
728 |
|
|
KAO( :, 5,13, 3) = (/& |
729 |
|
|
& 2.8484E-03_JPRB,3.3273E-03_JPRB,3.2687E-03_JPRB,3.0678E-03_JPRB,2.8024E-03_JPRB,2.4543E-03_JPRB,& |
730 |
✓✓ |
12 |
& 2.0064E-03_JPRB,1.4291E-03_JPRB,8.2095E-04_JPRB,4.5105E-04_JPRB,5.9980E-03_JPRB/) |
731 |
|
|
KAO( :, 1, 1, 4) = (/& |
732 |
|
|
& 3.2206E-02_JPRB,3.7616E-02_JPRB,3.7442E-02_JPRB,3.5602E-02_JPRB,3.2848E-02_JPRB,2.9212E-02_JPRB,& |
733 |
✓✓ |
12 |
& 2.4411E-02_JPRB,1.8093E-02_JPRB,1.1087E-02_JPRB,6.4396E-03_JPRB,4.1579E-03_JPRB/) |
734 |
|
|
KAO( :, 2, 1, 4) = (/& |
735 |
|
|
& 3.3985E-02_JPRB,4.0141E-02_JPRB,4.0066E-02_JPRB,3.8220E-02_JPRB,3.5310E-02_JPRB,3.1363E-02_JPRB,& |
736 |
✓✓ |
12 |
& 2.6274E-02_JPRB,1.9563E-02_JPRB,1.2137E-02_JPRB,7.2344E-03_JPRB,4.9421E-03_JPRB/) |
737 |
|
|
KAO( :, 3, 1, 4) = (/& |
738 |
|
|
& 3.5840E-02_JPRB,4.2657E-02_JPRB,4.2657E-02_JPRB,4.0828E-02_JPRB,3.7715E-02_JPRB,3.3592E-02_JPRB,& |
739 |
✓✓ |
12 |
& 2.8238E-02_JPRB,2.1146E-02_JPRB,1.3263E-02_JPRB,8.1243E-03_JPRB,5.8370E-03_JPRB/) |
740 |
|
|
KAO( :, 4, 1, 4) = (/& |
741 |
|
|
& 3.7710E-02_JPRB,4.5086E-02_JPRB,4.5284E-02_JPRB,4.3358E-02_JPRB,4.0123E-02_JPRB,3.5805E-02_JPRB,& |
742 |
✓✓ |
12 |
& 3.0308E-02_JPRB,2.2810E-02_JPRB,1.4502E-02_JPRB,9.1329E-03_JPRB,6.8906E-03_JPRB/) |
743 |
|
|
KAO( :, 5, 1, 4) = (/& |
744 |
|
|
& 3.9546E-02_JPRB,4.7465E-02_JPRB,4.7884E-02_JPRB,4.5873E-02_JPRB,4.2558E-02_JPRB,3.8078E-02_JPRB,& |
745 |
✓✓ |
12 |
& 3.2453E-02_JPRB,2.4580E-02_JPRB,1.5839E-02_JPRB,1.0280E-02_JPRB,8.0935E-03_JPRB/) |
746 |
|
|
KAO( :, 1, 2, 4) = (/& |
747 |
|
|
& 2.8104E-02_JPRB,3.2464E-02_JPRB,3.2358E-02_JPRB,3.0703E-02_JPRB,2.8262E-02_JPRB,2.5049E-02_JPRB,& |
748 |
✓✓ |
12 |
& 2.0887E-02_JPRB,1.5371E-02_JPRB,9.5321E-03_JPRB,5.5766E-03_JPRB,3.4128E-03_JPRB/) |
749 |
|
|
KAO( :, 2, 2, 4) = (/& |
750 |
|
|
& 2.9709E-02_JPRB,3.4733E-02_JPRB,3.4706E-02_JPRB,3.3029E-02_JPRB,3.0407E-02_JPRB,2.6975E-02_JPRB,& |
751 |
✓✓ |
12 |
& 2.2525E-02_JPRB,1.6668E-02_JPRB,1.0444E-02_JPRB,6.2493E-03_JPRB,4.0210E-03_JPRB/) |
752 |
|
|
KAO( :, 3, 2, 4) = (/& |
753 |
|
|
& 3.1368E-02_JPRB,3.6997E-02_JPRB,3.7038E-02_JPRB,3.5309E-02_JPRB,3.2541E-02_JPRB,2.8948E-02_JPRB,& |
754 |
✓✓ |
12 |
& 2.4248E-02_JPRB,1.8078E-02_JPRB,1.1429E-02_JPRB,7.0025E-03_JPRB,4.7234E-03_JPRB/) |
755 |
|
|
KAO( :, 4, 2, 4) = (/& |
756 |
|
|
& 3.3025E-02_JPRB,3.9194E-02_JPRB,3.9406E-02_JPRB,3.7566E-02_JPRB,3.4724E-02_JPRB,3.0907E-02_JPRB,& |
757 |
✓✓ |
12 |
& 2.6047E-02_JPRB,1.9552E-02_JPRB,1.2511E-02_JPRB,7.8460E-03_JPRB,5.5531E-03_JPRB/) |
758 |
|
|
KAO( :, 5, 2, 4) = (/& |
759 |
|
|
& 3.4658E-02_JPRB,4.1417E-02_JPRB,4.1750E-02_JPRB,3.9870E-02_JPRB,3.6925E-02_JPRB,3.2920E-02_JPRB,& |
760 |
✓✓ |
12 |
& 2.7922E-02_JPRB,2.1122E-02_JPRB,1.3687E-02_JPRB,8.7925E-03_JPRB,6.5017E-03_JPRB/) |
761 |
|
|
KAO( :, 1, 3, 4) = (/& |
762 |
|
|
& 2.4251E-02_JPRB,2.7585E-02_JPRB,2.7414E-02_JPRB,2.5896E-02_JPRB,2.3769E-02_JPRB,2.1015E-02_JPRB,& |
763 |
✓✓ |
12 |
& 1.7490E-02_JPRB,1.2799E-02_JPRB,7.9859E-03_JPRB,4.6822E-03_JPRB,3.0167E-03_JPRB/) |
764 |
|
|
KAO( :, 2, 3, 4) = (/& |
765 |
|
|
& 2.5692E-02_JPRB,2.9548E-02_JPRB,2.9492E-02_JPRB,2.7935E-02_JPRB,2.5630E-02_JPRB,2.2680E-02_JPRB,& |
766 |
✓✓ |
12 |
& 1.8918E-02_JPRB,1.3904E-02_JPRB,8.7584E-03_JPRB,5.2529E-03_JPRB,3.4804E-03_JPRB/) |
767 |
|
|
KAO( :, 3, 3, 4) = (/& |
768 |
|
|
& 2.7159E-02_JPRB,3.1559E-02_JPRB,3.1551E-02_JPRB,2.9932E-02_JPRB,2.7503E-02_JPRB,2.4395E-02_JPRB,& |
769 |
✓✓ |
12 |
& 2.0399E-02_JPRB,1.5119E-02_JPRB,9.5888E-03_JPRB,5.8905E-03_JPRB,4.0103E-03_JPRB/) |
770 |
|
|
KAO( :, 4, 3, 4) = (/& |
771 |
|
|
& 2.8607E-02_JPRB,3.3560E-02_JPRB,3.3603E-02_JPRB,3.1948E-02_JPRB,2.9447E-02_JPRB,2.6126E-02_JPRB,& |
772 |
✓✓ |
12 |
& 2.1928E-02_JPRB,1.6399E-02_JPRB,1.0499E-02_JPRB,6.6008E-03_JPRB,4.6200E-03_JPRB/) |
773 |
|
|
KAO( :, 5, 3, 4) = (/& |
774 |
|
|
& 3.0051E-02_JPRB,3.5562E-02_JPRB,3.5683E-02_JPRB,3.4039E-02_JPRB,3.1430E-02_JPRB,2.7908E-02_JPRB,& |
775 |
✓✓ |
12 |
& 2.3518E-02_JPRB,1.7750E-02_JPRB,1.1493E-02_JPRB,7.3863E-03_JPRB,5.3130E-03_JPRB/) |
776 |
|
|
KAO( :, 1, 4, 4) = (/& |
777 |
|
|
& 2.0821E-02_JPRB,2.3399E-02_JPRB,2.3111E-02_JPRB,2.1751E-02_JPRB,1.9864E-02_JPRB,1.7485E-02_JPRB,& |
778 |
✓✓ |
12 |
& 1.4530E-02_JPRB,1.0587E-02_JPRB,6.6174E-03_JPRB,3.8560E-03_JPRB,2.7540E-03_JPRB/) |
779 |
|
|
KAO( :, 2, 4, 4) = (/& |
780 |
|
|
& 2.2145E-02_JPRB,2.5108E-02_JPRB,2.4937E-02_JPRB,2.3519E-02_JPRB,2.1458E-02_JPRB,1.8898E-02_JPRB,& |
781 |
✓✓ |
12 |
& 1.5727E-02_JPRB,1.1528E-02_JPRB,7.2647E-03_JPRB,4.3306E-03_JPRB,3.1427E-03_JPRB/) |
782 |
|
|
KAO( :, 3, 4, 4) = (/& |
783 |
|
|
& 2.3458E-02_JPRB,2.6892E-02_JPRB,2.6767E-02_JPRB,2.5244E-02_JPRB,2.3063E-02_JPRB,2.0374E-02_JPRB,& |
784 |
✓✓ |
12 |
& 1.6989E-02_JPRB,1.2556E-02_JPRB,7.9663E-03_JPRB,4.8678E-03_JPRB,3.5922E-03_JPRB/) |
785 |
|
|
KAO( :, 4, 4, 4) = (/& |
786 |
|
|
& 2.4742E-02_JPRB,2.8684E-02_JPRB,2.8567E-02_JPRB,2.7002E-02_JPRB,2.4744E-02_JPRB,2.1891E-02_JPRB,& |
787 |
✓✓ |
12 |
& 1.8302E-02_JPRB,1.3637E-02_JPRB,8.7323E-03_JPRB,5.4756E-03_JPRB,4.1087E-03_JPRB/) |
788 |
|
|
KAO( :, 5, 4, 4) = (/& |
789 |
|
|
& 2.6031E-02_JPRB,3.0478E-02_JPRB,3.0373E-02_JPRB,2.8831E-02_JPRB,2.6502E-02_JPRB,2.3472E-02_JPRB,& |
790 |
✓✓ |
12 |
& 1.9656E-02_JPRB,1.4775E-02_JPRB,9.5721E-03_JPRB,6.1469E-03_JPRB,4.6820E-03_JPRB/) |
791 |
|
|
KAO( :, 1, 5, 4) = (/& |
792 |
|
|
& 1.7749E-02_JPRB,1.9809E-02_JPRB,1.9474E-02_JPRB,1.8308E-02_JPRB,1.6656E-02_JPRB,1.4612E-02_JPRB,& |
793 |
✓✓ |
12 |
& 1.2090E-02_JPRB,8.7523E-03_JPRB,5.4506E-03_JPRB,3.1594E-03_JPRB,2.6009E-03_JPRB/) |
794 |
|
|
KAO( :, 2, 5, 4) = (/& |
795 |
|
|
& 1.8962E-02_JPRB,2.1368E-02_JPRB,2.1111E-02_JPRB,1.9856E-02_JPRB,1.8026E-02_JPRB,1.5797E-02_JPRB,& |
796 |
✓✓ |
12 |
& 1.3087E-02_JPRB,9.5480E-03_JPRB,5.9920E-03_JPRB,3.5465E-03_JPRB,2.9383E-03_JPRB/) |
797 |
|
|
KAO( :, 3, 5, 4) = (/& |
798 |
|
|
& 2.0156E-02_JPRB,2.2955E-02_JPRB,2.2766E-02_JPRB,2.1370E-02_JPRB,1.9402E-02_JPRB,1.7036E-02_JPRB,& |
799 |
✓✓ |
12 |
& 1.4132E-02_JPRB,1.0409E-02_JPRB,6.5849E-03_JPRB,3.9909E-03_JPRB,3.3267E-03_JPRB/) |
800 |
|
|
KAO( :, 4, 5, 4) = (/& |
801 |
|
|
& 2.1323E-02_JPRB,2.4554E-02_JPRB,2.4380E-02_JPRB,2.2909E-02_JPRB,2.0850E-02_JPRB,1.8325E-02_JPRB,& |
802 |
✓✓ |
12 |
& 1.5252E-02_JPRB,1.1317E-02_JPRB,7.2332E-03_JPRB,4.4966E-03_JPRB,3.7667E-03_JPRB/) |
803 |
|
|
KAO( :, 5, 5, 4) = (/& |
804 |
|
|
& 2.2499E-02_JPRB,2.6158E-02_JPRB,2.5975E-02_JPRB,2.4497E-02_JPRB,2.2360E-02_JPRB,1.9686E-02_JPRB,& |
805 |
✓✓ |
12 |
& 1.6421E-02_JPRB,1.2278E-02_JPRB,7.9387E-03_JPRB,5.0610E-03_JPRB,4.2588E-03_JPRB/) |
806 |
|
|
KAO( :, 1, 6, 4) = (/& |
807 |
|
|
& 1.5007E-02_JPRB,1.6598E-02_JPRB,1.6252E-02_JPRB,1.5296E-02_JPRB,1.3918E-02_JPRB,1.2197E-02_JPRB,& |
808 |
✓✓ |
12 |
& 1.0070E-02_JPRB,7.1973E-03_JPRB,4.4418E-03_JPRB,2.5632E-03_JPRB,2.6270E-03_JPRB/) |
809 |
|
|
KAO( :, 2, 6, 4) = (/& |
810 |
|
|
& 1.6096E-02_JPRB,1.8008E-02_JPRB,1.7715E-02_JPRB,1.6668E-02_JPRB,1.5117E-02_JPRB,1.3217E-02_JPRB,& |
811 |
✓✓ |
12 |
& 1.0902E-02_JPRB,7.8574E-03_JPRB,4.8940E-03_JPRB,2.8829E-03_JPRB,2.9097E-03_JPRB/) |
812 |
|
|
KAO( :, 3, 6, 4) = (/& |
813 |
|
|
& 1.7175E-02_JPRB,1.9434E-02_JPRB,1.9209E-02_JPRB,1.8020E-02_JPRB,1.6319E-02_JPRB,1.4272E-02_JPRB,& |
814 |
✓✓ |
12 |
& 1.1772E-02_JPRB,8.5712E-03_JPRB,5.3927E-03_JPRB,3.2482E-03_JPRB,3.2462E-03_JPRB/) |
815 |
|
|
KAO( :, 4, 6, 4) = (/& |
816 |
|
|
& 1.8239E-02_JPRB,2.0847E-02_JPRB,2.0666E-02_JPRB,1.9382E-02_JPRB,1.7575E-02_JPRB,1.5371E-02_JPRB,& |
817 |
✓✓ |
12 |
& 1.2710E-02_JPRB,9.3314E-03_JPRB,5.9328E-03_JPRB,3.6614E-03_JPRB,3.6324E-03_JPRB/) |
818 |
|
|
KAO( :, 5, 6, 4) = (/& |
819 |
|
|
& 1.9314E-02_JPRB,2.2274E-02_JPRB,2.2099E-02_JPRB,2.0773E-02_JPRB,1.8871E-02_JPRB,1.6523E-02_JPRB,& |
820 |
✓✓ |
12 |
& 1.3707E-02_JPRB,1.0147E-02_JPRB,6.5230E-03_JPRB,4.1212E-03_JPRB,4.0664E-03_JPRB/) |
821 |
|
|
KAO( :, 1, 7, 4) = (/& |
822 |
|
|
& 1.2562E-02_JPRB,1.3749E-02_JPRB,1.3412E-02_JPRB,1.2652E-02_JPRB,1.1501E-02_JPRB,1.0078E-02_JPRB,& |
823 |
✓✓ |
12 |
& 8.3008E-03_JPRB,5.8951E-03_JPRB,3.5839E-03_JPRB,2.0640E-03_JPRB,2.8990E-03_JPRB/) |
824 |
|
|
KAO( :, 2, 7, 4) = (/& |
825 |
|
|
& 1.3513E-02_JPRB,1.4992E-02_JPRB,1.4706E-02_JPRB,1.3842E-02_JPRB,1.2549E-02_JPRB,1.0956E-02_JPRB,& |
826 |
✓✓ |
12 |
& 9.0265E-03_JPRB,6.4348E-03_JPRB,3.9618E-03_JPRB,2.3233E-03_JPRB,3.1544E-03_JPRB/) |
827 |
|
|
KAO( :, 3, 7, 4) = (/& |
828 |
|
|
& 1.4463E-02_JPRB,1.6248E-02_JPRB,1.6003E-02_JPRB,1.5021E-02_JPRB,1.3588E-02_JPRB,1.1865E-02_JPRB,& |
829 |
✓✓ |
12 |
& 9.7704E-03_JPRB,7.0232E-03_JPRB,4.3758E-03_JPRB,2.6208E-03_JPRB,3.4308E-03_JPRB/) |
830 |
|
|
KAO( :, 4, 7, 4) = (/& |
831 |
|
|
& 1.5412E-02_JPRB,1.7497E-02_JPRB,1.7276E-02_JPRB,1.6194E-02_JPRB,1.4663E-02_JPRB,1.2815E-02_JPRB,& |
832 |
✓✓ |
12 |
& 1.0574E-02_JPRB,7.6491E-03_JPRB,4.8284E-03_JPRB,2.9535E-03_JPRB,3.7526E-03_JPRB/) |
833 |
|
|
KAO( :, 5, 7, 4) = (/& |
834 |
|
|
& 1.6381E-02_JPRB,1.8748E-02_JPRB,1.8546E-02_JPRB,1.7402E-02_JPRB,1.5774E-02_JPRB,1.3800E-02_JPRB,& |
835 |
✓✓ |
12 |
& 1.1415E-02_JPRB,8.3305E-03_JPRB,5.3183E-03_JPRB,3.3227E-03_JPRB,4.1190E-03_JPRB/) |
836 |
|
|
KAO( :, 1, 8, 4) = (/& |
837 |
|
|
& 1.0489E-02_JPRB,1.1350E-02_JPRB,1.1041E-02_JPRB,1.0421E-02_JPRB,9.4682E-03_JPRB,8.2685E-03_JPRB,& |
838 |
✓✓ |
12 |
& 6.7870E-03_JPRB,4.8019E-03_JPRB,2.8904E-03_JPRB,1.6552E-03_JPRB,3.2034E-03_JPRB/) |
839 |
|
|
KAO( :, 2, 8, 4) = (/& |
840 |
|
|
& 1.1308E-02_JPRB,1.2427E-02_JPRB,1.2159E-02_JPRB,1.1459E-02_JPRB,1.0373E-02_JPRB,9.0374E-03_JPRB,& |
841 |
✓✓ |
12 |
& 7.4076E-03_JPRB,5.2450E-03_JPRB,3.1947E-03_JPRB,1.8626E-03_JPRB,3.5949E-03_JPRB/) |
842 |
|
|
KAO( :, 3, 8, 4) = (/& |
843 |
|
|
& 1.2133E-02_JPRB,1.3516E-02_JPRB,1.3273E-02_JPRB,1.2475E-02_JPRB,1.1268E-02_JPRB,9.8130E-03_JPRB,& |
844 |
✓✓ |
12 |
& 8.0528E-03_JPRB,5.7311E-03_JPRB,3.5370E-03_JPRB,2.1011E-03_JPRB,3.9889E-03_JPRB/) |
845 |
|
|
KAO( :, 4, 8, 4) = (/& |
846 |
|
|
& 1.2965E-02_JPRB,1.4611E-02_JPRB,1.4368E-02_JPRB,1.3473E-02_JPRB,1.2174E-02_JPRB,1.0625E-02_JPRB,& |
847 |
✓✓ |
12 |
& 8.7372E-03_JPRB,6.2577E-03_JPRB,3.9075E-03_JPRB,2.3709E-03_JPRB,4.3703E-03_JPRB/) |
848 |
|
|
KAO( :, 5, 8, 4) = (/& |
849 |
|
|
& 1.3816E-02_JPRB,1.5699E-02_JPRB,1.5470E-02_JPRB,1.4502E-02_JPRB,1.3123E-02_JPRB,1.1467E-02_JPRB,& |
850 |
✓✓ |
12 |
& 9.4537E-03_JPRB,6.8298E-03_JPRB,4.3093E-03_JPRB,2.6663E-03_JPRB,4.7512E-03_JPRB/) |
851 |
|
|
KAO( :, 1, 9, 4) = (/& |
852 |
|
|
& 8.7568E-03_JPRB,9.3693E-03_JPRB,9.0975E-03_JPRB,8.5800E-03_JPRB,7.7896E-03_JPRB,6.7645E-03_JPRB,& |
853 |
✓✓ |
12 |
& 5.5285E-03_JPRB,3.9033E-03_JPRB,2.3310E-03_JPRB,1.3217E-03_JPRB,4.5731E-03_JPRB/) |
854 |
|
|
KAO( :, 2, 9, 4) = (/& |
855 |
|
|
& 9.4553E-03_JPRB,1.0293E-02_JPRB,1.0054E-02_JPRB,9.4845E-03_JPRB,8.5715E-03_JPRB,7.4310E-03_JPRB,& |
856 |
✓✓ |
12 |
& 6.0526E-03_JPRB,4.2651E-03_JPRB,2.5747E-03_JPRB,1.4878E-03_JPRB,5.2597E-03_JPRB/) |
857 |
|
|
KAO( :, 3, 9, 4) = (/& |
858 |
|
|
& 1.0173E-02_JPRB,1.1238E-02_JPRB,1.1012E-02_JPRB,1.0364E-02_JPRB,9.3410E-03_JPRB,8.0964E-03_JPRB,& |
859 |
✓✓ |
12 |
& 6.6049E-03_JPRB,4.6620E-03_JPRB,2.8506E-03_JPRB,1.6770E-03_JPRB,5.9814E-03_JPRB/) |
860 |
|
|
KAO( :, 4, 9, 4) = (/& |
861 |
|
|
& 1.0901E-02_JPRB,1.2188E-02_JPRB,1.1952E-02_JPRB,1.1222E-02_JPRB,1.0108E-02_JPRB,8.7846E-03_JPRB,& |
862 |
✓✓ |
12 |
& 7.1864E-03_JPRB,5.1051E-03_JPRB,3.1528E-03_JPRB,1.8913E-03_JPRB,6.7372E-03_JPRB/) |
863 |
|
|
KAO( :, 5, 9, 4) = (/& |
864 |
|
|
& 1.1643E-02_JPRB,1.3136E-02_JPRB,1.2896E-02_JPRB,1.2091E-02_JPRB,1.0918E-02_JPRB,9.5045E-03_JPRB,& |
865 |
✓✓ |
12 |
& 7.7923E-03_JPRB,5.5824E-03_JPRB,3.4794E-03_JPRB,2.1303E-03_JPRB,7.5084E-03_JPRB/) |
866 |
|
|
KAO( :, 1,10, 4) = (/& |
867 |
|
|
& 7.3210E-03_JPRB,7.7682E-03_JPRB,7.5348E-03_JPRB,7.0910E-03_JPRB,6.4276E-03_JPRB,5.5555E-03_JPRB,& |
868 |
✓✓ |
12 |
& 4.5190E-03_JPRB,3.1874E-03_JPRB,1.8869E-03_JPRB,1.0615E-03_JPRB,8.5089E-03_JPRB/) |
869 |
|
|
KAO( :, 2,10, 4) = (/& |
870 |
|
|
& 7.9160E-03_JPRB,8.5578E-03_JPRB,8.3513E-03_JPRB,7.8702E-03_JPRB,7.1056E-03_JPRB,6.1307E-03_JPRB,& |
871 |
✓✓ |
12 |
& 4.9642E-03_JPRB,3.4828E-03_JPRB,2.0800E-03_JPRB,1.1948E-03_JPRB,9.8844E-03_JPRB/) |
872 |
|
|
KAO( :, 3,10, 4) = (/& |
873 |
|
|
& 8.5286E-03_JPRB,9.3757E-03_JPRB,9.1726E-03_JPRB,8.6301E-03_JPRB,7.7707E-03_JPRB,6.7003E-03_JPRB,& |
874 |
✓✓ |
12 |
& 5.4292E-03_JPRB,3.8086E-03_JPRB,2.3039E-03_JPRB,1.3482E-03_JPRB,1.1359E-02_JPRB/) |
875 |
|
|
KAO( :, 4,10, 4) = (/& |
876 |
|
|
& 9.1631E-03_JPRB,1.0191E-02_JPRB,9.9769E-03_JPRB,9.3788E-03_JPRB,8.4243E-03_JPRB,7.2793E-03_JPRB,& |
877 |
✓✓ |
12 |
& 5.9222E-03_JPRB,4.1756E-03_JPRB,2.5509E-03_JPRB,1.5190E-03_JPRB,1.2931E-02_JPRB/) |
878 |
|
|
KAO( :, 5,10, 4) = (/& |
879 |
|
|
& 9.8113E-03_JPRB,1.1015E-02_JPRB,1.0788E-02_JPRB,1.0124E-02_JPRB,9.1153E-03_JPRB,7.8926E-03_JPRB,& |
880 |
✓✓ |
12 |
& 6.4363E-03_JPRB,4.5749E-03_JPRB,2.8219E-03_JPRB,1.7121E-03_JPRB,1.4601E-02_JPRB/) |
881 |
|
|
KAO( :, 1,11, 4) = (/& |
882 |
|
|
& 6.3238E-03_JPRB,6.7320E-03_JPRB,6.5341E-03_JPRB,6.1432E-03_JPRB,5.5500E-03_JPRB,4.7770E-03_JPRB,& |
883 |
✓✓ |
12 |
& 3.8625E-03_JPRB,2.7098E-03_JPRB,1.5930E-03_JPRB,8.9971E-04_JPRB,1.0691E-02_JPRB/) |
884 |
|
|
KAO( :, 2,11, 4) = (/& |
885 |
|
|
& 6.8377E-03_JPRB,7.4132E-03_JPRB,7.2351E-03_JPRB,6.8044E-03_JPRB,6.1328E-03_JPRB,5.2698E-03_JPRB,& |
886 |
✓✓ |
12 |
& 4.2482E-03_JPRB,2.9626E-03_JPRB,1.7579E-03_JPRB,1.0147E-03_JPRB,1.2446E-02_JPRB/) |
887 |
|
|
KAO( :, 3,11, 4) = (/& |
888 |
|
|
& 7.3680E-03_JPRB,8.1117E-03_JPRB,7.9281E-03_JPRB,7.4556E-03_JPRB,6.7022E-03_JPRB,5.7552E-03_JPRB,& |
889 |
✓✓ |
12 |
& 4.6507E-03_JPRB,3.2459E-03_JPRB,1.9476E-03_JPRB,1.1453E-03_JPRB,1.4323E-02_JPRB/) |
890 |
|
|
KAO( :, 4,11, 4) = (/& |
891 |
|
|
& 7.9250E-03_JPRB,8.8100E-03_JPRB,8.6199E-03_JPRB,8.1042E-03_JPRB,7.2716E-03_JPRB,6.2615E-03_JPRB,& |
892 |
✓✓ |
12 |
& 5.0763E-03_JPRB,3.5597E-03_JPRB,2.1591E-03_JPRB,1.2891E-03_JPRB,1.6318E-02_JPRB/) |
893 |
|
|
KAO( :, 5,11, 4) = (/& |
894 |
|
|
& 8.4995E-03_JPRB,9.5310E-03_JPRB,9.3303E-03_JPRB,8.7684E-03_JPRB,7.8755E-03_JPRB,6.7950E-03_JPRB,& |
895 |
✓✓ |
12 |
& 5.5255E-03_JPRB,3.9023E-03_JPRB,2.3918E-03_JPRB,1.4517E-03_JPRB,1.8430E-02_JPRB/) |
896 |
|
|
KAO( :, 1,12, 4) = (/& |
897 |
|
|
& 5.4239E-03_JPRB,5.7942E-03_JPRB,5.6254E-03_JPRB,5.2775E-03_JPRB,4.7538E-03_JPRB,4.0783E-03_JPRB,& |
898 |
✓✓ |
12 |
& 3.2815E-03_JPRB,2.2911E-03_JPRB,1.3390E-03_JPRB,7.5901E-04_JPRB,1.1069E-02_JPRB/) |
899 |
|
|
KAO( :, 2,12, 4) = (/& |
900 |
|
|
& 5.8650E-03_JPRB,6.3756E-03_JPRB,6.2146E-03_JPRB,5.8301E-03_JPRB,5.2465E-03_JPRB,4.4949E-03_JPRB,& |
901 |
✓✓ |
12 |
& 3.6123E-03_JPRB,2.5101E-03_JPRB,1.4788E-03_JPRB,8.5773E-04_JPRB,1.2922E-02_JPRB/) |
902 |
|
|
KAO( :, 3,12, 4) = (/& |
903 |
|
|
& 6.3326E-03_JPRB,6.9605E-03_JPRB,6.7926E-03_JPRB,6.3822E-03_JPRB,5.7295E-03_JPRB,4.9116E-03_JPRB,& |
904 |
✓✓ |
12 |
& 3.9590E-03_JPRB,2.7527E-03_JPRB,1.6402E-03_JPRB,9.6785E-04_JPRB,1.4890E-02_JPRB/) |
905 |
|
|
KAO( :, 4,12, 4) = (/& |
906 |
|
|
& 6.8197E-03_JPRB,7.5612E-03_JPRB,7.3901E-03_JPRB,6.9407E-03_JPRB,6.2248E-03_JPRB,5.3513E-03_JPRB,& |
907 |
✓✓ |
12 |
& 4.3255E-03_JPRB,3.0215E-03_JPRB,1.8202E-03_JPRB,1.0893E-03_JPRB,1.6968E-02_JPRB/) |
908 |
|
|
KAO( :, 5,12, 4) = (/& |
909 |
|
|
& 7.3239E-03_JPRB,8.1869E-03_JPRB,8.0102E-03_JPRB,7.5305E-03_JPRB,6.7534E-03_JPRB,5.8184E-03_JPRB,& |
910 |
✓✓ |
12 |
& 4.7200E-03_JPRB,3.3172E-03_JPRB,2.0173E-03_JPRB,1.2265E-03_JPRB,1.9174E-02_JPRB/) |
911 |
|
|
KAO( :, 1,13, 4) = (/& |
912 |
|
|
& 4.6050E-03_JPRB,4.9342E-03_JPRB,4.7817E-03_JPRB,4.4662E-03_JPRB,4.0147E-03_JPRB,3.4350E-03_JPRB,& |
913 |
✓✓ |
12 |
& 2.7500E-03_JPRB,1.9135E-03_JPRB,1.1150E-03_JPRB,6.3435E-04_JPRB,9.6482E-03_JPRB/) |
914 |
|
|
KAO( :, 2,13, 4) = (/& |
915 |
|
|
& 4.9867E-03_JPRB,5.4199E-03_JPRB,5.2643E-03_JPRB,4.9240E-03_JPRB,4.4219E-03_JPRB,3.7782E-03_JPRB,& |
916 |
✓✓ |
12 |
& 3.0269E-03_JPRB,2.1006E-03_JPRB,1.2335E-03_JPRB,7.1745E-04_JPRB,1.1271E-02_JPRB/) |
917 |
|
|
KAO( :, 3,13, 4) = (/& |
918 |
|
|
& 5.3971E-03_JPRB,5.9114E-03_JPRB,5.7510E-03_JPRB,5.3855E-03_JPRB,4.8287E-03_JPRB,4.1310E-03_JPRB,& |
919 |
✓✓ |
12 |
& 3.3205E-03_JPRB,2.3075E-03_JPRB,1.3695E-03_JPRB,8.0946E-04_JPRB,1.2985E-02_JPRB/) |
920 |
|
|
KAO( :, 4,13, 4) = (/& |
921 |
|
|
& 5.8203E-03_JPRB,6.4262E-03_JPRB,6.2609E-03_JPRB,5.8661E-03_JPRB,5.2552E-03_JPRB,4.5068E-03_JPRB,& |
922 |
✓✓ |
12 |
& 3.6338E-03_JPRB,2.5380E-03_JPRB,1.5209E-03_JPRB,9.1160E-04_JPRB,1.4785E-02_JPRB/) |
923 |
|
|
KAO( :, 5,13, 4) = (/& |
924 |
|
|
& 6.2608E-03_JPRB,6.9642E-03_JPRB,6.7991E-03_JPRB,6.3791E-03_JPRB,5.7139E-03_JPRB,4.9101E-03_JPRB,& |
925 |
✓✓ |
12 |
& 3.9752E-03_JPRB,2.7918E-03_JPRB,1.6870E-03_JPRB,1.0277E-03_JPRB,1.6692E-02_JPRB/) |
926 |
|
|
KAO( :, 1, 1, 5) = (/& |
927 |
|
|
& 6.9423E-02_JPRB,7.4960E-02_JPRB,7.2881E-02_JPRB,6.7852E-02_JPRB,6.0804E-02_JPRB,5.2531E-02_JPRB,& |
928 |
✓✓ |
12 |
& 4.2824E-02_JPRB,3.0610E-02_JPRB,1.9045E-02_JPRB,1.1972E-02_JPRB,9.0656E-03_JPRB/) |
929 |
|
|
KAO( :, 2, 1, 5) = (/& |
930 |
|
|
& 7.1301E-02_JPRB,7.7925E-02_JPRB,7.6064E-02_JPRB,7.1198E-02_JPRB,6.4170E-02_JPRB,5.6008E-02_JPRB,& |
931 |
✓✓ |
12 |
& 4.6002E-02_JPRB,3.3219E-02_JPRB,2.0898E-02_JPRB,1.3541E-02_JPRB,1.0844E-02_JPRB/) |
932 |
|
|
KAO( :, 3, 1, 5) = (/& |
933 |
|
|
& 7.2960E-02_JPRB,8.0744E-02_JPRB,7.9397E-02_JPRB,7.4686E-02_JPRB,6.7915E-02_JPRB,5.9615E-02_JPRB,& |
934 |
✓✓ |
12 |
& 4.9205E-02_JPRB,3.5928E-02_JPRB,2.2906E-02_JPRB,1.5284E-02_JPRB,1.2853E-02_JPRB/) |
935 |
|
|
KAO( :, 4, 1, 5) = (/& |
936 |
|
|
& 7.4482E-02_JPRB,8.3568E-02_JPRB,8.2751E-02_JPRB,7.8370E-02_JPRB,7.1840E-02_JPRB,6.3241E-02_JPRB,& |
937 |
✓✓ |
12 |
& 5.2611E-02_JPRB,3.8800E-02_JPRB,2.5071E-02_JPRB,1.7190E-02_JPRB,1.5078E-02_JPRB/) |
938 |
|
|
KAO( :, 5, 1, 5) = (/& |
939 |
|
|
& 7.5977E-02_JPRB,8.6416E-02_JPRB,8.6132E-02_JPRB,8.2229E-02_JPRB,7.5721E-02_JPRB,6.7015E-02_JPRB,& |
940 |
✓✓ |
12 |
& 5.6188E-02_JPRB,4.1791E-02_JPRB,2.7379E-02_JPRB,1.9319E-02_JPRB,1.7544E-02_JPRB/) |
941 |
|
|
KAO( :, 1, 2, 5) = (/& |
942 |
|
|
& 6.1428E-02_JPRB,6.6243E-02_JPRB,6.4016E-02_JPRB,5.9686E-02_JPRB,5.3408E-02_JPRB,4.5905E-02_JPRB,& |
943 |
✓✓ |
12 |
& 3.7325E-02_JPRB,2.6638E-02_JPRB,1.6539E-02_JPRB,1.0261E-02_JPRB,7.2943E-03_JPRB/) |
944 |
|
|
KAO( :, 2, 2, 5) = (/& |
945 |
|
|
& 6.3157E-02_JPRB,6.8963E-02_JPRB,6.7035E-02_JPRB,6.2877E-02_JPRB,5.6628E-02_JPRB,4.9107E-02_JPRB,& |
946 |
✓✓ |
12 |
& 4.0147E-02_JPRB,2.8970E-02_JPRB,1.8198E-02_JPRB,1.1562E-02_JPRB,8.6747E-03_JPRB/) |
947 |
|
|
KAO( :, 3, 2, 5) = (/& |
948 |
|
|
& 6.4729E-02_JPRB,7.1653E-02_JPRB,7.0183E-02_JPRB,6.6237E-02_JPRB,6.0087E-02_JPRB,5.2347E-02_JPRB,& |
949 |
✓✓ |
12 |
& 4.3083E-02_JPRB,3.1429E-02_JPRB,1.9978E-02_JPRB,1.2998E-02_JPRB,1.0260E-02_JPRB/) |
950 |
|
|
KAO( :, 4, 2, 5) = (/& |
951 |
|
|
& 6.6252E-02_JPRB,7.4355E-02_JPRB,7.3321E-02_JPRB,6.9741E-02_JPRB,6.3553E-02_JPRB,5.5697E-02_JPRB,& |
952 |
✓✓ |
12 |
& 4.6228E-02_JPRB,3.4024E-02_JPRB,2.1871E-02_JPRB,1.4556E-02_JPRB,1.2034E-02_JPRB/) |
953 |
|
|
|
954 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART3',1,ZHOOK_HANDLE) |
955 |
|
1 |
END SUBROUTINE PART3 |
956 |
|
|
|
957 |
|
|
|
958 |
|
1 |
SUBROUTINE PART4 |
959 |
|
|
|
960 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
961 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART4',0,ZHOOK_HANDLE) |
962 |
|
|
|
963 |
|
|
|
964 |
|
|
KAO( :, 5, 2, 5) = (/& |
965 |
|
|
& 6.7782E-02_JPRB,7.7009E-02_JPRB,7.6503E-02_JPRB,7.3173E-02_JPRB,6.7016E-02_JPRB,5.9180E-02_JPRB,& |
966 |
✓✓ |
12 |
& 4.9505E-02_JPRB,3.6707E-02_JPRB,2.3887E-02_JPRB,1.6290E-02_JPRB,1.4004E-02_JPRB/) |
967 |
|
|
KAO( :, 1, 3, 5) = (/& |
968 |
|
|
& 5.3533E-02_JPRB,5.7434E-02_JPRB,5.5277E-02_JPRB,5.1527E-02_JPRB,4.6035E-02_JPRB,3.9352E-02_JPRB,& |
969 |
✓✓ |
12 |
& 3.1746E-02_JPRB,2.2523E-02_JPRB,1.3908E-02_JPRB,8.6490E-03_JPRB,5.9287E-03_JPRB/) |
970 |
|
|
KAO( :, 2, 3, 5) = (/& |
971 |
|
|
& 5.5137E-02_JPRB,5.9969E-02_JPRB,5.8097E-02_JPRB,5.4502E-02_JPRB,4.8980E-02_JPRB,4.2173E-02_JPRB,& |
972 |
✓✓ |
12 |
& 3.4244E-02_JPRB,2.4566E-02_JPRB,1.5350E-02_JPRB,9.6962E-03_JPRB,6.9493E-03_JPRB/) |
973 |
|
|
KAO( :, 3, 3, 5) = (/& |
974 |
|
|
& 5.6675E-02_JPRB,6.2431E-02_JPRB,6.0975E-02_JPRB,5.7589E-02_JPRB,5.2056E-02_JPRB,4.5047E-02_JPRB,& |
975 |
✓✓ |
12 |
& 3.6855E-02_JPRB,2.6729E-02_JPRB,1.6909E-02_JPRB,1.0855E-02_JPRB,8.1206E-03_JPRB/) |
976 |
|
|
KAO( :, 4, 3, 5) = (/& |
977 |
|
|
& 5.8200E-02_JPRB,6.4923E-02_JPRB,6.3882E-02_JPRB,6.0753E-02_JPRB,5.5077E-02_JPRB,4.8037E-02_JPRB,& |
978 |
✓✓ |
12 |
& 3.9643E-02_JPRB,2.9018E-02_JPRB,1.8575E-02_JPRB,1.2121E-02_JPRB,9.4750E-03_JPRB/) |
979 |
|
|
KAO( :, 5, 3, 5) = (/& |
980 |
|
|
& 5.9733E-02_JPRB,6.7416E-02_JPRB,6.6842E-02_JPRB,6.3776E-02_JPRB,5.8159E-02_JPRB,5.1164E-02_JPRB,& |
981 |
✓✓ |
12 |
& 4.2585E-02_JPRB,3.1380E-02_JPRB,2.0348E-02_JPRB,1.3514E-02_JPRB,1.0998E-02_JPRB/) |
982 |
|
|
KAO( :, 1, 4, 5) = (/& |
983 |
|
|
& 4.6353E-02_JPRB,4.9264E-02_JPRB,4.7316E-02_JPRB,4.4016E-02_JPRB,3.9303E-02_JPRB,3.3446E-02_JPRB,& |
984 |
✓✓ |
12 |
& 2.6720E-02_JPRB,1.8817E-02_JPRB,1.1541E-02_JPRB,7.2722E-03_JPRB,5.4712E-03_JPRB/) |
985 |
|
|
KAO( :, 2, 4, 5) = (/& |
986 |
|
|
& 4.7832E-02_JPRB,5.1575E-02_JPRB,4.9905E-02_JPRB,4.6721E-02_JPRB,4.1940E-02_JPRB,3.5924E-02_JPRB,& |
987 |
✓✓ |
12 |
& 2.8909E-02_JPRB,2.0563E-02_JPRB,1.2756E-02_JPRB,8.1360E-03_JPRB,6.2894E-03_JPRB/) |
988 |
|
|
KAO( :, 3, 4, 5) = (/& |
989 |
|
|
& 4.9292E-02_JPRB,5.3845E-02_JPRB,5.2477E-02_JPRB,4.9511E-02_JPRB,4.4682E-02_JPRB,3.8438E-02_JPRB,& |
990 |
✓✓ |
12 |
& 3.1206E-02_JPRB,2.2430E-02_JPRB,1.4083E-02_JPRB,9.0822E-03_JPRB,7.2079E-03_JPRB/) |
991 |
|
|
KAO( :, 4, 4, 5) = (/& |
992 |
|
|
& 5.0753E-02_JPRB,5.6167E-02_JPRB,5.5096E-02_JPRB,5.2291E-02_JPRB,4.7354E-02_JPRB,4.1051E-02_JPRB,& |
993 |
✓✓ |
12 |
& 3.3627E-02_JPRB,2.4418E-02_JPRB,1.5508E-02_JPRB,1.0111E-02_JPRB,8.2258E-03_JPRB/) |
994 |
|
|
KAO( :, 5, 4, 5) = (/& |
995 |
|
|
& 5.2237E-02_JPRB,5.8453E-02_JPRB,5.7807E-02_JPRB,5.4969E-02_JPRB,5.0043E-02_JPRB,4.3750E-02_JPRB,& |
996 |
✓✓ |
12 |
& 3.6221E-02_JPRB,2.6492E-02_JPRB,1.7044E-02_JPRB,1.1243E-02_JPRB,9.3585E-03_JPRB/) |
997 |
|
|
KAO( :, 1, 5, 5) = (/& |
998 |
|
|
& 4.0215E-02_JPRB,4.2178E-02_JPRB,4.0345E-02_JPRB,3.7366E-02_JPRB,3.3354E-02_JPRB,2.8283E-02_JPRB,& |
999 |
✓✓ |
12 |
& 2.2446E-02_JPRB,1.5692E-02_JPRB,9.5378E-03_JPRB,6.0574E-03_JPRB,5.0927E-03_JPRB/) |
1000 |
|
|
KAO( :, 2, 5, 5) = (/& |
1001 |
|
|
& 4.1564E-02_JPRB,4.4223E-02_JPRB,4.2656E-02_JPRB,3.9744E-02_JPRB,3.5712E-02_JPRB,3.0486E-02_JPRB,& |
1002 |
✓✓ |
12 |
& 2.4325E-02_JPRB,1.7173E-02_JPRB,1.0563E-02_JPRB,6.7992E-03_JPRB,5.7848E-03_JPRB/) |
1003 |
|
|
KAO( :, 3, 5, 5) = (/& |
1004 |
|
|
& 4.2880E-02_JPRB,4.6295E-02_JPRB,4.4929E-02_JPRB,4.2198E-02_JPRB,3.8104E-02_JPRB,3.2711E-02_JPRB,& |
1005 |
✓✓ |
12 |
& 2.6325E-02_JPRB,1.8758E-02_JPRB,1.1674E-02_JPRB,7.6073E-03_JPRB,6.5722E-03_JPRB/) |
1006 |
|
|
KAO( :, 4, 5, 5) = (/& |
1007 |
|
|
& 4.4250E-02_JPRB,4.8374E-02_JPRB,4.7253E-02_JPRB,4.4669E-02_JPRB,4.0477E-02_JPRB,3.4961E-02_JPRB,& |
1008 |
✓✓ |
12 |
& 2.8432E-02_JPRB,2.0449E-02_JPRB,1.2880E-02_JPRB,8.4762E-03_JPRB,7.4570E-03_JPRB/) |
1009 |
|
|
KAO( :, 5, 5, 5) = (/& |
1010 |
|
|
& 4.5632E-02_JPRB,5.0457E-02_JPRB,4.9661E-02_JPRB,4.7073E-02_JPRB,4.2857E-02_JPRB,3.7281E-02_JPRB,& |
1011 |
✓✓ |
12 |
& 3.0645E-02_JPRB,2.2241E-02_JPRB,1.4179E-02_JPRB,9.4224E-03_JPRB,8.4289E-03_JPRB/) |
1012 |
|
|
KAO( :, 1, 6, 5) = (/& |
1013 |
|
|
& 3.4853E-02_JPRB,3.6094E-02_JPRB,3.4340E-02_JPRB,3.1567E-02_JPRB,2.8074E-02_JPRB,2.3747E-02_JPRB,& |
1014 |
✓✓ |
12 |
& 1.8747E-02_JPRB,1.3033E-02_JPRB,7.8344E-03_JPRB,4.9564E-03_JPRB,4.7664E-03_JPRB/) |
1015 |
|
|
KAO( :, 2, 6, 5) = (/& |
1016 |
|
|
& 3.6095E-02_JPRB,3.7902E-02_JPRB,3.6360E-02_JPRB,3.3627E-02_JPRB,3.0131E-02_JPRB,2.5638E-02_JPRB,& |
1017 |
✓✓ |
12 |
& 2.0371E-02_JPRB,1.4275E-02_JPRB,8.6972E-03_JPRB,5.5735E-03_JPRB,5.3896E-03_JPRB/) |
1018 |
|
|
KAO( :, 3, 6, 5) = (/& |
1019 |
|
|
& 3.7297E-02_JPRB,3.9745E-02_JPRB,3.8353E-02_JPRB,3.5764E-02_JPRB,3.2219E-02_JPRB,2.7550E-02_JPRB,& |
1020 |
✓✓ |
12 |
& 2.2085E-02_JPRB,1.5615E-02_JPRB,9.6284E-03_JPRB,6.2556E-03_JPRB,6.0790E-03_JPRB/) |
1021 |
|
|
KAO( :, 4, 6, 5) = (/& |
1022 |
|
|
& 3.8557E-02_JPRB,4.1597E-02_JPRB,4.0389E-02_JPRB,3.7908E-02_JPRB,3.4281E-02_JPRB,2.9507E-02_JPRB,& |
1023 |
✓✓ |
12 |
& 2.3870E-02_JPRB,1.7046E-02_JPRB,1.0643E-02_JPRB,7.0034E-03_JPRB,6.8484E-03_JPRB/) |
1024 |
|
|
KAO( :, 5, 6, 5) = (/& |
1025 |
|
|
& 3.9824E-02_JPRB,4.3464E-02_JPRB,4.2478E-02_JPRB,4.0047E-02_JPRB,3.6382E-02_JPRB,3.1522E-02_JPRB,& |
1026 |
✓✓ |
12 |
& 2.5736E-02_JPRB,1.8573E-02_JPRB,1.1739E-02_JPRB,7.8250E-03_JPRB,7.7029E-03_JPRB/) |
1027 |
|
|
KAO( :, 1, 7, 5) = (/& |
1028 |
|
|
& 2.9815E-02_JPRB,3.0608E-02_JPRB,2.8988E-02_JPRB,2.6483E-02_JPRB,2.3444E-02_JPRB,1.9806E-02_JPRB,& |
1029 |
✓✓ |
12 |
& 1.5587E-02_JPRB,1.0729E-02_JPRB,6.3834E-03_JPRB,3.9988E-03_JPRB,4.7710E-03_JPRB/) |
1030 |
|
|
KAO( :, 2, 7, 5) = (/& |
1031 |
|
|
& 3.0946E-02_JPRB,3.2211E-02_JPRB,3.0727E-02_JPRB,2.8262E-02_JPRB,2.5215E-02_JPRB,2.1406E-02_JPRB,& |
1032 |
✓✓ |
12 |
& 1.6940E-02_JPRB,1.1789E-02_JPRB,7.0925E-03_JPRB,4.5059E-03_JPRB,5.3365E-03_JPRB/) |
1033 |
|
|
KAO( :, 3, 7, 5) = (/& |
1034 |
|
|
& 3.2060E-02_JPRB,3.3823E-02_JPRB,3.2464E-02_JPRB,3.0099E-02_JPRB,2.7004E-02_JPRB,2.3026E-02_JPRB,& |
1035 |
✓✓ |
12 |
& 1.8369E-02_JPRB,1.2921E-02_JPRB,7.8758E-03_JPRB,5.0685E-03_JPRB,5.9857E-03_JPRB/) |
1036 |
|
|
KAO( :, 4, 7, 5) = (/& |
1037 |
|
|
& 3.3198E-02_JPRB,3.5483E-02_JPRB,3.4283E-02_JPRB,3.1964E-02_JPRB,2.8781E-02_JPRB,2.4689E-02_JPRB,& |
1038 |
✓✓ |
12 |
& 1.9856E-02_JPRB,1.4137E-02_JPRB,8.7260E-03_JPRB,5.6932E-03_JPRB,6.6962E-03_JPRB/) |
1039 |
|
|
KAO( :, 5, 7, 5) = (/& |
1040 |
|
|
& 3.4342E-02_JPRB,3.7144E-02_JPRB,3.6117E-02_JPRB,3.3825E-02_JPRB,3.0620E-02_JPRB,2.6411E-02_JPRB,& |
1041 |
✓✓ |
12 |
& 2.1416E-02_JPRB,1.5421E-02_JPRB,9.6443E-03_JPRB,6.3905E-03_JPRB,7.4882E-03_JPRB/) |
1042 |
|
|
KAO( :, 1, 8, 5) = (/& |
1043 |
|
|
& 2.5283E-02_JPRB,2.5751E-02_JPRB,2.4270E-02_JPRB,2.2079E-02_JPRB,1.9496E-02_JPRB,1.6496E-02_JPRB,& |
1044 |
✓✓ |
12 |
& 1.2947E-02_JPRB,8.8078E-03_JPRB,5.1661E-03_JPRB,3.1956E-03_JPRB,5.6775E-03_JPRB/) |
1045 |
|
|
KAO( :, 2, 8, 5) = (/& |
1046 |
|
|
& 2.6302E-02_JPRB,2.7180E-02_JPRB,2.5781E-02_JPRB,2.3615E-02_JPRB,2.1015E-02_JPRB,1.7843E-02_JPRB,& |
1047 |
✓✓ |
12 |
& 1.4097E-02_JPRB,9.7060E-03_JPRB,5.7494E-03_JPRB,3.6083E-03_JPRB,6.1622E-03_JPRB/) |
1048 |
|
|
KAO( :, 3, 8, 5) = (/& |
1049 |
|
|
& 2.7320E-02_JPRB,2.8593E-02_JPRB,2.7305E-02_JPRB,2.5195E-02_JPRB,2.2546E-02_JPRB,1.9223E-02_JPRB,& |
1050 |
✓✓ |
12 |
& 1.5282E-02_JPRB,1.0665E-02_JPRB,6.3913E-03_JPRB,4.0728E-03_JPRB,6.7057E-03_JPRB/) |
1051 |
|
|
KAO( :, 4, 8, 5) = (/& |
1052 |
|
|
& 2.8333E-02_JPRB,3.0041E-02_JPRB,2.8915E-02_JPRB,2.6829E-02_JPRB,2.4088E-02_JPRB,2.0635E-02_JPRB,& |
1053 |
✓✓ |
12 |
& 1.6522E-02_JPRB,1.1685E-02_JPRB,7.1066E-03_JPRB,4.5896E-03_JPRB,7.3455E-03_JPRB/) |
1054 |
|
|
KAO( :, 5, 8, 5) = (/& |
1055 |
|
|
& 2.9349E-02_JPRB,3.1526E-02_JPRB,3.0540E-02_JPRB,2.8464E-02_JPRB,2.5707E-02_JPRB,2.2109E-02_JPRB,& |
1056 |
✓✓ |
12 |
& 1.7816E-02_JPRB,1.2753E-02_JPRB,7.8746E-03_JPRB,5.1734E-03_JPRB,8.0746E-03_JPRB/) |
1057 |
|
|
KAO( :, 1, 9, 5) = (/& |
1058 |
|
|
& 2.1393E-02_JPRB,2.1598E-02_JPRB,2.0242E-02_JPRB,1.8370E-02_JPRB,1.6186E-02_JPRB,1.3706E-02_JPRB,& |
1059 |
✓✓ |
12 |
& 1.0722E-02_JPRB,7.2195E-03_JPRB,4.1746E-03_JPRB,2.5439E-03_JPRB,1.0113E-02_JPRB/) |
1060 |
|
|
KAO( :, 2, 9, 5) = (/& |
1061 |
|
|
& 2.2301E-02_JPRB,2.2863E-02_JPRB,2.1562E-02_JPRB,1.9670E-02_JPRB,1.7466E-02_JPRB,1.4848E-02_JPRB,& |
1062 |
✓✓ |
12 |
& 1.1705E-02_JPRB,7.9781E-03_JPRB,4.6436E-03_JPRB,2.8718E-03_JPRB,1.1342E-02_JPRB/) |
1063 |
|
|
KAO( :, 3, 9, 5) = (/& |
1064 |
|
|
& 2.3221E-02_JPRB,2.4089E-02_JPRB,2.2883E-02_JPRB,2.1022E-02_JPRB,1.8774E-02_JPRB,1.6030E-02_JPRB,& |
1065 |
✓✓ |
12 |
& 1.2717E-02_JPRB,8.7854E-03_JPRB,5.1730E-03_JPRB,3.2515E-03_JPRB,1.2507E-02_JPRB/) |
1066 |
|
|
KAO( :, 4, 9, 5) = (/& |
1067 |
|
|
& 2.4120E-02_JPRB,2.5343E-02_JPRB,2.4280E-02_JPRB,2.2425E-02_JPRB,2.0119E-02_JPRB,1.7244E-02_JPRB,& |
1068 |
✓✓ |
12 |
& 1.3767E-02_JPRB,9.6361E-03_JPRB,5.7611E-03_JPRB,3.6765E-03_JPRB,1.3554E-02_JPRB/) |
1069 |
|
|
KAO( :, 5, 9, 5) = (/& |
1070 |
|
|
& 2.5016E-02_JPRB,2.6638E-02_JPRB,2.5702E-02_JPRB,2.3865E-02_JPRB,2.1516E-02_JPRB,1.8508E-02_JPRB,& |
1071 |
✓✓ |
12 |
& 1.4864E-02_JPRB,1.0529E-02_JPRB,6.4045E-03_JPRB,4.1546E-03_JPRB,1.4572E-02_JPRB/) |
1072 |
|
|
KAO( :, 1,10, 5) = (/& |
1073 |
|
|
& 1.8113E-02_JPRB,1.8138E-02_JPRB,1.6915E-02_JPRB,1.5326E-02_JPRB,1.3493E-02_JPRB,1.1404E-02_JPRB,& |
1074 |
✓✓ |
12 |
& 8.8894E-03_JPRB,5.9161E-03_JPRB,3.3974E-03_JPRB,2.0400E-03_JPRB,2.3155E-02_JPRB/) |
1075 |
|
|
KAO( :, 2,10, 5) = (/& |
1076 |
|
|
& 1.8911E-02_JPRB,1.9233E-02_JPRB,1.8049E-02_JPRB,1.6433E-02_JPRB,1.4556E-02_JPRB,1.2371E-02_JPRB,& |
1077 |
✓✓ |
12 |
& 9.7152E-03_JPRB,6.5645E-03_JPRB,3.7859E-03_JPRB,2.2984E-03_JPRB,2.6502E-02_JPRB/) |
1078 |
|
|
KAO( :, 3,10, 5) = (/& |
1079 |
|
|
& 1.9728E-02_JPRB,2.0295E-02_JPRB,1.9188E-02_JPRB,1.7578E-02_JPRB,1.5660E-02_JPRB,1.3378E-02_JPRB,& |
1080 |
✓✓ |
12 |
& 1.0586E-02_JPRB,7.2492E-03_JPRB,4.2176E-03_JPRB,2.6036E-03_JPRB,2.9732E-02_JPRB/) |
1081 |
|
|
KAO( :, 4,10, 5) = (/& |
1082 |
|
|
& 2.0511E-02_JPRB,2.1373E-02_JPRB,2.0386E-02_JPRB,1.8762E-02_JPRB,1.6821E-02_JPRB,1.4424E-02_JPRB,& |
1083 |
✓✓ |
12 |
& 1.1488E-02_JPRB,7.9631E-03_JPRB,4.7001E-03_JPRB,2.9535E-03_JPRB,3.2827E-02_JPRB/) |
1084 |
|
|
KAO( :, 5,10, 5) = (/& |
1085 |
|
|
& 2.1304E-02_JPRB,2.2491E-02_JPRB,2.1602E-02_JPRB,2.0004E-02_JPRB,1.8011E-02_JPRB,1.5518E-02_JPRB,& |
1086 |
✓✓ |
12 |
& 1.2440E-02_JPRB,8.7186E-03_JPRB,5.2306E-03_JPRB,3.3445E-03_JPRB,3.5819E-02_JPRB/) |
1087 |
|
|
KAO( :, 1,11, 5) = (/& |
1088 |
|
|
& 1.5695E-02_JPRB,1.5702E-02_JPRB,1.4638E-02_JPRB,1.3267E-02_JPRB,1.1679E-02_JPRB,9.8503E-03_JPRB,& |
1089 |
✓✓ |
12 |
& 7.6677E-03_JPRB,5.0761E-03_JPRB,2.9053E-03_JPRB,1.7228E-03_JPRB,2.9993E-02_JPRB/) |
1090 |
|
|
KAO( :, 2,11, 5) = (/& |
1091 |
|
|
& 1.6401E-02_JPRB,1.6637E-02_JPRB,1.5599E-02_JPRB,1.4214E-02_JPRB,1.2583E-02_JPRB,1.0686E-02_JPRB,& |
1092 |
✓✓ |
12 |
& 8.3766E-03_JPRB,5.6416E-03_JPRB,3.2428E-03_JPRB,1.9419E-03_JPRB,3.4197E-02_JPRB/) |
1093 |
|
|
KAO( :, 3,11, 5) = (/& |
1094 |
|
|
& 1.7106E-02_JPRB,1.7559E-02_JPRB,1.6602E-02_JPRB,1.5204E-02_JPRB,1.3537E-02_JPRB,1.1563E-02_JPRB,& |
1095 |
✓✓ |
12 |
& 9.1295E-03_JPRB,6.2308E-03_JPRB,3.6142E-03_JPRB,2.2018E-03_JPRB,3.8237E-02_JPRB/) |
1096 |
|
|
KAO( :, 4,11, 5) = (/& |
1097 |
|
|
& 1.7783E-02_JPRB,1.8504E-02_JPRB,1.7628E-02_JPRB,1.6229E-02_JPRB,1.4542E-02_JPRB,1.2483E-02_JPRB,& |
1098 |
✓✓ |
12 |
& 9.9207E-03_JPRB,6.8466E-03_JPRB,4.0263E-03_JPRB,2.5043E-03_JPRB,4.2149E-02_JPRB/) |
1099 |
|
|
KAO( :, 5,11, 5) = (/& |
1100 |
|
|
& 1.8493E-02_JPRB,1.9485E-02_JPRB,1.8676E-02_JPRB,1.7295E-02_JPRB,1.5575E-02_JPRB,1.3438E-02_JPRB,& |
1101 |
✓✓ |
12 |
& 1.0754E-02_JPRB,7.5058E-03_JPRB,4.4801E-03_JPRB,2.8413E-03_JPRB,4.5923E-02_JPRB/) |
1102 |
|
|
KAO( :, 1,12, 5) = (/& |
1103 |
|
|
& 1.3506E-02_JPRB,1.3529E-02_JPRB,1.2628E-02_JPRB,1.1452E-02_JPRB,1.0063E-02_JPRB,8.4685E-03_JPRB,& |
1104 |
✓✓ |
12 |
& 6.5828E-03_JPRB,4.3370E-03_JPRB,2.4676E-03_JPRB,1.4501E-03_JPRB,3.1379E-02_JPRB/) |
1105 |
|
|
KAO( :, 2,12, 5) = (/& |
1106 |
|
|
& 1.4125E-02_JPRB,1.4325E-02_JPRB,1.3451E-02_JPRB,1.2271E-02_JPRB,1.0846E-02_JPRB,9.1944E-03_JPRB,& |
1107 |
✓✓ |
12 |
& 7.1930E-03_JPRB,4.8218E-03_JPRB,2.7588E-03_JPRB,1.6351E-03_JPRB,3.5598E-02_JPRB/) |
1108 |
|
|
KAO( :, 3,12, 5) = (/& |
1109 |
|
|
& 1.4721E-02_JPRB,1.5127E-02_JPRB,1.4318E-02_JPRB,1.3125E-02_JPRB,1.1678E-02_JPRB,9.9571E-03_JPRB,& |
1110 |
✓✓ |
12 |
& 7.8415E-03_JPRB,5.3248E-03_JPRB,3.0763E-03_JPRB,1.8570E-03_JPRB,3.9752E-02_JPRB/) |
1111 |
|
|
KAO( :, 4,12, 5) = (/& |
1112 |
|
|
& 1.5317E-02_JPRB,1.5950E-02_JPRB,1.5202E-02_JPRB,1.4009E-02_JPRB,1.2540E-02_JPRB,1.0752E-02_JPRB,& |
1113 |
✓✓ |
12 |
& 8.5246E-03_JPRB,5.8565E-03_JPRB,3.4251E-03_JPRB,2.1158E-03_JPRB,4.3744E-02_JPRB/) |
1114 |
|
|
KAO( :, 5,12, 5) = (/& |
1115 |
|
|
& 1.5969E-02_JPRB,1.6812E-02_JPRB,1.6124E-02_JPRB,1.4932E-02_JPRB,1.3442E-02_JPRB,1.1579E-02_JPRB,& |
1116 |
✓✓ |
12 |
& 9.2378E-03_JPRB,6.4203E-03_JPRB,3.8147E-03_JPRB,2.4036E-03_JPRB,4.7604E-02_JPRB/) |
1117 |
|
|
KAO( :, 1,13, 5) = (/& |
1118 |
|
|
& 1.1399E-02_JPRB,1.1449E-02_JPRB,1.0710E-02_JPRB,9.7174E-03_JPRB,8.5323E-03_JPRB,7.1730E-03_JPRB,& |
1119 |
✓✓ |
12 |
& 5.5827E-03_JPRB,3.6682E-03_JPRB,2.0730E-03_JPRB,1.2124E-03_JPRB,2.7163E-02_JPRB/) |
1120 |
|
|
KAO( :, 2,13, 5) = (/& |
1121 |
|
|
& 1.1916E-02_JPRB,1.2118E-02_JPRB,1.1410E-02_JPRB,1.0424E-02_JPRB,9.2099E-03_JPRB,7.8054E-03_JPRB,& |
1122 |
✓✓ |
12 |
& 6.1073E-03_JPRB,4.0757E-03_JPRB,2.3191E-03_JPRB,1.3693E-03_JPRB,3.0692E-02_JPRB/) |
1123 |
|
|
KAO( :, 3,13, 5) = (/& |
1124 |
|
|
& 1.2413E-02_JPRB,1.2810E-02_JPRB,1.2156E-02_JPRB,1.1166E-02_JPRB,9.9300E-03_JPRB,8.4666E-03_JPRB,& |
1125 |
✓✓ |
12 |
& 6.6637E-03_JPRB,4.5036E-03_JPRB,2.5869E-03_JPRB,1.5580E-03_JPRB,3.4158E-02_JPRB/) |
1126 |
|
|
KAO( :, 4,13, 5) = (/& |
1127 |
|
|
& 1.2945E-02_JPRB,1.3524E-02_JPRB,1.2930E-02_JPRB,1.1934E-02_JPRB,1.0680E-02_JPRB,9.1538E-03_JPRB,& |
1128 |
✓✓ |
12 |
& 7.2492E-03_JPRB,4.9532E-03_JPRB,2.8844E-03_JPRB,1.7769E-03_JPRB,3.7486E-02_JPRB/) |
1129 |
|
|
KAO( :, 5,13, 5) = (/& |
1130 |
|
|
& 1.3534E-02_JPRB,1.4296E-02_JPRB,1.3748E-02_JPRB,1.2750E-02_JPRB,1.1472E-02_JPRB,9.8678E-03_JPRB,& |
1131 |
✓✓ |
12 |
& 7.8555E-03_JPRB,5.4258E-03_JPRB,3.2161E-03_JPRB,2.0203E-03_JPRB,4.0660E-02_JPRB/) |
1132 |
|
|
KAO( :, 1, 1, 6) = (/& |
1133 |
|
|
& 1.3812E-01_JPRB,1.3826E-01_JPRB,1.3412E-01_JPRB,1.2512E-01_JPRB,1.1224E-01_JPRB,9.5217E-02_JPRB,& |
1134 |
✓✓ |
12 |
& 7.4976E-02_JPRB,5.1336E-02_JPRB,3.0614E-02_JPRB,2.1696E-02_JPRB,2.0374E-02_JPRB/) |
1135 |
|
|
KAO( :, 2, 1, 6) = (/& |
1136 |
|
|
& 1.3941E-01_JPRB,1.4212E-01_JPRB,1.3899E-01_JPRB,1.3015E-01_JPRB,1.1723E-01_JPRB,9.9705E-02_JPRB,& |
1137 |
✓✓ |
12 |
& 7.9423E-02_JPRB,5.5251E-02_JPRB,3.3932E-02_JPRB,2.4851E-02_JPRB,2.3928E-02_JPRB/) |
1138 |
|
|
KAO( :, 3, 1, 6) = (/& |
1139 |
|
|
& 1.4069E-01_JPRB,1.4606E-01_JPRB,1.4349E-01_JPRB,1.3492E-01_JPRB,1.2182E-01_JPRB,1.0431E-01_JPRB,& |
1140 |
✓✓ |
12 |
& 8.4373E-02_JPRB,5.9330E-02_JPRB,3.7520E-02_JPRB,2.8503E-02_JPRB,2.7981E-02_JPRB/) |
1141 |
|
|
KAO( :, 4, 1, 6) = (/& |
1142 |
|
|
& 1.4204E-01_JPRB,1.4980E-01_JPRB,1.4773E-01_JPRB,1.3955E-01_JPRB,1.2635E-01_JPRB,1.0953E-01_JPRB,& |
1143 |
✓✓ |
12 |
& 8.9320E-02_JPRB,6.3663E-02_JPRB,4.1464E-02_JPRB,3.2709E-02_JPRB,3.2519E-02_JPRB/) |
1144 |
|
|
KAO( :, 5, 1, 6) = (/& |
1145 |
|
|
& 1.4335E-01_JPRB,1.5332E-01_JPRB,1.5190E-01_JPRB,1.4393E-01_JPRB,1.3131E-01_JPRB,1.1498E-01_JPRB,& |
1146 |
✓✓ |
12 |
& 9.4231E-02_JPRB,6.8373E-02_JPRB,4.5718E-02_JPRB,3.7379E-02_JPRB,3.7561E-02_JPRB/) |
1147 |
|
|
KAO( :, 1, 2, 6) = (/& |
1148 |
|
|
& 1.2540E-01_JPRB,1.2569E-01_JPRB,1.2163E-01_JPRB,1.1284E-01_JPRB,1.0119E-01_JPRB,8.6267E-02_JPRB,& |
1149 |
✓✓ |
12 |
& 6.7814E-02_JPRB,4.6281E-02_JPRB,2.7026E-02_JPRB,1.8209E-02_JPRB,1.6155E-02_JPRB/) |
1150 |
|
|
KAO( :, 2, 2, 6) = (/& |
1151 |
|
|
& 1.2690E-01_JPRB,1.2947E-01_JPRB,1.2609E-01_JPRB,1.1758E-01_JPRB,1.0596E-01_JPRB,9.0648E-02_JPRB,& |
1152 |
✓✓ |
12 |
& 7.2085E-02_JPRB,4.9891E-02_JPRB,2.9876E-02_JPRB,2.0766E-02_JPRB,1.9045E-02_JPRB/) |
1153 |
|
|
KAO( :, 3, 2, 6) = (/& |
1154 |
|
|
& 1.2845E-01_JPRB,1.3318E-01_JPRB,1.3033E-01_JPRB,1.2211E-01_JPRB,1.1052E-01_JPRB,9.5256E-02_JPRB,& |
1155 |
✓✓ |
12 |
& 7.6664E-02_JPRB,5.3627E-02_JPRB,3.2984E-02_JPRB,2.3750E-02_JPRB,2.2338E-02_JPRB/) |
1156 |
|
|
KAO( :, 4, 2, 6) = (/& |
1157 |
|
|
& 1.2994E-01_JPRB,1.3679E-01_JPRB,1.3454E-01_JPRB,1.2649E-01_JPRB,1.1513E-01_JPRB,1.0018E-01_JPRB,& |
1158 |
✓✓ |
12 |
& 8.1132E-02_JPRB,5.7623E-02_JPRB,3.6417E-02_JPRB,2.7177E-02_JPRB,2.6047E-02_JPRB/) |
1159 |
|
|
KAO( :, 5, 2, 6) = (/& |
1160 |
|
|
& 1.3135E-01_JPRB,1.4032E-01_JPRB,1.3874E-01_JPRB,1.3096E-01_JPRB,1.2020E-01_JPRB,1.0521E-01_JPRB,& |
1161 |
✓✓ |
12 |
& 8.5803E-02_JPRB,6.1991E-02_JPRB,4.0111E-02_JPRB,3.0993E-02_JPRB,3.0183E-02_JPRB/) |
1162 |
|
|
KAO( :, 1, 3, 6) = (/& |
1163 |
|
|
& 1.1249E-01_JPRB,1.1241E-01_JPRB,1.0797E-01_JPRB,9.9582E-02_JPRB,8.8991E-02_JPRB,7.6122E-02_JPRB,& |
1164 |
✓✓ |
12 |
& 5.9776E-02_JPRB,4.0423E-02_JPRB,2.3381E-02_JPRB,1.4989E-02_JPRB,1.2392E-02_JPRB/) |
1165 |
|
|
KAO( :, 2, 3, 6) = (/& |
1166 |
|
|
& 1.1410E-01_JPRB,1.1606E-01_JPRB,1.1205E-01_JPRB,1.0392E-01_JPRB,9.3538E-02_JPRB,8.0374E-02_JPRB,& |
1167 |
✓✓ |
12 |
& 6.3755E-02_JPRB,4.3750E-02_JPRB,2.5848E-02_JPRB,1.7065E-02_JPRB,1.4647E-02_JPRB/) |
1168 |
|
|
KAO( :, 3, 3, 6) = (/& |
1169 |
|
|
& 1.1569E-01_JPRB,1.1965E-01_JPRB,1.1613E-01_JPRB,1.0831E-01_JPRB,9.7905E-02_JPRB,8.4765E-02_JPRB,& |
1170 |
✓✓ |
12 |
& 6.7839E-02_JPRB,4.7191E-02_JPRB,2.8514E-02_JPRB,1.9425E-02_JPRB,1.7233E-02_JPRB/) |
1171 |
|
|
KAO( :, 4, 3, 6) = (/& |
1172 |
|
|
& 1.1726E-01_JPRB,1.2309E-01_JPRB,1.2032E-01_JPRB,1.1259E-01_JPRB,1.0247E-01_JPRB,8.9387E-02_JPRB,& |
1173 |
✓✓ |
12 |
& 7.1928E-02_JPRB,5.0787E-02_JPRB,3.1455E-02_JPRB,2.2128E-02_JPRB,2.0137E-02_JPRB/) |
1174 |
|
|
KAO( :, 5, 3, 6) = (/& |
1175 |
|
|
& 1.1874E-01_JPRB,1.2658E-01_JPRB,1.2440E-01_JPRB,1.1705E-01_JPRB,1.0739E-01_JPRB,9.3857E-02_JPRB,& |
1176 |
✓✓ |
12 |
& 7.6244E-02_JPRB,5.4771E-02_JPRB,3.4624E-02_JPRB,2.5158E-02_JPRB,2.3398E-02_JPRB/) |
1177 |
|
|
KAO( :, 1, 4, 6) = (/& |
1178 |
|
|
& 1.0010E-01_JPRB,9.9685E-02_JPRB,9.4787E-02_JPRB,8.6882E-02_JPRB,7.7198E-02_JPRB,6.5934E-02_JPRB,& |
1179 |
✓✓ |
12 |
& 5.1807E-02_JPRB,3.4736E-02_JPRB,1.9980E-02_JPRB,1.2335E-02_JPRB,1.0141E-02_JPRB/) |
1180 |
|
|
KAO( :, 2, 4, 6) = (/& |
1181 |
|
|
& 1.0170E-01_JPRB,1.0312E-01_JPRB,9.8622E-02_JPRB,9.0905E-02_JPRB,8.1426E-02_JPRB,6.9900E-02_JPRB,& |
1182 |
✓✓ |
12 |
& 5.5494E-02_JPRB,3.7661E-02_JPRB,2.2134E-02_JPRB,1.4013E-02_JPRB,1.1758E-02_JPRB/) |
1183 |
|
|
KAO( :, 3, 4, 6) = (/& |
1184 |
|
|
& 1.0335E-01_JPRB,1.0651E-01_JPRB,1.0245E-01_JPRB,9.5068E-02_JPRB,8.5570E-02_JPRB,7.4056E-02_JPRB,& |
1185 |
✓✓ |
12 |
& 5.9162E-02_JPRB,4.0698E-02_JPRB,2.4492E-02_JPRB,1.5920E-02_JPRB,1.3637E-02_JPRB/) |
1186 |
|
|
KAO( :, 4, 4, 6) = (/& |
1187 |
|
|
& 1.0499E-01_JPRB,1.0979E-01_JPRB,1.0642E-01_JPRB,9.9223E-02_JPRB,8.9977E-02_JPRB,7.8273E-02_JPRB,& |
1188 |
✓✓ |
12 |
& 6.2815E-02_JPRB,4.3991E-02_JPRB,2.7037E-02_JPRB,1.8072E-02_JPRB,1.5828E-02_JPRB/) |
1189 |
|
|
KAO( :, 5, 4, 6) = (/& |
1190 |
|
|
& 1.0648E-01_JPRB,1.1320E-01_JPRB,1.1032E-01_JPRB,1.0355E-01_JPRB,9.4621E-02_JPRB,8.2442E-02_JPRB,& |
1191 |
✓✓ |
12 |
& 6.6678E-02_JPRB,4.7586E-02_JPRB,2.9766E-02_JPRB,2.0476E-02_JPRB,1.8322E-02_JPRB/) |
1192 |
|
|
KAO( :, 1, 5, 6) = (/& |
1193 |
|
|
& 8.8646E-02_JPRB,8.7933E-02_JPRB,8.2832E-02_JPRB,7.5476E-02_JPRB,6.6640E-02_JPRB,5.6566E-02_JPRB,& |
1194 |
✓✓ |
12 |
& 4.4409E-02_JPRB,2.9574E-02_JPRB,1.6904E-02_JPRB,1.0272E-02_JPRB,9.1351E-03_JPRB/) |
1195 |
|
|
KAO( :, 2, 5, 6) = (/& |
1196 |
|
|
& 9.0277E-02_JPRB,9.1081E-02_JPRB,8.6318E-02_JPRB,7.9229E-02_JPRB,7.0495E-02_JPRB,6.0192E-02_JPRB,& |
1197 |
✓✓ |
12 |
& 4.7724E-02_JPRB,3.2103E-02_JPRB,1.8750E-02_JPRB,1.1641E-02_JPRB,1.0542E-02_JPRB/) |
1198 |
|
|
KAO( :, 3, 5, 6) = (/& |
1199 |
|
|
& 9.1984E-02_JPRB,9.4263E-02_JPRB,8.9928E-02_JPRB,8.3093E-02_JPRB,7.4368E-02_JPRB,6.3999E-02_JPRB,& |
1200 |
✓✓ |
12 |
& 5.1030E-02_JPRB,3.4755E-02_JPRB,2.0780E-02_JPRB,1.3171E-02_JPRB,1.2136E-02_JPRB/) |
1201 |
|
|
KAO( :, 4, 5, 6) = (/& |
1202 |
|
|
& 9.3576E-02_JPRB,9.7447E-02_JPRB,9.3654E-02_JPRB,8.7006E-02_JPRB,7.8424E-02_JPRB,6.7877E-02_JPRB,& |
1203 |
✓✓ |
12 |
& 5.4374E-02_JPRB,3.7638E-02_JPRB,2.3002E-02_JPRB,1.4893E-02_JPRB,1.3923E-02_JPRB/) |
1204 |
|
|
KAO( :, 5, 5, 6) = (/& |
1205 |
|
|
& 9.5080E-02_JPRB,1.0065E-01_JPRB,9.7383E-02_JPRB,9.1136E-02_JPRB,8.2601E-02_JPRB,7.1701E-02_JPRB,& |
1206 |
✓✓ |
12 |
& 5.7863E-02_JPRB,4.0796E-02_JPRB,2.5412E-02_JPRB,1.6809E-02_JPRB,1.5908E-02_JPRB/) |
1207 |
|
|
KAO( :, 1, 6, 6) = (/& |
1208 |
|
|
& 7.7960E-02_JPRB,7.6934E-02_JPRB,7.1843E-02_JPRB,6.5156E-02_JPRB,5.7207E-02_JPRB,4.8156E-02_JPRB,& |
1209 |
✓✓ |
12 |
& 3.7659E-02_JPRB,2.4879E-02_JPRB,1.4127E-02_JPRB,8.5541E-03_JPRB,8.3666E-03_JPRB/) |
1210 |
|
|
KAO( :, 2, 6, 6) = (/& |
1211 |
|
|
& 7.9609E-02_JPRB,7.9866E-02_JPRB,7.5063E-02_JPRB,6.8592E-02_JPRB,6.0623E-02_JPRB,5.1416E-02_JPRB,& |
1212 |
✓✓ |
12 |
& 4.0604E-02_JPRB,2.7099E-02_JPRB,1.5685E-02_JPRB,9.6918E-03_JPRB,9.5572E-03_JPRB/) |
1213 |
|
|
KAO( :, 3, 6, 6) = (/& |
1214 |
|
|
& 8.1302E-02_JPRB,8.2836E-02_JPRB,7.8445E-02_JPRB,7.2127E-02_JPRB,6.4136E-02_JPRB,5.4857E-02_JPRB,& |
1215 |
✓✓ |
12 |
& 4.3565E-02_JPRB,2.9366E-02_JPRB,1.7400E-02_JPRB,1.0963E-02_JPRB,1.0922E-02_JPRB/) |
1216 |
|
|
KAO( :, 4, 6, 6) = (/& |
1217 |
|
|
& 8.2802E-02_JPRB,8.5864E-02_JPRB,8.1904E-02_JPRB,7.5770E-02_JPRB,6.7852E-02_JPRB,5.8330E-02_JPRB,& |
1218 |
✓✓ |
12 |
& 4.6522E-02_JPRB,3.1837E-02_JPRB,1.9277E-02_JPRB,1.2364E-02_JPRB,1.2452E-02_JPRB/) |
1219 |
|
|
KAO( :, 5, 6, 6) = (/& |
1220 |
|
|
& 8.4221E-02_JPRB,8.8823E-02_JPRB,8.5384E-02_JPRB,7.9630E-02_JPRB,7.1590E-02_JPRB,6.1823E-02_JPRB,& |
1221 |
✓✓ |
12 |
& 4.9653E-02_JPRB,3.4554E-02_JPRB,2.1337E-02_JPRB,1.3901E-02_JPRB,1.4136E-02_JPRB/) |
1222 |
|
|
KAO( :, 1, 7, 6) = (/& |
1223 |
|
|
& 6.7828E-02_JPRB,6.6421E-02_JPRB,6.1520E-02_JPRB,5.5497E-02_JPRB,4.8477E-02_JPRB,4.0523E-02_JPRB,& |
1224 |
✓✓ |
12 |
& 3.1519E-02_JPRB,2.0723E-02_JPRB,1.1684E-02_JPRB,7.0442E-03_JPRB,8.2153E-03_JPRB/) |
1225 |
|
|
KAO( :, 2, 7, 6) = (/& |
1226 |
|
|
& 6.9386E-02_JPRB,6.9084E-02_JPRB,6.4466E-02_JPRB,5.8621E-02_JPRB,5.1513E-02_JPRB,4.3404E-02_JPRB,& |
1227 |
✓✓ |
12 |
& 3.4117E-02_JPRB,2.2620E-02_JPRB,1.3002E-02_JPRB,8.0096E-03_JPRB,9.3023E-03_JPRB/) |
1228 |
|
|
KAO( :, 3, 7, 6) = (/& |
1229 |
|
|
& 7.0902E-02_JPRB,7.1781E-02_JPRB,6.7571E-02_JPRB,6.1798E-02_JPRB,5.4668E-02_JPRB,4.6485E-02_JPRB,& |
1230 |
✓✓ |
12 |
& 3.6722E-02_JPRB,2.4596E-02_JPRB,1.4441E-02_JPRB,9.0791E-03_JPRB,1.0528E-02_JPRB/) |
1231 |
|
|
KAO( :, 4, 7, 6) = (/& |
1232 |
|
|
& 7.2282E-02_JPRB,7.4474E-02_JPRB,7.0674E-02_JPRB,6.5102E-02_JPRB,5.8020E-02_JPRB,4.9583E-02_JPRB,& |
1233 |
✓✓ |
12 |
& 3.9334E-02_JPRB,2.6694E-02_JPRB,1.6007E-02_JPRB,1.0271E-02_JPRB,1.1922E-02_JPRB/) |
1234 |
|
|
KAO( :, 5, 7, 6) = (/& |
1235 |
|
|
& 7.3586E-02_JPRB,7.7141E-02_JPRB,7.3787E-02_JPRB,6.8567E-02_JPRB,6.1369E-02_JPRB,5.2671E-02_JPRB,& |
1236 |
✓✓ |
12 |
& 4.2103E-02_JPRB,2.8979E-02_JPRB,1.7736E-02_JPRB,1.1572E-02_JPRB,1.3447E-02_JPRB/) |
1237 |
|
|
KAO( :, 1, 8, 6) = (/& |
1238 |
|
|
& 5.8712E-02_JPRB,5.7043E-02_JPRB,5.2438E-02_JPRB,4.7021E-02_JPRB,4.0853E-02_JPRB,3.3895E-02_JPRB,& |
1239 |
✓✓ |
12 |
& 2.6198E-02_JPRB,1.7219E-02_JPRB,9.5944E-03_JPRB,5.7565E-03_JPRB,9.7903E-03_JPRB/) |
1240 |
|
|
KAO( :, 2, 8, 6) = (/& |
1241 |
|
|
& 6.0111E-02_JPRB,5.9403E-02_JPRB,5.5109E-02_JPRB,4.9792E-02_JPRB,4.3500E-02_JPRB,3.6406E-02_JPRB,& |
1242 |
✓✓ |
12 |
& 2.8441E-02_JPRB,1.8832E-02_JPRB,1.0715E-02_JPRB,6.5565E-03_JPRB,1.0886E-02_JPRB/) |
1243 |
|
|
KAO( :, 3, 8, 6) = (/& |
1244 |
|
|
& 6.1464E-02_JPRB,6.1765E-02_JPRB,5.7839E-02_JPRB,5.2591E-02_JPRB,4.6276E-02_JPRB,3.9078E-02_JPRB,& |
1245 |
✓✓ |
12 |
& 3.0733E-02_JPRB,2.0508E-02_JPRB,1.1934E-02_JPRB,7.4566E-03_JPRB,1.2121E-02_JPRB/) |
1246 |
|
|
KAO( :, 4, 8, 6) = (/& |
1247 |
|
|
& 6.2712E-02_JPRB,6.4146E-02_JPRB,6.0527E-02_JPRB,5.5457E-02_JPRB,4.9226E-02_JPRB,4.1797E-02_JPRB,& |
1248 |
✓✓ |
12 |
& 3.3031E-02_JPRB,2.2300E-02_JPRB,1.3252E-02_JPRB,8.4625E-03_JPRB,1.3482E-02_JPRB/) |
1249 |
|
|
KAO( :, 5, 8, 6) = (/& |
1250 |
|
|
& 6.3914E-02_JPRB,6.6490E-02_JPRB,6.3234E-02_JPRB,5.8457E-02_JPRB,5.2124E-02_JPRB,4.4504E-02_JPRB,& |
1251 |
✓✓ |
12 |
& 3.5484E-02_JPRB,2.4239E-02_JPRB,1.4708E-02_JPRB,9.5766E-03_JPRB,1.4975E-02_JPRB/) |
1252 |
|
|
|
1253 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART4',1,ZHOOK_HANDLE) |
1254 |
|
1 |
END SUBROUTINE PART4 |
1255 |
|
|
|
1256 |
|
|
|
1257 |
|
1 |
SUBROUTINE PART5 |
1258 |
|
|
|
1259 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1260 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART5',0,ZHOOK_HANDLE) |
1261 |
|
|
|
1262 |
|
|
|
1263 |
|
|
KAO( :, 1, 9, 6) = (/& |
1264 |
|
|
& 5.0689E-02_JPRB,4.8919E-02_JPRB,4.4694E-02_JPRB,3.9834E-02_JPRB,3.4426E-02_JPRB,2.8389E-02_JPRB,& |
1265 |
✓✓ |
12 |
& 2.1819E-02_JPRB,1.4302E-02_JPRB,7.8127E-03_JPRB,4.6620E-03_JPRB,2.0696E-02_JPRB/) |
1266 |
|
|
KAO( :, 2, 9, 6) = (/& |
1267 |
|
|
& 5.1946E-02_JPRB,5.0973E-02_JPRB,4.7056E-02_JPRB,4.2253E-02_JPRB,3.6737E-02_JPRB,3.0544E-02_JPRB,& |
1268 |
✓✓ |
12 |
& 2.3724E-02_JPRB,1.5668E-02_JPRB,8.7780E-03_JPRB,5.3214E-03_JPRB,2.1910E-02_JPRB/) |
1269 |
|
|
KAO( :, 3, 9, 6) = (/& |
1270 |
|
|
& 5.3143E-02_JPRB,5.3077E-02_JPRB,4.9431E-02_JPRB,4.4665E-02_JPRB,3.9122E-02_JPRB,3.2816E-02_JPRB,& |
1271 |
✓✓ |
12 |
& 2.5692E-02_JPRB,1.7096E-02_JPRB,9.8039E-03_JPRB,6.0656E-03_JPRB,2.3234E-02_JPRB/) |
1272 |
|
|
KAO( :, 4, 9, 6) = (/& |
1273 |
|
|
& 5.4267E-02_JPRB,5.5157E-02_JPRB,5.1739E-02_JPRB,4.7167E-02_JPRB,4.1644E-02_JPRB,3.5136E-02_JPRB,& |
1274 |
✓✓ |
12 |
& 2.7685E-02_JPRB,1.8626E-02_JPRB,1.0916E-02_JPRB,6.9060E-03_JPRB,2.4826E-02_JPRB/) |
1275 |
|
|
KAO( :, 5, 9, 6) = (/& |
1276 |
|
|
& 5.5411E-02_JPRB,5.7220E-02_JPRB,5.4074E-02_JPRB,4.9699E-02_JPRB,4.4127E-02_JPRB,3.7477E-02_JPRB,& |
1277 |
✓✓ |
12 |
& 2.9785E-02_JPRB,2.0273E-02_JPRB,1.2148E-02_JPRB,7.8411E-03_JPRB,2.6607E-02_JPRB/) |
1278 |
|
|
KAO( :, 1,10, 6) = (/& |
1279 |
|
|
& 4.3441E-02_JPRB,4.1752E-02_JPRB,3.7992E-02_JPRB,3.3732E-02_JPRB,2.9033E-02_JPRB,2.3892E-02_JPRB,& |
1280 |
✓✓ |
12 |
& 1.8315E-02_JPRB,1.1925E-02_JPRB,6.3650E-03_JPRB,3.7730E-03_JPRB,5.8980E-02_JPRB/) |
1281 |
|
|
KAO( :, 2,10, 6) = (/& |
1282 |
|
|
& 4.4578E-02_JPRB,4.3534E-02_JPRB,4.0036E-02_JPRB,3.5800E-02_JPRB,3.1038E-02_JPRB,2.5745E-02_JPRB,& |
1283 |
✓✓ |
12 |
& 1.9928E-02_JPRB,1.3095E-02_JPRB,7.1901E-03_JPRB,4.3268E-03_JPRB,6.2127E-02_JPRB/) |
1284 |
|
|
KAO( :, 3,10, 6) = (/& |
1285 |
|
|
& 4.5637E-02_JPRB,4.5360E-02_JPRB,4.2074E-02_JPRB,3.7890E-02_JPRB,3.3109E-02_JPRB,2.7662E-02_JPRB,& |
1286 |
✓✓ |
12 |
& 2.1605E-02_JPRB,1.4318E-02_JPRB,8.0717E-03_JPRB,4.9441E-03_JPRB,6.4930E-02_JPRB/) |
1287 |
|
|
KAO( :, 4,10, 6) = (/& |
1288 |
|
|
& 4.6665E-02_JPRB,4.7201E-02_JPRB,4.4073E-02_JPRB,4.0041E-02_JPRB,3.5227E-02_JPRB,2.9634E-02_JPRB,& |
1289 |
✓✓ |
12 |
& 2.3310E-02_JPRB,1.5630E-02_JPRB,9.0074E-03_JPRB,5.6431E-03_JPRB,6.7490E-02_JPRB/) |
1290 |
|
|
KAO( :, 5,10, 6) = (/& |
1291 |
|
|
& 4.7723E-02_JPRB,4.9037E-02_JPRB,4.6142E-02_JPRB,4.2228E-02_JPRB,3.7348E-02_JPRB,3.1608E-02_JPRB,& |
1292 |
✓✓ |
12 |
& 2.5075E-02_JPRB,1.7036E-02_JPRB,1.0045E-02_JPRB,6.4268E-03_JPRB,6.9977E-02_JPRB/) |
1293 |
|
|
KAO( :, 1,11, 6) = (/& |
1294 |
|
|
& 3.7516E-02_JPRB,3.6158E-02_JPRB,3.2933E-02_JPRB,2.9252E-02_JPRB,2.5204E-02_JPRB,2.0803E-02_JPRB,& |
1295 |
✓✓ |
12 |
& 1.5990E-02_JPRB,1.0375E-02_JPRB,5.4827E-03_JPRB,3.2361E-03_JPRB,8.1016E-02_JPRB/) |
1296 |
|
|
KAO( :, 2,11, 6) = (/& |
1297 |
|
|
& 3.8506E-02_JPRB,3.7721E-02_JPRB,3.4706E-02_JPRB,3.1031E-02_JPRB,2.6946E-02_JPRB,2.2411E-02_JPRB,& |
1298 |
✓✓ |
12 |
& 1.7386E-02_JPRB,1.1409E-02_JPRB,6.2003E-03_JPRB,3.7210E-03_JPRB,8.4685E-02_JPRB/) |
1299 |
|
|
KAO( :, 3,11, 6) = (/& |
1300 |
|
|
& 3.9439E-02_JPRB,3.9310E-02_JPRB,3.6436E-02_JPRB,3.2830E-02_JPRB,2.8736E-02_JPRB,2.4071E-02_JPRB,& |
1301 |
✓✓ |
12 |
& 1.8831E-02_JPRB,1.2487E-02_JPRB,6.9722E-03_JPRB,4.2623E-03_JPRB,8.7980E-02_JPRB/) |
1302 |
|
|
KAO( :, 4,11, 6) = (/& |
1303 |
|
|
& 4.0392E-02_JPRB,4.0944E-02_JPRB,3.8217E-02_JPRB,3.4707E-02_JPRB,3.0543E-02_JPRB,2.5731E-02_JPRB,& |
1304 |
✓✓ |
12 |
& 2.0303E-02_JPRB,1.3646E-02_JPRB,7.7970E-03_JPRB,4.8703E-03_JPRB,9.0981E-02_JPRB/) |
1305 |
|
|
KAO( :, 5,11, 6) = (/& |
1306 |
|
|
& 4.1332E-02_JPRB,4.2552E-02_JPRB,4.0059E-02_JPRB,3.6603E-02_JPRB,3.2383E-02_JPRB,2.7450E-02_JPRB,& |
1307 |
✓✓ |
12 |
& 2.1833E-02_JPRB,1.4887E-02_JPRB,8.7084E-03_JPRB,5.5527E-03_JPRB,9.3973E-02_JPRB/) |
1308 |
|
|
KAO( :, 1,12, 6) = (/& |
1309 |
|
|
& 3.2190E-02_JPRB,3.1071E-02_JPRB,2.8321E-02_JPRB,2.5152E-02_JPRB,2.1728E-02_JPRB,1.7981E-02_JPRB,& |
1310 |
✓✓ |
12 |
& 1.3822E-02_JPRB,8.9602E-03_JPRB,4.7106E-03_JPRB,2.7564E-03_JPRB,8.5402E-02_JPRB/) |
1311 |
|
|
KAO( :, 2,12, 6) = (/& |
1312 |
|
|
& 3.3033E-02_JPRB,3.2405E-02_JPRB,2.9806E-02_JPRB,2.6661E-02_JPRB,2.3211E-02_JPRB,1.9361E-02_JPRB,& |
1313 |
✓✓ |
12 |
& 1.5025E-02_JPRB,9.8641E-03_JPRB,5.3297E-03_JPRB,3.1770E-03_JPRB,8.8737E-02_JPRB/) |
1314 |
|
|
KAO( :, 3,12, 6) = (/& |
1315 |
|
|
& 3.3864E-02_JPRB,3.3793E-02_JPRB,3.1297E-02_JPRB,2.8211E-02_JPRB,2.4733E-02_JPRB,2.0771E-02_JPRB,& |
1316 |
✓✓ |
12 |
& 1.6265E-02_JPRB,1.0821E-02_JPRB,6.0022E-03_JPRB,3.6467E-03_JPRB,9.1670E-02_JPRB/) |
1317 |
|
|
KAO( :, 4,12, 6) = (/& |
1318 |
|
|
& 3.4696E-02_JPRB,3.5203E-02_JPRB,3.2853E-02_JPRB,2.9817E-02_JPRB,2.6296E-02_JPRB,2.2203E-02_JPRB,& |
1319 |
✓✓ |
12 |
& 1.7545E-02_JPRB,1.1834E-02_JPRB,6.7302E-03_JPRB,4.1679E-03_JPRB,9.4574E-02_JPRB/) |
1320 |
|
|
KAO( :, 5,12, 6) = (/& |
1321 |
|
|
& 3.5522E-02_JPRB,3.6626E-02_JPRB,3.4423E-02_JPRB,3.1438E-02_JPRB,2.7875E-02_JPRB,2.3697E-02_JPRB,& |
1322 |
✓✓ |
12 |
& 1.8905E-02_JPRB,1.2927E-02_JPRB,7.5191E-03_JPRB,4.7590E-03_JPRB,9.7614E-02_JPRB/) |
1323 |
|
|
KAO( :, 1,13, 6) = (/& |
1324 |
|
|
& 2.7210E-02_JPRB,2.6304E-02_JPRB,2.3996E-02_JPRB,2.1359E-02_JPRB,1.8491E-02_JPRB,1.5314E-02_JPRB,& |
1325 |
✓✓ |
12 |
& 1.1755E-02_JPRB,7.6170E-03_JPRB,4.0095E-03_JPRB,2.3275E-03_JPRB,7.1211E-02_JPRB/) |
1326 |
|
|
KAO( :, 2,13, 6) = (/& |
1327 |
|
|
& 2.7941E-02_JPRB,2.7441E-02_JPRB,2.5246E-02_JPRB,2.2622E-02_JPRB,1.9729E-02_JPRB,1.6472E-02_JPRB,& |
1328 |
✓✓ |
12 |
& 1.2765E-02_JPRB,8.4034E-03_JPRB,4.5447E-03_JPRB,2.6861E-03_JPRB,7.3769E-02_JPRB/) |
1329 |
|
|
KAO( :, 3,13, 6) = (/& |
1330 |
|
|
& 2.8664E-02_JPRB,2.8630E-02_JPRB,2.6520E-02_JPRB,2.3935E-02_JPRB,2.1025E-02_JPRB,1.7662E-02_JPRB,& |
1331 |
✓✓ |
12 |
& 1.3821E-02_JPRB,9.2359E-03_JPRB,5.1273E-03_JPRB,3.0871E-03_JPRB,7.6136E-02_JPRB/) |
1332 |
|
|
KAO( :, 4,13, 6) = (/& |
1333 |
|
|
& 2.9387E-02_JPRB,2.9844E-02_JPRB,2.7832E-02_JPRB,2.5287E-02_JPRB,2.2341E-02_JPRB,1.8888E-02_JPRB,& |
1334 |
✓✓ |
12 |
& 1.4940E-02_JPRB,1.0117E-02_JPRB,5.7529E-03_JPRB,3.5334E-03_JPRB,7.8673E-02_JPRB/) |
1335 |
|
|
KAO( :, 5,13, 6) = (/& |
1336 |
|
|
& 3.0121E-02_JPRB,3.1064E-02_JPRB,2.9140E-02_JPRB,2.6651E-02_JPRB,2.3680E-02_JPRB,2.0177E-02_JPRB,& |
1337 |
✓✓ |
12 |
& 1.6134E-02_JPRB,1.1077E-02_JPRB,6.4283E-03_JPRB,4.0402E-03_JPRB,8.1505E-02_JPRB/) |
1338 |
|
|
KAO( :, 1, 1, 7) = (/& |
1339 |
|
|
& 2.6926E-01_JPRB,2.5612E-01_JPRB,2.3950E-01_JPRB,2.1903E-01_JPRB,1.9378E-01_JPRB,1.6501E-01_JPRB,& |
1340 |
✓✓ |
12 |
& 1.2973E-01_JPRB,8.7439E-02_JPRB,5.3950E-02_JPRB,4.2811E-02_JPRB,4.3233E-02_JPRB/) |
1341 |
|
|
KAO( :, 2, 1, 7) = (/& |
1342 |
|
|
& 2.6861E-01_JPRB,2.5930E-01_JPRB,2.4513E-01_JPRB,2.2568E-01_JPRB,2.0133E-01_JPRB,1.7294E-01_JPRB,& |
1343 |
✓✓ |
12 |
& 1.3711E-01_JPRB,9.4464E-02_JPRB,6.0595E-02_JPRB,5.0710E-02_JPRB,5.1677E-02_JPRB/) |
1344 |
|
|
KAO( :, 3, 1, 7) = (/& |
1345 |
|
|
& 2.6820E-01_JPRB,2.6238E-01_JPRB,2.5102E-01_JPRB,2.3240E-01_JPRB,2.0913E-01_JPRB,1.8091E-01_JPRB,& |
1346 |
✓✓ |
12 |
& 1.4446E-01_JPRB,1.0226E-01_JPRB,6.8084E-02_JPRB,5.9495E-02_JPRB,6.1037E-02_JPRB/) |
1347 |
|
|
KAO( :, 4, 1, 7) = (/& |
1348 |
|
|
& 2.6771E-01_JPRB,2.6572E-01_JPRB,2.5658E-01_JPRB,2.3935E-01_JPRB,2.1685E-01_JPRB,1.8839E-01_JPRB,& |
1349 |
✓✓ |
12 |
& 1.5222E-01_JPRB,1.1069E-01_JPRB,7.6279E-02_JPRB,6.9108E-02_JPRB,7.1213E-02_JPRB/) |
1350 |
|
|
KAO( :, 5, 1, 7) = (/& |
1351 |
|
|
& 2.6714E-01_JPRB,2.6936E-01_JPRB,2.6194E-01_JPRB,2.4642E-01_JPRB,2.2450E-01_JPRB,1.9571E-01_JPRB,& |
1352 |
✓✓ |
12 |
& 1.6083E-01_JPRB,1.1918E-01_JPRB,8.5421E-02_JPRB,7.9682E-02_JPRB,8.2280E-02_JPRB/) |
1353 |
|
|
KAO( :, 1, 2, 7) = (/& |
1354 |
|
|
& 2.5685E-01_JPRB,2.4492E-01_JPRB,2.2865E-01_JPRB,2.0884E-01_JPRB,1.8444E-01_JPRB,1.5601E-01_JPRB,& |
1355 |
✓✓ |
12 |
& 1.2319E-01_JPRB,8.1747E-02_JPRB,4.8230E-02_JPRB,3.5409E-02_JPRB,3.4615E-02_JPRB/) |
1356 |
|
|
KAO( :, 2, 2, 7) = (/& |
1357 |
|
|
& 2.5657E-01_JPRB,2.4834E-01_JPRB,2.3445E-01_JPRB,2.1551E-01_JPRB,1.9182E-01_JPRB,1.6377E-01_JPRB,& |
1358 |
✓✓ |
12 |
& 1.3042E-01_JPRB,8.8197E-02_JPRB,5.3891E-02_JPRB,4.1822E-02_JPRB,4.1515E-02_JPRB/) |
1359 |
|
|
KAO( :, 3, 2, 7) = (/& |
1360 |
|
|
& 2.5627E-01_JPRB,2.5163E-01_JPRB,2.4011E-01_JPRB,2.2230E-01_JPRB,1.9937E-01_JPRB,1.7150E-01_JPRB,& |
1361 |
✓✓ |
12 |
& 1.3758E-01_JPRB,9.5254E-02_JPRB,6.0018E-02_JPRB,4.9025E-02_JPRB,4.9189E-02_JPRB/) |
1362 |
|
|
KAO( :, 4, 2, 7) = (/& |
1363 |
|
|
& 2.5591E-01_JPRB,2.5517E-01_JPRB,2.4558E-01_JPRB,2.2928E-01_JPRB,2.0702E-01_JPRB,1.7899E-01_JPRB,& |
1364 |
✓✓ |
12 |
& 1.4524E-01_JPRB,1.0258E-01_JPRB,6.6782E-02_JPRB,5.7123E-02_JPRB,5.7631E-02_JPRB/) |
1365 |
|
|
KAO( :, 5, 2, 7) = (/& |
1366 |
|
|
& 2.5562E-01_JPRB,2.5902E-01_JPRB,2.5095E-01_JPRB,2.3638E-01_JPRB,2.1422E-01_JPRB,1.8662E-01_JPRB,& |
1367 |
✓✓ |
12 |
& 1.5329E-01_JPRB,1.0996E-01_JPRB,7.4405E-02_JPRB,6.6142E-02_JPRB,6.6949E-02_JPRB/) |
1368 |
|
|
KAO( :, 1, 3, 7) = (/& |
1369 |
|
|
& 2.4108E-01_JPRB,2.2965E-01_JPRB,2.1361E-01_JPRB,1.9446E-01_JPRB,1.7133E-01_JPRB,1.4401E-01_JPRB,& |
1370 |
✓✓ |
12 |
& 1.1345E-01_JPRB,7.5185E-02_JPRB,4.2160E-02_JPRB,2.8583E-02_JPRB,2.6584E-02_JPRB/) |
1371 |
|
|
KAO( :, 2, 3, 7) = (/& |
1372 |
|
|
& 2.4113E-01_JPRB,2.3314E-01_JPRB,2.1942E-01_JPRB,2.0119E-01_JPRB,1.7846E-01_JPRB,1.5146E-01_JPRB,& |
1373 |
✓✓ |
12 |
& 1.2063E-01_JPRB,8.1173E-02_JPRB,4.7044E-02_JPRB,3.3533E-02_JPRB,3.2019E-02_JPRB/) |
1374 |
|
|
KAO( :, 3, 3, 7) = (/& |
1375 |
|
|
& 2.4094E-01_JPRB,2.3663E-01_JPRB,2.2501E-01_JPRB,2.0773E-01_JPRB,1.8580E-01_JPRB,1.5907E-01_JPRB,& |
1376 |
✓✓ |
12 |
& 1.2798E-01_JPRB,8.7501E-02_JPRB,5.2313E-02_JPRB,3.9244E-02_JPRB,3.8141E-02_JPRB/) |
1377 |
|
|
KAO( :, 4, 3, 7) = (/& |
1378 |
|
|
& 2.4074E-01_JPRB,2.4043E-01_JPRB,2.3041E-01_JPRB,2.1449E-01_JPRB,1.9317E-01_JPRB,1.6647E-01_JPRB,& |
1379 |
✓✓ |
12 |
& 1.3556E-01_JPRB,9.3949E-02_JPRB,5.7980E-02_JPRB,4.5777E-02_JPRB,4.5020E-02_JPRB/) |
1380 |
|
|
KAO( :, 5, 3, 7) = (/& |
1381 |
|
|
& 2.4071E-01_JPRB,2.4430E-01_JPRB,2.3591E-01_JPRB,2.2137E-01_JPRB,2.0017E-01_JPRB,1.7425E-01_JPRB,& |
1382 |
✓✓ |
12 |
& 1.4332E-01_JPRB,1.0047E-01_JPRB,6.4245E-02_JPRB,5.3237E-02_JPRB,5.2730E-02_JPRB/) |
1383 |
|
|
KAO( :, 1, 4, 7) = (/& |
1384 |
|
|
& 2.2311E-01_JPRB,2.1202E-01_JPRB,1.9660E-01_JPRB,1.7804E-01_JPRB,1.5619E-01_JPRB,1.3066E-01_JPRB,& |
1385 |
✓✓ |
12 |
& 1.0239E-01_JPRB,6.7996E-02_JPRB,3.6908E-02_JPRB,2.3235E-02_JPRB,2.0397E-02_JPRB/) |
1386 |
|
|
KAO( :, 2, 4, 7) = (/& |
1387 |
|
|
& 2.2321E-01_JPRB,2.1552E-01_JPRB,2.0209E-01_JPRB,1.8449E-01_JPRB,1.6284E-01_JPRB,1.3774E-01_JPRB,& |
1388 |
✓✓ |
12 |
& 1.0930E-01_JPRB,7.3775E-02_JPRB,4.1078E-02_JPRB,2.7004E-02_JPRB,2.4614E-02_JPRB/) |
1389 |
|
|
KAO( :, 3, 4, 7) = (/& |
1390 |
|
|
& 2.2314E-01_JPRB,2.1901E-01_JPRB,2.0753E-01_JPRB,1.9073E-01_JPRB,1.6981E-01_JPRB,1.4494E-01_JPRB,& |
1391 |
✓✓ |
12 |
& 1.1634E-01_JPRB,7.9807E-02_JPRB,4.5483E-02_JPRB,3.1405E-02_JPRB,2.9481E-02_JPRB/) |
1392 |
|
|
KAO( :, 4, 4, 7) = (/& |
1393 |
|
|
& 2.2327E-01_JPRB,2.2287E-01_JPRB,2.1284E-01_JPRB,1.9716E-01_JPRB,1.7693E-01_JPRB,1.5226E-01_JPRB,& |
1394 |
✓✓ |
12 |
& 1.2381E-01_JPRB,8.5751E-02_JPRB,5.0279E-02_JPRB,3.6528E-02_JPRB,3.5030E-02_JPRB/) |
1395 |
|
|
KAO( :, 5, 4, 7) = (/& |
1396 |
|
|
& 2.2365E-01_JPRB,2.2673E-01_JPRB,2.1820E-01_JPRB,2.0372E-01_JPRB,1.8385E-01_JPRB,1.5984E-01_JPRB,& |
1397 |
✓✓ |
12 |
& 1.3133E-01_JPRB,9.1593E-02_JPRB,5.5615E-02_JPRB,4.2459E-02_JPRB,4.1306E-02_JPRB/) |
1398 |
|
|
KAO( :, 1, 5, 7) = (/& |
1399 |
|
|
& 2.0367E-01_JPRB,1.9330E-01_JPRB,1.7867E-01_JPRB,1.6084E-01_JPRB,1.4027E-01_JPRB,1.1693E-01_JPRB,& |
1400 |
✓✓ |
12 |
& 9.0945E-02_JPRB,6.0466E-02_JPRB,3.2455E-02_JPRB,1.9165E-02_JPRB,1.7920E-02_JPRB/) |
1401 |
|
|
KAO( :, 2, 5, 7) = (/& |
1402 |
|
|
& 2.0387E-01_JPRB,1.9668E-01_JPRB,1.8380E-01_JPRB,1.6682E-01_JPRB,1.4653E-01_JPRB,1.2346E-01_JPRB,& |
1403 |
✓✓ |
12 |
& 9.7443E-02_JPRB,6.5962E-02_JPRB,3.6138E-02_JPRB,2.2169E-02_JPRB,2.0934E-02_JPRB/) |
1404 |
|
|
KAO( :, 3, 5, 7) = (/& |
1405 |
|
|
& 2.0408E-01_JPRB,2.0015E-01_JPRB,1.8885E-01_JPRB,1.7264E-01_JPRB,1.5303E-01_JPRB,1.3023E-01_JPRB,& |
1406 |
✓✓ |
12 |
& 1.0413E-01_JPRB,7.1676E-02_JPRB,3.9916E-02_JPRB,2.5581E-02_JPRB,2.4393E-02_JPRB/) |
1407 |
|
|
KAO( :, 4, 5, 7) = (/& |
1408 |
|
|
& 2.0467E-01_JPRB,2.0395E-01_JPRB,1.9389E-01_JPRB,1.7862E-01_JPRB,1.5966E-01_JPRB,1.3725E-01_JPRB,& |
1409 |
✓✓ |
12 |
& 1.1106E-01_JPRB,7.7287E-02_JPRB,4.3976E-02_JPRB,2.9567E-02_JPRB,2.8440E-02_JPRB/) |
1410 |
|
|
KAO( :, 5, 5, 7) = (/& |
1411 |
|
|
& 2.0538E-01_JPRB,2.0784E-01_JPRB,1.9895E-01_JPRB,1.8474E-01_JPRB,1.6635E-01_JPRB,1.4459E-01_JPRB,& |
1412 |
✓✓ |
12 |
& 1.1807E-01_JPRB,8.2795E-02_JPRB,4.8485E-02_JPRB,3.4195E-02_JPRB,3.3174E-02_JPRB/) |
1413 |
|
|
KAO( :, 1, 6, 7) = (/& |
1414 |
|
|
& 1.8377E-01_JPRB,1.7398E-01_JPRB,1.6006E-01_JPRB,1.4318E-01_JPRB,1.2397E-01_JPRB,1.0298E-01_JPRB,& |
1415 |
✓✓ |
12 |
& 7.9521E-02_JPRB,5.2397E-02_JPRB,2.8050E-02_JPRB,1.5934E-02_JPRB,1.6791E-02_JPRB/) |
1416 |
|
|
KAO( :, 2, 6, 7) = (/& |
1417 |
|
|
& 1.8406E-01_JPRB,1.7717E-01_JPRB,1.6474E-01_JPRB,1.4853E-01_JPRB,1.2984E-01_JPRB,1.0898E-01_JPRB,& |
1418 |
✓✓ |
12 |
& 8.5328E-02_JPRB,5.7490E-02_JPRB,3.1447E-02_JPRB,1.8349E-02_JPRB,1.9516E-02_JPRB/) |
1419 |
|
|
KAO( :, 3, 6, 7) = (/& |
1420 |
|
|
& 1.8458E-01_JPRB,1.8054E-01_JPRB,1.6936E-01_JPRB,1.5392E-01_JPRB,1.3584E-01_JPRB,1.1517E-01_JPRB,& |
1421 |
✓✓ |
12 |
& 9.1409E-02_JPRB,6.2836E-02_JPRB,3.4889E-02_JPRB,2.1106E-02_JPRB,2.2611E-02_JPRB/) |
1422 |
|
|
KAO( :, 4, 6, 7) = (/& |
1423 |
|
|
& 1.8542E-01_JPRB,1.8421E-01_JPRB,1.7403E-01_JPRB,1.5942E-01_JPRB,1.4196E-01_JPRB,1.2162E-01_JPRB,& |
1424 |
✓✓ |
12 |
& 9.7928E-02_JPRB,6.8139E-02_JPRB,3.8483E-02_JPRB,2.4244E-02_JPRB,2.6124E-02_JPRB/) |
1425 |
|
|
KAO( :, 5, 6, 7) = (/& |
1426 |
|
|
& 1.8648E-01_JPRB,1.8801E-01_JPRB,1.7890E-01_JPRB,1.6506E-01_JPRB,1.4823E-01_JPRB,1.2840E-01_JPRB,& |
1427 |
✓✓ |
12 |
& 1.0438E-01_JPRB,7.3304E-02_JPRB,4.2378E-02_JPRB,2.7839E-02_JPRB,3.0053E-02_JPRB/) |
1428 |
|
|
KAO( :, 1, 7, 7) = (/& |
1429 |
|
|
& 1.6272E-01_JPRB,1.5372E-01_JPRB,1.4080E-01_JPRB,1.2519E-01_JPRB,1.0771E-01_JPRB,8.8984E-02_JPRB,& |
1430 |
✓✓ |
12 |
& 6.8276E-02_JPRB,4.4541E-02_JPRB,2.3807E-02_JPRB,1.3453E-02_JPRB,1.6655E-02_JPRB/) |
1431 |
|
|
KAO( :, 2, 7, 7) = (/& |
1432 |
|
|
& 1.6325E-01_JPRB,1.5679E-01_JPRB,1.4498E-01_JPRB,1.2986E-01_JPRB,1.1297E-01_JPRB,9.4402E-02_JPRB,& |
1433 |
✓✓ |
12 |
& 7.3383E-02_JPRB,4.9046E-02_JPRB,2.6845E-02_JPRB,1.5405E-02_JPRB,1.9132E-02_JPRB/) |
1434 |
|
|
KAO( :, 3, 7, 7) = (/& |
1435 |
|
|
& 1.6400E-01_JPRB,1.6007E-01_JPRB,1.4916E-01_JPRB,1.3473E-01_JPRB,1.1836E-01_JPRB,9.9949E-02_JPRB,& |
1436 |
✓✓ |
12 |
& 7.8806E-02_JPRB,5.3833E-02_JPRB,2.9954E-02_JPRB,1.7645E-02_JPRB,2.1895E-02_JPRB/) |
1437 |
|
|
KAO( :, 4, 7, 7) = (/& |
1438 |
|
|
& 1.6505E-01_JPRB,1.6353E-01_JPRB,1.5347E-01_JPRB,1.3982E-01_JPRB,1.2392E-01_JPRB,1.0565E-01_JPRB,& |
1439 |
✓✓ |
12 |
& 8.4634E-02_JPRB,5.8597E-02_JPRB,3.3207E-02_JPRB,2.0171E-02_JPRB,2.4986E-02_JPRB/) |
1440 |
|
|
KAO( :, 5, 7, 7) = (/& |
1441 |
|
|
& 1.6641E-01_JPRB,1.6726E-01_JPRB,1.5808E-01_JPRB,1.4506E-01_JPRB,1.2973E-01_JPRB,1.1182E-01_JPRB,& |
1442 |
✓✓ |
12 |
& 9.0461E-02_JPRB,6.3334E-02_JPRB,3.6689E-02_JPRB,2.3031E-02_JPRB,2.8476E-02_JPRB/) |
1443 |
|
|
KAO( :, 1, 8, 7) = (/& |
1444 |
|
|
& 1.4230E-01_JPRB,1.3413E-01_JPRB,1.2233E-01_JPRB,1.0813E-01_JPRB,9.2496E-02_JPRB,7.5904E-02_JPRB,& |
1445 |
✓✓ |
12 |
& 5.7906E-02_JPRB,3.7394E-02_JPRB,2.0019E-02_JPRB,1.1310E-02_JPRB,1.9019E-02_JPRB/) |
1446 |
|
|
KAO( :, 2, 8, 7) = (/& |
1447 |
|
|
& 1.4305E-01_JPRB,1.3708E-01_JPRB,1.2596E-01_JPRB,1.1218E-01_JPRB,9.7109E-02_JPRB,8.0704E-02_JPRB,& |
1448 |
✓✓ |
12 |
& 6.2330E-02_JPRB,4.1218E-02_JPRB,2.2623E-02_JPRB,1.3029E-02_JPRB,2.1546E-02_JPRB/) |
1449 |
|
|
KAO( :, 3, 8, 7) = (/& |
1450 |
|
|
& 1.4394E-01_JPRB,1.4013E-01_JPRB,1.2970E-01_JPRB,1.1658E-01_JPRB,1.0194E-01_JPRB,8.5591E-02_JPRB,& |
1451 |
✓✓ |
12 |
& 6.7043E-02_JPRB,4.5347E-02_JPRB,2.5359E-02_JPRB,1.4903E-02_JPRB,2.4327E-02_JPRB/) |
1452 |
|
|
KAO( :, 4, 8, 7) = (/& |
1453 |
|
|
& 1.4525E-01_JPRB,1.4339E-01_JPRB,1.3373E-01_JPRB,1.2126E-01_JPRB,1.0690E-01_JPRB,9.0683E-02_JPRB,& |
1454 |
✓✓ |
12 |
& 7.2129E-02_JPRB,4.9569E-02_JPRB,2.8222E-02_JPRB,1.6964E-02_JPRB,2.7427E-02_JPRB/) |
1455 |
|
|
KAO( :, 5, 8, 7) = (/& |
1456 |
|
|
& 1.4678E-01_JPRB,1.4702E-01_JPRB,1.3814E-01_JPRB,1.2616E-01_JPRB,1.1217E-01_JPRB,9.6136E-02_JPRB,& |
1457 |
✓✓ |
12 |
& 7.7253E-02_JPRB,5.3800E-02_JPRB,3.1285E-02_JPRB,1.9274E-02_JPRB,3.0890E-02_JPRB/) |
1458 |
|
|
KAO( :, 1, 9, 7) = (/& |
1459 |
|
|
& 1.2368E-01_JPRB,1.1615E-01_JPRB,1.0547E-01_JPRB,9.2730E-02_JPRB,7.8890E-02_JPRB,6.4288E-02_JPRB,& |
1460 |
✓✓ |
12 |
& 4.8706E-02_JPRB,3.1194E-02_JPRB,1.6735E-02_JPRB,9.3621E-03_JPRB,3.9474E-02_JPRB/) |
1461 |
|
|
KAO( :, 2, 9, 7) = (/& |
1462 |
|
|
& 1.2453E-01_JPRB,1.1886E-01_JPRB,1.0862E-01_JPRB,9.6299E-02_JPRB,8.2892E-02_JPRB,6.8444E-02_JPRB,& |
1463 |
✓✓ |
12 |
& 5.2534E-02_JPRB,3.4360E-02_JPRB,1.8949E-02_JPRB,1.0875E-02_JPRB,4.3185E-02_JPRB/) |
1464 |
|
|
KAO( :, 3, 9, 7) = (/& |
1465 |
|
|
& 1.2562E-01_JPRB,1.2177E-01_JPRB,1.1199E-01_JPRB,1.0025E-01_JPRB,8.7157E-02_JPRB,7.2734E-02_JPRB,& |
1466 |
✓✓ |
12 |
& 5.6567E-02_JPRB,3.7837E-02_JPRB,2.1307E-02_JPRB,1.2524E-02_JPRB,4.7262E-02_JPRB/) |
1467 |
|
|
KAO( :, 4, 9, 7) = (/& |
1468 |
|
|
& 1.2711E-01_JPRB,1.2497E-01_JPRB,1.1585E-01_JPRB,1.0453E-01_JPRB,9.1592E-02_JPRB,7.7237E-02_JPRB,& |
1469 |
✓✓ |
12 |
& 6.0927E-02_JPRB,4.1474E-02_JPRB,2.3783E-02_JPRB,1.4321E-02_JPRB,5.1601E-02_JPRB/) |
1470 |
|
|
KAO( :, 5, 9, 7) = (/& |
1471 |
|
|
& 1.2877E-01_JPRB,1.2842E-01_JPRB,1.2005E-01_JPRB,1.0911E-01_JPRB,9.6384E-02_JPRB,8.2052E-02_JPRB,& |
1472 |
✓✓ |
12 |
& 6.5390E-02_JPRB,4.5200E-02_JPRB,2.6423E-02_JPRB,1.6264E-02_JPRB,5.6231E-02_JPRB/) |
1473 |
|
|
KAO( :, 1,10, 7) = (/& |
1474 |
|
|
& 1.0692E-01_JPRB,1.0005E-01_JPRB,9.0502E-02_JPRB,7.9216E-02_JPRB,6.7057E-02_JPRB,5.4323E-02_JPRB,& |
1475 |
✓✓ |
12 |
& 4.0890E-02_JPRB,2.6119E-02_JPRB,1.4019E-02_JPRB,7.7525E-03_JPRB,1.2082E-01_JPRB/) |
1476 |
|
|
KAO( :, 2,10, 7) = (/& |
1477 |
|
|
& 1.0785E-01_JPRB,1.0257E-01_JPRB,9.3251E-02_JPRB,8.2316E-02_JPRB,7.0515E-02_JPRB,5.7848E-02_JPRB,& |
1478 |
✓✓ |
12 |
& 4.4197E-02_JPRB,2.8769E-02_JPRB,1.5892E-02_JPRB,9.0528E-03_JPRB,1.2557E-01_JPRB/) |
1479 |
|
|
KAO( :, 3,10, 7) = (/& |
1480 |
|
|
& 1.0912E-01_JPRB,1.0534E-01_JPRB,9.6345E-02_JPRB,8.5888E-02_JPRB,7.4218E-02_JPRB,6.1590E-02_JPRB,& |
1481 |
✓✓ |
12 |
& 4.7639E-02_JPRB,3.1645E-02_JPRB,1.7926E-02_JPRB,1.0497E-02_JPRB,1.3124E-01_JPRB/) |
1482 |
|
|
KAO( :, 4,10, 7) = (/& |
1483 |
|
|
& 1.1068E-01_JPRB,1.0836E-01_JPRB,9.9964E-02_JPRB,8.9810E-02_JPRB,7.8244E-02_JPRB,6.5593E-02_JPRB,& |
1484 |
✓✓ |
12 |
& 5.1337E-02_JPRB,3.4711E-02_JPRB,2.0071E-02_JPRB,1.2083E-02_JPRB,1.3784E-01_JPRB/) |
1485 |
|
|
KAO( :, 5,10, 7) = (/& |
1486 |
|
|
& 1.1237E-01_JPRB,1.1161E-01_JPRB,1.0388E-01_JPRB,9.3947E-02_JPRB,8.2580E-02_JPRB,6.9883E-02_JPRB,& |
1487 |
✓✓ |
12 |
& 5.5203E-02_JPRB,3.7928E-02_JPRB,2.2348E-02_JPRB,1.3792E-02_JPRB,1.4518E-01_JPRB/) |
1488 |
|
|
KAO( :, 1,11, 7) = (/& |
1489 |
|
|
& 9.2754E-02_JPRB,8.7072E-02_JPRB,7.8639E-02_JPRB,6.8755E-02_JPRB,5.8275E-02_JPRB,4.7245E-02_JPRB,& |
1490 |
✓✓ |
12 |
& 3.5602E-02_JPRB,2.2866E-02_JPRB,1.2334E-02_JPRB,6.8505E-03_JPRB,1.6609E-01_JPRB/) |
1491 |
|
|
KAO( :, 2,11, 7) = (/& |
1492 |
|
|
& 9.3939E-02_JPRB,8.9571E-02_JPRB,8.1238E-02_JPRB,7.1711E-02_JPRB,6.1381E-02_JPRB,5.0306E-02_JPRB,& |
1493 |
✓✓ |
12 |
& 3.8442E-02_JPRB,2.5156E-02_JPRB,1.3991E-02_JPRB,8.0122E-03_JPRB,1.7138E-01_JPRB/) |
1494 |
|
|
KAO( :, 3,11, 7) = (/& |
1495 |
|
|
& 9.5412E-02_JPRB,9.2282E-02_JPRB,8.4324E-02_JPRB,7.5102E-02_JPRB,6.4785E-02_JPRB,5.3640E-02_JPRB,& |
1496 |
✓✓ |
12 |
& 4.1470E-02_JPRB,2.7635E-02_JPRB,1.5787E-02_JPRB,9.3174E-03_JPRB,1.7778E-01_JPRB/) |
1497 |
|
|
KAO( :, 4,11, 7) = (/& |
1498 |
|
|
& 9.6996E-02_JPRB,9.5142E-02_JPRB,8.7745E-02_JPRB,7.8708E-02_JPRB,6.8483E-02_JPRB,5.7282E-02_JPRB,& |
1499 |
✓✓ |
12 |
& 4.4714E-02_JPRB,3.0277E-02_JPRB,1.7707E-02_JPRB,1.0749E-02_JPRB,1.8499E-01_JPRB/) |
1500 |
|
|
KAO( :, 5,11, 7) = (/& |
1501 |
|
|
& 9.8658E-02_JPRB,9.8284E-02_JPRB,9.1388E-02_JPRB,8.2534E-02_JPRB,7.2404E-02_JPRB,6.1041E-02_JPRB,& |
1502 |
✓✓ |
12 |
& 4.8110E-02_JPRB,3.3083E-02_JPRB,1.9725E-02_JPRB,1.2309E-02_JPRB,1.9294E-01_JPRB/) |
1503 |
|
|
KAO( :, 1,12, 7) = (/& |
1504 |
|
|
& 8.0002E-02_JPRB,7.5395E-02_JPRB,6.7953E-02_JPRB,5.9467E-02_JPRB,5.0458E-02_JPRB,4.0919E-02_JPRB,& |
1505 |
✓✓ |
12 |
& 3.0920E-02_JPRB,1.9925E-02_JPRB,1.0727E-02_JPRB,5.9901E-03_JPRB,1.7505E-01_JPRB/) |
1506 |
|
|
KAO( :, 2,12, 7) = (/& |
1507 |
|
|
& 8.1332E-02_JPRB,7.7813E-02_JPRB,7.0567E-02_JPRB,6.2307E-02_JPRB,5.3303E-02_JPRB,4.3618E-02_JPRB,& |
1508 |
✓✓ |
12 |
& 3.3391E-02_JPRB,2.1911E-02_JPRB,1.2184E-02_JPRB,7.0189E-03_JPRB,1.8048E-01_JPRB/) |
1509 |
|
|
KAO( :, 3,12, 7) = (/& |
1510 |
|
|
& 8.2791E-02_JPRB,8.0324E-02_JPRB,7.3485E-02_JPRB,6.5420E-02_JPRB,5.6352E-02_JPRB,4.6610E-02_JPRB,& |
1511 |
✓✓ |
12 |
& 3.6047E-02_JPRB,2.4056E-02_JPRB,1.3765E-02_JPRB,8.1809E-03_JPRB,1.8704E-01_JPRB/) |
1512 |
|
|
KAO( :, 4,12, 7) = (/& |
1513 |
|
|
& 8.4300E-02_JPRB,8.3063E-02_JPRB,7.6637E-02_JPRB,6.8671E-02_JPRB,5.9646E-02_JPRB,4.9774E-02_JPRB,& |
1514 |
✓✓ |
12 |
& 3.8886E-02_JPRB,2.6351E-02_JPRB,1.5463E-02_JPRB,9.4646E-03_JPRB,1.9416E-01_JPRB/) |
1515 |
|
|
KAO( :, 5,12, 7) = (/& |
1516 |
|
|
& 8.5799E-02_JPRB,8.5928E-02_JPRB,7.9923E-02_JPRB,7.2138E-02_JPRB,6.3097E-02_JPRB,5.3071E-02_JPRB,& |
1517 |
✓✓ |
12 |
& 4.1851E-02_JPRB,2.8800E-02_JPRB,1.7260E-02_JPRB,1.0869E-02_JPRB,2.0180E-01_JPRB/) |
1518 |
|
|
KAO( :, 1,13, 7) = (/& |
1519 |
|
|
& 6.7746E-02_JPRB,6.4117E-02_JPRB,5.7794E-02_JPRB,5.0687E-02_JPRB,4.3091E-02_JPRB,3.5063E-02_JPRB,& |
1520 |
✓✓ |
12 |
& 2.6600E-02_JPRB,1.7143E-02_JPRB,9.2085E-03_JPRB,5.1738E-03_JPRB,1.4684E-01_JPRB/) |
1521 |
|
|
KAO( :, 2,13, 7) = (/& |
1522 |
|
|
& 6.9040E-02_JPRB,6.6326E-02_JPRB,6.0272E-02_JPRB,5.3267E-02_JPRB,4.5640E-02_JPRB,3.7446E-02_JPRB,& |
1523 |
✓✓ |
12 |
& 2.8771E-02_JPRB,1.8875E-02_JPRB,1.0472E-02_JPRB,6.0786E-03_JPRB,1.5190E-01_JPRB/) |
1524 |
|
|
KAO( :, 3,13, 7) = (/& |
1525 |
|
|
& 7.0402E-02_JPRB,6.8674E-02_JPRB,6.2930E-02_JPRB,5.6044E-02_JPRB,4.8322E-02_JPRB,4.0046E-02_JPRB,& |
1526 |
✓✓ |
12 |
& 3.1093E-02_JPRB,2.0746E-02_JPRB,1.1854E-02_JPRB,7.0992E-03_JPRB,1.5783E-01_JPRB/) |
1527 |
|
|
KAO( :, 4,13, 7) = (/& |
1528 |
|
|
& 7.1727E-02_JPRB,7.1116E-02_JPRB,6.5698E-02_JPRB,5.8955E-02_JPRB,5.1188E-02_JPRB,4.2780E-02_JPRB,& |
1529 |
✓✓ |
12 |
& 3.3535E-02_JPRB,2.2751E-02_JPRB,1.3343E-02_JPRB,8.2333E-03_JPRB,1.6414E-01_JPRB/) |
1530 |
|
|
KAO( :, 5,13, 7) = (/& |
1531 |
|
|
& 7.3153E-02_JPRB,7.3694E-02_JPRB,6.8621E-02_JPRB,6.1933E-02_JPRB,5.4168E-02_JPRB,4.5648E-02_JPRB,& |
1532 |
✓✓ |
12 |
& 3.6089E-02_JPRB,2.4874E-02_JPRB,1.4932E-02_JPRB,9.4816E-03_JPRB,1.7071E-01_JPRB/) |
1533 |
|
|
KAO( :, 1, 1, 8) = (/& |
1534 |
|
|
& 4.9299E-01_JPRB,4.5097E-01_JPRB,4.1423E-01_JPRB,3.7425E-01_JPRB,3.3288E-01_JPRB,2.8439E-01_JPRB,& |
1535 |
✓✓ |
12 |
& 2.3129E-01_JPRB,1.6724E-01_JPRB,1.2209E-01_JPRB,1.1839E-01_JPRB,1.2231E-01_JPRB/) |
1536 |
|
|
KAO( :, 2, 1, 8) = (/& |
1537 |
|
|
& 4.9158E-01_JPRB,4.5413E-01_JPRB,4.2130E-01_JPRB,3.8574E-01_JPRB,3.4556E-01_JPRB,2.9862E-01_JPRB,& |
1538 |
✓✓ |
12 |
& 2.4672E-01_JPRB,1.8285E-01_JPRB,1.4316E-01_JPRB,1.4173E-01_JPRB,1.4653E-01_JPRB/) |
1539 |
|
|
KAO( :, 3, 1, 8) = (/& |
1540 |
|
|
& 4.8921E-01_JPRB,4.5835E-01_JPRB,4.2895E-01_JPRB,3.9755E-01_JPRB,3.5824E-01_JPRB,3.1313E-01_JPRB,& |
1541 |
✓✓ |
12 |
& 2.6208E-01_JPRB,1.9974E-01_JPRB,1.6634E-01_JPRB,1.6696E-01_JPRB,1.7273E-01_JPRB/) |
1542 |
|
|
KAO( :, 4, 1, 8) = (/& |
1543 |
|
|
& 4.8664E-01_JPRB,4.6279E-01_JPRB,4.3774E-01_JPRB,4.0881E-01_JPRB,3.7103E-01_JPRB,3.2868E-01_JPRB,& |
1544 |
✓✓ |
12 |
& 2.7711E-01_JPRB,2.1740E-01_JPRB,1.9172E-01_JPRB,1.9403E-01_JPRB,2.0091E-01_JPRB/) |
1545 |
|
|
KAO( :, 5, 1, 8) = (/& |
1546 |
|
|
& 4.8428E-01_JPRB,4.6664E-01_JPRB,4.4704E-01_JPRB,4.1926E-01_JPRB,3.8405E-01_JPRB,3.4407E-01_JPRB,& |
1547 |
✓✓ |
12 |
& 2.9186E-01_JPRB,2.3664E-01_JPRB,2.1906E-01_JPRB,2.2276E-01_JPRB,2.3078E-01_JPRB/) |
1548 |
|
|
KAO( :, 1, 2, 8) = (/& |
1549 |
|
|
& 5.0098E-01_JPRB,4.5838E-01_JPRB,4.1902E-01_JPRB,3.7538E-01_JPRB,3.3034E-01_JPRB,2.7973E-01_JPRB,& |
1550 |
✓✓ |
12 |
& 2.2195E-01_JPRB,1.5668E-01_JPRB,1.0587E-01_JPRB,9.8490E-02_JPRB,1.0033E-01_JPRB/) |
1551 |
|
|
KAO( :, 2, 2, 8) = (/& |
1552 |
|
|
& 4.9983E-01_JPRB,4.6235E-01_JPRB,4.2661E-01_JPRB,3.8655E-01_JPRB,3.4282E-01_JPRB,2.9301E-01_JPRB,& |
1553 |
✓✓ |
12 |
& 2.3610E-01_JPRB,1.7056E-01_JPRB,1.2318E-01_JPRB,1.1876E-01_JPRB,1.2114E-01_JPRB/) |
1554 |
|
|
|
1555 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART5',1,ZHOOK_HANDLE) |
1556 |
|
1 |
END SUBROUTINE PART5 |
1557 |
|
|
|
1558 |
|
|
|
1559 |
|
1 |
SUBROUTINE PART6 |
1560 |
|
|
|
1561 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1562 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART6',0,ZHOOK_HANDLE) |
1563 |
|
|
|
1564 |
|
|
|
1565 |
|
|
KAO( :, 3, 2, 8) = (/& |
1566 |
|
|
& 4.9812E-01_JPRB,4.6732E-01_JPRB,4.3492E-01_JPRB,3.9791E-01_JPRB,3.5518E-01_JPRB,3.0663E-01_JPRB,& |
1567 |
✓✓ |
12 |
& 2.5073E-01_JPRB,1.8486E-01_JPRB,1.4281E-01_JPRB,1.4075E-01_JPRB,1.4376E-01_JPRB/) |
1568 |
|
|
KAO( :, 4, 2, 8) = (/& |
1569 |
|
|
& 4.9623E-01_JPRB,4.7200E-01_JPRB,4.4361E-01_JPRB,4.0869E-01_JPRB,3.6716E-01_JPRB,3.2094E-01_JPRB,& |
1570 |
✓✓ |
12 |
& 2.6503E-01_JPRB,2.0038E-01_JPRB,1.6450E-01_JPRB,1.6447E-01_JPRB,1.6812E-01_JPRB/) |
1571 |
|
|
KAO( :, 5, 2, 8) = (/& |
1572 |
|
|
& 4.9443E-01_JPRB,4.7565E-01_JPRB,4.5245E-01_JPRB,4.1884E-01_JPRB,3.7991E-01_JPRB,3.3502E-01_JPRB,& |
1573 |
✓✓ |
12 |
& 2.7893E-01_JPRB,2.1726E-01_JPRB,1.8823E-01_JPRB,1.8992E-01_JPRB,1.9426E-01_JPRB/) |
1574 |
|
|
KAO( :, 1, 3, 8) = (/& |
1575 |
|
|
& 5.0316E-01_JPRB,4.6054E-01_JPRB,4.1948E-01_JPRB,3.7358E-01_JPRB,3.2537E-01_JPRB,2.7199E-01_JPRB,& |
1576 |
✓✓ |
12 |
& 2.1201E-01_JPRB,1.4405E-01_JPRB,9.1061E-02_JPRB,7.8216E-02_JPRB,7.8431E-02_JPRB/) |
1577 |
|
|
KAO( :, 2, 3, 8) = (/& |
1578 |
|
|
& 5.0250E-01_JPRB,4.6508E-01_JPRB,4.2753E-01_JPRB,3.8448E-01_JPRB,3.3743E-01_JPRB,2.8477E-01_JPRB,& |
1579 |
✓✓ |
12 |
& 2.2471E-01_JPRB,1.5690E-01_JPRB,1.0463E-01_JPRB,9.5297E-02_JPRB,9.5775E-02_JPRB/) |
1580 |
|
|
KAO( :, 3, 3, 8) = (/& |
1581 |
|
|
& 5.0156E-01_JPRB,4.7034E-01_JPRB,4.3587E-01_JPRB,3.9592E-01_JPRB,3.4938E-01_JPRB,2.9738E-01_JPRB,& |
1582 |
✓✓ |
12 |
& 2.3781E-01_JPRB,1.6990E-01_JPRB,1.2021E-01_JPRB,1.1406E-01_JPRB,1.1481E-01_JPRB/) |
1583 |
|
|
KAO( :, 4, 3, 8) = (/& |
1584 |
|
|
& 5.0040E-01_JPRB,4.7526E-01_JPRB,4.4463E-01_JPRB,4.0641E-01_JPRB,3.6112E-01_JPRB,3.1063E-01_JPRB,& |
1585 |
✓✓ |
12 |
& 2.5089E-01_JPRB,1.8361E-01_JPRB,1.3795E-01_JPRB,1.3453E-01_JPRB,1.3558E-01_JPRB/) |
1586 |
|
|
KAO( :, 5, 3, 8) = (/& |
1587 |
|
|
& 4.9904E-01_JPRB,4.7934E-01_JPRB,4.5345E-01_JPRB,4.1619E-01_JPRB,3.7327E-01_JPRB,3.2376E-01_JPRB,& |
1588 |
✓✓ |
12 |
& 2.6376E-01_JPRB,1.9847E-01_JPRB,1.5778E-01_JPRB,1.5659E-01_JPRB,1.5798E-01_JPRB/) |
1589 |
|
|
KAO( :, 1, 4, 8) = (/& |
1590 |
|
|
& 4.9806E-01_JPRB,4.5577E-01_JPRB,4.1390E-01_JPRB,3.6716E-01_JPRB,3.1756E-01_JPRB,2.6347E-01_JPRB,& |
1591 |
✓✓ |
12 |
& 2.0234E-01_JPRB,1.3271E-01_JPRB,7.8950E-02_JPRB,6.0980E-02_JPRB,6.0379E-02_JPRB/) |
1592 |
|
|
KAO( :, 2, 4, 8) = (/& |
1593 |
|
|
& 4.9826E-01_JPRB,4.6101E-01_JPRB,4.2242E-01_JPRB,3.7800E-01_JPRB,3.3007E-01_JPRB,2.7585E-01_JPRB,& |
1594 |
✓✓ |
12 |
& 2.1397E-01_JPRB,1.4413E-01_JPRB,8.9794E-02_JPRB,7.4947E-02_JPRB,7.4639E-02_JPRB/) |
1595 |
|
|
KAO( :, 3, 4, 8) = (/& |
1596 |
|
|
& 4.9811E-01_JPRB,4.6681E-01_JPRB,4.3096E-01_JPRB,3.8962E-01_JPRB,3.4219E-01_JPRB,2.8784E-01_JPRB,& |
1597 |
✓✓ |
12 |
& 2.2620E-01_JPRB,1.5584E-01_JPRB,1.0227E-01_JPRB,9.0609E-02_JPRB,9.0488E-02_JPRB/) |
1598 |
|
|
KAO( :, 4, 4, 8) = (/& |
1599 |
|
|
& 4.9746E-01_JPRB,4.7213E-01_JPRB,4.3992E-01_JPRB,4.0060E-01_JPRB,3.5359E-01_JPRB,3.0001E-01_JPRB,& |
1600 |
✓✓ |
12 |
& 2.3826E-01_JPRB,1.6835E-01_JPRB,1.1655E-01_JPRB,1.0791E-01_JPRB,1.0795E-01_JPRB/) |
1601 |
|
|
KAO( :, 5, 4, 8) = (/& |
1602 |
|
|
& 4.9635E-01_JPRB,4.7672E-01_JPRB,4.4914E-01_JPRB,4.1061E-01_JPRB,3.6511E-01_JPRB,3.1218E-01_JPRB,& |
1603 |
✓✓ |
12 |
& 2.5028E-01_JPRB,1.8187E-01_JPRB,1.3226E-01_JPRB,1.2654E-01_JPRB,1.2673E-01_JPRB/) |
1604 |
|
|
KAO( :, 1, 5, 8) = (/& |
1605 |
|
|
& 4.8638E-01_JPRB,4.4445E-01_JPRB,4.0240E-01_JPRB,3.5595E-01_JPRB,3.0624E-01_JPRB,2.5236E-01_JPRB,& |
1606 |
✓✓ |
12 |
& 1.9246E-01_JPRB,1.2312E-01_JPRB,6.9001E-02_JPRB,4.7715E-02_JPRB,4.6683E-02_JPRB/) |
1607 |
|
|
KAO( :, 2, 5, 8) = (/& |
1608 |
|
|
& 4.8710E-01_JPRB,4.5014E-01_JPRB,4.1145E-01_JPRB,3.6700E-01_JPRB,3.1862E-01_JPRB,2.6463E-01_JPRB,& |
1609 |
✓✓ |
12 |
& 2.0376E-01_JPRB,1.3331E-01_JPRB,7.8352E-02_JPRB,5.8722E-02_JPRB,5.8068E-02_JPRB/) |
1610 |
|
|
KAO( :, 3, 5, 8) = (/& |
1611 |
|
|
& 4.8733E-01_JPRB,4.5646E-01_JPRB,4.2038E-01_JPRB,3.7871E-01_JPRB,3.3086E-01_JPRB,2.7657E-01_JPRB,& |
1612 |
✓✓ |
12 |
& 2.1509E-01_JPRB,1.4382E-01_JPRB,8.8703E-02_JPRB,7.1451E-02_JPRB,7.1075E-02_JPRB/) |
1613 |
|
|
KAO( :, 4, 5, 8) = (/& |
1614 |
|
|
& 4.8688E-01_JPRB,4.6221E-01_JPRB,4.2956E-01_JPRB,3.8977E-01_JPRB,3.4249E-01_JPRB,2.8843E-01_JPRB,& |
1615 |
✓✓ |
12 |
& 2.2638E-01_JPRB,1.5517E-01_JPRB,1.0010E-01_JPRB,8.5586E-02_JPRB,8.5398E-02_JPRB/) |
1616 |
|
|
KAO( :, 5, 5, 8) = (/& |
1617 |
|
|
& 4.8605E-01_JPRB,4.6725E-01_JPRB,4.3887E-01_JPRB,4.0002E-01_JPRB,3.5369E-01_JPRB,3.0008E-01_JPRB,& |
1618 |
✓✓ |
12 |
& 2.3780E-01_JPRB,1.6738E-01_JPRB,1.1249E-01_JPRB,1.0093E-01_JPRB,1.0091E-01_JPRB/) |
1619 |
|
|
KAO( :, 1, 6, 8) = (/& |
1620 |
|
|
& 4.6671E-01_JPRB,4.2600E-01_JPRB,3.8466E-01_JPRB,3.3926E-01_JPRB,2.9061E-01_JPRB,2.3768E-01_JPRB,& |
1621 |
✓✓ |
12 |
& 1.7963E-01_JPRB,1.1420E-01_JPRB,6.0552E-02_JPRB,3.7850E-02_JPRB,4.1921E-02_JPRB/) |
1622 |
|
|
KAO( :, 2, 6, 8) = (/& |
1623 |
|
|
& 4.6803E-01_JPRB,4.3203E-01_JPRB,3.9392E-01_JPRB,3.5053E-01_JPRB,3.0269E-01_JPRB,2.4962E-01_JPRB,& |
1624 |
✓✓ |
12 |
& 1.9077E-01_JPRB,1.2351E-01_JPRB,6.8512E-02_JPRB,4.6284E-02_JPRB,5.0049E-02_JPRB/) |
1625 |
|
|
KAO( :, 3, 6, 8) = (/& |
1626 |
|
|
& 4.6842E-01_JPRB,4.3840E-01_JPRB,4.0304E-01_JPRB,3.6198E-01_JPRB,3.1472E-01_JPRB,2.6142E-01_JPRB,& |
1627 |
✓✓ |
12 |
& 2.0201E-01_JPRB,1.3304E-01_JPRB,7.7462E-02_JPRB,5.6089E-02_JPRB,5.9440E-02_JPRB/) |
1628 |
|
|
KAO( :, 4, 6, 8) = (/& |
1629 |
|
|
& 4.6834E-01_JPRB,4.4438E-01_JPRB,4.1233E-01_JPRB,3.7291E-01_JPRB,3.2609E-01_JPRB,2.7299E-01_JPRB,& |
1630 |
✓✓ |
12 |
& 2.1298E-01_JPRB,1.4322E-01_JPRB,8.7054E-02_JPRB,6.7233E-02_JPRB,7.0024E-02_JPRB/) |
1631 |
|
|
KAO( :, 5, 6, 8) = (/& |
1632 |
|
|
& 4.6792E-01_JPRB,4.4990E-01_JPRB,4.2136E-01_JPRB,3.8305E-01_JPRB,3.3708E-01_JPRB,2.8431E-01_JPRB,& |
1633 |
✓✓ |
12 |
& 2.2411E-01_JPRB,1.5430E-01_JPRB,9.7088E-02_JPRB,7.9618E-02_JPRB,8.1792E-02_JPRB/) |
1634 |
|
|
KAO( :, 1, 7, 8) = (/& |
1635 |
|
|
& 4.3699E-01_JPRB,3.9837E-01_JPRB,3.5896E-01_JPRB,3.1590E-01_JPRB,2.6958E-01_JPRB,2.1919E-01_JPRB,& |
1636 |
✓✓ |
12 |
& 1.6418E-01_JPRB,1.0344E-01_JPRB,5.3382E-02_JPRB,3.0831E-02_JPRB,4.2953E-02_JPRB/) |
1637 |
|
|
KAO( :, 2, 7, 8) = (/& |
1638 |
|
|
& 4.3843E-01_JPRB,4.0448E-01_JPRB,3.6812E-01_JPRB,3.2701E-01_JPRB,2.8124E-01_JPRB,2.3050E-01_JPRB,& |
1639 |
✓✓ |
12 |
& 1.7482E-01_JPRB,1.1234E-01_JPRB,6.0200E-02_JPRB,3.7229E-02_JPRB,5.0680E-02_JPRB/) |
1640 |
|
|
KAO( :, 3, 7, 8) = (/& |
1641 |
|
|
& 4.3919E-01_JPRB,4.1086E-01_JPRB,3.7731E-01_JPRB,3.3799E-01_JPRB,2.9265E-01_JPRB,2.4169E-01_JPRB,& |
1642 |
✓✓ |
12 |
& 1.8565E-01_JPRB,1.2131E-01_JPRB,6.7916E-02_JPRB,4.4736E-02_JPRB,5.9303E-02_JPRB/) |
1643 |
|
|
KAO( :, 4, 7, 8) = (/& |
1644 |
|
|
& 4.3964E-01_JPRB,4.1709E-01_JPRB,3.8642E-01_JPRB,3.4844E-01_JPRB,3.0343E-01_JPRB,2.5289E-01_JPRB,& |
1645 |
✓✓ |
12 |
& 1.9633E-01_JPRB,1.3094E-01_JPRB,7.6222E-02_JPRB,5.3326E-02_JPRB,6.8509E-02_JPRB/) |
1646 |
|
|
KAO( :, 5, 7, 8) = (/& |
1647 |
|
|
& 4.3947E-01_JPRB,4.2288E-01_JPRB,3.9537E-01_JPRB,3.5832E-01_JPRB,3.1399E-01_JPRB,2.6369E-01_JPRB,& |
1648 |
✓✓ |
12 |
& 2.0720E-01_JPRB,1.4134E-01_JPRB,8.4840E-02_JPRB,6.3000E-02_JPRB,7.8182E-02_JPRB/) |
1649 |
|
|
KAO( :, 1, 8, 8) = (/& |
1650 |
|
|
& 4.0095E-01_JPRB,3.6508E-01_JPRB,3.2839E-01_JPRB,2.8828E-01_JPRB,2.4526E-01_JPRB,1.9846E-01_JPRB,& |
1651 |
✓✓ |
12 |
& 1.4746E-01_JPRB,9.1777E-02_JPRB,4.6862E-02_JPRB,2.5767E-02_JPRB,4.9298E-02_JPRB/) |
1652 |
|
|
KAO( :, 2, 8, 8) = (/& |
1653 |
|
|
& 4.0247E-01_JPRB,3.7108E-01_JPRB,3.3718E-01_JPRB,2.9895E-01_JPRB,2.5608E-01_JPRB,2.0883E-01_JPRB,& |
1654 |
✓✓ |
12 |
& 1.5736E-01_JPRB,1.0019E-01_JPRB,5.2944E-02_JPRB,3.0729E-02_JPRB,5.6721E-02_JPRB/) |
1655 |
|
|
KAO( :, 3, 8, 8) = (/& |
1656 |
|
|
& 4.0379E-01_JPRB,3.7769E-01_JPRB,3.4624E-01_JPRB,3.0913E-01_JPRB,2.6652E-01_JPRB,2.1917E-01_JPRB,& |
1657 |
✓✓ |
12 |
& 1.6744E-01_JPRB,1.0879E-01_JPRB,5.9618E-02_JPRB,3.6479E-02_JPRB,6.5019E-02_JPRB/) |
1658 |
|
|
KAO( :, 4, 8, 8) = (/& |
1659 |
|
|
& 4.0440E-01_JPRB,3.8393E-01_JPRB,3.5518E-01_JPRB,3.1911E-01_JPRB,2.7671E-01_JPRB,2.2954E-01_JPRB,& |
1660 |
✓✓ |
12 |
& 1.7755E-01_JPRB,1.1776E-01_JPRB,6.6811E-02_JPRB,4.3078E-02_JPRB,7.4113E-02_JPRB/) |
1661 |
|
|
KAO( :, 5, 8, 8) = (/& |
1662 |
|
|
& 4.0446E-01_JPRB,3.8965E-01_JPRB,3.6366E-01_JPRB,3.2844E-01_JPRB,2.8667E-01_JPRB,2.3995E-01_JPRB,& |
1663 |
✓✓ |
12 |
& 1.8784E-01_JPRB,1.2743E-01_JPRB,7.4347E-02_JPRB,5.0583E-02_JPRB,8.3692E-02_JPRB/) |
1664 |
|
|
KAO( :, 1, 9, 8) = (/& |
1665 |
|
|
& 3.6220E-01_JPRB,3.2943E-01_JPRB,2.9565E-01_JPRB,2.5888E-01_JPRB,2.1956E-01_JPRB,1.7688E-01_JPRB,& |
1666 |
✓✓ |
12 |
& 1.3053E-01_JPRB,8.0073E-02_JPRB,4.0469E-02_JPRB,2.1839E-02_JPRB,9.4199E-02_JPRB/) |
1667 |
|
|
KAO( :, 2, 9, 8) = (/& |
1668 |
|
|
& 3.6411E-01_JPRB,3.3547E-01_JPRB,3.0414E-01_JPRB,2.6872E-01_JPRB,2.2935E-01_JPRB,1.8612E-01_JPRB,& |
1669 |
✓✓ |
12 |
& 1.3939E-01_JPRB,8.7821E-02_JPRB,4.5931E-02_JPRB,2.5820E-02_JPRB,1.0332E-01_JPRB/) |
1670 |
|
|
KAO( :, 3, 9, 8) = (/& |
1671 |
|
|
& 3.6566E-01_JPRB,3.4191E-01_JPRB,3.1284E-01_JPRB,2.7831E-01_JPRB,2.3893E-01_JPRB,1.9553E-01_JPRB,& |
1672 |
✓✓ |
12 |
& 1.4849E-01_JPRB,9.5850E-02_JPRB,5.1870E-02_JPRB,3.0419E-02_JPRB,1.1365E-01_JPRB/) |
1673 |
|
|
KAO( :, 4, 9, 8) = (/& |
1674 |
|
|
& 3.6634E-01_JPRB,3.4783E-01_JPRB,3.2112E-01_JPRB,2.8747E-01_JPRB,2.4838E-01_JPRB,2.0518E-01_JPRB,& |
1675 |
✓✓ |
12 |
& 1.5786E-01_JPRB,1.0419E-01_JPRB,5.8269E-02_JPRB,3.5620E-02_JPRB,1.2479E-01_JPRB/) |
1676 |
|
|
KAO( :, 5, 9, 8) = (/& |
1677 |
|
|
& 3.6687E-01_JPRB,3.5352E-01_JPRB,3.2900E-01_JPRB,2.9611E-01_JPRB,2.5769E-01_JPRB,2.1498E-01_JPRB,& |
1678 |
✓✓ |
12 |
& 1.6749E-01_JPRB,1.1307E-01_JPRB,6.4929E-02_JPRB,4.1475E-02_JPRB,1.3690E-01_JPRB/) |
1679 |
|
|
KAO( :, 1,10, 8) = (/& |
1680 |
|
|
& 3.2199E-01_JPRB,2.9278E-01_JPRB,2.6222E-01_JPRB,2.2905E-01_JPRB,1.9373E-01_JPRB,1.5558E-01_JPRB,& |
1681 |
✓✓ |
12 |
& 1.1424E-01_JPRB,6.9413E-02_JPRB,3.4798E-02_JPRB,1.8896E-02_JPRB,2.8335E-01_JPRB/) |
1682 |
|
|
KAO( :, 2,10, 8) = (/& |
1683 |
|
|
& 3.2419E-01_JPRB,2.9882E-01_JPRB,2.7031E-01_JPRB,2.3822E-01_JPRB,2.0265E-01_JPRB,1.6381E-01_JPRB,& |
1684 |
✓✓ |
12 |
& 1.2203E-01_JPRB,7.6200E-02_JPRB,3.9653E-02_JPRB,2.2203E-02_JPRB,3.0010E-01_JPRB/) |
1685 |
|
|
KAO( :, 3,10, 8) = (/& |
1686 |
|
|
& 3.2557E-01_JPRB,3.0468E-01_JPRB,2.7841E-01_JPRB,2.4694E-01_JPRB,2.1134E-01_JPRB,1.7240E-01_JPRB,& |
1687 |
✓✓ |
12 |
& 1.3024E-01_JPRB,8.3423E-02_JPRB,4.4862E-02_JPRB,2.6006E-02_JPRB,3.2041E-01_JPRB/) |
1688 |
|
|
KAO( :, 4,10, 8) = (/& |
1689 |
|
|
& 3.2676E-01_JPRB,3.1040E-01_JPRB,2.8596E-01_JPRB,2.5507E-01_JPRB,2.1988E-01_JPRB,1.8121E-01_JPRB,& |
1690 |
✓✓ |
12 |
& 1.3879E-01_JPRB,9.0984E-02_JPRB,5.0519E-02_JPRB,3.0296E-02_JPRB,3.4283E-01_JPRB/) |
1691 |
|
|
KAO( :, 5,10, 8) = (/& |
1692 |
|
|
& 3.2756E-01_JPRB,3.1604E-01_JPRB,2.9325E-01_JPRB,2.6321E-01_JPRB,2.2857E-01_JPRB,1.9016E-01_JPRB,& |
1693 |
✓✓ |
12 |
& 1.4762E-01_JPRB,9.9000E-02_JPRB,5.6488E-02_JPRB,3.5105E-02_JPRB,3.6677E-01_JPRB/) |
1694 |
|
|
KAO( :, 1,11, 8) = (/& |
1695 |
|
|
& 2.8411E-01_JPRB,2.5988E-01_JPRB,2.3321E-01_JPRB,2.0412E-01_JPRB,1.7249E-01_JPRB,1.3838E-01_JPRB,& |
1696 |
✓✓ |
12 |
& 1.0172E-01_JPRB,6.2178E-02_JPRB,3.1646E-02_JPRB,1.7506E-02_JPRB,3.9917E-01_JPRB/) |
1697 |
|
|
KAO( :, 2,11, 8) = (/& |
1698 |
|
|
& 2.8582E-01_JPRB,2.6534E-01_JPRB,2.4057E-01_JPRB,2.1213E-01_JPRB,1.8034E-01_JPRB,1.4593E-01_JPRB,& |
1699 |
✓✓ |
12 |
& 1.0888E-01_JPRB,6.8210E-02_JPRB,3.6011E-02_JPRB,2.0567E-02_JPRB,4.2270E-01_JPRB/) |
1700 |
|
|
KAO( :, 3,11, 8) = (/& |
1701 |
|
|
& 2.8739E-01_JPRB,2.7084E-01_JPRB,2.4780E-01_JPRB,2.1959E-01_JPRB,1.8803E-01_JPRB,1.5372E-01_JPRB,& |
1702 |
✓✓ |
12 |
& 1.1636E-01_JPRB,7.4695E-02_JPRB,4.0724E-02_JPRB,2.3986E-02_JPRB,4.4934E-01_JPRB/) |
1703 |
|
|
KAO( :, 4,11, 8) = (/& |
1704 |
|
|
& 2.8878E-01_JPRB,2.7644E-01_JPRB,2.5472E-01_JPRB,2.2709E-01_JPRB,1.9597E-01_JPRB,1.6177E-01_JPRB,& |
1705 |
✓✓ |
12 |
& 1.2408E-01_JPRB,8.1642E-02_JPRB,4.5765E-02_JPRB,2.7772E-02_JPRB,4.7717E-01_JPRB/) |
1706 |
|
|
KAO( :, 5,11, 8) = (/& |
1707 |
|
|
& 2.8955E-01_JPRB,2.8144E-01_JPRB,2.6102E-01_JPRB,2.3454E-01_JPRB,2.0411E-01_JPRB,1.7002E-01_JPRB,& |
1708 |
✓✓ |
12 |
& 1.3228E-01_JPRB,8.8823E-02_JPRB,5.1141E-02_JPRB,3.2010E-02_JPRB,5.0557E-01_JPRB/) |
1709 |
|
|
KAO( :, 1,12, 8) = (/& |
1710 |
|
|
& 2.4710E-01_JPRB,2.2747E-01_JPRB,2.0446E-01_JPRB,1.7910E-01_JPRB,1.5126E-01_JPRB,1.2141E-01_JPRB,& |
1711 |
✓✓ |
12 |
& 8.9466E-02_JPRB,5.4973E-02_JPRB,2.8499E-02_JPRB,1.5999E-02_JPRB,4.2800E-01_JPRB/) |
1712 |
|
|
KAO( :, 2,12, 8) = (/& |
1713 |
|
|
& 2.4901E-01_JPRB,2.3258E-01_JPRB,2.1111E-01_JPRB,1.8597E-01_JPRB,1.5805E-01_JPRB,1.2818E-01_JPRB,& |
1714 |
✓✓ |
12 |
& 9.5808E-02_JPRB,6.0321E-02_JPRB,3.2343E-02_JPRB,1.8809E-02_JPRB,4.5340E-01_JPRB/) |
1715 |
|
|
KAO( :, 3,12, 8) = (/& |
1716 |
|
|
& 2.5080E-01_JPRB,2.3792E-01_JPRB,2.1766E-01_JPRB,1.9271E-01_JPRB,1.6525E-01_JPRB,1.3521E-01_JPRB,& |
1717 |
✓✓ |
12 |
& 1.0253E-01_JPRB,6.6046E-02_JPRB,3.6536E-02_JPRB,2.1931E-02_JPRB,4.7921E-01_JPRB/) |
1718 |
|
|
KAO( :, 4,12, 8) = (/& |
1719 |
|
|
& 2.5204E-01_JPRB,2.4277E-01_JPRB,2.2355E-01_JPRB,1.9948E-01_JPRB,1.7252E-01_JPRB,1.4258E-01_JPRB,& |
1720 |
✓✓ |
12 |
& 1.0952E-01_JPRB,7.2180E-02_JPRB,4.1025E-02_JPRB,2.5368E-02_JPRB,5.0641E-01_JPRB/) |
1721 |
|
|
KAO( :, 5,12, 8) = (/& |
1722 |
|
|
& 2.5346E-01_JPRB,2.4761E-01_JPRB,2.2936E-01_JPRB,2.0632E-01_JPRB,1.7985E-01_JPRB,1.5006E-01_JPRB,& |
1723 |
✓✓ |
12 |
& 1.1690E-01_JPRB,7.8517E-02_JPRB,4.5825E-02_JPRB,2.9158E-02_JPRB,5.3542E-01_JPRB/) |
1724 |
|
|
KAO( :, 1,13, 8) = (/& |
1725 |
|
|
& 2.1104E-01_JPRB,1.9539E-01_JPRB,1.7591E-01_JPRB,1.5396E-01_JPRB,1.2999E-01_JPRB,1.0448E-01_JPRB,& |
1726 |
✓✓ |
12 |
& 7.7298E-02_JPRB,4.7962E-02_JPRB,2.5275E-02_JPRB,1.4360E-02_JPRB,3.6245E-01_JPRB/) |
1727 |
|
|
KAO( :, 2,13, 8) = (/& |
1728 |
|
|
& 2.1306E-01_JPRB,2.0027E-01_JPRB,1.8186E-01_JPRB,1.6010E-01_JPRB,1.3622E-01_JPRB,1.1063E-01_JPRB,& |
1729 |
✓✓ |
12 |
& 8.2888E-02_JPRB,5.2545E-02_JPRB,2.8685E-02_JPRB,1.6930E-02_JPRB,3.8275E-01_JPRB/) |
1730 |
|
|
KAO( :, 3,13, 8) = (/& |
1731 |
|
|
& 2.1469E-01_JPRB,2.0496E-01_JPRB,1.8742E-01_JPRB,1.6612E-01_JPRB,1.4267E-01_JPRB,1.1693E-01_JPRB,& |
1732 |
✓✓ |
12 |
& 8.8832E-02_JPRB,5.7525E-02_JPRB,3.2378E-02_JPRB,1.9762E-02_JPRB,4.0424E-01_JPRB/) |
1733 |
|
|
KAO( :, 4,13, 8) = (/& |
1734 |
|
|
& 2.1644E-01_JPRB,2.0961E-01_JPRB,1.9285E-01_JPRB,1.7222E-01_JPRB,1.4919E-01_JPRB,1.2339E-01_JPRB,& |
1735 |
✓✓ |
12 |
& 9.4996E-02_JPRB,6.2832E-02_JPRB,3.6346E-02_JPRB,2.2885E-02_JPRB,4.2761E-01_JPRB/) |
1736 |
|
|
KAO( :, 5,13, 8) = (/& |
1737 |
|
|
& 2.1812E-01_JPRB,2.1428E-01_JPRB,1.9853E-01_JPRB,1.7877E-01_JPRB,1.5586E-01_JPRB,1.3014E-01_JPRB,& |
1738 |
✓✓ |
12 |
& 1.0138E-01_JPRB,6.8371E-02_JPRB,4.0590E-02_JPRB,2.6305E-02_JPRB,4.5224E-01_JPRB/) |
1739 |
|
|
KAO( :, 1, 1, 9) = (/& |
1740 |
|
|
& 9.5159E-01_JPRB,8.6193E-01_JPRB,7.8445E-01_JPRB,7.0786E-01_JPRB,6.2475E-01_JPRB,5.4735E-01_JPRB,& |
1741 |
✓✓ |
12 |
& 4.7357E-01_JPRB,4.3191E-01_JPRB,4.5105E-01_JPRB,4.6500E-01_JPRB,4.7768E-01_JPRB/) |
1742 |
|
|
KAO( :, 2, 1, 9) = (/& |
1743 |
|
|
& 9.4610E-01_JPRB,8.6636E-01_JPRB,7.9453E-01_JPRB,7.2334E-01_JPRB,6.4819E-01_JPRB,5.8098E-01_JPRB,& |
1744 |
✓✓ |
12 |
& 5.1867E-01_JPRB,5.0225E-01_JPRB,5.3434E-01_JPRB,5.5100E-01_JPRB,5.6593E-01_JPRB/) |
1745 |
|
|
KAO( :, 3, 1, 9) = (/& |
1746 |
|
|
& 9.4063E-01_JPRB,8.6755E-01_JPRB,8.0500E-01_JPRB,7.3756E-01_JPRB,6.7496E-01_JPRB,6.1686E-01_JPRB,& |
1747 |
✓✓ |
12 |
& 5.7144E-01_JPRB,5.7997E-01_JPRB,6.2451E-01_JPRB,6.4411E-01_JPRB,6.6119E-01_JPRB/) |
1748 |
|
|
KAO( :, 4, 1, 9) = (/& |
1749 |
|
|
& 9.3410E-01_JPRB,8.6712E-01_JPRB,8.1423E-01_JPRB,7.5391E-01_JPRB,7.0437E-01_JPRB,6.5593E-01_JPRB,& |
1750 |
✓✓ |
12 |
& 6.3263E-01_JPRB,6.6511E-01_JPRB,7.2065E-01_JPRB,7.4338E-01_JPRB,7.6295E-01_JPRB/) |
1751 |
|
|
KAO( :, 5, 1, 9) = (/& |
1752 |
|
|
& 9.2639E-01_JPRB,8.6753E-01_JPRB,8.2122E-01_JPRB,7.7366E-01_JPRB,7.3498E-01_JPRB,7.0006E-01_JPRB,& |
1753 |
✓✓ |
12 |
& 7.0131E-01_JPRB,7.5726E-01_JPRB,8.2266E-01_JPRB,8.4882E-01_JPRB,8.7078E-01_JPRB/) |
1754 |
|
|
KAO( :, 1, 2, 9) = (/& |
1755 |
|
|
& 9.9571E-01_JPRB,8.9920E-01_JPRB,8.1614E-01_JPRB,7.3263E-01_JPRB,6.4026E-01_JPRB,5.4806E-01_JPRB,& |
1756 |
✓✓ |
12 |
& 4.6027E-01_JPRB,3.9041E-01_JPRB,3.9261E-01_JPRB,4.0467E-01_JPRB,4.1298E-01_JPRB/) |
1757 |
|
|
KAO( :, 2, 2, 9) = (/& |
1758 |
|
|
& 9.8996E-01_JPRB,9.0283E-01_JPRB,8.2671E-01_JPRB,7.4790E-01_JPRB,6.6191E-01_JPRB,5.7890E-01_JPRB,& |
1759 |
✓✓ |
12 |
& 4.9929E-01_JPRB,4.5184E-01_JPRB,4.6916E-01_JPRB,4.8383E-01_JPRB,4.9391E-01_JPRB/) |
1760 |
|
|
KAO( :, 3, 2, 9) = (/& |
1761 |
|
|
& 9.8376E-01_JPRB,9.0392E-01_JPRB,8.3729E-01_JPRB,7.6239E-01_JPRB,6.8599E-01_JPRB,6.1186E-01_JPRB,& |
1762 |
✓✓ |
12 |
& 5.4354E-01_JPRB,5.2118E-01_JPRB,5.5194E-01_JPRB,5.6942E-01_JPRB,5.8138E-01_JPRB/) |
1763 |
|
|
KAO( :, 4, 2, 9) = (/& |
1764 |
|
|
& 9.7691E-01_JPRB,9.0424E-01_JPRB,8.4680E-01_JPRB,7.7835E-01_JPRB,7.1309E-01_JPRB,6.4690E-01_JPRB,& |
1765 |
✓✓ |
12 |
& 5.9506E-01_JPRB,5.9772E-01_JPRB,6.4088E-01_JPRB,6.6141E-01_JPRB,6.7534E-01_JPRB/) |
1766 |
|
|
KAO( :, 5, 2, 9) = (/& |
1767 |
|
|
& 9.6899E-01_JPRB,9.0591E-01_JPRB,8.5458E-01_JPRB,7.9701E-01_JPRB,7.4146E-01_JPRB,6.8466E-01_JPRB,& |
1768 |
✓✓ |
12 |
& 6.5376E-01_JPRB,6.8054E-01_JPRB,7.3475E-01_JPRB,7.5849E-01_JPRB,7.7486E-01_JPRB/) |
1769 |
|
|
KAO( :, 1, 3, 9) = (/& |
1770 |
|
|
& 1.0405E+00_JPRB,9.3488E-01_JPRB,8.4463E-01_JPRB,7.5330E-01_JPRB,6.5244E-01_JPRB,5.4916E-01_JPRB,& |
1771 |
✓✓ |
12 |
& 4.4520E-01_JPRB,3.4870E-01_JPRB,3.2584E-01_JPRB,3.3543E-01_JPRB,3.3962E-01_JPRB/) |
1772 |
|
|
KAO( :, 2, 3, 9) = (/& |
1773 |
|
|
& 1.0349E+00_JPRB,9.3892E-01_JPRB,8.5534E-01_JPRB,7.6913E-01_JPRB,6.7395E-01_JPRB,5.7625E-01_JPRB,& |
1774 |
✓✓ |
12 |
& 4.7914E-01_JPRB,3.9837E-01_JPRB,3.9325E-01_JPRB,4.0529E-01_JPRB,4.1035E-01_JPRB/) |
1775 |
|
|
KAO( :, 3, 3, 9) = (/& |
1776 |
|
|
& 1.0286E+00_JPRB,9.4087E-01_JPRB,8.6735E-01_JPRB,7.8384E-01_JPRB,6.9647E-01_JPRB,6.0649E-01_JPRB,& |
1777 |
✓✓ |
12 |
& 5.1617E-01_JPRB,4.5626E-01_JPRB,4.6701E-01_JPRB,4.8157E-01_JPRB,4.8769E-01_JPRB/) |
1778 |
|
|
KAO( :, 4, 3, 9) = (/& |
1779 |
|
|
& 1.0216E+00_JPRB,9.4194E-01_JPRB,8.7769E-01_JPRB,8.0047E-01_JPRB,7.2103E-01_JPRB,6.3769E-01_JPRB,& |
1780 |
✓✓ |
12 |
& 5.5844E-01_JPRB,5.2182E-01_JPRB,5.4652E-01_JPRB,5.6383E-01_JPRB,5.7106E-01_JPRB/) |
1781 |
|
|
KAO( :, 5, 3, 9) = (/& |
1782 |
|
|
& 1.0137E+00_JPRB,9.4403E-01_JPRB,8.8589E-01_JPRB,8.1893E-01_JPRB,7.4713E-01_JPRB,6.7001E-01_JPRB,& |
1783 |
✓✓ |
12 |
& 6.0589E-01_JPRB,5.9289E-01_JPRB,6.3020E-01_JPRB,6.5037E-01_JPRB,6.5878E-01_JPRB/) |
1784 |
|
|
KAO( :, 1, 4, 9) = (/& |
1785 |
|
|
& 1.0880E+00_JPRB,9.7313E-01_JPRB,8.7384E-01_JPRB,7.7222E-01_JPRB,6.6520E-01_JPRB,5.5149E-01_JPRB,& |
1786 |
✓✓ |
12 |
& 4.3468E-01_JPRB,3.1551E-01_JPRB,2.6473E-01_JPRB,2.7010E-01_JPRB,2.7211E-01_JPRB/) |
1787 |
|
|
KAO( :, 2, 4, 9) = (/& |
1788 |
|
|
& 1.0823E+00_JPRB,9.7690E-01_JPRB,8.8415E-01_JPRB,7.9011E-01_JPRB,6.8589E-01_JPRB,5.7725E-01_JPRB,& |
1789 |
✓✓ |
12 |
& 4.6480E-01_JPRB,3.5528E-01_JPRB,3.2290E-01_JPRB,3.3154E-01_JPRB,3.3402E-01_JPRB/) |
1790 |
|
|
KAO( :, 3, 4, 9) = (/& |
1791 |
|
|
& 1.0759E+00_JPRB,9.7896E-01_JPRB,8.9677E-01_JPRB,8.0590E-01_JPRB,7.0747E-01_JPRB,6.0512E-01_JPRB,& |
1792 |
✓✓ |
12 |
& 4.9649E-01_JPRB,4.0248E-01_JPRB,3.8741E-01_JPRB,3.9884E-01_JPRB,4.0190E-01_JPRB/) |
1793 |
|
|
KAO( :, 4, 4, 9) = (/& |
1794 |
|
|
& 1.0687E+00_JPRB,9.8058E-01_JPRB,9.0886E-01_JPRB,8.2235E-01_JPRB,7.3113E-01_JPRB,6.3357E-01_JPRB,& |
1795 |
✓✓ |
12 |
& 5.3180E-01_JPRB,4.5630E-01_JPRB,4.5720E-01_JPRB,4.7127E-01_JPRB,4.7487E-01_JPRB/) |
1796 |
|
|
KAO( :, 5, 4, 9) = (/& |
1797 |
|
|
& 1.0611E+00_JPRB,9.8340E-01_JPRB,9.1796E-01_JPRB,8.4063E-01_JPRB,7.5604E-01_JPRB,6.6259E-01_JPRB,& |
1798 |
✓✓ |
12 |
& 5.7101E-01_JPRB,5.1566E-01_JPRB,5.3169E-01_JPRB,5.4837E-01_JPRB,5.5265E-01_JPRB/) |
1799 |
|
|
KAO( :, 1, 5, 9) = (/& |
1800 |
|
|
& 1.1353E+00_JPRB,1.0122E+00_JPRB,9.0436E-01_JPRB,7.9314E-01_JPRB,6.7788E-01_JPRB,5.5661E-01_JPRB,& |
1801 |
✓✓ |
12 |
& 4.2870E-01_JPRB,2.9193E-01_JPRB,2.1579E-01_JPRB,2.1412E-01_JPRB,2.1527E-01_JPRB/) |
1802 |
|
|
KAO( :, 2, 5, 9) = (/& |
1803 |
|
|
& 1.1302E+00_JPRB,1.0164E+00_JPRB,9.1463E-01_JPRB,8.1125E-01_JPRB,6.9965E-01_JPRB,5.8117E-01_JPRB,& |
1804 |
✓✓ |
12 |
& 4.5601E-01_JPRB,3.2431E-01_JPRB,2.6337E-01_JPRB,2.6679E-01_JPRB,2.6824E-01_JPRB/) |
1805 |
|
|
KAO( :, 3, 5, 9) = (/& |
1806 |
|
|
& 1.1241E+00_JPRB,1.0191E+00_JPRB,9.2734E-01_JPRB,8.2845E-01_JPRB,7.2101E-01_JPRB,6.0737E-01_JPRB,& |
1807 |
✓✓ |
12 |
& 4.8451E-01_JPRB,3.6228E-01_JPRB,3.1806E-01_JPRB,3.2529E-01_JPRB,3.2713E-01_JPRB/) |
1808 |
|
|
KAO( :, 4, 5, 9) = (/& |
1809 |
|
|
& 1.1173E+00_JPRB,1.0209E+00_JPRB,9.4019E-01_JPRB,8.4617E-01_JPRB,7.4384E-01_JPRB,6.3435E-01_JPRB,& |
1810 |
✓✓ |
12 |
& 5.1515E-01_JPRB,4.0564E-01_JPRB,3.7849E-01_JPRB,3.8902E-01_JPRB,3.9122E-01_JPRB/) |
1811 |
|
|
KAO( :, 5, 5, 9) = (/& |
1812 |
|
|
& 1.1101E+00_JPRB,1.0243E+00_JPRB,9.5096E-01_JPRB,8.6410E-01_JPRB,7.6849E-01_JPRB,6.6158E-01_JPRB,& |
1813 |
✓✓ |
12 |
& 5.4858E-01_JPRB,4.5511E-01_JPRB,4.4484E-01_JPRB,4.5817E-01_JPRB,4.6081E-01_JPRB/) |
1814 |
|
|
KAO( :, 1, 6, 9) = (/& |
1815 |
|
|
& 1.1806E+00_JPRB,1.0498E+00_JPRB,9.3337E-01_JPRB,8.1273E-01_JPRB,6.8998E-01_JPRB,5.6047E-01_JPRB,& |
1816 |
✓✓ |
12 |
& 4.2456E-01_JPRB,2.7532E-01_JPRB,1.7725E-01_JPRB,1.6538E-01_JPRB,1.6672E-01_JPRB/) |
1817 |
|
|
KAO( :, 2, 6, 9) = (/& |
1818 |
|
|
& 1.1761E+00_JPRB,1.0541E+00_JPRB,9.4371E-01_JPRB,8.3128E-01_JPRB,7.1158E-01_JPRB,5.8532E-01_JPRB,& |
1819 |
✓✓ |
12 |
& 4.4996E-01_JPRB,3.0144E-01_JPRB,2.1482E-01_JPRB,2.0943E-01_JPRB,2.1089E-01_JPRB/) |
1820 |
|
|
KAO( :, 3, 6, 9) = (/& |
1821 |
|
|
& 1.1706E+00_JPRB,1.0579E+00_JPRB,9.5635E-01_JPRB,8.4936E-01_JPRB,7.3343E-01_JPRB,6.1037E-01_JPRB,& |
1822 |
✓✓ |
12 |
& 4.7682E-01_JPRB,3.3219E-01_JPRB,2.5890E-01_JPRB,2.5930E-01_JPRB,2.6088E-01_JPRB/) |
1823 |
|
|
KAO( :, 4, 6, 9) = (/& |
1824 |
|
|
& 1.1647E+00_JPRB,1.0607E+00_JPRB,9.7013E-01_JPRB,8.6759E-01_JPRB,7.5661E-01_JPRB,6.3681E-01_JPRB,& |
1825 |
✓✓ |
12 |
& 5.0490E-01_JPRB,3.6744E-01_JPRB,3.0939E-01_JPRB,3.1452E-01_JPRB,3.1634E-01_JPRB/) |
1826 |
|
|
KAO( :, 5, 6, 9) = (/& |
1827 |
|
|
& 1.1580E+00_JPRB,1.0646E+00_JPRB,9.8251E-01_JPRB,8.8607E-01_JPRB,7.8101E-01_JPRB,6.6342E-01_JPRB,& |
1828 |
✓✓ |
12 |
& 5.3428E-01_JPRB,4.0750E-01_JPRB,3.6653E-01_JPRB,3.7539E-01_JPRB,3.7760E-01_JPRB/) |
1829 |
|
|
KAO( :, 1, 7, 9) = (/& |
1830 |
|
|
& 1.2136E+00_JPRB,1.0774E+00_JPRB,9.5377E-01_JPRB,8.2536E-01_JPRB,6.9593E-01_JPRB,5.6078E-01_JPRB,& |
1831 |
✓✓ |
12 |
& 4.1863E-01_JPRB,2.6313E-01_JPRB,1.4935E-01_JPRB,1.2578E-01_JPRB,1.4257E-01_JPRB/) |
1832 |
|
|
KAO( :, 2, 7, 9) = (/& |
1833 |
|
|
& 1.2100E+00_JPRB,1.0820E+00_JPRB,9.6432E-01_JPRB,8.4363E-01_JPRB,7.1756E-01_JPRB,5.8508E-01_JPRB,& |
1834 |
✓✓ |
12 |
& 4.4339E-01_JPRB,2.8645E-01_JPRB,1.7844E-01_JPRB,1.6196E-01_JPRB,1.7527E-01_JPRB/) |
1835 |
|
|
KAO( :, 3, 7, 9) = (/& |
1836 |
|
|
& 1.2053E+00_JPRB,1.0866E+00_JPRB,9.7664E-01_JPRB,8.6237E-01_JPRB,7.3986E-01_JPRB,6.1018E-01_JPRB,& |
1837 |
✓✓ |
12 |
& 4.6912E-01_JPRB,3.1223E-01_JPRB,2.1332E-01_JPRB,2.0363E-01_JPRB,2.1371E-01_JPRB/) |
1838 |
|
|
KAO( :, 4, 7, 9) = (/& |
1839 |
|
|
& 1.1998E+00_JPRB,1.0903E+00_JPRB,9.9072E-01_JPRB,8.8131E-01_JPRB,7.6315E-01_JPRB,6.3674E-01_JPRB,& |
1840 |
✓✓ |
12 |
& 4.9590E-01_JPRB,3.4090E-01_JPRB,2.5438E-01_JPRB,2.5086E-01_JPRB,2.5825E-01_JPRB/) |
1841 |
|
|
KAO( :, 5, 7, 9) = (/& |
1842 |
|
|
& 1.1932E+00_JPRB,1.0942E+00_JPRB,1.0040E+00_JPRB,9.0033E-01_JPRB,7.8781E-01_JPRB,6.6359E-01_JPRB,& |
1843 |
✓✓ |
12 |
& 5.2347E-01_JPRB,3.7392E-01_JPRB,3.0186E-01_JPRB,3.0359E-01_JPRB,3.0908E-01_JPRB/) |
1844 |
|
|
KAO( :, 1, 8, 9) = (/& |
1845 |
|
|
& 1.2316E+00_JPRB,1.0924E+00_JPRB,9.6349E-01_JPRB,8.3019E-01_JPRB,6.9548E-01_JPRB,5.5575E-01_JPRB,& |
1846 |
✓✓ |
12 |
& 4.1003E-01_JPRB,2.5191E-01_JPRB,1.3039E-01_JPRB,9.5856E-02_JPRB,1.7533E-01_JPRB/) |
1847 |
|
|
KAO( :, 2, 8, 9) = (/& |
1848 |
|
|
& 1.2282E+00_JPRB,1.0969E+00_JPRB,9.7419E-01_JPRB,8.4770E-01_JPRB,7.1665E-01_JPRB,5.7977E-01_JPRB,& |
1849 |
✓✓ |
12 |
& 4.3430E-01_JPRB,2.7347E-01_JPRB,1.5278E-01_JPRB,1.2456E-01_JPRB,2.0121E-01_JPRB/) |
1850 |
|
|
KAO( :, 3, 8, 9) = (/& |
1851 |
|
|
& 1.2234E+00_JPRB,1.1017E+00_JPRB,9.8619E-01_JPRB,8.6635E-01_JPRB,7.3926E-01_JPRB,6.0504E-01_JPRB,& |
1852 |
✓✓ |
12 |
& 4.5959E-01_JPRB,2.9702E-01_JPRB,1.8008E-01_JPRB,1.5872E-01_JPRB,2.2963E-01_JPRB/) |
1853 |
|
|
KAO( :, 4, 8, 9) = (/& |
1854 |
|
|
& 1.2179E+00_JPRB,1.1058E+00_JPRB,1.0001E+00_JPRB,8.8559E-01_JPRB,7.6296E-01_JPRB,6.3135E-01_JPRB,& |
1855 |
✓✓ |
12 |
& 4.8567E-01_JPRB,3.2261E-01_JPRB,2.1292E-01_JPRB,1.9834E-01_JPRB,2.6180E-01_JPRB/) |
1856 |
|
|
|
1857 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART6',1,ZHOOK_HANDLE) |
1858 |
|
1 |
END SUBROUTINE PART6 |
1859 |
|
|
|
1860 |
|
|
|
1861 |
|
1 |
SUBROUTINE PART7 |
1862 |
|
|
|
1863 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1864 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART7',0,ZHOOK_HANDLE) |
1865 |
|
|
|
1866 |
|
|
|
1867 |
|
|
KAO( :, 5, 8, 9) = (/& |
1868 |
|
|
& 1.2113E+00_JPRB,1.1100E+00_JPRB,1.0138E+00_JPRB,9.0571E-01_JPRB,7.8768E-01_JPRB,6.5815E-01_JPRB,& |
1869 |
✓✓ |
12 |
& 5.1266E-01_JPRB,3.5055E-01_JPRB,2.5143E-01_JPRB,2.4311E-01_JPRB,2.9921E-01_JPRB/) |
1870 |
|
|
KAO( :, 1, 9, 9) = (/& |
1871 |
|
|
& 1.2312E+00_JPRB,1.0915E+00_JPRB,9.6019E-01_JPRB,8.2497E-01_JPRB,6.8804E-01_JPRB,5.4659E-01_JPRB,& |
1872 |
✓✓ |
12 |
& 3.9889E-01_JPRB,2.4010E-01_JPRB,1.1745E-01_JPRB,7.4115E-02_JPRB,3.8570E-01_JPRB/) |
1873 |
|
|
KAO( :, 2, 9, 9) = (/& |
1874 |
|
|
& 1.2271E+00_JPRB,1.0952E+00_JPRB,9.7062E-01_JPRB,8.4182E-01_JPRB,7.0896E-01_JPRB,5.7001E-01_JPRB,& |
1875 |
✓✓ |
12 |
& 4.2261E-01_JPRB,2.6038E-01_JPRB,1.3539E-01_JPRB,9.6435E-02_JPRB,4.2073E-01_JPRB/) |
1876 |
|
|
KAO( :, 3, 9, 9) = (/& |
1877 |
|
|
& 1.2221E+00_JPRB,1.0999E+00_JPRB,9.8223E-01_JPRB,8.6047E-01_JPRB,7.3167E-01_JPRB,5.9531E-01_JPRB,& |
1878 |
✓✓ |
12 |
& 4.4692E-01_JPRB,2.8236E-01_JPRB,1.5682E-01_JPRB,1.2365E-01_JPRB,4.5798E-01_JPRB/) |
1879 |
|
|
KAO( :, 4, 9, 9) = (/& |
1880 |
|
|
& 1.2168E+00_JPRB,1.1048E+00_JPRB,9.9655E-01_JPRB,8.8042E-01_JPRB,7.5597E-01_JPRB,6.2078E-01_JPRB,& |
1881 |
✓✓ |
12 |
& 4.7224E-01_JPRB,3.0619E-01_JPRB,1.8270E-01_JPRB,1.5583E-01_JPRB,4.9794E-01_JPRB/) |
1882 |
|
|
KAO( :, 5, 9, 9) = (/& |
1883 |
|
|
& 1.2103E+00_JPRB,1.1097E+00_JPRB,1.0110E+00_JPRB,9.0113E-01_JPRB,7.8074E-01_JPRB,6.4684E-01_JPRB,& |
1884 |
✓✓ |
12 |
& 4.9870E-01_JPRB,3.3189E-01_JPRB,2.1333E-01_JPRB,1.9294E-01_JPRB,5.3980E-01_JPRB/) |
1885 |
|
|
KAO( :, 1,10, 9) = (/& |
1886 |
|
|
& 1.2065E+00_JPRB,1.0698E+00_JPRB,9.3983E-01_JPRB,8.0628E-01_JPRB,6.7075E-01_JPRB,5.3108E-01_JPRB,& |
1887 |
✓✓ |
12 |
& 3.8524E-01_JPRB,2.2846E-01_JPRB,1.0759E-01_JPRB,6.0114E-02_JPRB,1.2134E+00_JPRB/) |
1888 |
|
|
KAO( :, 2,10, 9) = (/& |
1889 |
|
|
& 1.2021E+00_JPRB,1.0732E+00_JPRB,9.5006E-01_JPRB,8.2241E-01_JPRB,6.9118E-01_JPRB,5.5381E-01_JPRB,& |
1890 |
✓✓ |
12 |
& 4.0835E-01_JPRB,2.4753E-01_JPRB,1.2339E-01_JPRB,7.7390E-02_JPRB,1.2525E+00_JPRB/) |
1891 |
|
|
KAO( :, 3,10, 9) = (/& |
1892 |
|
|
& 1.1979E+00_JPRB,1.0788E+00_JPRB,9.6194E-01_JPRB,8.4108E-01_JPRB,7.1368E-01_JPRB,5.7871E-01_JPRB,& |
1893 |
✓✓ |
12 |
& 4.3197E-01_JPRB,2.6832E-01_JPRB,1.4165E-01_JPRB,9.8913E-02_JPRB,1.2959E+00_JPRB/) |
1894 |
|
|
KAO( :, 4,10, 9) = (/& |
1895 |
|
|
& 1.1924E+00_JPRB,1.0841E+00_JPRB,9.7645E-01_JPRB,8.6142E-01_JPRB,7.3813E-01_JPRB,6.0416E-01_JPRB,& |
1896 |
✓✓ |
12 |
& 4.5629E-01_JPRB,2.9111E-01_JPRB,1.6279E-01_JPRB,1.2496E-01_JPRB,1.3457E+00_JPRB/) |
1897 |
|
|
KAO( :, 5,10, 9) = (/& |
1898 |
|
|
& 1.1868E+00_JPRB,1.0895E+00_JPRB,9.9148E-01_JPRB,8.8237E-01_JPRB,7.6307E-01_JPRB,6.3026E-01_JPRB,& |
1899 |
✓✓ |
12 |
& 4.8193E-01_JPRB,3.1564E-01_JPRB,1.8743E-01_JPRB,1.5518E-01_JPRB,1.4010E+00_JPRB/) |
1900 |
|
|
KAO( :, 1,11, 9) = (/& |
1901 |
|
|
& 1.1602E+00_JPRB,1.0321E+00_JPRB,9.0888E-01_JPRB,7.8134E-01_JPRB,6.5183E-01_JPRB,5.1709E-01_JPRB,& |
1902 |
✓✓ |
12 |
& 3.7632E-01_JPRB,2.2357E-01_JPRB,1.0454E-01_JPRB,5.6265E-02_JPRB,1.7556E+00_JPRB/) |
1903 |
|
|
KAO( :, 2,11, 9) = (/& |
1904 |
|
|
& 1.1566E+00_JPRB,1.0373E+00_JPRB,9.1992E-01_JPRB,7.9870E-01_JPRB,6.7250E-01_JPRB,5.3982E-01_JPRB,& |
1905 |
✓✓ |
12 |
& 3.9883E-01_JPRB,2.4238E-01_JPRB,1.1972E-01_JPRB,7.0995E-02_JPRB,1.7896E+00_JPRB/) |
1906 |
|
|
KAO( :, 3,11, 9) = (/& |
1907 |
|
|
& 1.1521E+00_JPRB,1.0433E+00_JPRB,9.3315E-01_JPRB,8.1800E-01_JPRB,6.9552E-01_JPRB,5.6467E-01_JPRB,& |
1908 |
✓✓ |
12 |
& 4.2241E-01_JPRB,2.6285E-01_JPRB,1.3701E-01_JPRB,8.9495E-02_JPRB,1.8345E+00_JPRB/) |
1909 |
|
|
KAO( :, 4,11, 9) = (/& |
1910 |
|
|
& 1.1472E+00_JPRB,1.0489E+00_JPRB,9.4806E-01_JPRB,8.3843E-01_JPRB,7.1973E-01_JPRB,5.9025E-01_JPRB,& |
1911 |
✓✓ |
12 |
& 4.4701E-01_JPRB,2.8499E-01_JPRB,1.5648E-01_JPRB,1.1176E-01_JPRB,1.8895E+00_JPRB/) |
1912 |
|
|
KAO( :, 5,11, 9) = (/& |
1913 |
|
|
& 1.1436E+00_JPRB,1.0565E+00_JPRB,9.6473E-01_JPRB,8.6013E-01_JPRB,7.4475E-01_JPRB,6.1626E-01_JPRB,& |
1914 |
✓✓ |
12 |
& 4.7243E-01_JPRB,3.0896E-01_JPRB,1.7805E-01_JPRB,1.3759E-01_JPRB,1.9545E+00_JPRB/) |
1915 |
|
|
KAO( :, 1,12, 9) = (/& |
1916 |
|
|
& 1.0927E+00_JPRB,9.7589E-01_JPRB,8.6130E-01_JPRB,7.4238E-01_JPRB,6.2051E-01_JPRB,4.9305E-01_JPRB,& |
1917 |
✓✓ |
12 |
& 3.5975E-01_JPRB,2.1463E-01_JPRB,1.0064E-01_JPRB,5.3171E-02_JPRB,1.9140E+00_JPRB/) |
1918 |
|
|
KAO( :, 2,12, 9) = (/& |
1919 |
|
|
& 1.0892E+00_JPRB,9.8224E-01_JPRB,8.7322E-01_JPRB,7.6047E-01_JPRB,6.4152E-01_JPRB,5.1615E-01_JPRB,& |
1920 |
✓✓ |
12 |
& 3.8192E-01_JPRB,2.3322E-01_JPRB,1.1514E-01_JPRB,6.5840E-02_JPRB,1.9498E+00_JPRB/) |
1921 |
|
|
KAO( :, 3,12, 9) = (/& |
1922 |
|
|
& 1.0852E+00_JPRB,9.8827E-01_JPRB,8.8733E-01_JPRB,7.7978E-01_JPRB,6.6433E-01_JPRB,5.4034E-01_JPRB,& |
1923 |
✓✓ |
12 |
& 4.0501E-01_JPRB,2.5357E-01_JPRB,1.3154E-01_JPRB,8.1554E-02_JPRB,2.0010E+00_JPRB/) |
1924 |
|
|
KAO( :, 4,12, 9) = (/& |
1925 |
|
|
& 1.0828E+00_JPRB,9.9622E-01_JPRB,9.0368E-01_JPRB,8.0090E-01_JPRB,6.8832E-01_JPRB,5.6535E-01_JPRB,& |
1926 |
✓✓ |
12 |
& 4.2922E-01_JPRB,2.7541E-01_JPRB,1.4957E-01_JPRB,1.0036E-01_JPRB,2.0646E+00_JPRB/) |
1927 |
|
|
KAO( :, 5,12, 9) = (/& |
1928 |
|
|
& 1.0799E+00_JPRB,1.0059E+00_JPRB,9.2157E-01_JPRB,8.2344E-01_JPRB,7.1363E-01_JPRB,5.9111E-01_JPRB,& |
1929 |
✓✓ |
12 |
& 4.5461E-01_JPRB,2.9875E-01_JPRB,1.6950E-01_JPRB,1.2252E-01_JPRB,2.1387E+00_JPRB/) |
1930 |
|
|
KAO( :, 1,13, 9) = (/& |
1931 |
|
|
& 1.0003E+00_JPRB,8.9827E-01_JPRB,7.9453E-01_JPRB,6.8742E-01_JPRB,5.7557E-01_JPRB,4.5851E-01_JPRB,& |
1932 |
✓✓ |
12 |
& 3.3514E-01_JPRB,2.0061E-01_JPRB,9.5403E-02_JPRB,5.0265E-02_JPRB,1.6361E+00_JPRB/) |
1933 |
|
|
KAO( :, 2,13, 9) = (/& |
1934 |
|
|
& 9.9751E-01_JPRB,9.0481E-01_JPRB,8.0727E-01_JPRB,7.0499E-01_JPRB,5.9591E-01_JPRB,4.8058E-01_JPRB,& |
1935 |
✓✓ |
12 |
& 3.5629E-01_JPRB,2.1887E-01_JPRB,1.0898E-01_JPRB,6.1395E-02_JPRB,1.6789E+00_JPRB/) |
1936 |
|
|
KAO( :, 3,13, 9) = (/& |
1937 |
|
|
& 9.9614E-01_JPRB,9.1298E-01_JPRB,8.2308E-01_JPRB,7.2470E-01_JPRB,6.1846E-01_JPRB,5.0385E-01_JPRB,& |
1938 |
✓✓ |
12 |
& 3.7856E-01_JPRB,2.3882E-01_JPRB,1.2434E-01_JPRB,7.4760E-02_JPRB,1.7343E+00_JPRB/) |
1939 |
|
|
KAO( :, 4,13, 9) = (/& |
1940 |
|
|
& 9.9388E-01_JPRB,9.2211E-01_JPRB,8.4003E-01_JPRB,7.4638E-01_JPRB,6.4247E-01_JPRB,5.2829E-01_JPRB,& |
1941 |
✓✓ |
12 |
& 4.0218E-01_JPRB,2.6010E-01_JPRB,1.4124E-01_JPRB,9.0738E-02_JPRB,1.8018E+00_JPRB/) |
1942 |
|
|
KAO( :, 5,13, 9) = (/& |
1943 |
|
|
& 9.9133E-01_JPRB,9.3236E-01_JPRB,8.5728E-01_JPRB,7.6831E-01_JPRB,6.6718E-01_JPRB,5.5353E-01_JPRB,& |
1944 |
✓✓ |
12 |
& 4.2726E-01_JPRB,2.8267E-01_JPRB,1.5974E-01_JPRB,1.0946E-01_JPRB,1.8787E+00_JPRB/) |
1945 |
|
|
KAO( :, 1, 1,10) = (/& |
1946 |
|
|
& 1.4571E+00_JPRB,1.2985E+00_JPRB,1.1908E+00_JPRB,1.0846E+00_JPRB,1.0480E+00_JPRB,9.7569E-01_JPRB,& |
1947 |
✓✓ |
12 |
& 9.5294E-01_JPRB,1.0946E+00_JPRB,1.1970E+00_JPRB,1.2341E+00_JPRB,1.2515E+00_JPRB/) |
1948 |
|
|
KAO( :, 2, 1,10) = (/& |
1949 |
|
|
& 1.4234E+00_JPRB,1.2781E+00_JPRB,1.1865E+00_JPRB,1.1317E+00_JPRB,1.1150E+00_JPRB,1.0495E+00_JPRB,& |
1950 |
✓✓ |
12 |
& 1.1148E+00_JPRB,1.2924E+00_JPRB,1.4136E+00_JPRB,1.4576E+00_JPRB,1.4767E+00_JPRB/) |
1951 |
|
|
KAO( :, 3, 1,10) = (/& |
1952 |
|
|
& 1.3920E+00_JPRB,1.2691E+00_JPRB,1.1852E+00_JPRB,1.1966E+00_JPRB,1.1609E+00_JPRB,1.1524E+00_JPRB,& |
1953 |
✓✓ |
12 |
& 1.2953E+00_JPRB,1.5017E+00_JPRB,1.6423E+00_JPRB,1.6923E+00_JPRB,1.7109E+00_JPRB/) |
1954 |
|
|
KAO( :, 4, 1,10) = (/& |
1955 |
|
|
& 1.3678E+00_JPRB,1.2658E+00_JPRB,1.2088E+00_JPRB,1.2463E+00_JPRB,1.2126E+00_JPRB,1.2713E+00_JPRB,& |
1956 |
✓✓ |
12 |
& 1.4845E+00_JPRB,1.7225E+00_JPRB,1.8842E+00_JPRB,1.9406E+00_JPRB,1.9546E+00_JPRB/) |
1957 |
|
|
KAO( :, 5, 1,10) = (/& |
1958 |
|
|
& 1.3506E+00_JPRB,1.2582E+00_JPRB,1.2509E+00_JPRB,1.2864E+00_JPRB,1.2835E+00_JPRB,1.4126E+00_JPRB,& |
1959 |
✓✓ |
12 |
& 1.6783E+00_JPRB,1.9484E+00_JPRB,2.1328E+00_JPRB,2.1974E+00_JPRB,2.2094E+00_JPRB/) |
1960 |
|
|
KAO( :, 1, 2,10) = (/& |
1961 |
|
|
& 1.5647E+00_JPRB,1.3899E+00_JPRB,1.2609E+00_JPRB,1.1489E+00_JPRB,1.0577E+00_JPRB,9.7853E-01_JPRB,& |
1962 |
✓✓ |
12 |
& 8.8718E-01_JPRB,9.8958E-01_JPRB,1.0824E+00_JPRB,1.1177E+00_JPRB,1.1363E+00_JPRB/) |
1963 |
|
|
KAO( :, 2, 2,10) = (/& |
1964 |
|
|
& 1.5359E+00_JPRB,1.3755E+00_JPRB,1.2594E+00_JPRB,1.1862E+00_JPRB,1.1175E+00_JPRB,1.0395E+00_JPRB,& |
1965 |
✓✓ |
12 |
& 1.0286E+00_JPRB,1.1844E+00_JPRB,1.2956E+00_JPRB,1.3363E+00_JPRB,1.3552E+00_JPRB/) |
1966 |
|
|
KAO( :, 3, 2,10) = (/& |
1967 |
|
|
& 1.5095E+00_JPRB,1.3719E+00_JPRB,1.2702E+00_JPRB,1.2294E+00_JPRB,1.1716E+00_JPRB,1.1207E+00_JPRB,& |
1968 |
✓✓ |
12 |
& 1.2069E+00_JPRB,1.4002E+00_JPRB,1.5313E+00_JPRB,1.5789E+00_JPRB,1.5968E+00_JPRB/) |
1969 |
|
|
KAO( :, 4, 2,10) = (/& |
1970 |
|
|
& 1.4881E+00_JPRB,1.3707E+00_JPRB,1.2904E+00_JPRB,1.2704E+00_JPRB,1.2297E+00_JPRB,1.2284E+00_JPRB,& |
1971 |
✓✓ |
12 |
& 1.3999E+00_JPRB,1.6237E+00_JPRB,1.7765E+00_JPRB,1.8314E+00_JPRB,1.8527E+00_JPRB/) |
1972 |
|
|
KAO( :, 5, 2,10) = (/& |
1973 |
|
|
& 1.4712E+00_JPRB,1.3632E+00_JPRB,1.3184E+00_JPRB,1.3082E+00_JPRB,1.2921E+00_JPRB,1.3673E+00_JPRB,& |
1974 |
✓✓ |
12 |
& 1.6066E+00_JPRB,1.8637E+00_JPRB,2.0388E+00_JPRB,2.1005E+00_JPRB,2.1202E+00_JPRB/) |
1975 |
|
|
KAO( :, 1, 3,10) = (/& |
1976 |
|
|
& 1.6996E+00_JPRB,1.5099E+00_JPRB,1.3576E+00_JPRB,1.2090E+00_JPRB,1.0921E+00_JPRB,9.6189E-01_JPRB,& |
1977 |
✓✓ |
12 |
& 8.2495E-01_JPRB,8.5120E-01_JPRB,9.3114E-01_JPRB,9.6079E-01_JPRB,9.7144E-01_JPRB/) |
1978 |
|
|
KAO( :, 2, 3,10) = (/& |
1979 |
|
|
& 1.6714E+00_JPRB,1.4913E+00_JPRB,1.3572E+00_JPRB,1.2562E+00_JPRB,1.1313E+00_JPRB,1.0225E+00_JPRB,& |
1980 |
✓✓ |
12 |
& 9.3378E-01_JPRB,1.0377E+00_JPRB,1.1351E+00_JPRB,1.1715E+00_JPRB,1.1847E+00_JPRB/) |
1981 |
|
|
KAO( :, 3, 3,10) = (/& |
1982 |
|
|
& 1.6464E+00_JPRB,1.4878E+00_JPRB,1.3648E+00_JPRB,1.2864E+00_JPRB,1.1805E+00_JPRB,1.0851E+00_JPRB,& |
1983 |
✓✓ |
12 |
& 1.0848E+00_JPRB,1.2467E+00_JPRB,1.3633E+00_JPRB,1.4058E+00_JPRB,1.4211E+00_JPRB/) |
1984 |
|
|
KAO( :, 4, 3,10) = (/& |
1985 |
|
|
& 1.6254E+00_JPRB,1.4868E+00_JPRB,1.3919E+00_JPRB,1.3095E+00_JPRB,1.2349E+00_JPRB,1.1776E+00_JPRB,& |
1986 |
✓✓ |
12 |
& 1.2699E+00_JPRB,1.4722E+00_JPRB,1.6102E+00_JPRB,1.6602E+00_JPRB,1.6774E+00_JPRB/) |
1987 |
|
|
KAO( :, 5, 3,10) = (/& |
1988 |
|
|
& 1.6074E+00_JPRB,1.4842E+00_JPRB,1.4163E+00_JPRB,1.3403E+00_JPRB,1.2931E+00_JPRB,1.3071E+00_JPRB,& |
1989 |
✓✓ |
12 |
& 1.4856E+00_JPRB,1.7228E+00_JPRB,1.8845E+00_JPRB,1.9421E+00_JPRB,1.9615E+00_JPRB/) |
1990 |
|
|
KAO( :, 1, 4,10) = (/& |
1991 |
|
|
& 1.8323E+00_JPRB,1.6281E+00_JPRB,1.4618E+00_JPRB,1.2952E+00_JPRB,1.1419E+00_JPRB,9.7127E-01_JPRB,& |
1992 |
✓✓ |
12 |
& 7.8485E-01_JPRB,7.2735E-01_JPRB,7.9434E-01_JPRB,8.1908E-01_JPRB,8.2678E-01_JPRB/) |
1993 |
|
|
KAO( :, 2, 4,10) = (/& |
1994 |
|
|
& 1.8090E+00_JPRB,1.6115E+00_JPRB,1.4679E+00_JPRB,1.3303E+00_JPRB,1.1865E+00_JPRB,1.0111E+00_JPRB,& |
1995 |
✓✓ |
12 |
& 8.6551E-01_JPRB,8.9427E-01_JPRB,9.7752E-01_JPRB,1.0078E+00_JPRB,1.0171E+00_JPRB/) |
1996 |
|
|
KAO( :, 3, 4,10) = (/& |
1997 |
|
|
& 1.7889E+00_JPRB,1.6155E+00_JPRB,1.4723E+00_JPRB,1.3642E+00_JPRB,1.2203E+00_JPRB,1.0626E+00_JPRB,& |
1998 |
✓✓ |
12 |
& 9.8912E-01_JPRB,1.0844E+00_JPRB,1.1852E+00_JPRB,1.2230E+00_JPRB,1.2342E+00_JPRB/) |
1999 |
|
|
KAO( :, 4, 4,10) = (/& |
2000 |
|
|
& 1.7702E+00_JPRB,1.6167E+00_JPRB,1.4947E+00_JPRB,1.3909E+00_JPRB,1.2565E+00_JPRB,1.1410E+00_JPRB,& |
2001 |
✓✓ |
12 |
& 1.1388E+00_JPRB,1.2955E+00_JPRB,1.4168E+00_JPRB,1.4624E+00_JPRB,1.4761E+00_JPRB/) |
2002 |
|
|
KAO( :, 5, 4,10) = (/& |
2003 |
|
|
& 1.7501E+00_JPRB,1.6097E+00_JPRB,1.5232E+00_JPRB,1.4123E+00_JPRB,1.3009E+00_JPRB,1.2498E+00_JPRB,& |
2004 |
✓✓ |
12 |
& 1.3238E+00_JPRB,1.5313E+00_JPRB,1.6751E+00_JPRB,1.7296E+00_JPRB,1.7455E+00_JPRB/) |
2005 |
|
|
KAO( :, 1, 5,10) = (/& |
2006 |
|
|
& 1.9828E+00_JPRB,1.7589E+00_JPRB,1.5692E+00_JPRB,1.3787E+00_JPRB,1.1995E+00_JPRB,9.9912E-01_JPRB,& |
2007 |
✓✓ |
12 |
& 7.7673E-01_JPRB,6.3208E-01_JPRB,6.6656E-01_JPRB,6.8788E-01_JPRB,6.9344E-01_JPRB/) |
2008 |
|
|
KAO( :, 2, 5,10) = (/& |
2009 |
|
|
& 1.9634E+00_JPRB,1.7445E+00_JPRB,1.5796E+00_JPRB,1.4090E+00_JPRB,1.2375E+00_JPRB,1.0422E+00_JPRB,& |
2010 |
✓✓ |
12 |
& 8.3265E-01_JPRB,7.6892E-01_JPRB,8.3508E-01_JPRB,8.6158E-01_JPRB,8.6855E-01_JPRB/) |
2011 |
|
|
KAO( :, 3, 5,10) = (/& |
2012 |
|
|
& 1.9451E+00_JPRB,1.7488E+00_JPRB,1.5830E+00_JPRB,1.4394E+00_JPRB,1.2778E+00_JPRB,1.0801E+00_JPRB,& |
2013 |
✓✓ |
12 |
& 9.2394E-01_JPRB,9.3676E-01_JPRB,1.0236E+00_JPRB,1.0564E+00_JPRB,1.0650E+00_JPRB/) |
2014 |
|
|
KAO( :, 4, 5,10) = (/& |
2015 |
|
|
& 1.9265E+00_JPRB,1.7517E+00_JPRB,1.6023E+00_JPRB,1.4639E+00_JPRB,1.3153E+00_JPRB,1.1360E+00_JPRB,& |
2016 |
✓✓ |
12 |
& 1.0450E+00_JPRB,1.1261E+00_JPRB,1.2312E+00_JPRB,1.2708E+00_JPRB,1.2815E+00_JPRB/) |
2017 |
|
|
KAO( :, 5, 5,10) = (/& |
2018 |
|
|
& 1.9040E+00_JPRB,1.7416E+00_JPRB,1.6301E+00_JPRB,1.4960E+00_JPRB,1.3496E+00_JPRB,1.2128E+00_JPRB,& |
2019 |
✓✓ |
12 |
& 1.1890E+00_JPRB,1.3318E+00_JPRB,1.4563E+00_JPRB,1.5043E+00_JPRB,1.5161E+00_JPRB/) |
2020 |
|
|
KAO( :, 1, 6,10) = (/& |
2021 |
|
|
& 2.1467E+00_JPRB,1.9004E+00_JPRB,1.6825E+00_JPRB,1.4649E+00_JPRB,1.2465E+00_JPRB,1.0269E+00_JPRB,& |
2022 |
✓✓ |
12 |
& 7.8605E-01_JPRB,5.5785E-01_JPRB,5.4603E-01_JPRB,5.6364E-01_JPRB,5.6772E-01_JPRB/) |
2023 |
|
|
KAO( :, 2, 6,10) = (/& |
2024 |
|
|
& 2.1281E+00_JPRB,1.8881E+00_JPRB,1.6957E+00_JPRB,1.4846E+00_JPRB,1.2828E+00_JPRB,1.0659E+00_JPRB,& |
2025 |
✓✓ |
12 |
& 8.3980E-01_JPRB,6.6949E-01_JPRB,6.9629E-01_JPRB,7.1873E-01_JPRB,7.2407E-01_JPRB/) |
2026 |
|
|
KAO( :, 3, 6,10) = (/& |
2027 |
|
|
& 2.1101E+00_JPRB,1.8868E+00_JPRB,1.6967E+00_JPRB,1.5129E+00_JPRB,1.3220E+00_JPRB,1.1137E+00_JPRB,& |
2028 |
✓✓ |
12 |
& 9.0037E-01_JPRB,8.0396E-01_JPRB,8.6638E-01_JPRB,8.9449E-01_JPRB,9.0065E-01_JPRB/) |
2029 |
|
|
KAO( :, 4, 6,10) = (/& |
2030 |
|
|
& 2.0853E+00_JPRB,1.8860E+00_JPRB,1.7059E+00_JPRB,1.5431E+00_JPRB,1.3571E+00_JPRB,1.1686E+00_JPRB,& |
2031 |
✓✓ |
12 |
& 9.8228E-01_JPRB,9.6588E-01_JPRB,1.0545E+00_JPRB,1.0886E+00_JPRB,1.0960E+00_JPRB/) |
2032 |
|
|
KAO( :, 5, 6,10) = (/& |
2033 |
|
|
& 2.0580E+00_JPRB,1.8736E+00_JPRB,1.7305E+00_JPRB,1.5756E+00_JPRB,1.3997E+00_JPRB,1.2303E+00_JPRB,& |
2034 |
✓✓ |
12 |
& 1.0965E+00_JPRB,1.1472E+00_JPRB,1.2529E+00_JPRB,1.2937E+00_JPRB,1.3014E+00_JPRB/) |
2035 |
|
|
KAO( :, 1, 7,10) = (/& |
2036 |
|
|
& 2.2844E+00_JPRB,2.0203E+00_JPRB,1.7798E+00_JPRB,1.5404E+00_JPRB,1.2929E+00_JPRB,1.0469E+00_JPRB,& |
2037 |
✓✓ |
12 |
& 7.9236E-01_JPRB,5.2961E-01_JPRB,4.3906E-01_JPRB,4.5269E-01_JPRB,4.5518E-01_JPRB/) |
2038 |
|
|
KAO( :, 2, 7,10) = (/& |
2039 |
|
|
& 2.2660E+00_JPRB,2.0078E+00_JPRB,1.7931E+00_JPRB,1.5555E+00_JPRB,1.3285E+00_JPRB,1.0902E+00_JPRB,& |
2040 |
✓✓ |
12 |
& 8.4669E-01_JPRB,5.9963E-01_JPRB,5.6851E-01_JPRB,5.8633E-01_JPRB,5.8943E-01_JPRB/) |
2041 |
|
|
KAO( :, 3, 7,10) = (/& |
2042 |
|
|
& 2.2458E+00_JPRB,2.0016E+00_JPRB,1.7952E+00_JPRB,1.5839E+00_JPRB,1.3724E+00_JPRB,1.1382E+00_JPRB,& |
2043 |
✓✓ |
12 |
& 9.0788E-01_JPRB,7.0219E-01_JPRB,7.1570E-01_JPRB,7.3889E-01_JPRB,7.4245E-01_JPRB/) |
2044 |
|
|
KAO( :, 4, 7,10) = (/& |
2045 |
|
|
& 2.2171E+00_JPRB,2.0004E+00_JPRB,1.8020E+00_JPRB,1.6192E+00_JPRB,1.4137E+00_JPRB,1.1896E+00_JPRB,& |
2046 |
✓✓ |
12 |
& 9.7833E-01_JPRB,8.3274E-01_JPRB,8.7925E-01_JPRB,9.0812E-01_JPRB,9.1193E-01_JPRB/) |
2047 |
|
|
KAO( :, 5, 7,10) = (/& |
2048 |
|
|
& 2.1959E+00_JPRB,1.9929E+00_JPRB,1.8261E+00_JPRB,1.6565E+00_JPRB,1.4548E+00_JPRB,1.2529E+00_JPRB,& |
2049 |
✓✓ |
12 |
& 1.0566E+00_JPRB,9.7505E-01_JPRB,1.0516E+00_JPRB,1.0862E+00_JPRB,1.0907E+00_JPRB/) |
2050 |
|
|
KAO( :, 1, 8,10) = (/& |
2051 |
|
|
& 2.3885E+00_JPRB,2.1081E+00_JPRB,1.8478E+00_JPRB,1.5947E+00_JPRB,1.3299E+00_JPRB,1.0742E+00_JPRB,& |
2052 |
✓✓ |
12 |
& 7.9832E-01_JPRB,5.1485E-01_JPRB,3.4910E-01_JPRB,3.5166E-01_JPRB,4.0882E-01_JPRB/) |
2053 |
|
|
KAO( :, 2, 8,10) = (/& |
2054 |
|
|
& 2.3816E+00_JPRB,2.1064E+00_JPRB,1.8710E+00_JPRB,1.6145E+00_JPRB,1.3755E+00_JPRB,1.1190E+00_JPRB,& |
2055 |
✓✓ |
12 |
& 8.5217E-01_JPRB,5.7569E-01_JPRB,4.5136E-01_JPRB,4.6418E-01_JPRB,4.8409E-01_JPRB/) |
2056 |
|
|
KAO( :, 3, 8,10) = (/& |
2057 |
|
|
& 2.3652E+00_JPRB,2.1007E+00_JPRB,1.8806E+00_JPRB,1.6533E+00_JPRB,1.4207E+00_JPRB,1.1711E+00_JPRB,& |
2058 |
✓✓ |
12 |
& 9.0846E-01_JPRB,6.4219E-01_JPRB,5.7508E-01_JPRB,5.9368E-01_JPRB,5.9892E-01_JPRB/) |
2059 |
|
|
KAO( :, 4, 8,10) = (/& |
2060 |
|
|
& 2.3476E+00_JPRB,2.1091E+00_JPRB,1.8906E+00_JPRB,1.6908E+00_JPRB,1.4662E+00_JPRB,1.2230E+00_JPRB,& |
2061 |
✓✓ |
12 |
& 9.7637E-01_JPRB,7.3139E-01_JPRB,7.1362E-01_JPRB,7.3716E-01_JPRB,7.4183E-01_JPRB/) |
2062 |
|
|
KAO( :, 5, 8,10) = (/& |
2063 |
|
|
& 2.3384E+00_JPRB,2.1117E+00_JPRB,1.9201E+00_JPRB,1.7277E+00_JPRB,1.5122E+00_JPRB,1.2845E+00_JPRB,& |
2064 |
✓✓ |
12 |
& 1.0504E+00_JPRB,8.4237E-01_JPRB,8.6471E-01_JPRB,8.9254E-01_JPRB,8.9924E-01_JPRB/) |
2065 |
|
|
KAO( :, 1, 9,10) = (/& |
2066 |
|
|
& 2.5386E+00_JPRB,2.2349E+00_JPRB,1.9481E+00_JPRB,1.6673E+00_JPRB,1.3731E+00_JPRB,1.0924E+00_JPRB,& |
2067 |
✓✓ |
12 |
& 8.0108E-01_JPRB,5.0383E-01_JPRB,2.8431E-01_JPRB,2.6546E-01_JPRB,1.0078E+00_JPRB/) |
2068 |
|
|
KAO( :, 2, 9,10) = (/& |
2069 |
|
|
& 2.5451E+00_JPRB,2.2468E+00_JPRB,1.9792E+00_JPRB,1.6927E+00_JPRB,1.4190E+00_JPRB,1.1389E+00_JPRB,& |
2070 |
✓✓ |
12 |
& 8.5564E-01_JPRB,5.6069E-01_JPRB,3.5715E-01_JPRB,3.5572E-01_JPRB,1.1000E+00_JPRB/) |
2071 |
|
|
KAO( :, 3, 9,10) = (/& |
2072 |
|
|
& 2.5371E+00_JPRB,2.2464E+00_JPRB,1.9929E+00_JPRB,1.7275E+00_JPRB,1.4622E+00_JPRB,1.1905E+00_JPRB,& |
2073 |
✓✓ |
12 |
& 9.1694E-01_JPRB,6.2032E-01_JPRB,4.5328E-01_JPRB,4.6281E-01_JPRB,1.1964E+00_JPRB/) |
2074 |
|
|
KAO( :, 4, 9,10) = (/& |
2075 |
|
|
& 2.5272E+00_JPRB,2.2578E+00_JPRB,2.0033E+00_JPRB,1.7607E+00_JPRB,1.5050E+00_JPRB,1.2522E+00_JPRB,& |
2076 |
✓✓ |
12 |
& 9.8282E-01_JPRB,6.8556E-01_JPRB,5.6762E-01_JPRB,5.8509E-01_JPRB,1.3014E+00_JPRB/) |
2077 |
|
|
KAO( :, 5, 9,10) = (/& |
2078 |
|
|
& 2.5219E+00_JPRB,2.2665E+00_JPRB,2.0326E+00_JPRB,1.7988E+00_JPRB,1.5562E+00_JPRB,1.3171E+00_JPRB,& |
2079 |
✓✓ |
12 |
& 1.0492E+00_JPRB,7.6013E-01_JPRB,7.0072E-01_JPRB,7.2284E-01_JPRB,1.4121E+00_JPRB/) |
2080 |
|
|
KAO( :, 1,10,10) = (/& |
2081 |
|
|
& 2.7032E+00_JPRB,2.3752E+00_JPRB,2.0666E+00_JPRB,1.7582E+00_JPRB,1.4376E+00_JPRB,1.1282E+00_JPRB,& |
2082 |
✓✓ |
12 |
& 8.0844E-01_JPRB,4.9374E-01_JPRB,2.5722E-01_JPRB,2.0186E-01_JPRB,3.6688E+00_JPRB/) |
2083 |
|
|
KAO( :, 2,10,10) = (/& |
2084 |
|
|
& 2.7107E+00_JPRB,2.3914E+00_JPRB,2.0994E+00_JPRB,1.7884E+00_JPRB,1.4847E+00_JPRB,1.1756E+00_JPRB,& |
2085 |
✓✓ |
12 |
& 8.5930E-01_JPRB,5.5140E-01_JPRB,3.0504E-01_JPRB,2.7555E-01_JPRB,3.7597E+00_JPRB/) |
2086 |
|
|
KAO( :, 3,10,10) = (/& |
2087 |
|
|
& 2.7016E+00_JPRB,2.3907E+00_JPRB,2.1143E+00_JPRB,1.8225E+00_JPRB,1.5274E+00_JPRB,1.2237E+00_JPRB,& |
2088 |
✓✓ |
12 |
& 9.2233E-01_JPRB,6.0585E-01_JPRB,3.7278E-01_JPRB,3.6425E-01_JPRB,3.8938E+00_JPRB/) |
2089 |
|
|
KAO( :, 4,10,10) = (/& |
2090 |
|
|
& 2.6956E+00_JPRB,2.4067E+00_JPRB,2.1300E+00_JPRB,1.8578E+00_JPRB,1.5689E+00_JPRB,1.2815E+00_JPRB,& |
2091 |
✓✓ |
12 |
& 9.8969E-01_JPRB,6.6341E-01_JPRB,4.6317E-01_JPRB,4.6656E-01_JPRB,4.0246E+00_JPRB/) |
2092 |
|
|
KAO( :, 5,10,10) = (/& |
2093 |
|
|
& 2.6869E+00_JPRB,2.4172E+00_JPRB,2.1621E+00_JPRB,1.8987E+00_JPRB,1.6181E+00_JPRB,1.3422E+00_JPRB,& |
2094 |
✓✓ |
12 |
& 1.0558E+00_JPRB,7.2592E-01_JPRB,5.7500E-01_JPRB,5.8744E-01_JPRB,4.1547E+00_JPRB/) |
2095 |
|
|
KAO( :, 1,11,10) = (/& |
2096 |
|
|
& 2.8365E+00_JPRB,2.4939E+00_JPRB,2.1806E+00_JPRB,1.8562E+00_JPRB,1.5246E+00_JPRB,1.1987E+00_JPRB,& |
2097 |
✓✓ |
12 |
& 8.5286E-01_JPRB,5.0756E-01_JPRB,2.5720E-01_JPRB,1.7786E-01_JPRB,5.8233E+00_JPRB/) |
2098 |
|
|
KAO( :, 2,11,10) = (/& |
2099 |
|
|
& 2.8311E+00_JPRB,2.5017E+00_JPRB,2.2072E+00_JPRB,1.8857E+00_JPRB,1.5735E+00_JPRB,1.2464E+00_JPRB,& |
2100 |
✓✓ |
12 |
& 9.0789E-01_JPRB,5.6161E-01_JPRB,3.0021E-01_JPRB,2.4395E-01_JPRB,5.8712E+00_JPRB/) |
2101 |
|
|
KAO( :, 3,11,10) = (/& |
2102 |
|
|
& 2.8249E+00_JPRB,2.5109E+00_JPRB,2.2225E+00_JPRB,1.9282E+00_JPRB,1.6185E+00_JPRB,1.2983E+00_JPRB,& |
2103 |
✓✓ |
12 |
& 9.6627E-01_JPRB,6.1528E-01_JPRB,3.5612E-01_JPRB,3.2409E-01_JPRB,5.9730E+00_JPRB/) |
2104 |
|
|
KAO( :, 4,11,10) = (/& |
2105 |
|
|
& 2.8199E+00_JPRB,2.5320E+00_JPRB,2.2523E+00_JPRB,1.9711E+00_JPRB,1.6696E+00_JPRB,1.3539E+00_JPRB,& |
2106 |
✓✓ |
12 |
& 1.0246E+00_JPRB,6.7092E-01_JPRB,4.3024E-01_JPRB,4.1910E-01_JPRB,6.1100E+00_JPRB/) |
2107 |
|
|
KAO( :, 5,11,10) = (/& |
2108 |
|
|
& 2.8024E+00_JPRB,2.5388E+00_JPRB,2.2830E+00_JPRB,2.0130E+00_JPRB,1.7222E+00_JPRB,1.4150E+00_JPRB,& |
2109 |
✓✓ |
12 |
& 1.0853E+00_JPRB,7.3326E-01_JPRB,5.2958E-01_JPRB,5.3082E-01_JPRB,6.2451E+00_JPRB/) |
2110 |
|
|
KAO( :, 1,12,10) = (/& |
2111 |
|
|
& 2.9007E+00_JPRB,2.5522E+00_JPRB,2.2455E+00_JPRB,1.9136E+00_JPRB,1.5844E+00_JPRB,1.2502E+00_JPRB,& |
2112 |
✓✓ |
12 |
& 8.9520E-01_JPRB,5.2570E-01_JPRB,2.5575E-01_JPRB,1.5969E-01_JPRB,6.7808E+00_JPRB/) |
2113 |
|
|
KAO( :, 2,12,10) = (/& |
2114 |
|
|
& 2.8957E+00_JPRB,2.5649E+00_JPRB,2.2681E+00_JPRB,1.9492E+00_JPRB,1.6332E+00_JPRB,1.2959E+00_JPRB,& |
2115 |
✓✓ |
12 |
& 9.5066E-01_JPRB,5.7358E-01_JPRB,2.9740E-01_JPRB,2.1707E-01_JPRB,6.8136E+00_JPRB/) |
2116 |
|
|
KAO( :, 3,12,10) = (/& |
2117 |
|
|
& 2.8959E+00_JPRB,2.5923E+00_JPRB,2.2942E+00_JPRB,1.9975E+00_JPRB,1.6818E+00_JPRB,1.3548E+00_JPRB,& |
2118 |
✓✓ |
12 |
& 1.0083E+00_JPRB,6.2153E-01_JPRB,3.4695E-01_JPRB,2.8857E-01_JPRB,6.9134E+00_JPRB/) |
2119 |
|
|
KAO( :, 4,12,10) = (/& |
2120 |
|
|
& 2.8817E+00_JPRB,2.6059E+00_JPRB,2.3289E+00_JPRB,2.0414E+00_JPRB,1.7379E+00_JPRB,1.4164E+00_JPRB,& |
2121 |
✓✓ |
12 |
& 1.0650E+00_JPRB,6.7585E-01_JPRB,4.1101E-01_JPRB,3.7695E-01_JPRB,7.0381E+00_JPRB/) |
2122 |
|
|
KAO( :, 5,12,10) = (/& |
2123 |
|
|
& 2.8680E+00_JPRB,2.6070E+00_JPRB,2.3572E+00_JPRB,2.0817E+00_JPRB,1.7934E+00_JPRB,1.4807E+00_JPRB,& |
2124 |
✓✓ |
12 |
& 1.1194E+00_JPRB,7.3817E-01_JPRB,4.8817E-01_JPRB,4.7434E-01_JPRB,7.1520E+00_JPRB/) |
2125 |
|
|
KAO( :, 1,13,10) = (/& |
2126 |
|
|
& 2.8740E+00_JPRB,2.5320E+00_JPRB,2.2375E+00_JPRB,1.9099E+00_JPRB,1.5916E+00_JPRB,1.2554E+00_JPRB,& |
2127 |
✓✓ |
12 |
& 9.0824E-01_JPRB,5.3705E-01_JPRB,2.5121E-01_JPRB,1.4664E-01_JPRB,6.0411E+00_JPRB/) |
2128 |
|
|
KAO( :, 2,13,10) = (/& |
2129 |
|
|
& 2.8792E+00_JPRB,2.5659E+00_JPRB,2.2680E+00_JPRB,1.9609E+00_JPRB,1.6438E+00_JPRB,1.3095E+00_JPRB,& |
2130 |
✓✓ |
12 |
& 9.6448E-01_JPRB,5.8102E-01_JPRB,2.9305E-01_JPRB,1.9412E-01_JPRB,6.1051E+00_JPRB/) |
2131 |
|
|
KAO( :, 3,13,10) = (/& |
2132 |
|
|
& 2.8707E+00_JPRB,2.5893E+00_JPRB,2.2982E+00_JPRB,2.0064E+00_JPRB,1.6967E+00_JPRB,1.3719E+00_JPRB,& |
2133 |
✓✓ |
12 |
& 1.0233E+00_JPRB,6.2659E-01_JPRB,3.3990E-01_JPRB,2.5773E-01_JPRB,6.2169E+00_JPRB/) |
2134 |
|
|
KAO( :, 4,13,10) = (/& |
2135 |
|
|
& 2.8643E+00_JPRB,2.5995E+00_JPRB,2.3326E+00_JPRB,2.0484E+00_JPRB,1.7508E+00_JPRB,1.4355E+00_JPRB,& |
2136 |
✓✓ |
12 |
& 1.0824E+00_JPRB,6.7916E-01_JPRB,3.9630E-01_JPRB,3.3349E-01_JPRB,6.3137E+00_JPRB/) |
2137 |
|
|
KAO( :, 5,13,10) = (/& |
2138 |
|
|
& 2.8671E+00_JPRB,2.6159E+00_JPRB,2.3730E+00_JPRB,2.0970E+00_JPRB,1.8103E+00_JPRB,1.4979E+00_JPRB,& |
2139 |
✓✓ |
12 |
& 1.1399E+00_JPRB,7.4021E-01_JPRB,4.5873E-01_JPRB,4.1936E-01_JPRB,6.4289E+00_JPRB/) |
2140 |
|
|
KAO( :, 1, 1,11) = (/& |
2141 |
|
|
& 1.6613E+00_JPRB,1.4866E+00_JPRB,1.3853E+00_JPRB,1.3300E+00_JPRB,1.2682E+00_JPRB,1.2323E+00_JPRB,& |
2142 |
✓✓ |
12 |
& 1.3863E+00_JPRB,1.6088E+00_JPRB,1.7596E+00_JPRB,1.8112E+00_JPRB,1.8168E+00_JPRB/) |
2143 |
|
|
KAO( :, 2, 1,11) = (/& |
2144 |
|
|
& 1.6169E+00_JPRB,1.4555E+00_JPRB,1.4059E+00_JPRB,1.3808E+00_JPRB,1.3576E+00_JPRB,1.4059E+00_JPRB,& |
2145 |
✓✓ |
12 |
& 1.6502E+00_JPRB,1.9162E+00_JPRB,2.0970E+00_JPRB,2.1595E+00_JPRB,2.1711E+00_JPRB/) |
2146 |
|
|
KAO( :, 3, 1,11) = (/& |
2147 |
|
|
& 1.5778E+00_JPRB,1.4552E+00_JPRB,1.4351E+00_JPRB,1.4445E+00_JPRB,1.4667E+00_JPRB,1.6093E+00_JPRB,& |
2148 |
✓✓ |
12 |
& 1.9164E+00_JPRB,2.2262E+00_JPRB,2.4366E+00_JPRB,2.5118E+00_JPRB,2.5357E+00_JPRB/) |
2149 |
|
|
KAO( :, 4, 1,11) = (/& |
2150 |
|
|
& 1.5458E+00_JPRB,1.4600E+00_JPRB,1.4693E+00_JPRB,1.5080E+00_JPRB,1.5810E+00_JPRB,1.8320E+00_JPRB,& |
2151 |
✓✓ |
12 |
& 2.1847E+00_JPRB,2.5375E+00_JPRB,2.7777E+00_JPRB,2.8639E+00_JPRB,2.8977E+00_JPRB/) |
2152 |
|
|
KAO( :, 5, 1,11) = (/& |
2153 |
|
|
& 1.5169E+00_JPRB,1.4756E+00_JPRB,1.5189E+00_JPRB,1.5745E+00_JPRB,1.7149E+00_JPRB,2.0625E+00_JPRB,& |
2154 |
✓✓ |
12 |
& 2.4598E+00_JPRB,2.8572E+00_JPRB,3.1271E+00_JPRB,3.2233E+00_JPRB,3.2607E+00_JPRB/) |
2155 |
|
|
|
2156 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART7',1,ZHOOK_HANDLE) |
2157 |
|
1 |
END SUBROUTINE PART7 |
2158 |
|
|
|
2159 |
|
|
|
2160 |
|
1 |
SUBROUTINE PART8 |
2161 |
|
|
|
2162 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
2163 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART8',0,ZHOOK_HANDLE) |
2164 |
|
|
|
2165 |
|
|
|
2166 |
|
|
KAO( :, 1, 2,11) = (/& |
2167 |
|
|
& 1.7931E+00_JPRB,1.6027E+00_JPRB,1.4692E+00_JPRB,1.3591E+00_JPRB,1.3119E+00_JPRB,1.2053E+00_JPRB,& |
2168 |
✓✓ |
12 |
& 1.2920E+00_JPRB,1.4995E+00_JPRB,1.6403E+00_JPRB,1.6893E+00_JPRB,1.7029E+00_JPRB/) |
2169 |
|
|
KAO( :, 2, 2,11) = (/& |
2170 |
|
|
& 1.7517E+00_JPRB,1.5695E+00_JPRB,1.4741E+00_JPRB,1.4214E+00_JPRB,1.3827E+00_JPRB,1.3473E+00_JPRB,& |
2171 |
✓✓ |
12 |
& 1.5430E+00_JPRB,1.7916E+00_JPRB,1.9609E+00_JPRB,2.0211E+00_JPRB,2.0410E+00_JPRB/) |
2172 |
|
|
KAO( :, 3, 2,11) = (/& |
2173 |
|
|
& 1.7144E+00_JPRB,1.5578E+00_JPRB,1.4838E+00_JPRB,1.5024E+00_JPRB,1.4587E+00_JPRB,1.5235E+00_JPRB,& |
2174 |
✓✓ |
12 |
& 1.7953E+00_JPRB,2.0852E+00_JPRB,2.2826E+00_JPRB,2.3530E+00_JPRB,2.3802E+00_JPRB/) |
2175 |
|
|
KAO( :, 4, 2,11) = (/& |
2176 |
|
|
& 1.6782E+00_JPRB,1.5545E+00_JPRB,1.5253E+00_JPRB,1.5641E+00_JPRB,1.5463E+00_JPRB,1.7285E+00_JPRB,& |
2177 |
✓✓ |
12 |
& 2.0611E+00_JPRB,2.3939E+00_JPRB,2.6193E+00_JPRB,2.6996E+00_JPRB,2.7281E+00_JPRB/) |
2178 |
|
|
KAO( :, 5, 2,11) = (/& |
2179 |
|
|
& 1.6444E+00_JPRB,1.5616E+00_JPRB,1.5898E+00_JPRB,1.6106E+00_JPRB,1.6616E+00_JPRB,1.9596E+00_JPRB,& |
2180 |
✓✓ |
12 |
& 2.3378E+00_JPRB,2.7154E+00_JPRB,2.9704E+00_JPRB,3.0605E+00_JPRB,3.0919E+00_JPRB/) |
2181 |
|
|
KAO( :, 1, 3,11) = (/& |
2182 |
|
|
& 1.9627E+00_JPRB,1.7504E+00_JPRB,1.5854E+00_JPRB,1.4217E+00_JPRB,1.3102E+00_JPRB,1.1839E+00_JPRB,& |
2183 |
✓✓ |
12 |
& 1.1622E+00_JPRB,1.3310E+00_JPRB,1.4543E+00_JPRB,1.4985E+00_JPRB,1.5140E+00_JPRB/) |
2184 |
|
|
KAO( :, 2, 3,11) = (/& |
2185 |
|
|
& 1.9279E+00_JPRB,1.7219E+00_JPRB,1.5816E+00_JPRB,1.4501E+00_JPRB,1.3900E+00_JPRB,1.2949E+00_JPRB,& |
2186 |
✓✓ |
12 |
& 1.3876E+00_JPRB,1.6085E+00_JPRB,1.7572E+00_JPRB,1.8110E+00_JPRB,1.8300E+00_JPRB/) |
2187 |
|
|
KAO( :, 3, 3,11) = (/& |
2188 |
|
|
& 1.8924E+00_JPRB,1.7068E+00_JPRB,1.5754E+00_JPRB,1.5312E+00_JPRB,1.4545E+00_JPRB,1.4364E+00_JPRB,& |
2189 |
✓✓ |
12 |
& 1.6346E+00_JPRB,1.8944E+00_JPRB,2.0697E+00_JPRB,2.1336E+00_JPRB,2.1557E+00_JPRB/) |
2190 |
|
|
KAO( :, 4, 3,11) = (/& |
2191 |
|
|
& 1.8571E+00_JPRB,1.6996E+00_JPRB,1.5918E+00_JPRB,1.6013E+00_JPRB,1.5297E+00_JPRB,1.6118E+00_JPRB,& |
2192 |
✓✓ |
12 |
& 1.8962E+00_JPRB,2.1972E+00_JPRB,2.4008E+00_JPRB,2.4733E+00_JPRB,2.4988E+00_JPRB/) |
2193 |
|
|
KAO( :, 5, 3,11) = (/& |
2194 |
|
|
& 1.8235E+00_JPRB,1.6901E+00_JPRB,1.6505E+00_JPRB,1.6453E+00_JPRB,1.6300E+00_JPRB,1.8256E+00_JPRB,& |
2195 |
✓✓ |
12 |
& 2.1737E+00_JPRB,2.5187E+00_JPRB,2.7529E+00_JPRB,2.8347E+00_JPRB,2.8622E+00_JPRB/) |
2196 |
|
|
KAO( :, 1, 4,11) = (/& |
2197 |
|
|
& 2.1765E+00_JPRB,1.9348E+00_JPRB,1.7298E+00_JPRB,1.5261E+00_JPRB,1.3305E+00_JPRB,1.1605E+00_JPRB,& |
2198 |
✓✓ |
12 |
& 1.0551E+00_JPRB,1.1346E+00_JPRB,1.2370E+00_JPRB,1.2757E+00_JPRB,1.2869E+00_JPRB/) |
2199 |
|
|
KAO( :, 2, 4,11) = (/& |
2200 |
|
|
& 2.1414E+00_JPRB,1.9083E+00_JPRB,1.7248E+00_JPRB,1.5356E+00_JPRB,1.3817E+00_JPRB,1.2586E+00_JPRB,& |
2201 |
✓✓ |
12 |
& 1.2309E+00_JPRB,1.3912E+00_JPRB,1.5177E+00_JPRB,1.5661E+00_JPRB,1.5799E+00_JPRB/) |
2202 |
|
|
KAO( :, 3, 4,11) = (/& |
2203 |
|
|
& 2.1021E+00_JPRB,1.8834E+00_JPRB,1.7158E+00_JPRB,1.5815E+00_JPRB,1.4532E+00_JPRB,1.3786E+00_JPRB,& |
2204 |
✓✓ |
12 |
& 1.4439E+00_JPRB,1.6656E+00_JPRB,1.8177E+00_JPRB,1.8749E+00_JPRB,1.8912E+00_JPRB/) |
2205 |
|
|
KAO( :, 4, 4,11) = (/& |
2206 |
|
|
& 2.0644E+00_JPRB,1.8749E+00_JPRB,1.7166E+00_JPRB,1.6274E+00_JPRB,1.5294E+00_JPRB,1.5218E+00_JPRB,& |
2207 |
✓✓ |
12 |
& 1.7000E+00_JPRB,1.9644E+00_JPRB,2.1444E+00_JPRB,2.2100E+00_JPRB,2.2304E+00_JPRB/) |
2208 |
|
|
KAO( :, 5, 4,11) = (/& |
2209 |
|
|
& 2.0315E+00_JPRB,1.8634E+00_JPRB,1.7507E+00_JPRB,1.6723E+00_JPRB,1.6226E+00_JPRB,1.7027E+00_JPRB,& |
2210 |
✓✓ |
12 |
& 1.9800E+00_JPRB,2.2880E+00_JPRB,2.4977E+00_JPRB,2.5739E+00_JPRB,2.5981E+00_JPRB/) |
2211 |
|
|
KAO( :, 1, 5,11) = (/& |
2212 |
|
|
& 2.3978E+00_JPRB,2.1273E+00_JPRB,1.8817E+00_JPRB,1.6476E+00_JPRB,1.4011E+00_JPRB,1.1672E+00_JPRB,& |
2213 |
✓✓ |
12 |
& 9.7083E-01_JPRB,9.5214E-01_JPRB,1.0369E+00_JPRB,1.0689E+00_JPRB,1.0768E+00_JPRB/) |
2214 |
|
|
KAO( :, 2, 5,11) = (/& |
2215 |
|
|
& 2.3540E+00_JPRB,2.0936E+00_JPRB,1.8768E+00_JPRB,1.6491E+00_JPRB,1.4389E+00_JPRB,1.2340E+00_JPRB,& |
2216 |
✓✓ |
12 |
& 1.1149E+00_JPRB,1.1831E+00_JPRB,1.2889E+00_JPRB,1.3291E+00_JPRB,1.3391E+00_JPRB/) |
2217 |
|
|
KAO( :, 3, 5,11) = (/& |
2218 |
|
|
& 2.3123E+00_JPRB,2.0603E+00_JPRB,1.8683E+00_JPRB,1.6861E+00_JPRB,1.4856E+00_JPRB,1.3243E+00_JPRB,& |
2219 |
✓✓ |
12 |
& 1.2879E+00_JPRB,1.4387E+00_JPRB,1.5683E+00_JPRB,1.6173E+00_JPRB,1.6292E+00_JPRB/) |
2220 |
|
|
KAO( :, 4, 5,11) = (/& |
2221 |
|
|
& 2.2731E+00_JPRB,2.0535E+00_JPRB,1.8606E+00_JPRB,1.7201E+00_JPRB,1.5405E+00_JPRB,1.4489E+00_JPRB,& |
2222 |
✓✓ |
12 |
& 1.5047E+00_JPRB,1.7253E+00_JPRB,1.8810E+00_JPRB,1.9395E+00_JPRB,1.9546E+00_JPRB/) |
2223 |
|
|
KAO( :, 5, 5,11) = (/& |
2224 |
|
|
& 2.2409E+00_JPRB,2.0441E+00_JPRB,1.8877E+00_JPRB,1.7429E+00_JPRB,1.6151E+00_JPRB,1.6124E+00_JPRB,& |
2225 |
✓✓ |
12 |
& 1.7700E+00_JPRB,2.0422E+00_JPRB,2.2271E+00_JPRB,2.2953E+00_JPRB,2.3139E+00_JPRB/) |
2226 |
|
|
KAO( :, 1, 6,11) = (/& |
2227 |
|
|
& 2.5958E+00_JPRB,2.2974E+00_JPRB,2.0142E+00_JPRB,1.7617E+00_JPRB,1.4801E+00_JPRB,1.2138E+00_JPRB,& |
2228 |
✓✓ |
12 |
& 9.4381E-01_JPRB,8.0769E-01_JPRB,8.5699E-01_JPRB,8.8288E-01_JPRB,8.8884E-01_JPRB/) |
2229 |
|
|
KAO( :, 2, 6,11) = (/& |
2230 |
|
|
& 2.5524E+00_JPRB,2.2633E+00_JPRB,2.0140E+00_JPRB,1.7595E+00_JPRB,1.5235E+00_JPRB,1.2699E+00_JPRB,& |
2231 |
✓✓ |
12 |
& 1.0358E+00_JPRB,9.9995E-01_JPRB,1.0855E+00_JPRB,1.1188E+00_JPRB,1.1263E+00_JPRB/) |
2232 |
|
|
KAO( :, 3, 6,11) = (/& |
2233 |
|
|
& 2.5133E+00_JPRB,2.2324E+00_JPRB,2.0130E+00_JPRB,1.7928E+00_JPRB,1.5724E+00_JPRB,1.3298E+00_JPRB,& |
2234 |
✓✓ |
12 |
& 1.1740E+00_JPRB,1.2292E+00_JPRB,1.3373E+00_JPRB,1.3782E+00_JPRB,1.3885E+00_JPRB/) |
2235 |
|
|
KAO( :, 4, 6,11) = (/& |
2236 |
|
|
& 2.4807E+00_JPRB,2.2302E+00_JPRB,2.0078E+00_JPRB,1.8271E+00_JPRB,1.6226E+00_JPRB,1.4050E+00_JPRB,& |
2237 |
✓✓ |
12 |
& 1.3553E+00_JPRB,1.4899E+00_JPRB,1.6221E+00_JPRB,1.6724E+00_JPRB,1.6846E+00_JPRB/) |
2238 |
|
|
KAO( :, 5, 6,11) = (/& |
2239 |
|
|
& 2.4531E+00_JPRB,2.2259E+00_JPRB,2.0295E+00_JPRB,1.8622E+00_JPRB,1.6727E+00_JPRB,1.5327E+00_JPRB,& |
2240 |
✓✓ |
12 |
& 1.5693E+00_JPRB,1.7819E+00_JPRB,1.9432E+00_JPRB,2.0038E+00_JPRB,2.0198E+00_JPRB/) |
2241 |
|
|
KAO( :, 1, 7,11) = (/& |
2242 |
|
|
& 2.7829E+00_JPRB,2.4576E+00_JPRB,2.1410E+00_JPRB,1.8711E+00_JPRB,1.5626E+00_JPRB,1.2726E+00_JPRB,& |
2243 |
✓✓ |
12 |
& 9.6771E-01_JPRB,6.9895E-01_JPRB,6.9406E-01_JPRB,7.1533E-01_JPRB,7.2033E-01_JPRB/) |
2244 |
|
|
KAO( :, 2, 7,11) = (/& |
2245 |
|
|
& 2.7493E+00_JPRB,2.4354E+00_JPRB,2.1596E+00_JPRB,1.8755E+00_JPRB,1.6074E+00_JPRB,1.3276E+00_JPRB,& |
2246 |
✓✓ |
12 |
& 1.0391E+00_JPRB,8.5593E-01_JPRB,8.9783E-01_JPRB,9.2606E-01_JPRB,9.3225E-01_JPRB/) |
2247 |
|
|
KAO( :, 3, 7,11) = (/& |
2248 |
|
|
& 2.7215E+00_JPRB,2.4153E+00_JPRB,2.1690E+00_JPRB,1.9070E+00_JPRB,1.6545E+00_JPRB,1.3898E+00_JPRB,& |
2249 |
✓✓ |
12 |
& 1.1226E+00_JPRB,1.0453E+00_JPRB,1.1294E+00_JPRB,1.1648E+00_JPRB,1.1728E+00_JPRB/) |
2250 |
|
|
KAO( :, 4, 7,11) = (/& |
2251 |
|
|
& 2.6975E+00_JPRB,2.4170E+00_JPRB,2.1702E+00_JPRB,1.9430E+00_JPRB,1.7107E+00_JPRB,1.4568E+00_JPRB,& |
2252 |
✓✓ |
12 |
& 1.2495E+00_JPRB,1.2760E+00_JPRB,1.3906E+00_JPRB,1.4345E+00_JPRB,1.4450E+00_JPRB/) |
2253 |
|
|
KAO( :, 5, 7,11) = (/& |
2254 |
|
|
& 2.6700E+00_JPRB,2.4191E+00_JPRB,2.1904E+00_JPRB,1.9836E+00_JPRB,1.7642E+00_JPRB,1.5351E+00_JPRB,& |
2255 |
✓✓ |
12 |
& 1.4268E+00_JPRB,1.5390E+00_JPRB,1.6803E+00_JPRB,1.7334E+00_JPRB,1.7463E+00_JPRB/) |
2256 |
|
|
KAO( :, 1, 8,11) = (/& |
2257 |
|
|
& 2.9847E+00_JPRB,2.6313E+00_JPRB,2.2865E+00_JPRB,1.9879E+00_JPRB,1.6488E+00_JPRB,1.3255E+00_JPRB,& |
2258 |
✓✓ |
12 |
& 9.9877E-01_JPRB,6.5722E-01_JPRB,5.5701E-01_JPRB,5.7433E-01_JPRB,5.7952E-01_JPRB/) |
2259 |
|
|
KAO( :, 2, 8,11) = (/& |
2260 |
|
|
& 2.9589E+00_JPRB,2.6183E+00_JPRB,2.3133E+00_JPRB,2.0003E+00_JPRB,1.6901E+00_JPRB,1.3820E+00_JPRB,& |
2261 |
✓✓ |
12 |
& 1.0665E+00_JPRB,7.5791E-01_JPRB,7.3569E-01_JPRB,7.5906E-01_JPRB,7.6418E-01_JPRB/) |
2262 |
|
|
KAO( :, 3, 8,11) = (/& |
2263 |
|
|
& 2.9382E+00_JPRB,2.6052E+00_JPRB,2.3281E+00_JPRB,2.0270E+00_JPRB,1.7422E+00_JPRB,1.4465E+00_JPRB,& |
2264 |
✓✓ |
12 |
& 1.1457E+00_JPRB,9.0969E-01_JPRB,9.4197E-01_JPRB,9.7232E-01_JPRB,9.7875E-01_JPRB/) |
2265 |
|
|
KAO( :, 4, 8,11) = (/& |
2266 |
|
|
& 2.9170E+00_JPRB,2.6060E+00_JPRB,2.3361E+00_JPRB,2.0694E+00_JPRB,1.8026E+00_JPRB,1.5183E+00_JPRB,& |
2267 |
✓✓ |
12 |
& 1.2312E+00_JPRB,1.0984E+00_JPRB,1.1773E+00_JPRB,1.2154E+00_JPRB,1.2236E+00_JPRB/) |
2268 |
|
|
KAO( :, 5, 8,11) = (/& |
2269 |
|
|
& 2.8898E+00_JPRB,2.6134E+00_JPRB,2.3563E+00_JPRB,2.1177E+00_JPRB,1.8614E+00_JPRB,1.5931E+00_JPRB,& |
2270 |
✓✓ |
12 |
& 1.3477E+00_JPRB,1.3211E+00_JPRB,1.4373E+00_JPRB,1.4847E+00_JPRB,1.4939E+00_JPRB/) |
2271 |
|
|
KAO( :, 1, 9,11) = (/& |
2272 |
|
|
& 3.1562E+00_JPRB,2.7768E+00_JPRB,2.4133E+00_JPRB,2.0911E+00_JPRB,1.7326E+00_JPRB,1.3839E+00_JPRB,& |
2273 |
✓✓ |
12 |
& 1.0276E+00_JPRB,6.4719E-01_JPRB,4.4660E-01_JPRB,4.5187E-01_JPRB,1.3511E+00_JPRB/) |
2274 |
|
|
KAO( :, 2, 9,11) = (/& |
2275 |
|
|
& 3.1384E+00_JPRB,2.7738E+00_JPRB,2.4447E+00_JPRB,2.1155E+00_JPRB,1.7788E+00_JPRB,1.4436E+00_JPRB,& |
2276 |
✓✓ |
12 |
& 1.0888E+00_JPRB,7.2585E-01_JPRB,5.9330E-01_JPRB,6.1102E-01_JPRB,1.4527E+00_JPRB/) |
2277 |
|
|
KAO( :, 3, 9,11) = (/& |
2278 |
|
|
& 3.1307E+00_JPRB,2.7744E+00_JPRB,2.4761E+00_JPRB,2.1489E+00_JPRB,1.8392E+00_JPRB,1.5081E+00_JPRB,& |
2279 |
✓✓ |
12 |
& 1.1726E+00_JPRB,8.2343E-01_JPRB,7.7078E-01_JPRB,7.9585E-01_JPRB,1.5858E+00_JPRB/) |
2280 |
|
|
KAO( :, 4, 9,11) = (/& |
2281 |
|
|
& 3.1198E+00_JPRB,2.7814E+00_JPRB,2.4948E+00_JPRB,2.2031E+00_JPRB,1.9038E+00_JPRB,1.5809E+00_JPRB,& |
2282 |
✓✓ |
12 |
& 1.2536E+00_JPRB,9.6368E-01_JPRB,9.7557E-01_JPRB,1.0082E+00_JPRB,1.7168E+00_JPRB/) |
2283 |
|
|
KAO( :, 5, 9,11) = (/& |
2284 |
|
|
& 3.0996E+00_JPRB,2.7968E+00_JPRB,2.5179E+00_JPRB,2.2589E+00_JPRB,1.9623E+00_JPRB,1.6560E+00_JPRB,& |
2285 |
✓✓ |
12 |
& 1.3493E+00_JPRB,1.1417E+00_JPRB,1.2025E+00_JPRB,1.2431E+00_JPRB,1.8589E+00_JPRB/) |
2286 |
|
|
KAO( :, 1,10,11) = (/& |
2287 |
|
|
& 3.3334E+00_JPRB,2.9275E+00_JPRB,2.5435E+00_JPRB,2.1899E+00_JPRB,1.8099E+00_JPRB,1.4340E+00_JPRB,& |
2288 |
✓✓ |
12 |
& 1.0600E+00_JPRB,6.4816E-01_JPRB,3.7397E-01_JPRB,3.5551E-01_JPRB,5.2534E+00_JPRB/) |
2289 |
|
|
KAO( :, 2,10,11) = (/& |
2290 |
|
|
& 3.3403E+00_JPRB,2.9437E+00_JPRB,2.5854E+00_JPRB,2.2265E+00_JPRB,1.8583E+00_JPRB,1.5038E+00_JPRB,& |
2291 |
✓✓ |
12 |
& 1.1221E+00_JPRB,7.2216E-01_JPRB,4.8652E-01_JPRB,4.8944E-01_JPRB,5.3617E+00_JPRB/) |
2292 |
|
|
KAO( :, 3,10,11) = (/& |
2293 |
|
|
& 3.3507E+00_JPRB,2.9656E+00_JPRB,2.6315E+00_JPRB,2.2679E+00_JPRB,1.9297E+00_JPRB,1.5737E+00_JPRB,& |
2294 |
✓✓ |
12 |
& 1.2011E+00_JPRB,8.0616E-01_JPRB,6.2998E-01_JPRB,6.4742E-01_JPRB,5.5025E+00_JPRB/) |
2295 |
|
|
KAO( :, 4,10,11) = (/& |
2296 |
|
|
& 3.3473E+00_JPRB,2.9767E+00_JPRB,2.6569E+00_JPRB,2.3310E+00_JPRB,1.9983E+00_JPRB,1.6498E+00_JPRB,& |
2297 |
✓✓ |
12 |
& 1.2844E+00_JPRB,9.0267E-01_JPRB,8.0194E-01_JPRB,8.2874E-01_JPRB,5.7004E+00_JPRB/) |
2298 |
|
|
KAO( :, 5,10,11) = (/& |
2299 |
|
|
& 3.3392E+00_JPRB,3.0005E+00_JPRB,2.6833E+00_JPRB,2.3869E+00_JPRB,2.0631E+00_JPRB,1.7311E+00_JPRB,& |
2300 |
✓✓ |
12 |
& 1.3746E+00_JPRB,1.0270E+00_JPRB,9.9701E-01_JPRB,1.0314E+00_JPRB,5.9087E+00_JPRB/) |
2301 |
|
|
KAO( :, 1,11,11) = (/& |
2302 |
|
|
& 3.5791E+00_JPRB,3.1435E+00_JPRB,2.7380E+00_JPRB,2.3402E+00_JPRB,1.9223E+00_JPRB,1.5197E+00_JPRB,& |
2303 |
✓✓ |
12 |
& 1.1123E+00_JPRB,6.8009E-01_JPRB,3.6796E-01_JPRB,3.2253E-01_JPRB,8.7180E+00_JPRB/) |
2304 |
|
|
KAO( :, 2,11,11) = (/& |
2305 |
|
|
& 3.6087E+00_JPRB,3.1771E+00_JPRB,2.7948E+00_JPRB,2.3883E+00_JPRB,1.9888E+00_JPRB,1.5919E+00_JPRB,& |
2306 |
✓✓ |
12 |
& 1.1796E+00_JPRB,7.5512E-01_JPRB,4.5552E-01_JPRB,4.4047E-01_JPRB,8.8675E+00_JPRB/) |
2307 |
|
|
KAO( :, 3,11,11) = (/& |
2308 |
|
|
& 3.6204E+00_JPRB,3.2046E+00_JPRB,2.8376E+00_JPRB,2.4402E+00_JPRB,2.0562E+00_JPRB,1.6610E+00_JPRB,& |
2309 |
✓✓ |
12 |
& 1.2640E+00_JPRB,8.3788E-01_JPRB,5.7436E-01_JPRB,5.8089E-01_JPRB,8.9648E+00_JPRB/) |
2310 |
|
|
KAO( :, 4,11,11) = (/& |
2311 |
|
|
& 3.6182E+00_JPRB,3.2254E+00_JPRB,2.8581E+00_JPRB,2.4960E+00_JPRB,2.1196E+00_JPRB,1.7427E+00_JPRB,& |
2312 |
✓✓ |
12 |
& 1.3559E+00_JPRB,9.2621E-01_JPRB,7.2423E-01_JPRB,7.4487E-01_JPRB,9.1149E+00_JPRB/) |
2313 |
|
|
KAO( :, 5,11,11) = (/& |
2314 |
|
|
& 3.6174E+00_JPRB,3.2471E+00_JPRB,2.8980E+00_JPRB,2.5529E+00_JPRB,2.1857E+00_JPRB,1.8304E+00_JPRB,& |
2315 |
✓✓ |
12 |
& 1.4477E+00_JPRB,1.0248E+00_JPRB,8.9846E-01_JPRB,9.2879E-01_JPRB,9.3291E+00_JPRB/) |
2316 |
|
|
KAO( :, 1,12,11) = (/& |
2317 |
|
|
& 3.8356E+00_JPRB,3.3697E+00_JPRB,2.9444E+00_JPRB,2.5088E+00_JPRB,2.0569E+00_JPRB,1.6203E+00_JPRB,& |
2318 |
✓✓ |
12 |
& 1.1634E+00_JPRB,7.0598E-01_JPRB,3.6756E-01_JPRB,2.8729E-01_JPRB,1.0641E+01_JPRB/) |
2319 |
|
|
KAO( :, 2,12,11) = (/& |
2320 |
|
|
& 3.8609E+00_JPRB,3.3997E+00_JPRB,3.0019E+00_JPRB,2.5600E+00_JPRB,2.1300E+00_JPRB,1.6898E+00_JPRB,& |
2321 |
✓✓ |
12 |
& 1.2364E+00_JPRB,7.8348E-01_JPRB,4.3743E-01_JPRB,3.9283E-01_JPRB,1.0771E+01_JPRB/) |
2322 |
|
|
KAO( :, 3,12,11) = (/& |
2323 |
|
|
& 3.8613E+00_JPRB,3.4230E+00_JPRB,3.0314E+00_JPRB,2.6152E+00_JPRB,2.1935E+00_JPRB,1.7589E+00_JPRB,& |
2324 |
✓✓ |
12 |
& 1.3202E+00_JPRB,8.6394E-01_JPRB,5.3376E-01_JPRB,5.1970E-01_JPRB,1.0841E+01_JPRB/) |
2325 |
|
|
KAO( :, 4,12,11) = (/& |
2326 |
|
|
& 3.8625E+00_JPRB,3.4569E+00_JPRB,3.0618E+00_JPRB,2.6703E+00_JPRB,2.2548E+00_JPRB,1.8353E+00_JPRB,& |
2327 |
✓✓ |
12 |
& 1.4152E+00_JPRB,9.4767E-01_JPRB,6.5928E-01_JPRB,6.6542E-01_JPRB,1.0973E+01_JPRB/) |
2328 |
|
|
KAO( :, 5,12,11) = (/& |
2329 |
|
|
& 3.8581E+00_JPRB,3.4796E+00_JPRB,3.1105E+00_JPRB,2.7293E+00_JPRB,2.3221E+00_JPRB,1.9216E+00_JPRB,& |
2330 |
✓✓ |
12 |
& 1.5109E+00_JPRB,1.0379E+00_JPRB,8.1824E-01_JPRB,8.3851E-01_JPRB,1.1187E+01_JPRB/) |
2331 |
|
|
KAO( :, 1,13,11) = (/& |
2332 |
|
|
& 3.9871E+00_JPRB,3.5054E+00_JPRB,3.0792E+00_JPRB,2.6225E+00_JPRB,2.1590E+00_JPRB,1.6999E+00_JPRB,& |
2333 |
✓✓ |
12 |
& 1.2116E+00_JPRB,7.2436E-01_JPRB,3.6726E-01_JPRB,2.5477E-01_JPRB,9.9516E+00_JPRB/) |
2334 |
|
|
KAO( :, 2,13,11) = (/& |
2335 |
|
|
& 3.9908E+00_JPRB,3.5178E+00_JPRB,3.1201E+00_JPRB,2.6682E+00_JPRB,2.2282E+00_JPRB,1.7642E+00_JPRB,& |
2336 |
✓✓ |
12 |
& 1.2901E+00_JPRB,8.0058E-01_JPRB,4.3056E-01_JPRB,3.4969E-01_JPRB,1.0028E+01_JPRB/) |
2337 |
|
|
KAO( :, 3,13,11) = (/& |
2338 |
|
|
& 3.9925E+00_JPRB,3.5529E+00_JPRB,3.1500E+00_JPRB,2.7322E+00_JPRB,2.2922E+00_JPRB,1.8395E+00_JPRB,& |
2339 |
✓✓ |
12 |
& 1.3733E+00_JPRB,8.8117E-01_JPRB,5.1140E-01_JPRB,4.6457E-01_JPRB,1.0124E+01_JPRB/) |
2340 |
|
|
KAO( :, 4,13,11) = (/& |
2341 |
|
|
& 3.9936E+00_JPRB,3.5963E+00_JPRB,3.1980E+00_JPRB,2.7942E+00_JPRB,2.3651E+00_JPRB,1.9195E+00_JPRB,& |
2342 |
✓✓ |
12 |
& 1.4609E+00_JPRB,9.6392E-01_JPRB,6.1546E-01_JPRB,5.9986E-01_JPRB,1.0319E+01_JPRB/) |
2343 |
|
|
KAO( :, 5,13,11) = (/& |
2344 |
|
|
& 3.9766E+00_JPRB,3.6110E+00_JPRB,3.2440E+00_JPRB,2.8558E+00_JPRB,2.4407E+00_JPRB,2.0092E+00_JPRB,& |
2345 |
✓✓ |
12 |
& 1.5546E+00_JPRB,1.0530E+00_JPRB,7.5480E-01_JPRB,7.6043E-01_JPRB,1.0517E+01_JPRB/) |
2346 |
|
|
KAO( :, 1, 1,12) = (/& |
2347 |
|
|
& 2.0024E+00_JPRB,1.8234E+00_JPRB,1.7233E+00_JPRB,1.6000E+00_JPRB,1.5390E+00_JPRB,1.6921E+00_JPRB,& |
2348 |
✓✓ |
12 |
& 2.0059E+00_JPRB,2.3183E+00_JPRB,2.5294E+00_JPRB,2.5972E+00_JPRB,2.5881E+00_JPRB/) |
2349 |
|
|
KAO( :, 2, 1,12) = (/& |
2350 |
|
|
& 1.9590E+00_JPRB,1.7950E+00_JPRB,1.7523E+00_JPRB,1.6313E+00_JPRB,1.6912E+00_JPRB,2.0086E+00_JPRB,& |
2351 |
✓✓ |
12 |
& 2.3854E+00_JPRB,2.7609E+00_JPRB,3.0136E+00_JPRB,3.0926E+00_JPRB,3.0692E+00_JPRB/) |
2352 |
|
|
KAO( :, 3, 1,12) = (/& |
2353 |
|
|
& 1.9218E+00_JPRB,1.7695E+00_JPRB,1.7573E+00_JPRB,1.7104E+00_JPRB,1.9221E+00_JPRB,2.3617E+00_JPRB,& |
2354 |
✓✓ |
12 |
& 2.8084E+00_JPRB,3.2536E+00_JPRB,3.5528E+00_JPRB,3.6452E+00_JPRB,3.6033E+00_JPRB/) |
2355 |
|
|
KAO( :, 4, 1,12) = (/& |
2356 |
|
|
& 1.8869E+00_JPRB,1.7776E+00_JPRB,1.7584E+00_JPRB,1.8482E+00_JPRB,2.2062E+00_JPRB,2.7254E+00_JPRB,& |
2357 |
✓✓ |
12 |
& 3.2420E+00_JPRB,3.7568E+00_JPRB,4.1037E+00_JPRB,4.2125E+00_JPRB,4.1721E+00_JPRB/) |
2358 |
|
|
KAO( :, 5, 1,12) = (/& |
2359 |
|
|
& 1.8556E+00_JPRB,1.7835E+00_JPRB,1.7826E+00_JPRB,2.0106E+00_JPRB,2.5078E+00_JPRB,3.0956E+00_JPRB,& |
2360 |
✓✓ |
12 |
& 3.6815E+00_JPRB,4.2658E+00_JPRB,4.6607E+00_JPRB,4.7891E+00_JPRB,4.7658E+00_JPRB/) |
2361 |
|
|
KAO( :, 1, 2,12) = (/& |
2362 |
|
|
& 2.1298E+00_JPRB,1.9238E+00_JPRB,1.7993E+00_JPRB,1.6635E+00_JPRB,1.5382E+00_JPRB,1.6444E+00_JPRB,& |
2363 |
✓✓ |
12 |
& 1.9357E+00_JPRB,2.2355E+00_JPRB,2.4380E+00_JPRB,2.5040E+00_JPRB,2.5099E+00_JPRB/) |
2364 |
|
|
KAO( :, 2, 2,12) = (/& |
2365 |
|
|
& 2.0858E+00_JPRB,1.8949E+00_JPRB,1.8227E+00_JPRB,1.6898E+00_JPRB,1.7064E+00_JPRB,1.9739E+00_JPRB,& |
2366 |
✓✓ |
12 |
& 2.3396E+00_JPRB,2.7042E+00_JPRB,2.9505E+00_JPRB,3.0304E+00_JPRB,3.0347E+00_JPRB/) |
2367 |
|
|
KAO( :, 3, 2,12) = (/& |
2368 |
|
|
& 2.0506E+00_JPRB,1.8767E+00_JPRB,1.8261E+00_JPRB,1.7610E+00_JPRB,1.9334E+00_JPRB,2.3331E+00_JPRB,& |
2369 |
✓✓ |
12 |
& 2.7675E+00_JPRB,3.2005E+00_JPRB,3.4937E+00_JPRB,3.5905E+00_JPRB,3.6006E+00_JPRB/) |
2370 |
|
|
KAO( :, 4, 2,12) = (/& |
2371 |
|
|
& 2.0203E+00_JPRB,1.8859E+00_JPRB,1.8248E+00_JPRB,1.8919E+00_JPRB,2.2034E+00_JPRB,2.7037E+00_JPRB,& |
2372 |
✓✓ |
12 |
& 3.2087E+00_JPRB,3.7127E+00_JPRB,4.0556E+00_JPRB,4.1705E+00_JPRB,4.1872E+00_JPRB/) |
2373 |
|
|
KAO( :, 5, 2,12) = (/& |
2374 |
|
|
& 1.9908E+00_JPRB,1.8904E+00_JPRB,1.8512E+00_JPRB,2.0461E+00_JPRB,2.4857E+00_JPRB,3.0612E+00_JPRB,& |
2375 |
✓✓ |
12 |
& 3.6347E+00_JPRB,4.2084E+00_JPRB,4.6000E+00_JPRB,4.7320E+00_JPRB,4.7545E+00_JPRB/) |
2376 |
|
|
KAO( :, 1, 3,12) = (/& |
2377 |
|
|
& 2.3152E+00_JPRB,2.0670E+00_JPRB,1.8762E+00_JPRB,1.7274E+00_JPRB,1.5513E+00_JPRB,1.5459E+00_JPRB,& |
2378 |
✓✓ |
12 |
& 1.7613E+00_JPRB,2.0324E+00_JPRB,2.2184E+00_JPRB,2.2809E+00_JPRB,2.3001E+00_JPRB/) |
2379 |
|
|
KAO( :, 2, 3,12) = (/& |
2380 |
|
|
& 2.2611E+00_JPRB,2.0302E+00_JPRB,1.8953E+00_JPRB,1.7501E+00_JPRB,1.6877E+00_JPRB,1.8252E+00_JPRB,& |
2381 |
✓✓ |
12 |
& 2.1469E+00_JPRB,2.4814E+00_JPRB,2.7105E+00_JPRB,2.7886E+00_JPRB,2.8127E+00_JPRB/) |
2382 |
|
|
KAO( :, 3, 3,12) = (/& |
2383 |
|
|
& 2.2196E+00_JPRB,2.0024E+00_JPRB,1.9041E+00_JPRB,1.8045E+00_JPRB,1.8785E+00_JPRB,2.1610E+00_JPRB,& |
2384 |
✓✓ |
12 |
& 2.5580E+00_JPRB,2.9591E+00_JPRB,3.2348E+00_JPRB,3.3294E+00_JPRB,3.3602E+00_JPRB/) |
2385 |
|
|
KAO( :, 4, 3,12) = (/& |
2386 |
|
|
& 2.1813E+00_JPRB,2.0049E+00_JPRB,1.9086E+00_JPRB,1.9162E+00_JPRB,2.1012E+00_JPRB,2.5182E+00_JPRB,& |
2387 |
✓✓ |
12 |
& 2.9831E+00_JPRB,3.4549E+00_JPRB,3.7770E+00_JPRB,3.8911E+00_JPRB,3.9291E+00_JPRB/) |
2388 |
|
|
KAO( :, 5, 3,12) = (/& |
2389 |
|
|
& 2.1479E+00_JPRB,2.0113E+00_JPRB,1.9331E+00_JPRB,2.0520E+00_JPRB,2.3502E+00_JPRB,2.8679E+00_JPRB,& |
2390 |
✓✓ |
12 |
& 3.4008E+00_JPRB,3.9406E+00_JPRB,4.3094E+00_JPRB,4.4428E+00_JPRB,4.4869E+00_JPRB/) |
2391 |
|
|
KAO( :, 1, 4,12) = (/& |
2392 |
|
|
& 2.5457E+00_JPRB,2.2591E+00_JPRB,2.0008E+00_JPRB,1.7948E+00_JPRB,1.5715E+00_JPRB,1.4721E+00_JPRB,& |
2393 |
✓✓ |
12 |
& 1.5451E+00_JPRB,1.7860E+00_JPRB,1.9513E+00_JPRB,2.0089E+00_JPRB,2.0285E+00_JPRB/) |
2394 |
|
|
KAO( :, 2, 4,12) = (/& |
2395 |
|
|
& 2.4902E+00_JPRB,2.2151E+00_JPRB,2.0050E+00_JPRB,1.8035E+00_JPRB,1.6846E+00_JPRB,1.6830E+00_JPRB,& |
2396 |
✓✓ |
12 |
& 1.9079E+00_JPRB,2.2087E+00_JPRB,2.4143E+00_JPRB,2.4852E+00_JPRB,2.5099E+00_JPRB/) |
2397 |
|
|
KAO( :, 3, 4,12) = (/& |
2398 |
|
|
& 2.4431E+00_JPRB,2.1812E+00_JPRB,2.0033E+00_JPRB,1.8558E+00_JPRB,1.8346E+00_JPRB,1.9529E+00_JPRB,& |
2399 |
✓✓ |
12 |
& 2.2983E+00_JPRB,2.6628E+00_JPRB,2.9108E+00_JPRB,2.9983E+00_JPRB,3.0280E+00_JPRB/) |
2400 |
|
|
KAO( :, 4, 4,12) = (/& |
2401 |
|
|
& 2.3979E+00_JPRB,2.1681E+00_JPRB,1.9996E+00_JPRB,1.9562E+00_JPRB,2.0099E+00_JPRB,2.2734E+00_JPRB,& |
2402 |
✓✓ |
12 |
& 2.7005E+00_JPRB,3.1310E+00_JPRB,3.4248E+00_JPRB,3.5296E+00_JPRB,3.5651E+00_JPRB/) |
2403 |
|
|
KAO( :, 5, 4,12) = (/& |
2404 |
|
|
& 2.3549E+00_JPRB,2.1677E+00_JPRB,2.0250E+00_JPRB,2.0706E+00_JPRB,2.2012E+00_JPRB,2.6084E+00_JPRB,& |
2405 |
✓✓ |
12 |
& 3.1023E+00_JPRB,3.5987E+00_JPRB,3.9377E+00_JPRB,4.0590E+00_JPRB,4.0984E+00_JPRB/) |
2406 |
|
|
KAO( :, 1, 5,12) = (/& |
2407 |
|
|
& 2.7985E+00_JPRB,2.4747E+00_JPRB,2.1629E+00_JPRB,1.9120E+00_JPRB,1.6257E+00_JPRB,1.4332E+00_JPRB,& |
2408 |
✓✓ |
12 |
& 1.3851E+00_JPRB,1.5480E+00_JPRB,1.6917E+00_JPRB,1.7423E+00_JPRB,1.7595E+00_JPRB/) |
2409 |
|
|
KAO( :, 2, 5,12) = (/& |
2410 |
|
|
& 2.7492E+00_JPRB,2.4385E+00_JPRB,2.1709E+00_JPRB,1.9088E+00_JPRB,1.7063E+00_JPRB,1.6093E+00_JPRB,& |
2411 |
✓✓ |
12 |
& 1.6827E+00_JPRB,1.9416E+00_JPRB,2.1228E+00_JPRB,2.1868E+00_JPRB,2.2077E+00_JPRB/) |
2412 |
|
|
KAO( :, 3, 5,12) = (/& |
2413 |
|
|
& 2.7030E+00_JPRB,2.4052E+00_JPRB,2.1654E+00_JPRB,1.9357E+00_JPRB,1.8221E+00_JPRB,1.8325E+00_JPRB,& |
2414 |
✓✓ |
12 |
& 2.0441E+00_JPRB,2.3696E+00_JPRB,2.5914E+00_JPRB,2.6707E+00_JPRB,2.6969E+00_JPRB/) |
2415 |
|
|
KAO( :, 4, 5,12) = (/& |
2416 |
|
|
& 2.6567E+00_JPRB,2.3812E+00_JPRB,2.1576E+00_JPRB,2.0192E+00_JPRB,1.9790E+00_JPRB,2.0835E+00_JPRB,& |
2417 |
✓✓ |
12 |
& 2.4268E+00_JPRB,2.8144E+00_JPRB,3.0796E+00_JPRB,3.1741E+00_JPRB,3.2046E+00_JPRB/) |
2418 |
|
|
KAO( :, 5, 5,12) = (/& |
2419 |
|
|
& 2.6110E+00_JPRB,2.3730E+00_JPRB,2.1635E+00_JPRB,2.1182E+00_JPRB,2.1485E+00_JPRB,2.3741E+00_JPRB,& |
2420 |
✓✓ |
12 |
& 2.8181E+00_JPRB,3.2699E+00_JPRB,3.5786E+00_JPRB,3.6897E+00_JPRB,3.7249E+00_JPRB/) |
2421 |
|
|
KAO( :, 1, 6,12) = (/& |
2422 |
|
|
& 3.0669E+00_JPRB,2.7085E+00_JPRB,2.3540E+00_JPRB,2.0714E+00_JPRB,1.7429E+00_JPRB,1.4581E+00_JPRB,& |
2423 |
✓✓ |
12 |
& 1.2708E+00_JPRB,1.2992E+00_JPRB,1.4199E+00_JPRB,1.4638E+00_JPRB,1.4769E+00_JPRB/) |
2424 |
|
|
KAO( :, 2, 6,12) = (/& |
2425 |
|
|
& 3.0273E+00_JPRB,2.6834E+00_JPRB,2.3740E+00_JPRB,2.0802E+00_JPRB,1.7965E+00_JPRB,1.5717E+00_JPRB,& |
2426 |
✓✓ |
12 |
& 1.5052E+00_JPRB,1.6583E+00_JPRB,1.8132E+00_JPRB,1.8699E+00_JPRB,1.8859E+00_JPRB/) |
2427 |
|
|
KAO( :, 3, 6,12) = (/& |
2428 |
|
|
& 2.9774E+00_JPRB,2.6481E+00_JPRB,2.3757E+00_JPRB,2.0942E+00_JPRB,1.8671E+00_JPRB,1.7544E+00_JPRB,& |
2429 |
✓✓ |
12 |
& 1.8026E+00_JPRB,2.0622E+00_JPRB,2.2566E+00_JPRB,2.3275E+00_JPRB,2.3474E+00_JPRB/) |
2430 |
|
|
KAO( :, 4, 6,12) = (/& |
2431 |
|
|
& 2.9289E+00_JPRB,2.6161E+00_JPRB,2.3748E+00_JPRB,2.1584E+00_JPRB,1.9838E+00_JPRB,1.9738E+00_JPRB,& |
2432 |
✓✓ |
12 |
& 2.1469E+00_JPRB,2.4888E+00_JPRB,2.7236E+00_JPRB,2.8101E+00_JPRB,2.8355E+00_JPRB/) |
2433 |
|
|
KAO( :, 5, 6,12) = (/& |
2434 |
|
|
& 2.8845E+00_JPRB,2.6155E+00_JPRB,2.3754E+00_JPRB,2.2196E+00_JPRB,2.1301E+00_JPRB,2.2099E+00_JPRB,& |
2435 |
✓✓ |
12 |
& 2.5314E+00_JPRB,2.9385E+00_JPRB,3.2168E+00_JPRB,3.3176E+00_JPRB,3.3483E+00_JPRB/) |
2436 |
|
|
KAO( :, 1, 7,12) = (/& |
2437 |
|
|
& 3.3664E+00_JPRB,2.9675E+00_JPRB,2.5762E+00_JPRB,2.2561E+00_JPRB,1.8881E+00_JPRB,1.5413E+00_JPRB,& |
2438 |
✓✓ |
12 |
& 1.2170E+00_JPRB,1.0953E+00_JPRB,1.1799E+00_JPRB,1.2170E+00_JPRB,1.2273E+00_JPRB/) |
2439 |
|
|
KAO( :, 2, 7,12) = (/& |
2440 |
|
|
& 3.3233E+00_JPRB,2.9434E+00_JPRB,2.5928E+00_JPRB,2.2752E+00_JPRB,1.9335E+00_JPRB,1.6227E+00_JPRB,& |
2441 |
✓✓ |
12 |
& 1.3832E+00_JPRB,1.3998E+00_JPRB,1.5310E+00_JPRB,1.5791E+00_JPRB,1.5922E+00_JPRB/) |
2442 |
|
|
KAO( :, 3, 7,12) = (/& |
2443 |
|
|
& 3.2746E+00_JPRB,2.9093E+00_JPRB,2.6019E+00_JPRB,2.2869E+00_JPRB,2.0053E+00_JPRB,1.7360E+00_JPRB,& |
2444 |
✓✓ |
12 |
& 1.6231E+00_JPRB,1.7636E+00_JPRB,1.9299E+00_JPRB,1.9918E+00_JPRB,2.0082E+00_JPRB/) |
2445 |
|
|
KAO( :, 4, 7,12) = (/& |
2446 |
|
|
& 3.2312E+00_JPRB,2.8766E+00_JPRB,2.6067E+00_JPRB,2.3470E+00_JPRB,2.0847E+00_JPRB,1.8980E+00_JPRB,& |
2447 |
✓✓ |
12 |
& 1.9031E+00_JPRB,2.1576E+00_JPRB,2.3620E+00_JPRB,2.4387E+00_JPRB,2.4578E+00_JPRB/) |
2448 |
|
|
KAO( :, 5, 7,12) = (/& |
2449 |
|
|
& 3.1925E+00_JPRB,2.8793E+00_JPRB,2.6061E+00_JPRB,2.4035E+00_JPRB,2.1834E+00_JPRB,2.1023E+00_JPRB,& |
2450 |
✓✓ |
12 |
& 2.2418E+00_JPRB,2.5923E+00_JPRB,2.8385E+00_JPRB,2.9297E+00_JPRB,2.9542E+00_JPRB/) |
2451 |
|
|
KAO( :, 1, 8,12) = (/& |
2452 |
|
|
& 3.6796E+00_JPRB,3.2357E+00_JPRB,2.8155E+00_JPRB,2.4508E+00_JPRB,2.0518E+00_JPRB,1.6449E+00_JPRB,& |
2453 |
✓✓ |
12 |
& 1.2564E+00_JPRB,9.4794E-01_JPRB,9.6423E-01_JPRB,9.9527E-01_JPRB,1.0031E+00_JPRB/) |
2454 |
|
|
KAO( :, 2, 8,12) = (/& |
2455 |
|
|
& 3.6371E+00_JPRB,3.2182E+00_JPRB,2.8214E+00_JPRB,2.4857E+00_JPRB,2.0950E+00_JPRB,1.7292E+00_JPRB,& |
2456 |
✓✓ |
12 |
& 1.3545E+00_JPRB,1.1961E+00_JPRB,1.2815E+00_JPRB,1.3224E+00_JPRB,1.3335E+00_JPRB/) |
2457 |
|
|
|
2458 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART8',1,ZHOOK_HANDLE) |
2459 |
|
1 |
END SUBROUTINE PART8 |
2460 |
|
|
|
2461 |
|
|
|
2462 |
|
1 |
SUBROUTINE PART9 |
2463 |
|
|
|
2464 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
2465 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART9',0,ZHOOK_HANDLE) |
2466 |
|
|
|
2467 |
|
|
|
2468 |
|
|
KAO( :, 3, 8,12) = (/& |
2469 |
|
|
& 3.5989E+00_JPRB,3.1965E+00_JPRB,2.8529E+00_JPRB,2.5009E+00_JPRB,2.1656E+00_JPRB,1.8143E+00_JPRB,& |
2470 |
✓✓ |
12 |
& 1.5162E+00_JPRB,1.5048E+00_JPRB,1.6425E+00_JPRB,1.6953E+00_JPRB,1.7094E+00_JPRB/) |
2471 |
|
|
KAO( :, 4, 8,12) = (/& |
2472 |
|
|
& 3.5657E+00_JPRB,3.1726E+00_JPRB,2.8689E+00_JPRB,2.5490E+00_JPRB,2.2397E+00_JPRB,1.9179E+00_JPRB,& |
2473 |
✓✓ |
12 |
& 1.7462E+00_JPRB,1.8651E+00_JPRB,2.0421E+00_JPRB,2.1078E+00_JPRB,2.1252E+00_JPRB/) |
2474 |
|
|
KAO( :, 5, 8,12) = (/& |
2475 |
|
|
& 3.5352E+00_JPRB,3.1791E+00_JPRB,2.8690E+00_JPRB,2.6021E+00_JPRB,2.3244E+00_JPRB,2.0668E+00_JPRB,& |
2476 |
✓✓ |
12 |
& 2.0251E+00_JPRB,2.2682E+00_JPRB,2.4843E+00_JPRB,2.5643E+00_JPRB,2.5857E+00_JPRB/) |
2477 |
|
|
KAO( :, 1, 9,12) = (/& |
2478 |
|
|
& 4.0318E+00_JPRB,3.5333E+00_JPRB,3.0785E+00_JPRB,2.6542E+00_JPRB,2.2190E+00_JPRB,1.7557E+00_JPRB,& |
2479 |
✓✓ |
12 |
& 1.3174E+00_JPRB,8.6677E-01_JPRB,7.7038E-01_JPRB,7.9546E-01_JPRB,1.7542E+00_JPRB/) |
2480 |
|
|
KAO( :, 2, 9,12) = (/& |
2481 |
|
|
& 4.0030E+00_JPRB,3.5307E+00_JPRB,3.0824E+00_JPRB,2.7001E+00_JPRB,2.2575E+00_JPRB,1.8461E+00_JPRB,& |
2482 |
✓✓ |
12 |
& 1.4064E+00_JPRB,1.0445E+00_JPRB,1.0532E+00_JPRB,1.0871E+00_JPRB,1.8981E+00_JPRB/) |
2483 |
|
|
KAO( :, 3, 9,12) = (/& |
2484 |
|
|
& 3.9727E+00_JPRB,3.5227E+00_JPRB,3.1268E+00_JPRB,2.7209E+00_JPRB,2.3294E+00_JPRB,1.9265E+00_JPRB,& |
2485 |
✓✓ |
12 |
& 1.5119E+00_JPRB,1.3023E+00_JPRB,1.3838E+00_JPRB,1.4291E+00_JPRB,2.0473E+00_JPRB/) |
2486 |
|
|
KAO( :, 4, 9,12) = (/& |
2487 |
|
|
& 3.9416E+00_JPRB,3.5045E+00_JPRB,3.1488E+00_JPRB,2.7628E+00_JPRB,2.4024E+00_JPRB,2.0175E+00_JPRB,& |
2488 |
✓✓ |
12 |
& 1.6727E+00_JPRB,1.6129E+00_JPRB,1.7549E+00_JPRB,1.8115E+00_JPRB,2.2264E+00_JPRB/) |
2489 |
|
|
KAO( :, 5, 9,12) = (/& |
2490 |
|
|
& 3.9107E+00_JPRB,3.5025E+00_JPRB,3.1553E+00_JPRB,2.8210E+00_JPRB,2.4858E+00_JPRB,2.1278E+00_JPRB,& |
2491 |
✓✓ |
12 |
& 1.8886E+00_JPRB,1.9733E+00_JPRB,2.1611E+00_JPRB,2.2311E+00_JPRB,2.4535E+00_JPRB/) |
2492 |
|
|
KAO( :, 1,10,12) = (/& |
2493 |
|
|
& 4.3955E+00_JPRB,3.8477E+00_JPRB,3.3521E+00_JPRB,2.8767E+00_JPRB,2.3926E+00_JPRB,1.8785E+00_JPRB,& |
2494 |
✓✓ |
12 |
& 1.3866E+00_JPRB,8.6336E-01_JPRB,6.3346E-01_JPRB,6.4780E-01_JPRB,7.3111E+00_JPRB/) |
2495 |
|
|
KAO( :, 2,10,12) = (/& |
2496 |
|
|
& 4.3744E+00_JPRB,3.8521E+00_JPRB,3.3628E+00_JPRB,2.9299E+00_JPRB,2.4350E+00_JPRB,1.9605E+00_JPRB,& |
2497 |
✓✓ |
12 |
& 1.4761E+00_JPRB,9.8354E-01_JPRB,8.7753E-01_JPRB,9.0596E-01_JPRB,7.5369E+00_JPRB/) |
2498 |
|
|
KAO( :, 3,10,12) = (/& |
2499 |
|
|
& 4.3454E+00_JPRB,3.8426E+00_JPRB,3.4089E+00_JPRB,2.9580E+00_JPRB,2.5003E+00_JPRB,2.0431E+00_JPRB,& |
2500 |
✓✓ |
12 |
& 1.5702E+00_JPRB,1.1751E+00_JPRB,1.1717E+00_JPRB,1.2103E+00_JPRB,7.6962E+00_JPRB/) |
2501 |
|
|
KAO( :, 4,10,12) = (/& |
2502 |
|
|
& 4.3187E+00_JPRB,3.8382E+00_JPRB,3.4396E+00_JPRB,2.9970E+00_JPRB,2.5770E+00_JPRB,2.1340E+00_JPRB,& |
2503 |
✓✓ |
12 |
& 1.7005E+00_JPRB,1.4326E+00_JPRB,1.5105E+00_JPRB,1.5607E+00_JPRB,7.8986E+00_JPRB/) |
2504 |
|
|
KAO( :, 5,10,12) = (/& |
2505 |
|
|
& 4.2903E+00_JPRB,3.8382E+00_JPRB,3.4516E+00_JPRB,3.0612E+00_JPRB,2.6632E+00_JPRB,2.2380E+00_JPRB,& |
2506 |
✓✓ |
12 |
& 1.8630E+00_JPRB,1.7458E+00_JPRB,1.8899E+00_JPRB,1.9522E+00_JPRB,8.1725E+00_JPRB/) |
2507 |
|
|
KAO( :, 1,11,12) = (/& |
2508 |
|
|
& 4.7308E+00_JPRB,4.1459E+00_JPRB,3.6107E+00_JPRB,3.1115E+00_JPRB,2.5799E+00_JPRB,2.0280E+00_JPRB,& |
2509 |
✓✓ |
12 |
& 1.4948E+00_JPRB,9.2025E-01_JPRB,6.1405E-01_JPRB,6.1696E-01_JPRB,1.2757E+01_JPRB/) |
2510 |
|
|
KAO( :, 2,11,12) = (/& |
2511 |
|
|
& 4.7091E+00_JPRB,4.1481E+00_JPRB,3.6443E+00_JPRB,3.1635E+00_JPRB,2.6293E+00_JPRB,2.1180E+00_JPRB,& |
2512 |
✓✓ |
12 |
& 1.5850E+00_JPRB,1.0412E+00_JPRB,8.3722E-01_JPRB,8.6133E-01_JPRB,1.3027E+01_JPRB/) |
2513 |
|
|
KAO( :, 3,11,12) = (/& |
2514 |
|
|
& 4.6897E+00_JPRB,4.1435E+00_JPRB,3.6990E+00_JPRB,3.1970E+00_JPRB,2.7141E+00_JPRB,2.2094E+00_JPRB,& |
2515 |
✓✓ |
12 |
& 1.6909E+00_JPRB,1.1958E+00_JPRB,1.1123E+00_JPRB,1.1498E+00_JPRB,1.3314E+01_JPRB/) |
2516 |
|
|
KAO( :, 4,11,12) = (/& |
2517 |
|
|
& 4.6692E+00_JPRB,4.1531E+00_JPRB,3.7297E+00_JPRB,3.2622E+00_JPRB,2.7974E+00_JPRB,2.3063E+00_JPRB,& |
2518 |
✓✓ |
12 |
& 1.8183E+00_JPRB,1.4163E+00_JPRB,1.4330E+00_JPRB,1.4813E+00_JPRB,1.3489E+01_JPRB/) |
2519 |
|
|
KAO( :, 5,11,12) = (/& |
2520 |
|
|
& 4.6420E+00_JPRB,4.1769E+00_JPRB,3.7456E+00_JPRB,3.3296E+00_JPRB,2.8874E+00_JPRB,2.4151E+00_JPRB,& |
2521 |
✓✓ |
12 |
& 1.9751E+00_JPRB,1.6959E+00_JPRB,1.7942E+00_JPRB,1.8551E+00_JPRB,1.3680E+01_JPRB/) |
2522 |
|
|
KAO( :, 1,12,12) = (/& |
2523 |
|
|
& 5.0416E+00_JPRB,4.4234E+00_JPRB,3.8522E+00_JPRB,3.3241E+00_JPRB,2.7470E+00_JPRB,2.1693E+00_JPRB,& |
2524 |
✓✓ |
12 |
& 1.6007E+00_JPRB,9.8107E-01_JPRB,5.9628E-01_JPRB,5.7876E-01_JPRB,1.6383E+01_JPRB/) |
2525 |
|
|
KAO( :, 2,12,12) = (/& |
2526 |
|
|
& 5.0347E+00_JPRB,4.4335E+00_JPRB,3.9118E+00_JPRB,3.3765E+00_JPRB,2.8152E+00_JPRB,2.2721E+00_JPRB,& |
2527 |
✓✓ |
12 |
& 1.6921E+00_JPRB,1.0981E+00_JPRB,7.9216E-01_JPRB,8.0484E-01_JPRB,1.6695E+01_JPRB/) |
2528 |
|
|
KAO( :, 3,12,12) = (/& |
2529 |
|
|
& 5.0354E+00_JPRB,4.4439E+00_JPRB,3.9725E+00_JPRB,3.4283E+00_JPRB,2.9170E+00_JPRB,2.3708E+00_JPRB,& |
2530 |
✓✓ |
12 |
& 1.8115E+00_JPRB,1.2441E+00_JPRB,1.0402E+00_JPRB,1.0726E+00_JPRB,1.7028E+01_JPRB/) |
2531 |
|
|
KAO( :, 4,12,12) = (/& |
2532 |
|
|
& 5.0236E+00_JPRB,4.4684E+00_JPRB,4.0052E+00_JPRB,3.5139E+00_JPRB,3.0129E+00_JPRB,2.4842E+00_JPRB,& |
2533 |
✓✓ |
12 |
& 1.9405E+00_JPRB,1.4225E+00_JPRB,1.3339E+00_JPRB,1.3805E+00_JPRB,1.7215E+01_JPRB/) |
2534 |
|
|
KAO( :, 5,12,12) = (/& |
2535 |
|
|
& 5.0049E+00_JPRB,4.5094E+00_JPRB,4.0368E+00_JPRB,3.5937E+00_JPRB,3.1097E+00_JPRB,2.6019E+00_JPRB,& |
2536 |
✓✓ |
12 |
& 2.0929E+00_JPRB,1.6533E+00_JPRB,1.6680E+00_JPRB,1.7268E+00_JPRB,1.7382E+01_JPRB/) |
2537 |
|
|
KAO( :, 1,13,12) = (/& |
2538 |
|
|
& 5.3304E+00_JPRB,4.6811E+00_JPRB,4.0819E+00_JPRB,3.5134E+00_JPRB,2.8970E+00_JPRB,2.2995E+00_JPRB,& |
2539 |
✓✓ |
12 |
& 1.6906E+00_JPRB,1.0389E+00_JPRB,5.8422E-01_JPRB,5.3149E-01_JPRB,1.6186E+01_JPRB/) |
2540 |
|
|
KAO( :, 2,13,12) = (/& |
2541 |
|
|
& 5.3554E+00_JPRB,4.7152E+00_JPRB,4.1740E+00_JPRB,3.5813E+00_JPRB,2.9917E+00_JPRB,2.4106E+00_JPRB,& |
2542 |
✓✓ |
12 |
& 1.7931E+00_JPRB,1.1573E+00_JPRB,7.4488E-01_JPRB,7.3540E-01_JPRB,1.6553E+01_JPRB/) |
2543 |
|
|
KAO( :, 3,13,12) = (/& |
2544 |
|
|
& 5.3653E+00_JPRB,4.7361E+00_JPRB,4.2367E+00_JPRB,3.6559E+00_JPRB,3.0996E+00_JPRB,2.5206E+00_JPRB,& |
2545 |
✓✓ |
12 |
& 1.9222E+00_JPRB,1.2910E+00_JPRB,9.5651E-01_JPRB,9.7652E-01_JPRB,1.6790E+01_JPRB/) |
2546 |
|
|
KAO( :, 4,13,12) = (/& |
2547 |
|
|
& 5.3597E+00_JPRB,4.7768E+00_JPRB,4.2708E+00_JPRB,3.7474E+00_JPRB,3.2027E+00_JPRB,2.6474E+00_JPRB,& |
2548 |
✓✓ |
12 |
& 2.0605E+00_JPRB,1.4452E+00_JPRB,1.2190E+00_JPRB,1.2583E+00_JPRB,1.6940E+01_JPRB/) |
2549 |
|
|
KAO( :, 5,13,12) = (/& |
2550 |
|
|
& 5.3540E+00_JPRB,4.8243E+00_JPRB,4.3295E+00_JPRB,3.8360E+00_JPRB,3.3105E+00_JPRB,2.7756E+00_JPRB,& |
2551 |
✓✓ |
12 |
& 2.2095E+00_JPRB,1.6297E+00_JPRB,1.5189E+00_JPRB,1.5724E+00_JPRB,1.7194E+01_JPRB/) |
2552 |
|
|
KAO( :, 1, 1,13) = (/& |
2553 |
|
|
& 2.4839E+00_JPRB,2.2228E+00_JPRB,1.9877E+00_JPRB,1.9817E+00_JPRB,2.1295E+00_JPRB,2.6064E+00_JPRB,& |
2554 |
✓✓ |
12 |
& 3.1026E+00_JPRB,3.6009E+00_JPRB,3.9384E+00_JPRB,4.0531E+00_JPRB,4.0630E+00_JPRB/) |
2555 |
|
|
KAO( :, 2, 1,13) = (/& |
2556 |
|
|
& 2.4167E+00_JPRB,2.1788E+00_JPRB,2.0545E+00_JPRB,2.1075E+00_JPRB,2.4600E+00_JPRB,3.0319E+00_JPRB,& |
2557 |
✓✓ |
12 |
& 3.6075E+00_JPRB,4.1850E+00_JPRB,4.5773E+00_JPRB,4.7124E+00_JPRB,4.7383E+00_JPRB/) |
2558 |
|
|
KAO( :, 3, 1,13) = (/& |
2559 |
|
|
& 2.3519E+00_JPRB,2.1341E+00_JPRB,2.1343E+00_JPRB,2.2717E+00_JPRB,2.8227E+00_JPRB,3.4785E+00_JPRB,& |
2560 |
✓✓ |
12 |
& 4.1394E+00_JPRB,4.8027E+00_JPRB,5.2528E+00_JPRB,5.4080E+00_JPRB,5.4468E+00_JPRB/) |
2561 |
|
|
KAO( :, 4, 1,13) = (/& |
2562 |
|
|
& 2.2895E+00_JPRB,2.0936E+00_JPRB,2.2122E+00_JPRB,2.4949E+00_JPRB,3.2196E+00_JPRB,3.9764E+00_JPRB,& |
2563 |
✓✓ |
12 |
& 4.7367E+00_JPRB,5.4979E+00_JPRB,6.0151E+00_JPRB,6.1897E+00_JPRB,6.2191E+00_JPRB/) |
2564 |
|
|
KAO( :, 5, 1,13) = (/& |
2565 |
|
|
& 2.2294E+00_JPRB,2.0855E+00_JPRB,2.2831E+00_JPRB,2.7897E+00_JPRB,3.6518E+00_JPRB,4.5202E+00_JPRB,& |
2566 |
✓✓ |
12 |
& 5.3909E+00_JPRB,6.2623E+00_JPRB,6.8525E+00_JPRB,7.0478E+00_JPRB,7.0466E+00_JPRB/) |
2567 |
|
|
KAO( :, 1, 2,13) = (/& |
2568 |
|
|
& 2.6401E+00_JPRB,2.3655E+00_JPRB,2.1111E+00_JPRB,2.0137E+00_JPRB,2.0825E+00_JPRB,2.5044E+00_JPRB,& |
2569 |
✓✓ |
12 |
& 2.9828E+00_JPRB,3.4624E+00_JPRB,3.7882E+00_JPRB,3.8997E+00_JPRB,3.9250E+00_JPRB/) |
2570 |
|
|
KAO( :, 2, 2,13) = (/& |
2571 |
|
|
& 2.5670E+00_JPRB,2.3197E+00_JPRB,2.1659E+00_JPRB,2.1086E+00_JPRB,2.3636E+00_JPRB,2.9098E+00_JPRB,& |
2572 |
✓✓ |
12 |
& 3.4676E+00_JPRB,4.0262E+00_JPRB,4.4056E+00_JPRB,4.5331E+00_JPRB,4.5625E+00_JPRB/) |
2573 |
|
|
KAO( :, 3, 2,13) = (/& |
2574 |
|
|
& 2.4971E+00_JPRB,2.2719E+00_JPRB,2.2158E+00_JPRB,2.2307E+00_JPRB,2.7197E+00_JPRB,3.3654E+00_JPRB,& |
2575 |
✓✓ |
12 |
& 4.0138E+00_JPRB,4.6621E+00_JPRB,5.1023E+00_JPRB,5.2462E+00_JPRB,5.2684E+00_JPRB/) |
2576 |
|
|
KAO( :, 4, 2,13) = (/& |
2577 |
|
|
& 2.4323E+00_JPRB,2.2338E+00_JPRB,2.2635E+00_JPRB,2.4358E+00_JPRB,3.1246E+00_JPRB,3.8712E+00_JPRB,& |
2578 |
✓✓ |
12 |
& 4.6205E+00_JPRB,5.3694E+00_JPRB,5.8768E+00_JPRB,6.0401E+00_JPRB,6.0554E+00_JPRB/) |
2579 |
|
|
KAO( :, 5, 2,13) = (/& |
2580 |
|
|
& 2.3760E+00_JPRB,2.2281E+00_JPRB,2.3133E+00_JPRB,2.7376E+00_JPRB,3.5897E+00_JPRB,4.4519E+00_JPRB,& |
2581 |
✓✓ |
12 |
& 5.3157E+00_JPRB,6.1803E+00_JPRB,6.7635E+00_JPRB,6.9497E+00_JPRB,6.9610E+00_JPRB/) |
2582 |
|
|
KAO( :, 1, 3,13) = (/& |
2583 |
|
|
& 2.8086E+00_JPRB,2.5114E+00_JPRB,2.2208E+00_JPRB,2.0677E+00_JPRB,2.0427E+00_JPRB,2.3373E+00_JPRB,& |
2584 |
✓✓ |
12 |
& 2.7874E+00_JPRB,3.2384E+00_JPRB,3.5440E+00_JPRB,3.6445E+00_JPRB,3.6749E+00_JPRB/) |
2585 |
|
|
KAO( :, 2, 3,13) = (/& |
2586 |
|
|
& 2.7404E+00_JPRB,2.4643E+00_JPRB,2.2716E+00_JPRB,2.1464E+00_JPRB,2.2628E+00_JPRB,2.7529E+00_JPRB,& |
2587 |
✓✓ |
12 |
& 3.2849E+00_JPRB,3.8172E+00_JPRB,4.1782E+00_JPRB,4.2940E+00_JPRB,4.3270E+00_JPRB/) |
2588 |
|
|
KAO( :, 3, 3,13) = (/& |
2589 |
|
|
& 2.6764E+00_JPRB,2.4178E+00_JPRB,2.3087E+00_JPRB,2.2456E+00_JPRB,2.5986E+00_JPRB,3.2215E+00_JPRB,& |
2590 |
✓✓ |
12 |
& 3.8463E+00_JPRB,4.4711E+00_JPRB,4.8938E+00_JPRB,5.0274E+00_JPRB,5.0645E+00_JPRB/) |
2591 |
|
|
KAO( :, 4, 3,13) = (/& |
2592 |
|
|
& 2.6211E+00_JPRB,2.3803E+00_JPRB,2.3402E+00_JPRB,2.4064E+00_JPRB,3.0169E+00_JPRB,3.7447E+00_JPRB,& |
2593 |
✓✓ |
12 |
& 4.4738E+00_JPRB,5.2031E+00_JPRB,5.6949E+00_JPRB,5.8469E+00_JPRB,5.8866E+00_JPRB/) |
2594 |
|
|
KAO( :, 5, 3,13) = (/& |
2595 |
|
|
& 2.5706E+00_JPRB,2.3763E+00_JPRB,2.3730E+00_JPRB,2.6809E+00_JPRB,3.4926E+00_JPRB,4.3391E+00_JPRB,& |
2596 |
✓✓ |
12 |
& 5.1873E+00_JPRB,6.0352E+00_JPRB,6.6054E+00_JPRB,6.7799E+00_JPRB,6.8242E+00_JPRB/) |
2597 |
|
|
KAO( :, 1, 4,13) = (/& |
2598 |
|
|
& 2.9705E+00_JPRB,2.6437E+00_JPRB,2.3228E+00_JPRB,2.1502E+00_JPRB,2.0620E+00_JPRB,2.1581E+00_JPRB,& |
2599 |
✓✓ |
12 |
& 2.5548E+00_JPRB,2.9693E+00_JPRB,3.2504E+00_JPRB,3.3452E+00_JPRB,3.3799E+00_JPRB/) |
2600 |
|
|
KAO( :, 2, 4,13) = (/& |
2601 |
|
|
& 2.9060E+00_JPRB,2.6045E+00_JPRB,2.3805E+00_JPRB,2.2339E+00_JPRB,2.2319E+00_JPRB,2.5887E+00_JPRB,& |
2602 |
✓✓ |
12 |
& 3.0909E+00_JPRB,3.5931E+00_JPRB,3.9330E+00_JPRB,4.0437E+00_JPRB,4.0869E+00_JPRB/) |
2603 |
|
|
KAO( :, 3, 4,13) = (/& |
2604 |
|
|
& 2.8503E+00_JPRB,2.5669E+00_JPRB,2.4183E+00_JPRB,2.3219E+00_JPRB,2.5237E+00_JPRB,3.0875E+00_JPRB,& |
2605 |
✓✓ |
12 |
& 3.6882E+00_JPRB,4.2895E+00_JPRB,4.6950E+00_JPRB,4.8250E+00_JPRB,4.8772E+00_JPRB/) |
2606 |
|
|
KAO( :, 4, 4,13) = (/& |
2607 |
|
|
& 2.8040E+00_JPRB,2.5355E+00_JPRB,2.4511E+00_JPRB,2.4730E+00_JPRB,2.9343E+00_JPRB,3.6460E+00_JPRB,& |
2608 |
✓✓ |
12 |
& 4.3587E+00_JPRB,5.0710E+00_JPRB,5.5512E+00_JPRB,5.6975E+00_JPRB,5.7609E+00_JPRB/) |
2609 |
|
|
KAO( :, 5, 4,13) = (/& |
2610 |
|
|
& 2.7640E+00_JPRB,2.5346E+00_JPRB,2.4816E+00_JPRB,2.7138E+00_JPRB,3.4317E+00_JPRB,4.2678E+00_JPRB,& |
2611 |
✓✓ |
12 |
& 5.1048E+00_JPRB,5.9414E+00_JPRB,6.5038E+00_JPRB,6.6733E+00_JPRB,6.7499E+00_JPRB/) |
2612 |
|
|
KAO( :, 1, 5,13) = (/& |
2613 |
|
|
& 3.2157E+00_JPRB,2.8490E+00_JPRB,2.4890E+00_JPRB,2.2607E+00_JPRB,2.1003E+00_JPRB,2.0316E+00_JPRB,& |
2614 |
✓✓ |
12 |
& 2.2821E+00_JPRB,2.6531E+00_JPRB,2.9050E+00_JPRB,2.9914E+00_JPRB,3.0227E+00_JPRB/) |
2615 |
|
|
KAO( :, 2, 5,13) = (/& |
2616 |
|
|
& 3.1462E+00_JPRB,2.8052E+00_JPRB,2.5301E+00_JPRB,2.3469E+00_JPRB,2.2490E+00_JPRB,2.3958E+00_JPRB,& |
2617 |
✓✓ |
12 |
& 2.8314E+00_JPRB,3.2925E+00_JPRB,3.6050E+00_JPRB,3.7092E+00_JPRB,3.7515E+00_JPRB/) |
2618 |
|
|
KAO( :, 3, 5,13) = (/& |
2619 |
|
|
& 3.0906E+00_JPRB,2.7658E+00_JPRB,2.5622E+00_JPRB,2.4318E+00_JPRB,2.4969E+00_JPRB,2.8886E+00_JPRB,& |
2620 |
✓✓ |
12 |
& 3.4523E+00_JPRB,4.0155E+00_JPRB,4.3974E+00_JPRB,4.5211E+00_JPRB,4.5746E+00_JPRB/) |
2621 |
|
|
KAO( :, 4, 5,13) = (/& |
2622 |
|
|
& 3.0486E+00_JPRB,2.7373E+00_JPRB,2.5958E+00_JPRB,2.5683E+00_JPRB,2.8557E+00_JPRB,3.4815E+00_JPRB,& |
2623 |
✓✓ |
12 |
& 4.1633E+00_JPRB,4.8446E+00_JPRB,5.3051E+00_JPRB,5.4504E+00_JPRB,5.5199E+00_JPRB/) |
2624 |
|
|
KAO( :, 5, 5,13) = (/& |
2625 |
|
|
& 3.0130E+00_JPRB,2.7440E+00_JPRB,2.6274E+00_JPRB,2.8078E+00_JPRB,3.3228E+00_JPRB,4.1277E+00_JPRB,& |
2626 |
✓✓ |
12 |
& 4.9382E+00_JPRB,5.7481E+00_JPRB,6.2955E+00_JPRB,6.4701E+00_JPRB,6.5508E+00_JPRB/) |
2627 |
|
|
KAO( :, 1, 6,13) = (/& |
2628 |
|
|
& 3.5873E+00_JPRB,3.1674E+00_JPRB,2.7646E+00_JPRB,2.4502E+00_JPRB,2.1689E+00_JPRB,1.9718E+00_JPRB,& |
2629 |
✓✓ |
12 |
& 2.0147E+00_JPRB,2.3234E+00_JPRB,2.5447E+00_JPRB,2.6195E+00_JPRB,2.6494E+00_JPRB/) |
2630 |
|
|
KAO( :, 2, 6,13) = (/& |
2631 |
|
|
& 3.5157E+00_JPRB,3.1229E+00_JPRB,2.7666E+00_JPRB,2.5046E+00_JPRB,2.2807E+00_JPRB,2.2712E+00_JPRB,& |
2632 |
✓✓ |
12 |
& 2.5407E+00_JPRB,2.9561E+00_JPRB,3.2371E+00_JPRB,3.3302E+00_JPRB,3.3702E+00_JPRB/) |
2633 |
|
|
KAO( :, 3, 6,13) = (/& |
2634 |
|
|
& 3.4666E+00_JPRB,3.0873E+00_JPRB,2.7933E+00_JPRB,2.5658E+00_JPRB,2.5099E+00_JPRB,2.6904E+00_JPRB,& |
2635 |
✓✓ |
12 |
& 3.1624E+00_JPRB,3.6822E+00_JPRB,4.0323E+00_JPRB,4.1466E+00_JPRB,4.1994E+00_JPRB/) |
2636 |
|
|
KAO( :, 4, 6,13) = (/& |
2637 |
|
|
& 3.4223E+00_JPRB,3.0572E+00_JPRB,2.8088E+00_JPRB,2.6700E+00_JPRB,2.8225E+00_JPRB,3.2304E+00_JPRB,& |
2638 |
✓✓ |
12 |
& 3.8614E+00_JPRB,4.4961E+00_JPRB,4.9248E+00_JPRB,5.0662E+00_JPRB,5.1277E+00_JPRB/) |
2639 |
|
|
KAO( :, 5, 6,13) = (/& |
2640 |
|
|
& 3.3760E+00_JPRB,3.0424E+00_JPRB,2.8322E+00_JPRB,2.8911E+00_JPRB,3.2026E+00_JPRB,3.8541E+00_JPRB,& |
2641 |
✓✓ |
12 |
& 4.6128E+00_JPRB,5.3710E+00_JPRB,5.8848E+00_JPRB,6.0557E+00_JPRB,6.1288E+00_JPRB/) |
2642 |
|
|
KAO( :, 1, 7,13) = (/& |
2643 |
|
|
& 4.0318E+00_JPRB,3.5414E+00_JPRB,3.1020E+00_JPRB,2.7107E+00_JPRB,2.3308E+00_JPRB,1.9686E+00_JPRB,& |
2644 |
✓✓ |
12 |
& 1.8437E+00_JPRB,2.0053E+00_JPRB,2.1966E+00_JPRB,2.2625E+00_JPRB,2.2876E+00_JPRB/) |
2645 |
|
|
KAO( :, 2, 7,13) = (/& |
2646 |
|
|
& 3.9753E+00_JPRB,3.5219E+00_JPRB,3.0843E+00_JPRB,2.7586E+00_JPRB,2.3913E+00_JPRB,2.2135E+00_JPRB,& |
2647 |
✓✓ |
12 |
& 2.2792E+00_JPRB,2.6148E+00_JPRB,2.8647E+00_JPRB,2.9486E+00_JPRB,2.9838E+00_JPRB/) |
2648 |
|
|
KAO( :, 3, 7,13) = (/& |
2649 |
|
|
& 3.9273E+00_JPRB,3.4958E+00_JPRB,3.1284E+00_JPRB,2.7893E+00_JPRB,2.5460E+00_JPRB,2.5637E+00_JPRB,& |
2650 |
✓✓ |
12 |
& 2.8433E+00_JPRB,3.3088E+00_JPRB,3.6254E+00_JPRB,3.7327E+00_JPRB,3.7756E+00_JPRB/) |
2651 |
|
|
KAO( :, 4, 7,13) = (/& |
2652 |
|
|
& 3.8768E+00_JPRB,3.4612E+00_JPRB,3.1354E+00_JPRB,2.8419E+00_JPRB,2.8178E+00_JPRB,3.0023E+00_JPRB,& |
2653 |
✓✓ |
12 |
& 3.5065E+00_JPRB,4.0831E+00_JPRB,4.4749E+00_JPRB,4.6081E+00_JPRB,4.6607E+00_JPRB/) |
2654 |
|
|
KAO( :, 5, 7,13) = (/& |
2655 |
|
|
& 3.8207E+00_JPRB,3.4295E+00_JPRB,3.1455E+00_JPRB,3.0110E+00_JPRB,3.1435E+00_JPRB,3.5518E+00_JPRB,& |
2656 |
✓✓ |
12 |
& 4.2303E+00_JPRB,4.9268E+00_JPRB,5.4004E+00_JPRB,5.5634E+00_JPRB,5.6245E+00_JPRB/) |
2657 |
|
|
KAO( :, 1, 8,13) = (/& |
2658 |
|
|
& 4.5607E+00_JPRB,3.9914E+00_JPRB,3.4954E+00_JPRB,3.0029E+00_JPRB,2.5709E+00_JPRB,2.0712E+00_JPRB,& |
2659 |
✓✓ |
12 |
& 1.7381E+00_JPRB,1.7156E+00_JPRB,1.8751E+00_JPRB,1.9316E+00_JPRB,1.9534E+00_JPRB/) |
2660 |
|
|
KAO( :, 2, 8,13) = (/& |
2661 |
|
|
& 4.5049E+00_JPRB,3.9749E+00_JPRB,3.4687E+00_JPRB,3.0674E+00_JPRB,2.6040E+00_JPRB,2.2247E+00_JPRB,& |
2662 |
✓✓ |
12 |
& 2.0925E+00_JPRB,2.2663E+00_JPRB,2.4833E+00_JPRB,2.5592E+00_JPRB,2.5867E+00_JPRB/) |
2663 |
|
|
KAO( :, 3, 8,13) = (/& |
2664 |
|
|
& 4.4464E+00_JPRB,3.9470E+00_JPRB,3.5041E+00_JPRB,3.0976E+00_JPRB,2.6943E+00_JPRB,2.4990E+00_JPRB,& |
2665 |
✓✓ |
12 |
& 2.5535E+00_JPRB,2.9086E+00_JPRB,3.1877E+00_JPRB,3.2861E+00_JPRB,3.3201E+00_JPRB/) |
2666 |
|
|
KAO( :, 4, 8,13) = (/& |
2667 |
|
|
& 4.3818E+00_JPRB,3.9082E+00_JPRB,3.5223E+00_JPRB,3.1240E+00_JPRB,2.8867E+00_JPRB,2.8624E+00_JPRB,& |
2668 |
✓✓ |
12 |
& 3.1305E+00_JPRB,3.6344E+00_JPRB,3.9841E+00_JPRB,4.1071E+00_JPRB,4.1503E+00_JPRB/) |
2669 |
|
|
KAO( :, 5, 8,13) = (/& |
2670 |
|
|
& 4.3157E+00_JPRB,3.8635E+00_JPRB,3.5342E+00_JPRB,3.2389E+00_JPRB,3.1422E+00_JPRB,3.3087E+00_JPRB,& |
2671 |
✓✓ |
12 |
& 3.8133E+00_JPRB,4.4423E+00_JPRB,4.8694E+00_JPRB,5.0203E+00_JPRB,5.0730E+00_JPRB/) |
2672 |
|
|
KAO( :, 1, 9,13) = (/& |
2673 |
|
|
& 5.1388E+00_JPRB,4.4967E+00_JPRB,3.9252E+00_JPRB,3.3415E+00_JPRB,2.8260E+00_JPRB,2.2549E+00_JPRB,& |
2674 |
✓✓ |
12 |
& 1.7301E+00_JPRB,1.4899E+00_JPRB,1.5781E+00_JPRB,1.6272E+00_JPRB,2.1902E+00_JPRB/) |
2675 |
|
|
KAO( :, 2, 9,13) = (/& |
2676 |
|
|
& 5.0816E+00_JPRB,4.4676E+00_JPRB,3.8997E+00_JPRB,3.4081E+00_JPRB,2.8754E+00_JPRB,2.3488E+00_JPRB,& |
2677 |
✓✓ |
12 |
& 1.9883E+00_JPRB,1.9458E+00_JPRB,2.1210E+00_JPRB,2.1876E+00_JPRB,2.4675E+00_JPRB/) |
2678 |
|
|
KAO( :, 3, 9,13) = (/& |
2679 |
|
|
& 5.0129E+00_JPRB,4.4339E+00_JPRB,3.9077E+00_JPRB,3.4536E+00_JPRB,2.9357E+00_JPRB,2.5363E+00_JPRB,& |
2680 |
✓✓ |
12 |
& 2.3438E+00_JPRB,2.5133E+00_JPRB,2.7551E+00_JPRB,2.8417E+00_JPRB,2.9456E+00_JPRB/) |
2681 |
|
|
KAO( :, 4, 9,13) = (/& |
2682 |
|
|
& 4.9367E+00_JPRB,4.3927E+00_JPRB,3.9413E+00_JPRB,3.4799E+00_JPRB,3.0724E+00_JPRB,2.8062E+00_JPRB,& |
2683 |
✓✓ |
12 |
& 2.8193E+00_JPRB,3.1848E+00_JPRB,3.4916E+00_JPRB,3.6009E+00_JPRB,3.6428E+00_JPRB/) |
2684 |
|
|
KAO( :, 5, 9,13) = (/& |
2685 |
|
|
& 4.8646E+00_JPRB,4.3466E+00_JPRB,3.9578E+00_JPRB,3.5604E+00_JPRB,3.2602E+00_JPRB,3.1715E+00_JPRB,& |
2686 |
✓✓ |
12 |
& 3.4132E+00_JPRB,3.9460E+00_JPRB,4.3263E+00_JPRB,4.4628E+00_JPRB,4.5130E+00_JPRB/) |
2687 |
|
|
KAO( :, 1,10,13) = (/& |
2688 |
|
|
& 5.7351E+00_JPRB,5.0184E+00_JPRB,4.3590E+00_JPRB,3.7061E+00_JPRB,3.1107E+00_JPRB,2.4665E+00_JPRB,& |
2689 |
✓✓ |
12 |
& 1.8265E+00_JPRB,1.3589E+00_JPRB,1.3281E+00_JPRB,1.3706E+00_JPRB,9.6850E+00_JPRB/) |
2690 |
|
|
KAO( :, 2,10,13) = (/& |
2691 |
|
|
& 5.6702E+00_JPRB,4.9713E+00_JPRB,4.3505E+00_JPRB,3.7771E+00_JPRB,3.1762E+00_JPRB,2.5499E+00_JPRB,& |
2692 |
✓✓ |
12 |
& 2.0068E+00_JPRB,1.7165E+00_JPRB,1.8132E+00_JPRB,1.8713E+00_JPRB,1.0044E+01_JPRB/) |
2693 |
|
|
KAO( :, 3,10,13) = (/& |
2694 |
|
|
& 5.6012E+00_JPRB,4.9439E+00_JPRB,4.3471E+00_JPRB,3.8363E+00_JPRB,3.2324E+00_JPRB,2.7093E+00_JPRB,& |
2695 |
✓✓ |
12 |
& 2.2713E+00_JPRB,2.1992E+00_JPRB,2.3944E+00_JPRB,2.4708E+00_JPRB,1.0371E+01_JPRB/) |
2696 |
|
|
KAO( :, 4,10,13) = (/& |
2697 |
|
|
& 5.5289E+00_JPRB,4.9007E+00_JPRB,4.3908E+00_JPRB,3.8627E+00_JPRB,3.3600E+00_JPRB,2.8996E+00_JPRB,& |
2698 |
✓✓ |
12 |
& 2.6404E+00_JPRB,2.8075E+00_JPRB,3.0779E+00_JPRB,3.1762E+00_JPRB,1.0595E+01_JPRB/) |
2699 |
|
|
KAO( :, 5,10,13) = (/& |
2700 |
|
|
& 5.4567E+00_JPRB,4.8683E+00_JPRB,4.4123E+00_JPRB,3.9290E+00_JPRB,3.4997E+00_JPRB,3.1758E+00_JPRB,& |
2701 |
✓✓ |
12 |
& 3.1346E+00_JPRB,3.5190E+00_JPRB,3.8593E+00_JPRB,3.9826E+00_JPRB,1.0862E+01_JPRB/) |
2702 |
|
|
KAO( :, 1,11,13) = (/& |
2703 |
|
|
& 6.3333E+00_JPRB,5.5418E+00_JPRB,4.8105E+00_JPRB,4.1265E+00_JPRB,3.4538E+00_JPRB,2.7288E+00_JPRB,& |
2704 |
✓✓ |
12 |
& 2.0255E+00_JPRB,1.4130E+00_JPRB,1.2863E+00_JPRB,1.3280E+00_JPRB,1.7958E+01_JPRB/) |
2705 |
|
|
KAO( :, 2,11,13) = (/& |
2706 |
|
|
& 6.2689E+00_JPRB,5.5023E+00_JPRB,4.8148E+00_JPRB,4.2028E+00_JPRB,3.5226E+00_JPRB,2.8349E+00_JPRB,& |
2707 |
✓✓ |
12 |
& 2.1999E+00_JPRB,1.7269E+00_JPRB,1.7697E+00_JPRB,1.8270E+00_JPRB,1.8277E+01_JPRB/) |
2708 |
|
|
KAO( :, 3,11,13) = (/& |
2709 |
|
|
& 6.2039E+00_JPRB,5.4744E+00_JPRB,4.8374E+00_JPRB,4.2598E+00_JPRB,3.5999E+00_JPRB,3.0009E+00_JPRB,& |
2710 |
✓✓ |
12 |
& 2.4146E+00_JPRB,2.1815E+00_JPRB,2.3423E+00_JPRB,2.4181E+00_JPRB,1.8696E+01_JPRB/) |
2711 |
|
|
KAO( :, 4,11,13) = (/& |
2712 |
|
|
& 6.1388E+00_JPRB,5.4345E+00_JPRB,4.8963E+00_JPRB,4.2927E+00_JPRB,3.7367E+00_JPRB,3.1778E+00_JPRB,& |
2713 |
✓✓ |
12 |
& 2.7380E+00_JPRB,2.7546E+00_JPRB,3.0088E+00_JPRB,3.1059E+00_JPRB,1.9174E+01_JPRB/) |
2714 |
|
|
KAO( :, 5,11,13) = (/& |
2715 |
|
|
& 6.0780E+00_JPRB,5.4134E+00_JPRB,4.9226E+00_JPRB,4.3897E+00_JPRB,3.8870E+00_JPRB,3.4157E+00_JPRB,& |
2716 |
✓✓ |
12 |
& 3.1673E+00_JPRB,3.4320E+00_JPRB,3.7647E+00_JPRB,3.8872E+00_JPRB,1.9497E+01_JPRB/) |
2717 |
|
|
KAO( :, 1,12,13) = (/& |
2718 |
|
|
& 6.9733E+00_JPRB,6.1019E+00_JPRB,5.2948E+00_JPRB,4.5762E+00_JPRB,3.8194E+00_JPRB,3.0108E+00_JPRB,& |
2719 |
✓✓ |
12 |
& 2.2358E+00_JPRB,1.4812E+00_JPRB,1.2391E+00_JPRB,1.2773E+00_JPRB,2.4501E+01_JPRB/) |
2720 |
|
|
KAO( :, 2,12,13) = (/& |
2721 |
|
|
& 6.9181E+00_JPRB,6.0812E+00_JPRB,5.3188E+00_JPRB,4.6589E+00_JPRB,3.8924E+00_JPRB,3.1398E+00_JPRB,& |
2722 |
✓✓ |
12 |
& 2.4112E+00_JPRB,1.7577E+00_JPRB,1.7083E+00_JPRB,1.7645E+00_JPRB,2.4773E+01_JPRB/) |
2723 |
|
|
KAO( :, 3,12,13) = (/& |
2724 |
|
|
& 6.8566E+00_JPRB,6.0530E+00_JPRB,5.3874E+00_JPRB,4.7146E+00_JPRB,3.9882E+00_JPRB,3.3020E+00_JPRB,& |
2725 |
✓✓ |
12 |
& 2.6071E+00_JPRB,2.1662E+00_JPRB,2.2758E+00_JPRB,2.3503E+00_JPRB,2.5275E+01_JPRB/) |
2726 |
|
|
KAO( :, 4,12,13) = (/& |
2727 |
|
|
& 6.7979E+00_JPRB,6.0149E+00_JPRB,5.4468E+00_JPRB,4.7610E+00_JPRB,4.1335E+00_JPRB,3.4795E+00_JPRB,& |
2728 |
✓✓ |
12 |
& 2.8840E+00_JPRB,2.7114E+00_JPRB,2.9349E+00_JPRB,3.0298E+00_JPRB,2.5870E+01_JPRB/) |
2729 |
|
|
KAO( :, 5,12,13) = (/& |
2730 |
|
|
& 6.7411E+00_JPRB,6.0058E+00_JPRB,5.4709E+00_JPRB,4.8727E+00_JPRB,4.2890E+00_JPRB,3.6876E+00_JPRB,& |
2731 |
✓✓ |
12 |
& 3.2559E+00_JPRB,3.3514E+00_JPRB,3.6668E+00_JPRB,3.7859E+00_JPRB,2.6254E+01_JPRB/) |
2732 |
|
|
KAO( :, 1,13,13) = (/& |
2733 |
|
|
& 7.6256E+00_JPRB,6.6753E+00_JPRB,5.7900E+00_JPRB,5.0347E+00_JPRB,4.1913E+00_JPRB,3.3018E+00_JPRB,& |
2734 |
✓✓ |
12 |
& 2.4527E+00_JPRB,1.5669E+00_JPRB,1.1934E+00_JPRB,1.2215E+00_JPRB,2.5519E+01_JPRB/) |
2735 |
|
|
KAO( :, 2,13,13) = (/& |
2736 |
|
|
& 7.5682E+00_JPRB,6.6598E+00_JPRB,5.8333E+00_JPRB,5.1240E+00_JPRB,4.2715E+00_JPRB,3.4570E+00_JPRB,& |
2737 |
✓✓ |
12 |
& 2.6249E+00_JPRB,1.8136E+00_JPRB,1.6447E+00_JPRB,1.6979E+00_JPRB,2.5832E+01_JPRB/) |
2738 |
|
|
KAO( :, 3,13,13) = (/& |
2739 |
|
|
& 7.5147E+00_JPRB,6.6337E+00_JPRB,5.9406E+00_JPRB,5.1772E+00_JPRB,4.3985E+00_JPRB,3.6181E+00_JPRB,& |
2740 |
✓✓ |
12 |
& 2.8202E+00_JPRB,2.1840E+00_JPRB,2.2018E+00_JPRB,2.2745E+00_JPRB,2.6512E+01_JPRB/) |
2741 |
|
|
KAO( :, 4,13,13) = (/& |
2742 |
|
|
& 7.4664E+00_JPRB,6.6067E+00_JPRB,6.0077E+00_JPRB,5.2519E+00_JPRB,4.5469E+00_JPRB,3.7922E+00_JPRB,& |
2743 |
✓✓ |
12 |
& 3.0751E+00_JPRB,2.6716E+00_JPRB,2.8374E+00_JPRB,2.9314E+00_JPRB,2.7153E+01_JPRB/) |
2744 |
|
|
KAO( :, 5,13,13) = (/& |
2745 |
|
|
& 7.4088E+00_JPRB,6.6207E+00_JPRB,6.0282E+00_JPRB,5.3739E+00_JPRB,4.7039E+00_JPRB,4.0017E+00_JPRB,& |
2746 |
✓✓ |
12 |
& 3.3998E+00_JPRB,3.2768E+00_JPRB,3.5575E+00_JPRB,3.6746E+00_JPRB,2.7529E+01_JPRB/) |
2747 |
|
|
KAO( :, 1, 1,14) = (/& |
2748 |
|
|
& 2.8887E+00_JPRB,2.5952E+00_JPRB,2.4344E+00_JPRB,2.7140E+00_JPRB,3.5782E+00_JPRB,4.4490E+00_JPRB,& |
2749 |
✓✓ |
12 |
& 5.3193E+00_JPRB,6.1891E+00_JPRB,6.7728E+00_JPRB,6.9450E+00_JPRB,6.8281E+00_JPRB/) |
2750 |
|
|
KAO( :, 2, 1,14) = (/& |
2751 |
|
|
& 2.8442E+00_JPRB,2.6117E+00_JPRB,2.5016E+00_JPRB,3.2440E+00_JPRB,4.2873E+00_JPRB,5.3316E+00_JPRB,& |
2752 |
✓✓ |
12 |
& 6.3758E+00_JPRB,7.4184E+00_JPRB,8.1189E+00_JPRB,8.3231E+00_JPRB,8.1685E+00_JPRB/) |
2753 |
|
|
KAO( :, 3, 1,14) = (/& |
2754 |
|
|
& 2.8000E+00_JPRB,2.6157E+00_JPRB,2.7106E+00_JPRB,3.8144E+00_JPRB,5.0435E+00_JPRB,6.2737E+00_JPRB,& |
2755 |
✓✓ |
12 |
& 7.5035E+00_JPRB,8.7311E+00_JPRB,9.5570E+00_JPRB,9.7945E+00_JPRB,9.6021E+00_JPRB/) |
2756 |
|
|
KAO( :, 4, 1,14) = (/& |
2757 |
|
|
& 2.7537E+00_JPRB,2.6124E+00_JPRB,3.0214E+00_JPRB,4.4121E+00_JPRB,5.8371E+00_JPRB,7.2628E+00_JPRB,& |
2758 |
✓✓ |
12 |
& 8.6899E+00_JPRB,1.0113E+01_JPRB,1.1069E+01_JPRB,1.1344E+01_JPRB,1.1112E+01_JPRB/) |
2759 |
|
|
|
2760 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART9',1,ZHOOK_HANDLE) |
2761 |
|
1 |
END SUBROUTINE PART9 |
2762 |
|
|
|
2763 |
|
|
|
2764 |
|
1 |
SUBROUTINE PART10 |
2765 |
|
|
|
2766 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
2767 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART10',0,ZHOOK_HANDLE) |
2768 |
|
|
|
2769 |
|
|
|
2770 |
|
|
KAO( :, 5, 1,14) = (/& |
2771 |
|
|
& 2.7061E+00_JPRB,2.6132E+00_JPRB,3.3957E+00_JPRB,5.0168E+00_JPRB,6.6412E+00_JPRB,8.2665E+00_JPRB,& |
2772 |
✓✓ |
12 |
& 9.8911E+00_JPRB,1.1513E+01_JPRB,1.2604E+01_JPRB,1.2922E+01_JPRB,1.2679E+01_JPRB/) |
2773 |
|
|
KAO( :, 1, 2,14) = (/& |
2774 |
|
|
& 3.0576E+00_JPRB,2.7352E+00_JPRB,2.5260E+00_JPRB,2.7828E+00_JPRB,3.6218E+00_JPRB,4.5046E+00_JPRB,& |
2775 |
✓✓ |
12 |
& 5.3876E+00_JPRB,6.2699E+00_JPRB,6.8610E+00_JPRB,7.0352E+00_JPRB,6.9906E+00_JPRB/) |
2776 |
|
|
KAO( :, 2, 2,14) = (/& |
2777 |
|
|
& 3.0061E+00_JPRB,2.7324E+00_JPRB,2.6141E+00_JPRB,3.3196E+00_JPRB,4.3910E+00_JPRB,5.4630E+00_JPRB,& |
2778 |
✓✓ |
12 |
& 6.5356E+00_JPRB,7.6067E+00_JPRB,8.3258E+00_JPRB,8.5350E+00_JPRB,8.4749E+00_JPRB/) |
2779 |
|
|
KAO( :, 3, 2,14) = (/& |
2780 |
|
|
& 2.9525E+00_JPRB,2.7255E+00_JPRB,2.8471E+00_JPRB,3.9327E+00_JPRB,5.2058E+00_JPRB,6.4796E+00_JPRB,& |
2781 |
✓✓ |
12 |
& 7.7532E+00_JPRB,9.0260E+00_JPRB,9.8805E+00_JPRB,1.0131E+01_JPRB,1.0067E+01_JPRB/) |
2782 |
|
|
KAO( :, 4, 2,14) = (/& |
2783 |
|
|
& 2.8984E+00_JPRB,2.7145E+00_JPRB,3.1607E+00_JPRB,4.5565E+00_JPRB,6.0350E+00_JPRB,7.5142E+00_JPRB,& |
2784 |
✓✓ |
12 |
& 8.9933E+00_JPRB,1.0470E+01_JPRB,1.1465E+01_JPRB,1.1763E+01_JPRB,1.1703E+01_JPRB/) |
2785 |
|
|
KAO( :, 5, 2,14) = (/& |
2786 |
|
|
& 2.8438E+00_JPRB,2.7189E+00_JPRB,3.5222E+00_JPRB,5.1840E+00_JPRB,6.8691E+00_JPRB,8.5548E+00_JPRB,& |
2787 |
✓✓ |
12 |
& 1.0241E+01_JPRB,1.1924E+01_JPRB,1.3058E+01_JPRB,1.3402E+01_JPRB,1.3350E+01_JPRB/) |
2788 |
|
|
KAO( :, 1, 3,14) = (/& |
2789 |
|
|
& 3.2627E+00_JPRB,2.9257E+00_JPRB,2.6844E+00_JPRB,2.7974E+00_JPRB,3.4992E+00_JPRB,4.3540E+00_JPRB,& |
2790 |
✓✓ |
12 |
& 5.2086E+00_JPRB,6.0626E+00_JPRB,6.6362E+00_JPRB,6.8051E+00_JPRB,6.8438E+00_JPRB/) |
2791 |
|
|
KAO( :, 2, 3,14) = (/& |
2792 |
|
|
& 3.2141E+00_JPRB,2.9285E+00_JPRB,2.7611E+00_JPRB,3.2879E+00_JPRB,4.2959E+00_JPRB,5.3479E+00_JPRB,& |
2793 |
✓✓ |
12 |
& 6.3996E+00_JPRB,7.4507E+00_JPRB,8.1567E+00_JPRB,8.3690E+00_JPRB,8.4216E+00_JPRB/) |
2794 |
|
|
KAO( :, 3, 3,14) = (/& |
2795 |
|
|
& 3.1592E+00_JPRB,2.9193E+00_JPRB,2.9657E+00_JPRB,3.8707E+00_JPRB,5.1268E+00_JPRB,6.3848E+00_JPRB,& |
2796 |
✓✓ |
12 |
& 7.6422E+00_JPRB,8.8991E+00_JPRB,9.7445E+00_JPRB,1.0003E+01_JPRB,1.0068E+01_JPRB/) |
2797 |
|
|
KAO( :, 4, 3,14) = (/& |
2798 |
|
|
& 3.1015E+00_JPRB,2.9015E+00_JPRB,3.2432E+00_JPRB,4.5116E+00_JPRB,5.9798E+00_JPRB,7.4486E+00_JPRB,& |
2799 |
✓✓ |
12 |
& 8.9182E+00_JPRB,1.0386E+01_JPRB,1.1375E+01_JPRB,1.1682E+01_JPRB,1.1760E+01_JPRB/) |
2800 |
|
|
KAO( :, 5, 3,14) = (/& |
2801 |
|
|
& 3.0445E+00_JPRB,2.9022E+00_JPRB,3.5824E+00_JPRB,5.1608E+00_JPRB,6.8436E+00_JPRB,8.5264E+00_JPRB,& |
2802 |
✓✓ |
12 |
& 1.0210E+01_JPRB,1.1891E+01_JPRB,1.3025E+01_JPRB,1.3379E+01_JPRB,1.3473E+01_JPRB/) |
2803 |
|
|
KAO( :, 1, 4,14) = (/& |
2804 |
|
|
& 3.5400E+00_JPRB,3.1664E+00_JPRB,2.9101E+00_JPRB,2.8758E+00_JPRB,3.3348E+00_JPRB,4.1525E+00_JPRB,& |
2805 |
✓✓ |
12 |
& 4.9718E+00_JPRB,5.7899E+00_JPRB,6.3397E+00_JPRB,6.5008E+00_JPRB,6.5768E+00_JPRB/) |
2806 |
|
|
KAO( :, 2, 4,14) = (/& |
2807 |
|
|
& 3.4855E+00_JPRB,3.1790E+00_JPRB,2.9576E+00_JPRB,3.2747E+00_JPRB,4.1109E+00_JPRB,5.1228E+00_JPRB,& |
2808 |
✓✓ |
12 |
& 6.1348E+00_JPRB,7.1442E+00_JPRB,7.8249E+00_JPRB,8.0301E+00_JPRB,8.1227E+00_JPRB/) |
2809 |
|
|
KAO( :, 3, 4,14) = (/& |
2810 |
|
|
& 3.4320E+00_JPRB,3.1719E+00_JPRB,3.1607E+00_JPRB,3.7785E+00_JPRB,4.9272E+00_JPRB,6.1416E+00_JPRB,& |
2811 |
✓✓ |
12 |
& 7.3563E+00_JPRB,8.5691E+00_JPRB,9.3880E+00_JPRB,9.6426E+00_JPRB,9.7500E+00_JPRB/) |
2812 |
|
|
KAO( :, 4, 4,14) = (/& |
2813 |
|
|
& 3.3791E+00_JPRB,3.1599E+00_JPRB,3.3859E+00_JPRB,4.3631E+00_JPRB,5.7749E+00_JPRB,7.1988E+00_JPRB,& |
2814 |
✓✓ |
12 |
& 8.6228E+00_JPRB,1.0046E+01_JPRB,1.1007E+01_JPRB,1.1312E+01_JPRB,1.1439E+01_JPRB/) |
2815 |
|
|
KAO( :, 5, 4,14) = (/& |
2816 |
|
|
& 3.3258E+00_JPRB,3.1591E+00_JPRB,3.6665E+00_JPRB,5.0052E+00_JPRB,6.6441E+00_JPRB,8.2840E+00_JPRB,& |
2817 |
✓✓ |
12 |
& 9.9242E+00_JPRB,1.1564E+01_JPRB,1.2671E+01_JPRB,1.3030E+01_JPRB,1.3170E+01_JPRB/) |
2818 |
|
|
KAO( :, 1, 5,14) = (/& |
2819 |
|
|
& 3.8712E+00_JPRB,3.4337E+00_JPRB,3.1666E+00_JPRB,3.0128E+00_JPRB,3.2471E+00_JPRB,3.9337E+00_JPRB,& |
2820 |
✓✓ |
12 |
& 4.7121E+00_JPRB,5.4892E+00_JPRB,6.0120E+00_JPRB,6.1700E+00_JPRB,6.2549E+00_JPRB/) |
2821 |
|
|
KAO( :, 2, 5,14) = (/& |
2822 |
|
|
& 3.8269E+00_JPRB,3.4694E+00_JPRB,3.1866E+00_JPRB,3.3432E+00_JPRB,3.9282E+00_JPRB,4.8845E+00_JPRB,& |
2823 |
✓✓ |
12 |
& 5.8524E+00_JPRB,6.8187E+00_JPRB,7.4706E+00_JPRB,7.6730E+00_JPRB,7.7736E+00_JPRB/) |
2824 |
|
|
KAO( :, 3, 5,14) = (/& |
2825 |
|
|
& 3.7755E+00_JPRB,3.4748E+00_JPRB,3.3901E+00_JPRB,3.7632E+00_JPRB,4.7202E+00_JPRB,5.8870E+00_JPRB,& |
2826 |
✓✓ |
12 |
& 7.0546E+00_JPRB,8.2214E+00_JPRB,9.0082E+00_JPRB,9.2591E+00_JPRB,9.3759E+00_JPRB/) |
2827 |
|
|
KAO( :, 4, 5,14) = (/& |
2828 |
|
|
& 3.7208E+00_JPRB,3.4667E+00_JPRB,3.6066E+00_JPRB,4.2692E+00_JPRB,5.5501E+00_JPRB,6.9232E+00_JPRB,& |
2829 |
✓✓ |
12 |
& 8.2967E+00_JPRB,9.6704E+00_JPRB,1.0598E+01_JPRB,1.0900E+01_JPRB,1.1032E+01_JPRB/) |
2830 |
|
|
KAO( :, 5, 5,14) = (/& |
2831 |
|
|
& 3.6685E+00_JPRB,3.4626E+00_JPRB,3.8317E+00_JPRB,4.8383E+00_JPRB,6.4165E+00_JPRB,8.0063E+00_JPRB,& |
2832 |
✓✓ |
12 |
& 9.5964E+00_JPRB,1.1185E+01_JPRB,1.2259E+01_JPRB,1.2606E+01_JPRB,1.2759E+01_JPRB/) |
2833 |
|
|
KAO( :, 1, 6,14) = (/& |
2834 |
|
|
& 4.2985E+00_JPRB,3.7747E+00_JPRB,3.4577E+00_JPRB,3.1550E+00_JPRB,3.2497E+00_JPRB,3.6558E+00_JPRB,& |
2835 |
✓✓ |
12 |
& 4.3601E+00_JPRB,5.0812E+00_JPRB,5.5670E+00_JPRB,5.7208E+00_JPRB,5.7987E+00_JPRB/) |
2836 |
|
|
KAO( :, 2, 6,14) = (/& |
2837 |
|
|
& 4.2427E+00_JPRB,3.8123E+00_JPRB,3.4653E+00_JPRB,3.4897E+00_JPRB,3.8064E+00_JPRB,4.5507E+00_JPRB,& |
2838 |
✓✓ |
12 |
& 5.4535E+00_JPRB,6.3569E+00_JPRB,6.9669E+00_JPRB,7.1637E+00_JPRB,7.2558E+00_JPRB/) |
2839 |
|
|
KAO( :, 3, 6,14) = (/& |
2840 |
|
|
& 4.1875E+00_JPRB,3.8273E+00_JPRB,3.6255E+00_JPRB,3.8306E+00_JPRB,4.4762E+00_JPRB,5.5205E+00_JPRB,& |
2841 |
✓✓ |
12 |
& 6.6168E+00_JPRB,7.7121E+00_JPRB,8.4537E+00_JPRB,8.6967E+00_JPRB,8.8046E+00_JPRB/) |
2842 |
|
|
KAO( :, 4, 6,14) = (/& |
2843 |
|
|
& 4.1387E+00_JPRB,3.8237E+00_JPRB,3.8813E+00_JPRB,4.2503E+00_JPRB,5.2544E+00_JPRB,6.5579E+00_JPRB,& |
2844 |
✓✓ |
12 |
& 7.8608E+00_JPRB,9.1631E+00_JPRB,1.0044E+01_JPRB,1.0331E+01_JPRB,1.0461E+01_JPRB/) |
2845 |
|
|
KAO( :, 5, 6,14) = (/& |
2846 |
|
|
& 4.0993E+00_JPRB,3.8210E+00_JPRB,4.0697E+00_JPRB,4.7381E+00_JPRB,6.1433E+00_JPRB,7.6683E+00_JPRB,& |
2847 |
✓✓ |
12 |
& 9.1923E+00_JPRB,1.0715E+01_JPRB,1.1746E+01_JPRB,1.2082E+01_JPRB,1.2233E+01_JPRB/) |
2848 |
|
|
KAO( :, 1, 7,14) = (/& |
2849 |
|
|
& 4.8729E+00_JPRB,4.2640E+00_JPRB,3.8474E+00_JPRB,3.3679E+00_JPRB,3.3344E+00_JPRB,3.4772E+00_JPRB,& |
2850 |
✓✓ |
12 |
& 3.9641E+00_JPRB,4.6207E+00_JPRB,5.0642E+00_JPRB,5.2074E+00_JPRB,5.2771E+00_JPRB/) |
2851 |
|
|
KAO( :, 2, 7,14) = (/& |
2852 |
|
|
& 4.7919E+00_JPRB,4.2473E+00_JPRB,3.8324E+00_JPRB,3.6623E+00_JPRB,3.7914E+00_JPRB,4.2248E+00_JPRB,& |
2853 |
✓✓ |
12 |
& 5.0116E+00_JPRB,5.8421E+00_JPRB,6.4042E+00_JPRB,6.5890E+00_JPRB,6.6727E+00_JPRB/) |
2854 |
|
|
KAO( :, 3, 7,14) = (/& |
2855 |
|
|
& 4.7214E+00_JPRB,4.2557E+00_JPRB,3.9089E+00_JPRB,4.0054E+00_JPRB,4.3393E+00_JPRB,5.1382E+00_JPRB,& |
2856 |
✓✓ |
12 |
& 6.1595E+00_JPRB,7.1803E+00_JPRB,7.8713E+00_JPRB,8.0973E+00_JPRB,8.2014E+00_JPRB/) |
2857 |
|
|
KAO( :, 4, 7,14) = (/& |
2858 |
|
|
& 4.6651E+00_JPRB,4.2593E+00_JPRB,4.1634E+00_JPRB,4.3388E+00_JPRB,5.0089E+00_JPRB,6.1843E+00_JPRB,& |
2859 |
✓✓ |
12 |
& 7.4141E+00_JPRB,8.6442E+00_JPRB,9.4748E+00_JPRB,9.7461E+00_JPRB,9.8717E+00_JPRB/) |
2860 |
|
|
KAO( :, 5, 7,14) = (/& |
2861 |
|
|
& 4.6229E+00_JPRB,4.2611E+00_JPRB,4.3711E+00_JPRB,4.7337E+00_JPRB,5.8551E+00_JPRB,7.3079E+00_JPRB,& |
2862 |
✓✓ |
12 |
& 8.7620E+00_JPRB,1.0215E+01_JPRB,1.1197E+01_JPRB,1.1518E+01_JPRB,1.1668E+01_JPRB/) |
2863 |
|
|
KAO( :, 1, 8,14) = (/& |
2864 |
|
|
& 5.5925E+00_JPRB,4.8936E+00_JPRB,4.3354E+00_JPRB,3.7383E+00_JPRB,3.4607E+00_JPRB,3.3817E+00_JPRB,& |
2865 |
✓✓ |
12 |
& 3.5604E+00_JPRB,4.1011E+00_JPRB,4.4961E+00_JPRB,4.6277E+00_JPRB,4.6848E+00_JPRB/) |
2866 |
|
|
KAO( :, 2, 8,14) = (/& |
2867 |
|
|
& 5.4938E+00_JPRB,4.8247E+00_JPRB,4.3191E+00_JPRB,3.9163E+00_JPRB,3.8835E+00_JPRB,4.0306E+00_JPRB,& |
2868 |
✓✓ |
12 |
& 4.5806E+00_JPRB,5.3399E+00_JPRB,5.8538E+00_JPRB,6.0240E+00_JPRB,6.1006E+00_JPRB/) |
2869 |
|
|
KAO( :, 3, 8,14) = (/& |
2870 |
|
|
& 5.4085E+00_JPRB,4.8212E+00_JPRB,4.3278E+00_JPRB,4.2425E+00_JPRB,4.3274E+00_JPRB,4.8175E+00_JPRB,& |
2871 |
✓✓ |
12 |
& 5.7136E+00_JPRB,6.6616E+00_JPRB,7.3038E+00_JPRB,7.5143E+00_JPRB,7.6111E+00_JPRB/) |
2872 |
|
|
KAO( :, 4, 8,14) = (/& |
2873 |
|
|
& 5.3368E+00_JPRB,4.8168E+00_JPRB,4.5230E+00_JPRB,4.5538E+00_JPRB,4.8873E+00_JPRB,5.8090E+00_JPRB,& |
2874 |
✓✓ |
12 |
& 6.9627E+00_JPRB,8.1174E+00_JPRB,8.9008E+00_JPRB,9.1580E+00_JPRB,9.2752E+00_JPRB/) |
2875 |
|
|
KAO( :, 5, 8,14) = (/& |
2876 |
|
|
& 5.2815E+00_JPRB,4.8169E+00_JPRB,4.7320E+00_JPRB,4.8661E+00_JPRB,5.6370E+00_JPRB,6.9370E+00_JPRB,& |
2877 |
✓✓ |
12 |
& 8.3184E+00_JPRB,9.6982E+00_JPRB,1.0633E+01_JPRB,1.0941E+01_JPRB,1.1084E+01_JPRB/) |
2878 |
|
|
KAO( :, 1, 9,14) = (/& |
2879 |
|
|
& 6.4577E+00_JPRB,5.6507E+00_JPRB,4.9407E+00_JPRB,4.2286E+00_JPRB,3.7253E+00_JPRB,3.3779E+00_JPRB,& |
2880 |
✓✓ |
12 |
& 3.2319E+00_JPRB,3.5421E+00_JPRB,3.8831E+00_JPRB,3.9990E+00_JPRB,4.0498E+00_JPRB/) |
2881 |
|
|
KAO( :, 2, 9,14) = (/& |
2882 |
|
|
& 6.3422E+00_JPRB,5.5498E+00_JPRB,4.9222E+00_JPRB,4.3098E+00_JPRB,4.0685E+00_JPRB,3.8931E+00_JPRB,& |
2883 |
✓✓ |
12 |
& 4.1244E+00_JPRB,4.7547E+00_JPRB,5.2133E+00_JPRB,5.3678E+00_JPRB,5.4322E+00_JPRB/) |
2884 |
|
|
KAO( :, 3, 9,14) = (/& |
2885 |
|
|
& 6.2329E+00_JPRB,5.5111E+00_JPRB,4.9049E+00_JPRB,4.5899E+00_JPRB,4.4547E+00_JPRB,4.5979E+00_JPRB,& |
2886 |
✓✓ |
12 |
& 5.2352E+00_JPRB,6.1039E+00_JPRB,6.6924E+00_JPRB,6.8898E+00_JPRB,6.9747E+00_JPRB/) |
2887 |
|
|
KAO( :, 4, 9,14) = (/& |
2888 |
|
|
& 6.1515E+00_JPRB,5.4910E+00_JPRB,5.0222E+00_JPRB,4.8653E+00_JPRB,4.9067E+00_JPRB,5.4882E+00_JPRB,& |
2889 |
✓✓ |
12 |
& 6.4831E+00_JPRB,7.5599E+00_JPRB,8.2895E+00_JPRB,8.5312E+00_JPRB,8.6396E+00_JPRB/) |
2890 |
|
|
KAO( :, 5, 9,14) = (/& |
2891 |
|
|
& 6.0869E+00_JPRB,5.4865E+00_JPRB,5.2250E+00_JPRB,5.1325E+00_JPRB,5.5425E+00_JPRB,6.5444E+00_JPRB,& |
2892 |
✓✓ |
12 |
& 7.8337E+00_JPRB,9.1350E+00_JPRB,1.0015E+01_JPRB,1.0307E+01_JPRB,1.0438E+01_JPRB/) |
2893 |
|
|
KAO( :, 1,10,14) = (/& |
2894 |
|
|
& 7.4443E+00_JPRB,6.5140E+00_JPRB,5.6562E+00_JPRB,4.8450E+00_JPRB,4.1266E+00_JPRB,3.5478E+00_JPRB,& |
2895 |
✓✓ |
12 |
& 3.0700E+00_JPRB,3.0881E+00_JPRB,3.3779E+00_JPRB,3.4799E+00_JPRB,1.2058E+01_JPRB/) |
2896 |
|
|
KAO( :, 2,10,14) = (/& |
2897 |
|
|
& 7.3221E+00_JPRB,6.4071E+00_JPRB,5.6365E+00_JPRB,4.8644E+00_JPRB,4.3967E+00_JPRB,3.9545E+00_JPRB,& |
2898 |
✓✓ |
12 |
& 3.8217E+00_JPRB,4.2441E+00_JPRB,4.6539E+00_JPRB,4.7937E+00_JPRB,1.2410E+01_JPRB/) |
2899 |
|
|
KAO( :, 3,10,14) = (/& |
2900 |
|
|
& 7.2124E+00_JPRB,6.3403E+00_JPRB,5.6271E+00_JPRB,5.0725E+00_JPRB,4.7313E+00_JPRB,4.4923E+00_JPRB,& |
2901 |
✓✓ |
12 |
& 4.8301E+00_JPRB,5.5719E+00_JPRB,6.1108E+00_JPRB,6.2952E+00_JPRB,1.2954E+01_JPRB/) |
2902 |
|
|
KAO( :, 4,10,14) = (/& |
2903 |
|
|
& 7.1175E+00_JPRB,6.3123E+00_JPRB,5.6779E+00_JPRB,5.3374E+00_JPRB,5.0908E+00_JPRB,5.2975E+00_JPRB,& |
2904 |
✓✓ |
12 |
& 6.0440E+00_JPRB,7.0430E+00_JPRB,7.7247E+00_JPRB,7.9559E+00_JPRB,1.3387E+01_JPRB/) |
2905 |
|
|
KAO( :, 5,10,14) = (/& |
2906 |
|
|
& 7.0366E+00_JPRB,6.2756E+00_JPRB,5.8648E+00_JPRB,5.5670E+00_JPRB,5.6360E+00_JPRB,6.2965E+00_JPRB,& |
2907 |
✓✓ |
12 |
& 7.4267E+00_JPRB,8.6602E+00_JPRB,9.4961E+00_JPRB,9.7792E+00_JPRB,1.3845E+01_JPRB/) |
2908 |
|
|
KAO( :, 1,11,14) = (/& |
2909 |
|
|
& 8.4957E+00_JPRB,7.4339E+00_JPRB,6.4512E+00_JPRB,5.5185E+00_JPRB,4.7207E+00_JPRB,3.9718E+00_JPRB,& |
2910 |
✓✓ |
12 |
& 3.2916E+00_JPRB,3.1500E+00_JPRB,3.4253E+00_JPRB,3.5296E+00_JPRB,2.3513E+01_JPRB/) |
2911 |
|
|
KAO( :, 2,11,14) = (/& |
2912 |
|
|
& 8.3816E+00_JPRB,7.3341E+00_JPRB,6.4276E+00_JPRB,5.6044E+00_JPRB,4.9602E+00_JPRB,4.3313E+00_JPRB,& |
2913 |
✓✓ |
12 |
& 3.9798E+00_JPRB,4.2912E+00_JPRB,4.7066E+00_JPRB,4.8505E+00_JPRB,2.3943E+01_JPRB/) |
2914 |
|
|
KAO( :, 3,11,14) = (/& |
2915 |
|
|
& 8.2705E+00_JPRB,7.2767E+00_JPRB,6.4537E+00_JPRB,5.8081E+00_JPRB,5.2448E+00_JPRB,4.8172E+00_JPRB,& |
2916 |
✓✓ |
12 |
& 4.9716E+00_JPRB,5.6457E+00_JPRB,6.1916E+00_JPRB,6.3804E+00_JPRB,2.4436E+01_JPRB/) |
2917 |
|
|
KAO( :, 4,11,14) = (/& |
2918 |
|
|
& 8.1691E+00_JPRB,7.2418E+00_JPRB,6.5336E+00_JPRB,6.0302E+00_JPRB,5.5871E+00_JPRB,5.5776E+00_JPRB,& |
2919 |
✓✓ |
12 |
& 6.1920E+00_JPRB,7.1803E+00_JPRB,7.8743E+00_JPRB,8.1125E+00_JPRB,2.5073E+01_JPRB/) |
2920 |
|
|
KAO( :, 5,11,14) = (/& |
2921 |
|
|
& 8.0687E+00_JPRB,7.1847E+00_JPRB,6.6868E+00_JPRB,6.2347E+00_JPRB,6.0989E+00_JPRB,6.5755E+00_JPRB,& |
2922 |
✓✓ |
12 |
& 7.6314E+00_JPRB,8.8985E+00_JPRB,9.7576E+00_JPRB,1.0049E+01_JPRB,2.5623E+01_JPRB/) |
2923 |
|
|
KAO( :, 1,12,14) = (/& |
2924 |
|
|
& 9.6896E+00_JPRB,8.4786E+00_JPRB,7.3560E+00_JPRB,6.2642E+00_JPRB,5.3896E+00_JPRB,4.4442E+00_JPRB,& |
2925 |
✓✓ |
12 |
& 3.5654E+00_JPRB,3.2232E+00_JPRB,3.4640E+00_JPRB,3.5704E+00_JPRB,3.3781E+01_JPRB/) |
2926 |
|
|
KAO( :, 2,12,14) = (/& |
2927 |
|
|
& 9.5610E+00_JPRB,8.3661E+00_JPRB,7.3175E+00_JPRB,6.4413E+00_JPRB,5.6023E+00_JPRB,4.7562E+00_JPRB,& |
2928 |
✓✓ |
12 |
& 4.1907E+00_JPRB,4.3435E+00_JPRB,4.7515E+00_JPRB,4.8976E+00_JPRB,3.4305E+01_JPRB/) |
2929 |
|
|
KAO( :, 3,12,14) = (/& |
2930 |
|
|
& 9.4357E+00_JPRB,8.3098E+00_JPRB,7.3390E+00_JPRB,6.6507E+00_JPRB,5.8481E+00_JPRB,5.2296E+00_JPRB,& |
2931 |
✓✓ |
12 |
& 5.1297E+00_JPRB,5.7060E+00_JPRB,6.2577E+00_JPRB,6.4493E+00_JPRB,3.4708E+01_JPRB/) |
2932 |
|
|
KAO( :, 4,12,14) = (/& |
2933 |
|
|
& 9.3148E+00_JPRB,8.2568E+00_JPRB,7.4893E+00_JPRB,6.8212E+00_JPRB,6.1645E+00_JPRB,5.9310E+00_JPRB,& |
2934 |
✓✓ |
12 |
& 6.3510E+00_JPRB,7.2870E+00_JPRB,7.9920E+00_JPRB,8.2360E+00_JPRB,3.5460E+01_JPRB/) |
2935 |
|
|
KAO( :, 5,12,14) = (/& |
2936 |
|
|
& 9.1990E+00_JPRB,8.1836E+00_JPRB,7.6152E+00_JPRB,6.9928E+00_JPRB,6.6719E+00_JPRB,6.9180E+00_JPRB,& |
2937 |
✓✓ |
12 |
& 7.8262E+00_JPRB,9.0973E+00_JPRB,9.9751E+00_JPRB,1.0276E+01_JPRB,3.6457E+01_JPRB/) |
2938 |
|
|
KAO( :, 1,13,14) = (/& |
2939 |
|
|
& 1.0978E+01_JPRB,9.6060E+00_JPRB,8.3365E+00_JPRB,7.0935E+00_JPRB,6.1273E+00_JPRB,4.9756E+00_JPRB,& |
2940 |
✓✓ |
12 |
& 3.8881E+00_JPRB,3.3072E+00_JPRB,3.4820E+00_JPRB,3.5899E+00_JPRB,3.7314E+01_JPRB/) |
2941 |
|
|
KAO( :, 2,13,14) = (/& |
2942 |
|
|
& 1.0837E+01_JPRB,9.4874E+00_JPRB,8.2842E+00_JPRB,7.3253E+00_JPRB,6.3404E+00_JPRB,5.2568E+00_JPRB,& |
2943 |
✓✓ |
12 |
& 4.4758E+00_JPRB,4.4007E+00_JPRB,4.7797E+00_JPRB,4.9274E+00_JPRB,3.7831E+01_JPRB/) |
2944 |
|
|
KAO( :, 3,13,14) = (/& |
2945 |
|
|
& 1.0694E+01_JPRB,9.4274E+00_JPRB,8.2977E+00_JPRB,7.5668E+00_JPRB,6.5337E+00_JPRB,5.7124E+00_JPRB,& |
2946 |
✓✓ |
12 |
& 5.3511E+00_JPRB,5.7626E+00_JPRB,6.3147E+00_JPRB,6.5078E+00_JPRB,3.8270E+01_JPRB/) |
2947 |
|
|
KAO( :, 4,13,14) = (/& |
2948 |
|
|
& 1.0553E+01_JPRB,9.3501E+00_JPRB,8.4789E+00_JPRB,7.6951E+00_JPRB,6.8488E+00_JPRB,6.3996E+00_JPRB,& |
2949 |
✓✓ |
12 |
& 6.5438E+00_JPRB,7.3994E+00_JPRB,8.1156E+00_JPRB,8.3624E+00_JPRB,3.9180E+01_JPRB/) |
2950 |
|
|
KAO( :, 5,13,14) = (/& |
2951 |
|
|
& 1.0418E+01_JPRB,9.2624E+00_JPRB,8.6238E+00_JPRB,7.8509E+00_JPRB,7.3367E+00_JPRB,7.3271E+00_JPRB,& |
2952 |
✓✓ |
12 |
& 8.0317E+00_JPRB,9.2713E+00_JPRB,1.0168E+01_JPRB,1.0477E+01_JPRB,4.0242E+01_JPRB/) |
2953 |
|
|
KAO( :, 1, 1,15) = (/& |
2954 |
|
|
& 3.4517E+00_JPRB,3.0397E+00_JPRB,4.3495E+00_JPRB,6.5195E+00_JPRB,8.6891E+00_JPRB,1.0859E+01_JPRB,& |
2955 |
✓✓ |
12 |
& 1.3028E+01_JPRB,1.5192E+01_JPRB,1.6642E+01_JPRB,1.7045E+01_JPRB,1.6592E+01_JPRB/) |
2956 |
|
|
KAO( :, 2, 1,15) = (/& |
2957 |
|
|
& 3.3993E+00_JPRB,3.1455E+00_JPRB,5.0715E+00_JPRB,7.6013E+00_JPRB,1.0131E+01_JPRB,1.2660E+01_JPRB,& |
2958 |
✓✓ |
12 |
& 1.5190E+01_JPRB,1.7713E+01_JPRB,1.9405E+01_JPRB,1.9876E+01_JPRB,1.9373E+01_JPRB/) |
2959 |
|
|
KAO( :, 3, 1,15) = (/& |
2960 |
|
|
& 3.3459E+00_JPRB,3.3075E+00_JPRB,5.7978E+00_JPRB,8.6893E+00_JPRB,1.1582E+01_JPRB,1.4472E+01_JPRB,& |
2961 |
✓✓ |
12 |
& 1.7361E+01_JPRB,2.0250E+01_JPRB,2.2182E+01_JPRB,2.2727E+01_JPRB,2.2178E+01_JPRB/) |
2962 |
|
|
KAO( :, 4, 1,15) = (/& |
2963 |
|
|
& 3.2986E+00_JPRB,3.5290E+00_JPRB,6.5252E+00_JPRB,9.7768E+00_JPRB,1.3028E+01_JPRB,1.6279E+01_JPRB,& |
2964 |
✓✓ |
12 |
& 1.9527E+01_JPRB,2.2769E+01_JPRB,2.4943E+01_JPRB,2.5561E+01_JPRB,2.4969E+01_JPRB/) |
2965 |
|
|
KAO( :, 5, 1,15) = (/& |
2966 |
|
|
& 3.2551E+00_JPRB,3.7853E+00_JPRB,7.2659E+00_JPRB,1.0883E+01_JPRB,1.4501E+01_JPRB,1.8116E+01_JPRB,& |
2967 |
✓✓ |
12 |
& 2.1727E+01_JPRB,2.5337E+01_JPRB,2.7748E+01_JPRB,2.8418E+01_JPRB,2.7723E+01_JPRB/) |
2968 |
|
|
KAO( :, 1, 2,15) = (/& |
2969 |
|
|
& 3.6522E+00_JPRB,3.2711E+00_JPRB,4.5099E+00_JPRB,6.6968E+00_JPRB,8.9267E+00_JPRB,1.1156E+01_JPRB,& |
2970 |
✓✓ |
12 |
& 1.3385E+01_JPRB,1.5605E+01_JPRB,1.7100E+01_JPRB,1.7534E+01_JPRB,1.7404E+01_JPRB/) |
2971 |
|
|
KAO( :, 2, 2,15) = (/& |
2972 |
|
|
& 3.6012E+00_JPRB,3.4064E+00_JPRB,5.2386E+00_JPRB,7.8494E+00_JPRB,1.0463E+01_JPRB,1.3076E+01_JPRB,& |
2973 |
✓✓ |
12 |
& 1.5688E+01_JPRB,1.8292E+01_JPRB,2.0045E+01_JPRB,2.0557E+01_JPRB,2.0412E+01_JPRB/) |
2974 |
|
|
KAO( :, 3, 2,15) = (/& |
2975 |
|
|
& 3.5578E+00_JPRB,3.5847E+00_JPRB,6.0307E+00_JPRB,9.0357E+00_JPRB,1.2041E+01_JPRB,1.5045E+01_JPRB,& |
2976 |
✓✓ |
12 |
& 1.8047E+01_JPRB,2.1044E+01_JPRB,2.3057E+01_JPRB,2.3640E+01_JPRB,2.3465E+01_JPRB/) |
2977 |
|
|
KAO( :, 4, 2,15) = (/& |
2978 |
|
|
& 3.5171E+00_JPRB,3.8136E+00_JPRB,6.8582E+00_JPRB,1.0272E+01_JPRB,1.3685E+01_JPRB,1.7098E+01_JPRB,& |
2979 |
✓✓ |
12 |
& 2.0508E+01_JPRB,2.3916E+01_JPRB,2.6198E+01_JPRB,2.6851E+01_JPRB,2.6618E+01_JPRB/) |
2980 |
|
|
KAO( :, 5, 2,15) = (/& |
2981 |
|
|
& 3.4777E+00_JPRB,4.0744E+00_JPRB,7.7115E+00_JPRB,1.1547E+01_JPRB,1.5382E+01_JPRB,1.9216E+01_JPRB,& |
2982 |
✓✓ |
12 |
& 2.3048E+01_JPRB,2.6876E+01_JPRB,2.9437E+01_JPRB,3.0161E+01_JPRB,2.9874E+01_JPRB/) |
2983 |
|
|
KAO( :, 1, 3,15) = (/& |
2984 |
|
|
& 4.0012E+00_JPRB,3.5438E+00_JPRB,4.5445E+00_JPRB,6.5121E+00_JPRB,8.6806E+00_JPRB,1.0848E+01_JPRB,& |
2985 |
✓✓ |
12 |
& 1.3016E+01_JPRB,1.5179E+01_JPRB,1.6635E+01_JPRB,1.7074E+01_JPRB,1.7180E+01_JPRB/) |
2986 |
|
|
KAO( :, 2, 3,15) = (/& |
2987 |
|
|
& 3.9193E+00_JPRB,3.6637E+00_JPRB,5.2345E+00_JPRB,7.7505E+00_JPRB,1.0328E+01_JPRB,1.2905E+01_JPRB,& |
2988 |
✓✓ |
12 |
& 1.5480E+01_JPRB,1.8051E+01_JPRB,1.9781E+01_JPRB,2.0289E+01_JPRB,2.0415E+01_JPRB/) |
2989 |
|
|
KAO( :, 3, 3,15) = (/& |
2990 |
|
|
& 3.8577E+00_JPRB,3.8234E+00_JPRB,6.0517E+00_JPRB,9.0644E+00_JPRB,1.2077E+01_JPRB,1.5089E+01_JPRB,& |
2991 |
✓✓ |
12 |
& 1.8099E+01_JPRB,2.1106E+01_JPRB,2.3127E+01_JPRB,2.3709E+01_JPRB,2.3850E+01_JPRB/) |
2992 |
|
|
KAO( :, 4, 3,15) = (/& |
2993 |
|
|
& 3.8049E+00_JPRB,4.0468E+00_JPRB,6.9689E+00_JPRB,1.0436E+01_JPRB,1.3903E+01_JPRB,1.7370E+01_JPRB,& |
2994 |
✓✓ |
12 |
& 2.0836E+01_JPRB,2.4295E+01_JPRB,2.6620E+01_JPRB,2.7290E+01_JPRB,2.7443E+01_JPRB/) |
2995 |
|
|
KAO( :, 5, 3,15) = (/& |
2996 |
|
|
& 3.7571E+00_JPRB,4.3042E+00_JPRB,7.9142E+00_JPRB,1.1851E+01_JPRB,1.5788E+01_JPRB,1.9723E+01_JPRB,& |
2997 |
✓✓ |
12 |
& 2.3657E+01_JPRB,2.7583E+01_JPRB,3.0223E+01_JPRB,3.0982E+01_JPRB,3.1151E+01_JPRB/) |
2998 |
|
|
KAO( :, 1, 4,15) = (/& |
2999 |
|
|
& 4.5413E+00_JPRB,3.9760E+00_JPRB,4.5956E+00_JPRB,6.1749E+00_JPRB,8.2304E+00_JPRB,1.0286E+01_JPRB,& |
3000 |
✓✓ |
12 |
& 1.2342E+01_JPRB,1.4394E+01_JPRB,1.5775E+01_JPRB,1.6197E+01_JPRB,1.6378E+01_JPRB/) |
3001 |
|
|
KAO( :, 2, 4,15) = (/& |
3002 |
|
|
& 4.4358E+00_JPRB,4.0500E+00_JPRB,5.2197E+00_JPRB,7.4879E+00_JPRB,9.9757E+00_JPRB,1.2463E+01_JPRB,& |
3003 |
✓✓ |
12 |
& 1.4950E+01_JPRB,1.7428E+01_JPRB,1.9103E+01_JPRB,1.9604E+01_JPRB,1.9831E+01_JPRB/) |
3004 |
|
|
KAO( :, 3, 4,15) = (/& |
3005 |
|
|
& 4.3496E+00_JPRB,4.1500E+00_JPRB,5.9601E+00_JPRB,8.9065E+00_JPRB,1.1863E+01_JPRB,1.4820E+01_JPRB,& |
3006 |
✓✓ |
12 |
& 1.7774E+01_JPRB,2.0728E+01_JPRB,2.2708E+01_JPRB,2.3295E+01_JPRB,2.3568E+01_JPRB/) |
3007 |
|
|
KAO( :, 4, 4,15) = (/& |
3008 |
|
|
& 4.2783E+00_JPRB,4.3259E+00_JPRB,6.9520E+00_JPRB,1.0406E+01_JPRB,1.3860E+01_JPRB,1.7313E+01_JPRB,& |
3009 |
✓✓ |
12 |
& 2.0763E+01_JPRB,2.4211E+01_JPRB,2.6527E+01_JPRB,2.7194E+01_JPRB,2.7525E+01_JPRB/) |
3010 |
|
|
KAO( :, 5, 4,15) = (/& |
3011 |
|
|
& 4.2147E+00_JPRB,4.5565E+00_JPRB,7.9967E+00_JPRB,1.1967E+01_JPRB,1.5938E+01_JPRB,1.9911E+01_JPRB,& |
3012 |
✓✓ |
12 |
& 2.3877E+01_JPRB,2.7842E+01_JPRB,3.0498E+01_JPRB,3.1272E+01_JPRB,3.1647E+01_JPRB/) |
3013 |
|
|
KAO( :, 1, 5,15) = (/& |
3014 |
|
|
& 5.1884E+00_JPRB,4.5403E+00_JPRB,4.7931E+00_JPRB,5.8956E+00_JPRB,7.7629E+00_JPRB,9.7012E+00_JPRB,& |
3015 |
✓✓ |
12 |
& 1.1639E+01_JPRB,1.3574E+01_JPRB,1.4878E+01_JPRB,1.5273E+01_JPRB,1.5485E+01_JPRB/) |
3016 |
|
|
KAO( :, 2, 5,15) = (/& |
3017 |
|
|
& 5.0662E+00_JPRB,4.5450E+00_JPRB,5.3264E+00_JPRB,7.1969E+00_JPRB,9.5885E+00_JPRB,1.1980E+01_JPRB,& |
3018 |
✓✓ |
12 |
& 1.4371E+01_JPRB,1.6762E+01_JPRB,1.8366E+01_JPRB,1.8844E+01_JPRB,1.9112E+01_JPRB/) |
3019 |
|
|
KAO( :, 3, 5,15) = (/& |
3020 |
|
|
& 4.9667E+00_JPRB,4.6362E+00_JPRB,5.9568E+00_JPRB,8.7016E+00_JPRB,1.1592E+01_JPRB,1.4482E+01_JPRB,& |
3021 |
✓✓ |
12 |
& 1.7370E+01_JPRB,2.0252E+01_JPRB,2.2194E+01_JPRB,2.2764E+01_JPRB,2.3092E+01_JPRB/) |
3022 |
|
|
KAO( :, 4, 5,15) = (/& |
3023 |
|
|
& 4.8811E+00_JPRB,4.7581E+00_JPRB,6.8907E+00_JPRB,1.0315E+01_JPRB,1.3738E+01_JPRB,1.7164E+01_JPRB,& |
3024 |
✓✓ |
12 |
& 2.0588E+01_JPRB,2.4000E+01_JPRB,2.6296E+01_JPRB,2.6966E+01_JPRB,2.7352E+01_JPRB/) |
3025 |
|
|
KAO( :, 5, 5,15) = (/& |
3026 |
|
|
& 4.8022E+00_JPRB,4.9436E+00_JPRB,8.0245E+00_JPRB,1.2011E+01_JPRB,1.5998E+01_JPRB,1.9984E+01_JPRB,& |
3027 |
✓✓ |
12 |
& 2.3970E+01_JPRB,2.7945E+01_JPRB,3.0615E+01_JPRB,3.1395E+01_JPRB,3.1854E+01_JPRB/) |
3028 |
|
|
KAO( :, 1, 6,15) = (/& |
3029 |
|
|
& 5.9540E+00_JPRB,5.2101E+00_JPRB,5.1559E+00_JPRB,5.7766E+00_JPRB,7.2000E+00_JPRB,8.9966E+00_JPRB,& |
3030 |
✓✓ |
12 |
& 1.0790E+01_JPRB,1.2585E+01_JPRB,1.3788E+01_JPRB,1.4160E+01_JPRB,1.4369E+01_JPRB/) |
3031 |
|
|
KAO( :, 2, 6,15) = (/& |
3032 |
|
|
& 5.8116E+00_JPRB,5.1177E+00_JPRB,5.5815E+00_JPRB,6.8585E+00_JPRB,9.1046E+00_JPRB,1.1376E+01_JPRB,& |
3033 |
✓✓ |
12 |
& 1.3646E+01_JPRB,1.5913E+01_JPRB,1.7437E+01_JPRB,1.7895E+01_JPRB,1.8166E+01_JPRB/) |
3034 |
|
|
KAO( :, 3, 6,15) = (/& |
3035 |
|
|
& 5.6919E+00_JPRB,5.2252E+00_JPRB,6.1200E+00_JPRB,8.4234E+00_JPRB,1.1222E+01_JPRB,1.4022E+01_JPRB,& |
3036 |
✓✓ |
12 |
& 1.6819E+01_JPRB,1.9613E+01_JPRB,2.1489E+01_JPRB,2.2041E+01_JPRB,2.2387E+01_JPRB/) |
3037 |
|
|
KAO( :, 4, 6,15) = (/& |
3038 |
|
|
& 5.5882E+00_JPRB,5.3197E+00_JPRB,6.8459E+00_JPRB,1.0145E+01_JPRB,1.3515E+01_JPRB,1.6884E+01_JPRB,& |
3039 |
✓✓ |
12 |
& 2.0253E+01_JPRB,2.3617E+01_JPRB,2.5877E+01_JPRB,2.6539E+01_JPRB,2.6957E+01_JPRB/) |
3040 |
|
|
KAO( :, 5, 6,15) = (/& |
3041 |
|
|
& 5.4924E+00_JPRB,5.4609E+00_JPRB,7.9964E+00_JPRB,1.1974E+01_JPRB,1.5951E+01_JPRB,1.9927E+01_JPRB,& |
3042 |
✓✓ |
12 |
& 2.3903E+01_JPRB,2.7873E+01_JPRB,3.0539E+01_JPRB,3.1317E+01_JPRB,3.1808E+01_JPRB/) |
3043 |
|
|
KAO( :, 1, 7,15) = (/& |
3044 |
|
|
& 6.8609E+00_JPRB,6.0036E+00_JPRB,5.6856E+00_JPRB,5.8569E+00_JPRB,6.6558E+00_JPRB,8.2325E+00_JPRB,& |
3045 |
✓✓ |
12 |
& 9.8779E+00_JPRB,1.1519E+01_JPRB,1.2625E+01_JPRB,1.2957E+01_JPRB,1.3161E+01_JPRB/) |
3046 |
|
|
KAO( :, 2, 7,15) = (/& |
3047 |
|
|
& 6.6929E+00_JPRB,5.8566E+00_JPRB,5.9907E+00_JPRB,6.7106E+00_JPRB,8.5545E+00_JPRB,1.0689E+01_JPRB,& |
3048 |
✓✓ |
12 |
& 1.2823E+01_JPRB,1.4953E+01_JPRB,1.6388E+01_JPRB,1.6819E+01_JPRB,1.7084E+01_JPRB/) |
3049 |
|
|
KAO( :, 3, 7,15) = (/& |
3050 |
|
|
& 6.5525E+00_JPRB,5.8774E+00_JPRB,6.4316E+00_JPRB,8.0973E+00_JPRB,1.0774E+01_JPRB,1.3461E+01_JPRB,& |
3051 |
✓✓ |
12 |
& 1.6147E+01_JPRB,1.8828E+01_JPRB,2.0635E+01_JPRB,2.1172E+01_JPRB,2.1511E+01_JPRB/) |
3052 |
|
|
KAO( :, 4, 7,15) = (/& |
3053 |
|
|
& 6.4308E+00_JPRB,6.0200E+00_JPRB,7.0014E+00_JPRB,9.9118E+00_JPRB,1.3206E+01_JPRB,1.6500E+01_JPRB,& |
3054 |
✓✓ |
12 |
& 1.9791E+01_JPRB,2.3078E+01_JPRB,2.5291E+01_JPRB,2.5943E+01_JPRB,2.6365E+01_JPRB/) |
3055 |
|
|
KAO( :, 5, 7,15) = (/& |
3056 |
|
|
& 6.3315E+00_JPRB,6.1156E+00_JPRB,7.9980E+00_JPRB,1.1868E+01_JPRB,1.5812E+01_JPRB,1.9756E+01_JPRB,& |
3057 |
✓✓ |
12 |
& 2.3696E+01_JPRB,2.7636E+01_JPRB,3.0283E+01_JPRB,3.1063E+01_JPRB,3.1573E+01_JPRB/) |
3058 |
|
|
|
3059 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART10',1,ZHOOK_HANDLE) |
3060 |
|
1 |
END SUBROUTINE PART10 |
3061 |
|
|
|
3062 |
|
|
|
3063 |
|
1 |
SUBROUTINE PART11 |
3064 |
|
|
|
3065 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
3066 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART11',0,ZHOOK_HANDLE) |
3067 |
|
|
|
3068 |
|
|
|
3069 |
|
|
KAO( :, 1, 8,15) = (/& |
3070 |
|
|
& 7.8865E+00_JPRB,6.9009E+00_JPRB,6.2843E+00_JPRB,6.1316E+00_JPRB,6.3613E+00_JPRB,7.5584E+00_JPRB,& |
3071 |
✓✓ |
12 |
& 9.0686E+00_JPRB,1.0577E+01_JPRB,1.1592E+01_JPRB,1.1900E+01_JPRB,1.2089E+01_JPRB/) |
3072 |
|
|
KAO( :, 2, 8,15) = (/& |
3073 |
|
|
& 7.6965E+00_JPRB,6.7347E+00_JPRB,6.5927E+00_JPRB,6.8053E+00_JPRB,7.9909E+00_JPRB,9.9438E+00_JPRB,& |
3074 |
✓✓ |
12 |
& 1.1929E+01_JPRB,1.3913E+01_JPRB,1.5248E+01_JPRB,1.5655E+01_JPRB,1.5901E+01_JPRB/) |
3075 |
|
|
KAO( :, 3, 8,15) = (/& |
3076 |
|
|
& 7.5504E+00_JPRB,6.6675E+00_JPRB,6.9179E+00_JPRB,7.9162E+00_JPRB,1.0245E+01_JPRB,1.2802E+01_JPRB,& |
3077 |
✓✓ |
12 |
& 1.5357E+01_JPRB,1.7910E+01_JPRB,1.9627E+01_JPRB,2.0148E+01_JPRB,2.0469E+01_JPRB/) |
3078 |
|
|
KAO( :, 4, 8,15) = (/& |
3079 |
|
|
& 7.4360E+00_JPRB,6.7883E+00_JPRB,7.3531E+00_JPRB,9.6152E+00_JPRB,1.2792E+01_JPRB,1.5983E+01_JPRB,& |
3080 |
✓✓ |
12 |
& 1.9172E+01_JPRB,2.2359E+01_JPRB,2.4505E+01_JPRB,2.5152E+01_JPRB,2.5554E+01_JPRB/) |
3081 |
|
|
KAO( :, 5, 8,15) = (/& |
3082 |
|
|
& 7.3370E+00_JPRB,6.9240E+00_JPRB,8.1752E+00_JPRB,1.1669E+01_JPRB,1.5550E+01_JPRB,1.9429E+01_JPRB,& |
3083 |
✓✓ |
12 |
& 2.3306E+01_JPRB,2.7182E+01_JPRB,2.9790E+01_JPRB,3.0576E+01_JPRB,3.1067E+01_JPRB/) |
3084 |
|
|
KAO( :, 1, 9,15) = (/& |
3085 |
|
|
& 9.0967E+00_JPRB,7.9598E+00_JPRB,6.9734E+00_JPRB,6.6246E+00_JPRB,6.3273E+00_JPRB,6.9836E+00_JPRB,& |
3086 |
✓✓ |
12 |
& 8.3234E+00_JPRB,9.7073E+00_JPRB,1.0640E+01_JPRB,1.0924E+01_JPRB,1.1099E+01_JPRB/) |
3087 |
|
|
KAO( :, 2, 9,15) = (/& |
3088 |
|
|
& 8.8543E+00_JPRB,7.7477E+00_JPRB,7.2824E+00_JPRB,7.1264E+00_JPRB,7.6457E+00_JPRB,9.2650E+00_JPRB,& |
3089 |
✓✓ |
12 |
& 1.1116E+01_JPRB,1.2965E+01_JPRB,1.4208E+01_JPRB,1.4588E+01_JPRB,1.4820E+01_JPRB/) |
3090 |
|
|
KAO( :, 3, 9,15) = (/& |
3091 |
|
|
& 8.7111E+00_JPRB,7.6297E+00_JPRB,7.5745E+00_JPRB,7.9608E+00_JPRB,9.6557E+00_JPRB,1.2050E+01_JPRB,& |
3092 |
✓✓ |
12 |
& 1.4456E+01_JPRB,1.6860E+01_JPRB,1.8477E+01_JPRB,1.8971E+01_JPRB,1.9271E+01_JPRB/) |
3093 |
|
|
KAO( :, 4, 9,15) = (/& |
3094 |
|
|
& 8.5917E+00_JPRB,7.6924E+00_JPRB,7.9085E+00_JPRB,9.4305E+00_JPRB,1.2224E+01_JPRB,1.5276E+01_JPRB,& |
3095 |
✓✓ |
12 |
& 1.8326E+01_JPRB,2.1371E+01_JPRB,2.3421E+01_JPRB,2.4055E+01_JPRB,2.4428E+01_JPRB/) |
3096 |
|
|
KAO( :, 5, 9,15) = (/& |
3097 |
|
|
& 8.4819E+00_JPRB,7.8606E+00_JPRB,8.5251E+00_JPRB,1.1371E+01_JPRB,1.5099E+01_JPRB,1.8867E+01_JPRB,& |
3098 |
✓✓ |
12 |
& 2.2635E+01_JPRB,2.6398E+01_JPRB,2.8934E+01_JPRB,2.9714E+01_JPRB,3.0176E+01_JPRB/) |
3099 |
|
|
KAO( :, 1,10,15) = (/& |
3100 |
|
|
& 1.0579E+01_JPRB,9.2563E+00_JPRB,7.9515E+00_JPRB,7.2414E+00_JPRB,6.6262E+00_JPRB,6.7533E+00_JPRB,& |
3101 |
✓✓ |
12 |
& 7.7880E+00_JPRB,9.0842E+00_JPRB,9.9553E+00_JPRB,1.0226E+01_JPRB,1.4443E+01_JPRB/) |
3102 |
|
|
KAO( :, 2,10,15) = (/& |
3103 |
|
|
& 1.0272E+01_JPRB,8.9883E+00_JPRB,8.0814E+00_JPRB,7.6749E+00_JPRB,7.6815E+00_JPRB,8.8308E+00_JPRB,& |
3104 |
✓✓ |
12 |
& 1.0573E+01_JPRB,1.2332E+01_JPRB,1.3516E+01_JPRB,1.3883E+01_JPRB,1.6088E+01_JPRB/) |
3105 |
|
|
KAO( :, 3,10,15) = (/& |
3106 |
|
|
& 1.0064E+01_JPRB,8.8059E+00_JPRB,8.3682E+00_JPRB,8.3372E+00_JPRB,9.4460E+00_JPRB,1.1603E+01_JPRB,& |
3107 |
✓✓ |
12 |
& 1.3923E+01_JPRB,1.6236E+01_JPRB,1.7795E+01_JPRB,1.8275E+01_JPRB,1.8972E+01_JPRB/) |
3108 |
|
|
KAO( :, 4,10,15) = (/& |
3109 |
|
|
& 9.9156E+00_JPRB,8.7771E+00_JPRB,8.6891E+00_JPRB,9.5568E+00_JPRB,1.1876E+01_JPRB,1.4833E+01_JPRB,& |
3110 |
✓✓ |
12 |
& 1.7796E+01_JPRB,2.0756E+01_JPRB,2.2749E+01_JPRB,2.3365E+01_JPRB,2.3730E+01_JPRB/) |
3111 |
|
|
KAO( :, 5,10,15) = (/& |
3112 |
|
|
& 9.7815E+00_JPRB,8.9122E+00_JPRB,9.1420E+00_JPRB,1.1360E+01_JPRB,1.4761E+01_JPRB,1.8450E+01_JPRB,& |
3113 |
✓✓ |
12 |
& 2.2139E+01_JPRB,2.5815E+01_JPRB,2.8297E+01_JPRB,2.9069E+01_JPRB,2.9515E+01_JPRB/) |
3114 |
|
|
KAO( :, 1,11,15) = (/& |
3115 |
|
|
& 1.2192E+01_JPRB,1.0668E+01_JPRB,9.1719E+00_JPRB,8.2095E+00_JPRB,7.4257E+00_JPRB,7.4696E+00_JPRB,& |
3116 |
✓✓ |
12 |
& 8.4517E+00_JPRB,9.8563E+00_JPRB,1.0806E+01_JPRB,1.1102E+01_JPRB,2.7700E+01_JPRB/) |
3117 |
|
|
KAO( :, 2,11,15) = (/& |
3118 |
|
|
& 1.1855E+01_JPRB,1.0373E+01_JPRB,9.2641E+00_JPRB,8.5808E+00_JPRB,8.5516E+00_JPRB,9.6496E+00_JPRB,& |
3119 |
✓✓ |
12 |
& 1.1490E+01_JPRB,1.3402E+01_JPRB,1.4690E+01_JPRB,1.5091E+01_JPRB,2.8329E+01_JPRB/) |
3120 |
|
|
KAO( :, 3,11,15) = (/& |
3121 |
|
|
& 1.1617E+01_JPRB,1.0165E+01_JPRB,9.4549E+00_JPRB,9.2771E+00_JPRB,1.0404E+01_JPRB,1.2597E+01_JPRB,& |
3122 |
✓✓ |
12 |
& 1.5113E+01_JPRB,1.7627E+01_JPRB,1.9321E+01_JPRB,1.9850E+01_JPRB,2.9277E+01_JPRB/) |
3123 |
|
|
KAO( :, 4,11,15) = (/& |
3124 |
|
|
& 1.1419E+01_JPRB,1.0101E+01_JPRB,9.7647E+00_JPRB,1.0584E+01_JPRB,1.2914E+01_JPRB,1.6054E+01_JPRB,& |
3125 |
✓✓ |
12 |
& 1.9262E+01_JPRB,2.2467E+01_JPRB,2.4628E+01_JPRB,2.5304E+01_JPRB,3.1159E+01_JPRB/) |
3126 |
|
|
KAO( :, 5,11,15) = (/& |
3127 |
|
|
& 1.1246E+01_JPRB,1.0208E+01_JPRB,1.0298E+01_JPRB,1.2412E+01_JPRB,1.5920E+01_JPRB,1.9895E+01_JPRB,& |
3128 |
✓✓ |
12 |
& 2.3870E+01_JPRB,2.7842E+01_JPRB,3.0521E+01_JPRB,3.1359E+01_JPRB,3.4867E+01_JPRB/) |
3129 |
|
|
KAO( :, 1,12,15) = (/& |
3130 |
|
|
& 1.4055E+01_JPRB,1.2298E+01_JPRB,1.0584E+01_JPRB,9.3863E+00_JPRB,8.3528E+00_JPRB,8.2912E+00_JPRB,& |
3131 |
✓✓ |
12 |
& 9.1651E+00_JPRB,1.0659E+01_JPRB,1.1686E+01_JPRB,1.2009E+01_JPRB,4.0755E+01_JPRB/) |
3132 |
|
|
KAO( :, 2,12,15) = (/& |
3133 |
|
|
& 1.3708E+01_JPRB,1.1994E+01_JPRB,1.0673E+01_JPRB,9.6215E+00_JPRB,9.5535E+00_JPRB,1.0572E+01_JPRB,& |
3134 |
✓✓ |
12 |
& 1.2442E+01_JPRB,1.4512E+01_JPRB,1.5909E+01_JPRB,1.6350E+01_JPRB,4.1783E+01_JPRB/) |
3135 |
|
|
KAO( :, 3,12,15) = (/& |
3136 |
|
|
& 1.3432E+01_JPRB,1.1753E+01_JPRB,1.0809E+01_JPRB,1.0365E+01_JPRB,1.1475E+01_JPRB,1.3634E+01_JPRB,& |
3137 |
✓✓ |
12 |
& 1.6334E+01_JPRB,1.9052E+01_JPRB,2.0884E+01_JPRB,2.1465E+01_JPRB,4.2453E+01_JPRB/) |
3138 |
|
|
KAO( :, 4,12,15) = (/& |
3139 |
|
|
& 1.3187E+01_JPRB,1.1665E+01_JPRB,1.0969E+01_JPRB,1.1758E+01_JPRB,1.4080E+01_JPRB,1.7299E+01_JPRB,& |
3140 |
✓✓ |
12 |
& 2.0755E+01_JPRB,2.4210E+01_JPRB,2.6541E+01_JPRB,2.7279E+01_JPRB,4.2992E+01_JPRB/) |
3141 |
|
|
KAO( :, 5,12,15) = (/& |
3142 |
|
|
& 1.2971E+01_JPRB,1.1732E+01_JPRB,1.1607E+01_JPRB,1.3640E+01_JPRB,1.7148E+01_JPRB,2.1366E+01_JPRB,& |
3143 |
✓✓ |
12 |
& 2.5637E+01_JPRB,2.9905E+01_JPRB,3.2783E+01_JPRB,3.3705E+01_JPRB,4.4626E+01_JPRB/) |
3144 |
|
|
KAO( :, 1,13,15) = (/& |
3145 |
|
|
& 1.6228E+01_JPRB,1.4199E+01_JPRB,1.2230E+01_JPRB,1.0748E+01_JPRB,9.4009E+00_JPRB,9.2214E+00_JPRB,& |
3146 |
✓✓ |
12 |
& 9.9389E+00_JPRB,1.1470E+01_JPRB,1.2574E+01_JPRB,1.2929E+01_JPRB,4.6698E+01_JPRB/) |
3147 |
|
|
KAO( :, 2,13,15) = (/& |
3148 |
|
|
& 1.5839E+01_JPRB,1.3859E+01_JPRB,1.2304E+01_JPRB,1.0893E+01_JPRB,1.0661E+01_JPRB,1.1572E+01_JPRB,& |
3149 |
✓✓ |
12 |
& 1.3374E+01_JPRB,1.5600E+01_JPRB,1.7103E+01_JPRB,1.7585E+01_JPRB,4.7783E+01_JPRB/) |
3150 |
|
|
KAO( :, 3,13,15) = (/& |
3151 |
|
|
& 1.5511E+01_JPRB,1.3574E+01_JPRB,1.2374E+01_JPRB,1.1617E+01_JPRB,1.2687E+01_JPRB,1.4735E+01_JPRB,& |
3152 |
✓✓ |
12 |
& 1.7515E+01_JPRB,2.0432E+01_JPRB,2.2399E+01_JPRB,2.3033E+01_JPRB,4.8488E+01_JPRB/) |
3153 |
|
|
KAO( :, 4,13,15) = (/& |
3154 |
|
|
& 1.5222E+01_JPRB,1.3473E+01_JPRB,1.2471E+01_JPRB,1.3097E+01_JPRB,1.5327E+01_JPRB,1.8511E+01_JPRB,& |
3155 |
✓✓ |
12 |
& 2.2200E+01_JPRB,2.5897E+01_JPRB,2.8394E+01_JPRB,2.9197E+01_JPRB,4.9013E+01_JPRB/) |
3156 |
|
|
KAO( :, 5,13,15) = (/& |
3157 |
|
|
& 1.4970E+01_JPRB,1.3493E+01_JPRB,1.3069E+01_JPRB,1.5022E+01_JPRB,1.8478E+01_JPRB,2.2815E+01_JPRB,& |
3158 |
✓✓ |
12 |
& 2.7375E+01_JPRB,3.1933E+01_JPRB,3.5007E+01_JPRB,3.5995E+01_JPRB,5.0755E+01_JPRB/) |
3159 |
|
|
KAO( :, 1, 1,16) = (/& |
3160 |
|
|
& 3.6978E+00_JPRB,3.2359E+00_JPRB,5.8520E+00_JPRB,8.7722E+00_JPRB,1.1692E+01_JPRB,1.4611E+01_JPRB,& |
3161 |
✓✓ |
12 |
& 1.7529E+01_JPRB,2.0434E+01_JPRB,2.2353E+01_JPRB,2.2771E+01_JPRB,2.1591E+01_JPRB/) |
3162 |
|
|
KAO( :, 2, 1,16) = (/& |
3163 |
|
|
& 3.6499E+00_JPRB,3.4722E+00_JPRB,6.9301E+00_JPRB,1.0388E+01_JPRB,1.3844E+01_JPRB,1.7300E+01_JPRB,& |
3164 |
✓✓ |
12 |
& 2.0752E+01_JPRB,2.4192E+01_JPRB,2.6475E+01_JPRB,2.6965E+01_JPRB,2.5577E+01_JPRB/) |
3165 |
|
|
KAO( :, 3, 1,16) = (/& |
3166 |
|
|
& 3.5975E+00_JPRB,4.0332E+00_JPRB,8.0476E+00_JPRB,1.2062E+01_JPRB,1.6074E+01_JPRB,2.0086E+01_JPRB,& |
3167 |
✓✓ |
12 |
& 2.4094E+01_JPRB,2.8087E+01_JPRB,3.0726E+01_JPRB,3.1309E+01_JPRB,2.9700E+01_JPRB/) |
3168 |
|
|
KAO( :, 4, 1,16) = (/& |
3169 |
|
|
& 3.5405E+00_JPRB,4.6049E+00_JPRB,9.1863E+00_JPRB,1.3767E+01_JPRB,1.8347E+01_JPRB,2.2925E+01_JPRB,& |
3170 |
✓✓ |
12 |
& 2.7499E+01_JPRB,3.2055E+01_JPRB,3.5076E+01_JPRB,3.5737E+01_JPRB,3.3906E+01_JPRB/) |
3171 |
|
|
KAO( :, 5, 1,16) = (/& |
3172 |
|
|
& 3.4814E+00_JPRB,5.1822E+00_JPRB,1.0334E+01_JPRB,1.5485E+01_JPRB,2.0637E+01_JPRB,2.5785E+01_JPRB,& |
3173 |
✓✓ |
12 |
& 3.0929E+01_JPRB,3.6054E+01_JPRB,3.9459E+01_JPRB,4.0196E+01_JPRB,3.8155E+01_JPRB/) |
3174 |
|
|
KAO( :, 1, 2,16) = (/& |
3175 |
|
|
& 4.0520E+00_JPRB,3.5458E+00_JPRB,6.5231E+00_JPRB,9.7790E+00_JPRB,1.3034E+01_JPRB,1.6288E+01_JPRB,& |
3176 |
✓✓ |
12 |
& 1.9539E+01_JPRB,2.2778E+01_JPRB,2.4923E+01_JPRB,2.5395E+01_JPRB,2.4752E+01_JPRB/) |
3177 |
|
|
KAO( :, 2, 2,16) = (/& |
3178 |
|
|
& 3.9931E+00_JPRB,3.9027E+00_JPRB,7.7909E+00_JPRB,1.1679E+01_JPRB,1.5566E+01_JPRB,1.9451E+01_JPRB,& |
3179 |
✓✓ |
12 |
& 2.3333E+01_JPRB,2.7200E+01_JPRB,2.9762E+01_JPRB,3.0330E+01_JPRB,2.9565E+01_JPRB/) |
3180 |
|
|
KAO( :, 3, 2,16) = (/& |
3181 |
|
|
& 3.9308E+00_JPRB,4.5630E+00_JPRB,9.1069E+00_JPRB,1.3651E+01_JPRB,1.8193E+01_JPRB,2.2734E+01_JPRB,& |
3182 |
✓✓ |
12 |
& 2.7271E+01_JPRB,3.1793E+01_JPRB,3.4788E+01_JPRB,3.5457E+01_JPRB,3.4565E+01_JPRB/) |
3183 |
|
|
KAO( :, 4, 2,16) = (/& |
3184 |
|
|
& 3.8638E+00_JPRB,5.2409E+00_JPRB,1.0457E+01_JPRB,1.5672E+01_JPRB,2.0886E+01_JPRB,2.6099E+01_JPRB,& |
3185 |
✓✓ |
12 |
& 3.1306E+01_JPRB,3.6497E+01_JPRB,3.9942E+01_JPRB,4.0702E+01_JPRB,3.9688E+01_JPRB/) |
3186 |
|
|
KAO( :, 5, 2,16) = (/& |
3187 |
|
|
& 3.7925E+00_JPRB,5.9258E+00_JPRB,1.1820E+01_JPRB,1.7713E+01_JPRB,2.3607E+01_JPRB,2.9498E+01_JPRB,& |
3188 |
✓✓ |
12 |
& 3.5387E+01_JPRB,4.1252E+01_JPRB,4.5136E+01_JPRB,4.6007E+01_JPRB,4.4885E+01_JPRB/) |
3189 |
|
|
KAO( :, 1, 3,16) = (/& |
3190 |
|
|
& 4.4902E+00_JPRB,3.9291E+00_JPRB,6.9369E+00_JPRB,1.0400E+01_JPRB,1.3863E+01_JPRB,1.7324E+01_JPRB,& |
3191 |
✓✓ |
12 |
& 2.0784E+01_JPRB,2.4230E+01_JPRB,2.6510E+01_JPRB,2.7027E+01_JPRB,2.7042E+01_JPRB/) |
3192 |
|
|
KAO( :, 2, 3,16) = (/& |
3193 |
|
|
& 4.4190E+00_JPRB,4.2063E+00_JPRB,8.3989E+00_JPRB,1.2591E+01_JPRB,1.6783E+01_JPRB,2.0972E+01_JPRB,& |
3194 |
✓✓ |
12 |
& 2.5161E+01_JPRB,2.9338E+01_JPRB,3.2094E+01_JPRB,3.2723E+01_JPRB,3.2745E+01_JPRB/) |
3195 |
|
|
KAO( :, 3, 3,16) = (/& |
3196 |
|
|
& 4.3422E+00_JPRB,4.9746E+00_JPRB,9.9306E+00_JPRB,1.4886E+01_JPRB,1.9841E+01_JPRB,2.4793E+01_JPRB,& |
3197 |
✓✓ |
12 |
& 2.9742E+01_JPRB,3.4667E+01_JPRB,3.7936E+01_JPRB,3.8674E+01_JPRB,3.8715E+01_JPRB/) |
3198 |
|
|
KAO( :, 4, 3,16) = (/& |
3199 |
|
|
& 4.2611E+00_JPRB,5.7667E+00_JPRB,1.1509E+01_JPRB,1.7250E+01_JPRB,2.2991E+01_JPRB,2.8729E+01_JPRB,& |
3200 |
✓✓ |
12 |
& 3.4468E+01_JPRB,4.0180E+01_JPRB,4.3962E+01_JPRB,4.4836E+01_JPRB,4.4863E+01_JPRB/) |
3201 |
|
|
KAO( :, 5, 3,16) = (/& |
3202 |
|
|
& 4.1760E+00_JPRB,6.5736E+00_JPRB,1.3115E+01_JPRB,1.9656E+01_JPRB,2.6196E+01_JPRB,3.2733E+01_JPRB,& |
3203 |
✓✓ |
12 |
& 3.9264E+01_JPRB,4.5777E+01_JPRB,5.0083E+01_JPRB,5.1074E+01_JPRB,5.1136E+01_JPRB/) |
3204 |
|
|
KAO( :, 1, 4,16) = (/& |
3205 |
|
|
& 5.0258E+00_JPRB,4.3977E+00_JPRB,7.1969E+00_JPRB,1.0791E+01_JPRB,1.4383E+01_JPRB,1.7975E+01_JPRB,& |
3206 |
✓✓ |
12 |
& 2.1569E+01_JPRB,2.5144E+01_JPRB,2.7520E+01_JPRB,2.8065E+01_JPRB,2.8444E+01_JPRB/) |
3207 |
|
|
KAO( :, 2, 4,16) = (/& |
3208 |
|
|
& 4.9390E+00_JPRB,4.4372E+00_JPRB,8.8585E+00_JPRB,1.3281E+01_JPRB,1.7703E+01_JPRB,2.2123E+01_JPRB,& |
3209 |
✓✓ |
12 |
& 2.6539E+01_JPRB,3.0949E+01_JPRB,3.3856E+01_JPRB,3.4541E+01_JPRB,3.4994E+01_JPRB/) |
3210 |
|
|
KAO( :, 3, 4,16) = (/& |
3211 |
|
|
& 4.8457E+00_JPRB,5.3158E+00_JPRB,1.0614E+01_JPRB,1.5912E+01_JPRB,2.1209E+01_JPRB,2.6503E+01_JPRB,& |
3212 |
✓✓ |
12 |
& 3.1793E+01_JPRB,3.7075E+01_JPRB,4.0567E+01_JPRB,4.1384E+01_JPRB,4.1940E+01_JPRB/) |
3213 |
|
|
KAO( :, 4, 4,16) = (/& |
3214 |
|
|
& 4.7474E+00_JPRB,6.2334E+00_JPRB,1.2443E+01_JPRB,1.8652E+01_JPRB,2.4860E+01_JPRB,3.1065E+01_JPRB,& |
3215 |
✓✓ |
12 |
& 3.7265E+01_JPRB,4.3443E+01_JPRB,4.7539E+01_JPRB,4.8495E+01_JPRB,4.9142E+01_JPRB/) |
3216 |
|
|
KAO( :, 5, 4,16) = (/& |
3217 |
|
|
& 4.6434E+00_JPRB,7.1705E+00_JPRB,1.4309E+01_JPRB,2.1448E+01_JPRB,2.8585E+01_JPRB,3.5719E+01_JPRB,& |
3218 |
✓✓ |
12 |
& 4.2858E+01_JPRB,4.9961E+01_JPRB,5.4666E+01_JPRB,5.5776E+01_JPRB,5.6532E+01_JPRB/) |
3219 |
|
|
KAO( :, 1, 5,16) = (/& |
3220 |
|
|
& 5.9530E+00_JPRB,5.2090E+00_JPRB,7.3637E+00_JPRB,1.1041E+01_JPRB,1.4718E+01_JPRB,1.8396E+01_JPRB,& |
3221 |
✓✓ |
12 |
& 2.2069E+01_JPRB,2.5729E+01_JPRB,2.8163E+01_JPRB,2.8740E+01_JPRB,2.9269E+01_JPRB/) |
3222 |
|
|
KAO( :, 2, 5,16) = (/& |
3223 |
|
|
& 5.7866E+00_JPRB,5.0634E+00_JPRB,9.2276E+00_JPRB,1.3835E+01_JPRB,1.8442E+01_JPRB,2.3049E+01_JPRB,& |
3224 |
✓✓ |
12 |
& 2.7650E+01_JPRB,3.2234E+01_JPRB,3.5276E+01_JPRB,3.5999E+01_JPRB,3.6669E+01_JPRB/) |
3225 |
|
|
KAO( :, 3, 5,16) = (/& |
3226 |
|
|
& 5.6302E+00_JPRB,5.6178E+00_JPRB,1.1219E+01_JPRB,1.6821E+01_JPRB,2.2421E+01_JPRB,2.8019E+01_JPRB,& |
3227 |
✓✓ |
12 |
& 3.3616E+01_JPRB,3.9189E+01_JPRB,4.2893E+01_JPRB,4.3778E+01_JPRB,4.4575E+01_JPRB/) |
3228 |
|
|
KAO( :, 4, 5,16) = (/& |
3229 |
|
|
& 5.4798E+00_JPRB,6.6656E+00_JPRB,1.3308E+01_JPRB,1.9950E+01_JPRB,2.6591E+01_JPRB,3.3229E+01_JPRB,& |
3230 |
✓✓ |
12 |
& 3.9862E+01_JPRB,4.6471E+01_JPRB,5.0866E+01_JPRB,5.1930E+01_JPRB,5.2869E+01_JPRB/) |
3231 |
|
|
KAO( :, 5, 5,16) = (/& |
3232 |
|
|
& 5.3354E+00_JPRB,7.7467E+00_JPRB,1.5462E+01_JPRB,2.3177E+01_JPRB,3.0891E+01_JPRB,3.8601E+01_JPRB,& |
3233 |
✓✓ |
12 |
& 4.6304E+01_JPRB,5.3986E+01_JPRB,5.9081E+01_JPRB,6.0310E+01_JPRB,6.1426E+01_JPRB/) |
3234 |
|
|
KAO( :, 1, 6,16) = (/& |
3235 |
|
|
& 7.2738E+00_JPRB,6.3646E+00_JPRB,7.3570E+00_JPRB,1.1032E+01_JPRB,1.4706E+01_JPRB,1.8378E+01_JPRB,& |
3236 |
✓✓ |
12 |
& 2.2046E+01_JPRB,2.5711E+01_JPRB,2.8141E+01_JPRB,2.8729E+01_JPRB,2.9318E+01_JPRB/) |
3237 |
|
|
KAO( :, 2, 6,16) = (/& |
3238 |
|
|
& 7.0648E+00_JPRB,6.1818E+00_JPRB,9.4107E+00_JPRB,1.4112E+01_JPRB,1.8811E+01_JPRB,2.3508E+01_JPRB,& |
3239 |
✓✓ |
12 |
& 2.8203E+01_JPRB,3.2879E+01_JPRB,3.5997E+01_JPRB,3.6754E+01_JPRB,3.7506E+01_JPRB/) |
3240 |
|
|
KAO( :, 3, 6,16) = (/& |
3241 |
|
|
& 6.8590E+00_JPRB,6.0610E+00_JPRB,1.1637E+01_JPRB,1.7447E+01_JPRB,2.3256E+01_JPRB,2.9066E+01_JPRB,& |
3242 |
✓✓ |
12 |
& 3.4869E+01_JPRB,4.0663E+01_JPRB,4.4507E+01_JPRB,4.5454E+01_JPRB,4.6382E+01_JPRB/) |
3243 |
|
|
KAO( :, 4, 6,16) = (/& |
3244 |
|
|
& 6.6613E+00_JPRB,7.0109E+00_JPRB,1.4000E+01_JPRB,2.0989E+01_JPRB,2.7977E+01_JPRB,3.4961E+01_JPRB,& |
3245 |
✓✓ |
12 |
& 4.1942E+01_JPRB,4.8903E+01_JPRB,5.3535E+01_JPRB,5.4670E+01_JPRB,5.5779E+01_JPRB/) |
3246 |
|
|
KAO( :, 5, 6,16) = (/& |
3247 |
|
|
& 6.4832E+00_JPRB,8.2415E+00_JPRB,1.6453E+01_JPRB,2.4664E+01_JPRB,3.2878E+01_JPRB,4.1086E+01_JPRB,& |
3248 |
✓✓ |
12 |
& 4.9286E+01_JPRB,5.7462E+01_JPRB,6.2904E+01_JPRB,6.4241E+01_JPRB,6.5559E+01_JPRB/) |
3249 |
|
|
KAO( :, 1, 7,16) = (/& |
3250 |
|
|
& 8.8732E+00_JPRB,7.7641E+00_JPRB,7.2311E+00_JPRB,1.0833E+01_JPRB,1.4441E+01_JPRB,1.8048E+01_JPRB,& |
3251 |
✓✓ |
12 |
& 2.1653E+01_JPRB,2.5247E+01_JPRB,2.7641E+01_JPRB,2.8229E+01_JPRB,2.8832E+01_JPRB/) |
3252 |
|
|
KAO( :, 2, 7,16) = (/& |
3253 |
|
|
& 8.6143E+00_JPRB,7.5376E+00_JPRB,9.4585E+00_JPRB,1.4183E+01_JPRB,1.8907E+01_JPRB,2.3629E+01_JPRB,& |
3254 |
✓✓ |
12 |
& 2.8346E+01_JPRB,3.3048E+01_JPRB,3.6188E+01_JPRB,3.6968E+01_JPRB,3.7763E+01_JPRB/) |
3255 |
|
|
KAO( :, 3, 7,16) = (/& |
3256 |
|
|
& 8.3664E+00_JPRB,7.3209E+00_JPRB,1.1919E+01_JPRB,1.7872E+01_JPRB,2.3823E+01_JPRB,2.9773E+01_JPRB,& |
3257 |
✓✓ |
12 |
& 3.5718E+01_JPRB,4.1638E+01_JPRB,4.5593E+01_JPRB,4.6590E+01_JPRB,4.7567E+01_JPRB/) |
3258 |
|
|
KAO( :, 4, 7,16) = (/& |
3259 |
|
|
& 8.1390E+00_JPRB,7.4468E+00_JPRB,1.4558E+01_JPRB,2.1826E+01_JPRB,2.9093E+01_JPRB,3.6357E+01_JPRB,& |
3260 |
✓✓ |
12 |
& 4.3619E+01_JPRB,5.0854E+01_JPRB,5.5680E+01_JPRB,5.6904E+01_JPRB,5.8098E+01_JPRB/) |
3261 |
|
|
KAO( :, 5, 7,16) = (/& |
3262 |
|
|
& 7.9265E+00_JPRB,8.6774E+00_JPRB,1.7326E+01_JPRB,2.5975E+01_JPRB,3.4621E+01_JPRB,4.3265E+01_JPRB,& |
3263 |
✓✓ |
12 |
& 5.1911E+01_JPRB,6.0538E+01_JPRB,6.6258E+01_JPRB,6.7733E+01_JPRB,6.9141E+01_JPRB/) |
3264 |
|
|
KAO( :, 1, 8,16) = (/& |
3265 |
|
|
& 1.0788E+01_JPRB,9.4395E+00_JPRB,8.0910E+00_JPRB,1.0487E+01_JPRB,1.3981E+01_JPRB,1.7474E+01_JPRB,& |
3266 |
✓✓ |
12 |
& 2.0958E+01_JPRB,2.4442E+01_JPRB,2.6758E+01_JPRB,2.7356E+01_JPRB,2.7940E+01_JPRB/) |
3267 |
|
|
KAO( :, 2, 8,16) = (/& |
3268 |
|
|
& 1.0475E+01_JPRB,9.1659E+00_JPRB,9.3873E+00_JPRB,1.4077E+01_JPRB,1.8765E+01_JPRB,2.3452E+01_JPRB,& |
3269 |
✓✓ |
12 |
& 2.8149E+01_JPRB,3.2822E+01_JPRB,3.5937E+01_JPRB,3.6740E+01_JPRB,3.7513E+01_JPRB/) |
3270 |
|
|
KAO( :, 3, 8,16) = (/& |
3271 |
|
|
& 1.0193E+01_JPRB,8.9191E+00_JPRB,1.2075E+01_JPRB,1.8106E+01_JPRB,2.4136E+01_JPRB,3.0164E+01_JPRB,& |
3272 |
✓✓ |
12 |
& 3.6189E+01_JPRB,4.2205E+01_JPRB,4.6208E+01_JPRB,4.7253E+01_JPRB,4.8244E+01_JPRB/) |
3273 |
|
|
KAO( :, 4, 8,16) = (/& |
3274 |
|
|
& 9.9289E+00_JPRB,8.6882E+00_JPRB,1.4994E+01_JPRB,2.2482E+01_JPRB,2.9968E+01_JPRB,3.7453E+01_JPRB,& |
3275 |
✓✓ |
12 |
& 4.4932E+01_JPRB,5.2391E+01_JPRB,5.7371E+01_JPRB,5.8661E+01_JPRB,5.9909E+01_JPRB/) |
3276 |
|
|
KAO( :, 5, 8,16) = (/& |
3277 |
|
|
& 9.6775E+00_JPRB,9.2158E+00_JPRB,1.8085E+01_JPRB,2.7113E+01_JPRB,3.6140E+01_JPRB,4.5163E+01_JPRB,& |
3278 |
✓✓ |
12 |
& 5.4184E+01_JPRB,6.3203E+01_JPRB,6.9206E+01_JPRB,7.0757E+01_JPRB,7.2247E+01_JPRB/) |
3279 |
|
|
KAO( :, 1, 9,16) = (/& |
3280 |
|
|
& 1.3069E+01_JPRB,1.1436E+01_JPRB,9.8022E+00_JPRB,9.9694E+00_JPRB,1.3291E+01_JPRB,1.6611E+01_JPRB,& |
3281 |
✓✓ |
12 |
& 1.9930E+01_JPRB,2.3243E+01_JPRB,2.5447E+01_JPRB,2.6029E+01_JPRB,2.6580E+01_JPRB/) |
3282 |
|
|
KAO( :, 2, 9,16) = (/& |
3283 |
|
|
& 1.2725E+01_JPRB,1.1134E+01_JPRB,9.8753E+00_JPRB,1.3769E+01_JPRB,1.8356E+01_JPRB,2.2942E+01_JPRB,& |
3284 |
✓✓ |
12 |
& 2.7527E+01_JPRB,3.2095E+01_JPRB,3.5151E+01_JPRB,3.5948E+01_JPRB,3.6707E+01_JPRB/) |
3285 |
|
|
KAO( :, 3, 9,16) = (/& |
3286 |
|
|
& 1.2400E+01_JPRB,1.0851E+01_JPRB,1.2076E+01_JPRB,1.8109E+01_JPRB,2.4141E+01_JPRB,3.0170E+01_JPRB,& |
3287 |
✓✓ |
12 |
& 3.6196E+01_JPRB,4.2203E+01_JPRB,4.6216E+01_JPRB,4.7284E+01_JPRB,4.8252E+01_JPRB/) |
3288 |
|
|
KAO( :, 4, 9,16) = (/& |
3289 |
|
|
& 1.2089E+01_JPRB,1.0578E+01_JPRB,1.5258E+01_JPRB,2.2878E+01_JPRB,3.0500E+01_JPRB,3.8117E+01_JPRB,& |
3290 |
✓✓ |
12 |
& 4.5731E+01_JPRB,5.3326E+01_JPRB,5.8402E+01_JPRB,5.9748E+01_JPRB,6.0995E+01_JPRB/) |
3291 |
|
|
KAO( :, 5, 9,16) = (/& |
3292 |
|
|
& 1.1789E+01_JPRB,1.0434E+01_JPRB,1.8677E+01_JPRB,2.8005E+01_JPRB,3.7330E+01_JPRB,4.6652E+01_JPRB,& |
3293 |
✓✓ |
12 |
& 5.5969E+01_JPRB,6.5258E+01_JPRB,7.1468E+01_JPRB,7.3124E+01_JPRB,7.4629E+01_JPRB/) |
3294 |
|
|
KAO( :, 1,10,16) = (/& |
3295 |
|
|
& 1.5771E+01_JPRB,1.3799E+01_JPRB,1.1828E+01_JPRB,1.0379E+01_JPRB,1.2776E+01_JPRB,1.5968E+01_JPRB,& |
3296 |
✓✓ |
12 |
& 1.9158E+01_JPRB,2.2340E+01_JPRB,2.4469E+01_JPRB,2.5039E+01_JPRB,2.5553E+01_JPRB/) |
3297 |
|
|
KAO( :, 2,10,16) = (/& |
3298 |
|
|
& 1.5386E+01_JPRB,1.3463E+01_JPRB,1.1540E+01_JPRB,1.3590E+01_JPRB,1.8117E+01_JPRB,2.2643E+01_JPRB,& |
3299 |
✓✓ |
12 |
& 2.7166E+01_JPRB,3.1679E+01_JPRB,3.4682E+01_JPRB,3.5507E+01_JPRB,3.6231E+01_JPRB/) |
3300 |
|
|
KAO( :, 3,10,16) = (/& |
3301 |
|
|
& 1.5014E+01_JPRB,1.3138E+01_JPRB,1.2638E+01_JPRB,1.8229E+01_JPRB,2.4305E+01_JPRB,3.0376E+01_JPRB,& |
3302 |
✓✓ |
12 |
& 3.6447E+01_JPRB,4.2507E+01_JPRB,4.6554E+01_JPRB,4.7660E+01_JPRB,4.8617E+01_JPRB/) |
3303 |
|
|
KAO( :, 4,10,16) = (/& |
3304 |
|
|
& 1.4647E+01_JPRB,1.2816E+01_JPRB,1.5618E+01_JPRB,2.3419E+01_JPRB,3.1218E+01_JPRB,3.9016E+01_JPRB,& |
3305 |
✓✓ |
12 |
& 4.6807E+01_JPRB,5.4591E+01_JPRB,5.9795E+01_JPRB,6.1215E+01_JPRB,6.2420E+01_JPRB/) |
3306 |
|
|
KAO( :, 5,10,16) = (/& |
3307 |
|
|
& 1.4280E+01_JPRB,1.2495E+01_JPRB,1.9355E+01_JPRB,2.9020E+01_JPRB,3.8692E+01_JPRB,4.8365E+01_JPRB,& |
3308 |
✓✓ |
12 |
& 5.8042E+01_JPRB,6.7684E+01_JPRB,7.4123E+01_JPRB,7.5902E+01_JPRB,7.7369E+01_JPRB/) |
3309 |
|
|
KAO( :, 1,11,16) = (/& |
3310 |
|
|
& 1.8786E+01_JPRB,1.6438E+01_JPRB,1.4090E+01_JPRB,1.2331E+01_JPRB,1.4530E+01_JPRB,1.8160E+01_JPRB,& |
3311 |
✓✓ |
12 |
& 2.1788E+01_JPRB,2.5406E+01_JPRB,2.7840E+01_JPRB,2.8505E+01_JPRB,3.1090E+01_JPRB/) |
3312 |
|
|
KAO( :, 2,11,16) = (/& |
3313 |
|
|
& 1.8352E+01_JPRB,1.6058E+01_JPRB,1.3764E+01_JPRB,1.5493E+01_JPRB,2.0554E+01_JPRB,2.5688E+01_JPRB,& |
3314 |
✓✓ |
12 |
& 3.0819E+01_JPRB,3.5940E+01_JPRB,3.9370E+01_JPRB,4.0314E+01_JPRB,4.1103E+01_JPRB/) |
3315 |
|
|
KAO( :, 3,11,16) = (/& |
3316 |
|
|
& 1.7913E+01_JPRB,1.5674E+01_JPRB,1.4890E+01_JPRB,2.0637E+01_JPRB,2.7511E+01_JPRB,3.4389E+01_JPRB,& |
3317 |
✓✓ |
12 |
& 4.1261E+01_JPRB,4.8114E+01_JPRB,5.2700E+01_JPRB,5.3986E+01_JPRB,5.5030E+01_JPRB/) |
3318 |
|
|
KAO( :, 4,11,16) = (/& |
3319 |
|
|
& 1.7463E+01_JPRB,1.5280E+01_JPRB,1.7784E+01_JPRB,2.6445E+01_JPRB,3.5253E+01_JPRB,4.4066E+01_JPRB,& |
3320 |
✓✓ |
12 |
& 5.2867E+01_JPRB,6.1654E+01_JPRB,6.7542E+01_JPRB,6.9213E+01_JPRB,7.0519E+01_JPRB/) |
3321 |
|
|
KAO( :, 5,11,16) = (/& |
3322 |
|
|
& 1.7011E+01_JPRB,1.4885E+01_JPRB,2.1813E+01_JPRB,3.2706E+01_JPRB,4.3599E+01_JPRB,5.4495E+01_JPRB,& |
3323 |
✓✓ |
12 |
& 6.5377E+01_JPRB,7.6235E+01_JPRB,8.3536E+01_JPRB,8.5586E+01_JPRB,8.7197E+01_JPRB/) |
3324 |
|
|
KAO( :, 1,12,16) = (/& |
3325 |
|
|
& 2.2316E+01_JPRB,1.9527E+01_JPRB,1.6737E+01_JPRB,1.4596E+01_JPRB,1.6461E+01_JPRB,2.0474E+01_JPRB,& |
3326 |
✓✓ |
12 |
& 2.4566E+01_JPRB,2.8661E+01_JPRB,3.1410E+01_JPRB,3.2180E+01_JPRB,4.4855E+01_JPRB/) |
3327 |
|
|
KAO( :, 2,12,16) = (/& |
3328 |
|
|
& 2.1794E+01_JPRB,1.9070E+01_JPRB,1.6346E+01_JPRB,1.7861E+01_JPRB,2.3106E+01_JPRB,2.8879E+01_JPRB,& |
3329 |
✓✓ |
12 |
& 3.4647E+01_JPRB,4.0407E+01_JPRB,4.4277E+01_JPRB,4.5382E+01_JPRB,4.9760E+01_JPRB/) |
3330 |
|
|
KAO( :, 3,12,16) = (/& |
3331 |
|
|
& 2.1250E+01_JPRB,1.8594E+01_JPRB,1.7508E+01_JPRB,2.3135E+01_JPRB,3.0842E+01_JPRB,3.8557E+01_JPRB,& |
3332 |
✓✓ |
12 |
& 4.6258E+01_JPRB,5.3944E+01_JPRB,5.9113E+01_JPRB,6.0595E+01_JPRB,6.2174E+01_JPRB/) |
3333 |
|
|
KAO( :, 4,12,16) = (/& |
3334 |
|
|
& 2.0691E+01_JPRB,1.8105E+01_JPRB,2.0448E+01_JPRB,2.9564E+01_JPRB,3.9416E+01_JPRB,4.9267E+01_JPRB,& |
3335 |
✓✓ |
12 |
& 5.9115E+01_JPRB,6.8938E+01_JPRB,7.5537E+01_JPRB,7.7449E+01_JPRB,7.8830E+01_JPRB/) |
3336 |
|
|
KAO( :, 5,12,16) = (/& |
3337 |
|
|
& 2.0116E+01_JPRB,1.7618E+01_JPRB,2.4414E+01_JPRB,3.6468E+01_JPRB,4.8613E+01_JPRB,6.0754E+01_JPRB,& |
3338 |
✓✓ |
12 |
& 7.2909E+01_JPRB,8.5015E+01_JPRB,9.3174E+01_JPRB,9.5539E+01_JPRB,9.7222E+01_JPRB/) |
3339 |
|
|
KAO( :, 1,13,16) = (/& |
3340 |
|
|
& 2.6369E+01_JPRB,2.3073E+01_JPRB,1.9777E+01_JPRB,1.7264E+01_JPRB,1.8821E+01_JPRB,2.2830E+01_JPRB,& |
3341 |
✓✓ |
12 |
& 2.7390E+01_JPRB,3.1940E+01_JPRB,3.5002E+01_JPRB,3.5903E+01_JPRB,5.1967E+01_JPRB/) |
3342 |
|
|
KAO( :, 2,13,16) = (/& |
3343 |
|
|
& 2.5711E+01_JPRB,2.2497E+01_JPRB,1.9315E+01_JPRB,2.0637E+01_JPRB,2.5666E+01_JPRB,3.2078E+01_JPRB,& |
3344 |
✓✓ |
12 |
& 3.8490E+01_JPRB,4.4893E+01_JPRB,4.9192E+01_JPRB,5.0468E+01_JPRB,5.7721E+01_JPRB/) |
3345 |
|
|
KAO( :, 3,13,16) = (/& |
3346 |
|
|
& 2.5020E+01_JPRB,2.1893E+01_JPRB,2.0597E+01_JPRB,2.5898E+01_JPRB,3.4157E+01_JPRB,4.2689E+01_JPRB,& |
3347 |
✓✓ |
12 |
& 5.1216E+01_JPRB,5.9737E+01_JPRB,6.5448E+01_JPRB,6.7176E+01_JPRB,7.0449E+01_JPRB/) |
3348 |
|
|
KAO( :, 4,13,16) = (/& |
3349 |
|
|
& 2.4297E+01_JPRB,2.1260E+01_JPRB,2.3512E+01_JPRB,3.2642E+01_JPRB,4.3514E+01_JPRB,5.4385E+01_JPRB,& |
3350 |
✓✓ |
12 |
& 6.5247E+01_JPRB,7.6086E+01_JPRB,8.3406E+01_JPRB,8.5607E+01_JPRB,8.7331E+01_JPRB/) |
3351 |
|
|
KAO( :, 5,13,16) = (/& |
3352 |
|
|
& 2.3576E+01_JPRB,2.0739E+01_JPRB,2.7492E+01_JPRB,4.0149E+01_JPRB,5.3519E+01_JPRB,6.6886E+01_JPRB,& |
3353 |
✓✓ |
12 |
& 8.0252E+01_JPRB,9.3599E+01_JPRB,1.0259E+02_JPRB,1.0529E+02_JPRB,1.0701E+02_JPRB/) |
3354 |
|
|
|
3355 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART11',1,ZHOOK_HANDLE) |
3356 |
|
1 |
END SUBROUTINE PART11 |
3357 |
|
|
|
3358 |
|
|
|
3359 |
|
1 |
SUBROUTINE PART12 |
3360 |
|
|
|
3361 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
3362 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART12',0,ZHOOK_HANDLE) |
3363 |
|
|
|
3364 |
|
|
|
3365 |
|
|
! The array KBO contains absorption coefs at the 16 chosen g-values |
3366 |
|
|
! for a range of pressure levels < ~100mb and temperatures. The first |
3367 |
|
|
! index in the array, JT, which runs from 1 to 5, corresponds to |
3368 |
|
|
! different temperatures. More specifically, JT = 3 means that the |
3369 |
|
|
! data are for the reference temperature TREF for this pressure |
3370 |
|
|
! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for |
3371 |
|
|
! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. |
3372 |
|
|
! The second index, JP, runs from 13 to 59 and refers to the JPth |
3373 |
|
|
! reference pressure level (see taumol.f for the value of these |
3374 |
|
|
! pressure levels in mb). The third index, IG, goes from 1 to 16, |
3375 |
|
|
! and tells us which g-interval the absorption coefficients are for. |
3376 |
|
|
|
3377 |
|
|
KBO( :,13, 1) = (/& |
3378 |
✓✓ |
6 |
& 4.0994E-03_JPRB,5.0728E-03_JPRB,6.1420E-03_JPRB,7.2969E-03_JPRB,8.5215E-03_JPRB/) |
3379 |
|
|
KBO( :,14, 1) = (/& |
3380 |
✓✓ |
6 |
& 3.5608E-03_JPRB,4.4025E-03_JPRB,5.3259E-03_JPRB,6.3236E-03_JPRB,7.3838E-03_JPRB/) |
3381 |
|
|
KBO( :,15, 1) = (/& |
3382 |
✓✓ |
6 |
& 3.1441E-03_JPRB,3.8833E-03_JPRB,4.6911E-03_JPRB,5.5651E-03_JPRB,6.4864E-03_JPRB/) |
3383 |
|
|
KBO( :,16, 1) = (/& |
3384 |
✓✓ |
6 |
& 2.7804E-03_JPRB,3.4263E-03_JPRB,4.1318E-03_JPRB,4.8903E-03_JPRB,5.6839E-03_JPRB/) |
3385 |
|
|
KBO( :,17, 1) = (/& |
3386 |
✓✓ |
6 |
& 2.5177E-03_JPRB,3.0931E-03_JPRB,3.7229E-03_JPRB,4.3958E-03_JPRB,5.0932E-03_JPRB/) |
3387 |
|
|
KBO( :,18, 1) = (/& |
3388 |
✓✓ |
6 |
& 2.3397E-03_JPRB,2.8662E-03_JPRB,3.4383E-03_JPRB,4.0476E-03_JPRB,4.6762E-03_JPRB/) |
3389 |
|
|
KBO( :,19, 1) = (/& |
3390 |
✓✓ |
6 |
& 2.2067E-03_JPRB,2.6944E-03_JPRB,3.2196E-03_JPRB,3.7730E-03_JPRB,4.3369E-03_JPRB/) |
3391 |
|
|
KBO( :,20, 1) = (/& |
3392 |
✓✓ |
6 |
& 1.9900E-03_JPRB,2.4229E-03_JPRB,2.8861E-03_JPRB,3.3669E-03_JPRB,3.8498E-03_JPRB/) |
3393 |
|
|
KBO( :,21, 1) = (/& |
3394 |
✓✓ |
6 |
& 1.7699E-03_JPRB,2.1476E-03_JPRB,2.5489E-03_JPRB,2.9591E-03_JPRB,3.3696E-03_JPRB/) |
3395 |
|
|
KBO( :,22, 1) = (/& |
3396 |
✓✓ |
6 |
& 1.5791E-03_JPRB,1.9073E-03_JPRB,2.2490E-03_JPRB,2.5953E-03_JPRB,2.9423E-03_JPRB/) |
3397 |
|
|
KBO( :,23, 1) = (/& |
3398 |
✓✓ |
6 |
& 1.4083E-03_JPRB,1.6913E-03_JPRB,1.9813E-03_JPRB,2.2728E-03_JPRB,2.5656E-03_JPRB/) |
3399 |
|
|
KBO( :,24, 1) = (/& |
3400 |
✓✓ |
6 |
& 1.2531E-03_JPRB,1.4945E-03_JPRB,1.7386E-03_JPRB,1.9824E-03_JPRB,2.2278E-03_JPRB/) |
3401 |
|
|
KBO( :,25, 1) = (/& |
3402 |
✓✓ |
6 |
& 1.1116E-03_JPRB,1.3151E-03_JPRB,1.5192E-03_JPRB,1.7227E-03_JPRB,1.9286E-03_JPRB/) |
3403 |
|
|
KBO( :,26, 1) = (/& |
3404 |
✓✓ |
6 |
& 9.8108E-04_JPRB,1.1510E-03_JPRB,1.3208E-03_JPRB,1.4915E-03_JPRB,1.6636E-03_JPRB/) |
3405 |
|
|
KBO( :,27, 1) = (/& |
3406 |
✓✓ |
6 |
& 8.5741E-04_JPRB,9.9814E-04_JPRB,1.1394E-03_JPRB,1.2818E-03_JPRB,1.4244E-03_JPRB/) |
3407 |
|
|
KBO( :,28, 1) = (/& |
3408 |
✓✓ |
6 |
& 7.4362E-04_JPRB,8.5993E-04_JPRB,9.7672E-04_JPRB,1.0942E-03_JPRB,1.2112E-03_JPRB/) |
3409 |
|
|
KBO( :,29, 1) = (/& |
3410 |
✓✓ |
6 |
& 6.4173E-04_JPRB,7.3787E-04_JPRB,8.3430E-04_JPRB,9.3077E-04_JPRB,1.0275E-03_JPRB/) |
3411 |
|
|
KBO( :,30, 1) = (/& |
3412 |
✓✓ |
6 |
& 5.5206E-04_JPRB,6.3117E-04_JPRB,7.1043E-04_JPRB,7.8981E-04_JPRB,8.6914E-04_JPRB/) |
3413 |
|
|
KBO( :,31, 1) = (/& |
3414 |
✓✓ |
6 |
& 4.7282E-04_JPRB,5.3772E-04_JPRB,6.0295E-04_JPRB,6.6810E-04_JPRB,7.3341E-04_JPRB/) |
3415 |
|
|
KBO( :,32, 1) = (/& |
3416 |
✓✓ |
6 |
& 4.0428E-04_JPRB,4.5779E-04_JPRB,5.1149E-04_JPRB,5.6525E-04_JPRB,6.1880E-04_JPRB/) |
3417 |
|
|
KBO( :,33, 1) = (/& |
3418 |
✓✓ |
6 |
& 3.4491E-04_JPRB,3.8913E-04_JPRB,4.3344E-04_JPRB,4.7736E-04_JPRB,5.2088E-04_JPRB/) |
3419 |
|
|
KBO( :,34, 1) = (/& |
3420 |
✓✓ |
6 |
& 2.9576E-04_JPRB,3.3268E-04_JPRB,3.6928E-04_JPRB,4.0567E-04_JPRB,4.4172E-04_JPRB/) |
3421 |
|
|
KBO( :,35, 1) = (/& |
3422 |
✓✓ |
6 |
& 2.5077E-04_JPRB,2.8136E-04_JPRB,3.1174E-04_JPRB,3.4190E-04_JPRB,3.7190E-04_JPRB/) |
3423 |
|
|
KBO( :,36, 1) = (/& |
3424 |
✓✓ |
6 |
& 2.0965E-04_JPRB,2.3515E-04_JPRB,2.6041E-04_JPRB,2.8542E-04_JPRB,3.1056E-04_JPRB/) |
3425 |
|
|
KBO( :,37, 1) = (/& |
3426 |
✓✓ |
6 |
& 1.6881E-04_JPRB,1.8974E-04_JPRB,2.1051E-04_JPRB,2.3106E-04_JPRB,2.5174E-04_JPRB/) |
3427 |
|
|
KBO( :,38, 1) = (/& |
3428 |
✓✓ |
6 |
& 1.3519E-04_JPRB,1.5238E-04_JPRB,1.6942E-04_JPRB,1.8630E-04_JPRB,2.0323E-04_JPRB/) |
3429 |
|
|
KBO( :,39, 1) = (/& |
3430 |
✓✓ |
6 |
& 1.0769E-04_JPRB,1.2175E-04_JPRB,1.3571E-04_JPRB,1.4957E-04_JPRB,1.6341E-04_JPRB/) |
3431 |
|
|
KBO( :,40, 1) = (/& |
3432 |
✓✓ |
6 |
& 8.3659E-05_JPRB,9.4997E-05_JPRB,1.0624E-04_JPRB,1.1742E-04_JPRB,1.2854E-04_JPRB/) |
3433 |
|
|
KBO( :,41, 1) = (/& |
3434 |
✓✓ |
6 |
& 6.4553E-05_JPRB,7.3658E-05_JPRB,8.2687E-05_JPRB,9.1644E-05_JPRB,1.0055E-04_JPRB/) |
3435 |
|
|
KBO( :,42, 1) = (/& |
3436 |
✓✓ |
6 |
& 4.9559E-05_JPRB,5.6844E-05_JPRB,6.4074E-05_JPRB,7.1250E-05_JPRB,7.8380E-05_JPRB/) |
3437 |
|
|
KBO( :,43, 1) = (/& |
3438 |
✓✓ |
6 |
& 3.7325E-05_JPRB,4.3138E-05_JPRB,4.8889E-05_JPRB,5.4599E-05_JPRB,6.0264E-05_JPRB/) |
3439 |
|
|
KBO( :,44, 1) = (/& |
3440 |
✓✓ |
6 |
& 2.7719E-05_JPRB,3.2330E-05_JPRB,3.6894E-05_JPRB,4.1410E-05_JPRB,4.5899E-05_JPRB/) |
3441 |
|
|
KBO( :,45, 1) = (/& |
3442 |
✓✓ |
6 |
& 2.0321E-05_JPRB,2.3995E-05_JPRB,2.7586E-05_JPRB,3.1159E-05_JPRB,3.4704E-05_JPRB/) |
3443 |
|
|
KBO( :,46, 1) = (/& |
3444 |
✓✓ |
6 |
& 1.4684E-05_JPRB,1.7602E-05_JPRB,2.0438E-05_JPRB,2.3255E-05_JPRB,2.6055E-05_JPRB/) |
3445 |
|
|
KBO( :,47, 1) = (/& |
3446 |
✓✓ |
6 |
& 1.0495E-05_JPRB,1.2761E-05_JPRB,1.5036E-05_JPRB,1.7255E-05_JPRB,1.9472E-05_JPRB/) |
3447 |
|
|
KBO( :,48, 1) = (/& |
3448 |
✓✓ |
6 |
& 7.3772E-06_JPRB,9.1061E-06_JPRB,1.0897E-05_JPRB,1.2655E-05_JPRB,1.4395E-05_JPRB/) |
3449 |
|
|
KBO( :,49, 1) = (/& |
3450 |
✓✓ |
6 |
& 5.0673E-06_JPRB,6.3724E-06_JPRB,7.7347E-06_JPRB,9.1249E-06_JPRB,1.0486E-05_JPRB/) |
3451 |
|
|
KBO( :,50, 1) = (/& |
3452 |
✓✓ |
6 |
& 3.5302E-06_JPRB,4.5180E-06_JPRB,5.5663E-06_JPRB,6.6492E-06_JPRB,7.7336E-06_JPRB/) |
3453 |
|
|
KBO( :,51, 1) = (/& |
3454 |
✓✓ |
6 |
& 2.4650E-06_JPRB,3.2117E-06_JPRB,4.0196E-06_JPRB,4.8590E-06_JPRB,5.7209E-06_JPRB/) |
3455 |
|
|
KBO( :,52, 1) = (/& |
3456 |
✓✓ |
6 |
& 1.6959E-06_JPRB,2.2491E-06_JPRB,2.8606E-06_JPRB,3.5081E-06_JPRB,4.1772E-06_JPRB/) |
3457 |
|
|
KBO( :,53, 1) = (/& |
3458 |
✓✓ |
6 |
& 1.1461E-06_JPRB,1.5466E-06_JPRB,1.9999E-06_JPRB,2.4909E-06_JPRB,3.0024E-06_JPRB/) |
3459 |
|
|
KBO( :,54, 1) = (/& |
3460 |
✓✓ |
6 |
& 8.1277E-07_JPRB,1.1151E-06_JPRB,1.4623E-06_JPRB,1.8438E-06_JPRB,2.2473E-06_JPRB/) |
3461 |
|
|
KBO( :,55, 1) = (/& |
3462 |
✓✓ |
6 |
& 5.9132E-07_JPRB,8.2491E-07_JPRB,1.0964E-06_JPRB,1.3990E-06_JPRB,1.7223E-06_JPRB/) |
3463 |
|
|
KBO( :,56, 1) = (/& |
3464 |
✓✓ |
6 |
& 4.2770E-07_JPRB,6.0720E-07_JPRB,8.1863E-07_JPRB,1.0577E-06_JPRB,1.3158E-06_JPRB/) |
3465 |
|
|
KBO( :,57, 1) = (/& |
3466 |
✓✓ |
6 |
& 3.0731E-07_JPRB,4.4442E-07_JPRB,6.0841E-07_JPRB,7.9635E-07_JPRB,1.0017E-06_JPRB/) |
3467 |
|
|
KBO( :,58, 1) = (/& |
3468 |
✓✓ |
6 |
& 2.2286E-07_JPRB,3.2839E-07_JPRB,4.5650E-07_JPRB,6.0508E-07_JPRB,7.6969E-07_JPRB/) |
3469 |
|
|
KBO( :,59, 1) = (/& |
3470 |
✓✓ |
6 |
& 1.8935E-07_JPRB,2.8208E-07_JPRB,3.9434E-07_JPRB,5.2454E-07_JPRB,6.6793E-07_JPRB/) |
3471 |
|
|
KBO( :,13, 2) = (/& |
3472 |
✓✓ |
6 |
& 2.0350E-02_JPRB,2.3737E-02_JPRB,2.7056E-02_JPRB,3.0424E-02_JPRB,3.3880E-02_JPRB/) |
3473 |
|
|
KBO( :,14, 2) = (/& |
3474 |
✓✓ |
6 |
& 1.7887E-02_JPRB,2.0698E-02_JPRB,2.3474E-02_JPRB,2.6314E-02_JPRB,2.9218E-02_JPRB/) |
3475 |
|
|
KBO( :,15, 2) = (/& |
3476 |
✓✓ |
6 |
& 1.5699E-02_JPRB,1.8063E-02_JPRB,2.0419E-02_JPRB,2.2807E-02_JPRB,2.5263E-02_JPRB/) |
3477 |
|
|
KBO( :,16, 2) = (/& |
3478 |
✓✓ |
6 |
& 1.3704E-02_JPRB,1.5696E-02_JPRB,1.7682E-02_JPRB,1.9683E-02_JPRB,2.1758E-02_JPRB/) |
3479 |
|
|
KBO( :,17, 2) = (/& |
3480 |
✓✓ |
6 |
& 1.2174E-02_JPRB,1.3873E-02_JPRB,1.5565E-02_JPRB,1.7279E-02_JPRB,1.9055E-02_JPRB/) |
3481 |
|
|
KBO( :,18, 2) = (/& |
3482 |
✓✓ |
6 |
& 1.1051E-02_JPRB,1.2529E-02_JPRB,1.4014E-02_JPRB,1.5532E-02_JPRB,1.7091E-02_JPRB/) |
3483 |
|
|
KBO( :,19, 2) = (/& |
3484 |
✓✓ |
6 |
& 1.0133E-02_JPRB,1.1442E-02_JPRB,1.2772E-02_JPRB,1.4145E-02_JPRB,1.5532E-02_JPRB/) |
3485 |
|
|
KBO( :,20, 2) = (/& |
3486 |
✓✓ |
6 |
& 8.9501E-03_JPRB,1.0074E-02_JPRB,1.1232E-02_JPRB,1.2420E-02_JPRB,1.3612E-02_JPRB/) |
3487 |
|
|
KBO( :,21, 2) = (/& |
3488 |
✓✓ |
6 |
& 7.8061E-03_JPRB,8.7666E-03_JPRB,9.7638E-03_JPRB,1.0776E-02_JPRB,1.1786E-02_JPRB/) |
3489 |
|
|
KBO( :,22, 2) = (/& |
3490 |
✓✓ |
6 |
& 6.7985E-03_JPRB,7.6154E-03_JPRB,8.4665E-03_JPRB,9.3161E-03_JPRB,1.0161E-02_JPRB/) |
3491 |
|
|
KBO( :,23, 2) = (/& |
3492 |
✓✓ |
6 |
& 5.9115E-03_JPRB,6.6091E-03_JPRB,7.3264E-03_JPRB,8.0410E-03_JPRB,8.7466E-03_JPRB/) |
3493 |
|
|
KBO( :,24, 2) = (/& |
3494 |
✓✓ |
6 |
& 5.1182E-03_JPRB,5.7070E-03_JPRB,6.3037E-03_JPRB,6.8969E-03_JPRB,7.4832E-03_JPRB/) |
3495 |
|
|
KBO( :,25, 2) = (/& |
3496 |
✓✓ |
6 |
& 4.4185E-03_JPRB,4.9117E-03_JPRB,5.4043E-03_JPRB,5.8933E-03_JPRB,6.3802E-03_JPRB/) |
3497 |
|
|
KBO( :,26, 2) = (/& |
3498 |
✓✓ |
6 |
& 3.8039E-03_JPRB,4.2126E-03_JPRB,4.6157E-03_JPRB,5.0191E-03_JPRB,5.4221E-03_JPRB/) |
3499 |
|
|
KBO( :,27, 2) = (/& |
3500 |
✓✓ |
6 |
& 3.2526E-03_JPRB,3.5834E-03_JPRB,3.9131E-03_JPRB,4.2430E-03_JPRB,4.5744E-03_JPRB/) |
3501 |
|
|
KBO( :,28, 2) = (/& |
3502 |
✓✓ |
6 |
& 2.7589E-03_JPRB,3.0253E-03_JPRB,3.2916E-03_JPRB,3.5602E-03_JPRB,3.8315E-03_JPRB/) |
3503 |
|
|
KBO( :,29, 2) = (/& |
3504 |
✓✓ |
6 |
& 2.3366E-03_JPRB,2.5520E-03_JPRB,2.7694E-03_JPRB,2.9896E-03_JPRB,3.2113E-03_JPRB/) |
3505 |
|
|
KBO( :,30, 2) = (/& |
3506 |
✓✓ |
6 |
& 1.9721E-03_JPRB,2.1482E-03_JPRB,2.3261E-03_JPRB,2.5062E-03_JPRB,2.6880E-03_JPRB/) |
3507 |
|
|
KBO( :,31, 2) = (/& |
3508 |
✓✓ |
6 |
& 1.6646E-03_JPRB,1.8093E-03_JPRB,1.9562E-03_JPRB,2.1055E-03_JPRB,2.2560E-03_JPRB/) |
3509 |
|
|
KBO( :,32, 2) = (/& |
3510 |
✓✓ |
6 |
& 1.4084E-03_JPRB,1.5283E-03_JPRB,1.6508E-03_JPRB,1.7751E-03_JPRB,1.9009E-03_JPRB/) |
3511 |
|
|
KBO( :,33, 2) = (/& |
3512 |
✓✓ |
6 |
& 1.1942E-03_JPRB,1.2940E-03_JPRB,1.3964E-03_JPRB,1.5007E-03_JPRB,1.6067E-03_JPRB/) |
3513 |
|
|
KBO( :,34, 2) = (/& |
3514 |
✓✓ |
6 |
& 1.0227E-03_JPRB,1.1075E-03_JPRB,1.1945E-03_JPRB,1.2830E-03_JPRB,1.3735E-03_JPRB/) |
3515 |
|
|
KBO( :,35, 2) = (/& |
3516 |
✓✓ |
6 |
& 8.7018E-04_JPRB,9.4216E-04_JPRB,1.0160E-03_JPRB,1.0916E-03_JPRB,1.1695E-03_JPRB/) |
3517 |
|
|
KBO( :,36, 2) = (/& |
3518 |
✓✓ |
6 |
& 7.3515E-04_JPRB,7.9615E-04_JPRB,8.5904E-04_JPRB,9.2392E-04_JPRB,9.9055E-04_JPRB/) |
3519 |
|
|
KBO( :,37, 2) = (/& |
3520 |
✓✓ |
6 |
& 6.0212E-04_JPRB,6.5252E-04_JPRB,7.0452E-04_JPRB,7.5835E-04_JPRB,8.1370E-04_JPRB/) |
3521 |
|
|
KBO( :,38, 2) = (/& |
3522 |
✓✓ |
6 |
& 4.9188E-04_JPRB,5.3334E-04_JPRB,5.7632E-04_JPRB,6.2087E-04_JPRB,6.6682E-04_JPRB/) |
3523 |
|
|
KBO( :,39, 2) = (/& |
3524 |
✓✓ |
6 |
& 4.0118E-04_JPRB,4.3525E-04_JPRB,4.7078E-04_JPRB,5.0765E-04_JPRB,5.4579E-04_JPRB/) |
3525 |
|
|
KBO( :,40, 2) = (/& |
3526 |
✓✓ |
6 |
& 3.1804E-04_JPRB,3.4535E-04_JPRB,3.7372E-04_JPRB,4.0332E-04_JPRB,4.3403E-04_JPRB/) |
3527 |
|
|
KBO( :,41, 2) = (/& |
3528 |
✓✓ |
6 |
& 2.5079E-04_JPRB,2.7257E-04_JPRB,2.9509E-04_JPRB,3.1873E-04_JPRB,3.4326E-04_JPRB/) |
3529 |
|
|
KBO( :,42, 2) = (/& |
3530 |
✓✓ |
6 |
& 1.9734E-04_JPRB,2.1467E-04_JPRB,2.3255E-04_JPRB,2.5134E-04_JPRB,2.7095E-04_JPRB/) |
3531 |
|
|
KBO( :,43, 2) = (/& |
3532 |
✓✓ |
6 |
& 1.5339E-04_JPRB,1.6697E-04_JPRB,1.8107E-04_JPRB,1.9578E-04_JPRB,2.1125E-04_JPRB/) |
3533 |
|
|
KBO( :,44, 2) = (/& |
3534 |
✓✓ |
6 |
& 1.1845E-04_JPRB,1.2903E-04_JPRB,1.4006E-04_JPRB,1.5150E-04_JPRB,1.6358E-04_JPRB/) |
3535 |
|
|
KBO( :,45, 2) = (/& |
3536 |
✓✓ |
6 |
& 9.1280E-05_JPRB,9.9479E-05_JPRB,1.0807E-04_JPRB,1.1698E-04_JPRB,1.2633E-04_JPRB/) |
3537 |
|
|
KBO( :,46, 2) = (/& |
3538 |
✓✓ |
6 |
& 7.0194E-05_JPRB,7.6516E-05_JPRB,8.3188E-05_JPRB,9.0126E-05_JPRB,9.7367E-05_JPRB/) |
3539 |
|
|
KBO( :,47, 2) = (/& |
3540 |
✓✓ |
6 |
& 5.3867E-05_JPRB,5.8795E-05_JPRB,6.3952E-05_JPRB,6.9343E-05_JPRB,7.4969E-05_JPRB/) |
3541 |
|
|
KBO( :,48, 2) = (/& |
3542 |
✓✓ |
6 |
& 4.1189E-05_JPRB,4.5058E-05_JPRB,4.9041E-05_JPRB,5.3206E-05_JPRB,5.7575E-05_JPRB/) |
3543 |
|
|
KBO( :,49, 2) = (/& |
3544 |
✓✓ |
6 |
& 3.1341E-05_JPRB,3.4382E-05_JPRB,3.7483E-05_JPRB,4.0694E-05_JPRB,4.4051E-05_JPRB/) |
3545 |
|
|
KBO( :,50, 2) = (/& |
3546 |
✓✓ |
6 |
& 2.4027E-05_JPRB,2.6443E-05_JPRB,2.8884E-05_JPRB,3.1394E-05_JPRB,3.3991E-05_JPRB/) |
3547 |
|
|
KBO( :,51, 2) = (/& |
3548 |
✓✓ |
6 |
& 1.8468E-05_JPRB,2.0396E-05_JPRB,2.2328E-05_JPRB,2.4296E-05_JPRB,2.6326E-05_JPRB/) |
3549 |
|
|
KBO( :,52, 2) = (/& |
3550 |
✓✓ |
6 |
& 1.4146E-05_JPRB,1.5676E-05_JPRB,1.7214E-05_JPRB,1.8760E-05_JPRB,2.0350E-05_JPRB/) |
3551 |
|
|
KBO( :,53, 2) = (/& |
3552 |
✓✓ |
6 |
& 1.0781E-05_JPRB,1.1992E-05_JPRB,1.3217E-05_JPRB,1.4439E-05_JPRB,1.5682E-05_JPRB/) |
3553 |
|
|
KBO( :,54, 2) = (/& |
3554 |
✓✓ |
6 |
& 8.3350E-06_JPRB,9.3049E-06_JPRB,1.0280E-05_JPRB,1.1258E-05_JPRB,1.2239E-05_JPRB/) |
3555 |
|
|
KBO( :,55, 2) = (/& |
3556 |
✓✓ |
6 |
& 6.4823E-06_JPRB,7.2753E-06_JPRB,8.0542E-06_JPRB,8.8375E-06_JPRB,9.6163E-06_JPRB/) |
3557 |
|
|
KBO( :,56, 2) = (/& |
3558 |
✓✓ |
6 |
& 5.0178E-06_JPRB,5.6802E-06_JPRB,6.3041E-06_JPRB,6.9292E-06_JPRB,7.5496E-06_JPRB/) |
3559 |
|
|
KBO( :,57, 2) = (/& |
3560 |
✓✓ |
6 |
& 3.8663E-06_JPRB,4.4221E-06_JPRB,4.9273E-06_JPRB,5.4254E-06_JPRB,5.9221E-06_JPRB/) |
3561 |
|
|
KBO( :,58, 2) = (/& |
3562 |
✓✓ |
6 |
& 2.9804E-06_JPRB,3.4457E-06_JPRB,3.8617E-06_JPRB,4.2609E-06_JPRB,4.6580E-06_JPRB/) |
3563 |
|
|
KBO( :,59, 2) = (/& |
3564 |
✓✓ |
6 |
& 2.4280E-06_JPRB,2.8160E-06_JPRB,3.1595E-06_JPRB,3.4836E-06_JPRB,3.8045E-06_JPRB/) |
3565 |
|
|
KBO( :,13, 3) = (/& |
3566 |
✓✓ |
6 |
& 5.2207E-02_JPRB,5.8218E-02_JPRB,6.4867E-02_JPRB,7.1854E-02_JPRB,7.9269E-02_JPRB/) |
3567 |
|
|
KBO( :,14, 3) = (/& |
3568 |
✓✓ |
6 |
& 4.5186E-02_JPRB,5.0511E-02_JPRB,5.6225E-02_JPRB,6.2140E-02_JPRB,6.8380E-02_JPRB/) |
3569 |
|
|
KBO( :,15, 3) = (/& |
3570 |
✓✓ |
6 |
& 3.9072E-02_JPRB,4.3588E-02_JPRB,4.8378E-02_JPRB,5.3369E-02_JPRB,5.8579E-02_JPRB/) |
3571 |
|
|
KBO( :,16, 3) = (/& |
3572 |
✓✓ |
6 |
& 3.3600E-02_JPRB,3.7414E-02_JPRB,4.1420E-02_JPRB,4.5603E-02_JPRB,4.9920E-02_JPRB/) |
3573 |
|
|
KBO( :,17, 3) = (/& |
3574 |
✓✓ |
6 |
& 2.9352E-02_JPRB,3.2637E-02_JPRB,3.6077E-02_JPRB,3.9644E-02_JPRB,4.3315E-02_JPRB/) |
3575 |
|
|
KBO( :,18, 3) = (/& |
3576 |
✓✓ |
6 |
& 2.6239E-02_JPRB,2.9170E-02_JPRB,3.2236E-02_JPRB,3.5401E-02_JPRB,3.8652E-02_JPRB/) |
3577 |
|
|
KBO( :,19, 3) = (/& |
3578 |
✓✓ |
6 |
& 2.3733E-02_JPRB,2.6395E-02_JPRB,2.9161E-02_JPRB,3.2005E-02_JPRB,3.4969E-02_JPRB/) |
3579 |
|
|
KBO( :,20, 3) = (/& |
3580 |
✓✓ |
6 |
& 2.0795E-02_JPRB,2.3131E-02_JPRB,2.5535E-02_JPRB,2.8011E-02_JPRB,3.0599E-02_JPRB/) |
3581 |
|
|
KBO( :,21, 3) = (/& |
3582 |
✓✓ |
6 |
& 1.8040E-02_JPRB,2.0057E-02_JPRB,2.2116E-02_JPRB,2.4262E-02_JPRB,2.6478E-02_JPRB/) |
3583 |
|
|
KBO( :,22, 3) = (/& |
3584 |
✓✓ |
6 |
& 1.5612E-02_JPRB,1.7322E-02_JPRB,1.9070E-02_JPRB,2.0895E-02_JPRB,2.2752E-02_JPRB/) |
3585 |
|
|
KBO( :,23, 3) = (/& |
3586 |
✓✓ |
6 |
& 1.3484E-02_JPRB,1.4923E-02_JPRB,1.6411E-02_JPRB,1.7947E-02_JPRB,1.9492E-02_JPRB/) |
3587 |
|
|
KBO( :,24, 3) = (/& |
3588 |
✓✓ |
6 |
& 1.1550E-02_JPRB,1.2744E-02_JPRB,1.3987E-02_JPRB,1.5260E-02_JPRB,1.6517E-02_JPRB/) |
3589 |
|
|
KBO( :,25, 3) = (/& |
3590 |
✓✓ |
6 |
& 9.8605E-03_JPRB,1.0848E-02_JPRB,1.1882E-02_JPRB,1.2919E-02_JPRB,1.3956E-02_JPRB/) |
3591 |
|
|
KBO( :,26, 3) = (/& |
3592 |
✓✓ |
6 |
& 8.3958E-03_JPRB,9.2176E-03_JPRB,1.0068E-02_JPRB,1.0918E-02_JPRB,1.1783E-02_JPRB/) |
3593 |
|
|
KBO( :,27, 3) = (/& |
3594 |
✓✓ |
6 |
& 7.0886E-03_JPRB,7.7689E-03_JPRB,8.4604E-03_JPRB,9.1621E-03_JPRB,9.8810E-03_JPRB/) |
3595 |
|
|
KBO( :,28, 3) = (/& |
3596 |
✓✓ |
6 |
& 5.9371E-03_JPRB,6.4915E-03_JPRB,7.0594E-03_JPRB,7.6411E-03_JPRB,8.2339E-03_JPRB/) |
3597 |
|
|
KBO( :,29, 3) = (/& |
3598 |
✓✓ |
6 |
& 4.9851E-03_JPRB,5.4425E-03_JPRB,5.9143E-03_JPRB,6.3959E-03_JPRB,6.8922E-03_JPRB/) |
3599 |
|
|
KBO( :,30, 3) = (/& |
3600 |
✓✓ |
6 |
& 4.1812E-03_JPRB,4.5627E-03_JPRB,4.9527E-03_JPRB,5.3553E-03_JPRB,5.7728E-03_JPRB/) |
3601 |
|
|
KBO( :,31, 3) = (/& |
3602 |
✓✓ |
6 |
& 3.5208E-03_JPRB,3.8377E-03_JPRB,4.1624E-03_JPRB,4.5005E-03_JPRB,4.8529E-03_JPRB/) |
3603 |
|
|
KBO( :,32, 3) = (/& |
3604 |
✓✓ |
6 |
& 2.9794E-03_JPRB,3.2434E-03_JPRB,3.5171E-03_JPRB,3.8033E-03_JPRB,4.1013E-03_JPRB/) |
3605 |
|
|
KBO( :,33, 3) = (/& |
3606 |
✓✓ |
6 |
& 2.5298E-03_JPRB,2.7525E-03_JPRB,2.9853E-03_JPRB,3.2295E-03_JPRB,3.4800E-03_JPRB/) |
3607 |
|
|
KBO( :,34, 3) = (/& |
3608 |
✓✓ |
6 |
& 2.1748E-03_JPRB,2.3658E-03_JPRB,2.5669E-03_JPRB,2.7771E-03_JPRB,2.9911E-03_JPRB/) |
3609 |
|
|
KBO( :,35, 3) = (/& |
3610 |
✓✓ |
6 |
& 1.8567E-03_JPRB,2.0216E-03_JPRB,2.1956E-03_JPRB,2.3760E-03_JPRB,2.5595E-03_JPRB/) |
3611 |
|
|
KBO( :,36, 3) = (/& |
3612 |
✓✓ |
6 |
& 1.5731E-03_JPRB,1.7153E-03_JPRB,1.8654E-03_JPRB,2.0205E-03_JPRB,2.1791E-03_JPRB/) |
3613 |
|
|
KBO( :,37, 3) = (/& |
3614 |
✓✓ |
6 |
& 1.2933E-03_JPRB,1.4114E-03_JPRB,1.5364E-03_JPRB,1.6658E-03_JPRB,1.7984E-03_JPRB/) |
3615 |
|
|
KBO( :,38, 3) = (/& |
3616 |
✓✓ |
6 |
& 1.0616E-03_JPRB,1.1594E-03_JPRB,1.2634E-03_JPRB,1.3712E-03_JPRB,1.4820E-03_JPRB/) |
3617 |
|
|
KBO( :,39, 3) = (/& |
3618 |
✓✓ |
6 |
& 8.7125E-04_JPRB,9.5245E-04_JPRB,1.0387E-03_JPRB,1.1287E-03_JPRB,1.2213E-03_JPRB/) |
3619 |
|
|
KBO( :,40, 3) = (/& |
3620 |
✓✓ |
6 |
& 6.9327E-04_JPRB,7.5826E-04_JPRB,8.2752E-04_JPRB,8.9995E-04_JPRB,9.7479E-04_JPRB/) |
3621 |
|
|
KBO( :,41, 3) = (/& |
3622 |
✓✓ |
6 |
& 5.4868E-04_JPRB,6.0043E-04_JPRB,6.5570E-04_JPRB,7.1362E-04_JPRB,7.7402E-04_JPRB/) |
3623 |
|
|
KBO( :,42, 3) = (/& |
3624 |
✓✓ |
6 |
& 4.3350E-04_JPRB,4.7475E-04_JPRB,5.1866E-04_JPRB,5.6496E-04_JPRB,6.1339E-04_JPRB/) |
3625 |
|
|
KBO( :,43, 3) = (/& |
3626 |
✓✓ |
6 |
& 3.3831E-04_JPRB,3.7074E-04_JPRB,4.0518E-04_JPRB,4.4169E-04_JPRB,4.7994E-04_JPRB/) |
3627 |
|
|
KBO( :,44, 3) = (/& |
3628 |
✓✓ |
6 |
& 2.6244E-04_JPRB,2.8770E-04_JPRB,3.1459E-04_JPRB,3.4301E-04_JPRB,3.7299E-04_JPRB/) |
3629 |
|
|
KBO( :,45, 3) = (/& |
3630 |
✓✓ |
6 |
& 2.0330E-04_JPRB,2.2282E-04_JPRB,2.4376E-04_JPRB,2.6587E-04_JPRB,2.8931E-04_JPRB/) |
3631 |
|
|
KBO( :,46, 3) = (/& |
3632 |
✓✓ |
6 |
& 1.5718E-04_JPRB,1.7223E-04_JPRB,1.8847E-04_JPRB,2.0565E-04_JPRB,2.2386E-04_JPRB/) |
3633 |
|
|
KBO( :,47, 3) = (/& |
3634 |
✓✓ |
6 |
& 1.2137E-04_JPRB,1.3292E-04_JPRB,1.4544E-04_JPRB,1.5881E-04_JPRB,1.7290E-04_JPRB/) |
3635 |
|
|
KBO( :,48, 3) = (/& |
3636 |
✓✓ |
6 |
& 9.3602E-05_JPRB,1.0245E-04_JPRB,1.1206E-04_JPRB,1.2242E-04_JPRB,1.3333E-04_JPRB/) |
3637 |
|
|
KBO( :,49, 3) = (/& |
3638 |
✓✓ |
6 |
& 7.2096E-05_JPRB,7.8857E-05_JPRB,8.6198E-05_JPRB,9.4146E-05_JPRB,1.0259E-04_JPRB/) |
3639 |
|
|
KBO( :,50, 3) = (/& |
3640 |
✓✓ |
6 |
& 5.5913E-05_JPRB,6.1131E-05_JPRB,6.6766E-05_JPRB,7.2901E-05_JPRB,7.9460E-05_JPRB/) |
3641 |
|
|
KBO( :,51, 3) = (/& |
3642 |
✓✓ |
6 |
& 4.3511E-05_JPRB,4.7559E-05_JPRB,5.1896E-05_JPRB,5.6624E-05_JPRB,6.1713E-05_JPRB/) |
3643 |
|
|
KBO( :,52, 3) = (/& |
3644 |
✓✓ |
6 |
& 3.3817E-05_JPRB,3.6967E-05_JPRB,4.0308E-05_JPRB,4.3936E-05_JPRB,4.7870E-05_JPRB/) |
3645 |
|
|
KBO( :,53, 3) = (/& |
3646 |
✓✓ |
6 |
& 2.6251E-05_JPRB,2.8701E-05_JPRB,3.1278E-05_JPRB,3.4055E-05_JPRB,3.7076E-05_JPRB/) |
3647 |
|
|
KBO( :,54, 3) = (/& |
3648 |
✓✓ |
6 |
& 2.0565E-05_JPRB,2.2472E-05_JPRB,2.4493E-05_JPRB,2.6647E-05_JPRB,2.8987E-05_JPRB/) |
3649 |
|
|
KBO( :,55, 3) = (/& |
3650 |
✓✓ |
6 |
& 1.6201E-05_JPRB,1.7665E-05_JPRB,1.9265E-05_JPRB,2.0950E-05_JPRB,2.2778E-05_JPRB/) |
3651 |
|
|
KBO( :,56, 3) = (/& |
3652 |
✓✓ |
6 |
& 1.2781E-05_JPRB,1.3883E-05_JPRB,1.5142E-05_JPRB,1.6468E-05_JPRB,1.7890E-05_JPRB/) |
3653 |
|
|
KBO( :,57, 3) = (/& |
3654 |
✓✓ |
6 |
& 1.0089E-05_JPRB,1.0916E-05_JPRB,1.1894E-05_JPRB,1.2940E-05_JPRB,1.4042E-05_JPRB/) |
3655 |
|
|
KBO( :,58, 3) = (/& |
3656 |
✓✓ |
6 |
& 7.9784E-06_JPRB,8.6088E-06_JPRB,9.3610E-06_JPRB,1.0185E-05_JPRB,1.1049E-05_JPRB/) |
3657 |
|
|
KBO( :,59, 3) = (/& |
3658 |
✓✓ |
6 |
& 6.4510E-06_JPRB,6.9647E-06_JPRB,7.5759E-06_JPRB,8.2439E-06_JPRB,8.9478E-06_JPRB/) |
3659 |
|
|
|
3660 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART12',1,ZHOOK_HANDLE) |
3661 |
|
1 |
END SUBROUTINE PART12 |
3662 |
|
|
|
3663 |
|
|
|
3664 |
|
1 |
SUBROUTINE PART13 |
3665 |
|
|
|
3666 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
3667 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART13',0,ZHOOK_HANDLE) |
3668 |
|
|
|
3669 |
|
|
|
3670 |
|
|
KBO( :,13, 4) = (/& |
3671 |
✓✓ |
6 |
& 1.1841E-01_JPRB,1.2983E-01_JPRB,1.4154E-01_JPRB,1.5381E-01_JPRB,1.6654E-01_JPRB/) |
3672 |
|
|
KBO( :,14, 4) = (/& |
3673 |
✓✓ |
6 |
& 1.0163E-01_JPRB,1.1119E-01_JPRB,1.2120E-01_JPRB,1.3164E-01_JPRB,1.4262E-01_JPRB/) |
3674 |
|
|
KBO( :,15, 4) = (/& |
3675 |
✓✓ |
6 |
& 8.7533E-02_JPRB,9.5453E-02_JPRB,1.0360E-01_JPRB,1.1225E-01_JPRB,1.2143E-01_JPRB/) |
3676 |
|
|
KBO( :,16, 4) = (/& |
3677 |
✓✓ |
6 |
& 7.4718E-02_JPRB,8.1074E-02_JPRB,8.7917E-02_JPRB,9.5269E-02_JPRB,1.0309E-01_JPRB/) |
3678 |
|
|
KBO( :,17, 4) = (/& |
3679 |
✓✓ |
6 |
& 6.4598E-02_JPRB,7.0161E-02_JPRB,7.6195E-02_JPRB,8.2691E-02_JPRB,8.9645E-02_JPRB/) |
3680 |
|
|
KBO( :,18, 4) = (/& |
3681 |
✓✓ |
6 |
& 5.7466E-02_JPRB,6.2589E-02_JPRB,6.8109E-02_JPRB,7.4052E-02_JPRB,8.0449E-02_JPRB/) |
3682 |
|
|
KBO( :,19, 4) = (/& |
3683 |
✓✓ |
6 |
& 5.1818E-02_JPRB,5.6571E-02_JPRB,6.1696E-02_JPRB,6.7232E-02_JPRB,7.3092E-02_JPRB/) |
3684 |
|
|
KBO( :,20, 4) = (/& |
3685 |
✓✓ |
6 |
& 4.5333E-02_JPRB,4.9583E-02_JPRB,5.4175E-02_JPRB,5.9119E-02_JPRB,6.4307E-02_JPRB/) |
3686 |
|
|
KBO( :,21, 4) = (/& |
3687 |
✓✓ |
6 |
& 3.9244E-02_JPRB,4.2988E-02_JPRB,4.7056E-02_JPRB,5.1390E-02_JPRB,5.5921E-02_JPRB/) |
3688 |
|
|
KBO( :,22, 4) = (/& |
3689 |
✓✓ |
6 |
& 3.3762E-02_JPRB,3.7028E-02_JPRB,4.0590E-02_JPRB,4.4367E-02_JPRB,4.8278E-02_JPRB/) |
3690 |
|
|
KBO( :,23, 4) = (/& |
3691 |
✓✓ |
6 |
& 2.8964E-02_JPRB,3.1825E-02_JPRB,3.4924E-02_JPRB,3.8192E-02_JPRB,4.1570E-02_JPRB/) |
3692 |
|
|
KBO( :,24, 4) = (/& |
3693 |
✓✓ |
6 |
& 2.4605E-02_JPRB,2.7087E-02_JPRB,2.9744E-02_JPRB,3.2528E-02_JPRB,3.5398E-02_JPRB/) |
3694 |
|
|
KBO( :,25, 4) = (/& |
3695 |
✓✓ |
6 |
& 2.0888E-02_JPRB,2.3028E-02_JPRB,2.5293E-02_JPRB,2.7664E-02_JPRB,3.0056E-02_JPRB/) |
3696 |
|
|
KBO( :,26, 4) = (/& |
3697 |
✓✓ |
6 |
& 1.7768E-02_JPRB,1.9595E-02_JPRB,2.1528E-02_JPRB,2.3523E-02_JPRB,2.5480E-02_JPRB/) |
3698 |
|
|
KBO( :,27, 4) = (/& |
3699 |
✓✓ |
6 |
& 1.5025E-02_JPRB,1.6582E-02_JPRB,1.8208E-02_JPRB,1.9851E-02_JPRB,2.1449E-02_JPRB/) |
3700 |
|
|
KBO( :,28, 4) = (/& |
3701 |
✓✓ |
6 |
& 1.2630E-02_JPRB,1.3940E-02_JPRB,1.5283E-02_JPRB,1.6619E-02_JPRB,1.7935E-02_JPRB/) |
3702 |
|
|
KBO( :,29, 4) = (/& |
3703 |
✓✓ |
6 |
& 1.0679E-02_JPRB,1.1777E-02_JPRB,1.2882E-02_JPRB,1.3981E-02_JPRB,1.5077E-02_JPRB/) |
3704 |
|
|
KBO( :,30, 4) = (/& |
3705 |
✓✓ |
6 |
& 9.0255E-03_JPRB,9.9336E-03_JPRB,1.0847E-02_JPRB,1.1760E-02_JPRB,1.2675E-02_JPRB/) |
3706 |
|
|
KBO( :,31, 4) = (/& |
3707 |
✓✓ |
6 |
& 7.6536E-03_JPRB,8.4086E-03_JPRB,9.1742E-03_JPRB,9.9429E-03_JPRB,1.0712E-02_JPRB/) |
3708 |
|
|
KBO( :,32, 4) = (/& |
3709 |
✓✓ |
6 |
& 6.5182E-03_JPRB,7.1536E-03_JPRB,7.8014E-03_JPRB,8.4515E-03_JPRB,9.1065E-03_JPRB/) |
3710 |
|
|
KBO( :,33, 4) = (/& |
3711 |
✓✓ |
6 |
& 5.5704E-03_JPRB,6.1113E-03_JPRB,6.6630E-03_JPRB,7.2151E-03_JPRB,7.7820E-03_JPRB/) |
3712 |
|
|
KBO( :,34, 4) = (/& |
3713 |
✓✓ |
6 |
& 4.8181E-03_JPRB,5.2845E-03_JPRB,5.7551E-03_JPRB,6.2347E-03_JPRB,6.7271E-03_JPRB/) |
3714 |
|
|
KBO( :,35, 4) = (/& |
3715 |
✓✓ |
6 |
& 4.1344E-03_JPRB,4.5342E-03_JPRB,4.9410E-03_JPRB,5.3600E-03_JPRB,5.7876E-03_JPRB/) |
3716 |
|
|
KBO( :,36, 4) = (/& |
3717 |
✓✓ |
6 |
& 3.5137E-03_JPRB,3.8568E-03_JPRB,4.2105E-03_JPRB,4.5744E-03_JPRB,4.9478E-03_JPRB/) |
3718 |
|
|
KBO( :,37, 4) = (/& |
3719 |
✓✓ |
6 |
& 2.9015E-03_JPRB,3.1894E-03_JPRB,3.4867E-03_JPRB,3.7928E-03_JPRB,4.1062E-03_JPRB/) |
3720 |
|
|
KBO( :,38, 4) = (/& |
3721 |
✓✓ |
6 |
& 2.3922E-03_JPRB,2.6336E-03_JPRB,2.8833E-03_JPRB,3.1403E-03_JPRB,3.4033E-03_JPRB/) |
3722 |
|
|
KBO( :,39, 4) = (/& |
3723 |
✓✓ |
6 |
& 1.9717E-03_JPRB,2.1746E-03_JPRB,2.3846E-03_JPRB,2.6005E-03_JPRB,2.8213E-03_JPRB/) |
3724 |
|
|
KBO( :,40, 4) = (/& |
3725 |
✓✓ |
6 |
& 1.5744E-03_JPRB,1.7398E-03_JPRB,1.9111E-03_JPRB,2.0874E-03_JPRB,2.2673E-03_JPRB/) |
3726 |
|
|
KBO( :,41, 4) = (/& |
3727 |
✓✓ |
6 |
& 1.2499E-03_JPRB,1.3841E-03_JPRB,1.5231E-03_JPRB,1.6664E-03_JPRB,1.8122E-03_JPRB/) |
3728 |
|
|
KBO( :,42, 4) = (/& |
3729 |
✓✓ |
6 |
& 9.9026E-04_JPRB,1.0991E-03_JPRB,1.2117E-03_JPRB,1.3281E-03_JPRB,1.4464E-03_JPRB/) |
3730 |
|
|
KBO( :,43, 4) = (/& |
3731 |
✓✓ |
6 |
& 7.7424E-04_JPRB,8.6142E-04_JPRB,9.5183E-04_JPRB,1.0452E-03_JPRB,1.1404E-03_JPRB/) |
3732 |
|
|
KBO( :,44, 4) = (/& |
3733 |
✓✓ |
6 |
& 6.0102E-04_JPRB,6.7034E-04_JPRB,7.4252E-04_JPRB,8.1707E-04_JPRB,8.9311E-04_JPRB/) |
3734 |
|
|
KBO( :,45, 4) = (/& |
3735 |
✓✓ |
6 |
& 4.6542E-04_JPRB,5.2035E-04_JPRB,5.7783E-04_JPRB,6.3732E-04_JPRB,6.9797E-04_JPRB/) |
3736 |
|
|
KBO( :,46, 4) = (/& |
3737 |
✓✓ |
6 |
& 3.5929E-04_JPRB,4.0259E-04_JPRB,4.4817E-04_JPRB,4.9561E-04_JPRB,5.4403E-04_JPRB/) |
3738 |
|
|
KBO( :,47, 4) = (/& |
3739 |
✓✓ |
6 |
& 2.7639E-04_JPRB,3.1035E-04_JPRB,3.4642E-04_JPRB,3.8415E-04_JPRB,4.2283E-04_JPRB/) |
3740 |
|
|
KBO( :,48, 4) = (/& |
3741 |
✓✓ |
6 |
& 2.1223E-04_JPRB,2.3861E-04_JPRB,2.6709E-04_JPRB,2.9688E-04_JPRB,3.2776E-04_JPRB/) |
3742 |
|
|
KBO( :,49, 4) = (/& |
3743 |
✓✓ |
6 |
& 1.6266E-04_JPRB,1.8298E-04_JPRB,2.0524E-04_JPRB,2.2871E-04_JPRB,2.5327E-04_JPRB/) |
3744 |
|
|
KBO( :,50, 4) = (/& |
3745 |
✓✓ |
6 |
& 1.2558E-04_JPRB,1.4128E-04_JPRB,1.5863E-04_JPRB,1.7722E-04_JPRB,1.9672E-04_JPRB/) |
3746 |
|
|
KBO( :,51, 4) = (/& |
3747 |
✓✓ |
6 |
& 9.7209E-05_JPRB,1.0936E-04_JPRB,1.2288E-04_JPRB,1.3753E-04_JPRB,1.5302E-04_JPRB/) |
3748 |
|
|
KBO( :,52, 4) = (/& |
3749 |
✓✓ |
6 |
& 7.5228E-05_JPRB,8.4554E-05_JPRB,9.5027E-05_JPRB,1.0648E-04_JPRB,1.1875E-04_JPRB/) |
3750 |
|
|
KBO( :,53, 4) = (/& |
3751 |
✓✓ |
6 |
& 5.8185E-05_JPRB,6.5291E-05_JPRB,7.3346E-05_JPRB,8.2261E-05_JPRB,9.1865E-05_JPRB/) |
3752 |
|
|
KBO( :,54, 4) = (/& |
3753 |
✓✓ |
6 |
& 4.5374E-05_JPRB,5.0847E-05_JPRB,5.7097E-05_JPRB,6.4058E-05_JPRB,7.1601E-05_JPRB/) |
3754 |
|
|
KBO( :,55, 4) = (/& |
3755 |
✓✓ |
6 |
& 3.5491E-05_JPRB,3.9770E-05_JPRB,4.4634E-05_JPRB,5.0070E-05_JPRB,5.6003E-05_JPRB/) |
3756 |
|
|
KBO( :,56, 4) = (/& |
3757 |
✓✓ |
6 |
& 2.7730E-05_JPRB,3.1107E-05_JPRB,3.4873E-05_JPRB,3.9105E-05_JPRB,4.3754E-05_JPRB/) |
3758 |
|
|
KBO( :,57, 4) = (/& |
3759 |
✓✓ |
6 |
& 2.1648E-05_JPRB,2.4314E-05_JPRB,2.7229E-05_JPRB,3.0516E-05_JPRB,3.4148E-05_JPRB/) |
3760 |
|
|
KBO( :,58, 4) = (/& |
3761 |
✓✓ |
6 |
& 1.6951E-05_JPRB,1.9038E-05_JPRB,2.1314E-05_JPRB,2.3872E-05_JPRB,2.6710E-05_JPRB/) |
3762 |
|
|
KBO( :,59, 4) = (/& |
3763 |
✓✓ |
6 |
& 1.3663E-05_JPRB,1.5351E-05_JPRB,1.7200E-05_JPRB,1.9273E-05_JPRB,2.1558E-05_JPRB/) |
3764 |
|
|
KBO( :,13, 5) = (/& |
3765 |
✓✓ |
6 |
& 2.7737E-01_JPRB,2.9322E-01_JPRB,3.0941E-01_JPRB,3.2627E-01_JPRB,3.4434E-01_JPRB/) |
3766 |
|
|
KBO( :,14, 5) = (/& |
3767 |
✓✓ |
6 |
& 2.3065E-01_JPRB,2.4437E-01_JPRB,2.5863E-01_JPRB,2.7404E-01_JPRB,2.9080E-01_JPRB/) |
3768 |
|
|
KBO( :,15, 5) = (/& |
3769 |
✓✓ |
6 |
& 1.9306E-01_JPRB,2.0550E-01_JPRB,2.1890E-01_JPRB,2.3329E-01_JPRB,2.4884E-01_JPRB/) |
3770 |
|
|
KBO( :,16, 5) = (/& |
3771 |
✓✓ |
6 |
& 1.6288E-01_JPRB,1.7408E-01_JPRB,1.8590E-01_JPRB,1.9857E-01_JPRB,2.1238E-01_JPRB/) |
3772 |
|
|
KBO( :,17, 5) = (/& |
3773 |
✓✓ |
6 |
& 1.4081E-01_JPRB,1.5068E-01_JPRB,1.6123E-01_JPRB,1.7280E-01_JPRB,1.8532E-01_JPRB/) |
3774 |
|
|
KBO( :,18, 5) = (/& |
3775 |
✓✓ |
6 |
& 1.2553E-01_JPRB,1.3466E-01_JPRB,1.4467E-01_JPRB,1.5557E-01_JPRB,1.6709E-01_JPRB/) |
3776 |
|
|
KBO( :,19, 5) = (/& |
3777 |
✓✓ |
6 |
& 1.1351E-01_JPRB,1.2221E-01_JPRB,1.3178E-01_JPRB,1.4202E-01_JPRB,1.5283E-01_JPRB/) |
3778 |
|
|
KBO( :,20, 5) = (/& |
3779 |
✓✓ |
6 |
& 9.9675E-02_JPRB,1.0772E-01_JPRB,1.1652E-01_JPRB,1.2577E-01_JPRB,1.3562E-01_JPRB/) |
3780 |
|
|
KBO( :,21, 5) = (/& |
3781 |
✓✓ |
6 |
& 8.6695E-02_JPRB,9.4022E-02_JPRB,1.0192E-01_JPRB,1.1025E-01_JPRB,1.1913E-01_JPRB/) |
3782 |
|
|
KBO( :,22, 5) = (/& |
3783 |
✓✓ |
6 |
& 7.4874E-02_JPRB,8.1502E-02_JPRB,8.8514E-02_JPRB,9.5955E-02_JPRB,1.0385E-01_JPRB/) |
3784 |
|
|
KBO( :,23, 5) = (/& |
3785 |
✓✓ |
6 |
& 6.4540E-02_JPRB,7.0395E-02_JPRB,7.6612E-02_JPRB,8.3224E-02_JPRB,9.0095E-02_JPRB/) |
3786 |
|
|
KBO( :,24, 5) = (/& |
3787 |
✓✓ |
6 |
& 5.4946E-02_JPRB,6.0047E-02_JPRB,6.5517E-02_JPRB,7.1296E-02_JPRB,7.7220E-02_JPRB/) |
3788 |
|
|
KBO( :,25, 5) = (/& |
3789 |
✓✓ |
6 |
& 4.6677E-02_JPRB,5.1141E-02_JPRB,5.5940E-02_JPRB,6.0917E-02_JPRB,6.6053E-02_JPRB/) |
3790 |
|
|
KBO( :,26, 5) = (/& |
3791 |
✓✓ |
6 |
& 3.9709E-02_JPRB,4.3642E-02_JPRB,4.7787E-02_JPRB,5.2078E-02_JPRB,5.6505E-02_JPRB/) |
3792 |
|
|
KBO( :,27, 5) = (/& |
3793 |
✓✓ |
6 |
& 3.3623E-02_JPRB,3.7042E-02_JPRB,4.0591E-02_JPRB,4.4263E-02_JPRB,4.8022E-02_JPRB/) |
3794 |
|
|
KBO( :,28, 5) = (/& |
3795 |
✓✓ |
6 |
& 2.8328E-02_JPRB,3.1245E-02_JPRB,3.4254E-02_JPRB,3.7363E-02_JPRB,4.0510E-02_JPRB/) |
3796 |
|
|
KBO( :,29, 5) = (/& |
3797 |
✓✓ |
6 |
& 2.4050E-02_JPRB,2.6527E-02_JPRB,2.9098E-02_JPRB,3.1727E-02_JPRB,3.4395E-02_JPRB/) |
3798 |
|
|
KBO( :,30, 5) = (/& |
3799 |
✓✓ |
6 |
& 2.0420E-02_JPRB,2.2529E-02_JPRB,2.4722E-02_JPRB,2.6950E-02_JPRB,2.9231E-02_JPRB/) |
3800 |
|
|
KBO( :,31, 5) = (/& |
3801 |
✓✓ |
6 |
& 1.7429E-02_JPRB,1.9242E-02_JPRB,2.1110E-02_JPRB,2.3032E-02_JPRB,2.5014E-02_JPRB/) |
3802 |
|
|
KBO( :,32, 5) = (/& |
3803 |
✓✓ |
6 |
& 1.4961E-02_JPRB,1.6521E-02_JPRB,1.8130E-02_JPRB,1.9805E-02_JPRB,2.1542E-02_JPRB/) |
3804 |
|
|
KBO( :,33, 5) = (/& |
3805 |
✓✓ |
6 |
& 1.2897E-02_JPRB,1.4245E-02_JPRB,1.5653E-02_JPRB,1.7131E-02_JPRB,1.8661E-02_JPRB/) |
3806 |
|
|
KBO( :,34, 5) = (/& |
3807 |
✓✓ |
6 |
& 1.1253E-02_JPRB,1.2438E-02_JPRB,1.3692E-02_JPRB,1.5008E-02_JPRB,1.6374E-02_JPRB/) |
3808 |
|
|
KBO( :,35, 5) = (/& |
3809 |
✓✓ |
6 |
& 9.7397E-03_JPRB,1.0786E-02_JPRB,1.1902E-02_JPRB,1.3073E-02_JPRB,1.4295E-02_JPRB/) |
3810 |
|
|
KBO( :,36, 5) = (/& |
3811 |
✓✓ |
6 |
& 8.3444E-03_JPRB,9.2674E-03_JPRB,1.0255E-02_JPRB,1.1299E-02_JPRB,1.2388E-02_JPRB/) |
3812 |
|
|
KBO( :,37, 5) = (/& |
3813 |
✓✓ |
6 |
& 6.9467E-03_JPRB,7.7344E-03_JPRB,8.5805E-03_JPRB,9.4769E-03_JPRB,1.0414E-02_JPRB/) |
3814 |
|
|
KBO( :,38, 5) = (/& |
3815 |
✓✓ |
6 |
& 5.7736E-03_JPRB,6.4450E-03_JPRB,7.1687E-03_JPRB,7.9368E-03_JPRB,8.7424E-03_JPRB/) |
3816 |
|
|
KBO( :,39, 5) = (/& |
3817 |
✓✓ |
6 |
& 4.7981E-03_JPRB,5.3703E-03_JPRB,5.9884E-03_JPRB,6.6480E-03_JPRB,7.3403E-03_JPRB/) |
3818 |
|
|
KBO( :,40, 5) = (/& |
3819 |
✓✓ |
6 |
& 3.8576E-03_JPRB,4.3274E-03_JPRB,4.8368E-03_JPRB,5.3827E-03_JPRB,5.9574E-03_JPRB/) |
3820 |
|
|
KBO( :,41, 5) = (/& |
3821 |
✓✓ |
6 |
& 3.0825E-03_JPRB,3.4658E-03_JPRB,3.8827E-03_JPRB,4.3318E-03_JPRB,4.8066E-03_JPRB/) |
3822 |
|
|
KBO( :,42, 5) = (/& |
3823 |
✓✓ |
6 |
& 2.4580E-03_JPRB,2.7697E-03_JPRB,3.1105E-03_JPRB,3.4793E-03_JPRB,3.8701E-03_JPRB/) |
3824 |
|
|
KBO( :,43, 5) = (/& |
3825 |
✓✓ |
6 |
& 1.9332E-03_JPRB,2.1836E-03_JPRB,2.4577E-03_JPRB,2.7557E-03_JPRB,3.0732E-03_JPRB/) |
3826 |
|
|
KBO( :,44, 5) = (/& |
3827 |
✓✓ |
6 |
& 1.5097E-03_JPRB,1.7091E-03_JPRB,1.9276E-03_JPRB,2.1661E-03_JPRB,2.4221E-03_JPRB/) |
3828 |
|
|
KBO( :,45, 5) = (/& |
3829 |
✓✓ |
6 |
& 1.1763E-03_JPRB,1.3345E-03_JPRB,1.5083E-03_JPRB,1.6985E-03_JPRB,1.9040E-03_JPRB/) |
3830 |
|
|
KBO( :,46, 5) = (/& |
3831 |
✓✓ |
6 |
& 9.1296E-04_JPRB,1.0380E-03_JPRB,1.1758E-03_JPRB,1.3270E-03_JPRB,1.4913E-03_JPRB/) |
3832 |
|
|
KBO( :,47, 5) = (/& |
3833 |
✓✓ |
6 |
& 7.0476E-04_JPRB,8.0366E-04_JPRB,9.1252E-04_JPRB,1.0324E-03_JPRB,1.1627E-03_JPRB/) |
3834 |
|
|
KBO( :,48, 5) = (/& |
3835 |
✓✓ |
6 |
& 5.4241E-04_JPRB,6.2078E-04_JPRB,7.0617E-04_JPRB,8.0101E-04_JPRB,9.0392E-04_JPRB/) |
3836 |
|
|
KBO( :,49, 5) = (/& |
3837 |
✓✓ |
6 |
& 4.1608E-04_JPRB,4.7812E-04_JPRB,5.4515E-04_JPRB,6.1960E-04_JPRB,7.0075E-04_JPRB/) |
3838 |
|
|
KBO( :,50, 5) = (/& |
3839 |
✓✓ |
6 |
& 3.2092E-04_JPRB,3.7020E-04_JPRB,4.2343E-04_JPRB,4.8196E-04_JPRB,5.4630E-04_JPRB/) |
3840 |
|
|
KBO( :,51, 5) = (/& |
3841 |
✓✓ |
6 |
& 2.4810E-04_JPRB,2.8709E-04_JPRB,3.2948E-04_JPRB,3.7570E-04_JPRB,4.2676E-04_JPRB/) |
3842 |
|
|
KBO( :,52, 5) = (/& |
3843 |
✓✓ |
6 |
& 1.9141E-04_JPRB,2.2213E-04_JPRB,2.5579E-04_JPRB,2.9244E-04_JPRB,3.3280E-04_JPRB/) |
3844 |
|
|
KBO( :,53, 5) = (/& |
3845 |
✓✓ |
6 |
& 1.4731E-04_JPRB,1.7148E-04_JPRB,1.9808E-04_JPRB,2.2719E-04_JPRB,2.5899E-04_JPRB/) |
3846 |
|
|
KBO( :,54, 5) = (/& |
3847 |
✓✓ |
6 |
& 1.1424E-04_JPRB,1.3342E-04_JPRB,1.5446E-04_JPRB,1.7772E-04_JPRB,2.0300E-04_JPRB/) |
3848 |
|
|
KBO( :,55, 5) = (/& |
3849 |
✓✓ |
6 |
& 8.8904E-05_JPRB,1.0414E-04_JPRB,1.2079E-04_JPRB,1.3937E-04_JPRB,1.5956E-04_JPRB/) |
3850 |
|
|
KBO( :,56, 5) = (/& |
3851 |
✓✓ |
6 |
& 6.9133E-05_JPRB,8.1185E-05_JPRB,9.4325E-05_JPRB,1.0911E-04_JPRB,1.2522E-04_JPRB/) |
3852 |
|
|
KBO( :,57, 5) = (/& |
3853 |
✓✓ |
6 |
& 5.3742E-05_JPRB,6.3143E-05_JPRB,7.3567E-05_JPRB,8.5265E-05_JPRB,9.8102E-05_JPRB/) |
3854 |
|
|
KBO( :,58, 5) = (/& |
3855 |
✓✓ |
6 |
& 4.1907E-05_JPRB,4.9238E-05_JPRB,5.7492E-05_JPRB,6.6736E-05_JPRB,7.6984E-05_JPRB/) |
3856 |
|
|
KBO( :,59, 5) = (/& |
3857 |
✓✓ |
6 |
& 3.3859E-05_JPRB,3.9819E-05_JPRB,4.6565E-05_JPRB,5.4107E-05_JPRB,6.2503E-05_JPRB/) |
3858 |
|
|
KBO( :,13, 6) = (/& |
3859 |
✓✓ |
6 |
& 6.4121E-01_JPRB,6.6739E-01_JPRB,6.9468E-01_JPRB,7.2265E-01_JPRB,7.5107E-01_JPRB/) |
3860 |
|
|
KBO( :,14, 6) = (/& |
3861 |
✓✓ |
6 |
& 5.3428E-01_JPRB,5.5697E-01_JPRB,5.8044E-01_JPRB,6.0466E-01_JPRB,6.2906E-01_JPRB/) |
3862 |
|
|
KBO( :,15, 6) = (/& |
3863 |
✓✓ |
6 |
& 4.4250E-01_JPRB,4.6307E-01_JPRB,4.8477E-01_JPRB,5.0676E-01_JPRB,5.2972E-01_JPRB/) |
3864 |
|
|
KBO( :,16, 6) = (/& |
3865 |
✓✓ |
6 |
& 3.7115E-01_JPRB,3.9071E-01_JPRB,4.1071E-01_JPRB,4.3131E-01_JPRB,4.5290E-01_JPRB/) |
3866 |
|
|
KBO( :,17, 6) = (/& |
3867 |
✓✓ |
6 |
& 3.2201E-01_JPRB,3.3982E-01_JPRB,3.5775E-01_JPRB,3.7619E-01_JPRB,3.9590E-01_JPRB/) |
3868 |
|
|
KBO( :,18, 6) = (/& |
3869 |
✓✓ |
6 |
& 2.8860E-01_JPRB,3.0433E-01_JPRB,3.2058E-01_JPRB,3.3778E-01_JPRB,3.5711E-01_JPRB/) |
3870 |
|
|
KBO( :,19, 6) = (/& |
3871 |
✓✓ |
6 |
& 2.6093E-01_JPRB,2.7547E-01_JPRB,2.9092E-01_JPRB,3.0787E-01_JPRB,3.2715E-01_JPRB/) |
3872 |
|
|
KBO( :,20, 6) = (/& |
3873 |
✓✓ |
6 |
& 2.2906E-01_JPRB,2.4252E-01_JPRB,2.5706E-01_JPRB,2.7353E-01_JPRB,2.9188E-01_JPRB/) |
3874 |
|
|
KBO( :,21, 6) = (/& |
3875 |
✓✓ |
6 |
& 1.9921E-01_JPRB,2.1163E-01_JPRB,2.2547E-01_JPRB,2.4100E-01_JPRB,2.5826E-01_JPRB/) |
3876 |
|
|
KBO( :,22, 6) = (/& |
3877 |
✓✓ |
6 |
& 1.7190E-01_JPRB,1.8347E-01_JPRB,1.9652E-01_JPRB,2.1104E-01_JPRB,2.2725E-01_JPRB/) |
3878 |
|
|
KBO( :,23, 6) = (/& |
3879 |
✓✓ |
6 |
& 1.4807E-01_JPRB,1.5892E-01_JPRB,1.7107E-01_JPRB,1.8464E-01_JPRB,1.9976E-01_JPRB/) |
3880 |
|
|
KBO( :,24, 6) = (/& |
3881 |
✓✓ |
6 |
& 1.2630E-01_JPRB,1.3639E-01_JPRB,1.4760E-01_JPRB,1.6015E-01_JPRB,1.7395E-01_JPRB/) |
3882 |
|
|
KBO( :,25, 6) = (/& |
3883 |
✓✓ |
6 |
& 1.0785E-01_JPRB,1.1709E-01_JPRB,1.2743E-01_JPRB,1.3890E-01_JPRB,1.5149E-01_JPRB/) |
3884 |
|
|
KBO( :,26, 6) = (/& |
3885 |
✓✓ |
6 |
& 9.2383E-02_JPRB,1.0082E-01_JPRB,1.1033E-01_JPRB,1.2082E-01_JPRB,1.3229E-01_JPRB/) |
3886 |
|
|
KBO( :,27, 6) = (/& |
3887 |
✓✓ |
6 |
& 7.8812E-02_JPRB,8.6542E-02_JPRB,9.5218E-02_JPRB,1.0477E-01_JPRB,1.1508E-01_JPRB/) |
3888 |
|
|
KBO( :,28, 6) = (/& |
3889 |
✓✓ |
6 |
& 6.6953E-02_JPRB,7.4005E-02_JPRB,8.1900E-02_JPRB,9.0499E-02_JPRB,9.9667E-02_JPRB/) |
3890 |
|
|
KBO( :,29, 6) = (/& |
3891 |
✓✓ |
6 |
& 5.7472E-02_JPRB,6.3923E-02_JPRB,7.1088E-02_JPRB,7.8810E-02_JPRB,8.6979E-02_JPRB/) |
3892 |
|
|
KBO( :,30, 6) = (/& |
3893 |
✓✓ |
6 |
& 4.9506E-02_JPRB,5.5394E-02_JPRB,6.1825E-02_JPRB,6.8714E-02_JPRB,7.5948E-02_JPRB/) |
3894 |
|
|
KBO( :,31, 6) = (/& |
3895 |
✓✓ |
6 |
& 4.3026E-02_JPRB,4.8351E-02_JPRB,5.4145E-02_JPRB,6.0281E-02_JPRB,6.6645E-02_JPRB/) |
3896 |
|
|
KBO( :,32, 6) = (/& |
3897 |
✓✓ |
6 |
& 3.7695E-02_JPRB,4.2520E-02_JPRB,4.7714E-02_JPRB,5.3158E-02_JPRB,5.8754E-02_JPRB/) |
3898 |
|
|
KBO( :,33, 6) = (/& |
3899 |
✓✓ |
6 |
& 3.3253E-02_JPRB,3.7612E-02_JPRB,4.2238E-02_JPRB,4.7058E-02_JPRB,5.2057E-02_JPRB/) |
3900 |
|
|
KBO( :,34, 6) = (/& |
3901 |
✓✓ |
6 |
& 2.9687E-02_JPRB,3.3639E-02_JPRB,3.7802E-02_JPRB,4.2143E-02_JPRB,4.6713E-02_JPRB/) |
3902 |
|
|
KBO( :,35, 6) = (/& |
3903 |
✓✓ |
6 |
& 2.6238E-02_JPRB,2.9780E-02_JPRB,3.3512E-02_JPRB,3.7433E-02_JPRB,4.1618E-02_JPRB/) |
3904 |
|
|
KBO( :,36, 6) = (/& |
3905 |
✓✓ |
6 |
& 2.2870E-02_JPRB,2.6020E-02_JPRB,2.9343E-02_JPRB,3.2882E-02_JPRB,3.6681E-02_JPRB/) |
3906 |
|
|
KBO( :,37, 6) = (/& |
3907 |
✓✓ |
6 |
& 1.9322E-02_JPRB,2.2060E-02_JPRB,2.4965E-02_JPRB,2.8086E-02_JPRB,3.1456E-02_JPRB/) |
3908 |
|
|
KBO( :,38, 6) = (/& |
3909 |
✓✓ |
6 |
& 1.6289E-02_JPRB,1.8667E-02_JPRB,2.1206E-02_JPRB,2.3953E-02_JPRB,2.6938E-02_JPRB/) |
3910 |
|
|
KBO( :,39, 6) = (/& |
3911 |
✓✓ |
6 |
& 1.3724E-02_JPRB,1.5787E-02_JPRB,1.8005E-02_JPRB,2.0421E-02_JPRB,2.3064E-02_JPRB/) |
3912 |
|
|
KBO( :,40, 6) = (/& |
3913 |
✓✓ |
6 |
& 1.1170E-02_JPRB,1.2903E-02_JPRB,1.4777E-02_JPRB,1.6832E-02_JPRB,1.9094E-02_JPRB/) |
3914 |
|
|
KBO( :,41, 6) = (/& |
3915 |
✓✓ |
6 |
& 9.0289E-03_JPRB,1.0474E-02_JPRB,1.2048E-02_JPRB,1.3783E-02_JPRB,1.5707E-02_JPRB/) |
3916 |
|
|
KBO( :,42, 6) = (/& |
3917 |
✓✓ |
6 |
& 7.2786E-03_JPRB,8.4784E-03_JPRB,9.7962E-03_JPRB,1.1257E-02_JPRB,1.2889E-02_JPRB/) |
3918 |
|
|
KBO( :,43, 6) = (/& |
3919 |
✓✓ |
6 |
& 5.7746E-03_JPRB,6.7579E-03_JPRB,7.8468E-03_JPRB,9.0602E-03_JPRB,1.0425E-02_JPRB/) |
3920 |
|
|
KBO( :,44, 6) = (/& |
3921 |
✓✓ |
6 |
& 4.5415E-03_JPRB,5.3414E-03_JPRB,6.2337E-03_JPRB,7.2326E-03_JPRB,8.3633E-03_JPRB/) |
3922 |
|
|
KBO( :,45, 6) = (/& |
3923 |
✓✓ |
6 |
& 3.5601E-03_JPRB,4.2081E-03_JPRB,4.9346E-03_JPRB,5.7558E-03_JPRB,6.6891E-03_JPRB/) |
3924 |
|
|
KBO( :,46, 6) = (/& |
3925 |
✓✓ |
6 |
& 2.7754E-03_JPRB,3.2977E-03_JPRB,3.8855E-03_JPRB,4.5569E-03_JPRB,5.3238E-03_JPRB/) |
3926 |
|
|
KBO( :,47, 6) = (/& |
3927 |
✓✓ |
6 |
& 2.1475E-03_JPRB,2.5657E-03_JPRB,3.0384E-03_JPRB,3.5836E-03_JPRB,4.2109E-03_JPRB/) |
3928 |
|
|
KBO( :,48, 6) = (/& |
3929 |
✓✓ |
6 |
& 1.6563E-03_JPRB,1.9892E-03_JPRB,2.3684E-03_JPRB,2.8081E-03_JPRB,3.3184E-03_JPRB/) |
3930 |
|
|
KBO( :,49, 6) = (/& |
3931 |
✓✓ |
6 |
& 1.2736E-03_JPRB,1.5366E-03_JPRB,1.8396E-03_JPRB,2.1918E-03_JPRB,2.6053E-03_JPRB/) |
3932 |
|
|
KBO( :,50, 6) = (/& |
3933 |
✓✓ |
6 |
& 9.8514E-04_JPRB,1.1938E-03_JPRB,1.4366E-03_JPRB,1.7199E-03_JPRB,2.0561E-03_JPRB/) |
3934 |
|
|
KBO( :,51, 6) = (/& |
3935 |
✓✓ |
6 |
& 7.6305E-04_JPRB,9.2853E-04_JPRB,1.1230E-03_JPRB,1.3507E-03_JPRB,1.6237E-03_JPRB/) |
3936 |
|
|
KBO( :,52, 6) = (/& |
3937 |
✓✓ |
6 |
& 5.8964E-04_JPRB,7.2048E-04_JPRB,8.7539E-04_JPRB,1.0577E-03_JPRB,1.2781E-03_JPRB/) |
3938 |
|
|
KBO( :,53, 6) = (/& |
3939 |
✓✓ |
6 |
& 4.5442E-04_JPRB,5.5764E-04_JPRB,6.8041E-04_JPRB,8.2614E-04_JPRB,1.0025E-03_JPRB/) |
3940 |
|
|
KBO( :,54, 6) = (/& |
3941 |
✓✓ |
6 |
& 3.5277E-04_JPRB,4.3435E-04_JPRB,5.3231E-04_JPRB,6.4901E-04_JPRB,7.9056E-04_JPRB/) |
3942 |
|
|
KBO( :,55, 6) = (/& |
3943 |
✓✓ |
6 |
& 2.7456E-04_JPRB,3.3899E-04_JPRB,4.1714E-04_JPRB,5.1074E-04_JPRB,6.2435E-04_JPRB/) |
3944 |
|
|
KBO( :,56, 6) = (/& |
3945 |
✓✓ |
6 |
& 2.1331E-04_JPRB,2.6410E-04_JPRB,3.2619E-04_JPRB,4.0097E-04_JPRB,4.9192E-04_JPRB/) |
3946 |
|
|
KBO( :,57, 6) = (/& |
3947 |
✓✓ |
6 |
& 1.6544E-04_JPRB,2.0526E-04_JPRB,2.5453E-04_JPRB,3.1404E-04_JPRB,3.8660E-04_JPRB/) |
3948 |
|
|
KBO( :,58, 6) = (/& |
3949 |
✓✓ |
6 |
& 1.2858E-04_JPRB,1.5986E-04_JPRB,1.9897E-04_JPRB,2.4635E-04_JPRB,3.0450E-04_JPRB/) |
3950 |
|
|
KBO( :,59, 6) = (/& |
3951 |
✓✓ |
6 |
& 1.0424E-04_JPRB,1.3005E-04_JPRB,1.6246E-04_JPRB,2.0168E-04_JPRB,2.5022E-04_JPRB/) |
3952 |
|
|
KBO( :,13, 7) = (/& |
3953 |
✓✓ |
6 |
& 1.5651E+00_JPRB,1.6169E+00_JPRB,1.6708E+00_JPRB,1.7263E+00_JPRB,1.7852E+00_JPRB/) |
3954 |
|
|
KBO( :,14, 7) = (/& |
3955 |
✓✓ |
6 |
& 1.3034E+00_JPRB,1.3495E+00_JPRB,1.3970E+00_JPRB,1.4470E+00_JPRB,1.4990E+00_JPRB/) |
3956 |
|
|
KBO( :,15, 7) = (/& |
3957 |
✓✓ |
6 |
& 1.0798E+00_JPRB,1.1205E+00_JPRB,1.1627E+00_JPRB,1.2066E+00_JPRB,1.2529E+00_JPRB/) |
3958 |
|
|
KBO( :,16, 7) = (/& |
3959 |
✓✓ |
6 |
& 9.0502E-01_JPRB,9.4264E-01_JPRB,9.8168E-01_JPRB,1.0232E+00_JPRB,1.0668E+00_JPRB/) |
3960 |
|
|
|
3961 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART13',1,ZHOOK_HANDLE) |
3962 |
|
1 |
END SUBROUTINE PART13 |
3963 |
|
|
|
3964 |
|
|
|
3965 |
|
1 |
SUBROUTINE PART14 |
3966 |
|
|
|
3967 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
3968 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART14',0,ZHOOK_HANDLE) |
3969 |
|
|
|
3970 |
|
|
|
3971 |
|
|
KBO( :,17, 7) = (/& |
3972 |
✓✓ |
6 |
& 7.8533E-01_JPRB,8.2264E-01_JPRB,8.6170E-01_JPRB,9.0297E-01_JPRB,9.4574E-01_JPRB/) |
3973 |
|
|
KBO( :,18, 7) = (/& |
3974 |
✓✓ |
6 |
& 7.0905E-01_JPRB,7.4606E-01_JPRB,7.8445E-01_JPRB,8.2385E-01_JPRB,8.6498E-01_JPRB/) |
3975 |
|
|
KBO( :,19, 7) = (/& |
3976 |
✓✓ |
6 |
& 6.5117E-01_JPRB,6.8581E-01_JPRB,7.2084E-01_JPRB,7.5738E-01_JPRB,7.9689E-01_JPRB/) |
3977 |
|
|
KBO( :,20, 7) = (/& |
3978 |
✓✓ |
6 |
& 5.8055E-01_JPRB,6.1130E-01_JPRB,6.4302E-01_JPRB,6.7746E-01_JPRB,7.1553E-01_JPRB/) |
3979 |
|
|
KBO( :,21, 7) = (/& |
3980 |
✓✓ |
6 |
& 5.1109E-01_JPRB,5.3883E-01_JPRB,5.6867E-01_JPRB,6.0178E-01_JPRB,6.3866E-01_JPRB/) |
3981 |
|
|
KBO( :,22, 7) = (/& |
3982 |
✓✓ |
6 |
& 4.4535E-01_JPRB,4.7107E-01_JPRB,4.9963E-01_JPRB,5.3173E-01_JPRB,5.6752E-01_JPRB/) |
3983 |
|
|
KBO( :,23, 7) = (/& |
3984 |
✓✓ |
6 |
& 3.8693E-01_JPRB,4.1147E-01_JPRB,4.3911E-01_JPRB,4.7015E-01_JPRB,5.0472E-01_JPRB/) |
3985 |
|
|
KBO( :,24, 7) = (/& |
3986 |
✓✓ |
6 |
& 3.3299E-01_JPRB,3.5628E-01_JPRB,3.8277E-01_JPRB,4.1248E-01_JPRB,4.4550E-01_JPRB/) |
3987 |
|
|
KBO( :,25, 7) = (/& |
3988 |
✓✓ |
6 |
& 2.8674E-01_JPRB,3.0903E-01_JPRB,3.3447E-01_JPRB,3.6286E-01_JPRB,3.9391E-01_JPRB/) |
3989 |
|
|
KBO( :,26, 7) = (/& |
3990 |
✓✓ |
6 |
& 2.4799E-01_JPRB,2.6945E-01_JPRB,2.9359E-01_JPRB,3.2034E-01_JPRB,3.4997E-01_JPRB/) |
3991 |
|
|
KBO( :,27, 7) = (/& |
3992 |
✓✓ |
6 |
& 2.1431E-01_JPRB,2.3461E-01_JPRB,2.5723E-01_JPRB,2.8249E-01_JPRB,3.1067E-01_JPRB/) |
3993 |
|
|
KBO( :,28, 7) = (/& |
3994 |
✓✓ |
6 |
& 1.8505E-01_JPRB,2.0390E-01_JPRB,2.2502E-01_JPRB,2.4887E-01_JPRB,2.7537E-01_JPRB/) |
3995 |
|
|
KBO( :,29, 7) = (/& |
3996 |
✓✓ |
6 |
& 1.6146E-01_JPRB,1.7908E-01_JPRB,1.9912E-01_JPRB,2.2167E-01_JPRB,2.4667E-01_JPRB/) |
3997 |
|
|
KBO( :,30, 7) = (/& |
3998 |
✓✓ |
6 |
& 1.4137E-01_JPRB,1.5806E-01_JPRB,1.7706E-01_JPRB,1.9835E-01_JPRB,2.2209E-01_JPRB/) |
3999 |
|
|
KBO( :,31, 7) = (/& |
4000 |
✓✓ |
6 |
& 1.2498E-01_JPRB,1.4092E-01_JPRB,1.5896E-01_JPRB,1.7927E-01_JPRB,2.0199E-01_JPRB/) |
4001 |
|
|
KBO( :,32, 7) = (/& |
4002 |
✓✓ |
6 |
& 1.1162E-01_JPRB,1.2686E-01_JPRB,1.4411E-01_JPRB,1.6362E-01_JPRB,1.8544E-01_JPRB/) |
4003 |
|
|
KBO( :,33, 7) = (/& |
4004 |
✓✓ |
6 |
& 1.0058E-01_JPRB,1.1519E-01_JPRB,1.3185E-01_JPRB,1.5062E-01_JPRB,1.7164E-01_JPRB/) |
4005 |
|
|
KBO( :,34, 7) = (/& |
4006 |
✓✓ |
6 |
& 9.1872E-02_JPRB,1.0605E-01_JPRB,1.2221E-01_JPRB,1.4049E-01_JPRB,1.6092E-01_JPRB/) |
4007 |
|
|
KBO( :,35, 7) = (/& |
4008 |
✓✓ |
6 |
& 8.3134E-02_JPRB,9.6731E-02_JPRB,1.1227E-01_JPRB,1.2986E-01_JPRB,1.4952E-01_JPRB/) |
4009 |
|
|
KBO( :,36, 7) = (/& |
4010 |
✓✓ |
6 |
& 7.4081E-02_JPRB,8.6894E-02_JPRB,1.0163E-01_JPRB,1.1830E-01_JPRB,1.3703E-01_JPRB/) |
4011 |
|
|
KBO( :,37, 7) = (/& |
4012 |
✓✓ |
6 |
& 6.4153E-02_JPRB,7.5901E-02_JPRB,8.9515E-02_JPRB,1.0499E-01_JPRB,1.2245E-01_JPRB/) |
4013 |
|
|
KBO( :,38, 7) = (/& |
4014 |
✓✓ |
6 |
& 5.5459E-02_JPRB,6.6199E-02_JPRB,7.8762E-02_JPRB,9.3144E-02_JPRB,1.0945E-01_JPRB/) |
4015 |
|
|
KBO( :,39, 7) = (/& |
4016 |
✓✓ |
6 |
& 4.7923E-02_JPRB,5.7730E-02_JPRB,6.9328E-02_JPRB,8.2715E-02_JPRB,9.7968E-02_JPRB/) |
4017 |
|
|
KBO( :,40, 7) = (/& |
4018 |
✓✓ |
6 |
& 3.9991E-02_JPRB,4.8626E-02_JPRB,5.8962E-02_JPRB,7.1033E-02_JPRB,8.4866E-02_JPRB/) |
4019 |
|
|
KBO( :,41, 7) = (/& |
4020 |
✓✓ |
6 |
& 3.3132E-02_JPRB,4.0668E-02_JPRB,4.9786E-02_JPRB,6.0601E-02_JPRB,7.3110E-02_JPRB/) |
4021 |
|
|
KBO( :,42, 7) = (/& |
4022 |
✓✓ |
6 |
& 2.7362E-02_JPRB,3.3907E-02_JPRB,4.1915E-02_JPRB,5.1544E-02_JPRB,6.2838E-02_JPRB/) |
4023 |
|
|
KBO( :,43, 7) = (/& |
4024 |
✓✓ |
6 |
& 2.2196E-02_JPRB,2.7768E-02_JPRB,3.4671E-02_JPRB,4.3090E-02_JPRB,5.3119E-02_JPRB/) |
4025 |
|
|
KBO( :,44, 7) = (/& |
4026 |
✓✓ |
6 |
& 1.7818E-02_JPRB,2.2501E-02_JPRB,2.8380E-02_JPRB,3.5655E-02_JPRB,4.4455E-02_JPRB/) |
4027 |
|
|
KBO( :,45, 7) = (/& |
4028 |
✓✓ |
6 |
& 1.4243E-02_JPRB,1.8150E-02_JPRB,2.3128E-02_JPRB,2.9377E-02_JPRB,3.7045E-02_JPRB/) |
4029 |
|
|
KBO( :,46, 7) = (/& |
4030 |
✓✓ |
6 |
& 1.1286E-02_JPRB,1.4511E-02_JPRB,1.8685E-02_JPRB,2.4000E-02_JPRB,3.0616E-02_JPRB/) |
4031 |
|
|
KBO( :,47, 7) = (/& |
4032 |
✓✓ |
6 |
& 8.8305E-03_JPRB,1.1453E-02_JPRB,1.4902E-02_JPRB,1.9356E-02_JPRB,2.5001E-02_JPRB/) |
4033 |
|
|
KBO( :,48, 7) = (/& |
4034 |
✓✓ |
6 |
& 6.8710E-03_JPRB,8.9888E-03_JPRB,1.1814E-02_JPRB,1.5517E-02_JPRB,2.0294E-02_JPRB/) |
4035 |
|
|
KBO( :,49, 7) = (/& |
4036 |
✓✓ |
6 |
& 5.3150E-03_JPRB,7.0121E-03_JPRB,9.3059E-03_JPRB,1.2357E-02_JPRB,1.6365E-02_JPRB/) |
4037 |
|
|
KBO( :,50, 7) = (/& |
4038 |
✓✓ |
6 |
& 4.1309E-03_JPRB,5.4944E-03_JPRB,7.3653E-03_JPRB,9.8877E-03_JPRB,1.3254E-02_JPRB/) |
4039 |
|
|
KBO( :,51, 7) = (/& |
4040 |
✓✓ |
6 |
& 3.2122E-03_JPRB,4.3028E-03_JPRB,5.8246E-03_JPRB,7.9072E-03_JPRB,1.0730E-02_JPRB/) |
4041 |
|
|
KBO( :,52, 7) = (/& |
4042 |
✓✓ |
6 |
& 2.4855E-03_JPRB,3.3518E-03_JPRB,4.5791E-03_JPRB,6.2870E-03_JPRB,8.6345E-03_JPRB/) |
4043 |
|
|
KBO( :,53, 7) = (/& |
4044 |
✓✓ |
6 |
& 1.9144E-03_JPRB,2.5958E-03_JPRB,3.5772E-03_JPRB,4.9679E-03_JPRB,6.9029E-03_JPRB/) |
4045 |
|
|
KBO( :,54, 7) = (/& |
4046 |
✓✓ |
6 |
& 1.4846E-03_JPRB,2.0243E-03_JPRB,2.8131E-03_JPRB,3.9506E-03_JPRB,5.5585E-03_JPRB/) |
4047 |
|
|
KBO( :,55, 7) = (/& |
4048 |
✓✓ |
6 |
& 1.1531E-03_JPRB,1.5804E-03_JPRB,2.2143E-03_JPRB,3.1436E-03_JPRB,4.4799E-03_JPRB/) |
4049 |
|
|
KBO( :,56, 7) = (/& |
4050 |
✓✓ |
6 |
& 8.9241E-04_JPRB,1.2296E-03_JPRB,1.7344E-03_JPRB,2.4879E-03_JPRB,3.5892E-03_JPRB/) |
4051 |
|
|
KBO( :,57, 7) = (/& |
4052 |
✓✓ |
6 |
& 6.8839E-04_JPRB,9.5206E-04_JPRB,1.3509E-03_JPRB,1.9572E-03_JPRB,2.8575E-03_JPRB/) |
4053 |
|
|
KBO( :,58, 7) = (/& |
4054 |
✓✓ |
6 |
& 5.3236E-04_JPRB,7.3837E-04_JPRB,1.0535E-03_JPRB,1.5406E-03_JPRB,2.2793E-03_JPRB/) |
4055 |
|
|
KBO( :,59, 7) = (/& |
4056 |
✓✓ |
6 |
& 4.3598E-04_JPRB,6.1022E-04_JPRB,8.8068E-04_JPRB,1.3033E-03_JPRB,1.9553E-03_JPRB/) |
4057 |
|
|
KBO( :,13, 8) = (/& |
4058 |
✓✓ |
6 |
& 4.7769E+00_JPRB,4.8848E+00_JPRB,4.9874E+00_JPRB,5.0917E+00_JPRB,5.1968E+00_JPRB/) |
4059 |
|
|
KBO( :,14, 8) = (/& |
4060 |
✓✓ |
6 |
& 4.0252E+00_JPRB,4.1225E+00_JPRB,4.2203E+00_JPRB,4.3172E+00_JPRB,4.4173E+00_JPRB/) |
4061 |
|
|
KBO( :,15, 8) = (/& |
4062 |
✓✓ |
6 |
& 3.3636E+00_JPRB,3.4557E+00_JPRB,3.5447E+00_JPRB,3.6379E+00_JPRB,3.7313E+00_JPRB/) |
4063 |
|
|
KBO( :,16, 8) = (/& |
4064 |
✓✓ |
6 |
& 2.8215E+00_JPRB,2.9045E+00_JPRB,2.9912E+00_JPRB,3.0777E+00_JPRB,3.1703E+00_JPRB/) |
4065 |
|
|
KBO( :,17, 8) = (/& |
4066 |
✓✓ |
6 |
& 2.4207E+00_JPRB,2.5043E+00_JPRB,2.5895E+00_JPRB,2.6793E+00_JPRB,2.7738E+00_JPRB/) |
4067 |
|
|
KBO( :,18, 8) = (/& |
4068 |
✓✓ |
6 |
& 2.1596E+00_JPRB,2.2496E+00_JPRB,2.3425E+00_JPRB,2.4404E+00_JPRB,2.5399E+00_JPRB/) |
4069 |
|
|
KBO( :,19, 8) = (/& |
4070 |
✓✓ |
6 |
& 1.9873E+00_JPRB,2.0853E+00_JPRB,2.1866E+00_JPRB,2.2891E+00_JPRB,2.3905E+00_JPRB/) |
4071 |
|
|
KBO( :,20, 8) = (/& |
4072 |
✓✓ |
6 |
& 1.8046E+00_JPRB,1.9022E+00_JPRB,2.0007E+00_JPRB,2.0973E+00_JPRB,2.1932E+00_JPRB/) |
4073 |
|
|
KBO( :,21, 8) = (/& |
4074 |
✓✓ |
6 |
& 1.6245E+00_JPRB,1.7151E+00_JPRB,1.8038E+00_JPRB,1.8907E+00_JPRB,1.9795E+00_JPRB/) |
4075 |
|
|
KBO( :,22, 8) = (/& |
4076 |
✓✓ |
6 |
& 1.4461E+00_JPRB,1.5258E+00_JPRB,1.6036E+00_JPRB,1.6835E+00_JPRB,1.7677E+00_JPRB/) |
4077 |
|
|
KBO( :,23, 8) = (/& |
4078 |
✓✓ |
6 |
& 1.2784E+00_JPRB,1.3484E+00_JPRB,1.4202E+00_JPRB,1.4958E+00_JPRB,1.5781E+00_JPRB/) |
4079 |
|
|
KBO( :,24, 8) = (/& |
4080 |
✓✓ |
6 |
& 1.1162E+00_JPRB,1.1799E+00_JPRB,1.2469E+00_JPRB,1.3197E+00_JPRB,1.4014E+00_JPRB/) |
4081 |
|
|
KBO( :,25, 8) = (/& |
4082 |
✓✓ |
6 |
& 9.7290E-01_JPRB,1.0323E+00_JPRB,1.0964E+00_JPRB,1.1683E+00_JPRB,1.2507E+00_JPRB/) |
4083 |
|
|
KBO( :,26, 8) = (/& |
4084 |
✓✓ |
6 |
& 8.5083E-01_JPRB,9.0746E-01_JPRB,9.7028E-01_JPRB,1.0426E+00_JPRB,1.1250E+00_JPRB/) |
4085 |
|
|
KBO( :,27, 8) = (/& |
4086 |
✓✓ |
6 |
& 7.4331E-01_JPRB,7.9805E-01_JPRB,8.6066E-01_JPRB,9.3282E-01_JPRB,1.0150E+00_JPRB/) |
4087 |
|
|
KBO( :,28, 8) = (/& |
4088 |
✓✓ |
6 |
& 6.4875E-01_JPRB,7.0258E-01_JPRB,7.6476E-01_JPRB,8.3624E-01_JPRB,9.1880E-01_JPRB/) |
4089 |
|
|
KBO( :,29, 8) = (/& |
4090 |
✓✓ |
6 |
& 5.7353E-01_JPRB,6.2704E-01_JPRB,6.8898E-01_JPRB,7.6115E-01_JPRB,8.4456E-01_JPRB/) |
4091 |
|
|
KBO( :,30, 8) = (/& |
4092 |
✓✓ |
6 |
& 5.1081E-01_JPRB,5.6430E-01_JPRB,6.2672E-01_JPRB,6.9960E-01_JPRB,7.8366E-01_JPRB/) |
4093 |
|
|
KBO( :,31, 8) = (/& |
4094 |
✓✓ |
6 |
& 4.6060E-01_JPRB,5.1474E-01_JPRB,5.7850E-01_JPRB,6.5276E-01_JPRB,7.3784E-01_JPRB/) |
4095 |
|
|
KBO( :,32, 8) = (/& |
4096 |
✓✓ |
6 |
& 4.2054E-01_JPRB,4.7584E-01_JPRB,5.4138E-01_JPRB,6.1744E-01_JPRB,7.0416E-01_JPRB/) |
4097 |
|
|
KBO( :,33, 8) = (/& |
4098 |
✓✓ |
6 |
& 3.8881E-01_JPRB,4.4574E-01_JPRB,5.1326E-01_JPRB,5.9158E-01_JPRB,6.8101E-01_JPRB/) |
4099 |
|
|
KBO( :,34, 8) = (/& |
4100 |
✓✓ |
6 |
& 3.6582E-01_JPRB,4.2446E-01_JPRB,4.9413E-01_JPRB,5.7504E-01_JPRB,6.6797E-01_JPRB/) |
4101 |
|
|
KBO( :,35, 8) = (/& |
4102 |
✓✓ |
6 |
& 3.4211E-01_JPRB,4.0158E-01_JPRB,4.7243E-01_JPRB,5.5519E-01_JPRB,6.5095E-01_JPRB/) |
4103 |
|
|
KBO( :,36, 8) = (/& |
4104 |
✓✓ |
6 |
& 3.1584E-01_JPRB,3.7515E-01_JPRB,4.4596E-01_JPRB,5.2948E-01_JPRB,6.2662E-01_JPRB/) |
4105 |
|
|
KBO( :,37, 8) = (/& |
4106 |
✓✓ |
6 |
& 2.8335E-01_JPRB,3.4000E-01_JPRB,4.0808E-01_JPRB,4.8925E-01_JPRB,5.8433E-01_JPRB/) |
4107 |
|
|
KBO( :,38, 8) = (/& |
4108 |
✓✓ |
6 |
& 2.5439E-01_JPRB,3.0837E-01_JPRB,3.7382E-01_JPRB,4.5256E-01_JPRB,5.4554E-01_JPRB/) |
4109 |
|
|
KBO( :,39, 8) = (/& |
4110 |
✓✓ |
6 |
& 2.2884E-01_JPRB,2.8037E-01_JPRB,3.4336E-01_JPRB,4.1988E-01_JPRB,5.1084E-01_JPRB/) |
4111 |
|
|
KBO( :,40, 8) = (/& |
4112 |
✓✓ |
6 |
& 1.9894E-01_JPRB,2.4621E-01_JPRB,3.0460E-01_JPRB,3.7622E-01_JPRB,4.6217E-01_JPRB/) |
4113 |
|
|
KBO( :,41, 8) = (/& |
4114 |
✓✓ |
6 |
& 1.7202E-01_JPRB,2.1505E-01_JPRB,2.6889E-01_JPRB,3.3546E-01_JPRB,4.1631E-01_JPRB/) |
4115 |
|
|
KBO( :,42, 8) = (/& |
4116 |
✓✓ |
6 |
& 1.4851E-01_JPRB,1.8770E-01_JPRB,2.3715E-01_JPRB,2.9895E-01_JPRB,3.7473E-01_JPRB/) |
4117 |
|
|
KBO( :,43, 8) = (/& |
4118 |
✓✓ |
6 |
& 1.2600E-01_JPRB,1.6095E-01_JPRB,2.0554E-01_JPRB,2.6188E-01_JPRB,3.3169E-01_JPRB/) |
4119 |
|
|
KBO( :,44, 8) = (/& |
4120 |
✓✓ |
6 |
& 1.0584E-01_JPRB,1.3667E-01_JPRB,1.7652E-01_JPRB,2.2729E-01_JPRB,2.9097E-01_JPRB/) |
4121 |
|
|
KBO( :,45, 8) = (/& |
4122 |
✓✓ |
6 |
& 8.8493E-02_JPRB,1.1567E-01_JPRB,1.5110E-01_JPRB,1.9672E-01_JPRB,2.5462E-01_JPRB/) |
4123 |
|
|
KBO( :,46, 8) = (/& |
4124 |
✓✓ |
6 |
& 7.3233E-02_JPRB,9.7022E-02_JPRB,1.2827E-01_JPRB,1.6892E-01_JPRB,2.2114E-01_JPRB/) |
4125 |
|
|
KBO( :,47, 8) = (/& |
4126 |
✓✓ |
6 |
& 5.9636E-02_JPRB,8.0163E-02_JPRB,1.0738E-01_JPRB,1.4314E-01_JPRB,1.8961E-01_JPRB/) |
4127 |
|
|
KBO( :,48, 8) = (/& |
4128 |
✓✓ |
6 |
& 4.8167E-02_JPRB,6.5765E-02_JPRB,8.9346E-02_JPRB,1.2067E-01_JPRB,1.6184E-01_JPRB/) |
4129 |
|
|
KBO( :,49, 8) = (/& |
4130 |
✓✓ |
6 |
& 3.8566E-02_JPRB,5.3500E-02_JPRB,7.3805E-02_JPRB,1.0114E-01_JPRB,1.3740E-01_JPRB/) |
4131 |
|
|
KBO( :,50, 8) = (/& |
4132 |
✓✓ |
6 |
& 3.0986E-02_JPRB,4.3657E-02_JPRB,6.1235E-02_JPRB,8.5187E-02_JPRB,1.1732E-01_JPRB/) |
4133 |
|
|
KBO( :,51, 8) = (/& |
4134 |
✓✓ |
6 |
& 2.4855E-02_JPRB,3.5538E-02_JPRB,5.0728E-02_JPRB,7.1690E-02_JPRB,1.0021E-01_JPRB/) |
4135 |
|
|
KBO( :,52, 8) = (/& |
4136 |
✓✓ |
6 |
& 1.9770E-02_JPRB,2.8704E-02_JPRB,4.1703E-02_JPRB,5.9943E-02_JPRB,8.5157E-02_JPRB/) |
4137 |
|
|
KBO( :,53, 8) = (/& |
4138 |
✓✓ |
6 |
& 1.5594E-02_JPRB,2.2973E-02_JPRB,3.3967E-02_JPRB,4.9762E-02_JPRB,7.1853E-02_JPRB/) |
4139 |
|
|
KBO( :,54, 8) = (/& |
4140 |
✓✓ |
6 |
& 1.2395E-02_JPRB,1.8523E-02_JPRB,2.7877E-02_JPRB,4.1630E-02_JPRB,6.1144E-02_JPRB/) |
4141 |
|
|
KBO( :,55, 8) = (/& |
4142 |
✓✓ |
6 |
& 9.8575E-03_JPRB,1.4938E-02_JPRB,2.2890E-02_JPRB,3.4846E-02_JPRB,5.2121E-02_JPRB/) |
4143 |
|
|
KBO( :,56, 8) = (/& |
4144 |
✓✓ |
6 |
& 7.7929E-03_JPRB,1.1970E-02_JPRB,1.8661E-02_JPRB,2.8954E-02_JPRB,4.4168E-02_JPRB/) |
4145 |
|
|
KBO( :,57, 8) = (/& |
4146 |
✓✓ |
6 |
& 6.1195E-03_JPRB,9.5111E-03_JPRB,1.5088E-02_JPRB,2.3882E-02_JPRB,3.7179E-02_JPRB/) |
4147 |
|
|
KBO( :,58, 8) = (/& |
4148 |
✓✓ |
6 |
& 4.8102E-03_JPRB,7.5604E-03_JPRB,1.2200E-02_JPRB,1.9713E-02_JPRB,3.1334E-02_JPRB/) |
4149 |
|
|
KBO( :,59, 8) = (/& |
4150 |
✓✓ |
6 |
& 4.0994E-03_JPRB,6.5648E-03_JPRB,1.0813E-02_JPRB,1.7794E-02_JPRB,2.8755E-02_JPRB/) |
4151 |
|
|
KBO( :,13, 9) = (/& |
4152 |
✓✓ |
6 |
& 2.2033E+01_JPRB,2.2174E+01_JPRB,2.2343E+01_JPRB,2.2507E+01_JPRB,2.2688E+01_JPRB/) |
4153 |
|
|
KBO( :,14, 9) = (/& |
4154 |
✓✓ |
6 |
& 1.9641E+01_JPRB,1.9826E+01_JPRB,1.9998E+01_JPRB,2.0195E+01_JPRB,2.0429E+01_JPRB/) |
4155 |
|
|
KBO( :,15, 9) = (/& |
4156 |
✓✓ |
6 |
& 1.7181E+01_JPRB,1.7367E+01_JPRB,1.7589E+01_JPRB,1.7835E+01_JPRB,1.8095E+01_JPRB/) |
4157 |
|
|
KBO( :,16, 9) = (/& |
4158 |
✓✓ |
6 |
& 1.4894E+01_JPRB,1.5133E+01_JPRB,1.5386E+01_JPRB,1.5657E+01_JPRB,1.5957E+01_JPRB/) |
4159 |
|
|
KBO( :,17, 9) = (/& |
4160 |
✓✓ |
6 |
& 1.3089E+01_JPRB,1.3342E+01_JPRB,1.3618E+01_JPRB,1.3934E+01_JPRB,1.4266E+01_JPRB/) |
4161 |
|
|
KBO( :,18, 9) = (/& |
4162 |
✓✓ |
6 |
& 1.1731E+01_JPRB,1.2006E+01_JPRB,1.2330E+01_JPRB,1.2671E+01_JPRB,1.3025E+01_JPRB/) |
4163 |
|
|
KBO( :,19, 9) = (/& |
4164 |
✓✓ |
6 |
& 1.0583E+01_JPRB,1.0906E+01_JPRB,1.1254E+01_JPRB,1.1621E+01_JPRB,1.2024E+01_JPRB/) |
4165 |
|
|
KBO( :,20, 9) = (/& |
4166 |
✓✓ |
6 |
& 9.4570E+00_JPRB,9.7937E+00_JPRB,1.0152E+01_JPRB,1.0555E+01_JPRB,1.0995E+01_JPRB/) |
4167 |
|
|
KBO( :,21, 9) = (/& |
4168 |
✓✓ |
6 |
& 8.4559E+00_JPRB,8.8026E+00_JPRB,9.1952E+00_JPRB,9.6304E+00_JPRB,1.0095E+01_JPRB/) |
4169 |
|
|
KBO( :,22, 9) = (/& |
4170 |
✓✓ |
6 |
& 7.5782E+00_JPRB,7.9554E+00_JPRB,8.3755E+00_JPRB,8.8282E+00_JPRB,9.3139E+00_JPRB/) |
4171 |
|
|
KBO( :,23, 9) = (/& |
4172 |
✓✓ |
6 |
& 6.8684E+00_JPRB,7.2684E+00_JPRB,7.7047E+00_JPRB,8.1736E+00_JPRB,8.6781E+00_JPRB/) |
4173 |
|
|
KBO( :,24, 9) = (/& |
4174 |
✓✓ |
6 |
& 6.2497E+00_JPRB,6.6572E+00_JPRB,7.0979E+00_JPRB,7.5746E+00_JPRB,8.0821E+00_JPRB/) |
4175 |
|
|
KBO( :,25, 9) = (/& |
4176 |
✓✓ |
6 |
& 5.7300E+00_JPRB,6.1337E+00_JPRB,6.5736E+00_JPRB,7.0462E+00_JPRB,7.5518E+00_JPRB/) |
4177 |
|
|
KBO( :,26, 9) = (/& |
4178 |
✓✓ |
6 |
& 5.2905E+00_JPRB,5.6892E+00_JPRB,6.1183E+00_JPRB,6.5857E+00_JPRB,7.0904E+00_JPRB/) |
4179 |
|
|
KBO( :,27, 9) = (/& |
4180 |
✓✓ |
6 |
& 4.8852E+00_JPRB,5.2716E+00_JPRB,5.6895E+00_JPRB,6.1477E+00_JPRB,6.6506E+00_JPRB/) |
4181 |
|
|
KBO( :,28, 9) = (/& |
4182 |
✓✓ |
6 |
& 4.4993E+00_JPRB,4.8815E+00_JPRB,5.2912E+00_JPRB,5.7427E+00_JPRB,6.2498E+00_JPRB/) |
4183 |
|
|
KBO( :,29, 9) = (/& |
4184 |
✓✓ |
6 |
& 4.1817E+00_JPRB,4.5681E+00_JPRB,4.9858E+00_JPRB,5.4440E+00_JPRB,5.9661E+00_JPRB/) |
4185 |
|
|
KBO( :,30, 9) = (/& |
4186 |
✓✓ |
6 |
& 3.9159E+00_JPRB,4.3103E+00_JPRB,4.7415E+00_JPRB,5.2227E+00_JPRB,5.7617E+00_JPRB/) |
4187 |
|
|
KBO( :,31, 9) = (/& |
4188 |
✓✓ |
6 |
& 3.7169E+00_JPRB,4.1255E+00_JPRB,4.5793E+00_JPRB,5.0892E+00_JPRB,5.6531E+00_JPRB/) |
4189 |
|
|
KBO( :,32, 9) = (/& |
4190 |
✓✓ |
6 |
& 3.5834E+00_JPRB,4.0122E+00_JPRB,4.4950E+00_JPRB,5.0349E+00_JPRB,5.6294E+00_JPRB/) |
4191 |
|
|
KBO( :,33, 9) = (/& |
4192 |
✓✓ |
6 |
& 3.5101E+00_JPRB,3.9652E+00_JPRB,4.4790E+00_JPRB,5.0498E+00_JPRB,5.6789E+00_JPRB/) |
4193 |
|
|
KBO( :,34, 9) = (/& |
4194 |
✓✓ |
6 |
& 3.5050E+00_JPRB,3.9930E+00_JPRB,4.5402E+00_JPRB,5.1475E+00_JPRB,5.8191E+00_JPRB/) |
4195 |
|
|
KBO( :,35, 9) = (/& |
4196 |
✓✓ |
6 |
& 3.4979E+00_JPRB,4.0137E+00_JPRB,4.5890E+00_JPRB,5.2289E+00_JPRB,5.9375E+00_JPRB/) |
4197 |
|
|
KBO( :,36, 9) = (/& |
4198 |
✓✓ |
6 |
& 3.4706E+00_JPRB,4.0059E+00_JPRB,4.6026E+00_JPRB,5.2687E+00_JPRB,6.0062E+00_JPRB/) |
4199 |
|
|
KBO( :,37, 9) = (/& |
4200 |
✓✓ |
6 |
& 3.3275E+00_JPRB,3.8631E+00_JPRB,4.4602E+00_JPRB,5.1262E+00_JPRB,5.8660E+00_JPRB/) |
4201 |
|
|
KBO( :,38, 9) = (/& |
4202 |
✓✓ |
6 |
& 3.1941E+00_JPRB,3.7291E+00_JPRB,4.3242E+00_JPRB,4.9885E+00_JPRB,5.7266E+00_JPRB/) |
4203 |
|
|
KBO( :,39, 9) = (/& |
4204 |
✓✓ |
6 |
& 3.0740E+00_JPRB,3.6084E+00_JPRB,4.2006E+00_JPRB,4.8620E+00_JPRB,5.5962E+00_JPRB/) |
4205 |
|
|
KBO( :,40, 9) = (/& |
4206 |
✓✓ |
6 |
& 2.8552E+00_JPRB,3.3739E+00_JPRB,3.9447E+00_JPRB,4.5808E+00_JPRB,5.2902E+00_JPRB/) |
4207 |
|
|
KBO( :,41, 9) = (/& |
4208 |
✓✓ |
6 |
& 2.6380E+00_JPRB,3.1381E+00_JPRB,3.6872E+00_JPRB,4.2961E+00_JPRB,4.9750E+00_JPRB/) |
4209 |
|
|
KBO( :,42, 9) = (/& |
4210 |
✓✓ |
6 |
& 2.4342E+00_JPRB,2.9148E+00_JPRB,3.4437E+00_JPRB,4.0255E+00_JPRB,4.6737E+00_JPRB/) |
4211 |
|
|
KBO( :,43, 9) = (/& |
4212 |
✓✓ |
6 |
& 2.2073E+00_JPRB,2.6629E+00_JPRB,3.1662E+00_JPRB,3.7162E+00_JPRB,4.3269E+00_JPRB/) |
4213 |
|
|
KBO( :,44, 9) = (/& |
4214 |
✓✓ |
6 |
& 1.9815E+00_JPRB,2.4093E+00_JPRB,2.8849E+00_JPRB,3.4033E+00_JPRB,3.9755E+00_JPRB/) |
4215 |
|
|
KBO( :,45, 9) = (/& |
4216 |
✓✓ |
6 |
& 1.7719E+00_JPRB,2.1718E+00_JPRB,2.6189E+00_JPRB,3.1075E+00_JPRB,3.6437E+00_JPRB/) |
4217 |
|
|
KBO( :,46, 9) = (/& |
4218 |
✓✓ |
6 |
& 1.5723E+00_JPRB,1.9443E+00_JPRB,2.3619E+00_JPRB,2.8217E+00_JPRB,3.3236E+00_JPRB/) |
4219 |
|
|
KBO( :,47, 9) = (/& |
4220 |
✓✓ |
6 |
& 1.3802E+00_JPRB,1.7245E+00_JPRB,2.1129E+00_JPRB,2.5440E+00_JPRB,3.0139E+00_JPRB/) |
4221 |
|
|
KBO( :,48, 9) = (/& |
4222 |
✓✓ |
6 |
& 1.2042E+00_JPRB,1.5204E+00_JPRB,1.8800E+00_JPRB,2.2805E+00_JPRB,2.7207E+00_JPRB/) |
4223 |
|
|
KBO( :,49, 9) = (/& |
4224 |
✓✓ |
6 |
& 1.0431E+00_JPRB,1.3311E+00_JPRB,1.6618E+00_JPRB,2.0323E+00_JPRB,2.4425E+00_JPRB/) |
4225 |
|
|
KBO( :,50, 9) = (/& |
4226 |
✓✓ |
6 |
& 9.1020E-01_JPRB,1.1754E+00_JPRB,1.4811E+00_JPRB,1.8261E+00_JPRB,2.2093E+00_JPRB/) |
4227 |
|
|
KBO( :,51, 9) = (/& |
4228 |
✓✓ |
6 |
& 7.9478E-01_JPRB,1.0402E+00_JPRB,1.3230E+00_JPRB,1.6448E+00_JPRB,2.0037E+00_JPRB/) |
4229 |
|
|
KBO( :,52, 9) = (/& |
4230 |
✓✓ |
6 |
& 6.8856E-01_JPRB,9.1521E-01_JPRB,1.1763E+00_JPRB,1.4752E+00_JPRB,1.8102E+00_JPRB/) |
4231 |
|
|
KBO( :,53, 9) = (/& |
4232 |
✓✓ |
6 |
& 5.9135E-01_JPRB,7.9906E-01_JPRB,1.0400E+00_JPRB,1.3162E+00_JPRB,1.6282E+00_JPRB/) |
4233 |
|
|
KBO( :,54, 9) = (/& |
4234 |
✓✓ |
6 |
& 5.1488E-01_JPRB,7.0709E-01_JPRB,9.3257E-01_JPRB,1.1913E+00_JPRB,1.4845E+00_JPRB/) |
4235 |
|
|
KBO( :,55, 9) = (/& |
4236 |
✓✓ |
6 |
& 4.5023E-01_JPRB,6.2878E-01_JPRB,8.4073E-01_JPRB,1.0847E+00_JPRB,1.3619E+00_JPRB/) |
4237 |
|
|
KBO( :,56, 9) = (/& |
4238 |
✓✓ |
6 |
& 3.9100E-01_JPRB,5.5634E-01_JPRB,7.5480E-01_JPRB,9.8459E-01_JPRB,1.2461E+00_JPRB/) |
4239 |
|
|
KBO( :,57, 9) = (/& |
4240 |
✓✓ |
6 |
& 3.3683E-01_JPRB,4.8921E-01_JPRB,6.7380E-01_JPRB,8.9005E-01_JPRB,1.1368E+00_JPRB/) |
4241 |
|
|
KBO( :,58, 9) = (/& |
4242 |
✓✓ |
6 |
& 2.9052E-01_JPRB,4.3080E-01_JPRB,6.0283E-01_JPRB,8.0653E-01_JPRB,1.0401E+00_JPRB/) |
4243 |
|
|
KBO( :,59, 9) = (/& |
4244 |
✓✓ |
6 |
& 2.7497E-01_JPRB,4.1213E-01_JPRB,5.8166E-01_JPRB,7.8275E-01_JPRB,1.0139E+00_JPRB/) |
4245 |
|
|
KBO( :,13,10) = (/& |
4246 |
✓✓ |
6 |
& 6.2443E+01_JPRB,6.2764E+01_JPRB,6.3247E+01_JPRB,6.3715E+01_JPRB,6.4108E+01_JPRB/) |
4247 |
|
|
KBO( :,14,10) = (/& |
4248 |
✓✓ |
6 |
& 5.9985E+01_JPRB,6.0474E+01_JPRB,6.1209E+01_JPRB,6.1839E+01_JPRB,6.2132E+01_JPRB/) |
4249 |
|
|
KBO( :,15,10) = (/& |
4250 |
✓✓ |
6 |
& 5.6302E+01_JPRB,5.7213E+01_JPRB,5.7905E+01_JPRB,5.8328E+01_JPRB,5.8930E+01_JPRB/) |
4251 |
|
|
KBO( :,16,10) = (/& |
4252 |
✓✓ |
6 |
& 5.2360E+01_JPRB,5.3074E+01_JPRB,5.3755E+01_JPRB,5.4642E+01_JPRB,5.5349E+01_JPRB/) |
4253 |
|
|
KBO( :,17,10) = (/& |
4254 |
✓✓ |
6 |
& 4.8557E+01_JPRB,4.9472E+01_JPRB,5.0546E+01_JPRB,5.1358E+01_JPRB,5.2195E+01_JPRB/) |
4255 |
|
|
KBO( :,18,10) = (/& |
4256 |
✓✓ |
6 |
& 4.5817E+01_JPRB,4.7034E+01_JPRB,4.8009E+01_JPRB,4.9111E+01_JPRB,5.0457E+01_JPRB/) |
4257 |
|
|
KBO( :,19,10) = (/& |
4258 |
✓✓ |
6 |
& 4.3325E+01_JPRB,4.4456E+01_JPRB,4.5754E+01_JPRB,4.7330E+01_JPRB,4.8976E+01_JPRB/) |
4259 |
|
|
KBO( :,20,10) = (/& |
4260 |
✓✓ |
6 |
& 3.9745E+01_JPRB,4.1127E+01_JPRB,4.2837E+01_JPRB,4.4567E+01_JPRB,4.6284E+01_JPRB/) |
4261 |
|
|
|
4262 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART14',1,ZHOOK_HANDLE) |
4263 |
|
1 |
END SUBROUTINE PART14 |
4264 |
|
|
|
4265 |
|
|
|
4266 |
|
1 |
SUBROUTINE PART15 |
4267 |
|
|
|
4268 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
4269 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART15',0,ZHOOK_HANDLE) |
4270 |
|
|
|
4271 |
|
|
|
4272 |
|
|
KBO( :,21,10) = (/& |
4273 |
✓✓ |
6 |
& 3.6127E+01_JPRB,3.7823E+01_JPRB,3.9580E+01_JPRB,4.1335E+01_JPRB,4.3236E+01_JPRB/) |
4274 |
|
|
KBO( :,22,10) = (/& |
4275 |
✓✓ |
6 |
& 3.2661E+01_JPRB,3.4362E+01_JPRB,3.6109E+01_JPRB,3.8022E+01_JPRB,4.0162E+01_JPRB/) |
4276 |
|
|
KBO( :,23,10) = (/& |
4277 |
✓✓ |
6 |
& 2.9316E+01_JPRB,3.1011E+01_JPRB,3.2886E+01_JPRB,3.5036E+01_JPRB,3.7336E+01_JPRB/) |
4278 |
|
|
KBO( :,24,10) = (/& |
4279 |
✓✓ |
6 |
& 2.6133E+01_JPRB,2.7977E+01_JPRB,3.0126E+01_JPRB,3.2424E+01_JPRB,3.4907E+01_JPRB/) |
4280 |
|
|
KBO( :,25,10) = (/& |
4281 |
✓✓ |
6 |
& 2.3786E+01_JPRB,2.5903E+01_JPRB,2.8212E+01_JPRB,3.0718E+01_JPRB,3.3428E+01_JPRB/) |
4282 |
|
|
KBO( :,26,10) = (/& |
4283 |
✓✓ |
6 |
& 2.2187E+01_JPRB,2.4436E+01_JPRB,2.6979E+01_JPRB,2.9726E+01_JPRB,3.2775E+01_JPRB/) |
4284 |
|
|
KBO( :,27,10) = (/& |
4285 |
✓✓ |
6 |
& 2.0867E+01_JPRB,2.3290E+01_JPRB,2.6025E+01_JPRB,2.9060E+01_JPRB,3.2420E+01_JPRB/) |
4286 |
|
|
KBO( :,28,10) = (/& |
4287 |
✓✓ |
6 |
& 1.9963E+01_JPRB,2.2440E+01_JPRB,2.5348E+01_JPRB,2.8653E+01_JPRB,3.2222E+01_JPRB/) |
4288 |
|
|
KBO( :,29,10) = (/& |
4289 |
✓✓ |
6 |
& 1.9439E+01_JPRB,2.1951E+01_JPRB,2.4945E+01_JPRB,2.8411E+01_JPRB,3.2065E+01_JPRB/) |
4290 |
|
|
KBO( :,30,10) = (/& |
4291 |
✓✓ |
6 |
& 1.9217E+01_JPRB,2.1773E+01_JPRB,2.4822E+01_JPRB,2.8258E+01_JPRB,3.1954E+01_JPRB/) |
4292 |
|
|
KBO( :,31,10) = (/& |
4293 |
✓✓ |
6 |
& 1.9236E+01_JPRB,2.1821E+01_JPRB,2.4835E+01_JPRB,2.8172E+01_JPRB,3.1859E+01_JPRB/) |
4294 |
|
|
KBO( :,32,10) = (/& |
4295 |
✓✓ |
6 |
& 1.9497E+01_JPRB,2.2156E+01_JPRB,2.5072E+01_JPRB,2.8334E+01_JPRB,3.2036E+01_JPRB/) |
4296 |
|
|
KBO( :,33,10) = (/& |
4297 |
✓✓ |
6 |
& 1.9927E+01_JPRB,2.2649E+01_JPRB,2.5483E+01_JPRB,2.8731E+01_JPRB,3.2414E+01_JPRB/) |
4298 |
|
|
KBO( :,34,10) = (/& |
4299 |
✓✓ |
6 |
& 2.0616E+01_JPRB,2.3435E+01_JPRB,2.6339E+01_JPRB,2.9629E+01_JPRB,3.3264E+01_JPRB/) |
4300 |
|
|
KBO( :,35,10) = (/& |
4301 |
✓✓ |
6 |
& 2.1144E+01_JPRB,2.4078E+01_JPRB,2.7155E+01_JPRB,3.0411E+01_JPRB,3.3926E+01_JPRB/) |
4302 |
|
|
KBO( :,36,10) = (/& |
4303 |
✓✓ |
6 |
& 2.1438E+01_JPRB,2.4511E+01_JPRB,2.7776E+01_JPRB,3.1069E+01_JPRB,3.4391E+01_JPRB/) |
4304 |
|
|
KBO( :,37,10) = (/& |
4305 |
✓✓ |
6 |
& 2.0912E+01_JPRB,2.3999E+01_JPRB,2.7304E+01_JPRB,3.0662E+01_JPRB,3.3903E+01_JPRB/) |
4306 |
|
|
KBO( :,38,10) = (/& |
4307 |
✓✓ |
6 |
& 2.0345E+01_JPRB,2.3428E+01_JPRB,2.6766E+01_JPRB,3.0163E+01_JPRB,3.3445E+01_JPRB/) |
4308 |
|
|
KBO( :,39,10) = (/& |
4309 |
✓✓ |
6 |
& 1.9778E+01_JPRB,2.2831E+01_JPRB,2.6185E+01_JPRB,2.9606E+01_JPRB,3.2946E+01_JPRB/) |
4310 |
|
|
KBO( :,40,10) = (/& |
4311 |
✓✓ |
6 |
& 1.8680E+01_JPRB,2.1589E+01_JPRB,2.4845E+01_JPRB,2.8243E+01_JPRB,3.1561E+01_JPRB/) |
4312 |
|
|
KBO( :,41,10) = (/& |
4313 |
✓✓ |
6 |
& 1.7550E+01_JPRB,2.0318E+01_JPRB,2.3431E+01_JPRB,2.6770E+01_JPRB,3.0077E+01_JPRB/) |
4314 |
|
|
KBO( :,42,10) = (/& |
4315 |
✓✓ |
6 |
& 1.6473E+01_JPRB,1.9098E+01_JPRB,2.2042E+01_JPRB,2.5289E+01_JPRB,2.8560E+01_JPRB/) |
4316 |
|
|
KBO( :,43,10) = (/& |
4317 |
✓✓ |
6 |
& 1.5257E+01_JPRB,1.7707E+01_JPRB,2.0444E+01_JPRB,2.3540E+01_JPRB,2.6749E+01_JPRB/) |
4318 |
|
|
KBO( :,44,10) = (/& |
4319 |
✓✓ |
6 |
& 1.4023E+01_JPRB,1.6313E+01_JPRB,1.8839E+01_JPRB,2.1729E+01_JPRB,2.4856E+01_JPRB/) |
4320 |
|
|
KBO( :,45,10) = (/& |
4321 |
✓✓ |
6 |
& 1.2858E+01_JPRB,1.5005E+01_JPRB,1.7331E+01_JPRB,2.0013E+01_JPRB,2.3009E+01_JPRB/) |
4322 |
|
|
KBO( :,46,10) = (/& |
4323 |
✓✓ |
6 |
& 1.1732E+01_JPRB,1.3762E+01_JPRB,1.5932E+01_JPRB,1.8398E+01_JPRB,2.1229E+01_JPRB/) |
4324 |
|
|
KBO( :,47,10) = (/& |
4325 |
✓✓ |
6 |
& 1.0637E+01_JPRB,1.2563E+01_JPRB,1.4611E+01_JPRB,1.6882E+01_JPRB,1.9522E+01_JPRB/) |
4326 |
|
|
KBO( :,48,10) = (/& |
4327 |
✓✓ |
6 |
& 9.5989E+00_JPRB,1.1430E+01_JPRB,1.3382E+01_JPRB,1.5508E+01_JPRB,1.7946E+01_JPRB/) |
4328 |
|
|
KBO( :,49,10) = (/& |
4329 |
✓✓ |
6 |
& 8.6105E+00_JPRB,1.0367E+01_JPRB,1.2235E+01_JPRB,1.4247E+01_JPRB,1.6502E+01_JPRB/) |
4330 |
|
|
KBO( :,50,10) = (/& |
4331 |
✓✓ |
6 |
& 7.7795E+00_JPRB,9.4717E+00_JPRB,1.1267E+01_JPRB,1.3203E+01_JPRB,1.5335E+01_JPRB/) |
4332 |
|
|
KBO( :,51,10) = (/& |
4333 |
✓✓ |
6 |
& 7.0327E+00_JPRB,8.6531E+00_JPRB,1.0392E+01_JPRB,1.2262E+01_JPRB,1.4298E+01_JPRB/) |
4334 |
|
|
KBO( :,52,10) = (/& |
4335 |
✓✓ |
6 |
& 6.3294E+00_JPRB,7.8785E+00_JPRB,9.5601E+00_JPRB,1.1364E+01_JPRB,1.3321E+01_JPRB/) |
4336 |
|
|
KBO( :,53,10) = (/& |
4337 |
✓✓ |
6 |
& 5.6735E+00_JPRB,7.1473E+00_JPRB,8.7577E+00_JPRB,1.0501E+01_JPRB,1.2384E+01_JPRB/) |
4338 |
|
|
KBO( :,54,10) = (/& |
4339 |
✓✓ |
6 |
& 5.1171E+00_JPRB,6.5109E+00_JPRB,8.0578E+00_JPRB,9.7452E+00_JPRB,1.1565E+01_JPRB/) |
4340 |
|
|
KBO( :,55,10) = (/& |
4341 |
✓✓ |
6 |
& 4.6203E+00_JPRB,5.9356E+00_JPRB,7.4153E+00_JPRB,9.0377E+00_JPRB,1.0796E+01_JPRB/) |
4342 |
|
|
KBO( :,56,10) = (/& |
4343 |
✓✓ |
6 |
& 4.1502E+00_JPRB,5.3934E+00_JPRB,6.7922E+00_JPRB,8.3512E+00_JPRB,1.0055E+01_JPRB/) |
4344 |
|
|
KBO( :,57,10) = (/& |
4345 |
✓✓ |
6 |
& 3.7055E+00_JPRB,4.8827E+00_JPRB,6.2007E+00_JPRB,7.6928E+00_JPRB,9.3383E+00_JPRB/) |
4346 |
|
|
KBO( :,58,10) = (/& |
4347 |
✓✓ |
6 |
& 3.3017E+00_JPRB,4.4251E+00_JPRB,5.6661E+00_JPRB,7.0836E+00_JPRB,8.6693E+00_JPRB/) |
4348 |
|
|
KBO( :,59,10) = (/& |
4349 |
✓✓ |
6 |
& 3.1387E+00_JPRB,4.2362E+00_JPRB,5.4398E+00_JPRB,6.8151E+00_JPRB,8.3756E+00_JPRB/) |
4350 |
|
|
KBO( :,13,11) = (/& |
4351 |
✓✓ |
6 |
& 8.6501E+01_JPRB,8.6756E+01_JPRB,8.7009E+01_JPRB,8.7807E+01_JPRB,8.8321E+01_JPRB/) |
4352 |
|
|
KBO( :,14,11) = (/& |
4353 |
✓✓ |
6 |
& 8.6001E+01_JPRB,8.6390E+01_JPRB,8.7153E+01_JPRB,8.7884E+01_JPRB,8.8485E+01_JPRB/) |
4354 |
|
|
KBO( :,15,11) = (/& |
4355 |
✓✓ |
6 |
& 8.3396E+01_JPRB,8.4271E+01_JPRB,8.5263E+01_JPRB,8.6231E+01_JPRB,8.7169E+01_JPRB/) |
4356 |
|
|
KBO( :,16,11) = (/& |
4357 |
✓✓ |
6 |
& 8.0216E+01_JPRB,8.1367E+01_JPRB,8.2641E+01_JPRB,8.3850E+01_JPRB,8.5113E+01_JPRB/) |
4358 |
|
|
KBO( :,17,11) = (/& |
4359 |
✓✓ |
6 |
& 7.7559E+01_JPRB,7.9123E+01_JPRB,8.0637E+01_JPRB,8.2229E+01_JPRB,8.3780E+01_JPRB/) |
4360 |
|
|
KBO( :,18,11) = (/& |
4361 |
✓✓ |
6 |
& 7.6113E+01_JPRB,7.8038E+01_JPRB,8.0039E+01_JPRB,8.1955E+01_JPRB,8.3906E+01_JPRB/) |
4362 |
|
|
KBO( :,19,11) = (/& |
4363 |
✓✓ |
6 |
& 7.4701E+01_JPRB,7.7061E+01_JPRB,7.9341E+01_JPRB,8.1777E+01_JPRB,8.4316E+01_JPRB/) |
4364 |
|
|
KBO( :,20,11) = (/& |
4365 |
✓✓ |
6 |
& 7.1644E+01_JPRB,7.4182E+01_JPRB,7.6892E+01_JPRB,7.9840E+01_JPRB,8.2902E+01_JPRB/) |
4366 |
|
|
KBO( :,21,11) = (/& |
4367 |
✓✓ |
6 |
& 6.7620E+01_JPRB,7.0516E+01_JPRB,7.3720E+01_JPRB,7.7152E+01_JPRB,8.0637E+01_JPRB/) |
4368 |
|
|
KBO( :,22,11) = (/& |
4369 |
✓✓ |
6 |
& 6.3004E+01_JPRB,6.6364E+01_JPRB,7.0039E+01_JPRB,7.3871E+01_JPRB,7.7820E+01_JPRB/) |
4370 |
|
|
KBO( :,23,11) = (/& |
4371 |
✓✓ |
6 |
& 5.8500E+01_JPRB,6.2279E+01_JPRB,6.6312E+01_JPRB,7.0504E+01_JPRB,7.4998E+01_JPRB/) |
4372 |
|
|
KBO( :,24,11) = (/& |
4373 |
✓✓ |
6 |
& 5.3727E+01_JPRB,5.7825E+01_JPRB,6.2144E+01_JPRB,6.6890E+01_JPRB,7.2071E+01_JPRB/) |
4374 |
|
|
KBO( :,25,11) = (/& |
4375 |
✓✓ |
6 |
& 4.9481E+01_JPRB,5.3871E+01_JPRB,5.8717E+01_JPRB,6.4044E+01_JPRB,6.9704E+01_JPRB/) |
4376 |
|
|
KBO( :,26,11) = (/& |
4377 |
✓✓ |
6 |
& 4.6254E+01_JPRB,5.1111E+01_JPRB,5.6460E+01_JPRB,6.2228E+01_JPRB,6.8093E+01_JPRB/) |
4378 |
|
|
KBO( :,27,11) = (/& |
4379 |
✓✓ |
6 |
& 4.3953E+01_JPRB,4.9258E+01_JPRB,5.5047E+01_JPRB,6.1083E+01_JPRB,6.7149E+01_JPRB/) |
4380 |
|
|
KBO( :,28,11) = (/& |
4381 |
✓✓ |
6 |
& 4.2333E+01_JPRB,4.8051E+01_JPRB,5.4161E+01_JPRB,6.0348E+01_JPRB,6.6482E+01_JPRB/) |
4382 |
|
|
KBO( :,29,11) = (/& |
4383 |
✓✓ |
6 |
& 4.1519E+01_JPRB,4.7571E+01_JPRB,5.3856E+01_JPRB,6.0162E+01_JPRB,6.6490E+01_JPRB/) |
4384 |
|
|
KBO( :,30,11) = (/& |
4385 |
✓✓ |
6 |
& 4.1079E+01_JPRB,4.7326E+01_JPRB,5.3742E+01_JPRB,6.0205E+01_JPRB,6.6744E+01_JPRB/) |
4386 |
|
|
KBO( :,31,11) = (/& |
4387 |
✓✓ |
6 |
& 4.0957E+01_JPRB,4.7315E+01_JPRB,5.3845E+01_JPRB,6.0494E+01_JPRB,6.7153E+01_JPRB/) |
4388 |
|
|
KBO( :,32,11) = (/& |
4389 |
✓✓ |
6 |
& 4.1227E+01_JPRB,4.7602E+01_JPRB,5.4282E+01_JPRB,6.1081E+01_JPRB,6.7763E+01_JPRB/) |
4390 |
|
|
KBO( :,33,11) = (/& |
4391 |
✓✓ |
6 |
& 4.1826E+01_JPRB,4.8137E+01_JPRB,5.4944E+01_JPRB,6.1784E+01_JPRB,6.8374E+01_JPRB/) |
4392 |
|
|
KBO( :,34,11) = (/& |
4393 |
✓✓ |
6 |
& 4.3072E+01_JPRB,4.9391E+01_JPRB,5.6254E+01_JPRB,6.3099E+01_JPRB,6.9725E+01_JPRB/) |
4394 |
|
|
KBO( :,35,11) = (/& |
4395 |
✓✓ |
6 |
& 4.3986E+01_JPRB,5.0200E+01_JPRB,5.6858E+01_JPRB,6.3640E+01_JPRB,7.0415E+01_JPRB/) |
4396 |
|
|
KBO( :,36,11) = (/& |
4397 |
✓✓ |
6 |
& 4.4502E+01_JPRB,5.0408E+01_JPRB,5.6628E+01_JPRB,6.3171E+01_JPRB,7.0200E+01_JPRB/) |
4398 |
|
|
KBO( :,37,11) = (/& |
4399 |
✓✓ |
6 |
& 4.3850E+01_JPRB,4.9526E+01_JPRB,5.5508E+01_JPRB,6.1846E+01_JPRB,6.8955E+01_JPRB/) |
4400 |
|
|
KBO( :,38,11) = (/& |
4401 |
✓✓ |
6 |
& 4.3288E+01_JPRB,4.8717E+01_JPRB,5.4460E+01_JPRB,6.0601E+01_JPRB,6.7672E+01_JPRB/) |
4402 |
|
|
KBO( :,39,11) = (/& |
4403 |
✓✓ |
6 |
& 4.2793E+01_JPRB,4.8055E+01_JPRB,5.3543E+01_JPRB,5.9508E+01_JPRB,6.6570E+01_JPRB/) |
4404 |
|
|
KBO( :,40,11) = (/& |
4405 |
✓✓ |
6 |
& 4.0982E+01_JPRB,4.6218E+01_JPRB,5.1475E+01_JPRB,5.7189E+01_JPRB,6.4026E+01_JPRB/) |
4406 |
|
|
KBO( :,41,11) = (/& |
4407 |
✓✓ |
6 |
& 3.9015E+01_JPRB,4.4241E+01_JPRB,4.9337E+01_JPRB,5.4818E+01_JPRB,6.1396E+01_JPRB/) |
4408 |
|
|
KBO( :,42,11) = (/& |
4409 |
✓✓ |
6 |
& 3.7029E+01_JPRB,4.2233E+01_JPRB,4.7279E+01_JPRB,5.2574E+01_JPRB,5.8917E+01_JPRB/) |
4410 |
|
|
KBO( :,43,11) = (/& |
4411 |
✓✓ |
6 |
& 3.4672E+01_JPRB,3.9813E+01_JPRB,4.4910E+01_JPRB,5.0015E+01_JPRB,5.6019E+01_JPRB/) |
4412 |
|
|
KBO( :,44,11) = (/& |
4413 |
✓✓ |
6 |
& 3.2216E+01_JPRB,3.7254E+01_JPRB,4.2367E+01_JPRB,4.7396E+01_JPRB,5.3071E+01_JPRB/) |
4414 |
|
|
KBO( :,45,11) = (/& |
4415 |
✓✓ |
6 |
& 2.9847E+01_JPRB,3.4776E+01_JPRB,3.9855E+01_JPRB,4.4920E+01_JPRB,5.0317E+01_JPRB/) |
4416 |
|
|
KBO( :,46,11) = (/& |
4417 |
✓✓ |
6 |
& 2.7555E+01_JPRB,3.2329E+01_JPRB,3.7304E+01_JPRB,4.2424E+01_JPRB,4.7633E+01_JPRB/) |
4418 |
|
|
KBO( :,47,11) = (/& |
4419 |
✓✓ |
6 |
& 2.5262E+01_JPRB,2.9854E+01_JPRB,3.4721E+01_JPRB,3.9795E+01_JPRB,4.4945E+01_JPRB/) |
4420 |
|
|
KBO( :,48,11) = (/& |
4421 |
✓✓ |
6 |
& 2.3081E+01_JPRB,2.7503E+01_JPRB,3.2213E+01_JPRB,3.7177E+01_JPRB,4.2342E+01_JPRB/) |
4422 |
|
|
KBO( :,49,11) = (/& |
4423 |
✓✓ |
6 |
& 2.1057E+01_JPRB,2.5246E+01_JPRB,2.9758E+01_JPRB,3.4602E+01_JPRB,3.9727E+01_JPRB/) |
4424 |
|
|
KBO( :,50,11) = (/& |
4425 |
✓✓ |
6 |
& 1.9318E+01_JPRB,2.3248E+01_JPRB,2.7618E+01_JPRB,3.2289E+01_JPRB,3.7300E+01_JPRB/) |
4426 |
|
|
KBO( :,51,11) = (/& |
4427 |
✓✓ |
6 |
& 1.7764E+01_JPRB,2.1445E+01_JPRB,2.5630E+01_JPRB,3.0117E+01_JPRB,3.5003E+01_JPRB/) |
4428 |
|
|
KBO( :,52,11) = (/& |
4429 |
✓✓ |
6 |
& 1.6284E+01_JPRB,1.9745E+01_JPRB,2.3706E+01_JPRB,2.8037E+01_JPRB,3.2754E+01_JPRB/) |
4430 |
|
|
KBO( :,53,11) = (/& |
4431 |
✓✓ |
6 |
& 1.4870E+01_JPRB,1.8170E+01_JPRB,2.1878E+01_JPRB,2.6032E+01_JPRB,3.0559E+01_JPRB/) |
4432 |
|
|
KBO( :,54,11) = (/& |
4433 |
✓✓ |
6 |
& 1.3618E+01_JPRB,1.6796E+01_JPRB,2.0287E+01_JPRB,2.4249E+01_JPRB,2.8597E+01_JPRB/) |
4434 |
|
|
KBO( :,55,11) = (/& |
4435 |
✓✓ |
6 |
& 1.2457E+01_JPRB,1.5534E+01_JPRB,1.8860E+01_JPRB,2.2616E+01_JPRB,2.6796E+01_JPRB/) |
4436 |
|
|
KBO( :,56,11) = (/& |
4437 |
✓✓ |
6 |
& 1.1356E+01_JPRB,1.4314E+01_JPRB,1.7512E+01_JPRB,2.1058E+01_JPRB,2.5045E+01_JPRB/) |
4438 |
|
|
KBO( :,57,11) = (/& |
4439 |
✓✓ |
6 |
& 1.0320E+01_JPRB,1.3127E+01_JPRB,1.6224E+01_JPRB,1.9585E+01_JPRB,2.3359E+01_JPRB/) |
4440 |
|
|
KBO( :,58,11) = (/& |
4441 |
✓✓ |
6 |
& 9.3830E+00_JPRB,1.2046E+01_JPRB,1.5046E+01_JPRB,1.8261E+01_JPRB,2.1817E+01_JPRB/) |
4442 |
|
|
KBO( :,59,11) = (/& |
4443 |
✓✓ |
6 |
& 8.9391E+00_JPRB,1.1539E+01_JPRB,1.4477E+01_JPRB,1.7622E+01_JPRB,2.1055E+01_JPRB/) |
4444 |
|
|
KBO( :,13,12) = (/& |
4445 |
✓✓ |
6 |
& 1.1536E+02_JPRB,1.1632E+02_JPRB,1.1676E+02_JPRB,1.1687E+02_JPRB,1.1771E+02_JPRB/) |
4446 |
|
|
KBO( :,14,12) = (/& |
4447 |
✓✓ |
6 |
& 1.1996E+02_JPRB,1.2089E+02_JPRB,1.2132E+02_JPRB,1.2216E+02_JPRB,1.2355E+02_JPRB/) |
4448 |
|
|
KBO( :,15,12) = (/& |
4449 |
✓✓ |
6 |
& 1.2190E+02_JPRB,1.2270E+02_JPRB,1.2390E+02_JPRB,1.2571E+02_JPRB,1.2681E+02_JPRB/) |
4450 |
|
|
KBO( :,16,12) = (/& |
4451 |
✓✓ |
6 |
& 1.2181E+02_JPRB,1.2365E+02_JPRB,1.2585E+02_JPRB,1.2744E+02_JPRB,1.2865E+02_JPRB/) |
4452 |
|
|
KBO( :,17,12) = (/& |
4453 |
✓✓ |
6 |
& 1.2361E+02_JPRB,1.2611E+02_JPRB,1.2809E+02_JPRB,1.2991E+02_JPRB,1.3207E+02_JPRB/) |
4454 |
|
|
KBO( :,18,12) = (/& |
4455 |
✓✓ |
6 |
& 1.2791E+02_JPRB,1.3042E+02_JPRB,1.3285E+02_JPRB,1.3575E+02_JPRB,1.3866E+02_JPRB/) |
4456 |
|
|
KBO( :,19,12) = (/& |
4457 |
✓✓ |
6 |
& 1.3167E+02_JPRB,1.3492E+02_JPRB,1.3862E+02_JPRB,1.4230E+02_JPRB,1.4589E+02_JPRB/) |
4458 |
|
|
KBO( :,20,12) = (/& |
4459 |
✓✓ |
6 |
& 1.3240E+02_JPRB,1.3677E+02_JPRB,1.4130E+02_JPRB,1.4568E+02_JPRB,1.5011E+02_JPRB/) |
4460 |
|
|
KBO( :,21,12) = (/& |
4461 |
✓✓ |
6 |
& 1.3167E+02_JPRB,1.3705E+02_JPRB,1.4232E+02_JPRB,1.4765E+02_JPRB,1.5295E+02_JPRB/) |
4462 |
|
|
KBO( :,22,12) = (/& |
4463 |
✓✓ |
6 |
& 1.2941E+02_JPRB,1.3568E+02_JPRB,1.4188E+02_JPRB,1.4812E+02_JPRB,1.5420E+02_JPRB/) |
4464 |
|
|
KBO( :,23,12) = (/& |
4465 |
✓✓ |
6 |
& 1.2650E+02_JPRB,1.3362E+02_JPRB,1.4090E+02_JPRB,1.4804E+02_JPRB,1.5493E+02_JPRB/) |
4466 |
|
|
KBO( :,24,12) = (/& |
4467 |
✓✓ |
6 |
& 1.2203E+02_JPRB,1.3010E+02_JPRB,1.3824E+02_JPRB,1.4621E+02_JPRB,1.5349E+02_JPRB/) |
4468 |
|
|
KBO( :,25,12) = (/& |
4469 |
✓✓ |
6 |
& 1.1780E+02_JPRB,1.2675E+02_JPRB,1.3578E+02_JPRB,1.4425E+02_JPRB,1.5220E+02_JPRB/) |
4470 |
|
|
KBO( :,26,12) = (/& |
4471 |
✓✓ |
6 |
& 1.1452E+02_JPRB,1.2433E+02_JPRB,1.3394E+02_JPRB,1.4292E+02_JPRB,1.5154E+02_JPRB/) |
4472 |
|
|
KBO( :,27,12) = (/& |
4473 |
✓✓ |
6 |
& 1.1158E+02_JPRB,1.2202E+02_JPRB,1.3200E+02_JPRB,1.4156E+02_JPRB,1.5071E+02_JPRB/) |
4474 |
|
|
KBO( :,28,12) = (/& |
4475 |
✓✓ |
6 |
& 1.0877E+02_JPRB,1.1953E+02_JPRB,1.2986E+02_JPRB,1.3983E+02_JPRB,1.4949E+02_JPRB/) |
4476 |
|
|
KBO( :,29,12) = (/& |
4477 |
✓✓ |
6 |
& 1.0758E+02_JPRB,1.1863E+02_JPRB,1.2937E+02_JPRB,1.3977E+02_JPRB,1.4973E+02_JPRB/) |
4478 |
|
|
KBO( :,30,12) = (/& |
4479 |
✓✓ |
6 |
& 1.0679E+02_JPRB,1.1811E+02_JPRB,1.2916E+02_JPRB,1.3989E+02_JPRB,1.4980E+02_JPRB/) |
4480 |
|
|
KBO( :,31,12) = (/& |
4481 |
✓✓ |
6 |
& 1.0688E+02_JPRB,1.1849E+02_JPRB,1.2989E+02_JPRB,1.4068E+02_JPRB,1.5077E+02_JPRB/) |
4482 |
|
|
KBO( :,32,12) = (/& |
4483 |
✓✓ |
6 |
& 1.0761E+02_JPRB,1.1953E+02_JPRB,1.3110E+02_JPRB,1.4225E+02_JPRB,1.5305E+02_JPRB/) |
4484 |
|
|
KBO( :,33,12) = (/& |
4485 |
✓✓ |
6 |
& 1.0869E+02_JPRB,1.2092E+02_JPRB,1.3311E+02_JPRB,1.4513E+02_JPRB,1.5706E+02_JPRB/) |
4486 |
|
|
KBO( :,34,12) = (/& |
4487 |
✓✓ |
6 |
& 1.1112E+02_JPRB,1.2403E+02_JPRB,1.3695E+02_JPRB,1.4972E+02_JPRB,1.6276E+02_JPRB/) |
4488 |
|
|
KBO( :,35,12) = (/& |
4489 |
✓✓ |
6 |
& 1.1246E+02_JPRB,1.2623E+02_JPRB,1.4002E+02_JPRB,1.5398E+02_JPRB,1.6809E+02_JPRB/) |
4490 |
|
|
KBO( :,36,12) = (/& |
4491 |
✓✓ |
6 |
& 1.1250E+02_JPRB,1.2737E+02_JPRB,1.4246E+02_JPRB,1.5783E+02_JPRB,1.7316E+02_JPRB/) |
4492 |
|
|
KBO( :,37,12) = (/& |
4493 |
✓✓ |
6 |
& 1.1061E+02_JPRB,1.2593E+02_JPRB,1.4155E+02_JPRB,1.5744E+02_JPRB,1.7321E+02_JPRB/) |
4494 |
|
|
KBO( :,38,12) = (/& |
4495 |
✓✓ |
6 |
& 1.0863E+02_JPRB,1.2441E+02_JPRB,1.4054E+02_JPRB,1.5693E+02_JPRB,1.7309E+02_JPRB/) |
4496 |
|
|
KBO( :,39,12) = (/& |
4497 |
✓✓ |
6 |
& 1.0682E+02_JPRB,1.2301E+02_JPRB,1.3972E+02_JPRB,1.5664E+02_JPRB,1.7318E+02_JPRB/) |
4498 |
|
|
KBO( :,40,12) = (/& |
4499 |
✓✓ |
6 |
& 1.0231E+02_JPRB,1.1830E+02_JPRB,1.3525E+02_JPRB,1.5235E+02_JPRB,1.6904E+02_JPRB/) |
4500 |
|
|
KBO( :,41,12) = (/& |
4501 |
✓✓ |
6 |
& 9.7591E+01_JPRB,1.1325E+02_JPRB,1.3028E+02_JPRB,1.4750E+02_JPRB,1.6434E+02_JPRB/) |
4502 |
|
|
KBO( :,42,12) = (/& |
4503 |
✓✓ |
6 |
& 9.3027E+01_JPRB,1.0842E+02_JPRB,1.2533E+02_JPRB,1.4267E+02_JPRB,1.5965E+02_JPRB/) |
4504 |
|
|
KBO( :,43,12) = (/& |
4505 |
✓✓ |
6 |
& 8.7538E+01_JPRB,1.0245E+02_JPRB,1.1885E+02_JPRB,1.3623E+02_JPRB,1.5326E+02_JPRB/) |
4506 |
|
|
KBO( :,44,12) = (/& |
4507 |
✓✓ |
6 |
& 8.1886E+01_JPRB,9.6138E+01_JPRB,1.1198E+02_JPRB,1.2909E+02_JPRB,1.4608E+02_JPRB/) |
4508 |
|
|
KBO( :,45,12) = (/& |
4509 |
✓✓ |
6 |
& 7.6645E+01_JPRB,9.0087E+01_JPRB,1.0542E+02_JPRB,1.2199E+02_JPRB,1.3900E+02_JPRB/) |
4510 |
|
|
KBO( :,46,12) = (/& |
4511 |
✓✓ |
6 |
& 7.1474E+01_JPRB,8.4055E+01_JPRB,9.8742E+01_JPRB,1.1474E+02_JPRB,1.3156E+02_JPRB/) |
4512 |
|
|
KBO( :,47,12) = (/& |
4513 |
✓✓ |
6 |
& 6.6310E+01_JPRB,7.7963E+01_JPRB,9.1690E+01_JPRB,1.0705E+02_JPRB,1.2340E+02_JPRB/) |
4514 |
|
|
KBO( :,48,12) = (/& |
4515 |
✓✓ |
6 |
& 6.1600E+01_JPRB,7.2276E+01_JPRB,8.5037E+01_JPRB,9.9673E+01_JPRB,1.1542E+02_JPRB/) |
4516 |
|
|
KBO( :,49,12) = (/& |
4517 |
✓✓ |
6 |
& 5.7283E+01_JPRB,6.7050E+01_JPRB,7.8923E+01_JPRB,9.2652E+01_JPRB,1.0778E+02_JPRB/) |
4518 |
|
|
KBO( :,50,12) = (/& |
4519 |
✓✓ |
6 |
& 5.3478E+01_JPRB,6.2571E+01_JPRB,7.3516E+01_JPRB,8.6380E+01_JPRB,1.0082E+02_JPRB/) |
4520 |
|
|
KBO( :,51,12) = (/& |
4521 |
✓✓ |
6 |
& 4.9875E+01_JPRB,5.8576E+01_JPRB,6.8672E+01_JPRB,8.0731E+01_JPRB,9.4376E+01_JPRB/) |
4522 |
|
|
KBO( :,52,12) = (/& |
4523 |
✓✓ |
6 |
& 4.6408E+01_JPRB,5.4871E+01_JPRB,6.4185E+01_JPRB,7.5407E+01_JPRB,8.8241E+01_JPRB/) |
4524 |
|
|
KBO( :,53,12) = (/& |
4525 |
✓✓ |
6 |
& 4.3049E+01_JPRB,5.1245E+01_JPRB,6.0053E+01_JPRB,7.0436E+01_JPRB,8.2512E+01_JPRB/) |
4526 |
|
|
KBO( :,54,12) = (/& |
4527 |
✓✓ |
6 |
& 4.0074E+01_JPRB,4.8005E+01_JPRB,5.6523E+01_JPRB,6.6130E+01_JPRB,7.7483E+01_JPRB/) |
4528 |
|
|
KBO( :,55,12) = (/& |
4529 |
✓✓ |
6 |
& 3.7334E+01_JPRB,4.4988E+01_JPRB,5.3284E+01_JPRB,6.2287E+01_JPRB,7.2912E+01_JPRB/) |
4530 |
|
|
KBO( :,56,12) = (/& |
4531 |
✓✓ |
6 |
& 3.4721E+01_JPRB,4.2060E+01_JPRB,5.0133E+01_JPRB,5.8707E+01_JPRB,6.8606E+01_JPRB/) |
4532 |
|
|
KBO( :,57,12) = (/& |
4533 |
✓✓ |
6 |
& 3.2171E+01_JPRB,3.9229E+01_JPRB,4.7079E+01_JPRB,5.5373E+01_JPRB,6.4605E+01_JPRB/) |
4534 |
|
|
KBO( :,58,12) = (/& |
4535 |
✓✓ |
6 |
& 2.9794E+01_JPRB,3.6617E+01_JPRB,4.4198E+01_JPRB,5.2314E+01_JPRB,6.1016E+01_JPRB/) |
4536 |
|
|
KBO( :,59,12) = (/& |
4537 |
✓✓ |
6 |
& 2.8699E+01_JPRB,3.5397E+01_JPRB,4.2806E+01_JPRB,5.0814E+01_JPRB,5.9273E+01_JPRB/) |
4538 |
|
|
KBO( :,13,13) = (/& |
4539 |
✓✓ |
6 |
& 1.6492E+02_JPRB,1.6388E+02_JPRB,1.6346E+02_JPRB,1.6281E+02_JPRB,1.6185E+02_JPRB/) |
4540 |
|
|
KBO( :,14,13) = (/& |
4541 |
✓✓ |
6 |
& 1.7807E+02_JPRB,1.7770E+02_JPRB,1.7743E+02_JPRB,1.7669E+02_JPRB,1.7598E+02_JPRB/) |
4542 |
|
|
KBO( :,15,13) = (/& |
4543 |
✓✓ |
6 |
& 1.8993E+02_JPRB,1.9024E+02_JPRB,1.8997E+02_JPRB,1.8962E+02_JPRB,1.9043E+02_JPRB/) |
4544 |
|
|
KBO( :,16,13) = (/& |
4545 |
✓✓ |
6 |
& 2.0050E+02_JPRB,2.0095E+02_JPRB,2.0135E+02_JPRB,2.0291E+02_JPRB,2.0501E+02_JPRB/) |
4546 |
|
|
KBO( :,17,13) = (/& |
4547 |
✓✓ |
6 |
& 2.0905E+02_JPRB,2.1062E+02_JPRB,2.1338E+02_JPRB,2.1661E+02_JPRB,2.1875E+02_JPRB/) |
4548 |
|
|
KBO( :,18,13) = (/& |
4549 |
✓✓ |
6 |
& 2.1804E+02_JPRB,2.2224E+02_JPRB,2.2674E+02_JPRB,2.3000E+02_JPRB,2.3246E+02_JPRB/) |
4550 |
|
|
KBO( :,19,13) = (/& |
4551 |
✓✓ |
6 |
& 2.3115E+02_JPRB,2.3655E+02_JPRB,2.4106E+02_JPRB,2.4477E+02_JPRB,2.4852E+02_JPRB/) |
4552 |
|
|
KBO( :,20,13) = (/& |
4553 |
✓✓ |
6 |
& 2.4329E+02_JPRB,2.4898E+02_JPRB,2.5395E+02_JPRB,2.5885E+02_JPRB,2.6364E+02_JPRB/) |
4554 |
|
|
KBO( :,21,13) = (/& |
4555 |
✓✓ |
6 |
& 2.5437E+02_JPRB,2.6055E+02_JPRB,2.6661E+02_JPRB,2.7260E+02_JPRB,2.7787E+02_JPRB/) |
4556 |
|
|
KBO( :,22,13) = (/& |
4557 |
✓✓ |
6 |
& 2.6250E+02_JPRB,2.7007E+02_JPRB,2.7766E+02_JPRB,2.8448E+02_JPRB,2.9027E+02_JPRB/) |
4558 |
|
|
KBO( :,23,13) = (/& |
4559 |
✓✓ |
6 |
& 2.6919E+02_JPRB,2.7869E+02_JPRB,2.8736E+02_JPRB,2.9473E+02_JPRB,3.0099E+02_JPRB/) |
4560 |
|
|
KBO( :,24,13) = (/& |
4561 |
✓✓ |
6 |
& 2.7228E+02_JPRB,2.8325E+02_JPRB,2.9264E+02_JPRB,3.0066E+02_JPRB,3.0797E+02_JPRB/) |
4562 |
|
|
|
4563 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART15',1,ZHOOK_HANDLE) |
4564 |
|
1 |
END SUBROUTINE PART15 |
4565 |
|
|
|
4566 |
|
|
|
4567 |
|
1 |
SUBROUTINE PART16 |
4568 |
|
|
|
4569 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
4570 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART16',0,ZHOOK_HANDLE) |
4571 |
|
|
|
4572 |
|
|
|
4573 |
|
|
KBO( :,25,13) = (/& |
4574 |
✓✓ |
6 |
& 2.7478E+02_JPRB,2.8650E+02_JPRB,2.9632E+02_JPRB,3.0547E+02_JPRB,3.1366E+02_JPRB/) |
4575 |
|
|
KBO( :,26,13) = (/& |
4576 |
✓✓ |
6 |
& 2.7718E+02_JPRB,2.8924E+02_JPRB,3.0014E+02_JPRB,3.1019E+02_JPRB,3.1917E+02_JPRB/) |
4577 |
|
|
KBO( :,27,13) = (/& |
4578 |
✓✓ |
6 |
& 2.7773E+02_JPRB,2.9063E+02_JPRB,3.0281E+02_JPRB,3.1393E+02_JPRB,3.2342E+02_JPRB/) |
4579 |
|
|
KBO( :,28,13) = (/& |
4580 |
✓✓ |
6 |
& 2.7669E+02_JPRB,2.9127E+02_JPRB,3.0469E+02_JPRB,3.1685E+02_JPRB,3.2697E+02_JPRB/) |
4581 |
|
|
KBO( :,29,13) = (/& |
4582 |
✓✓ |
6 |
& 2.7898E+02_JPRB,2.9479E+02_JPRB,3.0937E+02_JPRB,3.2216E+02_JPRB,3.3294E+02_JPRB/) |
4583 |
|
|
KBO( :,30,13) = (/& |
4584 |
✓✓ |
6 |
& 2.8228E+02_JPRB,2.9938E+02_JPRB,3.1508E+02_JPRB,3.2858E+02_JPRB,3.4068E+02_JPRB/) |
4585 |
|
|
KBO( :,31,13) = (/& |
4586 |
✓✓ |
6 |
& 2.8807E+02_JPRB,3.0670E+02_JPRB,3.2315E+02_JPRB,3.3792E+02_JPRB,3.5112E+02_JPRB/) |
4587 |
|
|
KBO( :,32,13) = (/& |
4588 |
✓✓ |
6 |
& 2.9599E+02_JPRB,3.1568E+02_JPRB,3.3326E+02_JPRB,3.4888E+02_JPRB,3.6266E+02_JPRB/) |
4589 |
|
|
KBO( :,33,13) = (/& |
4590 |
✓✓ |
6 |
& 3.0608E+02_JPRB,3.2668E+02_JPRB,3.4478E+02_JPRB,3.6084E+02_JPRB,3.7554E+02_JPRB/) |
4591 |
|
|
KBO( :,34,13) = (/& |
4592 |
✓✓ |
6 |
& 3.1667E+02_JPRB,3.3765E+02_JPRB,3.5613E+02_JPRB,3.7316E+02_JPRB,3.8829E+02_JPRB/) |
4593 |
|
|
KBO( :,35,13) = (/& |
4594 |
✓✓ |
6 |
& 3.2596E+02_JPRB,3.4758E+02_JPRB,3.6720E+02_JPRB,3.8537E+02_JPRB,4.0075E+02_JPRB/) |
4595 |
|
|
KBO( :,36,13) = (/& |
4596 |
✓✓ |
6 |
& 3.3359E+02_JPRB,3.5628E+02_JPRB,3.7747E+02_JPRB,3.9672E+02_JPRB,4.1282E+02_JPRB/) |
4597 |
|
|
KBO( :,37,13) = (/& |
4598 |
✓✓ |
6 |
& 3.3360E+02_JPRB,3.5721E+02_JPRB,3.7933E+02_JPRB,3.9940E+02_JPRB,4.1630E+02_JPRB/) |
4599 |
|
|
KBO( :,38,13) = (/& |
4600 |
✓✓ |
6 |
& 3.3326E+02_JPRB,3.5780E+02_JPRB,3.8082E+02_JPRB,4.0174E+02_JPRB,4.1947E+02_JPRB/) |
4601 |
|
|
KBO( :,39,13) = (/& |
4602 |
✓✓ |
6 |
& 3.3309E+02_JPRB,3.5850E+02_JPRB,3.8253E+02_JPRB,4.0436E+02_JPRB,4.2297E+02_JPRB/) |
4603 |
|
|
KBO( :,40,13) = (/& |
4604 |
✓✓ |
6 |
& 3.2648E+02_JPRB,3.5268E+02_JPRB,3.7698E+02_JPRB,3.9960E+02_JPRB,4.1913E+02_JPRB/) |
4605 |
|
|
KBO( :,41,13) = (/& |
4606 |
✓✓ |
6 |
& 3.1896E+02_JPRB,3.4578E+02_JPRB,3.7035E+02_JPRB,3.9368E+02_JPRB,4.1397E+02_JPRB/) |
4607 |
|
|
KBO( :,42,13) = (/& |
4608 |
✓✓ |
6 |
& 3.1112E+02_JPRB,3.3866E+02_JPRB,3.6362E+02_JPRB,3.8746E+02_JPRB,4.0853E+02_JPRB/) |
4609 |
|
|
KBO( :,43,13) = (/& |
4610 |
✓✓ |
6 |
& 3.0052E+02_JPRB,3.2869E+02_JPRB,3.5427E+02_JPRB,3.7807E+02_JPRB,3.9999E+02_JPRB/) |
4611 |
|
|
KBO( :,44,13) = (/& |
4612 |
✓✓ |
6 |
& 2.8853E+02_JPRB,3.1745E+02_JPRB,3.4358E+02_JPRB,3.6752E+02_JPRB,3.9013E+02_JPRB/) |
4613 |
|
|
KBO( :,45,13) = (/& |
4614 |
✓✓ |
6 |
& 2.7601E+02_JPRB,3.0588E+02_JPRB,3.3279E+02_JPRB,3.5705E+02_JPRB,3.7967E+02_JPRB/) |
4615 |
|
|
KBO( :,46,13) = (/& |
4616 |
✓✓ |
6 |
& 2.6267E+02_JPRB,2.9363E+02_JPRB,3.2123E+02_JPRB,3.4597E+02_JPRB,3.6877E+02_JPRB/) |
4617 |
|
|
KBO( :,47,13) = (/& |
4618 |
✓✓ |
6 |
& 2.4757E+02_JPRB,2.7937E+02_JPRB,3.0805E+02_JPRB,3.3376E+02_JPRB,3.5676E+02_JPRB/) |
4619 |
|
|
KBO( :,48,13) = (/& |
4620 |
✓✓ |
6 |
& 2.3214E+02_JPRB,2.6483E+02_JPRB,2.9482E+02_JPRB,3.2128E+02_JPRB,3.4490E+02_JPRB/) |
4621 |
|
|
KBO( :,49,13) = (/& |
4622 |
✓✓ |
6 |
& 2.1667E+02_JPRB,2.4994E+02_JPRB,2.8075E+02_JPRB,3.0839E+02_JPRB,3.3291E+02_JPRB/) |
4623 |
|
|
KBO( :,50,13) = (/& |
4624 |
✓✓ |
6 |
& 2.0214E+02_JPRB,2.3567E+02_JPRB,2.6727E+02_JPRB,2.9615E+02_JPRB,3.2136E+02_JPRB/) |
4625 |
|
|
KBO( :,51,13) = (/& |
4626 |
✓✓ |
6 |
& 1.8827E+02_JPRB,2.2174E+02_JPRB,2.5386E+02_JPRB,2.8344E+02_JPRB,3.0975E+02_JPRB/) |
4627 |
|
|
KBO( :,52,13) = (/& |
4628 |
✓✓ |
6 |
& 1.7469E+02_JPRB,2.0766E+02_JPRB,2.4021E+02_JPRB,2.7051E+02_JPRB,2.9806E+02_JPRB/) |
4629 |
|
|
KBO( :,53,13) = (/& |
4630 |
✓✓ |
6 |
& 1.6154E+02_JPRB,1.9380E+02_JPRB,2.2644E+02_JPRB,2.5730E+02_JPRB,2.8551E+02_JPRB/) |
4631 |
|
|
KBO( :,54,13) = (/& |
4632 |
✓✓ |
6 |
& 1.4971E+02_JPRB,1.8121E+02_JPRB,2.1351E+02_JPRB,2.4474E+02_JPRB,2.7363E+02_JPRB/) |
4633 |
|
|
KBO( :,55,13) = (/& |
4634 |
✓✓ |
6 |
& 1.3871E+02_JPRB,1.6943E+02_JPRB,2.0115E+02_JPRB,2.3248E+02_JPRB,2.6185E+02_JPRB/) |
4635 |
|
|
KBO( :,56,13) = (/& |
4636 |
✓✓ |
6 |
& 1.2829E+02_JPRB,1.5787E+02_JPRB,1.8899E+02_JPRB,2.2029E+02_JPRB,2.4989E+02_JPRB/) |
4637 |
|
|
KBO( :,57,13) = (/& |
4638 |
✓✓ |
6 |
& 1.1862E+02_JPRB,1.4668E+02_JPRB,1.7707E+02_JPRB,2.0801E+02_JPRB,2.3778E+02_JPRB/) |
4639 |
|
|
KBO( :,58,13) = (/& |
4640 |
✓✓ |
6 |
& 1.1001E+02_JPRB,1.3648E+02_JPRB,1.6587E+02_JPRB,1.9633E+02_JPRB,2.2625E+02_JPRB/) |
4641 |
|
|
KBO( :,59,13) = (/& |
4642 |
✓✓ |
6 |
& 1.0617E+02_JPRB,1.3192E+02_JPRB,1.6056E+02_JPRB,1.9063E+02_JPRB,2.2036E+02_JPRB/) |
4643 |
|
|
KBO( :,13,14) = (/& |
4644 |
✓✓ |
6 |
& 2.3740E+02_JPRB,2.3433E+02_JPRB,2.3150E+02_JPRB,2.2987E+02_JPRB,2.2791E+02_JPRB/) |
4645 |
|
|
KBO( :,14,14) = (/& |
4646 |
✓✓ |
6 |
& 2.6697E+02_JPRB,2.6354E+02_JPRB,2.6091E+02_JPRB,2.5890E+02_JPRB,2.5611E+02_JPRB/) |
4647 |
|
|
KBO( :,15,14) = (/& |
4648 |
✓✓ |
6 |
& 2.9866E+02_JPRB,2.9528E+02_JPRB,2.9285E+02_JPRB,2.8971E+02_JPRB,2.8602E+02_JPRB/) |
4649 |
|
|
KBO( :,16,14) = (/& |
4650 |
✓✓ |
6 |
& 3.3180E+02_JPRB,3.2877E+02_JPRB,3.2564E+02_JPRB,3.2149E+02_JPRB,3.1785E+02_JPRB/) |
4651 |
|
|
KBO( :,17,14) = (/& |
4652 |
✓✓ |
6 |
& 3.6593E+02_JPRB,3.6291E+02_JPRB,3.5866E+02_JPRB,3.5483E+02_JPRB,3.5327E+02_JPRB/) |
4653 |
|
|
KBO( :,18,14) = (/& |
4654 |
✓✓ |
6 |
& 4.0089E+02_JPRB,3.9701E+02_JPRB,3.9353E+02_JPRB,3.9249E+02_JPRB,3.9242E+02_JPRB/) |
4655 |
|
|
KBO( :,19,14) = (/& |
4656 |
✓✓ |
6 |
& 4.3492E+02_JPRB,4.3255E+02_JPRB,4.3249E+02_JPRB,4.3314E+02_JPRB,4.3203E+02_JPRB/) |
4657 |
|
|
KBO( :,20,14) = (/& |
4658 |
✓✓ |
6 |
& 4.6851E+02_JPRB,4.6867E+02_JPRB,4.6996E+02_JPRB,4.7008E+02_JPRB,4.6768E+02_JPRB/) |
4659 |
|
|
KBO( :,21,14) = (/& |
4660 |
✓✓ |
6 |
& 5.0160E+02_JPRB,5.0368E+02_JPRB,5.0510E+02_JPRB,5.0393E+02_JPRB,5.0142E+02_JPRB/) |
4661 |
|
|
KBO( :,22,14) = (/& |
4662 |
✓✓ |
6 |
& 5.3436E+02_JPRB,5.3662E+02_JPRB,5.3668E+02_JPRB,5.3522E+02_JPRB,5.3316E+02_JPRB/) |
4663 |
|
|
KBO( :,23,14) = (/& |
4664 |
✓✓ |
6 |
& 5.6475E+02_JPRB,5.6646E+02_JPRB,5.6617E+02_JPRB,5.6492E+02_JPRB,5.6377E+02_JPRB/) |
4665 |
|
|
KBO( :,24,14) = (/& |
4666 |
✓✓ |
6 |
& 5.9117E+02_JPRB,5.9235E+02_JPRB,5.9305E+02_JPRB,5.9284E+02_JPRB,5.9155E+02_JPRB/) |
4667 |
|
|
KBO( :,25,14) = (/& |
4668 |
✓✓ |
6 |
& 6.1433E+02_JPRB,6.1663E+02_JPRB,6.1844E+02_JPRB,6.1841E+02_JPRB,6.1657E+02_JPRB/) |
4669 |
|
|
KBO( :,26,14) = (/& |
4670 |
✓✓ |
6 |
& 6.3532E+02_JPRB,6.3942E+02_JPRB,6.4146E+02_JPRB,6.4105E+02_JPRB,6.3887E+02_JPRB/) |
4671 |
|
|
KBO( :,27,14) = (/& |
4672 |
✓✓ |
6 |
& 6.5539E+02_JPRB,6.6044E+02_JPRB,6.6224E+02_JPRB,6.6141E+02_JPRB,6.5941E+02_JPRB/) |
4673 |
|
|
KBO( :,28,14) = (/& |
4674 |
✓✓ |
6 |
& 6.7497E+02_JPRB,6.7980E+02_JPRB,6.8130E+02_JPRB,6.7994E+02_JPRB,6.7811E+02_JPRB/) |
4675 |
|
|
KBO( :,29,14) = (/& |
4676 |
✓✓ |
6 |
& 6.9431E+02_JPRB,6.9884E+02_JPRB,6.9950E+02_JPRB,6.9835E+02_JPRB,6.9642E+02_JPRB/) |
4677 |
|
|
KBO( :,30,14) = (/& |
4678 |
✓✓ |
6 |
& 7.1327E+02_JPRB,7.1751E+02_JPRB,7.1742E+02_JPRB,7.1698E+02_JPRB,7.1542E+02_JPRB/) |
4679 |
|
|
KBO( :,31,14) = (/& |
4680 |
✓✓ |
6 |
& 7.3356E+02_JPRB,7.3622E+02_JPRB,7.3751E+02_JPRB,7.3724E+02_JPRB,7.3663E+02_JPRB/) |
4681 |
|
|
KBO( :,32,14) = (/& |
4682 |
✓✓ |
6 |
& 7.5311E+02_JPRB,7.5602E+02_JPRB,7.5787E+02_JPRB,7.5927E+02_JPRB,7.5912E+02_JPRB/) |
4683 |
|
|
KBO( :,33,14) = (/& |
4684 |
✓✓ |
6 |
& 7.7307E+02_JPRB,7.7793E+02_JPRB,7.8149E+02_JPRB,7.8317E+02_JPRB,7.8351E+02_JPRB/) |
4685 |
|
|
KBO( :,34,14) = (/& |
4686 |
✓✓ |
6 |
& 7.9467E+02_JPRB,8.0056E+02_JPRB,8.0525E+02_JPRB,8.0749E+02_JPRB,8.0900E+02_JPRB/) |
4687 |
|
|
KBO( :,35,14) = (/& |
4688 |
✓✓ |
6 |
& 8.1769E+02_JPRB,8.2551E+02_JPRB,8.3062E+02_JPRB,8.3402E+02_JPRB,8.3937E+02_JPRB/) |
4689 |
|
|
KBO( :,36,14) = (/& |
4690 |
✓✓ |
6 |
& 8.4220E+02_JPRB,8.5215E+02_JPRB,8.5810E+02_JPRB,8.6400E+02_JPRB,8.7476E+02_JPRB/) |
4691 |
|
|
KBO( :,37,14) = (/& |
4692 |
✓✓ |
6 |
& 8.5305E+02_JPRB,8.6405E+02_JPRB,8.7082E+02_JPRB,8.7797E+02_JPRB,8.9053E+02_JPRB/) |
4693 |
|
|
KBO( :,38,14) = (/& |
4694 |
✓✓ |
6 |
& 8.6322E+02_JPRB,8.7544E+02_JPRB,8.8314E+02_JPRB,8.9164E+02_JPRB,9.0590E+02_JPRB/) |
4695 |
|
|
KBO( :,39,14) = (/& |
4696 |
✓✓ |
6 |
& 8.7378E+02_JPRB,8.8745E+02_JPRB,8.9629E+02_JPRB,9.0629E+02_JPRB,9.2255E+02_JPRB/) |
4697 |
|
|
KBO( :,40,14) = (/& |
4698 |
✓✓ |
6 |
& 8.7238E+02_JPRB,8.8620E+02_JPRB,8.9614E+02_JPRB,9.0579E+02_JPRB,9.1970E+02_JPRB/) |
4699 |
|
|
KBO( :,41,14) = (/& |
4700 |
✓✓ |
6 |
& 8.6852E+02_JPRB,8.8300E+02_JPRB,8.9419E+02_JPRB,9.0301E+02_JPRB,9.1475E+02_JPRB/) |
4701 |
|
|
KBO( :,42,14) = (/& |
4702 |
✓✓ |
6 |
& 8.6436E+02_JPRB,8.7945E+02_JPRB,8.9208E+02_JPRB,9.0006E+02_JPRB,9.1044E+02_JPRB/) |
4703 |
|
|
KBO( :,43,14) = (/& |
4704 |
✓✓ |
6 |
& 8.5621E+02_JPRB,8.7164E+02_JPRB,8.8447E+02_JPRB,8.9300E+02_JPRB,9.0169E+02_JPRB/) |
4705 |
|
|
KBO( :,44,14) = (/& |
4706 |
✓✓ |
6 |
& 8.4579E+02_JPRB,8.6160E+02_JPRB,8.7458E+02_JPRB,8.8449E+02_JPRB,8.9117E+02_JPRB/) |
4707 |
|
|
KBO( :,45,14) = (/& |
4708 |
✓✓ |
6 |
& 8.3552E+02_JPRB,8.5159E+02_JPRB,8.6481E+02_JPRB,8.7553E+02_JPRB,8.8180E+02_JPRB/) |
4709 |
|
|
KBO( :,46,14) = (/& |
4710 |
✓✓ |
6 |
& 8.2373E+02_JPRB,8.4082E+02_JPRB,8.5433E+02_JPRB,8.6532E+02_JPRB,8.7296E+02_JPRB/) |
4711 |
|
|
KBO( :,47,14) = (/& |
4712 |
✓✓ |
6 |
& 8.0885E+02_JPRB,8.2944E+02_JPRB,8.4330E+02_JPRB,8.5448E+02_JPRB,8.6308E+02_JPRB/) |
4713 |
|
|
KBO( :,48,14) = (/& |
4714 |
✓✓ |
6 |
& 7.9282E+02_JPRB,8.1701E+02_JPRB,8.3172E+02_JPRB,8.4330E+02_JPRB,8.5233E+02_JPRB/) |
4715 |
|
|
KBO( :,49,14) = (/& |
4716 |
✓✓ |
6 |
& 7.7474E+02_JPRB,8.0258E+02_JPRB,8.2078E+02_JPRB,8.3236E+02_JPRB,8.4158E+02_JPRB/) |
4717 |
|
|
KBO( :,50,14) = (/& |
4718 |
✓✓ |
6 |
& 7.5683E+02_JPRB,7.8804E+02_JPRB,8.0940E+02_JPRB,8.2148E+02_JPRB,8.3083E+02_JPRB/) |
4719 |
|
|
KBO( :,51,14) = (/& |
4720 |
✓✓ |
6 |
& 7.3938E+02_JPRB,7.7206E+02_JPRB,7.9641E+02_JPRB,8.1162E+02_JPRB,8.2058E+02_JPRB/) |
4721 |
|
|
KBO( :,52,14) = (/& |
4722 |
✓✓ |
6 |
& 7.2202E+02_JPRB,7.5535E+02_JPRB,7.8294E+02_JPRB,8.0108E+02_JPRB,8.1024E+02_JPRB/) |
4723 |
|
|
KBO( :,53,14) = (/& |
4724 |
✓✓ |
6 |
& 7.0324E+02_JPRB,7.3897E+02_JPRB,7.6789E+02_JPRB,7.8856E+02_JPRB,8.0094E+02_JPRB/) |
4725 |
|
|
KBO( :,54,14) = (/& |
4726 |
✓✓ |
6 |
& 6.8557E+02_JPRB,7.2372E+02_JPRB,7.5272E+02_JPRB,7.7628E+02_JPRB,7.9095E+02_JPRB/) |
4727 |
|
|
KBO( :,55,14) = (/& |
4728 |
✓✓ |
6 |
& 6.6859E+02_JPRB,7.0784E+02_JPRB,7.3838E+02_JPRB,7.6303E+02_JPRB,7.7977E+02_JPRB/) |
4729 |
|
|
KBO( :,56,14) = (/& |
4730 |
✓✓ |
6 |
& 6.5053E+02_JPRB,6.9180E+02_JPRB,7.2460E+02_JPRB,7.4881E+02_JPRB,7.6818E+02_JPRB/) |
4731 |
|
|
KBO( :,57,14) = (/& |
4732 |
✓✓ |
6 |
& 6.3162E+02_JPRB,6.7617E+02_JPRB,7.0983E+02_JPRB,7.3529E+02_JPRB,7.5540E+02_JPRB/) |
4733 |
|
|
KBO( :,58,14) = (/& |
4734 |
✓✓ |
6 |
& 6.1260E+02_JPRB,6.6039E+02_JPRB,6.9564E+02_JPRB,7.2278E+02_JPRB,7.4208E+02_JPRB/) |
4735 |
|
|
KBO( :,59,14) = (/& |
4736 |
✓✓ |
6 |
& 6.0339E+02_JPRB,6.5209E+02_JPRB,6.8806E+02_JPRB,7.1492E+02_JPRB,7.3375E+02_JPRB/) |
4737 |
|
|
KBO( :,13,15) = (/& |
4738 |
✓✓ |
6 |
& 3.5098E+02_JPRB,3.4253E+02_JPRB,3.3549E+02_JPRB,3.2928E+02_JPRB,3.2668E+02_JPRB/) |
4739 |
|
|
KBO( :,14,15) = (/& |
4740 |
✓✓ |
6 |
& 4.0377E+02_JPRB,3.9399E+02_JPRB,3.8548E+02_JPRB,3.7889E+02_JPRB,3.7631E+02_JPRB/) |
4741 |
|
|
KBO( :,15,15) = (/& |
4742 |
✓✓ |
6 |
& 4.6249E+02_JPRB,4.5101E+02_JPRB,4.4105E+02_JPRB,4.3505E+02_JPRB,4.3250E+02_JPRB/) |
4743 |
|
|
KBO( :,16,15) = (/& |
4744 |
✓✓ |
6 |
& 5.2722E+02_JPRB,5.1397E+02_JPRB,5.0360E+02_JPRB,4.9808E+02_JPRB,4.9380E+02_JPRB/) |
4745 |
|
|
KBO( :,17,15) = (/& |
4746 |
✓✓ |
6 |
& 5.9816E+02_JPRB,5.8291E+02_JPRB,5.7380E+02_JPRB,5.6753E+02_JPRB,5.5862E+02_JPRB/) |
4747 |
|
|
KBO( :,18,15) = (/& |
4748 |
✓✓ |
6 |
& 6.7401E+02_JPRB,6.5981E+02_JPRB,6.5045E+02_JPRB,6.3876E+02_JPRB,6.2938E+02_JPRB/) |
4749 |
|
|
KBO( :,19,15) = (/& |
4750 |
✓✓ |
6 |
& 7.5603E+02_JPRB,7.4243E+02_JPRB,7.2713E+02_JPRB,7.1493E+02_JPRB,7.1147E+02_JPRB/) |
4751 |
|
|
KBO( :,20,15) = (/& |
4752 |
✓✓ |
6 |
& 8.4018E+02_JPRB,8.2182E+02_JPRB,8.0329E+02_JPRB,7.9254E+02_JPRB,7.9403E+02_JPRB/) |
4753 |
|
|
KBO( :,21,15) = (/& |
4754 |
✓✓ |
6 |
& 9.2407E+02_JPRB,8.9903E+02_JPRB,8.7966E+02_JPRB,8.7268E+02_JPRB,8.7487E+02_JPRB/) |
4755 |
|
|
KBO( :,22,15) = (/& |
4756 |
✓✓ |
6 |
& 1.0011E+03_JPRB,9.7360E+02_JPRB,9.5759E+02_JPRB,9.5258E+02_JPRB,9.5318E+02_JPRB/) |
4757 |
|
|
KBO( :,23,15) = (/& |
4758 |
✓✓ |
6 |
& 1.0752E+03_JPRB,1.0483E+03_JPRB,1.0346E+03_JPRB,1.0305E+03_JPRB,1.0291E+03_JPRB/) |
4759 |
|
|
KBO( :,24,15) = (/& |
4760 |
✓✓ |
6 |
& 1.1456E+03_JPRB,1.1222E+03_JPRB,1.1083E+03_JPRB,1.1031E+03_JPRB,1.1046E+03_JPRB/) |
4761 |
|
|
KBO( :,25,15) = (/& |
4762 |
✓✓ |
6 |
& 1.2128E+03_JPRB,1.1904E+03_JPRB,1.1781E+03_JPRB,1.1730E+03_JPRB,1.1805E+03_JPRB/) |
4763 |
|
|
KBO( :,26,15) = (/& |
4764 |
✓✓ |
6 |
& 1.2750E+03_JPRB,1.2517E+03_JPRB,1.2401E+03_JPRB,1.2396E+03_JPRB,1.2511E+03_JPRB/) |
4765 |
|
|
KBO( :,27,15) = (/& |
4766 |
✓✓ |
6 |
& 1.3306E+03_JPRB,1.3092E+03_JPRB,1.2993E+03_JPRB,1.3047E+03_JPRB,1.3242E+03_JPRB/) |
4767 |
|
|
KBO( :,28,15) = (/& |
4768 |
✓✓ |
6 |
& 1.3803E+03_JPRB,1.3622E+03_JPRB,1.3582E+03_JPRB,1.3721E+03_JPRB,1.4060E+03_JPRB/) |
4769 |
|
|
KBO( :,29,15) = (/& |
4770 |
✓✓ |
6 |
& 1.4288E+03_JPRB,1.4164E+03_JPRB,1.4235E+03_JPRB,1.4518E+03_JPRB,1.5063E+03_JPRB/) |
4771 |
|
|
KBO( :,30,15) = (/& |
4772 |
✓✓ |
6 |
& 1.4796E+03_JPRB,1.4775E+03_JPRB,1.4997E+03_JPRB,1.5506E+03_JPRB,1.6294E+03_JPRB/) |
4773 |
|
|
KBO( :,31,15) = (/& |
4774 |
✓✓ |
6 |
& 1.5388E+03_JPRB,1.5544E+03_JPRB,1.6015E+03_JPRB,1.6845E+03_JPRB,1.7959E+03_JPRB/) |
4775 |
|
|
KBO( :,32,15) = (/& |
4776 |
✓✓ |
6 |
& 1.6108E+03_JPRB,1.6524E+03_JPRB,1.7357E+03_JPRB,1.8549E+03_JPRB,2.0073E+03_JPRB/) |
4777 |
|
|
KBO( :,33,15) = (/& |
4778 |
✓✓ |
6 |
& 1.7049E+03_JPRB,1.7848E+03_JPRB,1.9109E+03_JPRB,2.0795E+03_JPRB,2.2809E+03_JPRB/) |
4779 |
|
|
KBO( :,34,15) = (/& |
4780 |
✓✓ |
6 |
& 1.8222E+03_JPRB,1.9474E+03_JPRB,2.1232E+03_JPRB,2.3448E+03_JPRB,2.6010E+03_JPRB/) |
4781 |
|
|
KBO( :,35,15) = (/& |
4782 |
✓✓ |
6 |
& 1.9666E+03_JPRB,2.1410E+03_JPRB,2.3742E+03_JPRB,2.6548E+03_JPRB,2.9712E+03_JPRB/) |
4783 |
|
|
KBO( :,36,15) = (/& |
4784 |
✓✓ |
6 |
& 2.1340E+03_JPRB,2.3637E+03_JPRB,2.6606E+03_JPRB,3.0085E+03_JPRB,3.3914E+03_JPRB/) |
4785 |
|
|
KBO( :,37,15) = (/& |
4786 |
✓✓ |
6 |
& 2.1914E+03_JPRB,2.4375E+03_JPRB,2.7564E+03_JPRB,3.1300E+03_JPRB,3.5406E+03_JPRB/) |
4787 |
|
|
KBO( :,38,15) = (/& |
4788 |
✓✓ |
6 |
& 2.2462E+03_JPRB,2.5086E+03_JPRB,2.8496E+03_JPRB,3.2486E+03_JPRB,3.6885E+03_JPRB/) |
4789 |
|
|
KBO( :,39,15) = (/& |
4790 |
✓✓ |
6 |
& 2.3075E+03_JPRB,2.5896E+03_JPRB,2.9560E+03_JPRB,3.3853E+03_JPRB,3.8593E+03_JPRB/) |
4791 |
|
|
KBO( :,40,15) = (/& |
4792 |
✓✓ |
6 |
& 2.2597E+03_JPRB,2.5238E+03_JPRB,2.8725E+03_JPRB,3.2888E+03_JPRB,3.7565E+03_JPRB/) |
4793 |
|
|
KBO( :,41,15) = (/& |
4794 |
✓✓ |
6 |
& 2.2030E+03_JPRB,2.4431E+03_JPRB,2.7663E+03_JPRB,3.1637E+03_JPRB,3.6169E+03_JPRB/) |
4795 |
|
|
KBO( :,42,15) = (/& |
4796 |
✓✓ |
6 |
& 2.1527E+03_JPRB,2.3676E+03_JPRB,2.6649E+03_JPRB,3.0437E+03_JPRB,3.4807E+03_JPRB/) |
4797 |
|
|
KBO( :,43,15) = (/& |
4798 |
✓✓ |
6 |
& 2.0801E+03_JPRB,2.2578E+03_JPRB,2.5168E+03_JPRB,2.8580E+03_JPRB,3.2606E+03_JPRB/) |
4799 |
|
|
KBO( :,44,15) = (/& |
4800 |
✓✓ |
6 |
& 2.0120E+03_JPRB,2.1487E+03_JPRB,2.3643E+03_JPRB,2.6580E+03_JPRB,3.0218E+03_JPRB/) |
4801 |
|
|
KBO( :,45,15) = (/& |
4802 |
✓✓ |
6 |
& 1.9613E+03_JPRB,2.0594E+03_JPRB,2.2322E+03_JPRB,2.4807E+03_JPRB,2.8037E+03_JPRB/) |
4803 |
|
|
KBO( :,46,15) = (/& |
4804 |
✓✓ |
6 |
& 1.9248E+03_JPRB,1.9849E+03_JPRB,2.1161E+03_JPRB,2.3204E+03_JPRB,2.5965E+03_JPRB/) |
4805 |
|
|
KBO( :,47,15) = (/& |
4806 |
✓✓ |
6 |
& 1.9027E+03_JPRB,1.9263E+03_JPRB,2.0143E+03_JPRB,2.1716E+03_JPRB,2.3989E+03_JPRB/) |
4807 |
|
|
KBO( :,48,15) = (/& |
4808 |
✓✓ |
6 |
& 1.8901E+03_JPRB,1.8881E+03_JPRB,1.9372E+03_JPRB,2.0507E+03_JPRB,2.2312E+03_JPRB/) |
4809 |
|
|
KBO( :,49,15) = (/& |
4810 |
✓✓ |
6 |
& 1.8889E+03_JPRB,1.8669E+03_JPRB,1.8827E+03_JPRB,1.9550E+03_JPRB,2.0905E+03_JPRB/) |
4811 |
|
|
KBO( :,50,15) = (/& |
4812 |
✓✓ |
6 |
& 1.8989E+03_JPRB,1.8542E+03_JPRB,1.8471E+03_JPRB,1.8860E+03_JPRB,1.9820E+03_JPRB/) |
4813 |
|
|
KBO( :,51,15) = (/& |
4814 |
✓✓ |
6 |
& 1.9169E+03_JPRB,1.8516E+03_JPRB,1.8269E+03_JPRB,1.8368E+03_JPRB,1.8967E+03_JPRB/) |
4815 |
|
|
KBO( :,52,15) = (/& |
4816 |
✓✓ |
6 |
& 1.9362E+03_JPRB,1.8607E+03_JPRB,1.8138E+03_JPRB,1.8022E+03_JPRB,1.8318E+03_JPRB/) |
4817 |
|
|
KBO( :,53,15) = (/& |
4818 |
✓✓ |
6 |
& 1.9614E+03_JPRB,1.8769E+03_JPRB,1.8109E+03_JPRB,1.7819E+03_JPRB,1.7849E+03_JPRB/) |
4819 |
|
|
KBO( :,54,15) = (/& |
4820 |
✓✓ |
6 |
& 1.9844E+03_JPRB,1.8925E+03_JPRB,1.8175E+03_JPRB,1.7685E+03_JPRB,1.7516E+03_JPRB/) |
4821 |
|
|
KBO( :,55,15) = (/& |
4822 |
✓✓ |
6 |
& 2.0020E+03_JPRB,1.9117E+03_JPRB,1.8292E+03_JPRB,1.7630E+03_JPRB,1.7309E+03_JPRB/) |
4823 |
|
|
KBO( :,56,15) = (/& |
4824 |
✓✓ |
6 |
& 2.0278E+03_JPRB,1.9328E+03_JPRB,1.8420E+03_JPRB,1.7676E+03_JPRB,1.7165E+03_JPRB/) |
4825 |
|
|
KBO( :,57,15) = (/& |
4826 |
✓✓ |
6 |
& 2.0604E+03_JPRB,1.9486E+03_JPRB,1.8586E+03_JPRB,1.7772E+03_JPRB,1.7105E+03_JPRB/) |
4827 |
|
|
KBO( :,58,15) = (/& |
4828 |
✓✓ |
6 |
& 2.0975E+03_JPRB,1.9708E+03_JPRB,1.8754E+03_JPRB,1.7869E+03_JPRB,1.7130E+03_JPRB/) |
4829 |
|
|
KBO( :,59,15) = (/& |
4830 |
✓✓ |
6 |
& 2.1134E+03_JPRB,1.9790E+03_JPRB,1.8747E+03_JPRB,1.7853E+03_JPRB,1.7084E+03_JPRB/) |
4831 |
|
|
KBO( :,13,16) = (/& |
4832 |
✓✓ |
6 |
& 5.7032E+02_JPRB,5.5610E+02_JPRB,5.4108E+02_JPRB,5.2545E+02_JPRB,5.0988E+02_JPRB/) |
4833 |
|
|
KBO( :,14,16) = (/& |
4834 |
✓✓ |
6 |
& 6.6729E+02_JPRB,6.4906E+02_JPRB,6.2994E+02_JPRB,6.1106E+02_JPRB,5.9252E+02_JPRB/) |
4835 |
|
|
KBO( :,15,16) = (/& |
4836 |
✓✓ |
6 |
& 7.7710E+02_JPRB,7.5381E+02_JPRB,7.3065E+02_JPRB,7.0752E+02_JPRB,6.8404E+02_JPRB/) |
4837 |
|
|
KBO( :,16,16) = (/& |
4838 |
✓✓ |
6 |
& 8.9983E+02_JPRB,8.7150E+02_JPRB,8.4258E+02_JPRB,8.1329E+02_JPRB,7.9266E+02_JPRB/) |
4839 |
|
|
KBO( :,17,16) = (/& |
4840 |
✓✓ |
6 |
& 1.0356E+03_JPRB,9.9960E+02_JPRB,9.6297E+02_JPRB,9.3112E+02_JPRB,9.3376E+02_JPRB/) |
4841 |
|
|
KBO( :,18,16) = (/& |
4842 |
✓✓ |
6 |
& 1.1805E+03_JPRB,1.1349E+03_JPRB,1.0927E+03_JPRB,1.0913E+03_JPRB,1.1178E+03_JPRB/) |
4843 |
|
|
KBO( :,19,16) = (/& |
4844 |
✓✓ |
6 |
& 1.3301E+03_JPRB,1.2743E+03_JPRB,1.2636E+03_JPRB,1.2905E+03_JPRB,1.3412E+03_JPRB/) |
4845 |
|
|
KBO( :,20,16) = (/& |
4846 |
✓✓ |
6 |
& 1.4790E+03_JPRB,1.4325E+03_JPRB,1.4416E+03_JPRB,1.4834E+03_JPRB,1.5509E+03_JPRB/) |
4847 |
|
|
KBO( :,21,16) = (/& |
4848 |
✓✓ |
6 |
& 1.6248E+03_JPRB,1.6005E+03_JPRB,1.6227E+03_JPRB,1.6765E+03_JPRB,1.7801E+03_JPRB/) |
4849 |
|
|
KBO( :,22,16) = (/& |
4850 |
✓✓ |
6 |
& 1.7789E+03_JPRB,1.7751E+03_JPRB,1.8121E+03_JPRB,1.8963E+03_JPRB,2.0533E+03_JPRB/) |
4851 |
|
|
KBO( :,23,16) = (/& |
4852 |
✓✓ |
6 |
& 1.9420E+03_JPRB,1.9550E+03_JPRB,2.0171E+03_JPRB,2.1515E+03_JPRB,2.3736E+03_JPRB/) |
4853 |
|
|
KBO( :,24,16) = (/& |
4854 |
✓✓ |
6 |
& 2.1057E+03_JPRB,2.1395E+03_JPRB,2.2516E+03_JPRB,2.4478E+03_JPRB,2.7312E+03_JPRB/) |
4855 |
|
|
KBO( :,25,16) = (/& |
4856 |
✓✓ |
6 |
& 2.2727E+03_JPRB,2.3487E+03_JPRB,2.5135E+03_JPRB,2.7876E+03_JPRB,3.1353E+03_JPRB/) |
4857 |
|
|
KBO( :,26,16) = (/& |
4858 |
✓✓ |
6 |
& 2.4430E+03_JPRB,2.5769E+03_JPRB,2.8118E+03_JPRB,3.1571E+03_JPRB,3.5871E+03_JPRB/) |
4859 |
|
|
KBO( :,27,16) = (/& |
4860 |
✓✓ |
6 |
& 2.6427E+03_JPRB,2.8396E+03_JPRB,3.1669E+03_JPRB,3.5883E+03_JPRB,4.0930E+03_JPRB/) |
4861 |
|
|
KBO( :,28,16) = (/& |
4862 |
✓✓ |
6 |
& 2.8823E+03_JPRB,3.1635E+03_JPRB,3.5805E+03_JPRB,4.0928E+03_JPRB,4.6511E+03_JPRB/) |
4863 |
|
|
|
4864 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART16',1,ZHOOK_HANDLE) |
4865 |
|
1 |
END SUBROUTINE PART16 |
4866 |
|
|
|
4867 |
|
|
|
4868 |
|
1 |
SUBROUTINE PART17 |
4869 |
|
|
|
4870 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
4871 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART17',0,ZHOOK_HANDLE) |
4872 |
|
|
|
4873 |
|
|
|
4874 |
|
|
KBO( :,29,16) = (/& |
4875 |
✓✓ |
6 |
& 3.1912E+03_JPRB,3.5861E+03_JPRB,4.1049E+03_JPRB,4.7016E+03_JPRB,5.3176E+03_JPRB/) |
4876 |
|
|
KBO( :,30,16) = (/& |
4877 |
✓✓ |
6 |
& 3.5968E+03_JPRB,4.1208E+03_JPRB,4.7628E+03_JPRB,5.4277E+03_JPRB,6.1129E+03_JPRB/) |
4878 |
|
|
KBO( :,31,16) = (/& |
4879 |
✓✓ |
6 |
& 4.1669E+03_JPRB,4.8568E+03_JPRB,5.5986E+03_JPRB,6.3508E+03_JPRB,7.1245E+03_JPRB/) |
4880 |
|
|
KBO( :,32,16) = (/& |
4881 |
✓✓ |
6 |
& 4.9181E+03_JPRB,5.7548E+03_JPRB,6.5943E+03_JPRB,7.4480E+03_JPRB,8.3250E+03_JPRB/) |
4882 |
|
|
KBO( :,33,16) = (/& |
4883 |
✓✓ |
6 |
& 5.8885E+03_JPRB,6.8470E+03_JPRB,7.8053E+03_JPRB,8.7780E+03_JPRB,9.7768E+03_JPRB/) |
4884 |
|
|
KBO( :,34,16) = (/& |
4885 |
✓✓ |
6 |
& 6.9635E+03_JPRB,8.0514E+03_JPRB,9.1398E+03_JPRB,1.0245E+04_JPRB,1.1380E+04_JPRB/) |
4886 |
|
|
KBO( :,35,16) = (/& |
4887 |
✓✓ |
6 |
& 8.1473E+03_JPRB,9.3881E+03_JPRB,1.0630E+04_JPRB,1.1894E+04_JPRB,1.3185E+04_JPRB/) |
4888 |
|
|
KBO( :,36,16) = (/& |
4889 |
✓✓ |
6 |
& 9.4364E+03_JPRB,1.0865E+04_JPRB,1.2293E+04_JPRB,1.3743E+04_JPRB,1.5227E+04_JPRB/) |
4890 |
|
|
KBO( :,37,16) = (/& |
4891 |
✓✓ |
6 |
& 9.8676E+03_JPRB,1.1389E+04_JPRB,1.2910E+04_JPRB,1.4442E+04_JPRB,1.6011E+04_JPRB/) |
4892 |
|
|
KBO( :,38,16) = (/& |
4893 |
✓✓ |
6 |
& 1.0288E+04_JPRB,1.1907E+04_JPRB,1.3518E+04_JPRB,1.5146E+04_JPRB,1.6802E+04_JPRB/) |
4894 |
|
|
KBO( :,39,16) = (/& |
4895 |
✓✓ |
6 |
& 1.0771E+04_JPRB,1.2499E+04_JPRB,1.4216E+04_JPRB,1.5954E+04_JPRB,1.7707E+04_JPRB/) |
4896 |
|
|
KBO( :,40,16) = (/& |
4897 |
✓✓ |
6 |
& 1.0414E+04_JPRB,1.2148E+04_JPRB,1.3875E+04_JPRB,1.5613E+04_JPRB,1.7368E+04_JPRB/) |
4898 |
|
|
KBO( :,41,16) = (/& |
4899 |
✓✓ |
6 |
& 9.9384E+03_JPRB,1.1661E+04_JPRB,1.3383E+04_JPRB,1.5104E+04_JPRB,1.6844E+04_JPRB/) |
4900 |
|
|
KBO( :,42,16) = (/& |
4901 |
✓✓ |
6 |
& 9.4612E+03_JPRB,1.1170E+04_JPRB,1.2888E+04_JPRB,1.4596E+04_JPRB,1.6317E+04_JPRB/) |
4902 |
|
|
KBO( :,43,16) = (/& |
4903 |
✓✓ |
6 |
& 8.7147E+03_JPRB,1.0370E+04_JPRB,1.2042E+04_JPRB,1.3705E+04_JPRB,1.5380E+04_JPRB/) |
4904 |
|
|
KBO( :,44,16) = (/& |
4905 |
✓✓ |
6 |
& 7.8820E+03_JPRB,9.4600E+03_JPRB,1.1070E+04_JPRB,1.2678E+04_JPRB,1.4284E+04_JPRB/) |
4906 |
|
|
KBO( :,45,16) = (/& |
4907 |
✓✓ |
6 |
& 7.0926E+03_JPRB,8.5904E+03_JPRB,1.0135E+04_JPRB,1.1689E+04_JPRB,1.3230E+04_JPRB/) |
4908 |
|
|
KBO( :,46,16) = (/& |
4909 |
✓✓ |
6 |
& 6.3333E+03_JPRB,7.7267E+03_JPRB,9.1993E+03_JPRB,1.0689E+04_JPRB,1.2169E+04_JPRB/) |
4910 |
|
|
KBO( :,47,16) = (/& |
4911 |
✓✓ |
6 |
& 5.6159E+03_JPRB,6.8398E+03_JPRB,8.2286E+03_JPRB,9.6499E+03_JPRB,1.1071E+04_JPRB/) |
4912 |
|
|
KBO( :,48,16) = (/& |
4913 |
✓✓ |
6 |
& 5.0469E+03_JPRB,6.0380E+03_JPRB,7.3127E+03_JPRB,8.6620E+03_JPRB,1.0021E+04_JPRB/) |
4914 |
|
|
KBO( :,49,16) = (/& |
4915 |
✓✓ |
6 |
& 4.6114E+03_JPRB,5.3556E+03_JPRB,6.4573E+03_JPRB,7.7273E+03_JPRB,9.0204E+03_JPRB/) |
4916 |
|
|
KBO( :,50,16) = (/& |
4917 |
✓✓ |
6 |
& 4.2827E+03_JPRB,4.8418E+03_JPRB,5.7290E+03_JPRB,6.8837E+03_JPRB,8.1065E+03_JPRB/) |
4918 |
|
|
KBO( :,51,16) = (/& |
4919 |
✓✓ |
6 |
& 4.0377E+03_JPRB,4.4505E+03_JPRB,5.1216E+03_JPRB,6.1118E+03_JPRB,7.2612E+03_JPRB/) |
4920 |
|
|
KBO( :,52,16) = (/& |
4921 |
✓✓ |
6 |
& 3.9027E+03_JPRB,4.1388E+03_JPRB,4.6373E+03_JPRB,5.4292E+03_JPRB,6.4624E+03_JPRB/) |
4922 |
|
|
KBO( :,53,16) = (/& |
4923 |
✓✓ |
6 |
& 3.8594E+03_JPRB,3.9014E+03_JPRB,4.2603E+03_JPRB,4.8496E+03_JPRB,5.7176E+03_JPRB/) |
4924 |
|
|
KBO( :,54,16) = (/& |
4925 |
✓✓ |
6 |
& 3.9053E+03_JPRB,3.7705E+03_JPRB,3.9739E+03_JPRB,4.4065E+03_JPRB,5.0959E+03_JPRB/) |
4926 |
|
|
KBO( :,55,16) = (/& |
4927 |
✓✓ |
6 |
& 4.0460E+03_JPRB,3.7217E+03_JPRB,3.7544E+03_JPRB,4.0660E+03_JPRB,4.5765E+03_JPRB/) |
4928 |
|
|
KBO( :,56,16) = (/& |
4929 |
✓✓ |
6 |
& 4.2054E+03_JPRB,3.7493E+03_JPRB,3.6207E+03_JPRB,3.7906E+03_JPRB,4.1568E+03_JPRB/) |
4930 |
|
|
KBO( :,57,16) = (/& |
4931 |
✓✓ |
6 |
& 4.3770E+03_JPRB,3.8799E+03_JPRB,3.5717E+03_JPRB,3.5790E+03_JPRB,3.8293E+03_JPRB/) |
4932 |
|
|
KBO( :,58,16) = (/& |
4933 |
✓✓ |
6 |
& 4.5510E+03_JPRB,4.0210E+03_JPRB,3.5972E+03_JPRB,3.4529E+03_JPRB,3.5736E+03_JPRB/) |
4934 |
|
|
KBO( :,59,16) = (/& |
4935 |
✓✓ |
6 |
& 4.6237E+03_JPRB,4.0799E+03_JPRB,3.6344E+03_JPRB,3.3958E+03_JPRB,3.4194E+03_JPRB/) |
4936 |
|
|
|
4937 |
|
|
! The array SELFREFO contains the coefficient of the water vapor |
4938 |
|
|
! self-continuum (including the energy term). The first index |
4939 |
|
|
! refers to temperature in 7.2 degree increments. For instance, |
4940 |
|
|
! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, |
4941 |
|
|
! etc. The second index runs over the g-channel (1 to 16). |
4942 |
|
|
|
4943 |
|
|
SELFREFO( :, 1) = (/& |
4944 |
|
|
& 2.83413E-02_JPRB, 2.51443E-02_JPRB, 2.23078E-02_JPRB, 1.97914E-02_JPRB, 1.75588E-02_JPRB,& |
4945 |
✓✓ |
11 |
& 1.55780E-02_JPRB, 1.38207E-02_JPRB, 1.22617E-02_JPRB, 1.08785E-02_JPRB, 9.65132E-03_JPRB/) |
4946 |
|
|
SELFREFO( :, 2) = (/& |
4947 |
|
|
& 3.01506E-02_JPRB, 2.69506E-02_JPRB, 2.40901E-02_JPRB, 2.15333E-02_JPRB, 1.92478E-02_JPRB,& |
4948 |
✓✓ |
11 |
& 1.72049E-02_JPRB, 1.53789E-02_JPRB, 1.37466E-02_JPRB, 1.22876E-02_JPRB, 1.09834E-02_JPRB/) |
4949 |
|
|
SELFREFO( :, 3) = (/& |
4950 |
|
|
& 4.24899E-02_JPRB, 3.77138E-02_JPRB, 3.34745E-02_JPRB, 2.97118E-02_JPRB, 2.63720E-02_JPRB,& |
4951 |
✓✓ |
11 |
& 2.34077E-02_JPRB, 2.07765E-02_JPRB, 1.84411E-02_JPRB, 1.63682E-02_JPRB, 1.45283E-02_JPRB/) |
4952 |
|
|
SELFREFO( :, 4) = (/& |
4953 |
|
|
& 5.78648E-02_JPRB, 5.16988E-02_JPRB, 4.61899E-02_JPRB, 4.12679E-02_JPRB, 3.68705E-02_JPRB,& |
4954 |
✓✓ |
11 |
& 3.29416E-02_JPRB, 2.94314E-02_JPRB, 2.62952E-02_JPRB, 2.34932E-02_JPRB, 2.09898E-02_JPRB/) |
4955 |
|
|
SELFREFO( :, 5) = (/& |
4956 |
|
|
& 6.96367E-02_JPRB, 6.36716E-02_JPRB, 5.82175E-02_JPRB, 5.32306E-02_JPRB, 4.86709E-02_JPRB,& |
4957 |
✓✓ |
11 |
& 4.45018E-02_JPRB, 4.06898E-02_JPRB, 3.72043E-02_JPRB, 3.40174E-02_JPRB, 3.11034E-02_JPRB/) |
4958 |
|
|
SELFREFO( :, 6) = (/& |
4959 |
|
|
& 6.04073E-02_JPRB, 5.90856E-02_JPRB, 5.77929E-02_JPRB, 5.65284E-02_JPRB, 5.52916E-02_JPRB,& |
4960 |
✓✓ |
11 |
& 5.40819E-02_JPRB, 5.28986E-02_JPRB, 5.17413E-02_JPRB, 5.06092E-02_JPRB, 4.95020E-02_JPRB/) |
4961 |
|
|
SELFREFO( :, 7) = (/& |
4962 |
|
|
& 6.19460E-02_JPRB, 6.02812E-02_JPRB, 5.86612E-02_JPRB, 5.70847E-02_JPRB, 5.55506E-02_JPRB,& |
4963 |
✓✓ |
11 |
& 5.40577E-02_JPRB, 5.26049E-02_JPRB, 5.11912E-02_JPRB, 4.98155E-02_JPRB, 4.84767E-02_JPRB/) |
4964 |
|
|
SELFREFO( :, 8) = (/& |
4965 |
|
|
& 6.86939E-02_JPRB, 6.58429E-02_JPRB, 6.31102E-02_JPRB, 6.04909E-02_JPRB, 5.79804E-02_JPRB,& |
4966 |
✓✓ |
11 |
& 5.55740E-02_JPRB, 5.32675E-02_JPRB, 5.10567E-02_JPRB, 4.89377E-02_JPRB, 4.69067E-02_JPRB/) |
4967 |
|
|
SELFREFO( :, 9) = (/& |
4968 |
|
|
& 8.18828E-02_JPRB, 7.77172E-02_JPRB, 7.37635E-02_JPRB, 7.00110E-02_JPRB, 6.64494E-02_JPRB,& |
4969 |
✓✓ |
11 |
& 6.30689E-02_JPRB, 5.98604E-02_JPRB, 5.68152E-02_JPRB, 5.39248E-02_JPRB, 5.11815E-02_JPRB/) |
4970 |
|
|
SELFREFO( :,10) = (/& |
4971 |
|
|
& 8.41953E-02_JPRB, 8.10610E-02_JPRB, 7.80434E-02_JPRB, 7.51381E-02_JPRB, 7.23409E-02_JPRB,& |
4972 |
✓✓ |
11 |
& 6.96479E-02_JPRB, 6.70551E-02_JPRB, 6.45589E-02_JPRB, 6.21556E-02_JPRB, 5.98417E-02_JPRB/) |
4973 |
|
|
SELFREFO( :,11) = (/& |
4974 |
|
|
& 9.41304E-02_JPRB, 8.97275E-02_JPRB, 8.55305E-02_JPRB, 8.15299E-02_JPRB, 7.77164E-02_JPRB,& |
4975 |
✓✓ |
11 |
& 7.40812E-02_JPRB, 7.06161E-02_JPRB, 6.73131E-02_JPRB, 6.41646E-02_JPRB, 6.11633E-02_JPRB/) |
4976 |
|
|
SELFREFO( :,12) = (/& |
4977 |
|
|
& 9.55404E-02_JPRB, 9.02311E-02_JPRB, 8.52169E-02_JPRB, 8.04813E-02_JPRB, 7.60089E-02_JPRB,& |
4978 |
✓✓ |
11 |
& 7.17850E-02_JPRB, 6.77958E-02_JPRB, 6.40284E-02_JPRB, 6.04703E-02_JPRB, 5.71099E-02_JPRB/) |
4979 |
|
|
SELFREFO( :,13) = (/& |
4980 |
|
|
& 9.32377E-02_JPRB, 8.99082E-02_JPRB, 8.66977E-02_JPRB, 8.36018E-02_JPRB, 8.06164E-02_JPRB,& |
4981 |
✓✓ |
11 |
& 7.77376E-02_JPRB, 7.49617E-02_JPRB, 7.22848E-02_JPRB, 6.97036E-02_JPRB, 6.72145E-02_JPRB/) |
4982 |
|
|
SELFREFO( :,14) = (/& |
4983 |
|
|
& 1.14746E-01_JPRB, 1.08112E-01_JPRB, 1.01861E-01_JPRB, 9.59719E-02_JPRB, 9.04232E-02_JPRB,& |
4984 |
✓✓ |
11 |
& 8.51952E-02_JPRB, 8.02695E-02_JPRB, 7.56285E-02_JPRB, 7.12559E-02_JPRB, 6.71361E-02_JPRB/) |
4985 |
|
|
SELFREFO( :,15) = (/& |
4986 |
|
|
& 1.23517E-01_JPRB, 1.19527E-01_JPRB, 1.15666E-01_JPRB, 1.11929E-01_JPRB, 1.08313E-01_JPRB,& |
4987 |
✓✓ |
11 |
& 1.04814E-01_JPRB, 1.01428E-01_JPRB, 9.81512E-02_JPRB, 9.49803E-02_JPRB, 9.19119E-02_JPRB/) |
4988 |
|
|
SELFREFO( :,16) = (/& |
4989 |
|
|
& 1.44086E-01_JPRB, 1.36396E-01_JPRB, 1.29117E-01_JPRB, 1.22226E-01_JPRB, 1.15703E-01_JPRB,& |
4990 |
✓✓ |
11 |
& 1.09528E-01_JPRB, 1.03683E-01_JPRB, 9.81497E-02_JPRB, 9.29116E-02_JPRB, 8.79530E-02_JPRB/) |
4991 |
|
|
|
4992 |
|
|
FRACREFAO( :, 1) = (/& |
4993 |
|
|
! From P = 1053.6 mb. |
4994 |
|
|
& 0.16898900_JPRB,0.15898301_JPRB,0.13575301_JPRB,0.12600900_JPRB,& |
4995 |
|
|
& 0.11545800_JPRB,0.09879170_JPRB,0.08106830_JPRB,0.06063440_JPRB,& |
4996 |
|
|
& 0.03988780_JPRB,0.00421760_JPRB,0.00346635_JPRB,0.00278779_JPRB,& |
4997 |
✓✓ |
17 |
& 0.00206225_JPRB,0.00132324_JPRB,0.00050033_JPRB,0.00007038_JPRB/) |
4998 |
|
|
FRACREFAO( :, 2) = (/& |
4999 |
|
|
& 0.18209399_JPRB,0.15315101_JPRB,0.13571000_JPRB,0.12504999_JPRB,& |
5000 |
|
|
& 0.11379100_JPRB,0.09680810_JPRB,0.08008570_JPRB,0.05970280_JPRB,& |
5001 |
|
|
& 0.03942860_JPRB,0.00413383_JPRB,0.00343186_JPRB,0.00275558_JPRB,& |
5002 |
✓✓ |
17 |
& 0.00204657_JPRB,0.00130219_JPRB,0.00045454_JPRB,0.00005664_JPRB/) |
5003 |
|
|
FRACREFAO( :, 3) = (/& |
5004 |
|
|
& 0.18459500_JPRB,0.15512000_JPRB,0.13395500_JPRB,0.12576801_JPRB,& |
5005 |
|
|
& 0.11276800_JPRB,0.09645190_JPRB,0.07956650_JPRB,0.05903340_JPRB,& |
5006 |
|
|
& 0.03887050_JPRB,0.00412226_JPRB,0.00339453_JPRB,0.00273518_JPRB,& |
5007 |
✓✓ |
17 |
& 0.00196922_JPRB,0.00119411_JPRB,0.00040263_JPRB,0.00005664_JPRB/) |
5008 |
|
|
FRACREFAO( :, 4) = (/& |
5009 |
|
|
& 0.18458800_JPRB,0.15859900_JPRB,0.13278100_JPRB,0.12589300_JPRB,& |
5010 |
|
|
& 0.11272700_JPRB,0.09599660_JPRB,0.07903030_JPRB,0.05843600_JPRB,& |
5011 |
|
|
& 0.03843400_JPRB,0.00405181_JPRB,0.00337980_JPRB,0.00263818_JPRB,& |
5012 |
✓✓ |
17 |
& 0.00186869_JPRB,0.00111807_JPRB,0.00040263_JPRB,0.00005664_JPRB/) |
5013 |
|
|
FRACREFAO( :, 5) = (/& |
5014 |
|
|
& 0.18459301_JPRB,0.16176100_JPRB,0.13235000_JPRB,0.12528200_JPRB,& |
5015 |
|
|
& 0.11237100_JPRB,0.09618840_JPRB,0.07833760_JPRB,0.05800770_JPRB,& |
5016 |
|
|
& 0.03787610_JPRB,0.00408253_JPRB,0.00330363_JPRB,0.00250445_JPRB,& |
5017 |
✓✓ |
17 |
& 0.00176725_JPRB,0.00111753_JPRB,0.00040263_JPRB,0.00005664_JPRB/) |
5018 |
|
|
FRACREFAO( :, 6) = (/& |
5019 |
|
|
& 0.18454400_JPRB,0.16505300_JPRB,0.13221300_JPRB,0.12476600_JPRB,& |
5020 |
|
|
& 0.11158300_JPRB,0.09618120_JPRB,0.07797340_JPRB,0.05740380_JPRB,& |
5021 |
|
|
& 0.03742820_JPRB,0.00392691_JPRB,0.00312208_JPRB,0.00246306_JPRB,& |
5022 |
✓✓ |
17 |
& 0.00176735_JPRB,0.00111721_JPRB,0.00040263_JPRB,0.00005664_JPRB/) |
5023 |
|
|
FRACREFAO( :, 7) = (/& |
5024 |
|
|
& 0.18452001_JPRB,0.16697501_JPRB,0.13445500_JPRB,0.12391300_JPRB,& |
5025 |
|
|
& 0.11059100_JPRB,0.09596890_JPRB,0.07761050_JPRB,0.05643200_JPRB,& |
5026 |
|
|
& 0.03686520_JPRB,0.00377086_JPRB,0.00309351_JPRB,0.00246297_JPRB,& |
5027 |
✓✓ |
17 |
& 0.00176765_JPRB,0.00111700_JPRB,0.00040263_JPRB,0.00005664_JPRB/) |
5028 |
|
|
FRACREFAO( :, 8) = (/& |
5029 |
|
|
& 0.18460999_JPRB,0.16854499_JPRB,0.13922299_JPRB,0.12266400_JPRB,& |
5030 |
|
|
& 0.10962200_JPRB,0.09452030_JPRB,0.07653800_JPRB,0.05551340_JPRB,& |
5031 |
|
|
& 0.03609660_JPRB,0.00377043_JPRB,0.00309367_JPRB,0.00246304_JPRB,& |
5032 |
✓✓ |
17 |
& 0.00176749_JPRB,0.00111689_JPRB,0.00040263_JPRB,0.00005664_JPRB/) |
5033 |
|
|
FRACREFAO( :, 9) = (/& |
5034 |
|
|
& 0.18312500_JPRB,0.16787501_JPRB,0.14720701_JPRB,0.12766500_JPRB,& |
5035 |
|
|
& 0.10890900_JPRB,0.08935530_JPRB,0.07310870_JPRB,0.05443140_JPRB,& |
5036 |
|
|
& 0.03566380_JPRB,0.00376446_JPRB,0.00309521_JPRB,0.00246510_JPRB,& |
5037 |
✓✓ |
17 |
& 0.00176139_JPRB,0.00111543_JPRB,0.00040263_JPRB,0.00005664_JPRB/) |
5038 |
|
|
|
5039 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART17',1,ZHOOK_HANDLE) |
5040 |
|
1 |
END SUBROUTINE PART17 |
5041 |
|
|
|
5042 |
|
|
|
5043 |
|
|
END SUBROUTINE RRTM_KGB9 |