1 |
|
|
!OCL SCALAR |
2 |
|
|
#ifdef RS6K |
3 |
|
|
@PROCESS NOOPTIMIZE |
4 |
|
|
#endif |
5 |
|
|
!pgi$r opt=0 |
6 |
|
1 |
SUBROUTINE RRTM_KGB14 |
7 |
|
|
|
8 |
|
|
! Originally by Eli J. Mlawer, Atmospheric & Environmental Research. |
9 |
|
|
! BAND 14: 2250-2380 cm-1 (low - CO2; high - CO2) |
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 YOERRTO14, ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,FRACREFBO |
19 |
|
|
|
20 |
|
|
! ------------------------------------------------------------------ |
21 |
|
|
|
22 |
|
|
IMPLICIT NONE |
23 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
24 |
|
|
|
25 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14',0,ZHOOK_HANDLE) |
26 |
|
|
|
27 |
|
1 |
CALL PART1 |
28 |
|
1 |
CALL PART2 |
29 |
|
1 |
CALL PART3 |
30 |
|
1 |
CALL PART4 |
31 |
|
1 |
CALL PART5 |
32 |
|
1 |
CALL PART6 |
33 |
|
1 |
CALL PART7 |
34 |
|
|
|
35 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14',1,ZHOOK_HANDLE) |
36 |
|
|
|
37 |
|
|
! ----------------------------------------------------------------- |
38 |
|
|
|
39 |
|
|
CONTAINS |
40 |
|
|
|
41 |
|
|
|
42 |
|
1 |
SUBROUTINE PART1 |
43 |
|
|
|
44 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
45 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART1',0,ZHOOK_HANDLE) |
46 |
|
|
|
47 |
|
|
|
48 |
|
|
FRACREFAO( :) = (/& |
49 |
|
|
! From P = 1053.6 mb. |
50 |
|
|
& 0.18446200_JPRB,0.16795200_JPRB,0.14949700_JPRB,0.12036000_JPRB,& |
51 |
|
|
& 0.10440100_JPRB,0.09024280_JPRB,0.07435880_JPRB,0.05629380_JPRB,& |
52 |
|
|
& 0.03825420_JPRB,0.00417276_JPRB,0.00345278_JPRB,0.00272949_JPRB,& |
53 |
|
1 |
& 0.00200378_JPRB,0.00127404_JPRB,0.00050721_JPRB,0.00004141_JPRB/) |
54 |
|
|
|
55 |
|
|
FRACREFBO( :) = (/& |
56 |
|
|
! From P = 0.64 mb. |
57 |
|
|
& 0.19128500_JPRB,0.16495700_JPRB,0.14146100_JPRB,0.11904500_JPRB,& |
58 |
|
|
& 0.10350200_JPRB,0.09151190_JPRB,0.07604270_JPRB,0.05806020_JPRB,& |
59 |
|
|
& 0.03979950_JPRB,0.00423959_JPRB,0.00357439_JPRB,0.00287559_JPRB,& |
60 |
|
1 |
& 0.00198860_JPRB,0.00116529_JPRB,0.00043616_JPRB,0.00005987_JPRB/) |
61 |
|
|
|
62 |
|
|
! ------------------------------------------------------------------ |
63 |
|
|
|
64 |
|
|
! The array KAO contains absorption coefs at the 16 chosen g-values |
65 |
|
|
! for a range of pressure levels > ~100mb and temperatures. The first |
66 |
|
|
! index in the array, JT, which runs from 1 to 5, corresponds to |
67 |
|
|
! different temperatures. More specifically, JT = 3 means that the |
68 |
|
|
! data are for the corresponding TREF for this pressure level, |
69 |
|
|
! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, |
70 |
|
|
! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second |
71 |
|
|
! index, JP, runs from 1 to 13 and refers to the corresponding |
72 |
|
|
! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb). |
73 |
|
|
! The third index, IG, goes from 1 to 16, and tells us which |
74 |
|
|
! g-interval the absorption coefficients are for. |
75 |
|
|
|
76 |
|
|
KAO( :, 1, 1) = (/& |
77 |
✓✓ |
6 |
& 3.5949E-01_JPRB,3.8238E-01_JPRB,4.1007E-01_JPRB,4.4339E-01_JPRB,4.8230E-01_JPRB/) |
78 |
|
|
KAO( :, 2, 1) = (/& |
79 |
✓✓ |
6 |
& 3.0485E-01_JPRB,3.2295E-01_JPRB,3.4552E-01_JPRB,3.7333E-01_JPRB,4.0603E-01_JPRB/) |
80 |
|
|
KAO( :, 3, 1) = (/& |
81 |
✓✓ |
6 |
& 2.5422E-01_JPRB,2.6754E-01_JPRB,2.8483E-01_JPRB,3.0668E-01_JPRB,3.3252E-01_JPRB/) |
82 |
|
|
KAO( :, 4, 1) = (/& |
83 |
✓✓ |
6 |
& 2.1093E-01_JPRB,2.2073E-01_JPRB,2.3378E-01_JPRB,2.5076E-01_JPRB,2.7135E-01_JPRB/) |
84 |
|
|
KAO( :, 5, 1) = (/& |
85 |
✓✓ |
6 |
& 1.7483E-01_JPRB,1.8205E-01_JPRB,1.9194E-01_JPRB,2.0512E-01_JPRB,2.2145E-01_JPRB/) |
86 |
|
|
KAO( :, 6, 1) = (/& |
87 |
✓✓ |
6 |
& 1.4472E-01_JPRB,1.4992E-01_JPRB,1.5732E-01_JPRB,1.6735E-01_JPRB,1.8017E-01_JPRB/) |
88 |
|
|
KAO( :, 7, 1) = (/& |
89 |
✓✓ |
6 |
& 1.1982E-01_JPRB,1.2359E-01_JPRB,1.2898E-01_JPRB,1.3657E-01_JPRB,1.4653E-01_JPRB/) |
90 |
|
|
KAO( :, 8, 1) = (/& |
91 |
✓✓ |
6 |
& 9.9228E-02_JPRB,1.0198E-01_JPRB,1.0592E-01_JPRB,1.1158E-01_JPRB,1.1926E-01_JPRB/) |
92 |
|
|
KAO( :, 9, 1) = (/& |
93 |
✓✓ |
6 |
& 8.2262E-02_JPRB,8.4210E-02_JPRB,8.7109E-02_JPRB,9.1293E-02_JPRB,9.7123E-02_JPRB/) |
94 |
|
|
KAO( :,10, 1) = (/& |
95 |
✓✓ |
6 |
& 6.8209E-02_JPRB,6.9606E-02_JPRB,7.1781E-02_JPRB,7.4983E-02_JPRB,7.9504E-02_JPRB/) |
96 |
|
|
KAO( :,11, 1) = (/& |
97 |
✓✓ |
6 |
& 5.6845E-02_JPRB,5.8087E-02_JPRB,6.0031E-02_JPRB,6.2957E-02_JPRB,6.7037E-02_JPRB/) |
98 |
|
|
KAO( :,12, 1) = (/& |
99 |
✓✓ |
6 |
& 4.7244E-02_JPRB,4.8375E-02_JPRB,5.0140E-02_JPRB,5.2785E-02_JPRB,5.6455E-02_JPRB/) |
100 |
|
|
KAO( :,13, 1) = (/& |
101 |
✓✓ |
6 |
& 3.9170E-02_JPRB,4.0208E-02_JPRB,4.1811E-02_JPRB,4.4178E-02_JPRB,4.7427E-02_JPRB/) |
102 |
|
|
KAO( :, 1, 2) = (/& |
103 |
✓✓ |
6 |
& 1.2872E+00_JPRB,1.3933E+00_JPRB,1.5229E+00_JPRB,1.6818E+00_JPRB,1.8746E+00_JPRB/) |
104 |
|
|
KAO( :, 2, 2) = (/& |
105 |
✓✓ |
6 |
& 1.1067E+00_JPRB,1.2035E+00_JPRB,1.3215E+00_JPRB,1.4648E+00_JPRB,1.6373E+00_JPRB/) |
106 |
|
|
KAO( :, 3, 2) = (/& |
107 |
✓✓ |
6 |
& 9.2875E-01_JPRB,1.0145E+00_JPRB,1.1171E+00_JPRB,1.2402E+00_JPRB,1.3874E+00_JPRB/) |
108 |
|
|
KAO( :, 4, 2) = (/& |
109 |
✓✓ |
6 |
& 7.7024E-01_JPRB,8.4470E-01_JPRB,9.3397E-01_JPRB,1.0398E+00_JPRB,1.1644E+00_JPRB/) |
110 |
|
|
KAO( :, 5, 2) = (/& |
111 |
✓✓ |
6 |
& 6.3547E-01_JPRB,6.9999E-01_JPRB,7.7719E-01_JPRB,8.6762E-01_JPRB,9.7354E-01_JPRB/) |
112 |
|
|
KAO( :, 6, 2) = (/& |
113 |
✓✓ |
6 |
& 5.2029E-01_JPRB,5.7514E-01_JPRB,6.4113E-01_JPRB,7.1778E-01_JPRB,8.0690E-01_JPRB/) |
114 |
|
|
KAO( :, 7, 2) = (/& |
115 |
✓✓ |
6 |
& 4.2402E-01_JPRB,4.7059E-01_JPRB,5.2574E-01_JPRB,5.9013E-01_JPRB,6.6415E-01_JPRB/) |
116 |
|
|
KAO( :, 8, 2) = (/& |
117 |
✓✓ |
6 |
& 3.4478E-01_JPRB,3.8240E-01_JPRB,4.2694E-01_JPRB,4.7936E-01_JPRB,5.3995E-01_JPRB/) |
118 |
|
|
KAO( :, 9, 2) = (/& |
119 |
✓✓ |
6 |
& 2.7872E-01_JPRB,3.0857E-01_JPRB,3.4389E-01_JPRB,3.8559E-01_JPRB,4.3444E-01_JPRB/) |
120 |
|
|
KAO( :,10, 2) = (/& |
121 |
✓✓ |
6 |
& 2.2596E-01_JPRB,2.5018E-01_JPRB,2.7837E-01_JPRB,3.1178E-01_JPRB,3.5123E-01_JPRB/) |
122 |
|
|
KAO( :,11, 2) = (/& |
123 |
✓✓ |
6 |
& 1.9149E-01_JPRB,2.1236E-01_JPRB,2.3673E-01_JPRB,2.6562E-01_JPRB,2.9993E-01_JPRB/) |
124 |
|
|
KAO( :,12, 2) = (/& |
125 |
✓✓ |
6 |
& 1.6195E-01_JPRB,1.7991E-01_JPRB,2.0098E-01_JPRB,2.2594E-01_JPRB,2.5567E-01_JPRB/) |
126 |
|
|
KAO( :,13, 2) = (/& |
127 |
✓✓ |
6 |
& 1.3643E-01_JPRB,1.5192E-01_JPRB,1.7016E-01_JPRB,1.9179E-01_JPRB,2.1776E-01_JPRB/) |
128 |
|
|
KAO( :, 1, 3) = (/& |
129 |
✓✓ |
6 |
& 5.3360E+00_JPRB,5.9602E+00_JPRB,6.6311E+00_JPRB,7.3500E+00_JPRB,8.1211E+00_JPRB/) |
130 |
|
|
KAO( :, 2, 3) = (/& |
131 |
✓✓ |
6 |
& 4.6843E+00_JPRB,5.2481E+00_JPRB,5.8517E+00_JPRB,6.5055E+00_JPRB,7.2045E+00_JPRB/) |
132 |
|
|
KAO( :, 3, 3) = (/& |
133 |
✓✓ |
6 |
& 3.9306E+00_JPRB,4.4236E+00_JPRB,4.9546E+00_JPRB,5.5277E+00_JPRB,6.1375E+00_JPRB/) |
134 |
|
|
KAO( :, 4, 3) = (/& |
135 |
✓✓ |
6 |
& 3.2173E+00_JPRB,3.6357E+00_JPRB,4.0925E+00_JPRB,4.5878E+00_JPRB,5.1170E+00_JPRB/) |
136 |
|
|
KAO( :, 5, 3) = (/& |
137 |
✓✓ |
6 |
& 2.5942E+00_JPRB,2.9460E+00_JPRB,3.3334E+00_JPRB,3.7556E+00_JPRB,4.2107E+00_JPRB/) |
138 |
|
|
KAO( :, 6, 3) = (/& |
139 |
✓✓ |
6 |
& 2.0555E+00_JPRB,2.3477E+00_JPRB,2.6712E+00_JPRB,3.0269E+00_JPRB,3.4138E+00_JPRB/) |
140 |
|
|
KAO( :, 7, 3) = (/& |
141 |
✓✓ |
6 |
& 1.6118E+00_JPRB,1.8526E+00_JPRB,2.1224E+00_JPRB,2.4196E+00_JPRB,2.7460E+00_JPRB/) |
142 |
|
|
KAO( :, 8, 3) = (/& |
143 |
✓✓ |
6 |
& 1.2564E+00_JPRB,1.4546E+00_JPRB,1.6794E+00_JPRB,1.9292E+00_JPRB,2.2031E+00_JPRB/) |
144 |
|
|
KAO( :, 9, 3) = (/& |
145 |
✓✓ |
6 |
& 9.7439E-01_JPRB,1.1371E+00_JPRB,1.3228E+00_JPRB,1.5317E+00_JPRB,1.7615E+00_JPRB/) |
146 |
|
|
KAO( :,10, 3) = (/& |
147 |
✓✓ |
6 |
& 7.6284E-01_JPRB,8.9693E-01_JPRB,1.0511E+00_JPRB,1.2260E+00_JPRB,1.4196E+00_JPRB/) |
148 |
|
|
KAO( :,11, 3) = (/& |
149 |
✓✓ |
6 |
& 6.4505E-01_JPRB,7.6321E-01_JPRB,8.9939E-01_JPRB,1.0531E+00_JPRB,1.2207E+00_JPRB/) |
150 |
|
|
KAO( :,12, 3) = (/& |
151 |
✓✓ |
6 |
& 5.4741E-01_JPRB,6.5142E-01_JPRB,7.6976E-01_JPRB,9.0081E-01_JPRB,1.0418E+00_JPRB/) |
152 |
|
|
KAO( :,13, 3) = (/& |
153 |
✓✓ |
6 |
& 4.6530E-01_JPRB,5.5436E-01_JPRB,6.5441E-01_JPRB,7.6383E-01_JPRB,8.8219E-01_JPRB/) |
154 |
|
|
KAO( :, 1, 4) = (/& |
155 |
✓✓ |
6 |
& 1.6152E+01_JPRB,1.7527E+01_JPRB,1.8781E+01_JPRB,1.9894E+01_JPRB,2.0832E+01_JPRB/) |
156 |
|
|
KAO( :, 2, 4) = (/& |
157 |
✓✓ |
6 |
& 1.4046E+01_JPRB,1.5178E+01_JPRB,1.6195E+01_JPRB,1.7086E+01_JPRB,1.7867E+01_JPRB/) |
158 |
|
|
KAO( :, 3, 4) = (/& |
159 |
✓✓ |
6 |
& 1.2099E+01_JPRB,1.3048E+01_JPRB,1.3899E+01_JPRB,1.4662E+01_JPRB,1.5345E+01_JPRB/) |
160 |
|
|
KAO( :, 4, 4) = (/& |
161 |
✓✓ |
6 |
& 1.0250E+01_JPRB,1.1071E+01_JPRB,1.1812E+01_JPRB,1.2480E+01_JPRB,1.3082E+01_JPRB/) |
162 |
|
|
KAO( :, 5, 4) = (/& |
163 |
✓✓ |
6 |
& 8.5710E+00_JPRB,9.2814E+00_JPRB,9.9329E+00_JPRB,1.0519E+01_JPRB,1.1047E+01_JPRB/) |
164 |
|
|
KAO( :, 6, 4) = (/& |
165 |
✓✓ |
6 |
& 7.0718E+00_JPRB,7.6889E+00_JPRB,8.2584E+00_JPRB,8.7766E+00_JPRB,9.2483E+00_JPRB/) |
166 |
|
|
KAO( :, 7, 4) = (/& |
167 |
✓✓ |
6 |
& 5.7749E+00_JPRB,6.3070E+00_JPRB,6.8047E+00_JPRB,7.2640E+00_JPRB,7.6824E+00_JPRB/) |
168 |
|
|
KAO( :, 8, 4) = (/& |
169 |
✓✓ |
6 |
& 4.6724E+00_JPRB,5.1283E+00_JPRB,5.5581E+00_JPRB,5.9613E+00_JPRB,6.3358E+00_JPRB/) |
170 |
|
|
KAO( :, 9, 4) = (/& |
171 |
✓✓ |
6 |
& 3.7440E+00_JPRB,4.1328E+00_JPRB,4.5018E+00_JPRB,4.8548E+00_JPRB,5.1877E+00_JPRB/) |
172 |
|
|
KAO( :,10, 4) = (/& |
173 |
✓✓ |
6 |
& 2.9973E+00_JPRB,3.3277E+00_JPRB,3.6442E+00_JPRB,3.9507E+00_JPRB,4.2451E+00_JPRB/) |
174 |
|
|
KAO( :,11, 4) = (/& |
175 |
✓✓ |
6 |
& 2.5128E+00_JPRB,2.7893E+00_JPRB,3.0562E+00_JPRB,3.3207E+00_JPRB,3.5778E+00_JPRB/) |
176 |
|
|
KAO( :,12, 4) = (/& |
177 |
✓✓ |
6 |
& 2.1002E+00_JPRB,2.3318E+00_JPRB,2.5620E+00_JPRB,2.7945E+00_JPRB,3.0199E+00_JPRB/) |
178 |
|
|
KAO( :,13, 4) = (/& |
179 |
✓✓ |
6 |
& 1.7517E+00_JPRB,1.9494E+00_JPRB,2.1523E+00_JPRB,2.3581E+00_JPRB,2.5501E+00_JPRB/) |
180 |
|
|
KAO( :, 1, 5) = (/& |
181 |
✓✓ |
6 |
& 3.4751E+01_JPRB,3.5230E+01_JPRB,3.5638E+01_JPRB,3.5981E+01_JPRB,3.6301E+01_JPRB/) |
182 |
|
|
KAO( :, 2, 5) = (/& |
183 |
✓✓ |
6 |
& 2.9729E+01_JPRB,3.0178E+01_JPRB,3.0562E+01_JPRB,3.0895E+01_JPRB,3.1160E+01_JPRB/) |
184 |
|
|
KAO( :, 3, 5) = (/& |
185 |
✓✓ |
6 |
& 2.5226E+01_JPRB,2.5646E+01_JPRB,2.6010E+01_JPRB,2.6290E+01_JPRB,2.6514E+01_JPRB/) |
186 |
|
|
KAO( :, 4, 5) = (/& |
187 |
✓✓ |
6 |
& 2.1570E+01_JPRB,2.1943E+01_JPRB,2.2252E+01_JPRB,2.2465E+01_JPRB,2.2652E+01_JPRB/) |
188 |
|
|
KAO( :, 5, 5) = (/& |
189 |
✓✓ |
6 |
& 1.8526E+01_JPRB,1.8854E+01_JPRB,1.9098E+01_JPRB,1.9261E+01_JPRB,1.9423E+01_JPRB/) |
190 |
|
|
KAO( :, 6, 5) = (/& |
191 |
✓✓ |
6 |
& 1.5776E+01_JPRB,1.6061E+01_JPRB,1.6258E+01_JPRB,1.6386E+01_JPRB,1.6522E+01_JPRB/) |
192 |
|
|
KAO( :, 7, 5) = (/& |
193 |
✓✓ |
6 |
& 1.3340E+01_JPRB,1.3594E+01_JPRB,1.3756E+01_JPRB,1.3864E+01_JPRB,1.3982E+01_JPRB/) |
194 |
|
|
KAO( :, 8, 5) = (/& |
195 |
✓✓ |
6 |
& 1.1233E+01_JPRB,1.1458E+01_JPRB,1.1599E+01_JPRB,1.1693E+01_JPRB,1.1791E+01_JPRB/) |
196 |
|
|
KAO( :, 9, 5) = (/& |
197 |
✓✓ |
6 |
& 9.4215E+00_JPRB,9.6164E+00_JPRB,9.7423E+00_JPRB,9.8254E+00_JPRB,9.9049E+00_JPRB/) |
198 |
|
|
KAO( :,10, 5) = (/& |
199 |
✓✓ |
6 |
& 7.8744E+00_JPRB,8.0390E+00_JPRB,8.1492E+00_JPRB,8.2195E+00_JPRB,8.2844E+00_JPRB/) |
200 |
|
|
KAO( :,11, 5) = (/& |
201 |
✓✓ |
6 |
& 6.6269E+00_JPRB,6.7416E+00_JPRB,6.8204E+00_JPRB,6.8736E+00_JPRB,6.9401E+00_JPRB/) |
202 |
|
|
KAO( :,12, 5) = (/& |
203 |
✓✓ |
6 |
& 5.5397E+00_JPRB,5.6256E+00_JPRB,5.6856E+00_JPRB,5.7347E+00_JPRB,5.8086E+00_JPRB/) |
204 |
|
|
KAO( :,13, 5) = (/& |
205 |
✓✓ |
6 |
& 4.6101E+00_JPRB,4.6786E+00_JPRB,4.7276E+00_JPRB,4.7772E+00_JPRB,4.8596E+00_JPRB/) |
206 |
|
|
KAO( :, 1, 6) = (/& |
207 |
✓✓ |
6 |
& 5.5130E+01_JPRB,5.5331E+01_JPRB,5.5751E+01_JPRB,5.6249E+01_JPRB,5.6765E+01_JPRB/) |
208 |
|
|
KAO( :, 2, 6) = (/& |
209 |
✓✓ |
6 |
& 4.8314E+01_JPRB,4.8735E+01_JPRB,4.9176E+01_JPRB,4.9631E+01_JPRB,5.0143E+01_JPRB/) |
210 |
|
|
KAO( :, 3, 6) = (/& |
211 |
✓✓ |
6 |
& 4.2059E+01_JPRB,4.2411E+01_JPRB,4.2762E+01_JPRB,4.3188E+01_JPRB,4.3691E+01_JPRB/) |
212 |
|
|
KAO( :, 4, 6) = (/& |
213 |
✓✓ |
6 |
& 3.6248E+01_JPRB,3.6478E+01_JPRB,3.6774E+01_JPRB,3.7187E+01_JPRB,3.7662E+01_JPRB/) |
214 |
|
|
KAO( :, 5, 6) = (/& |
215 |
✓✓ |
6 |
& 3.1107E+01_JPRB,3.1277E+01_JPRB,3.1534E+01_JPRB,3.1919E+01_JPRB,3.2341E+01_JPRB/) |
216 |
|
|
KAO( :, 6, 6) = (/& |
217 |
✓✓ |
6 |
& 2.6880E+01_JPRB,2.7008E+01_JPRB,2.7229E+01_JPRB,2.7549E+01_JPRB,2.7880E+01_JPRB/) |
218 |
|
|
KAO( :, 7, 6) = (/& |
219 |
✓✓ |
6 |
& 2.3158E+01_JPRB,2.3247E+01_JPRB,2.3429E+01_JPRB,2.3676E+01_JPRB,2.3946E+01_JPRB/) |
220 |
|
|
KAO( :, 8, 6) = (/& |
221 |
✓✓ |
6 |
& 1.9829E+01_JPRB,1.9879E+01_JPRB,2.0010E+01_JPRB,2.0196E+01_JPRB,2.0418E+01_JPRB/) |
222 |
|
|
KAO( :, 9, 6) = (/& |
223 |
✓✓ |
6 |
& 1.6898E+01_JPRB,1.6922E+01_JPRB,1.7013E+01_JPRB,1.7148E+01_JPRB,1.7325E+01_JPRB/) |
224 |
|
|
KAO( :,10, 6) = (/& |
225 |
✓✓ |
6 |
& 1.4366E+01_JPRB,1.4373E+01_JPRB,1.4439E+01_JPRB,1.4534E+01_JPRB,1.4675E+01_JPRB/) |
226 |
|
|
KAO( :,11, 6) = (/& |
227 |
✓✓ |
6 |
& 1.2164E+01_JPRB,1.2183E+01_JPRB,1.2231E+01_JPRB,1.2319E+01_JPRB,1.2450E+01_JPRB/) |
228 |
|
|
KAO( :,12, 6) = (/& |
229 |
✓✓ |
6 |
& 1.0258E+01_JPRB,1.0264E+01_JPRB,1.0303E+01_JPRB,1.0384E+01_JPRB,1.0512E+01_JPRB/) |
230 |
|
|
KAO( :,13, 6) = (/& |
231 |
✓✓ |
6 |
& 8.6118E+00_JPRB,8.6082E+00_JPRB,8.6451E+00_JPRB,8.7236E+00_JPRB,8.8552E+00_JPRB/) |
232 |
|
|
KAO( :, 1, 7) = (/& |
233 |
✓✓ |
6 |
& 9.6613E+01_JPRB,9.5560E+01_JPRB,9.4868E+01_JPRB,9.4707E+01_JPRB,9.5047E+01_JPRB/) |
234 |
|
|
KAO( :, 2, 7) = (/& |
235 |
✓✓ |
6 |
& 8.5378E+01_JPRB,8.4844E+01_JPRB,8.4980E+01_JPRB,8.5705E+01_JPRB,8.6820E+01_JPRB/) |
236 |
|
|
KAO( :, 3, 7) = (/& |
237 |
✓✓ |
6 |
& 7.4914E+01_JPRB,7.5068E+01_JPRB,7.5864E+01_JPRB,7.7176E+01_JPRB,7.8814E+01_JPRB/) |
238 |
|
|
KAO( :, 4, 7) = (/& |
239 |
✓✓ |
6 |
& 6.5406E+01_JPRB,6.6072E+01_JPRB,6.7363E+01_JPRB,6.9077E+01_JPRB,7.0805E+01_JPRB/) |
240 |
|
|
KAO( :, 5, 7) = (/& |
241 |
✓✓ |
6 |
& 5.6834E+01_JPRB,5.7880E+01_JPRB,5.9486E+01_JPRB,6.1110E+01_JPRB,6.2642E+01_JPRB/) |
242 |
|
|
KAO( :, 6, 7) = (/& |
243 |
✓✓ |
6 |
& 4.9134E+01_JPRB,5.0398E+01_JPRB,5.1914E+01_JPRB,5.3305E+01_JPRB,5.4686E+01_JPRB/) |
244 |
|
|
KAO( :, 7, 7) = (/& |
245 |
✓✓ |
6 |
& 4.2637E+01_JPRB,4.3892E+01_JPRB,4.5117E+01_JPRB,4.6325E+01_JPRB,4.7499E+01_JPRB/) |
246 |
|
|
KAO( :, 8, 7) = (/& |
247 |
✓✓ |
6 |
& 3.7229E+01_JPRB,3.8287E+01_JPRB,3.9278E+01_JPRB,4.0285E+01_JPRB,4.1280E+01_JPRB/) |
248 |
|
|
KAO( :, 9, 7) = (/& |
249 |
✓✓ |
6 |
& 3.2369E+01_JPRB,3.3232E+01_JPRB,3.4050E+01_JPRB,3.4909E+01_JPRB,3.5773E+01_JPRB/) |
250 |
|
|
KAO( :,10, 7) = (/& |
251 |
✓✓ |
6 |
& 2.7964E+01_JPRB,2.8642E+01_JPRB,2.9313E+01_JPRB,3.0048E+01_JPRB,3.0775E+01_JPRB/) |
252 |
|
|
KAO( :,11, 7) = (/& |
253 |
✓✓ |
6 |
& 2.4270E+01_JPRB,2.4795E+01_JPRB,2.5375E+01_JPRB,2.5988E+01_JPRB,2.6571E+01_JPRB/) |
254 |
|
|
KAO( :,12, 7) = (/& |
255 |
✓✓ |
6 |
& 2.0936E+01_JPRB,2.1384E+01_JPRB,2.1881E+01_JPRB,2.2373E+01_JPRB,2.2843E+01_JPRB/) |
256 |
|
|
KAO( :,13, 7) = (/& |
257 |
✓✓ |
6 |
& 1.7997E+01_JPRB,1.8384E+01_JPRB,1.8786E+01_JPRB,1.9175E+01_JPRB,1.9563E+01_JPRB/) |
258 |
|
|
KAO( :, 1, 8) = (/& |
259 |
✓✓ |
6 |
& 2.1875E+02_JPRB,2.1582E+02_JPRB,2.1296E+02_JPRB,2.1003E+02_JPRB,2.0715E+02_JPRB/) |
260 |
|
|
KAO( :, 2, 8) = (/& |
261 |
✓✓ |
6 |
& 2.0320E+02_JPRB,2.0039E+02_JPRB,1.9765E+02_JPRB,1.9490E+02_JPRB,1.9237E+02_JPRB/) |
262 |
|
|
KAO( :, 3, 8) = (/& |
263 |
✓✓ |
6 |
& 1.8600E+02_JPRB,1.8334E+02_JPRB,1.8077E+02_JPRB,1.7842E+02_JPRB,1.7627E+02_JPRB/) |
264 |
|
|
KAO( :, 4, 8) = (/& |
265 |
✓✓ |
6 |
& 1.6777E+02_JPRB,1.6536E+02_JPRB,1.6312E+02_JPRB,1.6113E+02_JPRB,1.5989E+02_JPRB/) |
266 |
|
|
KAO( :, 5, 8) = (/& |
267 |
✓✓ |
6 |
& 1.4943E+02_JPRB,1.4725E+02_JPRB,1.4535E+02_JPRB,1.4437E+02_JPRB,1.4430E+02_JPRB/) |
268 |
|
|
KAO( :, 6, 8) = (/& |
269 |
✓✓ |
6 |
& 1.3133E+02_JPRB,1.2945E+02_JPRB,1.2835E+02_JPRB,1.2837E+02_JPRB,1.2929E+02_JPRB/) |
270 |
|
|
KAO( :, 7, 8) = (/& |
271 |
✓✓ |
6 |
& 1.1418E+02_JPRB,1.1273E+02_JPRB,1.1250E+02_JPRB,1.1334E+02_JPRB,1.1514E+02_JPRB/) |
272 |
|
|
KAO( :, 8, 8) = (/& |
273 |
✓✓ |
6 |
& 9.8405E+01_JPRB,9.7565E+01_JPRB,9.8029E+01_JPRB,9.9545E+01_JPRB,1.0201E+02_JPRB/) |
274 |
|
|
KAO( :, 9, 8) = (/& |
275 |
✓✓ |
6 |
& 8.4682E+01_JPRB,8.4331E+01_JPRB,8.5271E+01_JPRB,8.7263E+01_JPRB,9.0114E+01_JPRB/) |
276 |
|
|
KAO( :,10, 8) = (/& |
277 |
✓✓ |
6 |
& 7.3042E+01_JPRB,7.3160E+01_JPRB,7.4507E+01_JPRB,7.6830E+01_JPRB,7.9492E+01_JPRB/) |
278 |
|
|
KAO( :,11, 8) = (/& |
279 |
✓✓ |
6 |
& 6.3320E+01_JPRB,6.4346E+01_JPRB,6.6364E+01_JPRB,6.8605E+01_JPRB,7.0750E+01_JPRB/) |
280 |
|
|
KAO( :,12, 8) = (/& |
281 |
✓✓ |
6 |
& 5.5520E+01_JPRB,5.7127E+01_JPRB,5.9034E+01_JPRB,6.0843E+01_JPRB,6.2628E+01_JPRB/) |
282 |
|
|
KAO( :,13, 8) = (/& |
283 |
✓✓ |
6 |
& 4.8720E+01_JPRB,5.0320E+01_JPRB,5.1854E+01_JPRB,5.3381E+01_JPRB,5.4848E+01_JPRB/) |
284 |
|
|
KAO( :, 1, 9) = (/& |
285 |
✓✓ |
6 |
& 5.5976E+02_JPRB,5.5606E+02_JPRB,5.5170E+02_JPRB,5.4679E+02_JPRB,5.4142E+02_JPRB/) |
286 |
|
|
KAO( :, 2, 9) = (/& |
287 |
✓✓ |
6 |
& 5.7991E+02_JPRB,5.7550E+02_JPRB,5.7048E+02_JPRB,5.6499E+02_JPRB,5.5881E+02_JPRB/) |
288 |
|
|
KAO( :, 3, 9) = (/& |
289 |
✓✓ |
6 |
& 5.9128E+02_JPRB,5.8623E+02_JPRB,5.8077E+02_JPRB,5.7450E+02_JPRB,5.6801E+02_JPRB/) |
290 |
|
|
KAO( :, 4, 9) = (/& |
291 |
✓✓ |
6 |
& 5.9173E+02_JPRB,5.8627E+02_JPRB,5.8008E+02_JPRB,5.7365E+02_JPRB,5.6657E+02_JPRB/) |
292 |
|
|
KAO( :, 5, 9) = (/& |
293 |
✓✓ |
6 |
& 5.8078E+02_JPRB,5.7460E+02_JPRB,5.6816E+02_JPRB,5.6109E+02_JPRB,5.5382E+02_JPRB/) |
294 |
|
|
KAO( :, 6, 9) = (/& |
295 |
✓✓ |
6 |
& 5.6004E+02_JPRB,5.5342E+02_JPRB,5.4648E+02_JPRB,5.3935E+02_JPRB,5.3177E+02_JPRB/) |
296 |
|
|
KAO( :, 7, 9) = (/& |
297 |
✓✓ |
6 |
& 5.3020E+02_JPRB,5.2344E+02_JPRB,5.1623E+02_JPRB,5.0891E+02_JPRB,5.0146E+02_JPRB/) |
298 |
|
|
KAO( :, 8, 9) = (/& |
299 |
✓✓ |
6 |
& 4.9306E+02_JPRB,4.8589E+02_JPRB,4.7879E+02_JPRB,4.7156E+02_JPRB,4.6424E+02_JPRB/) |
300 |
|
|
KAO( :, 9, 9) = (/& |
301 |
✓✓ |
6 |
& 4.5109E+02_JPRB,4.4398E+02_JPRB,4.3682E+02_JPRB,4.2990E+02_JPRB,4.2317E+02_JPRB/) |
302 |
|
|
KAO( :,10, 9) = (/& |
303 |
✓✓ |
6 |
& 4.0554E+02_JPRB,3.9861E+02_JPRB,3.9191E+02_JPRB,3.8539E+02_JPRB,3.7999E+02_JPRB/) |
304 |
|
|
KAO( :,11, 9) = (/& |
305 |
✓✓ |
6 |
& 3.5678E+02_JPRB,3.5028E+02_JPRB,3.4422E+02_JPRB,3.3949E+02_JPRB,3.3677E+02_JPRB/) |
306 |
|
|
KAO( :,12, 9) = (/& |
307 |
✓✓ |
6 |
& 3.0997E+02_JPRB,3.0426E+02_JPRB,2.9997E+02_JPRB,2.9770E+02_JPRB,2.9720E+02_JPRB/) |
308 |
|
|
KAO( :,13, 9) = (/& |
309 |
✓✓ |
6 |
& 2.6709E+02_JPRB,2.6293E+02_JPRB,2.6082E+02_JPRB,2.6061E+02_JPRB,2.6217E+02_JPRB/) |
310 |
|
|
KAO( :, 1,10) = (/& |
311 |
✓✓ |
6 |
& 9.5728E+02_JPRB,9.5690E+02_JPRB,9.5401E+02_JPRB,9.5007E+02_JPRB,9.4420E+02_JPRB/) |
312 |
|
|
KAO( :, 2,10) = (/& |
313 |
✓✓ |
6 |
& 1.0745E+03_JPRB,1.0719E+03_JPRB,1.0680E+03_JPRB,1.0623E+03_JPRB,1.0552E+03_JPRB/) |
314 |
|
|
KAO( :, 3,10) = (/& |
315 |
✓✓ |
6 |
& 1.1871E+03_JPRB,1.1845E+03_JPRB,1.1802E+03_JPRB,1.1737E+03_JPRB,1.1657E+03_JPRB/) |
316 |
|
|
KAO( :, 4,10) = (/& |
317 |
✓✓ |
6 |
& 1.2933E+03_JPRB,1.2895E+03_JPRB,1.2845E+03_JPRB,1.2769E+03_JPRB,1.2684E+03_JPRB/) |
318 |
|
|
KAO( :, 5,10) = (/& |
319 |
✓✓ |
6 |
& 1.3871E+03_JPRB,1.3843E+03_JPRB,1.3770E+03_JPRB,1.3701E+03_JPRB,1.3589E+03_JPRB/) |
320 |
|
|
KAO( :, 6,10) = (/& |
321 |
✓✓ |
6 |
& 1.4584E+03_JPRB,1.4525E+03_JPRB,1.4462E+03_JPRB,1.4355E+03_JPRB,1.4255E+03_JPRB/) |
322 |
|
|
KAO( :, 7,10) = (/& |
323 |
✓✓ |
6 |
& 1.5042E+03_JPRB,1.4961E+03_JPRB,1.4859E+03_JPRB,1.4751E+03_JPRB,1.4602E+03_JPRB/) |
324 |
|
|
KAO( :, 8,10) = (/& |
325 |
✓✓ |
6 |
& 1.5189E+03_JPRB,1.5105E+03_JPRB,1.4981E+03_JPRB,1.4842E+03_JPRB,1.4701E+03_JPRB/) |
326 |
|
|
KAO( :, 9,10) = (/& |
327 |
✓✓ |
6 |
& 1.5016E+03_JPRB,1.4885E+03_JPRB,1.4763E+03_JPRB,1.4608E+03_JPRB,1.4435E+03_JPRB/) |
328 |
|
|
KAO( :,10,10) = (/& |
329 |
✓✓ |
6 |
& 1.4531E+03_JPRB,1.4390E+03_JPRB,1.4217E+03_JPRB,1.4053E+03_JPRB,1.3883E+03_JPRB/) |
330 |
|
|
KAO( :,11,10) = (/& |
331 |
✓✓ |
6 |
& 1.3673E+03_JPRB,1.3498E+03_JPRB,1.3324E+03_JPRB,1.3154E+03_JPRB,1.2964E+03_JPRB/) |
332 |
|
|
KAO( :,12,10) = (/& |
333 |
✓✓ |
6 |
& 1.2564E+03_JPRB,1.2384E+03_JPRB,1.2210E+03_JPRB,1.2031E+03_JPRB,1.1837E+03_JPRB/) |
334 |
|
|
KAO( :,13,10) = (/& |
335 |
✓✓ |
6 |
& 1.1371E+03_JPRB,1.1192E+03_JPRB,1.1015E+03_JPRB,1.0830E+03_JPRB,1.0644E+03_JPRB/) |
336 |
|
|
KAO( :, 1,11) = (/& |
337 |
✓✓ |
6 |
& 1.0794E+03_JPRB,1.0788E+03_JPRB,1.0790E+03_JPRB,1.0769E+03_JPRB,1.0715E+03_JPRB/) |
338 |
|
|
|
339 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART1',1,ZHOOK_HANDLE) |
340 |
|
1 |
END SUBROUTINE PART1 |
341 |
|
|
|
342 |
|
|
|
343 |
|
1 |
SUBROUTINE PART2 |
344 |
|
|
|
345 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
346 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART2',0,ZHOOK_HANDLE) |
347 |
|
|
|
348 |
|
|
|
349 |
|
|
KAO( :, 2,11) = (/& |
350 |
✓✓ |
6 |
& 1.2369E+03_JPRB,1.2394E+03_JPRB,1.2387E+03_JPRB,1.2348E+03_JPRB,1.2284E+03_JPRB/) |
351 |
|
|
KAO( :, 3,11) = (/& |
352 |
✓✓ |
6 |
& 1.4037E+03_JPRB,1.4057E+03_JPRB,1.4048E+03_JPRB,1.4010E+03_JPRB,1.3938E+03_JPRB/) |
353 |
|
|
KAO( :, 4,11) = (/& |
354 |
✓✓ |
6 |
& 1.5772E+03_JPRB,1.5782E+03_JPRB,1.5766E+03_JPRB,1.5700E+03_JPRB,1.5626E+03_JPRB/) |
355 |
|
|
KAO( :, 5,11) = (/& |
356 |
✓✓ |
6 |
& 1.7441E+03_JPRB,1.7459E+03_JPRB,1.7422E+03_JPRB,1.7359E+03_JPRB,1.7270E+03_JPRB/) |
357 |
|
|
KAO( :, 6,11) = (/& |
358 |
✓✓ |
6 |
& 1.9017E+03_JPRB,1.9021E+03_JPRB,1.8960E+03_JPRB,1.8905E+03_JPRB,1.8786E+03_JPRB/) |
359 |
|
|
KAO( :, 7,11) = (/& |
360 |
✓✓ |
6 |
& 2.0395E+03_JPRB,2.0360E+03_JPRB,2.0330E+03_JPRB,2.0229E+03_JPRB,2.0133E+03_JPRB/) |
361 |
|
|
KAO( :, 8,11) = (/& |
362 |
✓✓ |
6 |
& 2.1454E+03_JPRB,2.1404E+03_JPRB,2.1335E+03_JPRB,2.1240E+03_JPRB,2.1091E+03_JPRB/) |
363 |
|
|
KAO( :, 9,11) = (/& |
364 |
✓✓ |
6 |
& 2.2123E+03_JPRB,2.2075E+03_JPRB,2.1945E+03_JPRB,2.1814E+03_JPRB,2.1649E+03_JPRB/) |
365 |
|
|
KAO( :,10,11) = (/& |
366 |
✓✓ |
6 |
& 2.2367E+03_JPRB,2.2244E+03_JPRB,2.2129E+03_JPRB,2.1949E+03_JPRB,2.1755E+03_JPRB/) |
367 |
|
|
KAO( :,11,11) = (/& |
368 |
✓✓ |
6 |
& 2.2036E+03_JPRB,2.1899E+03_JPRB,2.1713E+03_JPRB,2.1494E+03_JPRB,2.1278E+03_JPRB/) |
369 |
|
|
KAO( :,12,11) = (/& |
370 |
✓✓ |
6 |
& 2.1239E+03_JPRB,2.1041E+03_JPRB,2.0806E+03_JPRB,2.0570E+03_JPRB,2.0321E+03_JPRB/) |
371 |
|
|
KAO( :,13,11) = (/& |
372 |
✓✓ |
6 |
& 1.9981E+03_JPRB,1.9741E+03_JPRB,1.9501E+03_JPRB,1.9259E+03_JPRB,1.8992E+03_JPRB/) |
373 |
|
|
KAO( :, 1,12) = (/& |
374 |
✓✓ |
6 |
& 1.1941E+03_JPRB,1.1961E+03_JPRB,1.1962E+03_JPRB,1.1934E+03_JPRB,1.1915E+03_JPRB/) |
375 |
|
|
KAO( :, 2,12) = (/& |
376 |
✓✓ |
6 |
& 1.3953E+03_JPRB,1.3978E+03_JPRB,1.3989E+03_JPRB,1.3989E+03_JPRB,1.3975E+03_JPRB/) |
377 |
|
|
KAO( :, 3,12) = (/& |
378 |
✓✓ |
6 |
& 1.6228E+03_JPRB,1.6258E+03_JPRB,1.6260E+03_JPRB,1.6268E+03_JPRB,1.6242E+03_JPRB/) |
379 |
|
|
KAO( :, 4,12) = (/& |
380 |
✓✓ |
6 |
& 1.8694E+03_JPRB,1.8740E+03_JPRB,1.8767E+03_JPRB,1.8774E+03_JPRB,1.8733E+03_JPRB/) |
381 |
|
|
KAO( :, 5,12) = (/& |
382 |
✓✓ |
6 |
& 2.1317E+03_JPRB,2.1362E+03_JPRB,2.1424E+03_JPRB,2.1420E+03_JPRB,2.1392E+03_JPRB/) |
383 |
|
|
KAO( :, 6,12) = (/& |
384 |
✓✓ |
6 |
& 2.4044E+03_JPRB,2.4133E+03_JPRB,2.4176E+03_JPRB,2.4160E+03_JPRB,2.4115E+03_JPRB/) |
385 |
|
|
KAO( :, 7,12) = (/& |
386 |
✓✓ |
6 |
& 2.6762E+03_JPRB,2.6888E+03_JPRB,2.6899E+03_JPRB,2.6906E+03_JPRB,2.6811E+03_JPRB/) |
387 |
|
|
KAO( :, 8,12) = (/& |
388 |
✓✓ |
6 |
& 2.9393E+03_JPRB,2.9492E+03_JPRB,2.9517E+03_JPRB,2.9490E+03_JPRB,2.9400E+03_JPRB/) |
389 |
|
|
KAO( :, 9,12) = (/& |
390 |
✓✓ |
6 |
& 3.1791E+03_JPRB,3.1838E+03_JPRB,3.1886E+03_JPRB,3.1814E+03_JPRB,3.1717E+03_JPRB/) |
391 |
|
|
KAO( :,10,12) = (/& |
392 |
✓✓ |
6 |
& 3.3778E+03_JPRB,3.3826E+03_JPRB,3.3785E+03_JPRB,3.3711E+03_JPRB,3.3555E+03_JPRB/) |
393 |
|
|
KAO( :,11,12) = (/& |
394 |
✓✓ |
6 |
& 3.5199E+03_JPRB,3.5143E+03_JPRB,3.5061E+03_JPRB,3.4899E+03_JPRB,3.4698E+03_JPRB/) |
395 |
|
|
KAO( :,12,12) = (/& |
396 |
✓✓ |
6 |
& 3.5918E+03_JPRB,3.5807E+03_JPRB,3.5632E+03_JPRB,3.5417E+03_JPRB,3.5132E+03_JPRB/) |
397 |
|
|
KAO( :,13,12) = (/& |
398 |
✓✓ |
6 |
& 3.5817E+03_JPRB,3.5602E+03_JPRB,3.5362E+03_JPRB,3.5063E+03_JPRB,3.4751E+03_JPRB/) |
399 |
|
|
KAO( :, 1,13) = (/& |
400 |
✓✓ |
6 |
& 1.2927E+03_JPRB,1.2959E+03_JPRB,1.2982E+03_JPRB,1.2977E+03_JPRB,1.2950E+03_JPRB/) |
401 |
|
|
KAO( :, 2,13) = (/& |
402 |
✓✓ |
6 |
& 1.5393E+03_JPRB,1.5429E+03_JPRB,1.5452E+03_JPRB,1.5442E+03_JPRB,1.5416E+03_JPRB/) |
403 |
|
|
KAO( :, 3,13) = (/& |
404 |
✓✓ |
6 |
& 1.8235E+03_JPRB,1.8299E+03_JPRB,1.8332E+03_JPRB,1.8330E+03_JPRB,1.8307E+03_JPRB/) |
405 |
|
|
KAO( :, 4,13) = (/& |
406 |
✓✓ |
6 |
& 2.1460E+03_JPRB,2.1562E+03_JPRB,2.1625E+03_JPRB,2.1633E+03_JPRB,2.1623E+03_JPRB/) |
407 |
|
|
KAO( :, 5,13) = (/& |
408 |
✓✓ |
6 |
& 2.5138E+03_JPRB,2.5270E+03_JPRB,2.5346E+03_JPRB,2.5383E+03_JPRB,2.5372E+03_JPRB/) |
409 |
|
|
KAO( :, 6,13) = (/& |
410 |
✓✓ |
6 |
& 2.9233E+03_JPRB,2.9381E+03_JPRB,2.9500E+03_JPRB,2.9556E+03_JPRB,2.9572E+03_JPRB/) |
411 |
|
|
KAO( :, 7,13) = (/& |
412 |
✓✓ |
6 |
& 3.3704E+03_JPRB,3.3895E+03_JPRB,3.4050E+03_JPRB,3.4111E+03_JPRB,3.4146E+03_JPRB/) |
413 |
|
|
KAO( :, 8,13) = (/& |
414 |
✓✓ |
6 |
& 3.8494E+03_JPRB,3.8729E+03_JPRB,3.8913E+03_JPRB,3.9008E+03_JPRB,3.9062E+03_JPRB/) |
415 |
|
|
KAO( :, 9,13) = (/& |
416 |
✓✓ |
6 |
& 4.3484E+03_JPRB,4.3768E+03_JPRB,4.3938E+03_JPRB,4.4075E+03_JPRB,4.4120E+03_JPRB/) |
417 |
|
|
KAO( :,10,13) = (/& |
418 |
✓✓ |
6 |
& 4.8563E+03_JPRB,4.8884E+03_JPRB,4.9080E+03_JPRB,4.9204E+03_JPRB,4.9230E+03_JPRB/) |
419 |
|
|
KAO( :,11,13) = (/& |
420 |
✓✓ |
6 |
& 5.3698E+03_JPRB,5.3968E+03_JPRB,5.4124E+03_JPRB,5.4206E+03_JPRB,5.4132E+03_JPRB/) |
421 |
|
|
KAO( :,12,13) = (/& |
422 |
✓✓ |
6 |
& 5.8401E+03_JPRB,5.8572E+03_JPRB,5.8683E+03_JPRB,5.8634E+03_JPRB,5.8549E+03_JPRB/) |
423 |
|
|
KAO( :,13,13) = (/& |
424 |
✓✓ |
6 |
& 6.2394E+03_JPRB,6.2548E+03_JPRB,6.2534E+03_JPRB,6.2438E+03_JPRB,6.2213E+03_JPRB/) |
425 |
|
|
KAO( :, 1,14) = (/& |
426 |
✓✓ |
6 |
& 1.3753E+03_JPRB,1.3791E+03_JPRB,1.3806E+03_JPRB,1.3820E+03_JPRB,1.3825E+03_JPRB/) |
427 |
|
|
KAO( :, 2,14) = (/& |
428 |
✓✓ |
6 |
& 1.6535E+03_JPRB,1.6590E+03_JPRB,1.6607E+03_JPRB,1.6628E+03_JPRB,1.6629E+03_JPRB/) |
429 |
|
|
KAO( :, 3,14) = (/& |
430 |
✓✓ |
6 |
& 1.9826E+03_JPRB,1.9922E+03_JPRB,1.9976E+03_JPRB,2.0007E+03_JPRB,2.0006E+03_JPRB/) |
431 |
|
|
KAO( :, 4,14) = (/& |
432 |
✓✓ |
6 |
& 2.3745E+03_JPRB,2.3859E+03_JPRB,2.3951E+03_JPRB,2.4030E+03_JPRB,2.4041E+03_JPRB/) |
433 |
|
|
KAO( :, 5,14) = (/& |
434 |
✓✓ |
6 |
& 2.8392E+03_JPRB,2.8553E+03_JPRB,2.8669E+03_JPRB,2.8760E+03_JPRB,2.8790E+03_JPRB/) |
435 |
|
|
KAO( :, 6,14) = (/& |
436 |
✓✓ |
6 |
& 3.3773E+03_JPRB,3.4016E+03_JPRB,3.4204E+03_JPRB,3.4341E+03_JPRB,3.4397E+03_JPRB/) |
437 |
|
|
KAO( :, 7,14) = (/& |
438 |
✓✓ |
6 |
& 4.0025E+03_JPRB,4.0325E+03_JPRB,4.0568E+03_JPRB,4.0775E+03_JPRB,4.0887E+03_JPRB/) |
439 |
|
|
KAO( :, 8,14) = (/& |
440 |
✓✓ |
6 |
& 4.7223E+03_JPRB,4.7649E+03_JPRB,4.7948E+03_JPRB,4.8179E+03_JPRB,4.8302E+03_JPRB/) |
441 |
|
|
KAO( :, 9,14) = (/& |
442 |
✓✓ |
6 |
& 5.5328E+03_JPRB,5.5878E+03_JPRB,5.6319E+03_JPRB,5.6661E+03_JPRB,5.6818E+03_JPRB/) |
443 |
|
|
KAO( :,10,14) = (/& |
444 |
✓✓ |
6 |
& 6.4532E+03_JPRB,6.5137E+03_JPRB,6.5680E+03_JPRB,6.6072E+03_JPRB,6.6322E+03_JPRB/) |
445 |
|
|
KAO( :,11,14) = (/& |
446 |
✓✓ |
6 |
& 7.5145E+03_JPRB,7.5791E+03_JPRB,7.6282E+03_JPRB,7.6633E+03_JPRB,7.6872E+03_JPRB/) |
447 |
|
|
KAO( :,12,14) = (/& |
448 |
✓✓ |
6 |
& 8.6607E+03_JPRB,8.7343E+03_JPRB,8.7852E+03_JPRB,8.8163E+03_JPRB,8.8288E+03_JPRB/) |
449 |
|
|
KAO( :,13,14) = (/& |
450 |
✓✓ |
6 |
& 9.8833E+03_JPRB,9.9529E+03_JPRB,1.0003E+04_JPRB,1.0028E+04_JPRB,1.0035E+04_JPRB/) |
451 |
|
|
KAO( :, 1,15) = (/& |
452 |
✓✓ |
6 |
& 1.4542E+03_JPRB,1.4589E+03_JPRB,1.4604E+03_JPRB,1.4579E+03_JPRB,1.4548E+03_JPRB/) |
453 |
|
|
KAO( :, 2,15) = (/& |
454 |
✓✓ |
6 |
& 1.7565E+03_JPRB,1.7644E+03_JPRB,1.7674E+03_JPRB,1.7671E+03_JPRB,1.7644E+03_JPRB/) |
455 |
|
|
KAO( :, 3,15) = (/& |
456 |
✓✓ |
6 |
& 2.1193E+03_JPRB,2.1295E+03_JPRB,2.1356E+03_JPRB,2.1395E+03_JPRB,2.1395E+03_JPRB/) |
457 |
|
|
KAO( :, 4,15) = (/& |
458 |
✓✓ |
6 |
& 2.5571E+03_JPRB,2.5704E+03_JPRB,2.5775E+03_JPRB,2.5844E+03_JPRB,2.5879E+03_JPRB/) |
459 |
|
|
KAO( :, 5,15) = (/& |
460 |
✓✓ |
6 |
& 3.0796E+03_JPRB,3.0997E+03_JPRB,3.1125E+03_JPRB,3.1195E+03_JPRB,3.1261E+03_JPRB/) |
461 |
|
|
KAO( :, 6,15) = (/& |
462 |
✓✓ |
6 |
& 3.7030E+03_JPRB,3.7342E+03_JPRB,3.7541E+03_JPRB,3.7653E+03_JPRB,3.7758E+03_JPRB/) |
463 |
|
|
KAO( :, 7,15) = (/& |
464 |
✓✓ |
6 |
& 4.4506E+03_JPRB,4.4902E+03_JPRB,4.5215E+03_JPRB,4.5394E+03_JPRB,4.5554E+03_JPRB/) |
465 |
|
|
KAO( :, 8,15) = (/& |
466 |
✓✓ |
6 |
& 5.3453E+03_JPRB,5.3952E+03_JPRB,5.4338E+03_JPRB,5.4624E+03_JPRB,5.4876E+03_JPRB/) |
467 |
|
|
KAO( :, 9,15) = (/& |
468 |
✓✓ |
6 |
& 6.4078E+03_JPRB,6.4736E+03_JPRB,6.5253E+03_JPRB,6.5575E+03_JPRB,6.5911E+03_JPRB/) |
469 |
|
|
KAO( :,10,15) = (/& |
470 |
✓✓ |
6 |
& 7.6598E+03_JPRB,7.7526E+03_JPRB,7.8219E+03_JPRB,7.8681E+03_JPRB,7.9031E+03_JPRB/) |
471 |
|
|
KAO( :,11,15) = (/& |
472 |
✓✓ |
6 |
& 9.1855E+03_JPRB,9.2916E+03_JPRB,9.3732E+03_JPRB,9.4318E+03_JPRB,9.4669E+03_JPRB/) |
473 |
|
|
KAO( :,12,15) = (/& |
474 |
✓✓ |
6 |
& 1.0994E+04_JPRB,1.1100E+04_JPRB,1.1186E+04_JPRB,1.1251E+04_JPRB,1.1289E+04_JPRB/) |
475 |
|
|
KAO( :,13,15) = (/& |
476 |
✓✓ |
6 |
& 1.3104E+04_JPRB,1.3212E+04_JPRB,1.3290E+04_JPRB,1.3346E+04_JPRB,1.3376E+04_JPRB/) |
477 |
|
|
KAO( :, 1,16) = (/& |
478 |
✓✓ |
6 |
& 1.4780E+03_JPRB,1.4827E+03_JPRB,1.4826E+03_JPRB,1.4874E+03_JPRB,1.4915E+03_JPRB/) |
479 |
|
|
KAO( :, 2,16) = (/& |
480 |
✓✓ |
6 |
& 1.7951E+03_JPRB,1.8015E+03_JPRB,1.8036E+03_JPRB,1.8055E+03_JPRB,1.8112E+03_JPRB/) |
481 |
|
|
KAO( :, 3,16) = (/& |
482 |
✓✓ |
6 |
& 2.1816E+03_JPRB,2.1886E+03_JPRB,2.1943E+03_JPRB,2.1956E+03_JPRB,2.1996E+03_JPRB/) |
483 |
|
|
KAO( :, 4,16) = (/& |
484 |
✓✓ |
6 |
& 2.6509E+03_JPRB,2.6606E+03_JPRB,2.6687E+03_JPRB,2.6722E+03_JPRB,2.6753E+03_JPRB/) |
485 |
|
|
KAO( :, 5,16) = (/& |
486 |
✓✓ |
6 |
& 3.2176E+03_JPRB,3.2329E+03_JPRB,3.2455E+03_JPRB,3.2518E+03_JPRB,3.2561E+03_JPRB/) |
487 |
|
|
KAO( :, 6,16) = (/& |
488 |
✓✓ |
6 |
& 3.8984E+03_JPRB,3.9245E+03_JPRB,3.9448E+03_JPRB,3.9570E+03_JPRB,3.9591E+03_JPRB/) |
489 |
|
|
KAO( :, 7,16) = (/& |
490 |
✓✓ |
6 |
& 4.7171E+03_JPRB,4.7549E+03_JPRB,4.7886E+03_JPRB,4.8095E+03_JPRB,4.8182E+03_JPRB/) |
491 |
|
|
KAO( :, 8,16) = (/& |
492 |
✓✓ |
6 |
& 5.7104E+03_JPRB,5.7554E+03_JPRB,5.8029E+03_JPRB,5.8388E+03_JPRB,5.8553E+03_JPRB/) |
493 |
|
|
KAO( :, 9,16) = (/& |
494 |
✓✓ |
6 |
& 6.9103E+03_JPRB,6.9722E+03_JPRB,7.0177E+03_JPRB,7.0728E+03_JPRB,7.1035E+03_JPRB/) |
495 |
|
|
KAO( :,10,16) = (/& |
496 |
✓✓ |
6 |
& 8.3550E+03_JPRB,8.4416E+03_JPRB,8.4942E+03_JPRB,8.5534E+03_JPRB,8.5999E+03_JPRB/) |
497 |
|
|
KAO( :,11,16) = (/& |
498 |
✓✓ |
6 |
& 1.0144E+04_JPRB,1.0238E+04_JPRB,1.0302E+04_JPRB,1.0361E+04_JPRB,1.0397E+04_JPRB/) |
499 |
|
|
KAO( :,12,16) = (/& |
500 |
✓✓ |
6 |
& 1.2283E+04_JPRB,1.2387E+04_JPRB,1.2470E+04_JPRB,1.2524E+04_JPRB,1.2537E+04_JPRB/) |
501 |
|
|
KAO( :,13,16) = (/& |
502 |
✓✓ |
6 |
& 1.4822E+04_JPRB,1.4946E+04_JPRB,1.5038E+04_JPRB,1.5076E+04_JPRB,1.5064E+04_JPRB/) |
503 |
|
|
|
504 |
|
|
! The array KBO contains absorption coefs at the 16 chosen g-values |
505 |
|
|
! for a range of pressure levels < ~100mb and temperatures. The first |
506 |
|
|
! index in the array, JT, which runs from 1 to 5, corresponds to |
507 |
|
|
! different temperatures. More specifically, JT = 3 means that the |
508 |
|
|
! data are for the reference temperature TREF for this pressure |
509 |
|
|
! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for |
510 |
|
|
! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. |
511 |
|
|
! The second index, JP, runs from 13 to 59 and refers to the JPth |
512 |
|
|
! reference pressure level (see taumol.f for the value of these |
513 |
|
|
! pressure levels in mb). The third index, IG, goes from 1 to 16, |
514 |
|
|
! and tells us which g-interval the absorption coefficients are for. |
515 |
|
|
|
516 |
|
|
KBO( :,13, 1) = (/& |
517 |
✓✓ |
6 |
& 3.9171E-02_JPRB,4.0209E-02_JPRB,4.1806E-02_JPRB,4.4182E-02_JPRB,4.7428E-02_JPRB/) |
518 |
|
|
KBO( :,14, 1) = (/& |
519 |
✓✓ |
6 |
& 3.2490E-02_JPRB,3.3463E-02_JPRB,3.4945E-02_JPRB,3.7104E-02_JPRB,4.0032E-02_JPRB/) |
520 |
|
|
KBO( :,15, 1) = (/& |
521 |
✓✓ |
6 |
& 2.6917E-02_JPRB,2.7822E-02_JPRB,2.9187E-02_JPRB,3.1142E-02_JPRB,3.3701E-02_JPRB/) |
522 |
|
|
KBO( :,16, 1) = (/& |
523 |
✓✓ |
6 |
& 2.2291E-02_JPRB,2.3129E-02_JPRB,2.4369E-02_JPRB,2.6101E-02_JPRB,2.8325E-02_JPRB/) |
524 |
|
|
KBO( :,17, 1) = (/& |
525 |
✓✓ |
6 |
& 1.8463E-02_JPRB,1.9231E-02_JPRB,2.0335E-02_JPRB,2.1845E-02_JPRB,2.3775E-02_JPRB/) |
526 |
|
|
KBO( :,18, 1) = (/& |
527 |
✓✓ |
6 |
& 1.5304E-02_JPRB,1.5992E-02_JPRB,1.6967E-02_JPRB,1.8267E-02_JPRB,1.9954E-02_JPRB/) |
528 |
|
|
KBO( :,19, 1) = (/& |
529 |
✓✓ |
6 |
& 1.2689E-02_JPRB,1.3293E-02_JPRB,1.4142E-02_JPRB,1.5272E-02_JPRB,1.6744E-02_JPRB/) |
530 |
|
|
KBO( :,20, 1) = (/& |
531 |
✓✓ |
6 |
& 1.0525E-02_JPRB,1.1058E-02_JPRB,1.1796E-02_JPRB,1.2786E-02_JPRB,1.4077E-02_JPRB/) |
532 |
|
|
KBO( :,21, 1) = (/& |
533 |
✓✓ |
6 |
& 8.7289E-03_JPRB,9.1958E-03_JPRB,9.8417E-03_JPRB,1.0709E-02_JPRB,1.1847E-02_JPRB/) |
534 |
|
|
KBO( :,22, 1) = (/& |
535 |
✓✓ |
6 |
& 7.2588E-03_JPRB,7.6747E-03_JPRB,8.2530E-03_JPRB,9.0292E-03_JPRB,1.0054E-02_JPRB/) |
536 |
|
|
KBO( :,23, 1) = (/& |
537 |
✓✓ |
6 |
& 6.0387E-03_JPRB,6.4108E-03_JPRB,6.9298E-03_JPRB,7.6312E-03_JPRB,8.5511E-03_JPRB/) |
538 |
|
|
KBO( :,24, 1) = (/& |
539 |
✓✓ |
6 |
& 5.0265E-03_JPRB,5.3630E-03_JPRB,5.8339E-03_JPRB,6.4676E-03_JPRB,7.2886E-03_JPRB/) |
540 |
|
|
KBO( :,25, 1) = (/& |
541 |
✓✓ |
6 |
& 4.1912E-03_JPRB,4.4982E-03_JPRB,4.9297E-03_JPRB,5.4991E-03_JPRB,6.2336E-03_JPRB/) |
542 |
|
|
KBO( :,26, 1) = (/& |
543 |
✓✓ |
6 |
& 3.5050E-03_JPRB,3.7893E-03_JPRB,4.1842E-03_JPRB,4.6973E-03_JPRB,5.3580E-03_JPRB/) |
544 |
|
|
KBO( :,27, 1) = (/& |
545 |
✓✓ |
6 |
& 2.9383E-03_JPRB,3.2032E-03_JPRB,3.5605E-03_JPRB,4.0246E-03_JPRB,4.6201E-03_JPRB/) |
546 |
|
|
KBO( :,28, 1) = (/& |
547 |
✓✓ |
6 |
& 2.4712E-03_JPRB,2.7165E-03_JPRB,3.0381E-03_JPRB,3.4592E-03_JPRB,3.9959E-03_JPRB/) |
548 |
|
|
KBO( :,29, 1) = (/& |
549 |
✓✓ |
6 |
& 2.0871E-03_JPRB,2.3113E-03_JPRB,2.6040E-03_JPRB,2.9852E-03_JPRB,3.4732E-03_JPRB/) |
550 |
|
|
KBO( :,30, 1) = (/& |
551 |
✓✓ |
6 |
& 1.7686E-03_JPRB,1.9719E-03_JPRB,2.2397E-03_JPRB,2.5854E-03_JPRB,3.0292E-03_JPRB/) |
552 |
|
|
KBO( :,31, 1) = (/& |
553 |
✓✓ |
6 |
& 1.5043E-03_JPRB,1.6903E-03_JPRB,1.9338E-03_JPRB,2.2497E-03_JPRB,2.6538E-03_JPRB/) |
554 |
|
|
KBO( :,32, 1) = (/& |
555 |
✓✓ |
6 |
& 1.2840E-03_JPRB,1.4547E-03_JPRB,1.6770E-03_JPRB,1.9662E-03_JPRB,2.3339E-03_JPRB/) |
556 |
|
|
KBO( :,33, 1) = (/& |
557 |
✓✓ |
6 |
& 1.1003E-03_JPRB,1.2566E-03_JPRB,1.4609E-03_JPRB,1.7254E-03_JPRB,2.0596E-03_JPRB/) |
558 |
|
|
KBO( :,34, 1) = (/& |
559 |
✓✓ |
6 |
& 9.4252E-04_JPRB,1.0841E-03_JPRB,1.2703E-03_JPRB,1.5103E-03_JPRB,1.8108E-03_JPRB/) |
560 |
|
|
KBO( :,35, 1) = (/& |
561 |
✓✓ |
6 |
& 7.9883E-04_JPRB,9.2438E-04_JPRB,1.0899E-03_JPRB,1.3019E-03_JPRB,1.5661E-03_JPRB/) |
562 |
|
|
KBO( :,36, 1) = (/& |
563 |
✓✓ |
6 |
& 6.6758E-04_JPRB,7.7591E-04_JPRB,9.1882E-04_JPRB,1.1013E-03_JPRB,1.3278E-03_JPRB/) |
564 |
|
|
KBO( :,37, 1) = (/& |
565 |
✓✓ |
6 |
& 5.4656E-04_JPRB,6.3617E-04_JPRB,7.5472E-04_JPRB,9.0662E-04_JPRB,1.0949E-03_JPRB/) |
566 |
|
|
KBO( :,38, 1) = (/& |
567 |
✓✓ |
6 |
& 4.4691E-04_JPRB,5.2075E-04_JPRB,6.1878E-04_JPRB,7.4481E-04_JPRB,9.0091E-04_JPRB/) |
568 |
|
|
KBO( :,39, 1) = (/& |
569 |
✓✓ |
6 |
& 3.6542E-04_JPRB,4.2618E-04_JPRB,5.0722E-04_JPRB,6.1164E-04_JPRB,7.4104E-04_JPRB/) |
570 |
|
|
KBO( :,40, 1) = (/& |
571 |
✓✓ |
6 |
& 2.9441E-04_JPRB,3.4292E-04_JPRB,4.0801E-04_JPRB,4.9232E-04_JPRB,5.9726E-04_JPRB/) |
572 |
|
|
KBO( :,41, 1) = (/& |
573 |
✓✓ |
6 |
& 2.3677E-04_JPRB,2.7525E-04_JPRB,3.2723E-04_JPRB,3.9501E-04_JPRB,4.7963E-04_JPRB/) |
574 |
|
|
KBO( :,42, 1) = (/& |
575 |
✓✓ |
6 |
& 1.9036E-04_JPRB,2.2088E-04_JPRB,2.6226E-04_JPRB,3.1664E-04_JPRB,3.8484E-04_JPRB/) |
576 |
|
|
KBO( :,43, 1) = (/& |
577 |
✓✓ |
6 |
& 1.5188E-04_JPRB,1.7566E-04_JPRB,2.0797E-04_JPRB,2.5103E-04_JPRB,3.0521E-04_JPRB/) |
578 |
|
|
KBO( :,44, 1) = (/& |
579 |
✓✓ |
6 |
& 1.2085E-04_JPRB,1.3918E-04_JPRB,1.6418E-04_JPRB,1.9786E-04_JPRB,2.4065E-04_JPRB/) |
580 |
|
|
KBO( :,45, 1) = (/& |
581 |
✓✓ |
6 |
& 9.6221E-05_JPRB,1.1032E-04_JPRB,1.2961E-04_JPRB,1.5587E-04_JPRB,1.8956E-04_JPRB/) |
582 |
|
|
KBO( :,46, 1) = (/& |
583 |
✓✓ |
6 |
& 7.6451E-05_JPRB,8.7222E-05_JPRB,1.0196E-04_JPRB,1.2223E-04_JPRB,1.4859E-04_JPRB/) |
584 |
|
|
KBO( :,47, 1) = (/& |
585 |
✓✓ |
6 |
& 6.0518E-05_JPRB,6.8617E-05_JPRB,7.9736E-05_JPRB,9.5061E-05_JPRB,1.1539E-04_JPRB/) |
586 |
|
|
KBO( :,48, 1) = (/& |
587 |
✓✓ |
6 |
& 4.7995E-05_JPRB,5.4058E-05_JPRB,6.2416E-05_JPRB,7.3982E-05_JPRB,8.9568E-05_JPRB/) |
588 |
|
|
KBO( :,49, 1) = (/& |
589 |
✓✓ |
6 |
& 3.8135E-05_JPRB,4.2643E-05_JPRB,4.8908E-05_JPRB,5.7603E-05_JPRB,6.9496E-05_JPRB/) |
590 |
|
|
KBO( :,50, 1) = (/& |
591 |
✓✓ |
6 |
& 3.0417E-05_JPRB,3.3789E-05_JPRB,3.8523E-05_JPRB,4.5097E-05_JPRB,5.4183E-05_JPRB/) |
592 |
|
|
KBO( :,51, 1) = (/& |
593 |
✓✓ |
6 |
& 2.4294E-05_JPRB,2.6856E-05_JPRB,3.0433E-05_JPRB,3.5411E-05_JPRB,4.2342E-05_JPRB/) |
594 |
|
|
KBO( :,52, 1) = (/& |
595 |
✓✓ |
6 |
& 1.9384E-05_JPRB,2.1372E-05_JPRB,2.4069E-05_JPRB,2.7837E-05_JPRB,3.3107E-05_JPRB/) |
596 |
|
|
KBO( :,53, 1) = (/& |
597 |
✓✓ |
6 |
& 1.5445E-05_JPRB,1.7027E-05_JPRB,1.9053E-05_JPRB,2.1903E-05_JPRB,2.5892E-05_JPRB/) |
598 |
|
|
KBO( :,54, 1) = (/& |
599 |
✓✓ |
6 |
& 1.2327E-05_JPRB,1.3603E-05_JPRB,1.5162E-05_JPRB,1.7332E-05_JPRB,2.0379E-05_JPRB/) |
600 |
|
|
KBO( :,55, 1) = (/& |
601 |
✓✓ |
6 |
& 9.8408E-06_JPRB,1.0879E-05_JPRB,1.2096E-05_JPRB,1.3752E-05_JPRB,1.6089E-05_JPRB/) |
602 |
|
|
KBO( :,56, 1) = (/& |
603 |
✓✓ |
6 |
& 7.8284E-06_JPRB,8.6964E-06_JPRB,9.6567E-06_JPRB,1.0920E-05_JPRB,1.2709E-05_JPRB/) |
604 |
|
|
KBO( :,57, 1) = (/& |
605 |
✓✓ |
6 |
& 6.2093E-06_JPRB,6.9436E-06_JPRB,7.7088E-06_JPRB,8.6775E-06_JPRB,1.0049E-05_JPRB/) |
606 |
|
|
KBO( :,58, 1) = (/& |
607 |
✓✓ |
6 |
& 4.9212E-06_JPRB,5.5457E-06_JPRB,6.1634E-06_JPRB,6.9165E-06_JPRB,7.9717E-06_JPRB/) |
608 |
|
|
KBO( :,59, 1) = (/& |
609 |
✓✓ |
6 |
& 3.9876E-06_JPRB,4.5117E-06_JPRB,5.0251E-06_JPRB,5.6457E-06_JPRB,6.5064E-06_JPRB/) |
610 |
|
|
KBO( :,13, 2) = (/& |
611 |
✓✓ |
6 |
& 1.3642E-01_JPRB,1.5192E-01_JPRB,1.7017E-01_JPRB,1.9179E-01_JPRB,2.1776E-01_JPRB/) |
612 |
|
|
KBO( :,14, 2) = (/& |
613 |
✓✓ |
6 |
& 1.1549E-01_JPRB,1.2903E-01_JPRB,1.4505E-01_JPRB,1.6416E-01_JPRB,1.8735E-01_JPRB/) |
614 |
|
|
KBO( :,15, 2) = (/& |
615 |
✓✓ |
6 |
& 9.7601E-02_JPRB,1.0941E-01_JPRB,1.2344E-01_JPRB,1.4044E-01_JPRB,1.6109E-01_JPRB/) |
616 |
|
|
KBO( :,16, 2) = (/& |
617 |
✓✓ |
6 |
& 8.2400E-02_JPRB,9.2656E-02_JPRB,1.0500E-01_JPRB,1.2010E-01_JPRB,1.3841E-01_JPRB/) |
618 |
|
|
KBO( :,17, 2) = (/& |
619 |
✓✓ |
6 |
& 6.9444E-02_JPRB,7.8382E-02_JPRB,8.9340E-02_JPRB,1.0266E-01_JPRB,1.1885E-01_JPRB/) |
620 |
|
|
KBO( :,18, 2) = (/& |
621 |
✓✓ |
6 |
& 5.8427E-02_JPRB,6.6311E-02_JPRB,7.5999E-02_JPRB,8.7777E-02_JPRB,1.0199E-01_JPRB/) |
622 |
|
|
KBO( :,19, 2) = (/& |
623 |
✓✓ |
6 |
& 4.9105E-02_JPRB,5.6056E-02_JPRB,6.4599E-02_JPRB,7.4928E-02_JPRB,8.7316E-02_JPRB/) |
624 |
|
|
KBO( :,20, 2) = (/& |
625 |
✓✓ |
6 |
& 4.1362E-02_JPRB,4.7500E-02_JPRB,5.4972E-02_JPRB,6.3982E-02_JPRB,7.4793E-02_JPRB/) |
626 |
|
|
KBO( :,21, 2) = (/& |
627 |
✓✓ |
6 |
& 3.4892E-02_JPRB,4.0253E-02_JPRB,4.6723E-02_JPRB,5.4540E-02_JPRB,6.3927E-02_JPRB/) |
628 |
|
|
KBO( :,22, 2) = (/& |
629 |
✓✓ |
6 |
& 2.9712E-02_JPRB,3.4419E-02_JPRB,4.0080E-02_JPRB,4.6923E-02_JPRB,5.5143E-02_JPRB/) |
630 |
|
|
KBO( :,23, 2) = (/& |
631 |
✓✓ |
6 |
& 2.5337E-02_JPRB,2.9440E-02_JPRB,3.4407E-02_JPRB,4.0399E-02_JPRB,4.7598E-02_JPRB/) |
632 |
|
|
KBO( :,24, 2) = (/& |
633 |
✓✓ |
6 |
& 2.1646E-02_JPRB,2.5231E-02_JPRB,2.9587E-02_JPRB,3.4849E-02_JPRB,4.1184E-02_JPRB/) |
634 |
|
|
KBO( :,25, 2) = (/& |
635 |
✓✓ |
6 |
& 1.8533E-02_JPRB,2.1686E-02_JPRB,2.5506E-02_JPRB,3.0158E-02_JPRB,3.5787E-02_JPRB/) |
636 |
|
|
KBO( :,26, 2) = (/& |
637 |
✓✓ |
6 |
& 1.5940E-02_JPRB,1.8720E-02_JPRB,2.2097E-02_JPRB,2.6247E-02_JPRB,3.1293E-02_JPRB/) |
638 |
|
|
|
639 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART2',1,ZHOOK_HANDLE) |
640 |
|
1 |
END SUBROUTINE PART2 |
641 |
|
|
|
642 |
|
|
|
643 |
|
1 |
SUBROUTINE PART3 |
644 |
|
|
|
645 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
646 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART3',0,ZHOOK_HANDLE) |
647 |
|
|
|
648 |
|
|
|
649 |
|
|
KBO( :,27, 2) = (/& |
650 |
✓✓ |
6 |
& 1.3738E-02_JPRB,1.6188E-02_JPRB,1.9206E-02_JPRB,2.2922E-02_JPRB,2.7465E-02_JPRB/) |
651 |
|
|
KBO( :,28, 2) = (/& |
652 |
✓✓ |
6 |
& 1.1858E-02_JPRB,1.4036E-02_JPRB,1.6746E-02_JPRB,2.0086E-02_JPRB,2.4173E-02_JPRB/) |
653 |
|
|
KBO( :,29, 2) = (/& |
654 |
✓✓ |
6 |
& 1.0271E-02_JPRB,1.2222E-02_JPRB,1.4667E-02_JPRB,1.7690E-02_JPRB,2.1356E-02_JPRB/) |
655 |
|
|
KBO( :,30, 2) = (/& |
656 |
✓✓ |
6 |
& 8.9226E-03_JPRB,1.0686E-02_JPRB,1.2896E-02_JPRB,1.5632E-02_JPRB,1.8914E-02_JPRB/) |
657 |
|
|
KBO( :,31, 2) = (/& |
658 |
✓✓ |
6 |
& 7.7843E-03_JPRB,9.3890E-03_JPRB,1.1399E-02_JPRB,1.3861E-02_JPRB,1.6797E-02_JPRB/) |
659 |
|
|
KBO( :,32, 2) = (/& |
660 |
✓✓ |
6 |
& 6.8247E-03_JPRB,8.2905E-03_JPRB,1.0116E-02_JPRB,1.2328E-02_JPRB,1.4951E-02_JPRB/) |
661 |
|
|
KBO( :,33, 2) = (/& |
662 |
✓✓ |
6 |
& 6.0149E-03_JPRB,7.3520E-03_JPRB,8.9996E-03_JPRB,1.0989E-02_JPRB,1.3332E-02_JPRB/) |
663 |
|
|
KBO( :,34, 2) = (/& |
664 |
✓✓ |
6 |
& 5.2871E-03_JPRB,6.4941E-03_JPRB,7.9727E-03_JPRB,9.7480E-03_JPRB,1.1841E-02_JPRB/) |
665 |
|
|
KBO( :,35, 2) = (/& |
666 |
✓✓ |
6 |
& 4.5697E-03_JPRB,5.6343E-03_JPRB,6.9361E-03_JPRB,8.4981E-03_JPRB,1.0344E-02_JPRB/) |
667 |
|
|
KBO( :,36, 2) = (/& |
668 |
✓✓ |
6 |
& 3.8668E-03_JPRB,4.7847E-03_JPRB,5.9090E-03_JPRB,7.2600E-03_JPRB,8.8580E-03_JPRB/) |
669 |
|
|
KBO( :,37, 2) = (/& |
670 |
✓✓ |
6 |
& 3.1704E-03_JPRB,3.9381E-03_JPRB,4.8844E-03_JPRB,6.0241E-03_JPRB,7.3747E-03_JPRB/) |
671 |
|
|
KBO( :,38, 2) = (/& |
672 |
✓✓ |
6 |
& 2.5936E-03_JPRB,3.2350E-03_JPRB,4.0298E-03_JPRB,4.9900E-03_JPRB,6.1292E-03_JPRB/) |
673 |
|
|
KBO( :,39, 2) = (/& |
674 |
✓✓ |
6 |
& 2.1215E-03_JPRB,2.6573E-03_JPRB,3.3247E-03_JPRB,4.1335E-03_JPRB,5.0950E-03_JPRB/) |
675 |
|
|
KBO( :,40, 2) = (/& |
676 |
✓✓ |
6 |
& 1.6950E-03_JPRB,2.1322E-03_JPRB,2.6802E-03_JPRB,3.3483E-03_JPRB,4.1474E-03_JPRB/) |
677 |
|
|
KBO( :,41, 2) = (/& |
678 |
✓✓ |
6 |
& 1.3487E-03_JPRB,1.7036E-03_JPRB,2.1515E-03_JPRB,2.7015E-03_JPRB,3.3638E-03_JPRB/) |
679 |
|
|
KBO( :,42, 2) = (/& |
680 |
✓✓ |
6 |
& 1.0717E-03_JPRB,1.3591E-03_JPRB,1.7246E-03_JPRB,2.1766E-03_JPRB,2.7248E-03_JPRB/) |
681 |
|
|
KBO( :,43, 2) = (/& |
682 |
✓✓ |
6 |
& 8.3901E-04_JPRB,1.0683E-03_JPRB,1.3622E-03_JPRB,1.7292E-03_JPRB,2.1771E-03_JPRB/) |
683 |
|
|
KBO( :,44, 2) = (/& |
684 |
✓✓ |
6 |
& 6.5192E-04_JPRB,8.3311E-04_JPRB,1.0673E-03_JPRB,1.3624E-03_JPRB,1.7262E-03_JPRB/) |
685 |
|
|
KBO( :,45, 2) = (/& |
686 |
✓✓ |
6 |
& 5.0592E-04_JPRB,6.4840E-04_JPRB,8.3427E-04_JPRB,1.0708E-03_JPRB,1.3653E-03_JPRB/) |
687 |
|
|
KBO( :,46, 2) = (/& |
688 |
✓✓ |
6 |
& 3.9015E-04_JPRB,5.0066E-04_JPRB,6.4700E-04_JPRB,8.3496E-04_JPRB,1.0720E-03_JPRB/) |
689 |
|
|
KBO( :,47, 2) = (/& |
690 |
✓✓ |
6 |
& 2.9734E-04_JPRB,3.8142E-04_JPRB,4.9495E-04_JPRB,6.4229E-04_JPRB,8.3000E-04_JPRB/) |
691 |
|
|
KBO( :,48, 2) = (/& |
692 |
✓✓ |
6 |
& 2.2635E-04_JPRB,2.9002E-04_JPRB,3.7759E-04_JPRB,4.9244E-04_JPRB,6.4043E-04_JPRB/) |
693 |
|
|
KBO( :,49, 2) = (/& |
694 |
✓✓ |
6 |
& 1.7220E-04_JPRB,2.2034E-04_JPRB,2.8722E-04_JPRB,3.7634E-04_JPRB,4.9229E-04_JPRB/) |
695 |
|
|
KBO( :,50, 2) = (/& |
696 |
✓✓ |
6 |
& 1.3177E-04_JPRB,1.6818E-04_JPRB,2.1937E-04_JPRB,2.8871E-04_JPRB,3.7961E-04_JPRB/) |
697 |
|
|
KBO( :,51, 2) = (/& |
698 |
✓✓ |
6 |
& 1.0109E-04_JPRB,1.2859E-04_JPRB,1.6766E-04_JPRB,2.2156E-04_JPRB,2.9268E-04_JPRB/) |
699 |
|
|
KBO( :,52, 2) = (/& |
700 |
✓✓ |
6 |
& 7.7612E-05_JPRB,9.8243E-05_JPRB,1.2795E-04_JPRB,1.6959E-04_JPRB,2.2502E-04_JPRB/) |
701 |
|
|
KBO( :,53, 2) = (/& |
702 |
✓✓ |
6 |
& 5.9611E-05_JPRB,7.4979E-05_JPRB,9.7483E-05_JPRB,1.2940E-04_JPRB,1.7242E-04_JPRB/) |
703 |
|
|
KBO( :,54, 2) = (/& |
704 |
✓✓ |
6 |
& 4.6116E-05_JPRB,5.7675E-05_JPRB,7.4813E-05_JPRB,9.9354E-05_JPRB,1.3295E-04_JPRB/) |
705 |
|
|
KBO( :,55, 2) = (/& |
706 |
✓✓ |
6 |
& 3.5802E-05_JPRB,4.4529E-05_JPRB,5.7546E-05_JPRB,7.6441E-05_JPRB,1.0268E-04_JPRB/) |
707 |
|
|
KBO( :,56, 2) = (/& |
708 |
✓✓ |
6 |
& 2.7830E-05_JPRB,3.4393E-05_JPRB,4.4221E-05_JPRB,5.8724E-05_JPRB,7.9138E-05_JPRB/) |
709 |
|
|
KBO( :,57, 2) = (/& |
710 |
✓✓ |
6 |
& 2.1657E-05_JPRB,2.6571E-05_JPRB,3.3962E-05_JPRB,4.5038E-05_JPRB,6.0834E-05_JPRB/) |
711 |
|
|
KBO( :,58, 2) = (/& |
712 |
✓✓ |
6 |
& 1.6922E-05_JPRB,2.0621E-05_JPRB,2.6207E-05_JPRB,3.4660E-05_JPRB,4.6890E-05_JPRB/) |
713 |
|
|
KBO( :,59, 2) = (/& |
714 |
✓✓ |
6 |
& 1.3669E-05_JPRB,1.6659E-05_JPRB,2.1203E-05_JPRB,2.8141E-05_JPRB,3.8169E-05_JPRB/) |
715 |
|
|
KBO( :,13, 3) = (/& |
716 |
✓✓ |
6 |
& 4.6528E-01_JPRB,5.5437E-01_JPRB,6.5439E-01_JPRB,7.6387E-01_JPRB,8.8225E-01_JPRB/) |
717 |
|
|
KBO( :,14, 3) = (/& |
718 |
✓✓ |
6 |
& 4.0092E-01_JPRB,4.7676E-01_JPRB,5.6104E-01_JPRB,6.5300E-01_JPRB,7.5323E-01_JPRB/) |
719 |
|
|
KBO( :,15, 3) = (/& |
720 |
✓✓ |
6 |
& 3.4496E-01_JPRB,4.0936E-01_JPRB,4.8004E-01_JPRB,5.5783E-01_JPRB,6.4259E-01_JPRB/) |
721 |
|
|
KBO( :,16, 3) = (/& |
722 |
✓✓ |
6 |
& 2.9656E-01_JPRB,3.5091E-01_JPRB,4.1039E-01_JPRB,4.7609E-01_JPRB,5.4769E-01_JPRB/) |
723 |
|
|
KBO( :,17, 3) = (/& |
724 |
✓✓ |
6 |
& 2.5400E-01_JPRB,2.9985E-01_JPRB,3.5009E-01_JPRB,4.0555E-01_JPRB,4.6622E-01_JPRB/) |
725 |
|
|
KBO( :,18, 3) = (/& |
726 |
✓✓ |
6 |
& 2.1658E-01_JPRB,2.5524E-01_JPRB,2.9779E-01_JPRB,3.4497E-01_JPRB,3.9663E-01_JPRB/) |
727 |
|
|
KBO( :,19, 3) = (/& |
728 |
✓✓ |
6 |
& 1.8401E-01_JPRB,2.1660E-01_JPRB,2.5265E-01_JPRB,2.9293E-01_JPRB,3.3703E-01_JPRB/) |
729 |
|
|
KBO( :,20, 3) = (/& |
730 |
✓✓ |
6 |
& 1.5650E-01_JPRB,1.8401E-01_JPRB,2.1476E-01_JPRB,2.4926E-01_JPRB,2.8701E-01_JPRB/) |
731 |
|
|
KBO( :,21, 3) = (/& |
732 |
✓✓ |
6 |
& 1.3298E-01_JPRB,1.5631E-01_JPRB,1.8271E-01_JPRB,2.1234E-01_JPRB,2.4465E-01_JPRB/) |
733 |
|
|
KBO( :,22, 3) = (/& |
734 |
✓✓ |
6 |
& 1.1417E-01_JPRB,1.3429E-01_JPRB,1.5724E-01_JPRB,1.8276E-01_JPRB,2.1037E-01_JPRB/) |
735 |
|
|
KBO( :,23, 3) = (/& |
736 |
✓✓ |
6 |
& 9.8014E-02_JPRB,1.1558E-01_JPRB,1.3557E-01_JPRB,1.5742E-01_JPRB,1.8091E-01_JPRB/) |
737 |
|
|
KBO( :,24, 3) = (/& |
738 |
✓✓ |
6 |
& 8.4303E-02_JPRB,9.9682E-02_JPRB,1.1696E-01_JPRB,1.3564E-01_JPRB,1.5560E-01_JPRB/) |
739 |
|
|
KBO( :,25, 3) = (/& |
740 |
✓✓ |
6 |
& 7.2747E-02_JPRB,8.6163E-02_JPRB,1.0094E-01_JPRB,1.1688E-01_JPRB,1.3386E-01_JPRB/) |
741 |
|
|
KBO( :,26, 3) = (/& |
742 |
✓✓ |
6 |
& 6.3075E-02_JPRB,7.4679E-02_JPRB,8.7296E-02_JPRB,1.0089E-01_JPRB,1.1530E-01_JPRB/) |
743 |
|
|
KBO( :,27, 3) = (/& |
744 |
✓✓ |
6 |
& 5.4748E-02_JPRB,6.4713E-02_JPRB,7.5472E-02_JPRB,8.7090E-02_JPRB,9.9299E-02_JPRB/) |
745 |
|
|
KBO( :,28, 3) = (/& |
746 |
✓✓ |
6 |
& 4.7545E-02_JPRB,5.6049E-02_JPRB,6.5267E-02_JPRB,7.5162E-02_JPRB,8.5597E-02_JPRB/) |
747 |
|
|
KBO( :,29, 3) = (/& |
748 |
✓✓ |
6 |
& 4.1339E-02_JPRB,4.8610E-02_JPRB,5.6528E-02_JPRB,6.4950E-02_JPRB,7.3930E-02_JPRB/) |
749 |
|
|
KBO( :,30, 3) = (/& |
750 |
✓✓ |
6 |
& 3.5954E-02_JPRB,4.2191E-02_JPRB,4.8989E-02_JPRB,5.6214E-02_JPRB,6.3907E-02_JPRB/) |
751 |
|
|
KBO( :,31, 3) = (/& |
752 |
✓✓ |
6 |
& 3.1296E-02_JPRB,3.6680E-02_JPRB,4.2495E-02_JPRB,4.8776E-02_JPRB,5.5328E-02_JPRB/) |
753 |
|
|
KBO( :,32, 3) = (/& |
754 |
✓✓ |
6 |
& 2.7277E-02_JPRB,3.1929E-02_JPRB,3.6963E-02_JPRB,4.2388E-02_JPRB,4.7945E-02_JPRB/) |
755 |
|
|
KBO( :,33, 3) = (/& |
756 |
✓✓ |
6 |
& 2.3800E-02_JPRB,2.7822E-02_JPRB,3.2216E-02_JPRB,3.6870E-02_JPRB,4.1544E-02_JPRB/) |
757 |
|
|
KBO( :,34, 3) = (/& |
758 |
✓✓ |
6 |
& 2.0672E-02_JPRB,2.4161E-02_JPRB,2.7975E-02_JPRB,3.1921E-02_JPRB,3.5834E-02_JPRB/) |
759 |
|
|
KBO( :,35, 3) = (/& |
760 |
✓✓ |
6 |
& 1.7697E-02_JPRB,2.0710E-02_JPRB,2.3987E-02_JPRB,2.7306E-02_JPRB,3.0580E-02_JPRB/) |
761 |
|
|
KBO( :,36, 3) = (/& |
762 |
✓✓ |
6 |
& 1.4902E-02_JPRB,1.7480E-02_JPRB,2.0264E-02_JPRB,2.3055E-02_JPRB,2.5809E-02_JPRB/) |
763 |
|
|
KBO( :,37, 3) = (/& |
764 |
✓✓ |
6 |
& 1.2253E-02_JPRB,1.4429E-02_JPRB,1.6775E-02_JPRB,1.9126E-02_JPRB,2.1452E-02_JPRB/) |
765 |
|
|
KBO( :,38, 3) = (/& |
766 |
✓✓ |
6 |
& 1.0063E-02_JPRB,1.1900E-02_JPRB,1.3875E-02_JPRB,1.5855E-02_JPRB,1.7824E-02_JPRB/) |
767 |
|
|
KBO( :,39, 3) = (/& |
768 |
✓✓ |
6 |
& 8.2683E-03_JPRB,9.8196E-03_JPRB,1.1482E-02_JPRB,1.3151E-02_JPRB,1.4822E-02_JPRB/) |
769 |
|
|
KBO( :,40, 3) = (/& |
770 |
✓✓ |
6 |
& 6.6706E-03_JPRB,7.9659E-03_JPRB,9.3641E-03_JPRB,1.0772E-02_JPRB,1.2185E-02_JPRB/) |
771 |
|
|
KBO( :,41, 3) = (/& |
772 |
✓✓ |
6 |
& 5.3639E-03_JPRB,6.4425E-03_JPRB,7.6176E-03_JPRB,8.8040E-03_JPRB,9.9984E-03_JPRB/) |
773 |
|
|
KBO( :,42, 3) = (/& |
774 |
✓✓ |
6 |
& 4.3069E-03_JPRB,5.2039E-03_JPRB,6.1906E-03_JPRB,7.1908E-03_JPRB,8.2008E-03_JPRB/) |
775 |
|
|
KBO( :,43, 3) = (/& |
776 |
✓✓ |
6 |
& 3.4140E-03_JPRB,4.1540E-03_JPRB,4.9779E-03_JPRB,5.8242E-03_JPRB,6.6751E-03_JPRB/) |
777 |
|
|
KBO( :,44, 3) = (/& |
778 |
✓✓ |
6 |
& 2.6853E-03_JPRB,3.2927E-03_JPRB,3.9767E-03_JPRB,4.6909E-03_JPRB,5.4086E-03_JPRB/) |
779 |
|
|
KBO( :,45, 3) = (/& |
780 |
✓✓ |
6 |
& 2.1067E-03_JPRB,2.6025E-03_JPRB,3.1683E-03_JPRB,3.7707E-03_JPRB,4.3756E-03_JPRB/) |
781 |
|
|
KBO( :,46, 3) = (/& |
782 |
✓✓ |
6 |
& 1.6407E-03_JPRB,2.0417E-03_JPRB,2.5060E-03_JPRB,3.0128E-03_JPRB,3.5248E-03_JPRB/) |
783 |
|
|
KBO( :,47, 3) = (/& |
784 |
✓✓ |
6 |
& 1.2608E-03_JPRB,1.5817E-03_JPRB,1.9591E-03_JPRB,2.3817E-03_JPRB,2.8141E-03_JPRB/) |
785 |
|
|
KBO( :,48, 3) = (/& |
786 |
✓✓ |
6 |
& 9.6508E-04_JPRB,1.2203E-03_JPRB,1.5253E-03_JPRB,1.8746E-03_JPRB,2.2397E-03_JPRB/) |
787 |
|
|
KBO( :,49, 3) = (/& |
788 |
✓✓ |
6 |
& 7.3585E-04_JPRB,9.3796E-04_JPRB,1.1824E-03_JPRB,1.4683E-03_JPRB,1.7760E-03_JPRB/) |
789 |
|
|
KBO( :,50, 3) = (/& |
790 |
✓✓ |
6 |
& 5.6241E-04_JPRB,7.2242E-04_JPRB,9.1862E-04_JPRB,1.1510E-03_JPRB,1.4096E-03_JPRB/) |
791 |
|
|
KBO( :,51, 3) = (/& |
792 |
✓✓ |
6 |
& 4.2964E-04_JPRB,5.5593E-04_JPRB,7.1290E-04_JPRB,9.0146E-04_JPRB,1.1171E-03_JPRB/) |
793 |
|
|
KBO( :,52, 3) = (/& |
794 |
✓✓ |
6 |
& 3.2726E-04_JPRB,4.2631E-04_JPRB,5.5102E-04_JPRB,7.0359E-04_JPRB,8.8175E-04_JPRB/) |
795 |
|
|
KBO( :,53, 3) = (/& |
796 |
✓✓ |
6 |
& 2.4838E-04_JPRB,3.2560E-04_JPRB,4.2431E-04_JPRB,5.4692E-04_JPRB,6.9286E-04_JPRB/) |
797 |
|
|
KBO( :,54, 3) = (/& |
798 |
✓✓ |
6 |
& 1.8942E-04_JPRB,2.4999E-04_JPRB,3.2832E-04_JPRB,4.2678E-04_JPRB,5.4592E-04_JPRB/) |
799 |
|
|
KBO( :,55, 3) = (/& |
800 |
✓✓ |
6 |
& 1.4456E-04_JPRB,1.9209E-04_JPRB,2.5406E-04_JPRB,3.3310E-04_JPRB,4.3005E-04_JPRB/) |
801 |
|
|
KBO( :,56, 3) = (/& |
802 |
✓✓ |
6 |
& 1.1005E-04_JPRB,1.4722E-04_JPRB,1.9603E-04_JPRB,2.5905E-04_JPRB,3.3773E-04_JPRB/) |
803 |
|
|
KBO( :,57, 3) = (/& |
804 |
✓✓ |
6 |
& 8.3591E-05_JPRB,1.1253E-04_JPRB,1.5073E-04_JPRB,2.0071E-04_JPRB,2.6434E-04_JPRB/) |
805 |
|
|
KBO( :,58, 3) = (/& |
806 |
✓✓ |
6 |
& 6.3746E-05_JPRB,8.6176E-05_JPRB,1.1609E-04_JPRB,1.5578E-04_JPRB,2.0708E-04_JPRB/) |
807 |
|
|
KBO( :,59, 3) = (/& |
808 |
✓✓ |
6 |
& 5.1259E-05_JPRB,6.9567E-05_JPRB,9.4236E-05_JPRB,1.2739E-04_JPRB,1.7028E-04_JPRB/) |
809 |
|
|
KBO( :,13, 4) = (/& |
810 |
✓✓ |
6 |
& 1.7515E+00_JPRB,1.9495E+00_JPRB,2.1521E+00_JPRB,2.3581E+00_JPRB,2.5501E+00_JPRB/) |
811 |
|
|
KBO( :,14, 4) = (/& |
812 |
✓✓ |
6 |
& 1.4765E+00_JPRB,1.6496E+00_JPRB,1.8290E+00_JPRB,2.0062E+00_JPRB,2.1622E+00_JPRB/) |
813 |
|
|
KBO( :,15, 4) = (/& |
814 |
✓✓ |
6 |
& 1.2492E+00_JPRB,1.4011E+00_JPRB,1.5567E+00_JPRB,1.6989E+00_JPRB,1.8218E+00_JPRB/) |
815 |
|
|
KBO( :,16, 4) = (/& |
816 |
✓✓ |
6 |
& 1.0604E+00_JPRB,1.1904E+00_JPRB,1.3179E+00_JPRB,1.4307E+00_JPRB,1.5294E+00_JPRB/) |
817 |
|
|
KBO( :,17, 4) = (/& |
818 |
✓✓ |
6 |
& 8.9936E-01_JPRB,1.0071E+00_JPRB,1.1099E+00_JPRB,1.2005E+00_JPRB,1.2809E+00_JPRB/) |
819 |
|
|
KBO( :,18, 4) = (/& |
820 |
✓✓ |
6 |
& 7.6142E-01_JPRB,8.4995E-01_JPRB,9.3267E-01_JPRB,1.0060E+00_JPRB,1.0720E+00_JPRB/) |
821 |
|
|
KBO( :,19, 4) = (/& |
822 |
✓✓ |
6 |
& 6.4349E-01_JPRB,7.1626E-01_JPRB,7.8316E-01_JPRB,8.4250E-01_JPRB,8.9631E-01_JPRB/) |
823 |
|
|
KBO( :,20, 4) = (/& |
824 |
✓✓ |
6 |
& 5.4427E-01_JPRB,6.0390E-01_JPRB,6.5771E-01_JPRB,7.0547E-01_JPRB,7.4978E-01_JPRB/) |
825 |
|
|
KBO( :,21, 4) = (/& |
826 |
✓✓ |
6 |
& 4.5925E-01_JPRB,5.0777E-01_JPRB,5.5117E-01_JPRB,5.9049E-01_JPRB,6.2731E-01_JPRB/) |
827 |
|
|
KBO( :,22, 4) = (/& |
828 |
✓✓ |
6 |
& 3.8923E-01_JPRB,4.2824E-01_JPRB,4.6341E-01_JPRB,4.9590E-01_JPRB,5.2688E-01_JPRB/) |
829 |
|
|
KBO( :,23, 4) = (/& |
830 |
✓✓ |
6 |
& 3.2937E-01_JPRB,3.6081E-01_JPRB,3.8954E-01_JPRB,4.1663E-01_JPRB,4.4301E-01_JPRB/) |
831 |
|
|
KBO( :,24, 4) = (/& |
832 |
✓✓ |
6 |
& 2.7854E-01_JPRB,3.0409E-01_JPRB,3.2784E-01_JPRB,3.5064E-01_JPRB,3.7278E-01_JPRB/) |
833 |
|
|
KBO( :,25, 4) = (/& |
834 |
✓✓ |
6 |
& 2.3559E-01_JPRB,2.5658E-01_JPRB,2.7647E-01_JPRB,2.9561E-01_JPRB,3.1381E-01_JPRB/) |
835 |
|
|
KBO( :,26, 4) = (/& |
836 |
✓✓ |
6 |
& 1.9962E-01_JPRB,2.1703E-01_JPRB,2.3374E-01_JPRB,2.4963E-01_JPRB,2.6441E-01_JPRB/) |
837 |
|
|
KBO( :,27, 4) = (/& |
838 |
✓✓ |
6 |
& 1.6921E-01_JPRB,1.8380E-01_JPRB,1.9768E-01_JPRB,2.1076E-01_JPRB,2.2287E-01_JPRB/) |
839 |
|
|
KBO( :,28, 4) = (/& |
840 |
✓✓ |
6 |
& 1.4345E-01_JPRB,1.5565E-01_JPRB,1.6716E-01_JPRB,1.7793E-01_JPRB,1.8788E-01_JPRB/) |
841 |
|
|
KBO( :,29, 4) = (/& |
842 |
✓✓ |
6 |
& 1.2177E-01_JPRB,1.3186E-01_JPRB,1.4136E-01_JPRB,1.5019E-01_JPRB,1.5853E-01_JPRB/) |
843 |
|
|
KBO( :,30, 4) = (/& |
844 |
✓✓ |
6 |
& 1.0336E-01_JPRB,1.1168E-01_JPRB,1.1949E-01_JPRB,1.2673E-01_JPRB,1.3395E-01_JPRB/) |
845 |
|
|
KBO( :,31, 4) = (/& |
846 |
✓✓ |
6 |
& 8.7734E-02_JPRB,9.4596E-02_JPRB,1.0101E-01_JPRB,1.0703E-01_JPRB,1.1341E-01_JPRB/) |
847 |
|
|
KBO( :,32, 4) = (/& |
848 |
✓✓ |
6 |
& 7.4481E-02_JPRB,8.0126E-02_JPRB,8.5362E-02_JPRB,9.0546E-02_JPRB,9.6274E-02_JPRB/) |
849 |
|
|
KBO( :,33, 4) = (/& |
850 |
✓✓ |
6 |
& 6.3213E-02_JPRB,6.7862E-02_JPRB,7.2206E-02_JPRB,7.6786E-02_JPRB,8.2026E-02_JPRB/) |
851 |
|
|
KBO( :,34, 4) = (/& |
852 |
✓✓ |
6 |
& 5.3531E-02_JPRB,5.7349E-02_JPRB,6.1073E-02_JPRB,6.5202E-02_JPRB,6.9973E-02_JPRB/) |
853 |
|
|
KBO( :,35, 4) = (/& |
854 |
✓✓ |
6 |
& 4.5020E-02_JPRB,4.8200E-02_JPRB,5.1452E-02_JPRB,5.5159E-02_JPRB,5.9429E-02_JPRB/) |
855 |
|
|
KBO( :,36, 4) = (/& |
856 |
✓✓ |
6 |
& 3.7576E-02_JPRB,4.0274E-02_JPRB,4.3123E-02_JPRB,4.6399E-02_JPRB,5.0146E-02_JPRB/) |
857 |
|
|
KBO( :,37, 4) = (/& |
858 |
✓✓ |
6 |
& 3.1036E-02_JPRB,3.3333E-02_JPRB,3.5789E-02_JPRB,3.8617E-02_JPRB,4.1842E-02_JPRB/) |
859 |
|
|
KBO( :,38, 4) = (/& |
860 |
✓✓ |
6 |
& 2.5615E-02_JPRB,2.7577E-02_JPRB,2.9689E-02_JPRB,3.2124E-02_JPRB,3.4898E-02_JPRB/) |
861 |
|
|
KBO( :,39, 4) = (/& |
862 |
✓✓ |
6 |
& 2.1142E-02_JPRB,2.2815E-02_JPRB,2.4636E-02_JPRB,2.6727E-02_JPRB,2.9117E-02_JPRB/) |
863 |
|
|
KBO( :,40, 4) = (/& |
864 |
✓✓ |
6 |
& 1.7305E-02_JPRB,1.8730E-02_JPRB,2.0274E-02_JPRB,2.2044E-02_JPRB,2.4076E-02_JPRB/) |
865 |
|
|
KBO( :,41, 4) = (/& |
866 |
✓✓ |
6 |
& 1.4141E-02_JPRB,1.5353E-02_JPRB,1.6658E-02_JPRB,1.8154E-02_JPRB,1.9875E-02_JPRB/) |
867 |
|
|
KBO( :,42, 4) = (/& |
868 |
✓✓ |
6 |
& 1.1548E-02_JPRB,1.2579E-02_JPRB,1.3681E-02_JPRB,1.4943E-02_JPRB,1.6400E-02_JPRB/) |
869 |
|
|
KBO( :,43, 4) = (/& |
870 |
✓✓ |
6 |
& 9.3739E-03_JPRB,1.0251E-02_JPRB,1.1178E-02_JPRB,1.2234E-02_JPRB,1.3456E-02_JPRB/) |
871 |
|
|
KBO( :,44, 4) = (/& |
872 |
✓✓ |
6 |
& 7.5827E-03_JPRB,8.3302E-03_JPRB,9.1085E-03_JPRB,9.9874E-03_JPRB,1.1008E-02_JPRB/) |
873 |
|
|
KBO( :,45, 4) = (/& |
874 |
✓✓ |
6 |
& 6.1263E-03_JPRB,6.7635E-03_JPRB,7.4181E-03_JPRB,8.1480E-03_JPRB,8.9981E-03_JPRB/) |
875 |
|
|
KBO( :,46, 4) = (/& |
876 |
✓✓ |
6 |
& 4.9321E-03_JPRB,5.4733E-03_JPRB,6.0244E-03_JPRB,6.6282E-03_JPRB,7.3328E-03_JPRB/) |
877 |
|
|
KBO( :,47, 4) = (/& |
878 |
✓✓ |
6 |
& 3.9434E-03_JPRB,4.4020E-03_JPRB,4.8671E-03_JPRB,5.3648E-03_JPRB,5.9417E-03_JPRB/) |
879 |
|
|
KBO( :,48, 4) = (/& |
880 |
✓✓ |
6 |
& 3.1433E-03_JPRB,3.5325E-03_JPRB,3.9255E-03_JPRB,4.3369E-03_JPRB,4.8087E-03_JPRB/) |
881 |
|
|
KBO( :,49, 4) = (/& |
882 |
✓✓ |
6 |
& 2.4978E-03_JPRB,2.8291E-03_JPRB,3.1605E-03_JPRB,3.5019E-03_JPRB,3.8874E-03_JPRB/) |
883 |
|
|
KBO( :,50, 4) = (/& |
884 |
✓✓ |
6 |
& 1.9842E-03_JPRB,2.2663E-03_JPRB,2.5454E-03_JPRB,2.8316E-03_JPRB,3.1474E-03_JPRB/) |
885 |
|
|
KBO( :,51, 4) = (/& |
886 |
✓✓ |
6 |
& 1.5720E-03_JPRB,1.8131E-03_JPRB,2.0480E-03_JPRB,2.2890E-03_JPRB,2.5485E-03_JPRB/) |
887 |
|
|
KBO( :,52, 4) = (/& |
888 |
✓✓ |
6 |
& 1.2397E-03_JPRB,1.4466E-03_JPRB,1.6443E-03_JPRB,1.8471E-03_JPRB,2.0617E-03_JPRB/) |
889 |
|
|
KBO( :,53, 4) = (/& |
890 |
✓✓ |
6 |
& 9.7269E-04_JPRB,1.1506E-03_JPRB,1.3170E-03_JPRB,1.4882E-03_JPRB,1.6660E-03_JPRB/) |
891 |
|
|
KBO( :,54, 4) = (/& |
892 |
✓✓ |
6 |
& 7.6427E-04_JPRB,9.1578E-04_JPRB,1.0573E-03_JPRB,1.2008E-03_JPRB,1.3494E-03_JPRB/) |
893 |
|
|
KBO( :,55, 4) = (/& |
894 |
✓✓ |
6 |
& 5.9962E-04_JPRB,7.2798E-04_JPRB,8.4833E-04_JPRB,9.6858E-04_JPRB,1.0933E-03_JPRB/) |
895 |
|
|
KBO( :,56, 4) = (/& |
896 |
✓✓ |
6 |
& 4.6816E-04_JPRB,5.7642E-04_JPRB,6.7912E-04_JPRB,7.7992E-04_JPRB,8.8480E-04_JPRB/) |
897 |
|
|
KBO( :,57, 4) = (/& |
898 |
✓✓ |
6 |
& 3.6414E-04_JPRB,4.5440E-04_JPRB,5.4227E-04_JPRB,6.2686E-04_JPRB,7.1489E-04_JPRB/) |
899 |
|
|
KBO( :,58, 4) = (/& |
900 |
✓✓ |
6 |
& 2.8365E-04_JPRB,3.5805E-04_JPRB,4.3286E-04_JPRB,5.0398E-04_JPRB,5.7785E-04_JPRB/) |
901 |
|
|
KBO( :,59, 4) = (/& |
902 |
✓✓ |
6 |
& 2.3044E-04_JPRB,2.9262E-04_JPRB,3.5550E-04_JPRB,4.1574E-04_JPRB,4.7795E-04_JPRB/) |
903 |
|
|
KBO( :,13, 5) = (/& |
904 |
✓✓ |
6 |
& 4.6093E+00_JPRB,4.6787E+00_JPRB,4.7279E+00_JPRB,4.7779E+00_JPRB,4.8597E+00_JPRB/) |
905 |
|
|
KBO( :,14, 5) = (/& |
906 |
✓✓ |
6 |
& 3.8282E+00_JPRB,3.8821E+00_JPRB,3.9279E+00_JPRB,3.9847E+00_JPRB,4.0757E+00_JPRB/) |
907 |
|
|
KBO( :,15, 5) = (/& |
908 |
✓✓ |
6 |
& 3.1725E+00_JPRB,3.2179E+00_JPRB,3.2654E+00_JPRB,3.3336E+00_JPRB,3.4242E+00_JPRB/) |
909 |
|
|
KBO( :,16, 5) = (/& |
910 |
✓✓ |
6 |
& 2.6254E+00_JPRB,2.6717E+00_JPRB,2.7257E+00_JPRB,2.7935E+00_JPRB,2.8681E+00_JPRB/) |
911 |
|
|
KBO( :,17, 5) = (/& |
912 |
✓✓ |
6 |
& 2.1766E+00_JPRB,2.2257E+00_JPRB,2.2759E+00_JPRB,2.3323E+00_JPRB,2.3943E+00_JPRB/) |
913 |
|
|
KBO( :,18, 5) = (/& |
914 |
✓✓ |
6 |
& 1.8104E+00_JPRB,1.8529E+00_JPRB,1.8948E+00_JPRB,1.9412E+00_JPRB,1.9943E+00_JPRB/) |
915 |
|
|
KBO( :,19, 5) = (/& |
916 |
✓✓ |
6 |
& 1.5048E+00_JPRB,1.5390E+00_JPRB,1.5736E+00_JPRB,1.6140E+00_JPRB,1.6604E+00_JPRB/) |
917 |
|
|
KBO( :,20, 5) = (/& |
918 |
✓✓ |
6 |
& 1.2496E+00_JPRB,1.2771E+00_JPRB,1.3070E+00_JPRB,1.3421E+00_JPRB,1.3834E+00_JPRB/) |
919 |
|
|
KBO( :,21, 5) = (/& |
920 |
✓✓ |
6 |
& 1.0376E+00_JPRB,1.0603E+00_JPRB,1.0863E+00_JPRB,1.1161E+00_JPRB,1.1527E+00_JPRB/) |
921 |
|
|
KBO( :,22, 5) = (/& |
922 |
✓✓ |
6 |
& 8.6290E-01_JPRB,8.8239E-01_JPRB,9.0428E-01_JPRB,9.3058E-01_JPRB,9.6346E-01_JPRB/) |
923 |
|
|
KBO( :,23, 5) = (/& |
924 |
✓✓ |
6 |
& 7.1714E-01_JPRB,7.3382E-01_JPRB,7.5282E-01_JPRB,7.7698E-01_JPRB,8.0640E-01_JPRB/) |
925 |
|
|
KBO( :,24, 5) = (/& |
926 |
✓✓ |
6 |
& 5.9554E-01_JPRB,6.0982E-01_JPRB,6.2698E-01_JPRB,6.4926E-01_JPRB,6.7588E-01_JPRB/) |
927 |
|
|
KBO( :,25, 5) = (/& |
928 |
✓✓ |
6 |
& 4.9438E-01_JPRB,5.0695E-01_JPRB,5.2299E-01_JPRB,5.4349E-01_JPRB,5.6801E-01_JPRB/) |
929 |
|
|
KBO( :,26, 5) = (/& |
930 |
✓✓ |
6 |
& 4.1054E-01_JPRB,4.2226E-01_JPRB,4.3732E-01_JPRB,4.5640E-01_JPRB,4.7888E-01_JPRB/) |
931 |
|
|
KBO( :,27, 5) = (/& |
932 |
✓✓ |
6 |
& 3.4145E-01_JPRB,3.5257E-01_JPRB,3.6692E-01_JPRB,3.8422E-01_JPRB,4.0431E-01_JPRB/) |
933 |
|
|
KBO( :,28, 5) = (/& |
934 |
✓✓ |
6 |
& 2.8483E-01_JPRB,2.9535E-01_JPRB,3.0859E-01_JPRB,3.2404E-01_JPRB,3.4192E-01_JPRB/) |
935 |
|
|
KBO( :,29, 5) = (/& |
936 |
✓✓ |
6 |
& 2.3827E-01_JPRB,2.4827E-01_JPRB,2.6013E-01_JPRB,2.7398E-01_JPRB,2.9004E-01_JPRB/) |
937 |
|
|
KBO( :,30, 5) = (/& |
938 |
✓✓ |
6 |
& 1.9983E-01_JPRB,2.0911E-01_JPRB,2.1978E-01_JPRB,2.3227E-01_JPRB,2.4681E-01_JPRB/) |
939 |
|
|
|
940 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART3',1,ZHOOK_HANDLE) |
941 |
|
1 |
END SUBROUTINE PART3 |
942 |
|
|
|
943 |
|
|
|
944 |
|
1 |
SUBROUTINE PART4 |
945 |
|
|
|
946 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
947 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART4',0,ZHOOK_HANDLE) |
948 |
|
|
|
949 |
|
|
|
950 |
|
|
KBO( :,31, 5) = (/& |
951 |
✓✓ |
6 |
& 1.6804E-01_JPRB,1.7642E-01_JPRB,1.8613E-01_JPRB,1.9752E-01_JPRB,2.1089E-01_JPRB/) |
952 |
|
|
KBO( :,32, 5) = (/& |
953 |
✓✓ |
6 |
& 1.4159E-01_JPRB,1.4918E-01_JPRB,1.5803E-01_JPRB,1.6847E-01_JPRB,1.8108E-01_JPRB/) |
954 |
|
|
KBO( :,33, 5) = (/& |
955 |
✓✓ |
6 |
& 1.1954E-01_JPRB,1.2642E-01_JPRB,1.3455E-01_JPRB,1.4426E-01_JPRB,1.5610E-01_JPRB/) |
956 |
|
|
KBO( :,34, 5) = (/& |
957 |
✓✓ |
6 |
& 1.0095E-01_JPRB,1.0717E-01_JPRB,1.1462E-01_JPRB,1.2375E-01_JPRB,1.3481E-01_JPRB/) |
958 |
|
|
KBO( :,35, 5) = (/& |
959 |
✓✓ |
6 |
& 8.4924E-02_JPRB,9.0501E-02_JPRB,9.7279E-02_JPRB,1.0569E-01_JPRB,1.1588E-01_JPRB/) |
960 |
|
|
KBO( :,36, 5) = (/& |
961 |
✓✓ |
6 |
& 7.1064E-02_JPRB,7.5984E-02_JPRB,8.2057E-02_JPRB,8.9603E-02_JPRB,9.8847E-02_JPRB/) |
962 |
|
|
KBO( :,37, 5) = (/& |
963 |
✓✓ |
6 |
& 5.8932E-02_JPRB,6.3161E-02_JPRB,6.8439E-02_JPRB,7.5043E-02_JPRB,8.3182E-02_JPRB/) |
964 |
|
|
KBO( :,38, 5) = (/& |
965 |
✓✓ |
6 |
& 4.8865E-02_JPRB,5.2499E-02_JPRB,5.7079E-02_JPRB,6.2859E-02_JPRB,7.0017E-02_JPRB/) |
966 |
|
|
KBO( :,39, 5) = (/& |
967 |
✓✓ |
6 |
& 4.0531E-02_JPRB,4.3655E-02_JPRB,4.7640E-02_JPRB,5.2727E-02_JPRB,5.9016E-02_JPRB/) |
968 |
|
|
KBO( :,40, 5) = (/& |
969 |
✓✓ |
6 |
& 3.3380E-02_JPRB,3.6019E-02_JPRB,3.9402E-02_JPRB,4.3769E-02_JPRB,4.9191E-02_JPRB/) |
970 |
|
|
KBO( :,41, 5) = (/& |
971 |
✓✓ |
6 |
& 2.7463E-02_JPRB,2.9675E-02_JPRB,3.2537E-02_JPRB,3.6268E-02_JPRB,4.0932E-02_JPRB/) |
972 |
|
|
KBO( :,42, 5) = (/& |
973 |
✓✓ |
6 |
& 2.2583E-02_JPRB,2.4432E-02_JPRB,2.6850E-02_JPRB,3.0032E-02_JPRB,3.4041E-02_JPRB/) |
974 |
|
|
KBO( :,43, 5) = (/& |
975 |
✓✓ |
6 |
& 1.8485E-02_JPRB,2.0010E-02_JPRB,2.2013E-02_JPRB,2.4687E-02_JPRB,2.8084E-02_JPRB/) |
976 |
|
|
KBO( :,44, 5) = (/& |
977 |
✓✓ |
6 |
& 1.5098E-02_JPRB,1.6344E-02_JPRB,1.7988E-02_JPRB,2.0205E-02_JPRB,2.3066E-02_JPRB/) |
978 |
|
|
KBO( :,45, 5) = (/& |
979 |
✓✓ |
6 |
& 1.2325E-02_JPRB,1.3345E-02_JPRB,1.4686E-02_JPRB,1.6519E-02_JPRB,1.8916E-02_JPRB/) |
980 |
|
|
KBO( :,46, 5) = (/& |
981 |
✓✓ |
6 |
& 1.0042E-02_JPRB,1.0870E-02_JPRB,1.1952E-02_JPRB,1.3450E-02_JPRB,1.5443E-02_JPRB/) |
982 |
|
|
KBO( :,47, 5) = (/& |
983 |
✓✓ |
6 |
& 8.1480E-03_JPRB,8.8179E-03_JPRB,9.6778E-03_JPRB,1.0879E-02_JPRB,1.2508E-02_JPRB/) |
984 |
|
|
KBO( :,48, 5) = (/& |
985 |
✓✓ |
6 |
& 6.6080E-03_JPRB,7.1502E-03_JPRB,7.8346E-03_JPRB,8.7926E-03_JPRB,1.0114E-02_JPRB/) |
986 |
|
|
KBO( :,49, 5) = (/& |
987 |
✓✓ |
6 |
& 5.3563E-03_JPRB,5.7957E-03_JPRB,6.3414E-03_JPRB,7.1019E-03_JPRB,8.1661E-03_JPRB/) |
988 |
|
|
KBO( :,50, 5) = (/& |
989 |
✓✓ |
6 |
& 4.3491E-03_JPRB,4.7045E-03_JPRB,5.1464E-03_JPRB,5.7505E-03_JPRB,6.6095E-03_JPRB/) |
990 |
|
|
KBO( :,51, 5) = (/& |
991 |
✓✓ |
6 |
& 3.5331E-03_JPRB,3.8208E-03_JPRB,4.1803E-03_JPRB,4.6605E-03_JPRB,5.3531E-03_JPRB/) |
992 |
|
|
KBO( :,52, 5) = (/& |
993 |
✓✓ |
6 |
& 2.8692E-03_JPRB,3.1024E-03_JPRB,3.3948E-03_JPRB,3.7764E-03_JPRB,4.3307E-03_JPRB/) |
994 |
|
|
KBO( :,53, 5) = (/& |
995 |
✓✓ |
6 |
& 2.3284E-03_JPRB,2.5177E-03_JPRB,2.7545E-03_JPRB,3.0575E-03_JPRB,3.4986E-03_JPRB/) |
996 |
|
|
KBO( :,54, 5) = (/& |
997 |
✓✓ |
6 |
& 1.8918E-03_JPRB,2.0476E-03_JPRB,2.2400E-03_JPRB,2.4835E-03_JPRB,2.8364E-03_JPRB/) |
998 |
|
|
KBO( :,55, 5) = (/& |
999 |
✓✓ |
6 |
& 1.5376E-03_JPRB,1.6662E-03_JPRB,1.8225E-03_JPRB,2.0195E-03_JPRB,2.3020E-03_JPRB/) |
1000 |
|
|
KBO( :,56, 5) = (/& |
1001 |
✓✓ |
6 |
& 1.2490E-03_JPRB,1.3549E-03_JPRB,1.4817E-03_JPRB,1.6414E-03_JPRB,1.8660E-03_JPRB/) |
1002 |
|
|
KBO( :,57, 5) = (/& |
1003 |
✓✓ |
6 |
& 1.0129E-03_JPRB,1.1011E-03_JPRB,1.2038E-03_JPRB,1.3331E-03_JPRB,1.5112E-03_JPRB/) |
1004 |
|
|
KBO( :,58, 5) = (/& |
1005 |
✓✓ |
6 |
& 8.2101E-04_JPRB,8.9501E-04_JPRB,9.7881E-04_JPRB,1.0839E-03_JPRB,1.2260E-03_JPRB/) |
1006 |
|
|
KBO( :,59, 5) = (/& |
1007 |
✓✓ |
6 |
& 6.7572E-04_JPRB,7.3861E-04_JPRB,8.0949E-04_JPRB,8.9902E-04_JPRB,1.0203E-03_JPRB/) |
1008 |
|
|
KBO( :,13, 6) = (/& |
1009 |
✓✓ |
6 |
& 8.6113E+00_JPRB,8.6083E+00_JPRB,8.6450E+00_JPRB,8.7235E+00_JPRB,8.8556E+00_JPRB/) |
1010 |
|
|
KBO( :,14, 6) = (/& |
1011 |
✓✓ |
6 |
& 7.2014E+00_JPRB,7.2025E+00_JPRB,7.2397E+00_JPRB,7.3254E+00_JPRB,7.4723E+00_JPRB/) |
1012 |
|
|
KBO( :,15, 6) = (/& |
1013 |
✓✓ |
6 |
& 6.0044E+00_JPRB,6.0112E+00_JPRB,6.0572E+00_JPRB,6.1588E+00_JPRB,6.3194E+00_JPRB/) |
1014 |
|
|
KBO( :,16, 6) = (/& |
1015 |
✓✓ |
6 |
& 4.9871E+00_JPRB,5.0011E+00_JPRB,5.0609E+00_JPRB,5.1819E+00_JPRB,5.3526E+00_JPRB/) |
1016 |
|
|
KBO( :,17, 6) = (/& |
1017 |
✓✓ |
6 |
& 4.1295E+00_JPRB,4.1562E+00_JPRB,4.2380E+00_JPRB,4.3711E+00_JPRB,4.5320E+00_JPRB/) |
1018 |
|
|
KBO( :,18, 6) = (/& |
1019 |
✓✓ |
6 |
& 3.4160E+00_JPRB,3.4619E+00_JPRB,3.5592E+00_JPRB,3.6837E+00_JPRB,3.8207E+00_JPRB/) |
1020 |
|
|
KBO( :,19, 6) = (/& |
1021 |
✓✓ |
6 |
& 2.8320E+00_JPRB,2.8936E+00_JPRB,2.9843E+00_JPRB,3.0907E+00_JPRB,3.2080E+00_JPRB/) |
1022 |
|
|
KBO( :,20, 6) = (/& |
1023 |
✓✓ |
6 |
& 2.3566E+00_JPRB,2.4173E+00_JPRB,2.4971E+00_JPRB,2.5878E+00_JPRB,2.6909E+00_JPRB/) |
1024 |
|
|
KBO( :,21, 6) = (/& |
1025 |
✓✓ |
6 |
& 1.9610E+00_JPRB,2.0160E+00_JPRB,2.0844E+00_JPRB,2.1648E+00_JPRB,2.2552E+00_JPRB/) |
1026 |
|
|
KBO( :,22, 6) = (/& |
1027 |
✓✓ |
6 |
& 1.6333E+00_JPRB,1.6835E+00_JPRB,1.7446E+00_JPRB,1.8165E+00_JPRB,1.8978E+00_JPRB/) |
1028 |
|
|
KBO( :,23, 6) = (/& |
1029 |
✓✓ |
6 |
& 1.3622E+00_JPRB,1.4076E+00_JPRB,1.4625E+00_JPRB,1.5261E+00_JPRB,1.5991E+00_JPRB/) |
1030 |
|
|
KBO( :,24, 6) = (/& |
1031 |
✓✓ |
6 |
& 1.1385E+00_JPRB,1.1796E+00_JPRB,1.2278E+00_JPRB,1.2843E+00_JPRB,1.3507E+00_JPRB/) |
1032 |
|
|
KBO( :,25, 6) = (/& |
1033 |
✓✓ |
6 |
& 9.5319E-01_JPRB,9.8944E-01_JPRB,1.0319E+00_JPRB,1.0833E+00_JPRB,1.1441E+00_JPRB/) |
1034 |
|
|
KBO( :,26, 6) = (/& |
1035 |
✓✓ |
6 |
& 7.9849E-01_JPRB,8.3054E-01_JPRB,8.6957E-01_JPRB,9.1733E-01_JPRB,9.7330E-01_JPRB/) |
1036 |
|
|
KBO( :,27, 6) = (/& |
1037 |
✓✓ |
6 |
& 6.6899E-01_JPRB,6.9794E-01_JPRB,7.3432E-01_JPRB,7.7906E-01_JPRB,8.3118E-01_JPRB/) |
1038 |
|
|
KBO( :,28, 6) = (/& |
1039 |
✓✓ |
6 |
& 5.6075E-01_JPRB,5.8798E-01_JPRB,6.2243E-01_JPRB,6.6420E-01_JPRB,7.1248E-01_JPRB/) |
1040 |
|
|
KBO( :,29, 6) = (/& |
1041 |
✓✓ |
6 |
& 4.7122E-01_JPRB,4.9735E-01_JPRB,5.3000E-01_JPRB,5.6898E-01_JPRB,6.1331E-01_JPRB/) |
1042 |
|
|
KBO( :,30, 6) = (/& |
1043 |
✓✓ |
6 |
& 3.9766E-01_JPRB,4.2278E-01_JPRB,4.5340E-01_JPRB,4.8935E-01_JPRB,5.2965E-01_JPRB/) |
1044 |
|
|
KBO( :,31, 6) = (/& |
1045 |
✓✓ |
6 |
& 3.3747E-01_JPRB,3.6139E-01_JPRB,3.8970E-01_JPRB,4.2246E-01_JPRB,4.5888E-01_JPRB/) |
1046 |
|
|
KBO( :,32, 6) = (/& |
1047 |
✓✓ |
6 |
& 2.8804E-01_JPRB,3.1035E-01_JPRB,3.3634E-01_JPRB,3.6608E-01_JPRB,3.9890E-01_JPRB/) |
1048 |
|
|
KBO( :,33, 6) = (/& |
1049 |
✓✓ |
6 |
& 2.4714E-01_JPRB,2.6763E-01_JPRB,2.9142E-01_JPRB,3.1834E-01_JPRB,3.4859E-01_JPRB/) |
1050 |
|
|
KBO( :,34, 6) = (/& |
1051 |
✓✓ |
6 |
& 2.1224E-01_JPRB,2.3103E-01_JPRB,2.5268E-01_JPRB,2.7715E-01_JPRB,3.0529E-01_JPRB/) |
1052 |
|
|
KBO( :,35, 6) = (/& |
1053 |
✓✓ |
6 |
& 1.8132E-01_JPRB,1.9841E-01_JPRB,2.1788E-01_JPRB,2.4021E-01_JPRB,2.6615E-01_JPRB/) |
1054 |
|
|
KBO( :,36, 6) = (/& |
1055 |
✓✓ |
6 |
& 1.5372E-01_JPRB,1.6906E-01_JPRB,1.8646E-01_JPRB,2.0663E-01_JPRB,2.3032E-01_JPRB/) |
1056 |
|
|
KBO( :,37, 6) = (/& |
1057 |
✓✓ |
6 |
& 1.2864E-01_JPRB,1.4207E-01_JPRB,1.5741E-01_JPRB,1.7532E-01_JPRB,1.9647E-01_JPRB/) |
1058 |
|
|
KBO( :,38, 6) = (/& |
1059 |
✓✓ |
6 |
& 1.0758E-01_JPRB,1.1934E-01_JPRB,1.3284E-01_JPRB,1.4872E-01_JPRB,1.6769E-01_JPRB/) |
1060 |
|
|
KBO( :,39, 6) = (/& |
1061 |
✓✓ |
6 |
& 9.0014E-02_JPRB,1.0028E-01_JPRB,1.1215E-01_JPRB,1.2626E-01_JPRB,1.4329E-01_JPRB/) |
1062 |
|
|
KBO( :,40, 6) = (/& |
1063 |
✓✓ |
6 |
& 7.4527E-02_JPRB,8.3327E-02_JPRB,9.3593E-02_JPRB,1.0586E-01_JPRB,1.2084E-01_JPRB/) |
1064 |
|
|
KBO( :,41, 6) = (/& |
1065 |
✓✓ |
6 |
& 6.1610E-02_JPRB,6.9119E-02_JPRB,7.7943E-02_JPRB,8.8568E-02_JPRB,1.0169E-01_JPRB/) |
1066 |
|
|
KBO( :,42, 6) = (/& |
1067 |
✓✓ |
6 |
& 5.0916E-02_JPRB,5.7313E-02_JPRB,6.4881E-02_JPRB,7.4072E-02_JPRB,8.5537E-02_JPRB/) |
1068 |
|
|
KBO( :,43, 6) = (/& |
1069 |
✓✓ |
6 |
& 4.1772E-02_JPRB,4.7174E-02_JPRB,5.3598E-02_JPRB,6.1449E-02_JPRB,7.1316E-02_JPRB/) |
1070 |
|
|
KBO( :,44, 6) = (/& |
1071 |
✓✓ |
6 |
& 3.4127E-02_JPRB,3.8669E-02_JPRB,4.4102E-02_JPRB,5.0754E-02_JPRB,5.9162E-02_JPRB/) |
1072 |
|
|
KBO( :,45, 6) = (/& |
1073 |
✓✓ |
6 |
& 2.7847E-02_JPRB,3.1650E-02_JPRB,3.6246E-02_JPRB,4.1879E-02_JPRB,4.9025E-02_JPRB/) |
1074 |
|
|
KBO( :,46, 6) = (/& |
1075 |
✓✓ |
6 |
& 2.2640E-02_JPRB,2.5789E-02_JPRB,2.9652E-02_JPRB,3.4397E-02_JPRB,4.0430E-02_JPRB/) |
1076 |
|
|
KBO( :,47, 6) = (/& |
1077 |
✓✓ |
6 |
& 1.8270E-02_JPRB,2.0851E-02_JPRB,2.4060E-02_JPRB,2.8007E-02_JPRB,3.3038E-02_JPRB/) |
1078 |
|
|
KBO( :,48, 6) = (/& |
1079 |
✓✓ |
6 |
& 1.4718E-02_JPRB,1.6825E-02_JPRB,1.9472E-02_JPRB,2.2745E-02_JPRB,2.6928E-02_JPRB/) |
1080 |
|
|
KBO( :,49, 6) = (/& |
1081 |
✓✓ |
6 |
& 1.1830E-02_JPRB,1.3552E-02_JPRB,1.5716E-02_JPRB,1.8420E-02_JPRB,2.1884E-02_JPRB/) |
1082 |
|
|
KBO( :,50, 6) = (/& |
1083 |
✓✓ |
6 |
& 9.5237E-03_JPRB,1.0928E-02_JPRB,1.2702E-02_JPRB,1.4943E-02_JPRB,1.7817E-02_JPRB/) |
1084 |
|
|
KBO( :,51, 6) = (/& |
1085 |
✓✓ |
6 |
& 7.6692E-03_JPRB,8.8098E-03_JPRB,1.0261E-02_JPRB,1.2117E-02_JPRB,1.4501E-02_JPRB/) |
1086 |
|
|
KBO( :,52, 6) = (/& |
1087 |
✓✓ |
6 |
& 6.1727E-03_JPRB,7.0883E-03_JPRB,8.2706E-03_JPRB,9.8014E-03_JPRB,1.1773E-02_JPRB/) |
1088 |
|
|
KBO( :,53, 6) = (/& |
1089 |
✓✓ |
6 |
& 4.9680E-03_JPRB,5.6916E-03_JPRB,6.6514E-03_JPRB,7.9092E-03_JPRB,9.5340E-03_JPRB/) |
1090 |
|
|
KBO( :,54, 6) = (/& |
1091 |
✓✓ |
6 |
& 4.0130E-03_JPRB,4.5840E-03_JPRB,5.3714E-03_JPRB,6.4027E-03_JPRB,7.7491E-03_JPRB/) |
1092 |
|
|
KBO( :,55, 6) = (/& |
1093 |
✓✓ |
6 |
& 3.2475E-03_JPRB,3.6955E-03_JPRB,4.3373E-03_JPRB,5.1858E-03_JPRB,6.3030E-03_JPRB/) |
1094 |
|
|
KBO( :,56, 6) = (/& |
1095 |
✓✓ |
6 |
& 2.6304E-03_JPRB,2.9771E-03_JPRB,3.4979E-03_JPRB,4.1928E-03_JPRB,5.1174E-03_JPRB/) |
1096 |
|
|
KBO( :,57, 6) = (/& |
1097 |
✓✓ |
6 |
& 2.1330E-03_JPRB,2.3975E-03_JPRB,2.8161E-03_JPRB,3.3836E-03_JPRB,4.1464E-03_JPRB/) |
1098 |
|
|
KBO( :,58, 6) = (/& |
1099 |
✓✓ |
6 |
& 1.7350E-03_JPRB,1.9351E-03_JPRB,2.2702E-03_JPRB,2.7338E-03_JPRB,3.3646E-03_JPRB/) |
1100 |
|
|
KBO( :,59, 6) = (/& |
1101 |
✓✓ |
6 |
& 1.4314E-03_JPRB,1.6016E-03_JPRB,1.8884E-03_JPRB,2.2911E-03_JPRB,2.8369E-03_JPRB/) |
1102 |
|
|
KBO( :,13, 7) = (/& |
1103 |
✓✓ |
6 |
& 1.7998E+01_JPRB,1.8384E+01_JPRB,1.8787E+01_JPRB,1.9175E+01_JPRB,1.9563E+01_JPRB/) |
1104 |
|
|
KBO( :,14, 7) = (/& |
1105 |
✓✓ |
6 |
& 1.5399E+01_JPRB,1.5722E+01_JPRB,1.6043E+01_JPRB,1.6364E+01_JPRB,1.6692E+01_JPRB/) |
1106 |
|
|
KBO( :,15, 7) = (/& |
1107 |
✓✓ |
6 |
& 1.3091E+01_JPRB,1.3337E+01_JPRB,1.3597E+01_JPRB,1.3865E+01_JPRB,1.4179E+01_JPRB/) |
1108 |
|
|
KBO( :,16, 7) = (/& |
1109 |
✓✓ |
6 |
& 1.1057E+01_JPRB,1.1261E+01_JPRB,1.1479E+01_JPRB,1.1723E+01_JPRB,1.2049E+01_JPRB/) |
1110 |
|
|
KBO( :,17, 7) = (/& |
1111 |
✓✓ |
6 |
& 9.3100E+00_JPRB,9.4784E+00_JPRB,9.6707E+00_JPRB,9.9204E+00_JPRB,1.0268E+01_JPRB/) |
1112 |
|
|
KBO( :,18, 7) = (/& |
1113 |
✓✓ |
6 |
& 7.8212E+00_JPRB,7.9725E+00_JPRB,8.1612E+00_JPRB,8.4289E+00_JPRB,8.7794E+00_JPRB/) |
1114 |
|
|
KBO( :,19, 7) = (/& |
1115 |
✓✓ |
6 |
& 6.5480E+00_JPRB,6.6917E+00_JPRB,6.8980E+00_JPRB,7.1803E+00_JPRB,7.5042E+00_JPRB/) |
1116 |
|
|
KBO( :,20, 7) = (/& |
1117 |
✓✓ |
6 |
& 5.4693E+00_JPRB,5.6250E+00_JPRB,5.8473E+00_JPRB,6.1172E+00_JPRB,6.4007E+00_JPRB/) |
1118 |
|
|
KBO( :,21, 7) = (/& |
1119 |
✓✓ |
6 |
& 4.5737E+00_JPRB,4.7442E+00_JPRB,4.9649E+00_JPRB,5.1990E+00_JPRB,5.4386E+00_JPRB/) |
1120 |
|
|
KBO( :,22, 7) = (/& |
1121 |
✓✓ |
6 |
& 3.8455E+00_JPRB,4.0231E+00_JPRB,4.2157E+00_JPRB,4.4147E+00_JPRB,4.6179E+00_JPRB/) |
1122 |
|
|
KBO( :,23, 7) = (/& |
1123 |
✓✓ |
6 |
& 3.2447E+00_JPRB,3.4045E+00_JPRB,3.5713E+00_JPRB,3.7411E+00_JPRB,3.9201E+00_JPRB/) |
1124 |
|
|
KBO( :,24, 7) = (/& |
1125 |
✓✓ |
6 |
& 2.7398E+00_JPRB,2.8775E+00_JPRB,3.0223E+00_JPRB,3.1715E+00_JPRB,3.3312E+00_JPRB/) |
1126 |
|
|
KBO( :,25, 7) = (/& |
1127 |
✓✓ |
6 |
& 2.3131E+00_JPRB,2.4334E+00_JPRB,2.5607E+00_JPRB,2.6934E+00_JPRB,2.8395E+00_JPRB/) |
1128 |
|
|
KBO( :,26, 7) = (/& |
1129 |
✓✓ |
6 |
& 1.9571E+00_JPRB,2.0628E+00_JPRB,2.1758E+00_JPRB,2.2949E+00_JPRB,2.4331E+00_JPRB/) |
1130 |
|
|
KBO( :,27, 7) = (/& |
1131 |
✓✓ |
6 |
& 1.6594E+00_JPRB,1.7534E+00_JPRB,1.8527E+00_JPRB,1.9641E+00_JPRB,2.0963E+00_JPRB/) |
1132 |
|
|
KBO( :,28, 7) = (/& |
1133 |
✓✓ |
6 |
& 1.4114E+00_JPRB,1.4941E+00_JPRB,1.5830E+00_JPRB,1.6881E+00_JPRB,1.8157E+00_JPRB/) |
1134 |
|
|
KBO( :,29, 7) = (/& |
1135 |
✓✓ |
6 |
& 1.2034E+00_JPRB,1.2757E+00_JPRB,1.3579E+00_JPRB,1.4591E+00_JPRB,1.5811E+00_JPRB/) |
1136 |
|
|
KBO( :,30, 7) = (/& |
1137 |
✓✓ |
6 |
& 1.0272E+00_JPRB,1.0924E+00_JPRB,1.1710E+00_JPRB,1.2689E+00_JPRB,1.3849E+00_JPRB/) |
1138 |
|
|
KBO( :,31, 7) = (/& |
1139 |
✓✓ |
6 |
& 8.7820E-01_JPRB,9.4005E-01_JPRB,1.0171E+00_JPRB,1.1110E+00_JPRB,1.2204E+00_JPRB/) |
1140 |
|
|
KBO( :,32, 7) = (/& |
1141 |
✓✓ |
6 |
& 7.5354E-01_JPRB,8.1419E-01_JPRB,8.8955E-01_JPRB,9.7931E-01_JPRB,1.0823E+00_JPRB/) |
1142 |
|
|
KBO( :,33, 7) = (/& |
1143 |
✓✓ |
6 |
& 6.5024E-01_JPRB,7.1018E-01_JPRB,7.8337E-01_JPRB,8.6897E-01_JPRB,9.6647E-01_JPRB/) |
1144 |
|
|
KBO( :,34, 7) = (/& |
1145 |
✓✓ |
6 |
& 5.6343E-01_JPRB,6.2181E-01_JPRB,6.9198E-01_JPRB,7.7311E-01_JPRB,8.6525E-01_JPRB/) |
1146 |
|
|
KBO( :,35, 7) = (/& |
1147 |
✓✓ |
6 |
& 4.8705E-01_JPRB,5.4236E-01_JPRB,6.0822E-01_JPRB,6.8426E-01_JPRB,7.7067E-01_JPRB/) |
1148 |
|
|
KBO( :,36, 7) = (/& |
1149 |
✓✓ |
6 |
& 4.1841E-01_JPRB,4.6955E-01_JPRB,5.3016E-01_JPRB,6.0039E-01_JPRB,6.8061E-01_JPRB/) |
1150 |
|
|
KBO( :,37, 7) = (/& |
1151 |
✓✓ |
6 |
& 3.5459E-01_JPRB,4.0042E-01_JPRB,4.5487E-01_JPRB,5.1825E-01_JPRB,5.9150E-01_JPRB/) |
1152 |
|
|
KBO( :,38, 7) = (/& |
1153 |
✓✓ |
6 |
& 3.0070E-01_JPRB,3.4160E-01_JPRB,3.9046E-01_JPRB,4.4765E-01_JPRB,5.1436E-01_JPRB/) |
1154 |
|
|
KBO( :,39, 7) = (/& |
1155 |
✓✓ |
6 |
& 2.5532E-01_JPRB,2.9176E-01_JPRB,3.3565E-01_JPRB,3.8725E-01_JPRB,4.4814E-01_JPRB/) |
1156 |
|
|
KBO( :,40, 7) = (/& |
1157 |
✓✓ |
6 |
& 2.1409E-01_JPRB,2.4592E-01_JPRB,2.8460E-01_JPRB,3.3041E-01_JPRB,3.8495E-01_JPRB/) |
1158 |
|
|
KBO( :,41, 7) = (/& |
1159 |
✓✓ |
6 |
& 1.7907E-01_JPRB,2.0691E-01_JPRB,2.4085E-01_JPRB,2.8135E-01_JPRB,3.3001E-01_JPRB/) |
1160 |
|
|
KBO( :,42, 7) = (/& |
1161 |
✓✓ |
6 |
& 1.4955E-01_JPRB,1.7397E-01_JPRB,2.0378E-01_JPRB,2.3951E-01_JPRB,2.8290E-01_JPRB/) |
1162 |
|
|
KBO( :,43, 7) = (/& |
1163 |
✓✓ |
6 |
& 1.2365E-01_JPRB,1.4471E-01_JPRB,1.7077E-01_JPRB,2.0210E-01_JPRB,2.4022E-01_JPRB/) |
1164 |
|
|
KBO( :,44, 7) = (/& |
1165 |
✓✓ |
6 |
& 1.0162E-01_JPRB,1.1963E-01_JPRB,1.4218E-01_JPRB,1.6960E-01_JPRB,2.0293E-01_JPRB/) |
1166 |
|
|
KBO( :,45, 7) = (/& |
1167 |
✓✓ |
6 |
& 8.3355E-02_JPRB,9.8637E-02_JPRB,1.1807E-01_JPRB,1.4201E-01_JPRB,1.7123E-01_JPRB/) |
1168 |
|
|
KBO( :,46, 7) = (/& |
1169 |
✓✓ |
6 |
& 6.8005E-02_JPRB,8.0800E-02_JPRB,9.7358E-02_JPRB,1.1807E-01_JPRB,1.4373E-01_JPRB/) |
1170 |
|
|
KBO( :,47, 7) = (/& |
1171 |
✓✓ |
6 |
& 5.5003E-02_JPRB,6.5496E-02_JPRB,7.9363E-02_JPRB,9.6996E-02_JPRB,1.1911E-01_JPRB/) |
1172 |
|
|
KBO( :,48, 7) = (/& |
1173 |
✓✓ |
6 |
& 4.4405E-02_JPRB,5.2953E-02_JPRB,6.4487E-02_JPRB,7.9375E-02_JPRB,9.8343E-02_JPRB/) |
1174 |
|
|
KBO( :,49, 7) = (/& |
1175 |
✓✓ |
6 |
& 3.5783E-02_JPRB,4.2715E-02_JPRB,5.2233E-02_JPRB,6.4713E-02_JPRB,8.0863E-02_JPRB/) |
1176 |
|
|
KBO( :,50, 7) = (/& |
1177 |
✓✓ |
6 |
& 2.8912E-02_JPRB,3.4525E-02_JPRB,4.2407E-02_JPRB,5.2882E-02_JPRB,6.6632E-02_JPRB/) |
1178 |
|
|
KBO( :,51, 7) = (/& |
1179 |
✓✓ |
6 |
& 2.3366E-02_JPRB,2.7895E-02_JPRB,3.4405E-02_JPRB,4.3195E-02_JPRB,5.4868E-02_JPRB/) |
1180 |
|
|
KBO( :,52, 7) = (/& |
1181 |
✓✓ |
6 |
& 1.8859E-02_JPRB,2.2482E-02_JPRB,2.7819E-02_JPRB,3.5177E-02_JPRB,4.5036E-02_JPRB/) |
1182 |
|
|
KBO( :,53, 7) = (/& |
1183 |
✓✓ |
6 |
& 1.5196E-02_JPRB,1.8070E-02_JPRB,2.2410E-02_JPRB,2.8538E-02_JPRB,3.6840E-02_JPRB/) |
1184 |
|
|
KBO( :,54, 7) = (/& |
1185 |
✓✓ |
6 |
& 1.2283E-02_JPRB,1.4588E-02_JPRB,1.8123E-02_JPRB,2.3240E-02_JPRB,3.0277E-02_JPRB/) |
1186 |
|
|
KBO( :,55, 7) = (/& |
1187 |
✓✓ |
6 |
& 9.9346E-03_JPRB,1.1792E-02_JPRB,1.4660E-02_JPRB,1.8922E-02_JPRB,2.4879E-02_JPRB/) |
1188 |
|
|
KBO( :,56, 7) = (/& |
1189 |
✓✓ |
6 |
& 8.0224E-03_JPRB,9.5173E-03_JPRB,1.1833E-02_JPRB,1.5354E-02_JPRB,2.0376E-02_JPRB/) |
1190 |
|
|
KBO( :,57, 7) = (/& |
1191 |
✓✓ |
6 |
& 6.4674E-03_JPRB,7.6719E-03_JPRB,9.5269E-03_JPRB,1.2415E-02_JPRB,1.6626E-02_JPRB/) |
1192 |
|
|
KBO( :,58, 7) = (/& |
1193 |
✓✓ |
6 |
& 5.2243E-03_JPRB,6.1935E-03_JPRB,7.6844E-03_JPRB,1.0054E-02_JPRB,1.3583E-02_JPRB/) |
1194 |
|
|
KBO( :,59, 7) = (/& |
1195 |
✓✓ |
6 |
& 4.3349E-03_JPRB,5.1717E-03_JPRB,6.4734E-03_JPRB,8.5759E-03_JPRB,1.1721E-02_JPRB/) |
1196 |
|
|
KBO( :,13, 8) = (/& |
1197 |
✓✓ |
6 |
& 4.8718E+01_JPRB,5.0320E+01_JPRB,5.1858E+01_JPRB,5.3380E+01_JPRB,5.4850E+01_JPRB/) |
1198 |
|
|
KBO( :,14, 8) = (/& |
1199 |
✓✓ |
6 |
& 4.2766E+01_JPRB,4.4021E+01_JPRB,4.5285E+01_JPRB,4.6520E+01_JPRB,4.7719E+01_JPRB/) |
1200 |
|
|
KBO( :,15, 8) = (/& |
1201 |
✓✓ |
6 |
& 3.7265E+01_JPRB,3.8285E+01_JPRB,3.9305E+01_JPRB,4.0312E+01_JPRB,4.1280E+01_JPRB/) |
1202 |
|
|
KBO( :,16, 8) = (/& |
1203 |
✓✓ |
6 |
& 3.2320E+01_JPRB,3.3145E+01_JPRB,3.3978E+01_JPRB,3.4801E+01_JPRB,3.5603E+01_JPRB/) |
1204 |
|
|
KBO( :,17, 8) = (/& |
1205 |
✓✓ |
6 |
& 2.7905E+01_JPRB,2.8588E+01_JPRB,2.9274E+01_JPRB,2.9948E+01_JPRB,3.0618E+01_JPRB/) |
1206 |
|
|
KBO( :,18, 8) = (/& |
1207 |
✓✓ |
6 |
& 2.3907E+01_JPRB,2.4472E+01_JPRB,2.5035E+01_JPRB,2.5608E+01_JPRB,2.6240E+01_JPRB/) |
1208 |
|
|
KBO( :,19, 8) = (/& |
1209 |
✓✓ |
6 |
& 2.0357E+01_JPRB,2.0811E+01_JPRB,2.1283E+01_JPRB,2.1801E+01_JPRB,2.2463E+01_JPRB/) |
1210 |
|
|
KBO( :,20, 8) = (/& |
1211 |
✓✓ |
6 |
& 1.7248E+01_JPRB,1.7625E+01_JPRB,1.8041E+01_JPRB,1.8568E+01_JPRB,1.9286E+01_JPRB/) |
1212 |
|
|
KBO( :,21, 8) = (/& |
1213 |
✓✓ |
6 |
& 1.4568E+01_JPRB,1.4891E+01_JPRB,1.5295E+01_JPRB,1.5868E+01_JPRB,1.6645E+01_JPRB/) |
1214 |
|
|
KBO( :,22, 8) = (/& |
1215 |
✓✓ |
6 |
& 1.2302E+01_JPRB,1.2610E+01_JPRB,1.3060E+01_JPRB,1.3693E+01_JPRB,1.4488E+01_JPRB/) |
1216 |
|
|
KBO( :,23, 8) = (/& |
1217 |
✓✓ |
6 |
& 1.0398E+01_JPRB,1.0740E+01_JPRB,1.1241E+01_JPRB,1.1898E+01_JPRB,1.2647E+01_JPRB/) |
1218 |
|
|
KBO( :,24, 8) = (/& |
1219 |
✓✓ |
6 |
& 8.8094E+00_JPRB,9.1977E+00_JPRB,9.7363E+00_JPRB,1.0379E+01_JPRB,1.1057E+01_JPRB/) |
1220 |
|
|
KBO( :,25, 8) = (/& |
1221 |
✓✓ |
6 |
& 7.5025E+00_JPRB,7.9291E+00_JPRB,8.4687E+00_JPRB,9.0617E+00_JPRB,9.6792E+00_JPRB/) |
1222 |
|
|
KBO( :,26, 8) = (/& |
1223 |
✓✓ |
6 |
& 6.4368E+00_JPRB,6.8798E+00_JPRB,7.3859E+00_JPRB,7.9241E+00_JPRB,8.4787E+00_JPRB/) |
1224 |
|
|
KBO( :,27, 8) = (/& |
1225 |
✓✓ |
6 |
& 5.5620E+00_JPRB,5.9868E+00_JPRB,6.4448E+00_JPRB,6.9294E+00_JPRB,7.4281E+00_JPRB/) |
1226 |
|
|
KBO( :,28, 8) = (/& |
1227 |
✓✓ |
6 |
& 4.8240E+00_JPRB,5.2122E+00_JPRB,5.6283E+00_JPRB,6.0659E+00_JPRB,6.5242E+00_JPRB/) |
1228 |
|
|
KBO( :,29, 8) = (/& |
1229 |
✓✓ |
6 |
& 4.1944E+00_JPRB,4.5487E+00_JPRB,4.9272E+00_JPRB,5.3264E+00_JPRB,5.7585E+00_JPRB/) |
1230 |
|
|
KBO( :,30, 8) = (/& |
1231 |
✓✓ |
6 |
& 3.6568E+00_JPRB,3.9803E+00_JPRB,4.3255E+00_JPRB,4.6987E+00_JPRB,5.1122E+00_JPRB/) |
1232 |
|
|
KBO( :,31, 8) = (/& |
1233 |
✓✓ |
6 |
& 3.2011E+00_JPRB,3.4961E+00_JPRB,3.8161E+00_JPRB,4.1707E+00_JPRB,4.5746E+00_JPRB/) |
1234 |
|
|
KBO( :,32, 8) = (/& |
1235 |
✓✓ |
6 |
& 2.8138E+00_JPRB,3.0858E+00_JPRB,3.3881E+00_JPRB,3.7312E+00_JPRB,4.1306E+00_JPRB/) |
1236 |
|
|
KBO( :,33, 8) = (/& |
1237 |
✓✓ |
6 |
& 2.4854E+00_JPRB,2.7408E+00_JPRB,3.0308E+00_JPRB,3.3678E+00_JPRB,3.7681E+00_JPRB/) |
1238 |
|
|
KBO( :,34, 8) = (/& |
1239 |
✓✓ |
6 |
& 2.2003E+00_JPRB,2.4428E+00_JPRB,2.7239E+00_JPRB,3.0581E+00_JPRB,3.4595E+00_JPRB/) |
1240 |
|
|
|
1241 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART4',1,ZHOOK_HANDLE) |
1242 |
|
1 |
END SUBROUTINE PART4 |
1243 |
|
|
|
1244 |
|
|
|
1245 |
|
1 |
SUBROUTINE PART5 |
1246 |
|
|
|
1247 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1248 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART5',0,ZHOOK_HANDLE) |
1249 |
|
|
|
1250 |
|
|
|
1251 |
|
|
KBO( :,35, 8) = (/& |
1252 |
✓✓ |
6 |
& 1.9399E+00_JPRB,2.1700E+00_JPRB,2.4416E+00_JPRB,2.7703E+00_JPRB,3.1684E+00_JPRB/) |
1253 |
|
|
KBO( :,36, 8) = (/& |
1254 |
✓✓ |
6 |
& 1.6987E+00_JPRB,1.9152E+00_JPRB,2.1743E+00_JPRB,2.4922E+00_JPRB,2.8785E+00_JPRB/) |
1255 |
|
|
KBO( :,37, 8) = (/& |
1256 |
✓✓ |
6 |
& 1.4664E+00_JPRB,1.6646E+00_JPRB,1.9059E+00_JPRB,2.2053E+00_JPRB,2.5708E+00_JPRB/) |
1257 |
|
|
KBO( :,38, 8) = (/& |
1258 |
✓✓ |
6 |
& 1.2664E+00_JPRB,1.4483E+00_JPRB,1.6728E+00_JPRB,1.9542E+00_JPRB,2.2994E+00_JPRB/) |
1259 |
|
|
KBO( :,39, 8) = (/& |
1260 |
✓✓ |
6 |
& 1.0955E+00_JPRB,1.2626E+00_JPRB,1.4719E+00_JPRB,1.7366E+00_JPRB,2.0631E+00_JPRB/) |
1261 |
|
|
KBO( :,40, 8) = (/& |
1262 |
✓✓ |
6 |
& 9.3556E-01_JPRB,1.0859E+00_JPRB,1.2762E+00_JPRB,1.5192E+00_JPRB,1.8216E+00_JPRB/) |
1263 |
|
|
KBO( :,41, 8) = (/& |
1264 |
✓✓ |
6 |
& 7.9800E-01_JPRB,9.3250E-01_JPRB,1.1046E+00_JPRB,1.3263E+00_JPRB,1.6051E+00_JPRB/) |
1265 |
|
|
KBO( :,42, 8) = (/& |
1266 |
✓✓ |
6 |
& 6.8026E-01_JPRB,8.0111E-01_JPRB,9.5621E-01_JPRB,1.1581E+00_JPRB,1.4148E+00_JPRB/) |
1267 |
|
|
KBO( :,43, 8) = (/& |
1268 |
✓✓ |
6 |
& 5.7416E-01_JPRB,6.8147E-01_JPRB,8.1937E-01_JPRB,1.0003E+00_JPRB,1.2325E+00_JPRB/) |
1269 |
|
|
KBO( :,44, 8) = (/& |
1270 |
✓✓ |
6 |
& 4.8192E-01_JPRB,5.7630E-01_JPRB,6.9849E-01_JPRB,8.5859E-01_JPRB,1.0670E+00_JPRB/) |
1271 |
|
|
KBO( :,45, 8) = (/& |
1272 |
✓✓ |
6 |
& 4.0390E-01_JPRB,4.8662E-01_JPRB,5.9437E-01_JPRB,7.3642E-01_JPRB,9.2241E-01_JPRB/) |
1273 |
|
|
KBO( :,46, 8) = (/& |
1274 |
✓✓ |
6 |
& 3.3692E-01_JPRB,4.0832E-01_JPRB,5.0245E-01_JPRB,6.2763E-01_JPRB,7.9306E-01_JPRB/) |
1275 |
|
|
KBO( :,47, 8) = (/& |
1276 |
✓✓ |
6 |
& 2.7795E-01_JPRB,3.3890E-01_JPRB,4.1977E-01_JPRB,5.2809E-01_JPRB,6.7337E-01_JPRB/) |
1277 |
|
|
KBO( :,48, 8) = (/& |
1278 |
✓✓ |
6 |
& 2.2885E-01_JPRB,2.8056E-01_JPRB,3.4963E-01_JPRB,4.4288E-01_JPRB,5.6978E-01_JPRB/) |
1279 |
|
|
KBO( :,49, 8) = (/& |
1280 |
✓✓ |
6 |
& 1.8806E-01_JPRB,2.3188E-01_JPRB,2.9038E-01_JPRB,3.7027E-01_JPRB,4.8015E-01_JPRB/) |
1281 |
|
|
KBO( :,50, 8) = (/& |
1282 |
✓✓ |
6 |
& 1.5486E-01_JPRB,1.9227E-01_JPRB,2.4202E-01_JPRB,3.1061E-01_JPRB,4.0591E-01_JPRB/) |
1283 |
|
|
KBO( :,51, 8) = (/& |
1284 |
✓✓ |
6 |
& 1.2721E-01_JPRB,1.5949E-01_JPRB,2.0189E-01_JPRB,2.6069E-01_JPRB,3.4317E-01_JPRB/) |
1285 |
|
|
KBO( :,52, 8) = (/& |
1286 |
✓✓ |
6 |
& 1.0403E-01_JPRB,1.3183E-01_JPRB,1.6821E-01_JPRB,2.1833E-01_JPRB,2.8940E-01_JPRB/) |
1287 |
|
|
KBO( :,53, 8) = (/& |
1288 |
✓✓ |
6 |
& 8.4647E-02_JPRB,1.0841E-01_JPRB,1.3976E-01_JPRB,1.8251E-01_JPRB,2.4335E-01_JPRB/) |
1289 |
|
|
KBO( :,54, 8) = (/& |
1290 |
✓✓ |
6 |
& 6.9094E-02_JPRB,8.9415E-02_JPRB,1.1671E-01_JPRB,1.5366E-01_JPRB,2.0608E-01_JPRB/) |
1291 |
|
|
KBO( :,55, 8) = (/& |
1292 |
✓✓ |
6 |
& 5.6395E-02_JPRB,7.3686E-02_JPRB,9.7324E-02_JPRB,1.2958E-01_JPRB,1.7505E-01_JPRB/) |
1293 |
|
|
KBO( :,56, 8) = (/& |
1294 |
✓✓ |
6 |
& 4.5872E-02_JPRB,6.0506E-02_JPRB,8.0843E-02_JPRB,1.0885E-01_JPRB,1.4852E-01_JPRB/) |
1295 |
|
|
KBO( :,57, 8) = (/& |
1296 |
✓✓ |
6 |
& 3.7163E-02_JPRB,4.9485E-02_JPRB,6.6836E-02_JPRB,9.1072E-02_JPRB,1.2569E-01_JPRB/) |
1297 |
|
|
KBO( :,58, 8) = (/& |
1298 |
✓✓ |
6 |
& 3.0142E-02_JPRB,4.0510E-02_JPRB,5.5284E-02_JPRB,7.6236E-02_JPRB,1.0654E-01_JPRB/) |
1299 |
|
|
KBO( :,59, 8) = (/& |
1300 |
✓✓ |
6 |
& 2.5655E-02_JPRB,3.4976E-02_JPRB,4.8360E-02_JPRB,6.7750E-02_JPRB,9.5910E-02_JPRB/) |
1301 |
|
|
KBO( :,13, 9) = (/& |
1302 |
✓✓ |
6 |
& 2.6710E+02_JPRB,2.6292E+02_JPRB,2.6081E+02_JPRB,2.6060E+02_JPRB,2.6216E+02_JPRB/) |
1303 |
|
|
KBO( :,14, 9) = (/& |
1304 |
✓✓ |
6 |
& 2.2905E+02_JPRB,2.2705E+02_JPRB,2.2701E+02_JPRB,2.2883E+02_JPRB,2.3237E+02_JPRB/) |
1305 |
|
|
KBO( :,15, 9) = (/& |
1306 |
✓✓ |
6 |
& 1.9681E+02_JPRB,1.9674E+02_JPRB,1.9855E+02_JPRB,2.0218E+02_JPRB,2.0745E+02_JPRB/) |
1307 |
|
|
KBO( :,16, 9) = (/& |
1308 |
✓✓ |
6 |
& 1.6990E+02_JPRB,1.7146E+02_JPRB,1.7490E+02_JPRB,1.8008E+02_JPRB,1.8673E+02_JPRB/) |
1309 |
|
|
KBO( :,17, 9) = (/& |
1310 |
✓✓ |
6 |
& 1.4763E+02_JPRB,1.5059E+02_JPRB,1.5539E+02_JPRB,1.6156E+02_JPRB,1.6765E+02_JPRB/) |
1311 |
|
|
KBO( :,18, 9) = (/& |
1312 |
✓✓ |
6 |
& 1.2952E+02_JPRB,1.3368E+02_JPRB,1.3907E+02_JPRB,1.4438E+02_JPRB,1.4950E+02_JPRB/) |
1313 |
|
|
KBO( :,19, 9) = (/& |
1314 |
✓✓ |
6 |
& 1.1453E+02_JPRB,1.1924E+02_JPRB,1.2392E+02_JPRB,1.2844E+02_JPRB,1.3271E+02_JPRB/) |
1315 |
|
|
KBO( :,20, 9) = (/& |
1316 |
✓✓ |
6 |
& 1.0152E+02_JPRB,1.0566E+02_JPRB,1.0970E+02_JPRB,1.1358E+02_JPRB,1.1731E+02_JPRB/) |
1317 |
|
|
KBO( :,21, 9) = (/& |
1318 |
✓✓ |
6 |
& 8.9460E+01_JPRB,9.3028E+01_JPRB,9.6510E+01_JPRB,9.9904E+01_JPRB,1.0318E+02_JPRB/) |
1319 |
|
|
KBO( :,22, 9) = (/& |
1320 |
✓✓ |
6 |
& 7.8631E+01_JPRB,8.1700E+01_JPRB,8.4725E+01_JPRB,8.7702E+01_JPRB,9.0717E+01_JPRB/) |
1321 |
|
|
KBO( :,23, 9) = (/& |
1322 |
✓✓ |
6 |
& 6.8898E+01_JPRB,7.1547E+01_JPRB,7.4194E+01_JPRB,7.6892E+01_JPRB,7.9806E+01_JPRB/) |
1323 |
|
|
KBO( :,24, 9) = (/& |
1324 |
✓✓ |
6 |
& 6.0312E+01_JPRB,6.2630E+01_JPRB,6.4994E+01_JPRB,6.7556E+01_JPRB,7.0443E+01_JPRB/) |
1325 |
|
|
KBO( :,25, 9) = (/& |
1326 |
✓✓ |
6 |
& 5.2851E+01_JPRB,5.4897E+01_JPRB,5.7127E+01_JPRB,5.9634E+01_JPRB,6.2506E+01_JPRB/) |
1327 |
|
|
KBO( :,26, 9) = (/& |
1328 |
✓✓ |
6 |
& 4.6436E+01_JPRB,4.8336E+01_JPRB,5.0486E+01_JPRB,5.2975E+01_JPRB,5.5885E+01_JPRB/) |
1329 |
|
|
KBO( :,27, 9) = (/& |
1330 |
✓✓ |
6 |
& 4.0910E+01_JPRB,4.2771E+01_JPRB,4.4909E+01_JPRB,4.7425E+01_JPRB,5.0391E+01_JPRB/) |
1331 |
|
|
KBO( :,28, 9) = (/& |
1332 |
✓✓ |
6 |
& 3.6155E+01_JPRB,3.8062E+01_JPRB,4.0266E+01_JPRB,4.2832E+01_JPRB,4.5858E+01_JPRB/) |
1333 |
|
|
KBO( :,29, 9) = (/& |
1334 |
✓✓ |
6 |
& 3.2126E+01_JPRB,3.4094E+01_JPRB,3.6392E+01_JPRB,3.9062E+01_JPRB,4.2162E+01_JPRB/) |
1335 |
|
|
KBO( :,30, 9) = (/& |
1336 |
✓✓ |
6 |
& 2.8724E+01_JPRB,3.0764E+01_JPRB,3.3154E+01_JPRB,3.5941E+01_JPRB,3.9179E+01_JPRB/) |
1337 |
|
|
KBO( :,31, 9) = (/& |
1338 |
✓✓ |
6 |
& 2.5882E+01_JPRB,2.7995E+01_JPRB,3.0486E+01_JPRB,3.3401E+01_JPRB,3.6792E+01_JPRB/) |
1339 |
|
|
KBO( :,32, 9) = (/& |
1340 |
✓✓ |
6 |
& 2.3528E+01_JPRB,2.5718E+01_JPRB,2.8311E+01_JPRB,3.1365E+01_JPRB,3.4906E+01_JPRB/) |
1341 |
|
|
KBO( :,33, 9) = (/& |
1342 |
✓✓ |
6 |
& 2.1587E+01_JPRB,2.3866E+01_JPRB,2.6575E+01_JPRB,2.9769E+01_JPRB,3.3431E+01_JPRB/) |
1343 |
|
|
KBO( :,34, 9) = (/& |
1344 |
✓✓ |
6 |
& 1.9935E+01_JPRB,2.2294E+01_JPRB,2.5115E+01_JPRB,2.8414E+01_JPRB,3.2169E+01_JPRB/) |
1345 |
|
|
KBO( :,35, 9) = (/& |
1346 |
✓✓ |
6 |
& 1.8379E+01_JPRB,2.0784E+01_JPRB,2.3667E+01_JPRB,2.7018E+01_JPRB,3.0818E+01_JPRB/) |
1347 |
|
|
KBO( :,36, 9) = (/& |
1348 |
✓✓ |
6 |
& 1.6837E+01_JPRB,1.9243E+01_JPRB,2.2128E+01_JPRB,2.5484E+01_JPRB,2.9290E+01_JPRB/) |
1349 |
|
|
KBO( :,37, 9) = (/& |
1350 |
✓✓ |
6 |
& 1.5193E+01_JPRB,1.7529E+01_JPRB,2.0337E+01_JPRB,2.3631E+01_JPRB,2.7386E+01_JPRB/) |
1351 |
|
|
KBO( :,38, 9) = (/& |
1352 |
✓✓ |
6 |
& 1.3737E+01_JPRB,1.6000E+01_JPRB,1.8725E+01_JPRB,2.1951E+01_JPRB,2.5656E+01_JPRB/) |
1353 |
|
|
KBO( :,39, 9) = (/& |
1354 |
✓✓ |
6 |
& 1.2460E+01_JPRB,1.4648E+01_JPRB,1.7295E+01_JPRB,2.0455E+01_JPRB,2.4116E+01_JPRB/) |
1355 |
|
|
KBO( :,40, 9) = (/& |
1356 |
✓✓ |
6 |
& 1.1143E+01_JPRB,1.3211E+01_JPRB,1.5737E+01_JPRB,1.8782E+01_JPRB,2.2346E+01_JPRB/) |
1357 |
|
|
KBO( :,41, 9) = (/& |
1358 |
✓✓ |
6 |
& 9.9585E+00_JPRB,1.1899E+01_JPRB,1.4300E+01_JPRB,1.7222E+01_JPRB,2.0680E+01_JPRB/) |
1359 |
|
|
KBO( :,42, 9) = (/& |
1360 |
✓✓ |
6 |
& 8.9074E+00_JPRB,1.0724E+01_JPRB,1.3003E+01_JPRB,1.5806E+01_JPRB,1.9155E+01_JPRB/) |
1361 |
|
|
KBO( :,43, 9) = (/& |
1362 |
✓✓ |
6 |
& 7.8838E+00_JPRB,9.5638E+00_JPRB,1.1699E+01_JPRB,1.4356E+01_JPRB,1.7558E+01_JPRB/) |
1363 |
|
|
KBO( :,44, 9) = (/& |
1364 |
✓✓ |
6 |
& 6.9325E+00_JPRB,8.4860E+00_JPRB,1.0467E+01_JPRB,1.2961E+01_JPRB,1.6001E+01_JPRB/) |
1365 |
|
|
KBO( :,45, 9) = (/& |
1366 |
✓✓ |
6 |
& 6.0822E+00_JPRB,7.5231E+00_JPRB,9.3599E+00_JPRB,1.1689E+01_JPRB,1.4566E+01_JPRB/) |
1367 |
|
|
KBO( :,46, 9) = (/& |
1368 |
✓✓ |
6 |
& 5.2984E+00_JPRB,6.6221E+00_JPRB,8.3226E+00_JPRB,1.0480E+01_JPRB,1.3187E+01_JPRB/) |
1369 |
|
|
KBO( :,47, 9) = (/& |
1370 |
✓✓ |
6 |
& 4.5534E+00_JPRB,5.7527E+00_JPRB,7.3122E+00_JPRB,9.2888E+00_JPRB,1.1789E+01_JPRB/) |
1371 |
|
|
KBO( :,48, 9) = (/& |
1372 |
✓✓ |
6 |
& 3.8949E+00_JPRB,4.9778E+00_JPRB,6.4003E+00_JPRB,8.2164E+00_JPRB,1.0513E+01_JPRB/) |
1373 |
|
|
KBO( :,49, 9) = (/& |
1374 |
✓✓ |
6 |
& 3.3152E+00_JPRB,4.2900E+00_JPRB,5.5808E+00_JPRB,7.2516E+00_JPRB,9.3536E+00_JPRB/) |
1375 |
|
|
KBO( :,50, 9) = (/& |
1376 |
✓✓ |
6 |
& 2.8251E+00_JPRB,3.7029E+00_JPRB,4.8790E+00_JPRB,6.4176E+00_JPRB,8.3604E+00_JPRB/) |
1377 |
|
|
KBO( :,51, 9) = (/& |
1378 |
✓✓ |
6 |
& 2.4036E+00_JPRB,3.1914E+00_JPRB,4.2626E+00_JPRB,5.6760E+00_JPRB,7.4806E+00_JPRB/) |
1379 |
|
|
KBO( :,52, 9) = (/& |
1380 |
✓✓ |
6 |
& 2.0358E+00_JPRB,2.7394E+00_JPRB,3.7092E+00_JPRB,5.0052E+00_JPRB,6.6771E+00_JPRB/) |
1381 |
|
|
KBO( :,53, 9) = (/& |
1382 |
✓✓ |
6 |
& 1.7150E+00_JPRB,2.3392E+00_JPRB,3.2126E+00_JPRB,4.3953E+00_JPRB,5.9352E+00_JPRB/) |
1383 |
|
|
KBO( :,54, 9) = (/& |
1384 |
✓✓ |
6 |
& 1.4515E+00_JPRB,2.0067E+00_JPRB,2.8012E+00_JPRB,3.8817E+00_JPRB,5.3047E+00_JPRB/) |
1385 |
|
|
KBO( :,55, 9) = (/& |
1386 |
✓✓ |
6 |
& 1.2285E+00_JPRB,1.7230E+00_JPRB,2.4420E+00_JPRB,3.4310E+00_JPRB,4.7490E+00_JPRB/) |
1387 |
|
|
KBO( :,56, 9) = (/& |
1388 |
✓✓ |
6 |
& 1.0358E+00_JPRB,1.4720E+00_JPRB,2.1203E+00_JPRB,3.0228E+00_JPRB,4.2384E+00_JPRB/) |
1389 |
|
|
KBO( :,57, 9) = (/& |
1390 |
✓✓ |
6 |
& 8.6995E-01_JPRB,1.2523E+00_JPRB,1.8327E+00_JPRB,2.6527E+00_JPRB,3.7712E+00_JPRB/) |
1391 |
|
|
KBO( :,58, 9) = (/& |
1392 |
✓✓ |
6 |
& 7.3361E-01_JPRB,1.0673E+00_JPRB,1.5876E+00_JPRB,2.3341E+00_JPRB,3.3624E+00_JPRB/) |
1393 |
|
|
KBO( :,59, 9) = (/& |
1394 |
✓✓ |
6 |
& 6.5934E-01_JPRB,9.7595E-01_JPRB,1.4746E+00_JPRB,2.2013E+00_JPRB,3.1927E+00_JPRB/) |
1395 |
|
|
KBO( :,13,10) = (/& |
1396 |
✓✓ |
6 |
& 1.1370E+03_JPRB,1.1193E+03_JPRB,1.1015E+03_JPRB,1.0831E+03_JPRB,1.0644E+03_JPRB/) |
1397 |
|
|
KBO( :,14,10) = (/& |
1398 |
✓✓ |
6 |
& 1.0077E+03_JPRB,9.9068E+02_JPRB,9.7382E+02_JPRB,9.5646E+02_JPRB,9.3960E+02_JPRB/) |
1399 |
|
|
KBO( :,15,10) = (/& |
1400 |
✓✓ |
6 |
& 8.7737E+02_JPRB,8.6162E+02_JPRB,8.4607E+02_JPRB,8.3075E+02_JPRB,8.1589E+02_JPRB/) |
1401 |
|
|
KBO( :,16,10) = (/& |
1402 |
✓✓ |
6 |
& 7.5426E+02_JPRB,7.4028E+02_JPRB,7.2665E+02_JPRB,7.1344E+02_JPRB,7.0172E+02_JPRB/) |
1403 |
|
|
KBO( :,17,10) = (/& |
1404 |
✓✓ |
6 |
& 6.4244E+02_JPRB,6.3047E+02_JPRB,6.1893E+02_JPRB,6.1102E+02_JPRB,6.1824E+02_JPRB/) |
1405 |
|
|
KBO( :,18,10) = (/& |
1406 |
✓✓ |
6 |
& 5.4326E+02_JPRB,5.3346E+02_JPRB,5.2903E+02_JPRB,5.4116E+02_JPRB,5.6772E+02_JPRB/) |
1407 |
|
|
KBO( :,19,10) = (/& |
1408 |
✓✓ |
6 |
& 4.6041E+02_JPRB,4.5657E+02_JPRB,4.6965E+02_JPRB,4.9609E+02_JPRB,5.2443E+02_JPRB/) |
1409 |
|
|
KBO( :,20,10) = (/& |
1410 |
✓✓ |
6 |
& 3.9849E+02_JPRB,4.0983E+02_JPRB,4.3310E+02_JPRB,4.5724E+02_JPRB,4.8136E+02_JPRB/) |
1411 |
|
|
KBO( :,21,10) = (/& |
1412 |
✓✓ |
6 |
& 3.5855E+02_JPRB,3.7953E+02_JPRB,4.0064E+02_JPRB,4.2132E+02_JPRB,4.4170E+02_JPRB/) |
1413 |
|
|
KBO( :,22,10) = (/& |
1414 |
✓✓ |
6 |
& 3.2988E+02_JPRB,3.4998E+02_JPRB,3.6966E+02_JPRB,3.8861E+02_JPRB,4.0637E+02_JPRB/) |
1415 |
|
|
KBO( :,23,10) = (/& |
1416 |
✓✓ |
6 |
& 3.0132E+02_JPRB,3.2005E+02_JPRB,3.3835E+02_JPRB,3.5588E+02_JPRB,3.7212E+02_JPRB/) |
1417 |
|
|
KBO( :,24,10) = (/& |
1418 |
✓✓ |
6 |
& 2.7350E+02_JPRB,2.9090E+02_JPRB,3.0784E+02_JPRB,3.2378E+02_JPRB,3.3905E+02_JPRB/) |
1419 |
|
|
KBO( :,25,10) = (/& |
1420 |
✓✓ |
6 |
& 2.4700E+02_JPRB,2.6316E+02_JPRB,2.7865E+02_JPRB,2.9355E+02_JPRB,3.0831E+02_JPRB/) |
1421 |
|
|
KBO( :,26,10) = (/& |
1422 |
✓✓ |
6 |
& 2.2261E+02_JPRB,2.3737E+02_JPRB,2.5178E+02_JPRB,2.6623E+02_JPRB,2.8060E+02_JPRB/) |
1423 |
|
|
KBO( :,27,10) = (/& |
1424 |
✓✓ |
6 |
& 2.0072E+02_JPRB,2.1392E+02_JPRB,2.2763E+02_JPRB,2.4159E+02_JPRB,2.5577E+02_JPRB/) |
1425 |
|
|
KBO( :,28,10) = (/& |
1426 |
✓✓ |
6 |
& 1.8170E+02_JPRB,1.9355E+02_JPRB,2.0624E+02_JPRB,2.1988E+02_JPRB,2.3391E+02_JPRB/) |
1427 |
|
|
KBO( :,29,10) = (/& |
1428 |
✓✓ |
6 |
& 1.6551E+02_JPRB,1.7639E+02_JPRB,1.8818E+02_JPRB,2.0102E+02_JPRB,2.1504E+02_JPRB/) |
1429 |
|
|
KBO( :,30,10) = (/& |
1430 |
✓✓ |
6 |
& 1.5197E+02_JPRB,1.6180E+02_JPRB,1.7277E+02_JPRB,1.8505E+02_JPRB,1.9878E+02_JPRB/) |
1431 |
|
|
KBO( :,31,10) = (/& |
1432 |
✓✓ |
6 |
& 1.4040E+02_JPRB,1.4951E+02_JPRB,1.5989E+02_JPRB,1.7189E+02_JPRB,1.8557E+02_JPRB/) |
1433 |
|
|
KBO( :,32,10) = (/& |
1434 |
✓✓ |
6 |
& 1.3052E+02_JPRB,1.3922E+02_JPRB,1.4931E+02_JPRB,1.6122E+02_JPRB,1.7537E+02_JPRB/) |
1435 |
|
|
KBO( :,33,10) = (/& |
1436 |
✓✓ |
6 |
& 1.2219E+02_JPRB,1.3073E+02_JPRB,1.4066E+02_JPRB,1.5295E+02_JPRB,1.6793E+02_JPRB/) |
1437 |
|
|
KBO( :,34,10) = (/& |
1438 |
✓✓ |
6 |
& 1.1485E+02_JPRB,1.2346E+02_JPRB,1.3352E+02_JPRB,1.4643E+02_JPRB,1.6252E+02_JPRB/) |
1439 |
|
|
KBO( :,35,10) = (/& |
1440 |
✓✓ |
6 |
& 1.0786E+02_JPRB,1.1670E+02_JPRB,1.2704E+02_JPRB,1.4054E+02_JPRB,1.5777E+02_JPRB/) |
1441 |
|
|
KBO( :,36,10) = (/& |
1442 |
✓✓ |
6 |
& 1.0096E+02_JPRB,1.1026E+02_JPRB,1.2083E+02_JPRB,1.3466E+02_JPRB,1.5266E+02_JPRB/) |
1443 |
|
|
KBO( :,37,10) = (/& |
1444 |
✓✓ |
6 |
& 9.3649E+01_JPRB,1.0335E+02_JPRB,1.1406E+02_JPRB,1.2775E+02_JPRB,1.4574E+02_JPRB/) |
1445 |
|
|
KBO( :,38,10) = (/& |
1446 |
✓✓ |
6 |
& 8.6966E+01_JPRB,9.7115E+01_JPRB,1.0831E+02_JPRB,1.2180E+02_JPRB,1.3969E+02_JPRB/) |
1447 |
|
|
KBO( :,39,10) = (/& |
1448 |
✓✓ |
6 |
& 8.1095E+01_JPRB,9.1619E+01_JPRB,1.0337E+02_JPRB,1.1677E+02_JPRB,1.3445E+02_JPRB/) |
1449 |
|
|
KBO( :,40,10) = (/& |
1450 |
✓✓ |
6 |
& 7.4825E+01_JPRB,8.5620E+01_JPRB,9.7708E+01_JPRB,1.1093E+02_JPRB,1.2782E+02_JPRB/) |
1451 |
|
|
KBO( :,41,10) = (/& |
1452 |
✓✓ |
6 |
& 6.8987E+01_JPRB,7.9975E+01_JPRB,9.2327E+01_JPRB,1.0557E+02_JPRB,1.2158E+02_JPRB/) |
1453 |
|
|
KBO( :,42,10) = (/& |
1454 |
✓✓ |
6 |
& 6.3582E+01_JPRB,7.4799E+01_JPRB,8.7292E+01_JPRB,1.0067E+02_JPRB,1.1590E+02_JPRB/) |
1455 |
|
|
KBO( :,43,10) = (/& |
1456 |
✓✓ |
6 |
& 5.8100E+01_JPRB,6.9336E+01_JPRB,8.1830E+01_JPRB,9.5341E+01_JPRB,1.0982E+02_JPRB/) |
1457 |
|
|
KBO( :,44,10) = (/& |
1458 |
✓✓ |
6 |
& 5.2932E+01_JPRB,6.3876E+01_JPRB,7.6294E+01_JPRB,8.9737E+01_JPRB,1.0391E+02_JPRB/) |
1459 |
|
|
KBO( :,45,10) = (/& |
1460 |
✓✓ |
6 |
& 4.8226E+01_JPRB,5.8773E+01_JPRB,7.1006E+01_JPRB,8.4358E+01_JPRB,9.8366E+01_JPRB/) |
1461 |
|
|
KBO( :,46,10) = (/& |
1462 |
✓✓ |
6 |
& 4.3799E+01_JPRB,5.3806E+01_JPRB,6.5676E+01_JPRB,7.8828E+01_JPRB,9.2780E+01_JPRB/) |
1463 |
|
|
KBO( :,47,10) = (/& |
1464 |
✓✓ |
6 |
& 3.9350E+01_JPRB,4.8773E+01_JPRB,6.0056E+01_JPRB,7.2887E+01_JPRB,8.6626E+01_JPRB/) |
1465 |
|
|
KBO( :,48,10) = (/& |
1466 |
✓✓ |
6 |
& 3.5360E+01_JPRB,4.4132E+01_JPRB,5.4788E+01_JPRB,6.7135E+01_JPRB,8.0643E+01_JPRB/) |
1467 |
|
|
KBO( :,49,10) = (/& |
1468 |
✓✓ |
6 |
& 3.1759E+01_JPRB,3.9919E+01_JPRB,4.9896E+01_JPRB,6.1616E+01_JPRB,7.4794E+01_JPRB/) |
1469 |
|
|
KBO( :,50,10) = (/& |
1470 |
✓✓ |
6 |
& 2.8696E+01_JPRB,3.6220E+01_JPRB,4.5579E+01_JPRB,5.6700E+01_JPRB,6.9436E+01_JPRB/) |
1471 |
|
|
KBO( :,51,10) = (/& |
1472 |
✓✓ |
6 |
& 2.5923E+01_JPRB,3.2951E+01_JPRB,4.1668E+01_JPRB,5.2205E+01_JPRB,6.4403E+01_JPRB/) |
1473 |
|
|
KBO( :,52,10) = (/& |
1474 |
✓✓ |
6 |
& 2.3246E+01_JPRB,2.9949E+01_JPRB,3.8044E+01_JPRB,4.7965E+01_JPRB,5.9561E+01_JPRB/) |
1475 |
|
|
KBO( :,53,10) = (/& |
1476 |
✓✓ |
6 |
& 2.0677E+01_JPRB,2.7212E+01_JPRB,3.4689E+01_JPRB,4.3992E+01_JPRB,5.4982E+01_JPRB/) |
1477 |
|
|
KBO( :,54,10) = (/& |
1478 |
✓✓ |
6 |
& 1.8394E+01_JPRB,2.4800E+01_JPRB,3.1896E+01_JPRB,4.0551E+01_JPRB,5.0999E+01_JPRB/) |
1479 |
|
|
KBO( :,55,10) = (/& |
1480 |
✓✓ |
6 |
& 1.6290E+01_JPRB,2.2530E+01_JPRB,2.9365E+01_JPRB,3.7468E+01_JPRB,4.7358E+01_JPRB/) |
1481 |
|
|
KBO( :,56,10) = (/& |
1482 |
✓✓ |
6 |
& 1.4293E+01_JPRB,2.0343E+01_JPRB,2.7025E+01_JPRB,3.4587E+01_JPRB,4.3934E+01_JPRB/) |
1483 |
|
|
KBO( :,57,10) = (/& |
1484 |
✓✓ |
6 |
& 1.2429E+01_JPRB,1.8222E+01_JPRB,2.4765E+01_JPRB,3.1908E+01_JPRB,4.0683E+01_JPRB/) |
1485 |
|
|
KBO( :,58,10) = (/& |
1486 |
✓✓ |
6 |
& 1.0794E+01_JPRB,1.6277E+01_JPRB,2.2653E+01_JPRB,2.9533E+01_JPRB,3.7782E+01_JPRB/) |
1487 |
|
|
KBO( :,59,10) = (/& |
1488 |
✓✓ |
6 |
& 1.0104E+01_JPRB,1.5485E+01_JPRB,2.1801E+01_JPRB,2.8646E+01_JPRB,3.6640E+01_JPRB/) |
1489 |
|
|
KBO( :,13,11) = (/& |
1490 |
✓✓ |
6 |
& 1.9982E+03_JPRB,1.9741E+03_JPRB,1.9501E+03_JPRB,1.9258E+03_JPRB,1.8991E+03_JPRB/) |
1491 |
|
|
KBO( :,14,11) = (/& |
1492 |
✓✓ |
6 |
& 1.8366E+03_JPRB,1.8117E+03_JPRB,1.7872E+03_JPRB,1.7620E+03_JPRB,1.7357E+03_JPRB/) |
1493 |
|
|
KBO( :,15,11) = (/& |
1494 |
✓✓ |
6 |
& 1.6593E+03_JPRB,1.6345E+03_JPRB,1.6105E+03_JPRB,1.5852E+03_JPRB,1.5607E+03_JPRB/) |
1495 |
|
|
KBO( :,16,11) = (/& |
1496 |
✓✓ |
6 |
& 1.4714E+03_JPRB,1.4482E+03_JPRB,1.4256E+03_JPRB,1.4029E+03_JPRB,1.3814E+03_JPRB/) |
1497 |
|
|
KBO( :,17,11) = (/& |
1498 |
✓✓ |
6 |
& 1.2821E+03_JPRB,1.2610E+03_JPRB,1.2407E+03_JPRB,1.2217E+03_JPRB,1.2035E+03_JPRB/) |
1499 |
|
|
KBO( :,18,11) = (/& |
1500 |
✓✓ |
6 |
& 1.1031E+03_JPRB,1.0851E+03_JPRB,1.0681E+03_JPRB,1.0526E+03_JPRB,1.0392E+03_JPRB/) |
1501 |
|
|
KBO( :,19,11) = (/& |
1502 |
✓✓ |
6 |
& 9.4073E+02_JPRB,9.2594E+02_JPRB,9.1239E+02_JPRB,9.0492E+02_JPRB,9.1389E+02_JPRB/) |
1503 |
|
|
KBO( :,20,11) = (/& |
1504 |
✓✓ |
6 |
& 7.9752E+02_JPRB,7.8605E+02_JPRB,7.8200E+02_JPRB,7.9771E+02_JPRB,8.3070E+02_JPRB/) |
1505 |
|
|
KBO( :,21,11) = (/& |
1506 |
✓✓ |
6 |
& 6.7621E+02_JPRB,6.7302E+02_JPRB,6.9037E+02_JPRB,7.2680E+02_JPRB,7.7342E+02_JPRB/) |
1507 |
|
|
KBO( :,22,11) = (/& |
1508 |
✓✓ |
6 |
& 5.8317E+02_JPRB,5.9901E+02_JPRB,6.3384E+02_JPRB,6.7592E+02_JPRB,7.2003E+02_JPRB/) |
1509 |
|
|
KBO( :,23,11) = (/& |
1510 |
✓✓ |
6 |
& 5.2345E+02_JPRB,5.5460E+02_JPRB,5.9107E+02_JPRB,6.2902E+02_JPRB,6.6965E+02_JPRB/) |
1511 |
|
|
KBO( :,24,11) = (/& |
1512 |
✓✓ |
6 |
& 4.8603E+02_JPRB,5.1872E+02_JPRB,5.5143E+02_JPRB,5.8645E+02_JPRB,6.2372E+02_JPRB/) |
1513 |
|
|
KBO( :,25,11) = (/& |
1514 |
✓✓ |
6 |
& 4.5248E+02_JPRB,4.8397E+02_JPRB,5.1550E+02_JPRB,5.4767E+02_JPRB,5.8239E+02_JPRB/) |
1515 |
|
|
KBO( :,26,11) = (/& |
1516 |
✓✓ |
6 |
& 4.2042E+02_JPRB,4.5092E+02_JPRB,4.8247E+02_JPRB,5.1356E+02_JPRB,5.4667E+02_JPRB/) |
1517 |
|
|
KBO( :,27,11) = (/& |
1518 |
✓✓ |
6 |
& 3.8993E+02_JPRB,4.2017E+02_JPRB,4.5102E+02_JPRB,4.8294E+02_JPRB,5.1599E+02_JPRB/) |
1519 |
|
|
KBO( :,28,11) = (/& |
1520 |
✓✓ |
6 |
& 3.6206E+02_JPRB,3.9191E+02_JPRB,4.2290E+02_JPRB,4.5578E+02_JPRB,4.8932E+02_JPRB/) |
1521 |
|
|
KBO( :,29,11) = (/& |
1522 |
✓✓ |
6 |
& 3.3701E+02_JPRB,3.6670E+02_JPRB,3.9835E+02_JPRB,4.3253E+02_JPRB,4.6763E+02_JPRB/) |
1523 |
|
|
KBO( :,30,11) = (/& |
1524 |
✓✓ |
6 |
& 3.1435E+02_JPRB,3.4509E+02_JPRB,3.7799E+02_JPRB,4.1371E+02_JPRB,4.5072E+02_JPRB/) |
1525 |
|
|
KBO( :,31,11) = (/& |
1526 |
✓✓ |
6 |
& 2.9536E+02_JPRB,3.2738E+02_JPRB,3.6185E+02_JPRB,3.9930E+02_JPRB,4.3870E+02_JPRB/) |
1527 |
|
|
KBO( :,32,11) = (/& |
1528 |
✓✓ |
6 |
& 2.8017E+02_JPRB,3.1347E+02_JPRB,3.5000E+02_JPRB,3.8948E+02_JPRB,4.3126E+02_JPRB/) |
1529 |
|
|
KBO( :,33,11) = (/& |
1530 |
✓✓ |
6 |
& 2.6842E+02_JPRB,3.0340E+02_JPRB,3.4238E+02_JPRB,3.8415E+02_JPRB,4.2838E+02_JPRB/) |
1531 |
|
|
KBO( :,34,11) = (/& |
1532 |
✓✓ |
6 |
& 2.5904E+02_JPRB,2.9599E+02_JPRB,3.3729E+02_JPRB,3.8143E+02_JPRB,4.2772E+02_JPRB/) |
1533 |
|
|
KBO( :,35,11) = (/& |
1534 |
✓✓ |
6 |
& 2.4977E+02_JPRB,2.8824E+02_JPRB,3.3150E+02_JPRB,3.7746E+02_JPRB,4.2524E+02_JPRB/) |
1535 |
|
|
KBO( :,36,11) = (/& |
1536 |
✓✓ |
6 |
& 2.3959E+02_JPRB,2.7880E+02_JPRB,3.2342E+02_JPRB,3.7070E+02_JPRB,4.1949E+02_JPRB/) |
1537 |
|
|
KBO( :,37,11) = (/& |
1538 |
✓✓ |
6 |
& 2.2622E+02_JPRB,2.6520E+02_JPRB,3.1011E+02_JPRB,3.5817E+02_JPRB,4.0759E+02_JPRB/) |
1539 |
|
|
KBO( :,38,11) = (/& |
1540 |
✓✓ |
6 |
& 2.1446E+02_JPRB,2.5305E+02_JPRB,2.9777E+02_JPRB,3.4633E+02_JPRB,3.9620E+02_JPRB/) |
1541 |
|
|
|
1542 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART5',1,ZHOOK_HANDLE) |
1543 |
|
1 |
END SUBROUTINE PART5 |
1544 |
|
|
|
1545 |
|
|
|
1546 |
|
1 |
SUBROUTINE PART6 |
1547 |
|
|
|
1548 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1549 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART6',0,ZHOOK_HANDLE) |
1550 |
|
|
|
1551 |
|
|
|
1552 |
|
|
KBO( :,39,11) = (/& |
1553 |
✓✓ |
6 |
& 2.0431E+02_JPRB,2.4241E+02_JPRB,2.8661E+02_JPRB,3.3540E+02_JPRB,3.8561E+02_JPRB/) |
1554 |
|
|
KBO( :,40,11) = (/& |
1555 |
✓✓ |
6 |
& 1.9199E+02_JPRB,2.2883E+02_JPRB,2.7179E+02_JPRB,3.2005E+02_JPRB,3.7046E+02_JPRB/) |
1556 |
|
|
KBO( :,41,11) = (/& |
1557 |
✓✓ |
6 |
& 1.8042E+02_JPRB,2.1588E+02_JPRB,2.5742E+02_JPRB,3.0459E+02_JPRB,3.5513E+02_JPRB/) |
1558 |
|
|
KBO( :,42,11) = (/& |
1559 |
✓✓ |
6 |
& 1.6997E+02_JPRB,2.0388E+02_JPRB,2.4396E+02_JPRB,2.8977E+02_JPRB,3.4012E+02_JPRB/) |
1560 |
|
|
KBO( :,43,11) = (/& |
1561 |
✓✓ |
6 |
& 1.5886E+02_JPRB,1.9075E+02_JPRB,2.2902E+02_JPRB,2.7322E+02_JPRB,3.2256E+02_JPRB/) |
1562 |
|
|
KBO( :,44,11) = (/& |
1563 |
✓✓ |
6 |
& 1.4807E+02_JPRB,1.7777E+02_JPRB,2.1401E+02_JPRB,2.5624E+02_JPRB,3.0398E+02_JPRB/) |
1564 |
|
|
KBO( :,45,11) = (/& |
1565 |
✓✓ |
6 |
& 1.3833E+02_JPRB,1.6586E+02_JPRB,1.9992E+02_JPRB,2.4015E+02_JPRB,2.8607E+02_JPRB/) |
1566 |
|
|
KBO( :,46,11) = (/& |
1567 |
✓✓ |
6 |
& 1.2866E+02_JPRB,1.5433E+02_JPRB,1.8602E+02_JPRB,2.2411E+02_JPRB,2.6807E+02_JPRB/) |
1568 |
|
|
KBO( :,47,11) = (/& |
1569 |
✓✓ |
6 |
& 1.1806E+02_JPRB,1.4268E+02_JPRB,1.7176E+02_JPRB,2.0732E+02_JPRB,2.4896E+02_JPRB/) |
1570 |
|
|
KBO( :,48,11) = (/& |
1571 |
✓✓ |
6 |
& 1.0762E+02_JPRB,1.3206E+02_JPRB,1.5870E+02_JPRB,1.9169E+02_JPRB,2.3091E+02_JPRB/) |
1572 |
|
|
KBO( :,49,11) = (/& |
1573 |
✓✓ |
6 |
& 9.7413E+01_JPRB,1.2171E+02_JPRB,1.4684E+02_JPRB,1.7718E+02_JPRB,2.1396E+02_JPRB/) |
1574 |
|
|
KBO( :,50,11) = (/& |
1575 |
✓✓ |
6 |
& 8.8070E+01_JPRB,1.1204E+02_JPRB,1.3673E+02_JPRB,1.6460E+02_JPRB,1.9898E+02_JPRB/) |
1576 |
|
|
KBO( :,51,11) = (/& |
1577 |
✓✓ |
6 |
& 7.9391E+01_JPRB,1.0276E+02_JPRB,1.2732E+02_JPRB,1.5339E+02_JPRB,1.8537E+02_JPRB/) |
1578 |
|
|
KBO( :,52,11) = (/& |
1579 |
✓✓ |
6 |
& 7.1290E+01_JPRB,9.3724E+01_JPRB,1.1803E+02_JPRB,1.4312E+02_JPRB,1.7272E+02_JPRB/) |
1580 |
|
|
KBO( :,53,11) = (/& |
1581 |
✓✓ |
6 |
& 6.3690E+01_JPRB,8.4888E+01_JPRB,1.0877E+02_JPRB,1.3364E+02_JPRB,1.6093E+02_JPRB/) |
1582 |
|
|
KBO( :,54,11) = (/& |
1583 |
✓✓ |
6 |
& 5.7252E+01_JPRB,7.7190E+01_JPRB,1.0050E+02_JPRB,1.2512E+02_JPRB,1.5096E+02_JPRB/) |
1584 |
|
|
KBO( :,55,11) = (/& |
1585 |
✓✓ |
6 |
& 5.1553E+01_JPRB,7.0213E+01_JPRB,9.2633E+01_JPRB,1.1699E+02_JPRB,1.4211E+02_JPRB/) |
1586 |
|
|
KBO( :,56,11) = (/& |
1587 |
✓✓ |
6 |
& 4.6347E+01_JPRB,6.3641E+01_JPRB,8.4965E+01_JPRB,1.0895E+02_JPRB,1.3389E+02_JPRB/) |
1588 |
|
|
KBO( :,57,11) = (/& |
1589 |
✓✓ |
6 |
& 4.1558E+01_JPRB,5.7539E+01_JPRB,7.7656E+01_JPRB,1.0100E+02_JPRB,1.2577E+02_JPRB/) |
1590 |
|
|
KBO( :,58,11) = (/& |
1591 |
✓✓ |
6 |
& 3.7465E+01_JPRB,5.2155E+01_JPRB,7.1065E+01_JPRB,9.3602E+01_JPRB,1.1811E+02_JPRB/) |
1592 |
|
|
KBO( :,59,11) = (/& |
1593 |
✓✓ |
6 |
& 3.5865E+01_JPRB,5.0074E+01_JPRB,6.8488E+01_JPRB,9.0703E+01_JPRB,1.1503E+02_JPRB/) |
1594 |
|
|
KBO( :,13,12) = (/& |
1595 |
✓✓ |
6 |
& 3.5818E+03_JPRB,3.5602E+03_JPRB,3.5361E+03_JPRB,3.5062E+03_JPRB,3.4753E+03_JPRB/) |
1596 |
|
|
KBO( :,14,12) = (/& |
1597 |
✓✓ |
6 |
& 3.4873E+03_JPRB,3.4617E+03_JPRB,3.4320E+03_JPRB,3.3978E+03_JPRB,3.3640E+03_JPRB/) |
1598 |
|
|
KBO( :,15,12) = (/& |
1599 |
✓✓ |
6 |
& 3.3174E+03_JPRB,3.2873E+03_JPRB,3.2522E+03_JPRB,3.2184E+03_JPRB,3.1823E+03_JPRB/) |
1600 |
|
|
KBO( :,16,12) = (/& |
1601 |
✓✓ |
6 |
& 3.0916E+03_JPRB,3.0581E+03_JPRB,3.0238E+03_JPRB,2.9909E+03_JPRB,2.9539E+03_JPRB/) |
1602 |
|
|
KBO( :,17,12) = (/& |
1603 |
✓✓ |
6 |
& 2.8257E+03_JPRB,2.7923E+03_JPRB,2.7615E+03_JPRB,2.7297E+03_JPRB,2.6960E+03_JPRB/) |
1604 |
|
|
KBO( :,18,12) = (/& |
1605 |
✓✓ |
6 |
& 2.5404E+03_JPRB,2.5105E+03_JPRB,2.4823E+03_JPRB,2.4526E+03_JPRB,2.4250E+03_JPRB/) |
1606 |
|
|
KBO( :,19,12) = (/& |
1607 |
✓✓ |
6 |
& 2.2483E+03_JPRB,2.2241E+03_JPRB,2.1993E+03_JPRB,2.1755E+03_JPRB,2.1543E+03_JPRB/) |
1608 |
|
|
KBO( :,20,12) = (/& |
1609 |
✓✓ |
6 |
& 1.9604E+03_JPRB,1.9400E+03_JPRB,1.9209E+03_JPRB,1.9048E+03_JPRB,1.8895E+03_JPRB/) |
1610 |
|
|
KBO( :,21,12) = (/& |
1611 |
✓✓ |
6 |
& 1.6892E+03_JPRB,1.6737E+03_JPRB,1.6614E+03_JPRB,1.6516E+03_JPRB,1.6529E+03_JPRB/) |
1612 |
|
|
KBO( :,22,12) = (/& |
1613 |
✓✓ |
6 |
& 1.4436E+03_JPRB,1.4342E+03_JPRB,1.4286E+03_JPRB,1.4399E+03_JPRB,1.4734E+03_JPRB/) |
1614 |
|
|
KBO( :,23,12) = (/& |
1615 |
✓✓ |
6 |
& 1.2278E+03_JPRB,1.2256E+03_JPRB,1.2434E+03_JPRB,1.2846E+03_JPRB,1.3446E+03_JPRB/) |
1616 |
|
|
KBO( :,24,12) = (/& |
1617 |
✓✓ |
6 |
& 1.0469E+03_JPRB,1.0648E+03_JPRB,1.1103E+03_JPRB,1.1758E+03_JPRB,1.2604E+03_JPRB/) |
1618 |
|
|
KBO( :,25,12) = (/& |
1619 |
✓✓ |
6 |
& 9.1261E+02_JPRB,9.5264E+02_JPRB,1.0193E+03_JPRB,1.1064E+03_JPRB,1.2100E+03_JPRB/) |
1620 |
|
|
KBO( :,26,12) = (/& |
1621 |
✓✓ |
6 |
& 8.2117E+02_JPRB,8.8093E+02_JPRB,9.6383E+02_JPRB,1.0654E+03_JPRB,1.1751E+03_JPRB/) |
1622 |
|
|
KBO( :,27,12) = (/& |
1623 |
✓✓ |
6 |
& 7.6353E+02_JPRB,8.3890E+02_JPRB,9.3016E+02_JPRB,1.0327E+03_JPRB,1.1460E+03_JPRB/) |
1624 |
|
|
KBO( :,28,12) = (/& |
1625 |
✓✓ |
6 |
& 7.3032E+02_JPRB,8.1065E+02_JPRB,9.0335E+02_JPRB,1.0079E+03_JPRB,1.1263E+03_JPRB/) |
1626 |
|
|
KBO( :,29,12) = (/& |
1627 |
✓✓ |
6 |
& 7.0685E+02_JPRB,7.8909E+02_JPRB,8.8424E+02_JPRB,9.9311E+02_JPRB,1.1170E+03_JPRB/) |
1628 |
|
|
KBO( :,30,12) = (/& |
1629 |
✓✓ |
6 |
& 6.8897E+02_JPRB,7.7363E+02_JPRB,8.7322E+02_JPRB,9.8778E+02_JPRB,1.1175E+03_JPRB/) |
1630 |
|
|
KBO( :,31,12) = (/& |
1631 |
✓✓ |
6 |
& 6.7689E+02_JPRB,7.6589E+02_JPRB,8.7126E+02_JPRB,9.9171E+02_JPRB,1.1269E+03_JPRB/) |
1632 |
|
|
KBO( :,32,12) = (/& |
1633 |
✓✓ |
6 |
& 6.7137E+02_JPRB,7.6614E+02_JPRB,8.7757E+02_JPRB,1.0041E+03_JPRB,1.1438E+03_JPRB/) |
1634 |
|
|
KBO( :,33,12) = (/& |
1635 |
✓✓ |
6 |
& 6.7295E+02_JPRB,7.7394E+02_JPRB,8.9109E+02_JPRB,1.0224E+03_JPRB,1.1662E+03_JPRB/) |
1636 |
|
|
KBO( :,34,12) = (/& |
1637 |
✓✓ |
6 |
& 6.7760E+02_JPRB,7.8360E+02_JPRB,9.0569E+02_JPRB,1.0406E+03_JPRB,1.1879E+03_JPRB/) |
1638 |
|
|
KBO( :,35,12) = (/& |
1639 |
✓✓ |
6 |
& 6.7716E+02_JPRB,7.8671E+02_JPRB,9.1119E+02_JPRB,1.0486E+03_JPRB,1.1979E+03_JPRB/) |
1640 |
|
|
KBO( :,36,12) = (/& |
1641 |
✓✓ |
6 |
& 6.6904E+02_JPRB,7.7952E+02_JPRB,9.0494E+02_JPRB,1.0434E+03_JPRB,1.1930E+03_JPRB/) |
1642 |
|
|
KBO( :,37,12) = (/& |
1643 |
✓✓ |
6 |
& 6.4763E+02_JPRB,7.5648E+02_JPRB,8.8059E+02_JPRB,1.0176E+03_JPRB,1.1662E+03_JPRB/) |
1644 |
|
|
KBO( :,38,12) = (/& |
1645 |
✓✓ |
6 |
& 6.2716E+02_JPRB,7.3431E+02_JPRB,8.5661E+02_JPRB,9.9212E+02_JPRB,1.1395E+03_JPRB/) |
1646 |
|
|
KBO( :,39,12) = (/& |
1647 |
✓✓ |
6 |
& 6.0818E+02_JPRB,7.1366E+02_JPRB,8.3407E+02_JPRB,9.6793E+02_JPRB,1.1141E+03_JPRB/) |
1648 |
|
|
KBO( :,40,12) = (/& |
1649 |
✓✓ |
6 |
& 5.8003E+02_JPRB,6.8275E+02_JPRB,7.9982E+02_JPRB,9.3064E+02_JPRB,1.0742E+03_JPRB/) |
1650 |
|
|
KBO( :,41,12) = (/& |
1651 |
✓✓ |
6 |
& 5.5133E+02_JPRB,6.5206E+02_JPRB,7.6547E+02_JPRB,8.9303E+02_JPRB,1.0336E+03_JPRB/) |
1652 |
|
|
KBO( :,42,12) = (/& |
1653 |
✓✓ |
6 |
& 5.2305E+02_JPRB,6.2298E+02_JPRB,7.3258E+02_JPRB,8.5660E+02_JPRB,9.9409E+02_JPRB/) |
1654 |
|
|
KBO( :,43,12) = (/& |
1655 |
✓✓ |
6 |
& 4.8966E+02_JPRB,5.8921E+02_JPRB,6.9465E+02_JPRB,8.1454E+02_JPRB,9.4783E+02_JPRB/) |
1656 |
|
|
KBO( :,44,12) = (/& |
1657 |
✓✓ |
6 |
& 4.5450E+02_JPRB,5.5350E+02_JPRB,6.5588E+02_JPRB,7.7082E+02_JPRB,8.9980E+02_JPRB/) |
1658 |
|
|
KBO( :,45,12) = (/& |
1659 |
✓✓ |
6 |
& 4.2021E+02_JPRB,5.1820E+02_JPRB,6.1912E+02_JPRB,7.2914E+02_JPRB,8.5336E+02_JPRB/) |
1660 |
|
|
KBO( :,46,12) = (/& |
1661 |
✓✓ |
6 |
& 3.8545E+02_JPRB,4.8121E+02_JPRB,5.8143E+02_JPRB,6.8674E+02_JPRB,8.0608E+02_JPRB/) |
1662 |
|
|
KBO( :,47,12) = (/& |
1663 |
✓✓ |
6 |
& 3.4881E+02_JPRB,4.4053E+02_JPRB,5.3980E+02_JPRB,6.4195E+02_JPRB,7.5551E+02_JPRB/) |
1664 |
|
|
KBO( :,48,12) = (/& |
1665 |
✓✓ |
6 |
& 3.1491E+02_JPRB,4.0104E+02_JPRB,4.9870E+02_JPRB,5.9963E+02_JPRB,7.0738E+02_JPRB/) |
1666 |
|
|
KBO( :,49,12) = (/& |
1667 |
✓✓ |
6 |
& 2.8368E+02_JPRB,3.6400E+02_JPRB,4.5807E+02_JPRB,5.5813E+02_JPRB,6.6173E+02_JPRB/) |
1668 |
|
|
KBO( :,50,12) = (/& |
1669 |
✓✓ |
6 |
& 2.5677E+02_JPRB,3.3132E+02_JPRB,4.2070E+02_JPRB,5.1964E+02_JPRB,6.2120E+02_JPRB/) |
1670 |
|
|
KBO( :,51,12) = (/& |
1671 |
✓✓ |
6 |
& 2.3306E+02_JPRB,3.0179E+02_JPRB,3.8584E+02_JPRB,4.8266E+02_JPRB,5.8343E+02_JPRB/) |
1672 |
|
|
KBO( :,52,12) = (/& |
1673 |
✓✓ |
6 |
& 2.1156E+02_JPRB,2.7447E+02_JPRB,3.5296E+02_JPRB,4.4605E+02_JPRB,5.4606E+02_JPRB/) |
1674 |
|
|
KBO( :,53,12) = (/& |
1675 |
✓✓ |
6 |
& 1.9230E+02_JPRB,2.4924E+02_JPRB,3.2214E+02_JPRB,4.1028E+02_JPRB,5.0889E+02_JPRB/) |
1676 |
|
|
KBO( :,54,12) = (/& |
1677 |
✓✓ |
6 |
& 1.7631E+02_JPRB,2.2814E+02_JPRB,2.9584E+02_JPRB,3.7892E+02_JPRB,4.7521E+02_JPRB/) |
1678 |
|
|
KBO( :,55,12) = (/& |
1679 |
✓✓ |
6 |
& 1.6135E+02_JPRB,2.0966E+02_JPRB,2.7215E+02_JPRB,3.5038E+02_JPRB,4.4318E+02_JPRB/) |
1680 |
|
|
KBO( :,56,12) = (/& |
1681 |
✓✓ |
6 |
& 1.4671E+02_JPRB,1.9290E+02_JPRB,2.5021E+02_JPRB,3.2348E+02_JPRB,4.1193E+02_JPRB/) |
1682 |
|
|
KBO( :,57,12) = (/& |
1683 |
✓✓ |
6 |
& 1.3244E+02_JPRB,1.7761E+02_JPRB,2.2999E+02_JPRB,2.9808E+02_JPRB,3.8198E+02_JPRB/) |
1684 |
|
|
KBO( :,58,12) = (/& |
1685 |
✓✓ |
6 |
& 1.1934E+02_JPRB,1.6351E+02_JPRB,2.1236E+02_JPRB,2.7551E+02_JPRB,3.5480E+02_JPRB/) |
1686 |
|
|
KBO( :,59,12) = (/& |
1687 |
✓✓ |
6 |
& 1.1416E+02_JPRB,1.5788E+02_JPRB,2.0569E+02_JPRB,2.6705E+02_JPRB,3.4428E+02_JPRB/) |
1688 |
|
|
KBO( :,13,13) = (/& |
1689 |
✓✓ |
6 |
& 6.2395E+03_JPRB,6.2548E+03_JPRB,6.2528E+03_JPRB,6.2437E+03_JPRB,6.2212E+03_JPRB/) |
1690 |
|
|
KBO( :,14,13) = (/& |
1691 |
✓✓ |
6 |
& 6.5506E+03_JPRB,6.5502E+03_JPRB,6.5372E+03_JPRB,6.5181E+03_JPRB,6.4862E+03_JPRB/) |
1692 |
|
|
KBO( :,15,13) = (/& |
1693 |
✓✓ |
6 |
& 6.7305E+03_JPRB,6.7173E+03_JPRB,6.7025E+03_JPRB,6.6735E+03_JPRB,6.6396E+03_JPRB/) |
1694 |
|
|
KBO( :,16,13) = (/& |
1695 |
✓✓ |
6 |
& 6.7735E+03_JPRB,6.7593E+03_JPRB,6.7329E+03_JPRB,6.7018E+03_JPRB,6.6632E+03_JPRB/) |
1696 |
|
|
KBO( :,17,13) = (/& |
1697 |
✓✓ |
6 |
& 6.6866E+03_JPRB,6.6652E+03_JPRB,6.6418E+03_JPRB,6.6109E+03_JPRB,6.5815E+03_JPRB/) |
1698 |
|
|
KBO( :,18,13) = (/& |
1699 |
✓✓ |
6 |
& 6.4678E+03_JPRB,6.4550E+03_JPRB,6.4343E+03_JPRB,6.4161E+03_JPRB,6.3909E+03_JPRB/) |
1700 |
|
|
KBO( :,19,13) = (/& |
1701 |
✓✓ |
6 |
& 6.1502E+03_JPRB,6.1407E+03_JPRB,6.1364E+03_JPRB,6.1306E+03_JPRB,6.1254E+03_JPRB/) |
1702 |
|
|
KBO( :,20,13) = (/& |
1703 |
✓✓ |
6 |
& 5.7689E+03_JPRB,5.7735E+03_JPRB,5.7841E+03_JPRB,5.7948E+03_JPRB,5.8088E+03_JPRB/) |
1704 |
|
|
KBO( :,21,13) = (/& |
1705 |
✓✓ |
6 |
& 5.3403E+03_JPRB,5.3684E+03_JPRB,5.3985E+03_JPRB,5.4338E+03_JPRB,5.4704E+03_JPRB/) |
1706 |
|
|
KBO( :,22,13) = (/& |
1707 |
✓✓ |
6 |
& 4.8996E+03_JPRB,4.9455E+03_JPRB,5.0039E+03_JPRB,5.0665E+03_JPRB,5.1301E+03_JPRB/) |
1708 |
|
|
KBO( :,23,13) = (/& |
1709 |
✓✓ |
6 |
& 4.4632E+03_JPRB,4.5382E+03_JPRB,4.6203E+03_JPRB,4.7095E+03_JPRB,4.8061E+03_JPRB/) |
1710 |
|
|
KBO( :,24,13) = (/& |
1711 |
✓✓ |
6 |
& 4.0592E+03_JPRB,4.1561E+03_JPRB,4.2652E+03_JPRB,4.3841E+03_JPRB,4.5045E+03_JPRB/) |
1712 |
|
|
KBO( :,25,13) = (/& |
1713 |
✓✓ |
6 |
& 3.6916E+03_JPRB,3.8157E+03_JPRB,3.9506E+03_JPRB,4.0939E+03_JPRB,4.2439E+03_JPRB/) |
1714 |
|
|
KBO( :,26,13) = (/& |
1715 |
✓✓ |
6 |
& 3.3695E+03_JPRB,3.5229E+03_JPRB,3.6811E+03_JPRB,3.8560E+03_JPRB,4.0438E+03_JPRB/) |
1716 |
|
|
KBO( :,27,13) = (/& |
1717 |
✓✓ |
6 |
& 3.0970E+03_JPRB,3.2745E+03_JPRB,3.4707E+03_JPRB,3.6834E+03_JPRB,3.9050E+03_JPRB/) |
1718 |
|
|
KBO( :,28,13) = (/& |
1719 |
✓✓ |
6 |
& 2.8706E+03_JPRB,3.0888E+03_JPRB,3.3231E+03_JPRB,3.5664E+03_JPRB,3.8148E+03_JPRB/) |
1720 |
|
|
KBO( :,29,13) = (/& |
1721 |
✓✓ |
6 |
& 2.7113E+03_JPRB,2.9644E+03_JPRB,3.2288E+03_JPRB,3.4982E+03_JPRB,3.7656E+03_JPRB/) |
1722 |
|
|
KBO( :,30,13) = (/& |
1723 |
✓✓ |
6 |
& 2.6074E+03_JPRB,2.8885E+03_JPRB,3.1778E+03_JPRB,3.4648E+03_JPRB,3.7470E+03_JPRB/) |
1724 |
|
|
KBO( :,31,13) = (/& |
1725 |
✓✓ |
6 |
& 2.5496E+03_JPRB,2.8533E+03_JPRB,3.1606E+03_JPRB,3.4611E+03_JPRB,3.7527E+03_JPRB/) |
1726 |
|
|
KBO( :,32,13) = (/& |
1727 |
✓✓ |
6 |
& 2.5294E+03_JPRB,2.8506E+03_JPRB,3.1699E+03_JPRB,3.4785E+03_JPRB,3.7755E+03_JPRB/) |
1728 |
|
|
KBO( :,33,13) = (/& |
1729 |
✓✓ |
6 |
& 2.5376E+03_JPRB,2.8705E+03_JPRB,3.1985E+03_JPRB,3.5117E+03_JPRB,3.8116E+03_JPRB/) |
1730 |
|
|
KBO( :,34,13) = (/& |
1731 |
✓✓ |
6 |
& 2.5544E+03_JPRB,2.8966E+03_JPRB,3.2284E+03_JPRB,3.5457E+03_JPRB,3.8464E+03_JPRB/) |
1732 |
|
|
KBO( :,35,13) = (/& |
1733 |
✓✓ |
6 |
& 2.5535E+03_JPRB,2.9023E+03_JPRB,3.2375E+03_JPRB,3.5577E+03_JPRB,3.8601E+03_JPRB/) |
1734 |
|
|
KBO( :,36,13) = (/& |
1735 |
✓✓ |
6 |
& 2.5246E+03_JPRB,2.8777E+03_JPRB,3.2177E+03_JPRB,3.5406E+03_JPRB,3.8472E+03_JPRB/) |
1736 |
|
|
KBO( :,37,13) = (/& |
1737 |
✓✓ |
6 |
& 2.4476E+03_JPRB,2.8057E+03_JPRB,3.1519E+03_JPRB,3.4804E+03_JPRB,3.7923E+03_JPRB/) |
1738 |
|
|
KBO( :,38,13) = (/& |
1739 |
✓✓ |
6 |
& 2.3725E+03_JPRB,2.7347E+03_JPRB,3.0855E+03_JPRB,3.4198E+03_JPRB,3.7363E+03_JPRB/) |
1740 |
|
|
KBO( :,39,13) = (/& |
1741 |
✓✓ |
6 |
& 2.3022E+03_JPRB,2.6668E+03_JPRB,3.0226E+03_JPRB,3.3616E+03_JPRB,3.6822E+03_JPRB/) |
1742 |
|
|
KBO( :,40,13) = (/& |
1743 |
✓✓ |
6 |
& 2.1978E+03_JPRB,2.5643E+03_JPRB,2.9251E+03_JPRB,3.2708E+03_JPRB,3.5971E+03_JPRB/) |
1744 |
|
|
KBO( :,41,13) = (/& |
1745 |
✓✓ |
6 |
& 2.0936E+03_JPRB,2.4587E+03_JPRB,2.8232E+03_JPRB,3.1755E+03_JPRB,3.5072E+03_JPRB/) |
1746 |
|
|
KBO( :,42,13) = (/& |
1747 |
✓✓ |
6 |
& 1.9924E+03_JPRB,2.3537E+03_JPRB,2.7212E+03_JPRB,3.0790E+03_JPRB,3.4170E+03_JPRB/) |
1748 |
|
|
KBO( :,43,13) = (/& |
1749 |
✓✓ |
6 |
& 1.8759E+03_JPRB,2.2299E+03_JPRB,2.5995E+03_JPRB,2.9624E+03_JPRB,3.3082E+03_JPRB/) |
1750 |
|
|
KBO( :,44,13) = (/& |
1751 |
✓✓ |
6 |
& 1.7551E+03_JPRB,2.1002E+03_JPRB,2.4686E+03_JPRB,2.8357E+03_JPRB,3.1891E+03_JPRB/) |
1752 |
|
|
KBO( :,45,13) = (/& |
1753 |
✓✓ |
6 |
& 1.6392E+03_JPRB,1.9745E+03_JPRB,2.3377E+03_JPRB,2.7076E+03_JPRB,3.0676E+03_JPRB/) |
1754 |
|
|
KBO( :,46,13) = (/& |
1755 |
✓✓ |
6 |
& 1.5222E+03_JPRB,1.8455E+03_JPRB,2.1996E+03_JPRB,2.5709E+03_JPRB,2.9366E+03_JPRB/) |
1756 |
|
|
KBO( :,47,13) = (/& |
1757 |
✓✓ |
6 |
& 1.3973E+03_JPRB,1.7071E+03_JPRB,2.0502E+03_JPRB,2.4181E+03_JPRB,2.7876E+03_JPRB/) |
1758 |
|
|
KBO( :,48,13) = (/& |
1759 |
✓✓ |
6 |
& 1.2797E+03_JPRB,1.5744E+03_JPRB,1.9051E+03_JPRB,2.2652E+03_JPRB,2.6369E+03_JPRB/) |
1760 |
|
|
KBO( :,49,13) = (/& |
1761 |
✓✓ |
6 |
& 1.1690E+03_JPRB,1.4484E+03_JPRB,1.7654E+03_JPRB,2.1147E+03_JPRB,2.4860E+03_JPRB/) |
1762 |
|
|
KBO( :,50,13) = (/& |
1763 |
✓✓ |
6 |
& 1.0720E+03_JPRB,1.3359E+03_JPRB,1.6397E+03_JPRB,1.9779E+03_JPRB,2.3429E+03_JPRB/) |
1764 |
|
|
KBO( :,51,13) = (/& |
1765 |
✓✓ |
6 |
& 9.8386E+02_JPRB,1.2327E+03_JPRB,1.5222E+03_JPRB,1.8488E+03_JPRB,2.2054E+03_JPRB/) |
1766 |
|
|
KBO( :,52,13) = (/& |
1767 |
✓✓ |
6 |
& 9.0207E+02_JPRB,1.1351E+03_JPRB,1.4100E+03_JPRB,1.7243E+03_JPRB,2.0711E+03_JPRB/) |
1768 |
|
|
KBO( :,53,13) = (/& |
1769 |
✓✓ |
6 |
& 8.2675E+02_JPRB,1.0437E+03_JPRB,1.3030E+03_JPRB,1.6043E+03_JPRB,1.9396E+03_JPRB/) |
1770 |
|
|
KBO( :,54,13) = (/& |
1771 |
✓✓ |
6 |
& 7.6352E+02_JPRB,9.6482E+02_JPRB,1.2111E+03_JPRB,1.4982E+03_JPRB,1.8229E+03_JPRB/) |
1772 |
|
|
KBO( :,55,13) = (/& |
1773 |
✓✓ |
6 |
& 7.0952E+02_JPRB,8.9409E+02_JPRB,1.1266E+03_JPRB,1.4008E+03_JPRB,1.7142E+03_JPRB/) |
1774 |
|
|
KBO( :,56,13) = (/& |
1775 |
✓✓ |
6 |
& 6.6233E+02_JPRB,8.2850E+02_JPRB,1.0468E+03_JPRB,1.3073E+03_JPRB,1.6094E+03_JPRB/) |
1776 |
|
|
KBO( :,57,13) = (/& |
1777 |
✓✓ |
6 |
& 6.2132E+02_JPRB,7.6796E+02_JPRB,9.7144E+02_JPRB,1.2186E+03_JPRB,1.5081E+03_JPRB/) |
1778 |
|
|
KBO( :,58,13) = (/& |
1779 |
✓✓ |
6 |
& 5.8653E+02_JPRB,7.1647E+02_JPRB,9.0432E+02_JPRB,1.1383E+03_JPRB,1.4157E+03_JPRB/) |
1780 |
|
|
KBO( :,59,13) = (/& |
1781 |
✓✓ |
6 |
& 5.7212E+02_JPRB,6.9724E+02_JPRB,8.7847E+02_JPRB,1.1078E+03_JPRB,1.3794E+03_JPRB/) |
1782 |
|
|
KBO( :,13,14) = (/& |
1783 |
✓✓ |
6 |
& 9.8835E+03_JPRB,9.9539E+03_JPRB,1.0003E+04_JPRB,1.0028E+04_JPRB,1.0036E+04_JPRB/) |
1784 |
|
|
KBO( :,14,14) = (/& |
1785 |
✓✓ |
6 |
& 1.1157E+04_JPRB,1.1221E+04_JPRB,1.1261E+04_JPRB,1.1278E+04_JPRB,1.1272E+04_JPRB/) |
1786 |
|
|
KBO( :,15,14) = (/& |
1787 |
✓✓ |
6 |
& 1.2451E+04_JPRB,1.2500E+04_JPRB,1.2523E+04_JPRB,1.2525E+04_JPRB,1.2496E+04_JPRB/) |
1788 |
|
|
KBO( :,16,14) = (/& |
1789 |
✓✓ |
6 |
& 1.3702E+04_JPRB,1.3735E+04_JPRB,1.3749E+04_JPRB,1.3724E+04_JPRB,1.3688E+04_JPRB/) |
1790 |
|
|
KBO( :,17,14) = (/& |
1791 |
✓✓ |
6 |
& 1.4864E+04_JPRB,1.4899E+04_JPRB,1.4888E+04_JPRB,1.4860E+04_JPRB,1.4794E+04_JPRB/) |
1792 |
|
|
KBO( :,18,14) = (/& |
1793 |
✓✓ |
6 |
& 1.5913E+04_JPRB,1.5926E+04_JPRB,1.5919E+04_JPRB,1.5876E+04_JPRB,1.5804E+04_JPRB/) |
1794 |
|
|
KBO( :,19,14) = (/& |
1795 |
✓✓ |
6 |
& 1.6806E+04_JPRB,1.6819E+04_JPRB,1.6811E+04_JPRB,1.6767E+04_JPRB,1.6686E+04_JPRB/) |
1796 |
|
|
KBO( :,20,14) = (/& |
1797 |
✓✓ |
6 |
& 1.7528E+04_JPRB,1.7560E+04_JPRB,1.7554E+04_JPRB,1.7516E+04_JPRB,1.7446E+04_JPRB/) |
1798 |
|
|
KBO( :,21,14) = (/& |
1799 |
✓✓ |
6 |
& 1.8101E+04_JPRB,1.8142E+04_JPRB,1.8157E+04_JPRB,1.8133E+04_JPRB,1.8069E+04_JPRB/) |
1800 |
|
|
KBO( :,22,14) = (/& |
1801 |
✓✓ |
6 |
& 1.8522E+04_JPRB,1.8600E+04_JPRB,1.8643E+04_JPRB,1.8633E+04_JPRB,1.8576E+04_JPRB/) |
1802 |
|
|
KBO( :,23,14) = (/& |
1803 |
✓✓ |
6 |
& 1.8830E+04_JPRB,1.8951E+04_JPRB,1.9026E+04_JPRB,1.9036E+04_JPRB,1.8990E+04_JPRB/) |
1804 |
|
|
KBO( :,24,14) = (/& |
1805 |
✓✓ |
6 |
& 1.9044E+04_JPRB,1.9220E+04_JPRB,1.9318E+04_JPRB,1.9356E+04_JPRB,1.9336E+04_JPRB/) |
1806 |
|
|
KBO( :,25,14) = (/& |
1807 |
✓✓ |
6 |
& 1.9206E+04_JPRB,1.9423E+04_JPRB,1.9557E+04_JPRB,1.9620E+04_JPRB,1.9613E+04_JPRB/) |
1808 |
|
|
KBO( :,26,14) = (/& |
1809 |
✓✓ |
6 |
& 1.9345E+04_JPRB,1.9590E+04_JPRB,1.9754E+04_JPRB,1.9836E+04_JPRB,1.9837E+04_JPRB/) |
1810 |
|
|
KBO( :,27,14) = (/& |
1811 |
✓✓ |
6 |
& 1.9462E+04_JPRB,1.9735E+04_JPRB,1.9916E+04_JPRB,2.0012E+04_JPRB,2.0020E+04_JPRB/) |
1812 |
|
|
KBO( :,28,14) = (/& |
1813 |
✓✓ |
6 |
& 1.9573E+04_JPRB,1.9864E+04_JPRB,2.0059E+04_JPRB,2.0163E+04_JPRB,2.0168E+04_JPRB/) |
1814 |
|
|
KBO( :,29,14) = (/& |
1815 |
✓✓ |
6 |
& 1.9682E+04_JPRB,1.9985E+04_JPRB,2.0186E+04_JPRB,2.0286E+04_JPRB,2.0288E+04_JPRB/) |
1816 |
|
|
KBO( :,30,14) = (/& |
1817 |
✓✓ |
6 |
& 1.9789E+04_JPRB,2.0101E+04_JPRB,2.0295E+04_JPRB,2.0389E+04_JPRB,2.0383E+04_JPRB/) |
1818 |
|
|
KBO( :,31,14) = (/& |
1819 |
✓✓ |
6 |
& 1.9904E+04_JPRB,2.0212E+04_JPRB,2.0395E+04_JPRB,2.0474E+04_JPRB,2.0459E+04_JPRB/) |
1820 |
|
|
KBO( :,32,14) = (/& |
1821 |
✓✓ |
6 |
& 2.0019E+04_JPRB,2.0312E+04_JPRB,2.0477E+04_JPRB,2.0546E+04_JPRB,2.0515E+04_JPRB/) |
1822 |
|
|
KBO( :,33,14) = (/& |
1823 |
✓✓ |
6 |
& 2.0130E+04_JPRB,2.0401E+04_JPRB,2.0548E+04_JPRB,2.0603E+04_JPRB,2.0557E+04_JPRB/) |
1824 |
|
|
KBO( :,34,14) = (/& |
1825 |
✓✓ |
6 |
& 2.0224E+04_JPRB,2.0479E+04_JPRB,2.0609E+04_JPRB,2.0649E+04_JPRB,2.0588E+04_JPRB/) |
1826 |
|
|
KBO( :,35,14) = (/& |
1827 |
✓✓ |
6 |
& 2.0280E+04_JPRB,2.0527E+04_JPRB,2.0652E+04_JPRB,2.0686E+04_JPRB,2.0619E+04_JPRB/) |
1828 |
|
|
KBO( :,36,14) = (/& |
1829 |
✓✓ |
6 |
& 2.0300E+04_JPRB,2.0553E+04_JPRB,2.0683E+04_JPRB,2.0717E+04_JPRB,2.0652E+04_JPRB/) |
1830 |
|
|
KBO( :,37,14) = (/& |
1831 |
✓✓ |
6 |
& 2.0267E+04_JPRB,2.0544E+04_JPRB,2.0692E+04_JPRB,2.0745E+04_JPRB,2.0696E+04_JPRB/) |
1832 |
|
|
KBO( :,38,14) = (/& |
1833 |
✓✓ |
6 |
& 2.0221E+04_JPRB,2.0526E+04_JPRB,2.0695E+04_JPRB,2.0765E+04_JPRB,2.0733E+04_JPRB/) |
1834 |
|
|
KBO( :,39,14) = (/& |
1835 |
✓✓ |
6 |
& 2.0172E+04_JPRB,2.0502E+04_JPRB,2.0692E+04_JPRB,2.0780E+04_JPRB,2.0762E+04_JPRB/) |
1836 |
|
|
KBO( :,40,14) = (/& |
1837 |
✓✓ |
6 |
& 2.0072E+04_JPRB,2.0440E+04_JPRB,2.0669E+04_JPRB,2.0782E+04_JPRB,2.0789E+04_JPRB/) |
1838 |
|
|
KBO( :,41,14) = (/& |
1839 |
✓✓ |
6 |
& 1.9953E+04_JPRB,2.0365E+04_JPRB,2.0629E+04_JPRB,2.0773E+04_JPRB,2.0810E+04_JPRB/) |
1840 |
|
|
KBO( :,42,14) = (/& |
1841 |
✓✓ |
6 |
& 1.9824E+04_JPRB,2.0275E+04_JPRB,2.0580E+04_JPRB,2.0757E+04_JPRB,2.0819E+04_JPRB/) |
1842 |
|
|
|
1843 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART6',1,ZHOOK_HANDLE) |
1844 |
|
1 |
END SUBROUTINE PART6 |
1845 |
|
|
|
1846 |
|
|
|
1847 |
|
1 |
SUBROUTINE PART7 |
1848 |
|
|
|
1849 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
1850 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART7',0,ZHOOK_HANDLE) |
1851 |
|
|
|
1852 |
|
|
|
1853 |
|
|
KBO( :,43,14) = (/& |
1854 |
✓✓ |
6 |
& 1.9649E+04_JPRB,2.0152E+04_JPRB,2.0505E+04_JPRB,2.0716E+04_JPRB,2.0819E+04_JPRB/) |
1855 |
|
|
KBO( :,44,14) = (/& |
1856 |
✓✓ |
6 |
& 1.9430E+04_JPRB,2.0000E+04_JPRB,2.0405E+04_JPRB,2.0665E+04_JPRB,2.0802E+04_JPRB/) |
1857 |
|
|
KBO( :,45,14) = (/& |
1858 |
✓✓ |
6 |
& 1.9196E+04_JPRB,1.9828E+04_JPRB,2.0288E+04_JPRB,2.0595E+04_JPRB,2.0775E+04_JPRB/) |
1859 |
|
|
KBO( :,46,14) = (/& |
1860 |
✓✓ |
6 |
& 1.8908E+04_JPRB,1.9621E+04_JPRB,2.0141E+04_JPRB,2.0502E+04_JPRB,2.0723E+04_JPRB/) |
1861 |
|
|
KBO( :,47,14) = (/& |
1862 |
✓✓ |
6 |
& 1.8564E+04_JPRB,1.9359E+04_JPRB,1.9951E+04_JPRB,2.0375E+04_JPRB,2.0651E+04_JPRB/) |
1863 |
|
|
KBO( :,48,14) = (/& |
1864 |
✓✓ |
6 |
& 1.8186E+04_JPRB,1.9064E+04_JPRB,1.9734E+04_JPRB,2.0222E+04_JPRB,2.0560E+04_JPRB/) |
1865 |
|
|
KBO( :,49,14) = (/& |
1866 |
✓✓ |
6 |
& 1.7775E+04_JPRB,1.8727E+04_JPRB,1.9486E+04_JPRB,2.0046E+04_JPRB,2.0443E+04_JPRB/) |
1867 |
|
|
KBO( :,50,14) = (/& |
1868 |
✓✓ |
6 |
& 1.7362E+04_JPRB,1.8391E+04_JPRB,1.9223E+04_JPRB,1.9856E+04_JPRB,2.0310E+04_JPRB/) |
1869 |
|
|
KBO( :,51,14) = (/& |
1870 |
✓✓ |
6 |
& 1.6921E+04_JPRB,1.8033E+04_JPRB,1.8942E+04_JPRB,1.9648E+04_JPRB,2.0164E+04_JPRB/) |
1871 |
|
|
KBO( :,52,14) = (/& |
1872 |
✓✓ |
6 |
& 1.6453E+04_JPRB,1.7649E+04_JPRB,1.8637E+04_JPRB,1.9415E+04_JPRB,1.9994E+04_JPRB/) |
1873 |
|
|
KBO( :,53,14) = (/& |
1874 |
✓✓ |
6 |
& 1.5948E+04_JPRB,1.7240E+04_JPRB,1.8303E+04_JPRB,1.9152E+04_JPRB,1.9803E+04_JPRB/) |
1875 |
|
|
KBO( :,54,14) = (/& |
1876 |
✓✓ |
6 |
& 1.5455E+04_JPRB,1.6834E+04_JPRB,1.7961E+04_JPRB,1.8891E+04_JPRB,1.9606E+04_JPRB/) |
1877 |
|
|
KBO( :,55,14) = (/& |
1878 |
✓✓ |
6 |
& 1.4957E+04_JPRB,1.6418E+04_JPRB,1.7624E+04_JPRB,1.8615E+04_JPRB,1.9397E+04_JPRB/) |
1879 |
|
|
KBO( :,56,14) = (/& |
1880 |
✓✓ |
6 |
& 1.4440E+04_JPRB,1.5974E+04_JPRB,1.7263E+04_JPRB,1.8321E+04_JPRB,1.9169E+04_JPRB/) |
1881 |
|
|
KBO( :,57,14) = (/& |
1882 |
✓✓ |
6 |
& 1.3900E+04_JPRB,1.5506E+04_JPRB,1.6878E+04_JPRB,1.8004E+04_JPRB,1.8917E+04_JPRB/) |
1883 |
|
|
KBO( :,58,14) = (/& |
1884 |
✓✓ |
6 |
& 1.3361E+04_JPRB,1.5039E+04_JPRB,1.6487E+04_JPRB,1.7689E+04_JPRB,1.8664E+04_JPRB/) |
1885 |
|
|
KBO( :,59,14) = (/& |
1886 |
✓✓ |
6 |
& 1.3141E+04_JPRB,1.4845E+04_JPRB,1.6324E+04_JPRB,1.7549E+04_JPRB,1.8556E+04_JPRB/) |
1887 |
|
|
KBO( :,13,15) = (/& |
1888 |
✓✓ |
6 |
& 1.3105E+04_JPRB,1.3211E+04_JPRB,1.3290E+04_JPRB,1.3347E+04_JPRB,1.3377E+04_JPRB/) |
1889 |
|
|
KBO( :,14,15) = (/& |
1890 |
✓✓ |
6 |
& 1.5542E+04_JPRB,1.5648E+04_JPRB,1.5712E+04_JPRB,1.5742E+04_JPRB,1.5741E+04_JPRB/) |
1891 |
|
|
KBO( :,15,15) = (/& |
1892 |
✓✓ |
6 |
& 1.8293E+04_JPRB,1.8393E+04_JPRB,1.8434E+04_JPRB,1.8432E+04_JPRB,1.8387E+04_JPRB/) |
1893 |
|
|
KBO( :,16,15) = (/& |
1894 |
✓✓ |
6 |
& 2.1367E+04_JPRB,2.1424E+04_JPRB,2.1423E+04_JPRB,2.1375E+04_JPRB,2.1256E+04_JPRB/) |
1895 |
|
|
KBO( :,17,15) = (/& |
1896 |
✓✓ |
6 |
& 2.4738E+04_JPRB,2.4717E+04_JPRB,2.4651E+04_JPRB,2.4501E+04_JPRB,2.4302E+04_JPRB/) |
1897 |
|
|
KBO( :,18,15) = (/& |
1898 |
✓✓ |
6 |
& 2.8333E+04_JPRB,2.8229E+04_JPRB,2.8040E+04_JPRB,2.7775E+04_JPRB,2.7461E+04_JPRB/) |
1899 |
|
|
KBO( :,19,15) = (/& |
1900 |
✓✓ |
6 |
& 3.2088E+04_JPRB,3.1857E+04_JPRB,3.1527E+04_JPRB,3.1118E+04_JPRB,3.0643E+04_JPRB/) |
1901 |
|
|
KBO( :,20,15) = (/& |
1902 |
✓✓ |
6 |
& 3.5897E+04_JPRB,3.5492E+04_JPRB,3.5012E+04_JPRB,3.4430E+04_JPRB,3.3771E+04_JPRB/) |
1903 |
|
|
KBO( :,21,15) = (/& |
1904 |
✓✓ |
6 |
& 3.9650E+04_JPRB,3.9061E+04_JPRB,3.8385E+04_JPRB,3.7607E+04_JPRB,3.6774E+04_JPRB/) |
1905 |
|
|
KBO( :,22,15) = (/& |
1906 |
✓✓ |
6 |
& 4.3231E+04_JPRB,4.2424E+04_JPRB,4.1504E+04_JPRB,4.0530E+04_JPRB,3.9497E+04_JPRB/) |
1907 |
|
|
KBO( :,23,15) = (/& |
1908 |
✓✓ |
6 |
& 4.6557E+04_JPRB,4.5500E+04_JPRB,4.4350E+04_JPRB,4.3167E+04_JPRB,4.1929E+04_JPRB/) |
1909 |
|
|
KBO( :,24,15) = (/& |
1910 |
✓✓ |
6 |
& 4.9552E+04_JPRB,4.8236E+04_JPRB,4.6880E+04_JPRB,4.5475E+04_JPRB,4.4033E+04_JPRB/) |
1911 |
|
|
KBO( :,25,15) = (/& |
1912 |
✓✓ |
6 |
& 5.2158E+04_JPRB,5.0602E+04_JPRB,4.9033E+04_JPRB,4.7428E+04_JPRB,4.5797E+04_JPRB/) |
1913 |
|
|
KBO( :,26,15) = (/& |
1914 |
✓✓ |
6 |
& 5.4326E+04_JPRB,5.2566E+04_JPRB,5.0793E+04_JPRB,4.9004E+04_JPRB,4.7209E+04_JPRB/) |
1915 |
|
|
KBO( :,27,15) = (/& |
1916 |
✓✓ |
6 |
& 5.6113E+04_JPRB,5.4155E+04_JPRB,5.2200E+04_JPRB,5.0246E+04_JPRB,4.8319E+04_JPRB/) |
1917 |
|
|
KBO( :,28,15) = (/& |
1918 |
✓✓ |
6 |
& 5.7518E+04_JPRB,5.5394E+04_JPRB,5.3278E+04_JPRB,5.1199E+04_JPRB,4.9157E+04_JPRB/) |
1919 |
|
|
KBO( :,29,15) = (/& |
1920 |
✓✓ |
6 |
& 5.8580E+04_JPRB,5.6300E+04_JPRB,5.4057E+04_JPRB,5.1871E+04_JPRB,4.9732E+04_JPRB/) |
1921 |
|
|
KBO( :,30,15) = (/& |
1922 |
✓✓ |
6 |
& 5.9321E+04_JPRB,5.6927E+04_JPRB,5.4587E+04_JPRB,5.2312E+04_JPRB,5.0097E+04_JPRB/) |
1923 |
|
|
KBO( :,31,15) = (/& |
1924 |
✓✓ |
6 |
& 5.9791E+04_JPRB,5.7302E+04_JPRB,5.4893E+04_JPRB,5.2547E+04_JPRB,5.0272E+04_JPRB/) |
1925 |
|
|
KBO( :,32,15) = (/& |
1926 |
✓✓ |
6 |
& 6.0024E+04_JPRB,5.7470E+04_JPRB,5.5008E+04_JPRB,5.2603E+04_JPRB,5.0291E+04_JPRB/) |
1927 |
|
|
KBO( :,33,15) = (/& |
1928 |
✓✓ |
6 |
& 6.0073E+04_JPRB,5.7468E+04_JPRB,5.4966E+04_JPRB,5.2524E+04_JPRB,5.0181E+04_JPRB/) |
1929 |
|
|
KBO( :,34,15) = (/& |
1930 |
✓✓ |
6 |
& 6.0061E+04_JPRB,5.7423E+04_JPRB,5.4889E+04_JPRB,5.2419E+04_JPRB,5.0055E+04_JPRB/) |
1931 |
|
|
KBO( :,35,15) = (/& |
1932 |
✓✓ |
6 |
& 6.0191E+04_JPRB,5.7520E+04_JPRB,5.4955E+04_JPRB,5.2459E+04_JPRB,5.0075E+04_JPRB/) |
1933 |
|
|
KBO( :,36,15) = (/& |
1934 |
✓✓ |
6 |
& 6.0539E+04_JPRB,5.7824E+04_JPRB,5.5225E+04_JPRB,5.2698E+04_JPRB,5.0287E+04_JPRB/) |
1935 |
|
|
KBO( :,37,15) = (/& |
1936 |
✓✓ |
6 |
& 6.1234E+04_JPRB,5.8473E+04_JPRB,5.5831E+04_JPRB,5.3268E+04_JPRB,5.0811E+04_JPRB/) |
1937 |
|
|
KBO( :,38,15) = (/& |
1938 |
✓✓ |
6 |
& 6.1911E+04_JPRB,5.9110E+04_JPRB,5.6429E+04_JPRB,5.3825E+04_JPRB,5.1333E+04_JPRB/) |
1939 |
|
|
KBO( :,39,15) = (/& |
1940 |
✓✓ |
6 |
& 6.2546E+04_JPRB,5.9701E+04_JPRB,5.6980E+04_JPRB,5.4347E+04_JPRB,5.1826E+04_JPRB/) |
1941 |
|
|
KBO( :,40,15) = (/& |
1942 |
✓✓ |
6 |
& 6.3440E+04_JPRB,6.0560E+04_JPRB,5.7786E+04_JPRB,5.5116E+04_JPRB,5.2552E+04_JPRB/) |
1943 |
|
|
KBO( :,41,15) = (/& |
1944 |
✓✓ |
6 |
& 6.4362E+04_JPRB,6.1427E+04_JPRB,5.8612E+04_JPRB,5.5905E+04_JPRB,5.3303E+04_JPRB/) |
1945 |
|
|
KBO( :,42,15) = (/& |
1946 |
✓✓ |
6 |
& 6.5271E+04_JPRB,6.2297E+04_JPRB,5.9433E+04_JPRB,5.6685E+04_JPRB,5.4054E+04_JPRB/) |
1947 |
|
|
KBO( :,43,15) = (/& |
1948 |
✓✓ |
6 |
& 6.6345E+04_JPRB,6.3316E+04_JPRB,6.0412E+04_JPRB,5.7629E+04_JPRB,5.4943E+04_JPRB/) |
1949 |
|
|
KBO( :,44,15) = (/& |
1950 |
✓✓ |
6 |
& 6.7502E+04_JPRB,6.4418E+04_JPRB,6.1461E+04_JPRB,5.8625E+04_JPRB,5.5900E+04_JPRB/) |
1951 |
|
|
KBO( :,45,15) = (/& |
1952 |
✓✓ |
6 |
& 6.8664E+04_JPRB,6.5524E+04_JPRB,6.2518E+04_JPRB,5.9632E+04_JPRB,5.6859E+04_JPRB/) |
1953 |
|
|
KBO( :,46,15) = (/& |
1954 |
✓✓ |
6 |
& 6.9916E+04_JPRB,6.6699E+04_JPRB,6.3637E+04_JPRB,6.0705E+04_JPRB,5.7897E+04_JPRB/) |
1955 |
|
|
KBO( :,47,15) = (/& |
1956 |
✓✓ |
6 |
& 7.1307E+04_JPRB,6.8027E+04_JPRB,6.4908E+04_JPRB,6.1920E+04_JPRB,5.9052E+04_JPRB/) |
1957 |
|
|
KBO( :,48,15) = (/& |
1958 |
✓✓ |
6 |
& 7.2692E+04_JPRB,6.9380E+04_JPRB,6.6186E+04_JPRB,6.3144E+04_JPRB,6.0224E+04_JPRB/) |
1959 |
|
|
KBO( :,49,15) = (/& |
1960 |
✓✓ |
6 |
& 7.4089E+04_JPRB,7.0754E+04_JPRB,6.7488E+04_JPRB,6.4384E+04_JPRB,6.1415E+04_JPRB/) |
1961 |
|
|
KBO( :,50,15) = (/& |
1962 |
✓✓ |
6 |
& 7.5388E+04_JPRB,7.2035E+04_JPRB,6.8731E+04_JPRB,6.5568E+04_JPRB,6.2543E+04_JPRB/) |
1963 |
|
|
KBO( :,51,15) = (/& |
1964 |
✓✓ |
6 |
& 7.6677E+04_JPRB,7.3293E+04_JPRB,6.9952E+04_JPRB,6.6726E+04_JPRB,6.3655E+04_JPRB/) |
1965 |
|
|
KBO( :,52,15) = (/& |
1966 |
✓✓ |
6 |
& 7.7977E+04_JPRB,7.4539E+04_JPRB,7.1186E+04_JPRB,6.7906E+04_JPRB,6.4783E+04_JPRB/) |
1967 |
|
|
KBO( :,53,15) = (/& |
1968 |
✓✓ |
6 |
& 7.9289E+04_JPRB,7.5794E+04_JPRB,7.2422E+04_JPRB,6.9107E+04_JPRB,6.5922E+04_JPRB/) |
1969 |
|
|
KBO( :,54,15) = (/& |
1970 |
✓✓ |
6 |
& 8.0507E+04_JPRB,7.6976E+04_JPRB,7.3575E+04_JPRB,7.0226E+04_JPRB,6.6980E+04_JPRB/) |
1971 |
|
|
KBO( :,55,15) = (/& |
1972 |
✓✓ |
6 |
& 8.1668E+04_JPRB,7.8115E+04_JPRB,7.4665E+04_JPRB,7.1303E+04_JPRB,6.8017E+04_JPRB/) |
1973 |
|
|
KBO( :,56,15) = (/& |
1974 |
✓✓ |
6 |
& 8.2825E+04_JPRB,7.9256E+04_JPRB,7.5760E+04_JPRB,7.2375E+04_JPRB,6.9059E+04_JPRB/) |
1975 |
|
|
KBO( :,57,15) = (/& |
1976 |
✓✓ |
6 |
& 8.3969E+04_JPRB,8.0408E+04_JPRB,7.6872E+04_JPRB,7.3475E+04_JPRB,7.0130E+04_JPRB/) |
1977 |
|
|
KBO( :,58,15) = (/& |
1978 |
✓✓ |
6 |
& 8.5046E+04_JPRB,8.1501E+04_JPRB,7.7943E+04_JPRB,7.4498E+04_JPRB,7.1139E+04_JPRB/) |
1979 |
|
|
KBO( :,59,15) = (/& |
1980 |
✓✓ |
6 |
& 8.5481E+04_JPRB,8.1948E+04_JPRB,7.8376E+04_JPRB,7.4922E+04_JPRB,7.1551E+04_JPRB/) |
1981 |
|
|
KBO( :,13,16) = (/& |
1982 |
✓✓ |
6 |
& 1.4822E+04_JPRB,1.4947E+04_JPRB,1.5039E+04_JPRB,1.5078E+04_JPRB,1.5067E+04_JPRB/) |
1983 |
|
|
KBO( :,14,16) = (/& |
1984 |
✓✓ |
6 |
& 1.7844E+04_JPRB,1.7976E+04_JPRB,1.8048E+04_JPRB,1.8049E+04_JPRB,1.8009E+04_JPRB/) |
1985 |
|
|
KBO( :,15,16) = (/& |
1986 |
✓✓ |
6 |
& 2.1400E+04_JPRB,2.1492E+04_JPRB,2.1520E+04_JPRB,2.1466E+04_JPRB,2.1373E+04_JPRB/) |
1987 |
|
|
KBO( :,16,16) = (/& |
1988 |
✓✓ |
6 |
& 2.5508E+04_JPRB,2.5515E+04_JPRB,2.5445E+04_JPRB,2.5314E+04_JPRB,2.5126E+04_JPRB/) |
1989 |
|
|
KBO( :,17,16) = (/& |
1990 |
✓✓ |
6 |
& 3.0159E+04_JPRB,3.0040E+04_JPRB,2.9821E+04_JPRB,2.9561E+04_JPRB,2.9224E+04_JPRB/) |
1991 |
|
|
KBO( :,18,16) = (/& |
1992 |
✓✓ |
6 |
& 3.5323E+04_JPRB,3.5002E+04_JPRB,3.4578E+04_JPRB,3.4138E+04_JPRB,3.3586E+04_JPRB/) |
1993 |
|
|
KBO( :,19,16) = (/& |
1994 |
✓✓ |
6 |
& 4.0906E+04_JPRB,4.0304E+04_JPRB,3.9627E+04_JPRB,3.8916E+04_JPRB,3.8103E+04_JPRB/) |
1995 |
|
|
KBO( :,20,16) = (/& |
1996 |
✓✓ |
6 |
& 4.6757E+04_JPRB,4.5796E+04_JPRB,4.4798E+04_JPRB,4.3759E+04_JPRB,4.2633E+04_JPRB/) |
1997 |
|
|
KBO( :,21,16) = (/& |
1998 |
✓✓ |
6 |
& 5.2696E+04_JPRB,5.1326E+04_JPRB,4.9934E+04_JPRB,4.8491E+04_JPRB,4.7018E+04_JPRB/) |
1999 |
|
|
KBO( :,22,16) = (/& |
2000 |
✓✓ |
6 |
& 5.8463E+04_JPRB,5.6597E+04_JPRB,5.4757E+04_JPRB,5.2889E+04_JPRB,5.1042E+04_JPRB/) |
2001 |
|
|
KBO( :,23,16) = (/& |
2002 |
✓✓ |
6 |
& 6.3885E+04_JPRB,6.1516E+04_JPRB,5.9197E+04_JPRB,5.6911E+04_JPRB,5.4673E+04_JPRB/) |
2003 |
|
|
KBO( :,24,16) = (/& |
2004 |
✓✓ |
6 |
& 6.8792E+04_JPRB,6.5930E+04_JPRB,6.3138E+04_JPRB,6.0429E+04_JPRB,5.7833E+04_JPRB/) |
2005 |
|
|
KBO( :,25,16) = (/& |
2006 |
✓✓ |
6 |
& 7.3081E+04_JPRB,6.9742E+04_JPRB,6.6502E+04_JPRB,6.3413E+04_JPRB,6.0489E+04_JPRB/) |
2007 |
|
|
KBO( :,26,16) = (/& |
2008 |
✓✓ |
6 |
& 7.6659E+04_JPRB,7.2881E+04_JPRB,6.9229E+04_JPRB,6.5813E+04_JPRB,6.2609E+04_JPRB/) |
2009 |
|
|
KBO( :,27,16) = (/& |
2010 |
✓✓ |
6 |
& 7.9551E+04_JPRB,7.5372E+04_JPRB,7.1411E+04_JPRB,6.7691E+04_JPRB,6.4257E+04_JPRB/) |
2011 |
|
|
KBO( :,28,16) = (/& |
2012 |
✓✓ |
6 |
& 8.1786E+04_JPRB,7.7281E+04_JPRB,7.3039E+04_JPRB,6.9087E+04_JPRB,6.5469E+04_JPRB/) |
2013 |
|
|
KBO( :,29,16) = (/& |
2014 |
✓✓ |
6 |
& 8.3384E+04_JPRB,7.8614E+04_JPRB,7.4165E+04_JPRB,7.0047E+04_JPRB,6.6277E+04_JPRB/) |
2015 |
|
|
KBO( :,30,16) = (/& |
2016 |
✓✓ |
6 |
& 8.4452E+04_JPRB,7.9468E+04_JPRB,7.4871E+04_JPRB,7.0641E+04_JPRB,6.6750E+04_JPRB/) |
2017 |
|
|
KBO( :,31,16) = (/& |
2018 |
✓✓ |
6 |
& 8.5039E+04_JPRB,7.9905E+04_JPRB,7.5199E+04_JPRB,7.0901E+04_JPRB,6.6924E+04_JPRB/) |
2019 |
|
|
KBO( :,32,16) = (/& |
2020 |
✓✓ |
6 |
& 8.5212E+04_JPRB,7.9990E+04_JPRB,7.5213E+04_JPRB,7.0881E+04_JPRB,6.6857E+04_JPRB/) |
2021 |
|
|
KBO( :,33,16) = (/& |
2022 |
✓✓ |
6 |
& 8.5050E+04_JPRB,7.9794E+04_JPRB,7.5003E+04_JPRB,7.0644E+04_JPRB,6.6588E+04_JPRB/) |
2023 |
|
|
KBO( :,34,16) = (/& |
2024 |
✓✓ |
6 |
& 8.4825E+04_JPRB,7.9556E+04_JPRB,7.4769E+04_JPRB,7.0382E+04_JPRB,6.6308E+04_JPRB/) |
2025 |
|
|
KBO( :,35,16) = (/& |
2026 |
✓✓ |
6 |
& 8.4932E+04_JPRB,7.9627E+04_JPRB,7.4818E+04_JPRB,7.0396E+04_JPRB,6.6295E+04_JPRB/) |
2027 |
|
|
KBO( :,36,16) = (/& |
2028 |
✓✓ |
6 |
& 8.5505E+04_JPRB,8.0119E+04_JPRB,7.5241E+04_JPRB,7.0767E+04_JPRB,6.6616E+04_JPRB/) |
2029 |
|
|
KBO( :,37,16) = (/& |
2030 |
✓✓ |
6 |
& 8.6832E+04_JPRB,8.1301E+04_JPRB,7.6293E+04_JPRB,7.1722E+04_JPRB,6.7493E+04_JPRB/) |
2031 |
|
|
KBO( :,38,16) = (/& |
2032 |
✓✓ |
6 |
& 8.8141E+04_JPRB,8.2471E+04_JPRB,7.7320E+04_JPRB,7.2657E+04_JPRB,6.8355E+04_JPRB/) |
2033 |
|
|
KBO( :,39,16) = (/& |
2034 |
✓✓ |
6 |
& 8.9385E+04_JPRB,8.3583E+04_JPRB,7.8311E+04_JPRB,7.3555E+04_JPRB,6.9176E+04_JPRB/) |
2035 |
|
|
KBO( :,40,16) = (/& |
2036 |
✓✓ |
6 |
& 9.1225E+04_JPRB,8.5227E+04_JPRB,7.9808E+04_JPRB,7.4896E+04_JPRB,7.0406E+04_JPRB/) |
2037 |
|
|
KBO( :,41,16) = (/& |
2038 |
✓✓ |
6 |
& 9.3145E+04_JPRB,8.6959E+04_JPRB,8.1376E+04_JPRB,7.6283E+04_JPRB,7.1693E+04_JPRB/) |
2039 |
|
|
KBO( :,42,16) = (/& |
2040 |
✓✓ |
6 |
& 9.5061E+04_JPRB,8.8707E+04_JPRB,8.2949E+04_JPRB,7.7691E+04_JPRB,7.2983E+04_JPRB/) |
2041 |
|
|
KBO( :,43,16) = (/& |
2042 |
✓✓ |
6 |
& 9.7401E+04_JPRB,9.0828E+04_JPRB,8.4849E+04_JPRB,7.9428E+04_JPRB,7.4539E+04_JPRB/) |
2043 |
|
|
KBO( :,44,16) = (/& |
2044 |
✓✓ |
6 |
& 9.9953E+04_JPRB,9.3134E+04_JPRB,8.6932E+04_JPRB,8.1331E+04_JPRB,7.6228E+04_JPRB/) |
2045 |
|
|
KBO( :,45,16) = (/& |
2046 |
✓✓ |
6 |
& 1.0257E+05_JPRB,9.5499E+04_JPRB,8.9091E+04_JPRB,8.3270E+04_JPRB,7.7968E+04_JPRB/) |
2047 |
|
|
KBO( :,46,16) = (/& |
2048 |
✓✓ |
6 |
& 1.0547E+05_JPRB,9.8084E+04_JPRB,9.1440E+04_JPRB,8.5379E+04_JPRB,7.9900E+04_JPRB/) |
2049 |
|
|
KBO( :,47,16) = (/& |
2050 |
✓✓ |
6 |
& 1.0883E+05_JPRB,1.0107E+05_JPRB,9.4133E+04_JPRB,8.7821E+04_JPRB,8.2113E+04_JPRB/) |
2051 |
|
|
KBO( :,48,16) = (/& |
2052 |
✓✓ |
6 |
& 1.1238E+05_JPRB,1.0415E+05_JPRB,9.6911E+04_JPRB,9.0357E+04_JPRB,8.4400E+04_JPRB/) |
2053 |
|
|
KBO( :,49,16) = (/& |
2054 |
✓✓ |
6 |
& 1.1611E+05_JPRB,1.0741E+05_JPRB,9.9813E+04_JPRB,9.2980E+04_JPRB,8.6767E+04_JPRB/) |
2055 |
|
|
KBO( :,50,16) = (/& |
2056 |
✓✓ |
6 |
& 1.1983E+05_JPRB,1.1062E+05_JPRB,1.0263E+05_JPRB,9.5525E+04_JPRB,8.9084E+04_JPRB/) |
2057 |
|
|
KBO( :,51,16) = (/& |
2058 |
✓✓ |
6 |
& 1.2356E+05_JPRB,1.1388E+05_JPRB,1.0545E+05_JPRB,9.8084E+04_JPRB,9.1415E+04_JPRB/) |
2059 |
|
|
KBO( :,52,16) = (/& |
2060 |
✓✓ |
6 |
& 1.2745E+05_JPRB,1.1733E+05_JPRB,1.0841E+05_JPRB,1.0073E+05_JPRB,9.3803E+04_JPRB/) |
2061 |
|
|
KBO( :,53,16) = (/& |
2062 |
✓✓ |
6 |
& 1.3156E+05_JPRB,1.2095E+05_JPRB,1.1156E+05_JPRB,1.0347E+05_JPRB,9.6284E+04_JPRB/) |
2063 |
|
|
KBO( :,54,16) = (/& |
2064 |
✓✓ |
6 |
& 1.3554E+05_JPRB,1.2438E+05_JPRB,1.1460E+05_JPRB,1.0608E+05_JPRB,9.8639E+04_JPRB/) |
2065 |
|
|
KBO( :,55,16) = (/& |
2066 |
✓✓ |
6 |
& 1.3951E+05_JPRB,1.2782E+05_JPRB,1.1764E+05_JPRB,1.0869E+05_JPRB,1.0096E+05_JPRB/) |
2067 |
|
|
KBO( :,56,16) = (/& |
2068 |
✓✓ |
6 |
& 1.4367E+05_JPRB,1.3142E+05_JPRB,1.2080E+05_JPRB,1.1144E+05_JPRB,1.0335E+05_JPRB/) |
2069 |
|
|
KBO( :,57,16) = (/& |
2070 |
✓✓ |
6 |
& 1.4808E+05_JPRB,1.3519E+05_JPRB,1.2406E+05_JPRB,1.1429E+05_JPRB,1.0582E+05_JPRB/) |
2071 |
|
|
KBO( :,58,16) = (/& |
2072 |
✓✓ |
6 |
& 1.5260E+05_JPRB,1.3891E+05_JPRB,1.2727E+05_JPRB,1.1713E+05_JPRB,1.0827E+05_JPRB/) |
2073 |
|
|
KBO( :,59,16) = (/& |
2074 |
✓✓ |
6 |
& 1.5447E+05_JPRB,1.4046E+05_JPRB,1.2861E+05_JPRB,1.1836E+05_JPRB,1.0930E+05_JPRB/) |
2075 |
|
|
|
2076 |
|
|
! The array SELFREFO contains the coefficient of the water vapor |
2077 |
|
|
! self-continuum (including the energy term). The first index |
2078 |
|
|
! refers to temperature in 7.2 degree increments. For instance, |
2079 |
|
|
! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, |
2080 |
|
|
! etc. The second index runs over the g-channel (1 to 16). |
2081 |
|
|
|
2082 |
|
|
SELFREFO( :, 1) = (/& |
2083 |
|
|
& 4.67280E-03_JPRB, 3.95219E-03_JPRB, 3.34270E-03_JPRB, 2.82721E-03_JPRB, 2.39121E-03_JPRB,& |
2084 |
✓✓ |
11 |
& 2.02245E-03_JPRB, 1.71056E-03_JPRB, 1.44677E-03_JPRB, 1.22365E-03_JPRB, 1.03495E-03_JPRB/) |
2085 |
|
|
SELFREFO( :, 2) = (/& |
2086 |
|
|
& 4.42573E-03_JPRB, 3.73328E-03_JPRB, 3.14917E-03_JPRB, 2.65644E-03_JPRB, 2.24081E-03_JPRB,& |
2087 |
✓✓ |
11 |
& 1.89021E-03_JPRB, 1.59447E-03_JPRB, 1.34500E-03_JPRB, 1.13456E-03_JPRB, 9.57044E-04_JPRB/) |
2088 |
|
|
SELFREFO( :, 3) = (/& |
2089 |
|
|
& 3.96061E-03_JPRB, 3.33783E-03_JPRB, 2.81297E-03_JPRB, 2.37065E-03_JPRB, 1.99788E-03_JPRB,& |
2090 |
✓✓ |
11 |
& 1.68372E-03_JPRB, 1.41897E-03_JPRB, 1.19584E-03_JPRB, 1.00780E-03_JPRB, 8.49333E-04_JPRB/) |
2091 |
|
|
SELFREFO( :, 4) = (/& |
2092 |
|
|
& 3.71838E-03_JPRB, 3.10031E-03_JPRB, 2.58497E-03_JPRB, 2.15529E-03_JPRB, 1.79704E-03_JPRB,& |
2093 |
✓✓ |
11 |
& 1.49833E-03_JPRB, 1.24928E-03_JPRB, 1.04162E-03_JPRB, 8.68480E-04_JPRB, 7.24120E-04_JPRB/) |
2094 |
|
|
SELFREFO( :, 5) = (/& |
2095 |
|
|
& 3.55795E-03_JPRB, 2.95385E-03_JPRB, 2.45232E-03_JPRB, 2.03594E-03_JPRB, 1.69026E-03_JPRB,& |
2096 |
✓✓ |
11 |
& 1.40327E-03_JPRB, 1.16501E-03_JPRB, 9.67201E-04_JPRB, 8.02981E-04_JPRB, 6.66643E-04_JPRB/) |
2097 |
|
|
SELFREFO( :, 6) = (/& |
2098 |
|
|
& 3.47573E-03_JPRB, 2.88608E-03_JPRB, 2.39646E-03_JPRB, 1.98991E-03_JPRB, 1.65232E-03_JPRB,& |
2099 |
✓✓ |
11 |
& 1.37201E-03_JPRB, 1.13925E-03_JPRB, 9.45979E-04_JPRB, 7.85496E-04_JPRB, 6.52238E-04_JPRB/) |
2100 |
|
|
SELFREFO( :, 7) = (/& |
2101 |
|
|
& 3.44473E-03_JPRB, 2.86220E-03_JPRB, 2.37818E-03_JPRB, 1.97601E-03_JPRB, 1.64185E-03_JPRB,& |
2102 |
✓✓ |
11 |
& 1.36420E-03_JPRB, 1.13350E-03_JPRB, 9.41819E-04_JPRB, 7.82550E-04_JPRB, 6.50214E-04_JPRB/) |
2103 |
|
|
SELFREFO( :, 8) = (/& |
2104 |
|
|
& 3.40166E-03_JPRB, 2.82961E-03_JPRB, 2.35376E-03_JPRB, 1.95793E-03_JPRB, 1.62867E-03_JPRB,& |
2105 |
✓✓ |
11 |
& 1.35478E-03_JPRB, 1.12694E-03_JPRB, 9.37427E-04_JPRB, 7.79781E-04_JPRB, 6.48646E-04_JPRB/) |
2106 |
|
|
SELFREFO( :, 9) = (/& |
2107 |
|
|
& 3.39363E-03_JPRB, 2.82276E-03_JPRB, 2.34792E-03_JPRB, 1.95296E-03_JPRB, 1.62443E-03_JPRB,& |
2108 |
✓✓ |
11 |
& 1.35117E-03_JPRB, 1.12388E-03_JPRB, 9.34822E-04_JPRB, 7.77568E-04_JPRB, 6.46766E-04_JPRB/) |
2109 |
|
|
SELFREFO( :,10) = (/& |
2110 |
|
|
& 3.37151E-03_JPRB, 2.80633E-03_JPRB, 2.33590E-03_JPRB, 1.94432E-03_JPRB, 1.61839E-03_JPRB,& |
2111 |
✓✓ |
11 |
& 1.34709E-03_JPRB, 1.12128E-03_JPRB, 9.33313E-04_JPRB, 7.76859E-04_JPRB, 6.46632E-04_JPRB/) |
2112 |
|
|
SELFREFO( :,11) = (/& |
2113 |
|
|
& 3.37954E-03_JPRB, 2.81192E-03_JPRB, 2.33963E-03_JPRB, 1.94666E-03_JPRB, 1.61970E-03_JPRB,& |
2114 |
✓✓ |
11 |
& 1.34765E-03_JPRB, 1.12130E-03_JPRB, 9.32968E-04_JPRB, 7.76266E-04_JPRB, 6.45885E-04_JPRB/) |
2115 |
|
|
SELFREFO( :,12) = (/& |
2116 |
|
|
& 3.39637E-03_JPRB, 2.82275E-03_JPRB, 2.34600E-03_JPRB, 1.94978E-03_JPRB, 1.62048E-03_JPRB,& |
2117 |
✓✓ |
11 |
& 1.34679E-03_JPRB, 1.11933E-03_JPRB, 9.30281E-04_JPRB, 7.73163E-04_JPRB, 6.42581E-04_JPRB/) |
2118 |
|
|
SELFREFO( :,13) = (/& |
2119 |
|
|
& 3.35979E-03_JPRB, 2.79857E-03_JPRB, 2.33109E-03_JPRB, 1.94170E-03_JPRB, 1.61736E-03_JPRB,& |
2120 |
✓✓ |
11 |
& 1.34719E-03_JPRB, 1.12216E-03_JPRB, 9.34712E-04_JPRB, 7.78576E-04_JPRB, 6.48522E-04_JPRB/) |
2121 |
|
|
SELFREFO( :,14) = (/& |
2122 |
|
|
& 3.40473E-03_JPRB, 2.82009E-03_JPRB, 2.33585E-03_JPRB, 1.93475E-03_JPRB, 1.60253E-03_JPRB,& |
2123 |
✓✓ |
11 |
& 1.32736E-03_JPRB, 1.09943E-03_JPRB, 9.10645E-04_JPRB, 7.54276E-04_JPRB, 6.24757E-04_JPRB/) |
2124 |
|
|
SELFREFO( :,15) = (/& |
2125 |
|
|
& 3.27200E-03_JPRB, 2.70869E-03_JPRB, 2.24237E-03_JPRB, 1.85633E-03_JPRB, 1.53675E-03_JPRB,& |
2126 |
✓✓ |
11 |
& 1.27218E-03_JPRB, 1.05317E-03_JPRB, 8.71854E-04_JPRB, 7.21757E-04_JPRB, 5.97501E-04_JPRB/) |
2127 |
|
|
SELFREFO( :,16) = (/& |
2128 |
|
|
& 3.22979E-03_JPRB, 2.67796E-03_JPRB, 2.22041E-03_JPRB, 1.84104E-03_JPRB, 1.52648E-03_JPRB,& |
2129 |
✓✓ |
11 |
& 1.26567E-03_JPRB, 1.04942E-03_JPRB, 8.70124E-04_JPRB, 7.21457E-04_JPRB, 5.98191E-04_JPRB/) |
2130 |
|
|
|
2131 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART7',1,ZHOOK_HANDLE) |
2132 |
|
1 |
END SUBROUTINE PART7 |
2133 |
|
|
|
2134 |
|
|
|
2135 |
|
|
END SUBROUTINE RRTM_KGB14 |