Directory:  ./ 

File:  rad/rrtm_kgb6.f90 
Date:  20220111 19:19:34 
Exec  Total  Coverage  

Lines:  241  241  100.0% 
Branches:  454  460  98.7% 
Line  Branch  Exec  Source 

1  !OCL SCALAR  
2  !pgi$r opt=0  
3  1  SUBROUTINE RRTM_KGB6  
4  
5  ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.  
6  ! BAND 6: 820980 cm1 (low  H2O; high  nothing)  
7  ! Reformatted for F90 by JJMorcrette, ECMWF  
8  ! R. Elkhatib 12102005 Split for faster and more robust compilation.  
9  
10  !   
11  
12  USE PARKIND1 ,ONLY : JPRB  
13  USE YOMHOOK ,ONLY : LHOOK, DR_HOOK  
14  
15  USE YOERRTO6 , ONLY : KAO ,SELFREFO ,FRACREFAO ,CFC11ADJO ,&  
16  & CFC12O , ABSCO2O  
17  
18  !   
19  
20  IMPLICIT NONE  
21  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
22  
23 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB6',0,ZHOOK_HANDLE) 
24  
25  1  CALL PART1  
26  1  CALL PART2  
27  
28 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB6',1,ZHOOK_HANDLE) 
29  
30  !   
31  
32  CONTAINS  
33  
34  
35  1  SUBROUTINE PART1  
36  
37  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
38 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART1',0,ZHOOK_HANDLE) 
39  
40  
41  FRACREFAO( :) = (/&  
42  ! From P = 706 mb.  
43  & 0.13739009_JPRB,0.14259538_JPRB,0.14033118_JPRB,0.13547136_JPRB,&  
44  & 0.12569460_JPRB,0.11028396_JPRB,0.08626066_JPRB,0.06245148_JPRB,&  
45  & 0.04309394_JPRB,0.00473551_JPRB,0.00403920_JPRB,0.00321695_JPRB,&  
46  1  & 0.00232470_JPRB,0.00147662_JPRB,0.00056095_JPRB,0.00007373_JPRB/)  
47  
48  ! CFC11 is multiplied by 1.385 to account for the 10601107 cm1 band.  
49  CFC11ADJO( :) = (/&  
50  & 0.0_JPRB, 0.0_JPRB, 36.7627_JPRB, 150.757_JPRB, &  
51  & 81.4109_JPRB, 74.9112_JPRB, 56.9325_JPRB, 49.3226_JPRB, &  
52  & 57.1074_JPRB, 66.1202_JPRB, 109.557_JPRB, 89.0562_JPRB, &  
53  1  & 149.865_JPRB, 196.140_JPRB, 258.393_JPRB, 80.9923_JPRB/)  
54  
55  CFC12O( :) = (/&  
56  & 62.8368_JPRB, 43.2626_JPRB, 26.7549_JPRB, 22.2487_JPRB,&  
57  & 23.5029_JPRB, 34.8323_JPRB, 26.2335_JPRB, 23.2306_JPRB,&  
58  & 18.4062_JPRB, 13.9534_JPRB, 22.6268_JPRB, 24.2604_JPRB,&  
59  1  & 30.0088_JPRB, 26.3634_JPRB, 15.8237_JPRB, 57.5050_JPRB/)  
60  
61  ABSCO2O( :) = (/&  
62  & 7.44852E05_JPRB, 6.29208E05_JPRB, 7.34031E05_JPRB, 6.65218E05_JPRB,&  
63  & 7.87511E05_JPRB, 1.22489E04_JPRB, 3.39785E04_JPRB, 9.33040E04_JPRB,&  
64  & 1.54323E03_JPRB, 4.07220E04_JPRB, 4.34332E04_JPRB, 8.76418E05_JPRB,&  
65  1  & 9.80381E05_JPRB, 3.51680E05_JPRB, 5.31766E05_JPRB, 1.01542E05_JPRB/)  
66  
67  !   
68  
69  ! The array KAO contains absorption coefs at the 16 chosen gvalues  
70  ! for a range of pressure levels > ~100mb and temperatures. The first  
71  ! index in the array, JT, which runs from 1 to 5, corresponds to  
72  ! different temperatures. More specifically, JT = 3 means that the  
73  ! data are for the corresponding TREF for this pressure level,  
74  ! JT = 2 refers to the temperatureTREF15, JT = 1 is for TREF30,  
75  ! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second  
76  ! index, JP, runs from 1 to 13 and refers to the corresponding  
77  ! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
78  ! The third index, IG, goes from 1 to 16, and tells us which  
79  ! ginterval the absorption coefficients are for.  
80  
81  KAO( :, 1, 1) = (/&  
82 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.2568E05_JPRB,2.5521E05_JPRB,2.4392E05_JPRB,2.3686E05_JPRB,2.3850E05_JPRB/) 
83  KAO( :, 2, 1) = (/&  
84 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.8872E05_JPRB,1.8763E05_JPRB,1.8106E05_JPRB,1.7702E05_JPRB,1.7681E05_JPRB/) 
85  KAO( :, 3, 1) = (/&  
86 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2996E05_JPRB,1.3086E05_JPRB,1.3378E05_JPRB,1.3260E05_JPRB,1.1771E05_JPRB/) 
87  KAO( :, 4, 1) = (/&  
88 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.6276E06_JPRB,9.9774E06_JPRB,9.6694E06_JPRB,8.4861E06_JPRB,8.9160E06_JPRB/) 
89  KAO( :, 5, 1) = (/&  
90 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.1690E06_JPRB,7.2984E06_JPRB,5.8013E06_JPRB,6.2225E06_JPRB,6.6628E06_JPRB/) 
91  KAO( :, 6, 1) = (/&  
92 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.6038E06_JPRB,4.4095E06_JPRB,4.4722E06_JPRB,4.4395E06_JPRB,5.4630E06_JPRB/) 
93  KAO( :, 7, 1) = (/&  
94 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.4775E06_JPRB,3.0437E06_JPRB,3.3876E06_JPRB,3.8636E06_JPRB,4.9257E06_JPRB/) 
95  KAO( :, 8, 1) = (/&  
96 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.7310E06_JPRB,3.2224E06_JPRB,3.6552E06_JPRB,4.3975E06_JPRB,5.5359E06_JPRB/) 
97  KAO( :, 9, 1) = (/&  
98 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.6325E06_JPRB,7.7076E06_JPRB,8.9070E06_JPRB,1.0179E05_JPRB,1.1909E05_JPRB/) 
99  KAO( :,10, 1) = (/&  
100 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.4079E05_JPRB,2.6989E05_JPRB,3.0753E05_JPRB,3.4229E05_JPRB,3.8060E05_JPRB/) 
101  KAO( :,11, 1) = (/&  
102 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.3970E05_JPRB,3.7965E05_JPRB,4.2993E05_JPRB,4.7630E05_JPRB,5.2629E05_JPRB/) 
103  KAO( :,12, 1) = (/&  
104 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.5907E05_JPRB,4.0095E05_JPRB,4.5267E05_JPRB,5.0045E05_JPRB,5.5178E05_JPRB/) 
105  KAO( :,13, 1) = (/&  
106 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.0600E05_JPRB,3.4162E05_JPRB,3.8530E05_JPRB,4.2579E05_JPRB,4.6937E05_JPRB/) 
107  KAO( :, 1, 2) = (/&  
108 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.9639E05_JPRB,3.3221E05_JPRB,3.2806E05_JPRB,2.8964E05_JPRB,2.6726E05_JPRB/) 
109  KAO( :, 2, 2) = (/&  
110 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.3653E05_JPRB,2.4355E05_JPRB,2.4028E05_JPRB,2.0887E05_JPRB,2.2925E05_JPRB/) 
111  KAO( :, 3, 2) = (/&  
112 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.6734E05_JPRB,1.6216E05_JPRB,1.4570E05_JPRB,1.6223E05_JPRB,1.7762E05_JPRB/) 
113  KAO( :, 4, 2) = (/&  
114 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0615E05_JPRB,1.0115E05_JPRB,1.1508E05_JPRB,1.1885E05_JPRB,1.3929E05_JPRB/) 
115  KAO( :, 5, 2) = (/&  
116 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.5406E06_JPRB,7.3085E06_JPRB,8.6006E06_JPRB,9.3888E06_JPRB,1.1719E05_JPRB/) 
117  KAO( :, 6, 2) = (/&  
118 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.8289E06_JPRB,6.2547E06_JPRB,5.8818E06_JPRB,7.9263E06_JPRB,1.0542E05_JPRB/) 
119  KAO( :, 7, 2) = (/&  
120 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.3622E06_JPRB,4.7605E06_JPRB,5.4656E06_JPRB,7.2224E06_JPRB,1.0212E05_JPRB/) 
121  KAO( :, 8, 2) = (/&  
122 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.2923E06_JPRB,4.6584E06_JPRB,6.2268E06_JPRB,8.3462E06_JPRB,1.1797E05_JPRB/) 
123  KAO( :, 9, 2) = (/&  
124 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.7259E06_JPRB,1.1243E05_JPRB,1.3832E05_JPRB,1.8290E05_JPRB,2.4869E05_JPRB/) 
125  KAO( :,10, 2) = (/&  
126 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.3596E05_JPRB,3.8056E05_JPRB,4.3895E05_JPRB,5.4699E05_JPRB,7.1889E05_JPRB/) 
127  KAO( :,11, 2) = (/&  
128 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.7132E05_JPRB,5.3142E05_JPRB,6.1177E05_JPRB,7.5188E05_JPRB,9.8046E05_JPRB/) 
129  KAO( :,12, 2) = (/&  
130 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.9755E05_JPRB,5.6067E05_JPRB,6.4461E05_JPRB,7.8769E05_JPRB,1.0238E04_JPRB/) 
131  KAO( :,13, 2) = (/&  
132 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.2448E05_JPRB,4.7895E05_JPRB,5.4990E05_JPRB,6.7099E05_JPRB,8.7152E05_JPRB/) 
133  KAO( :, 1, 3) = (/&  
134 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.4391E05_JPRB,2.6179E05_JPRB,3.0228E05_JPRB,3.9877E05_JPRB,4.1318E05_JPRB/) 
135  KAO( :, 2, 3) = (/&  
136 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.0506E05_JPRB,2.0015E05_JPRB,2.6885E05_JPRB,2.9284E05_JPRB,2.9837E05_JPRB/) 
137  KAO( :, 3, 3) = (/&  
138 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.3542E05_JPRB,1.5721E05_JPRB,1.9501E05_JPRB,1.8947E05_JPRB,2.4397E05_JPRB/) 
139  KAO( :, 4, 3) = (/&  
140 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.0261E06_JPRB,1.3633E05_JPRB,1.2485E05_JPRB,1.7278E05_JPRB,2.0007E05_JPRB/) 
141  KAO( :, 5, 3) = (/&  
142 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.7945E06_JPRB,9.7631E06_JPRB,1.1634E05_JPRB,1.3600E05_JPRB,1.9745E05_JPRB/) 
143  KAO( :, 6, 3) = (/&  
144 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.5275E06_JPRB,7.1532E06_JPRB,9.4521E06_JPRB,1.3168E05_JPRB,1.9311E05_JPRB/) 
145  KAO( :, 7, 3) = (/&  
146 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.6021E06_JPRB,6.6005E06_JPRB,8.8148E06_JPRB,1.3299E05_JPRB,1.9798E05_JPRB/) 
147  KAO( :, 8, 3) = (/&  
148 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.6076E06_JPRB,7.6899E06_JPRB,1.0237E05_JPRB,1.5421E05_JPRB,2.3499E05_JPRB/) 
149  KAO( :, 9, 3) = (/&  
150 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.3625E05_JPRB,1.7122E05_JPRB,2.2283E05_JPRB,3.1506E05_JPRB,4.8193E05_JPRB/) 
151  KAO( :,10, 3) = (/&  
152 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.6234E05_JPRB,5.4855E05_JPRB,6.8590E05_JPRB,8.9964E05_JPRB,1.3093E04_JPRB/) 
153  KAO( :,11, 3) = (/&  
154 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.5003E05_JPRB,7.6686E05_JPRB,9.5408E05_JPRB,1.2507E04_JPRB,1.8079E04_JPRB/) 
155  KAO( :,12, 3) = (/&  
156 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.8759E05_JPRB,8.1014E05_JPRB,1.0079E04_JPRB,1.3196E04_JPRB,1.9017E04_JPRB/) 
157  KAO( :,13, 3) = (/&  
158 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.8741E05_JPRB,6.9297E05_JPRB,8.6397E05_JPRB,1.1292E04_JPRB,1.6288E04_JPRB/) 
159  KAO( :, 1, 4) = (/&  
160 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.6952E05_JPRB,3.9167E05_JPRB,4.5764E05_JPRB,4.7701E05_JPRB,5.5871E05_JPRB/) 
161  KAO( :, 2, 4) = (/&  
162 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.6008E05_JPRB,3.6209E05_JPRB,2.8658E05_JPRB,3.8449E05_JPRB,3.8668E05_JPRB/) 
163  KAO( :, 3, 4) = (/&  
164 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.1596E05_JPRB,2.1370E05_JPRB,2.2422E05_JPRB,2.7123E05_JPRB,3.0425E05_JPRB/) 
165  KAO( :, 4, 4) = (/&  
166 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.4408E05_JPRB,1.3094E05_JPRB,1.9460E05_JPRB,2.1634E05_JPRB,3.3208E05_JPRB/) 
167  KAO( :, 5, 4) = (/&  
168 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.9120E06_JPRB,1.2874E05_JPRB,1.5169E05_JPRB,2.3591E05_JPRB,3.5032E05_JPRB/) 
169  KAO( :, 6, 4) = (/&  
170 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.0427E06_JPRB,1.1114E05_JPRB,1.4987E05_JPRB,2.2856E05_JPRB,3.4461E05_JPRB/) 
171  KAO( :, 7, 4) = (/&  
172 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.4919E06_JPRB,9.5389E06_JPRB,1.5038E05_JPRB,2.3474E05_JPRB,3.5967E05_JPRB/) 
173  KAO( :, 8, 4) = (/&  
174 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.6186E06_JPRB,1.1413E05_JPRB,1.7846E05_JPRB,2.8336E05_JPRB,4.4637E05_JPRB/) 
175  KAO( :, 9, 4) = (/&  
176 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.9661E05_JPRB,2.5521E05_JPRB,3.7417E05_JPRB,5.9323E05_JPRB,9.6439E05_JPRB/) 
177  KAO( :,10, 4) = (/&  
178 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.3994E05_JPRB,8.1146E05_JPRB,1.0850E04_JPRB,1.6659E04_JPRB,2.7179E04_JPRB/) 
179  KAO( :,11, 4) = (/&  
180 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.0362E05_JPRB,1.1392E04_JPRB,1.5220E04_JPRB,2.3565E04_JPRB,3.8761E04_JPRB/) 
181  KAO( :,12, 4) = (/&  
182 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.5893E05_JPRB,1.2069E04_JPRB,1.6199E04_JPRB,2.5340E04_JPRB,4.1839E04_JPRB/) 
183  KAO( :,13, 4) = (/&  
184 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.2144E05_JPRB,1.0344E04_JPRB,1.3998E04_JPRB,2.2132E04_JPRB,3.6483E04_JPRB/) 
185  KAO( :, 1, 5) = (/&  
186 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.3532E05_JPRB,4.1940E05_JPRB,5.7696E05_JPRB,6.0186E05_JPRB,6.3029E05_JPRB/) 
187  KAO( :, 2, 5) = (/&  
188 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.3830E05_JPRB,3.5587E05_JPRB,4.6056E05_JPRB,4.1505E05_JPRB,5.7960E05_JPRB/) 
189  KAO( :, 3, 5) = (/&  
190 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.1812E05_JPRB,2.5706E05_JPRB,2.8233E05_JPRB,3.5229E05_JPRB,5.8555E05_JPRB/) 
191  KAO( :, 4, 5) = (/&  
192 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.7315E05_JPRB,1.9695E05_JPRB,2.2530E05_JPRB,3.8597E05_JPRB,5.8973E05_JPRB/) 
193  KAO( :, 5, 5) = (/&  
194 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1890E05_JPRB,1.3867E05_JPRB,2.3935E05_JPRB,3.9940E05_JPRB,5.8993E05_JPRB/) 
195  KAO( :, 6, 5) = (/&  
196 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0677E05_JPRB,1.4192E05_JPRB,2.4839E05_JPRB,4.0149E05_JPRB,5.9735E05_JPRB/) 
197  KAO( :, 7, 5) = (/&  
198 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.2784E06_JPRB,1.5528E05_JPRB,2.6050E05_JPRB,4.1864E05_JPRB,6.4186E05_JPRB/) 
199  KAO( :, 8, 5) = (/&  
200 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1359E05_JPRB,1.8672E05_JPRB,3.1354E05_JPRB,5.1149E05_JPRB,8.0918E05_JPRB/) 
201  KAO( :, 9, 5) = (/&  
202 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.6841E05_JPRB,4.0944E05_JPRB,6.8221E05_JPRB,1.1515E04_JPRB,1.8821E04_JPRB/) 
203  KAO( :,10, 5) = (/&  
204 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.7415E05_JPRB,1.2053E04_JPRB,1.9441E04_JPRB,3.3166E04_JPRB,5.5740E04_JPRB/) 
205  KAO( :,11, 5) = (/&  
206 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2386E04_JPRB,1.7143E04_JPRB,2.7887E04_JPRB,4.7716E04_JPRB,8.0477E04_JPRB/) 
207  KAO( :,12, 5) = (/&  
208 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.3204E04_JPRB,1.8364E04_JPRB,3.0111E04_JPRB,5.1685E04_JPRB,8.7520E04_JPRB/) 
209  KAO( :,13, 5) = (/&  
210 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1358E04_JPRB,1.5915E04_JPRB,2.6323E04_JPRB,4.5343E04_JPRB,7.7073E04_JPRB/) 
211  KAO( :, 1, 6) = (/&  
212 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.6626E05_JPRB,6.2952E05_JPRB,5.6997E05_JPRB,7.8387E05_JPRB,1.4023E04_JPRB/) 
213  KAO( :, 2, 6) = (/&  
214 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.2639E05_JPRB,4.0472E05_JPRB,5.1521E05_JPRB,7.2367E05_JPRB,1.2444E04_JPRB/) 
215  KAO( :, 3, 6) = (/&  
216 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.3191E05_JPRB,2.9821E05_JPRB,4.1035E05_JPRB,7.5835E05_JPRB,1.1292E04_JPRB/) 
217  KAO( :, 4, 6) = (/&  
218 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.7563E05_JPRB,2.2621E05_JPRB,4.3898E05_JPRB,7.3541E05_JPRB,1.0514E04_JPRB/) 
219  KAO( :, 5, 6) = (/&  
220 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.4086E05_JPRB,2.3545E05_JPRB,4.5696E05_JPRB,7.1090E05_JPRB,1.0366E04_JPRB/) 
221  KAO( :, 6, 6) = (/&  
222 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2590E05_JPRB,2.4048E05_JPRB,4.4731E05_JPRB,6.9646E05_JPRB,1.0367E04_JPRB/) 
223  KAO( :, 7, 6) = (/&  
224 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.3429E05_JPRB,2.6924E05_JPRB,4.6412E05_JPRB,7.4051E05_JPRB,1.1343E04_JPRB/) 
225  KAO( :, 8, 6) = (/&  
226 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.8185E05_JPRB,3.3168E05_JPRB,5.7618E05_JPRB,9.5901E05_JPRB,1.5240E04_JPRB/) 
227  KAO( :, 9, 6) = (/&  
228 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.0915E05_JPRB,7.1523E05_JPRB,1.2899E04_JPRB,2.2341E04_JPRB,3.6849E04_JPRB/) 
229  KAO( :,10, 6) = (/&  
230 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2433E04_JPRB,2.0393E04_JPRB,3.7307E04_JPRB,6.6855E04_JPRB,1.1425E03_JPRB/) 
231  KAO( :,11, 6) = (/&  
232 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.8043E04_JPRB,3.0126E04_JPRB,5.5504E04_JPRB,9.9966E04_JPRB,1.7159E03_JPRB/) 
233  KAO( :,12, 6) = (/&  
234 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.9679E04_JPRB,3.3338E04_JPRB,6.1765E04_JPRB,1.1153E03_JPRB,1.9175E03_JPRB/) 
235  KAO( :,13, 6) = (/&  
236 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.7363E04_JPRB,2.9831E04_JPRB,5.5435E04_JPRB,1.0025E03_JPRB,1.7267E03_JPRB/) 
237  KAO( :, 1, 7) = (/&  
238 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.4728E05_JPRB,6.3216E05_JPRB,9.7227E05_JPRB,1.9830E04_JPRB,3.0115E04_JPRB/) 
239  KAO( :, 2, 7) = (/&  
240 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.7424E05_JPRB,4.6891E05_JPRB,9.3922E05_JPRB,1.8575E04_JPRB,2.6393E04_JPRB/) 
241  KAO( :, 3, 7) = (/&  
242 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.2885E05_JPRB,5.4240E05_JPRB,1.1210E04_JPRB,1.7073E04_JPRB,2.3633E04_JPRB/) 
243  KAO( :, 4, 7) = (/&  
244 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.6560E05_JPRB,6.2341E05_JPRB,1.0718E04_JPRB,1.5691E04_JPRB,2.1887E04_JPRB/) 
245  KAO( :, 5, 7) = (/&  
246 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.8005E05_JPRB,6.1158E05_JPRB,9.7995E05_JPRB,1.4461E04_JPRB,2.0623E04_JPRB/) 
247  KAO( :, 6, 7) = (/&  
248 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.6304E05_JPRB,5.4858E05_JPRB,8.8237E05_JPRB,1.3524E04_JPRB,2.0068E04_JPRB/) 
249  KAO( :, 7, 7) = (/&  
250 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.8057E05_JPRB,5.2849E05_JPRB,8.8492E05_JPRB,1.4199E04_JPRB,2.1851E04_JPRB/) 
251  KAO( :, 8, 7) = (/&  
252 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.4390E05_JPRB,6.3412E05_JPRB,1.1163E04_JPRB,1.8592E04_JPRB,2.9376E04_JPRB/) 
253  KAO( :, 9, 7) = (/&  
254 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.2790E05_JPRB,1.4039E04_JPRB,2.5926E04_JPRB,4.5257E04_JPRB,7.4795E04_JPRB/) 
255  KAO( :,10, 7) = (/&  
256 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.1021E04_JPRB,4.1798E04_JPRB,8.0790E04_JPRB,1.4658E03_JPRB,2.5048E03_JPRB/) 
257  KAO( :,11, 7) = (/&  
258 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.2720E04_JPRB,6.6181E04_JPRB,1.2928E03_JPRB,2.3683E03_JPRB,4.0754E03_JPRB/) 
259  KAO( :,12, 7) = (/&  
260 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.7693E04_JPRB,7.7171E04_JPRB,1.5176E03_JPRB,2.7982E03_JPRB,4.8311E03_JPRB/) 
261  KAO( :,13, 7) = (/&  
262 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.5194E04_JPRB,7.2710E04_JPRB,1.4369E03_JPRB,2.6518E03_JPRB,4.5779E03_JPRB/) 
263  KAO( :, 1, 8) = (/&  
264 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.8622E05_JPRB,2.2200E04_JPRB,4.1760E04_JPRB,5.9916E04_JPRB,8.1306E04_JPRB/) 
265  KAO( :, 2, 8) = (/&  
266 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.7484E05_JPRB,1.9083E04_JPRB,3.2988E04_JPRB,4.7824E04_JPRB,6.5145E04_JPRB/) 
267  KAO( :, 3, 8) = (/&  
268 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.8249E05_JPRB,1.8888E04_JPRB,2.9496E04_JPRB,4.2064E04_JPRB,5.7727E04_JPRB/) 
269  KAO( :, 4, 8) = (/&  
270 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0307E04_JPRB,1.8157E04_JPRB,2.7450E04_JPRB,3.9411E04_JPRB,5.4734E04_JPRB/) 
271  KAO( :, 5, 8) = (/&  
272 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0013E04_JPRB,1.6578E04_JPRB,2.5412E04_JPRB,3.7165E04_JPRB,5.2629E04_JPRB/) 
273  KAO( :, 6, 8) = (/&  
274 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.7661E05_JPRB,1.4688E04_JPRB,2.3121E04_JPRB,3.4816E04_JPRB,5.0439E04_JPRB/) 
275  KAO( :, 7, 8) = (/&  
276 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.9171E05_JPRB,1.3672E04_JPRB,2.2306E04_JPRB,3.4738E04_JPRB,5.2076E04_JPRB/) 
277  KAO( :, 8, 8) = (/&  
278 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.3889E05_JPRB,1.5157E04_JPRB,2.5895E04_JPRB,4.2268E04_JPRB,6.6361E04_JPRB/) 
279  KAO( :, 9, 8) = (/&  
280 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.6488E04_JPRB,3.1976E04_JPRB,5.8317E04_JPRB,1.0082E03_JPRB,1.6627E03_JPRB/) 
281  KAO( :,10, 8) = (/&  
282 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.7725E04_JPRB,9.7517E04_JPRB,1.8746E03_JPRB,3.3981E03_JPRB,5.7914E03_JPRB/) 
283  KAO( :,11, 8) = (/&  
284 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.9688E04_JPRB,1.6560E03_JPRB,3.2130E03_JPRB,5.8470E03_JPRB,9.9511E03_JPRB/) 
285  KAO( :,12, 8) = (/&  
286 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.7776E04_JPRB,2.0671E03_JPRB,4.0593E03_JPRB,7.3885E03_JPRB,1.2564E02_JPRB/) 
287  KAO( :,13, 8) = (/&  
288 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.8124E04_JPRB,2.1024E03_JPRB,4.1582E03_JPRB,7.5870E03_JPRB,1.2921E02_JPRB/) 
289  KAO( :, 1, 9) = (/&  
290 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.4912E04_JPRB,1.1099E03_JPRB,1.5644E03_JPRB,2.1464E03_JPRB,2.8897E03_JPRB/) 
291  KAO( :, 2, 9) = (/&  
292 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.2597E04_JPRB,9.2912E04_JPRB,1.3142E03_JPRB,1.8181E03_JPRB,2.4773E03_JPRB/) 
293  KAO( :, 3, 9) = (/&  
294 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.7892E04_JPRB,7.1171E04_JPRB,1.0243E03_JPRB,1.4397E03_JPRB,1.9820E03_JPRB/) 
295  KAO( :, 4, 9) = (/&  
296 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.8453E04_JPRB,5.9140E04_JPRB,8.7342E04_JPRB,1.2581E03_JPRB,1.7584E03_JPRB/) 
297  KAO( :, 5, 9) = (/&  
298 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.6098E04_JPRB,5.7696E04_JPRB,8.8197E04_JPRB,1.2954E03_JPRB,1.8431E03_JPRB/) 
299  KAO( :, 6, 9) = (/&  
300 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.4542E04_JPRB,5.7060E04_JPRB,8.9328E04_JPRB,1.3402E03_JPRB,1.9357E03_JPRB/) 
301  KAO( :, 7, 9) = (/&  
302 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.3888E04_JPRB,5.8373E04_JPRB,9.4422E04_JPRB,1.4513E03_JPRB,2.1408E03_JPRB/) 
303  KAO( :, 8, 9) = (/&  
304 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.7707E04_JPRB,6.8408E04_JPRB,1.1538E03_JPRB,1.8357E03_JPRB,2.7831E03_JPRB/) 
305  KAO( :, 9, 9) = (/&  
306 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.0739E04_JPRB,1.3735E03_JPRB,2.4588E03_JPRB,4.1112E03_JPRB,6.4788E03_JPRB/) 
307  KAO( :,10, 9) = (/&  
308 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.8575E03_JPRB,3.8603E03_JPRB,7.2941E03_JPRB,1.2720E02_JPRB,2.0839E02_JPRB/) 
309  KAO( :,11, 9) = (/&  
310 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.9958E03_JPRB,6.2197E03_JPRB,1.1775E02_JPRB,2.0597E02_JPRB,3.3906E02_JPRB/) 
311  KAO( :,12, 9) = (/&  
312 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.6668E03_JPRB,7.6016E03_JPRB,1.4363E02_JPRB,2.5216E02_JPRB,4.1719E02_JPRB/) 
313  KAO( :,13, 9) = (/&  
314 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.7360E03_JPRB,7.7341E03_JPRB,1.4600E02_JPRB,2.5684E02_JPRB,4.2617E02_JPRB/) 
315  KAO( :, 1,10) = (/&  
316 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.2204E03_JPRB,3.1215E03_JPRB,4.1592E03_JPRB,5.5251E03_JPRB,7.2462E03_JPRB/) 
317  KAO( :, 2,10) = (/&  
318 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.8794E03_JPRB,2.6515E03_JPRB,3.6524E03_JPRB,4.9115E03_JPRB,6.4747E03_JPRB/) 
319  KAO( :, 3,10) = (/&  
320 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.4689E03_JPRB,2.0942E03_JPRB,2.9433E03_JPRB,4.0441E03_JPRB,5.4540E03_JPRB/) 
321  KAO( :, 4,10) = (/&  
322 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1490E03_JPRB,1.6495E03_JPRB,2.3294E03_JPRB,3.2354E03_JPRB,4.4282E03_JPRB/) 
323  KAO( :, 5,10) = (/&  
324 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.6570E04_JPRB,1.3179E03_JPRB,1.9604E03_JPRB,2.8379E03_JPRB,4.0441E03_JPRB/) 
325  KAO( :, 6,10) = (/&  
326 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.5652E04_JPRB,1.4272E03_JPRB,2.2416E03_JPRB,3.3643E03_JPRB,4.8824E03_JPRB/) 
327  KAO( :, 7,10) = (/&  
328 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.3347E04_JPRB,1.6326E03_JPRB,2.6435E03_JPRB,4.0816E03_JPRB,6.0203E03_JPRB/) 
329  KAO( :, 8,10) = (/&  
330 
2/2✓ Branch 0 taken 5 times.
✓ Branch 1 taken 1 times.

6  & 1.1389E03_JPRB,2.0806E03_JPRB,3.5187E03_JPRB,5.6514E03_JPRB,8.6161E03_JPRB/) 
331  
332 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART1',1,ZHOOK_HANDLE) 
333  1  END SUBROUTINE PART1  
334  
335  
336  1  SUBROUTINE PART2  
337  
338  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
339 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART2',0,ZHOOK_HANDLE) 
340  
341  
342  KAO( :, 9,10) = (/&  
343 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.3318E03_JPRB,4.5800E03_JPRB,8.2437E03_JPRB,1.3780E02_JPRB,2.1744E02_JPRB/) 
344  KAO( :,10,10) = (/&  
345 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.2326E03_JPRB,1.3165E02_JPRB,2.5232E02_JPRB,4.4615E02_JPRB,7.3492E02_JPRB/) 
346  KAO( :,11,10) = (/&  
347 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.8704E03_JPRB,2.0942E02_JPRB,4.0187E02_JPRB,7.0789E02_JPRB,1.1609E01_JPRB/) 
348  KAO( :,12,10) = (/&  
349 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1999E02_JPRB,2.5297E02_JPRB,4.8337E02_JPRB,8.4705E02_JPRB,1.3826E01_JPRB/) 
350  KAO( :,13,10) = (/&  
351 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1789E02_JPRB,2.4642E02_JPRB,4.6747E02_JPRB,8.1645E02_JPRB,1.3284E01_JPRB/) 
352  KAO( :, 1,11) = (/&  
353 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.1261E03_JPRB,4.2813E03_JPRB,5.7811E03_JPRB,7.6623E03_JPRB,1.0021E02_JPRB/) 
354  KAO( :, 2,11) = (/&  
355 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.7730E03_JPRB,3.9256E03_JPRB,5.2937E03_JPRB,7.0385E03_JPRB,9.1561E03_JPRB/) 
356  KAO( :, 3,11) = (/&  
357 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.2211E03_JPRB,3.2332E03_JPRB,4.4680E03_JPRB,6.0516E03_JPRB,7.9945E03_JPRB/) 
358  KAO( :, 4,11) = (/&  
359 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.7260E03_JPRB,2.5271E03_JPRB,3.5974E03_JPRB,5.0208E03_JPRB,6.7957E03_JPRB/) 
360  KAO( :, 5,11) = (/&  
361 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.3640E03_JPRB,2.0174E03_JPRB,2.8988E03_JPRB,4.1037E03_JPRB,5.6676E03_JPRB/) 
362  KAO( :, 6,11) = (/&  
363 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1158E03_JPRB,1.8312E03_JPRB,2.8771E03_JPRB,4.3425E03_JPRB,6.2982E03_JPRB/) 
364  KAO( :, 7,11) = (/&  
365 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2321E03_JPRB,2.1507E03_JPRB,3.5466E03_JPRB,5.5748E03_JPRB,8.3259E03_JPRB/) 
366  KAO( :, 8,11) = (/&  
367 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.5691E03_JPRB,2.9089E03_JPRB,5.0376E03_JPRB,8.1424E03_JPRB,1.2407E02_JPRB/) 
368  KAO( :, 9,11) = (/&  
369 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.5241E03_JPRB,7.0356E03_JPRB,1.2741E02_JPRB,2.1461E02_JPRB,3.3839E02_JPRB/) 
370  KAO( :,10,11) = (/&  
371 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0170E02_JPRB,2.1914E02_JPRB,4.2506E02_JPRB,7.5273E02_JPRB,1.2386E01_JPRB/) 
372  KAO( :,11,11) = (/&  
373 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.6549E02_JPRB,3.5671E02_JPRB,6.9003E02_JPRB,1.2202E01_JPRB,2.0089E01_JPRB/) 
374  KAO( :,12,11) = (/&  
375 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.0073E02_JPRB,4.2914E02_JPRB,8.2517E02_JPRB,1.4566E01_JPRB,2.3923E01_JPRB/) 
376  KAO( :,13,11) = (/&  
377 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.9754E02_JPRB,4.1795E02_JPRB,8.0135E02_JPRB,1.4074E01_JPRB,2.2980E01_JPRB/) 
378  KAO( :, 1,12) = (/&  
379 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.1564E03_JPRB,5.9925E03_JPRB,8.3120E03_JPRB,1.1209E02_JPRB,1.4597E02_JPRB/) 
380  KAO( :, 2,12) = (/&  
381 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.9567E03_JPRB,5.4909E03_JPRB,7.6176E03_JPRB,1.0371E02_JPRB,1.3856E02_JPRB/) 
382  KAO( :, 3,12) = (/&  
383 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.3974E03_JPRB,4.7965E03_JPRB,6.6252E03_JPRB,8.9930E03_JPRB,1.2050E02_JPRB/) 
384  KAO( :, 4,12) = (/&  
385 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.7271E03_JPRB,4.0009E03_JPRB,5.6537E03_JPRB,7.7402E03_JPRB,1.0333E02_JPRB/) 
386  KAO( :, 5,12) = (/&  
387 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.1241E03_JPRB,3.2132E03_JPRB,4.6676E03_JPRB,6.6066E03_JPRB,9.0309E03_JPRB/) 
388  KAO( :, 6,12) = (/&  
389 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.6495E03_JPRB,2.5482E03_JPRB,3.8834E03_JPRB,5.7278E03_JPRB,8.1979E03_JPRB/) 
390  KAO( :, 7,12) = (/&  
391 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.5776E03_JPRB,2.7768E03_JPRB,4.6314E03_JPRB,7.2948E03_JPRB,1.0930E02_JPRB/) 
392  KAO( :, 8,12) = (/&  
393 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.1394E03_JPRB,4.0088E03_JPRB,6.9630E03_JPRB,1.1391E02_JPRB,1.7592E02_JPRB/) 
394  KAO( :, 9,12) = (/&  
395 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.1508E03_JPRB,1.0419E02_JPRB,1.9252E02_JPRB,3.2952E02_JPRB,5.2981E02_JPRB/) 
396  KAO( :,10,12) = (/&  
397 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.6525E02_JPRB,3.6418E02_JPRB,7.1731E02_JPRB,1.2850E01_JPRB,2.1301E01_JPRB/) 
398  KAO( :,11,12) = (/&  
399 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.8843E02_JPRB,6.3252E02_JPRB,1.2384E01_JPRB,2.2076E01_JPRB,3.6471E01_JPRB/) 
400  KAO( :,12,12) = (/&  
401 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.6629E02_JPRB,7.9908E02_JPRB,1.5563E01_JPRB,2.7617E01_JPRB,4.5458E01_JPRB/) 
402  KAO( :,13,12) = (/&  
403 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.6750E02_JPRB,7.9425E02_JPRB,1.5346E01_JPRB,2.7137E01_JPRB,4.4636E01_JPRB/) 
404  KAO( :, 1,13) = (/&  
405 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.2842E03_JPRB,8.5901E03_JPRB,1.1770E02_JPRB,1.5848E02_JPRB,2.1231E02_JPRB/) 
406  KAO( :, 2,13) = (/&  
407 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.8832E03_JPRB,8.3961E03_JPRB,1.1688E02_JPRB,1.5821E02_JPRB,2.1081E02_JPRB/) 
408  KAO( :, 3,13) = (/&  
409 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.0693E03_JPRB,7.3487E03_JPRB,1.0502E02_JPRB,1.4654E02_JPRB,1.9671E02_JPRB/) 
410  KAO( :, 4,13) = (/&  
411 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.3064E03_JPRB,6.2164E03_JPRB,8.9638E03_JPRB,1.2692E02_JPRB,1.7434E02_JPRB/) 
412  KAO( :, 5,13) = (/&  
413 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.5860E03_JPRB,5.3245E03_JPRB,7.6791E03_JPRB,1.0860E02_JPRB,1.5079E02_JPRB/) 
414  KAO( :, 6,13) = (/&  
415 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.8314E03_JPRB,4.3212E03_JPRB,6.4657E03_JPRB,9.2062E03_JPRB,1.2862E02_JPRB/) 
416  KAO( :, 7,13) = (/&  
417 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.2377E03_JPRB,3.6343E03_JPRB,5.9331E03_JPRB,9.1864E03_JPRB,1.3701E02_JPRB/) 
418  KAO( :, 8,13) = (/&  
419 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.8263E03_JPRB,5.3372E03_JPRB,9.3113E03_JPRB,1.5184E02_JPRB,2.3750E02_JPRB/) 
420  KAO( :, 9,13) = (/&  
421 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.1632E03_JPRB,1.4853E02_JPRB,2.8075E02_JPRB,4.9370E02_JPRB,8.0768E02_JPRB/) 
422  KAO( :,10,13) = (/&  
423 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 2.5324E02_JPRB,5.6755E02_JPRB,1.1356E01_JPRB,2.0699E01_JPRB,3.4818E01_JPRB/) 
424  KAO( :,11,13) = (/&  
425 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.7551E02_JPRB,1.0638E01_JPRB,2.1201E01_JPRB,3.8439E01_JPRB,6.4430E01_JPRB/) 
426  KAO( :,12,13) = (/&  
427 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.5536E02_JPRB,1.4596E01_JPRB,2.8971E01_JPRB,5.2186E01_JPRB,8.7097E01_JPRB/) 
428  KAO( :,13,13) = (/&  
429 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.1040E02_JPRB,1.5739E01_JPRB,3.0996E01_JPRB,5.5635E01_JPRB,9.2532E01_JPRB/) 
430  KAO( :, 1,14) = (/&  
431 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.9073E03_JPRB,1.2577E02_JPRB,1.7104E02_JPRB,2.3298E02_JPRB,3.0760E02_JPRB/) 
432  KAO( :, 2,14) = (/&  
433 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.1449E03_JPRB,1.2712E02_JPRB,1.7315E02_JPRB,2.3477E02_JPRB,3.1268E02_JPRB/) 
434  KAO( :, 3,14) = (/&  
435 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.6458E03_JPRB,1.1907E02_JPRB,1.6470E02_JPRB,2.2100E02_JPRB,2.9699E02_JPRB/) 
436  KAO( :, 4,14) = (/&  
437 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.6642E03_JPRB,1.0832E02_JPRB,1.5035E02_JPRB,2.0201E02_JPRB,2.7549E02_JPRB/) 
438  KAO( :, 5,14) = (/&  
439 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 6.6532E03_JPRB,9.4973E03_JPRB,1.3436E02_JPRB,1.8486E02_JPRB,2.5410E02_JPRB/) 
440  KAO( :, 6,14) = (/&  
441 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 5.6659E03_JPRB,8.2188E03_JPRB,1.1655E02_JPRB,1.6380E02_JPRB,2.2833E02_JPRB/) 
442  KAO( :, 7,14) = (/&  
443 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.7388E03_JPRB,7.0553E03_JPRB,1.0065E02_JPRB,1.4371E02_JPRB,2.0476E02_JPRB/) 
444  KAO( :, 8,14) = (/&  
445 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.0074E03_JPRB,6.9317E03_JPRB,1.1650E02_JPRB,1.9270E02_JPRB,3.0109E02_JPRB/) 
446  KAO( :, 9,14) = (/&  
447 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.4290E03_JPRB,1.9762E02_JPRB,3.7876E02_JPRB,6.6863E02_JPRB,1.1024E01_JPRB/) 
448  KAO( :,10,14) = (/&  
449 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 3.5639E02_JPRB,8.0302E02_JPRB,1.6119E01_JPRB,2.9567E01_JPRB,5.0285E01_JPRB/) 
450  KAO( :,11,14) = (/&  
451 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.0994E02_JPRB,1.5991E01_JPRB,3.2149E01_JPRB,5.8889E01_JPRB,1.0009E+00_JPRB/) 
452  KAO( :,12,14) = (/&  
453 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0472E01_JPRB,2.3582E01_JPRB,4.7386E01_JPRB,8.6654E01_JPRB,1.4714E+00_JPRB/) 
454  KAO( :,13,14) = (/&  
455 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2287E01_JPRB,2.7626E01_JPRB,5.5413E01_JPRB,1.0143E+00_JPRB,1.7166E+00_JPRB/) 
456  KAO( :, 1,15) = (/&  
457 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0915E02_JPRB,1.5406E02_JPRB,2.1787E02_JPRB,3.0490E02_JPRB,4.2541E02_JPRB/) 
458  KAO( :, 2,15) = (/&  
459 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1315E02_JPRB,1.6166E02_JPRB,2.2798E02_JPRB,3.1923E02_JPRB,4.3992E02_JPRB/) 
460  KAO( :, 3,15) = (/&  
461 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0941E02_JPRB,1.5701E02_JPRB,2.1967E02_JPRB,3.0980E02_JPRB,4.2137E02_JPRB/) 
462  KAO( :, 4,15) = (/&  
463 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0488E02_JPRB,1.4945E02_JPRB,2.1284E02_JPRB,2.9684E02_JPRB,4.1028E02_JPRB/) 
464  KAO( :, 5,15) = (/&  
465 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.8738E03_JPRB,1.4407E02_JPRB,2.0449E02_JPRB,2.8357E02_JPRB,3.9999E02_JPRB/) 
466  KAO( :, 6,15) = (/&  
467 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.9244E03_JPRB,1.3460E02_JPRB,1.9534E02_JPRB,2.7000E02_JPRB,3.8027E02_JPRB/) 
468  KAO( :, 7,15) = (/&  
469 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 8.0056E03_JPRB,1.2241E02_JPRB,1.8433E02_JPRB,2.6084E02_JPRB,3.5910E02_JPRB/) 
470  KAO( :, 8,15) = (/&  
471 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 7.2557E03_JPRB,1.0997E02_JPRB,1.6847E02_JPRB,2.4941E02_JPRB,3.5979E02_JPRB/) 
472  KAO( :, 9,15) = (/&  
473 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1206E02_JPRB,2.3492E02_JPRB,4.5074E02_JPRB,7.9749E02_JPRB,1.3179E01_JPRB/) 
474  KAO( :,10,15) = (/&  
475 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.3714E02_JPRB,9.8800E02_JPRB,1.9893E01_JPRB,3.6488E01_JPRB,6.2367E01_JPRB/) 
476  KAO( :,11,15) = (/&  
477 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 9.0564E02_JPRB,2.0463E01_JPRB,4.1227E01_JPRB,7.5790E01_JPRB,1.2930E+00_JPRB/) 
478  KAO( :,12,15) = (/&  
479 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.4027E01_JPRB,3.1640E01_JPRB,6.3737E01_JPRB,1.1714E+00_JPRB,1.9962E+00_JPRB/) 
480  KAO( :,13,15) = (/&  
481 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.7360E01_JPRB,3.9198E01_JPRB,7.8920E01_JPRB,1.4509E+00_JPRB,2.4685E+00_JPRB/) 
482  KAO( :, 1,16) = (/&  
483 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1824E02_JPRB,1.7312E02_JPRB,2.6044E02_JPRB,4.2271E02_JPRB,6.3915E02_JPRB/) 
484  KAO( :, 2,16) = (/&  
485 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2333E02_JPRB,1.8642E02_JPRB,2.7212E02_JPRB,4.2155E02_JPRB,7.0740E02_JPRB/) 
486  KAO( :, 3,16) = (/&  
487 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1914E02_JPRB,1.8039E02_JPRB,2.6483E02_JPRB,3.8087E02_JPRB,6.0410E02_JPRB/) 
488  KAO( :, 4,16) = (/&  
489 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.1617E02_JPRB,1.6736E02_JPRB,2.5551E02_JPRB,3.7243E02_JPRB,5.5742E02_JPRB/) 
490  KAO( :, 5,16) = (/&  
491 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2207E02_JPRB,1.6058E02_JPRB,2.3899E02_JPRB,3.5249E02_JPRB,5.2521E02_JPRB/) 
492  KAO( :, 6,16) = (/&  
493 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2552E02_JPRB,1.6221E02_JPRB,2.2453E02_JPRB,3.3451E02_JPRB,4.8959E02_JPRB/) 
494  KAO( :, 7,16) = (/&  
495 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2682E02_JPRB,1.6583E02_JPRB,2.1720E02_JPRB,3.1647E02_JPRB,4.6528E02_JPRB/) 
496  KAO( :, 8,16) = (/&  
497 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2800E02_JPRB,1.6916E02_JPRB,2.2044E02_JPRB,3.0239E02_JPRB,4.5143E02_JPRB/) 
498  KAO( :, 9,16) = (/&  
499 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.2606E02_JPRB,2.5371E02_JPRB,4.8585E02_JPRB,8.6042E02_JPRB,1.4214E01_JPRB/) 
500  KAO( :,10,16) = (/&  
501 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 4.7940E02_JPRB,1.0811E01_JPRB,2.1696E01_JPRB,3.9856E01_JPRB,6.7922E01_JPRB/) 
502  KAO( :,11,16) = (/&  
503 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.0038E01_JPRB,2.2692E01_JPRB,4.5634E01_JPRB,8.3917E01_JPRB,1.4277E+00_JPRB/) 
504  KAO( :,12,16) = (/&  
505 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.5780E01_JPRB,3.5540E01_JPRB,7.1875E01_JPRB,1.3169E+00_JPRB,2.2414E+00_JPRB/) 
506  KAO( :,13,16) = (/&  
507 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 5 times.

6  & 1.9907E01_JPRB,4.4847E01_JPRB,9.0510E01_JPRB,1.6605E+00_JPRB,2.8238E+00_JPRB/) 
508  
509  ! The array SELFREFO contains the coefficient of the water vapor  
510  ! selfcontinuum (including the energy term). The first index  
511  ! refers to temperature in 7.2 degree increments. For instance,  
512  ! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,  
513  ! etc. The second index runs over the gchannel (1 to 16).  
514  
515  SELFREFO( :, 1) = (/&  
516  & 7.71391E02_JPRB, 6.43175E02_JPRB, 5.36271E02_JPRB, 4.47136E02_JPRB, 3.72816E02_JPRB,&  
517 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.10849E02_JPRB, 2.59182E02_JPRB, 2.16102E02_JPRB, 1.80183E02_JPRB, 1.50234E02_JPRB/) 
518  SELFREFO( :, 2) = (/&  
519  & 8.39275E02_JPRB, 7.04019E02_JPRB, 5.90561E02_JPRB, 4.95388E02_JPRB, 4.15552E02_JPRB,&  
520 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.48583E02_JPRB, 2.92406E02_JPRB, 2.45283E02_JPRB, 2.05754E02_JPRB, 1.72595E02_JPRB/) 
521  SELFREFO( :, 3) = (/&  
522  & 8.77747E02_JPRB, 7.41411E02_JPRB, 6.26251E02_JPRB, 5.28978E02_JPRB, 4.46814E02_JPRB,&  
523 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.77413E02_JPRB, 3.18791E02_JPRB, 2.69275E02_JPRB, 2.27449E02_JPRB, 1.92121E02_JPRB/) 
524  SELFREFO( :, 4) = (/&  
525  & 9.35855E02_JPRB, 7.94116E02_JPRB, 6.73843E02_JPRB, 5.71787E02_JPRB, 4.85187E02_JPRB,&  
526 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.11704E02_JPRB, 3.49349E02_JPRB, 2.96439E02_JPRB, 2.51542E02_JPRB, 2.13445E02_JPRB/) 
527  SELFREFO( :, 5) = (/&  
528  & 9.31058E02_JPRB, 7.97629E02_JPRB, 6.83321E02_JPRB, 5.85395E02_JPRB, 5.01503E02_JPRB,&  
529 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.29633E02_JPRB, 3.68062E02_JPRB, 3.15316E02_JPRB, 2.70128E02_JPRB, 2.31416E02_JPRB/) 
530  SELFREFO( :, 6) = (/&  
531  & 7.92454E02_JPRB, 7.03070E02_JPRB, 6.23769E02_JPRB, 5.53412E02_JPRB, 4.90991E02_JPRB,&  
532 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.35611E02_JPRB, 3.86477E02_JPRB, 3.42885E02_JPRB, 3.04210E02_JPRB, 2.69898E02_JPRB/) 
533  SELFREFO( :, 7) = (/&  
534  & 7.29322E02_JPRB, 6.57740E02_JPRB, 5.93183E02_JPRB, 5.34963E02_JPRB, 4.82457E02_JPRB,&  
535 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.35104E02_JPRB, 3.92399E02_JPRB, 3.53886E02_JPRB, 3.19152E02_JPRB, 2.87828E02_JPRB/) 
536  SELFREFO( :, 8) = (/&  
537  & 7.53680E02_JPRB, 6.63817E02_JPRB, 5.84669E02_JPRB, 5.14958E02_JPRB, 4.53558E02_JPRB,&  
538 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.99480E02_JPRB, 3.51849E02_JPRB, 3.09897E02_JPRB, 2.72948E02_JPRB, 2.40404E02_JPRB/) 
539  SELFREFO( :, 9) = (/&  
540  & 7.17087E02_JPRB, 6.34545E02_JPRB, 5.61505E02_JPRB, 4.96871E02_JPRB, 4.39678E02_JPRB,&  
541 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 3.89068E02_JPRB, 3.44283E02_JPRB, 3.04654E02_JPRB, 2.69586E02_JPRB, 2.38554E02_JPRB/) 
542  SELFREFO( :,10) = (/&  
543  & 7.20376E02_JPRB, 6.42071E02_JPRB, 5.72277E02_JPRB, 5.10070E02_JPRB, 4.54625E02_JPRB,&  
544 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.05207E02_JPRB, 3.61161E02_JPRB, 3.21903E02_JPRB, 2.86912E02_JPRB, 2.55724E02_JPRB/) 
545  SELFREFO( :,11) = (/&  
546  & 8.56200E02_JPRB, 7.44248E02_JPRB, 6.46934E02_JPRB, 5.62344E02_JPRB, 4.88815E02_JPRB,&  
547 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.24900E02_JPRB, 3.69342E02_JPRB, 3.21049E02_JPRB, 2.79070E02_JPRB, 2.42581E02_JPRB/) 
548  SELFREFO( :,12) = (/&  
549  & 9.30364E02_JPRB, 8.00633E02_JPRB, 6.88992E02_JPRB, 5.92918E02_JPRB, 5.10240E02_JPRB,&  
550 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.39092E02_JPRB, 3.77864E02_JPRB, 3.25174E02_JPRB, 2.79832E02_JPRB, 2.40811E02_JPRB/) 
551  SELFREFO( :,13) = (/&  
552  & 9.58838E02_JPRB, 8.17150E02_JPRB, 6.96399E02_JPRB, 5.93492E02_JPRB, 5.05792E02_JPRB,&  
553 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.31051E02_JPRB, 3.67354E02_JPRB, 3.13070E02_JPRB, 2.66808E02_JPRB, 2.27381E02_JPRB/) 
554  SELFREFO( :,14) = (/&  
555  & 8.92791E02_JPRB, 7.69435E02_JPRB, 6.63123E02_JPRB, 5.71500E02_JPRB, 4.92536E02_JPRB,&  
556 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.24483E02_JPRB, 3.65833E02_JPRB, 3.15286E02_JPRB, 2.71723E02_JPRB, 2.34179E02_JPRB/) 
557  SELFREFO( :,15) = (/&  
558  & 9.09947E02_JPRB, 7.81455E02_JPRB, 6.71107E02_JPRB, 5.76340E02_JPRB, 4.94956E02_JPRB,&  
559 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.

11  & 4.25064E02_JPRB, 3.65041E02_JPRB, 3.13494E02_JPRB, 2.69226E02_JPRB, 2.31209E02_JPRB/) 
560  SELFREFO( :,16) = (/&  
561  & 7.99990E02_JPRB, 7.02289E02_JPRB, 6.16519E02_JPRB, 5.41224E02_JPRB, 4.75125E02_JPRB,&  
562 
2/2✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.

11  & 4.17099E02_JPRB, 3.66159E02_JPRB, 3.21440E02_JPRB, 2.82183E02_JPRB, 2.47720E02_JPRB/) 
563  
564 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART2',1,ZHOOK_HANDLE) 
565  1  END SUBROUTINE PART2  
566  
567  
568  END SUBROUTINE RRTM_KGB6  
569 