GCC Code Coverage Report


Directory: ./
File: rad/sulwn.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 405 405 100.0%
Branches: 750 752 99.7%

Line Branch Exec Source
1 1 SUBROUTINE SULWN
2
3 !**** *SULWN* - INITIALIZE COMMON YOELW
4
5 ! PURPOSE.
6 ! --------
7 ! INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
8 ! NEEDED TO RUN THE LONGWAVE RADIATION ROUTINES
9
10 !** INTERFACE.
11 ! ----------
12 ! *CALL* *SULWN
13
14 ! EXPLICIT ARGUMENTS
15 ! --------------------
16 ! NONE
17
18 ! IMPLICIT ARGUMENTS
19 ! --------------------
20 ! COMMON YOELW
21
22 ! METHOD.
23 ! -------
24 ! SEE DOCUMENTATION
25
26 ! EXTERNALS.
27 ! ----------
28
29 ! REFERENCE.
30 ! ----------
31 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION
32
33 ! AUTHOR.
34 ! -------
35 ! JEAN-JACQUES MORCRETTE *ECMWF*
36
37 ! MODIFICATIONS.
38 ! --------------
39 ! ORIGINAL : 88-12-15
40 ! J.-J. Morcrette ECMWF 951215: Pseudo-Voigt Line Profiles
41 ! 97-04-25 J.J. Morcrette Revised Continuum coefficients
42 ! 97-10-30 J.J. Morcrette cy18
43 ! M.Hamrud 01-Oct-2003 CY28 Cleaning
44
45 ! ------------------------------------------------------------------
46
47 USE PARKIND1 ,ONLY : JPIM ,JPRB
48 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
49
50 USE YOELW , ONLY : MXIXT ,NSIL ,NIPD ,NIPD2 ,&
51 & NTR ,NTRA ,NUA ,NG1 ,NG1P1 ,&
52 & ALWT ,BLWT ,PDGA ,PDGB ,RPTYPE ,&
53 & RETYPE ,RO1H ,RO2H ,RO3T ,RPIALF0 ,&
54 & RT1 ,TINTP ,TREF ,TSTAND ,TSTP ,&
55 & WG1 ,XP ,RVGCO2 ,RVGH2O ,RVGO3
56
57 IMPLICIT NONE
58
59 ! ------------------------------------------------------------------
60
61 !* 1. FILL BLOCK DATA
62 ! ---------------
63
64 !-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
65
66 REAL(KIND=JPRB) :: ZHOOK_HANDLE
67
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('SULWN',0,ZHOOK_HANDLE)
68 TINTP = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB, &
69 & 250._JPRB,&
70 1 & 262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)
71
72 !-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
73
74 XP( :, 1) = (/&
75 & 0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
76
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 6 times.
7 & 0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB/)
77 XP( :, 2) = (/&
78 & 0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
79
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 6 times.
7 & -.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB/)
80 XP( :, 3) = (/&
81 & 0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
82
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 6 times.
7 & 0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB/)
83 XP( :, 4) = (/&
84 & 0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
85
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 6 times.
7 & 0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB/)
86 XP( :, 5) = (/&
87 & 0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
88
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 6 times.
7 & -0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB/)
89 XP( :, 6) = (/&
90 & 0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
91
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 6 times.
7 & 0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB/)
92
93 !-----------------------------------------------------------------------
94 ! PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
95
96 !--- WATER VAPOUR FROM ZHONG & HAIGH (revision3 96-11-15)
97
98 !- H2O 0-350 cm-1
99
100 !----- INTERVAL = 1 ----- T = 187.50
101
102 PDGA( 1, 1,:) = (/&
103
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.25000224E-02_JPRB, 0.18701843E-02_JPRB, 0.00000000E+00_JPRB/)
104 PDGB( 1, 1,:) = (/&
105
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.25000224E-02_JPRB, 0.61593968E-01_JPRB, 0.10000000E+01_JPRB/)
106 PDGA( 1, 2,:) = (/&
107
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.34131105E-02_JPRB, 0.55153039E-03_JPRB, 0.00000000E+00_JPRB/)
108 PDGB( 1, 2,:) = (/&
109
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.34131105E-02_JPRB, 0.73127832E-01_JPRB, 0.10000000E+01_JPRB/)
110
111 !----- INTERVAL = 1 ----- T = 200.00
112
113 PDGA( 2, 1,:) = (/&
114
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.26344616E-02_JPRB, 0.16894582E-02_JPRB, 0.00000000E+00_JPRB/)
115 PDGB( 2, 1,:) = (/&
116
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.26344616E-02_JPRB, 0.63633167E-01_JPRB, 0.10000000E+01_JPRB/)
117 PDGA( 2, 2,:) = (/&
118
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.36120928E-02_JPRB, 0.44720171E-03_JPRB, 0.00000000E+00_JPRB/)
119 PDGB( 2, 2,:) = (/&
120
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.36120928E-02_JPRB, 0.75062171E-01_JPRB, 0.10000000E+01_JPRB/)
121
122 !----- INTERVAL = 1 ----- T = 212.50
123
124 PDGA( 3, 1,:) = (/&
125
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.27743234E-02_JPRB, 0.15245487E-02_JPRB, 0.00000000E+00_JPRB/)
126 PDGB( 3, 1,:) = (/&
127
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.27743234E-02_JPRB, 0.65651733E-01_JPRB, 0.10000000E+01_JPRB/)
128 PDGA( 3, 2,:) = (/&
129
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.38453121E-02_JPRB, 0.42382776E-03_JPRB, 0.00000000E+00_JPRB/)
130 PDGB( 3, 2,:) = (/&
131
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.38453121E-02_JPRB, 0.77088315E-01_JPRB, 0.10000000E+01_JPRB/)
132
133 !----- INTERVAL = 1 ----- T = 225.00
134
135 PDGA( 4, 1,:) = (/&
136
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.29265376E-02_JPRB, 0.13719090E-02_JPRB, 0.00000000E+00_JPRB/)
137 PDGB( 4, 1,:) = (/&
138
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.29265376E-02_JPRB, 0.67739270E-01_JPRB, 0.10000000E+01_JPRB/)
139 PDGA( 4, 2,:) = (/&
140
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.41211460E-02_JPRB, 0.42401401E-03_JPRB, 0.00000000E+00_JPRB/)
141 PDGB( 4, 2,:) = (/&
142
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.41211460E-02_JPRB, 0.79241307E-01_JPRB, 0.10000000E+01_JPRB/)
143
144 !----- INTERVAL = 1 ----- T = 237.50
145
146 PDGA( 5, 1,:) = (/&
147
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.30979053E-02_JPRB, 0.12223308E-02_JPRB, 0.00000000E+00_JPRB/)
148 PDGB( 5, 1,:) = (/&
149
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.30979053E-02_JPRB, 0.69968340E-01_JPRB, 0.10000000E+01_JPRB/)
150 PDGA( 5, 2,:) = (/&
151
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.43966504E-02_JPRB, 0.67198946E-03_JPRB, 0.00000000E+00_JPRB/)
152 PDGB( 5, 2,:) = (/&
153
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.43966504E-02_JPRB, 0.80947310E-01_JPRB, 0.10000000E+01_JPRB/)
154
155 !----- INTERVAL = 1 ----- T = 250.00
156
157 PDGA( 6, 1,:) = (/&
158
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.32813184E-02_JPRB, 0.11573810E-02_JPRB, 0.00000000E+00_JPRB/)
159 PDGB( 6, 1,:) = (/&
160
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.32813184E-02_JPRB, 0.72183750E-01_JPRB, 0.10000000E+01_JPRB/)
161 PDGA( 6, 2,:) = (/&
162
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.46792452E-02_JPRB, 0.99691013E-03_JPRB, 0.00000000E+00_JPRB/)
163 PDGB( 6, 2,:) = (/&
164
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.46792452E-02_JPRB, 0.82404099E-01_JPRB, 0.10000000E+01_JPRB/)
165
166 !----- INTERVAL = 1 ----- T = 262.50
167
168 PDGA( 7, 1,:) = (/&
169
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.34869261E-02_JPRB, 0.11110812E-02_JPRB, 0.00000000E+00_JPRB/)
170 PDGB( 7, 1,:) = (/&
171
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.34869261E-02_JPRB, 0.74507149E-01_JPRB, 0.10000000E+01_JPRB/)
172 PDGA( 7, 2,:) = (/&
173
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.49313571E-02_JPRB, 0.15144806E-02_JPRB, 0.00000000E+00_JPRB/)
174 PDGB( 7, 2,:) = (/&
175
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.49313571E-02_JPRB, 0.83301687E-01_JPRB, 0.10000000E+01_JPRB/)
176
177 !----- INTERVAL = 1 ----- T = 275.00
178
179 PDGA( 8, 1,:) = (/&
180
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.37169013E-02_JPRB, 0.10586459E-02_JPRB, 0.00000000E+00_JPRB/)
181 PDGB( 8, 1,:) = (/&
182
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.37169013E-02_JPRB, 0.76930655E-01_JPRB, 0.10000000E+01_JPRB/)
183 PDGA( 8, 2,:) = (/&
184
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.51606177E-02_JPRB, 0.20799953E-02_JPRB, 0.00000000E+00_JPRB/)
185 PDGB( 8, 2,:) = (/&
186
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.51606177E-02_JPRB, 0.83904484E-01_JPRB, 0.10000000E+01_JPRB/)
187
188 !----- INTERVAL = 1 ----- T = 287.50
189
190 PDGA( 9, 1,:) = (/&
191
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.39482491E-02_JPRB, 0.11280761E-02_JPRB, 0.00000000E+00_JPRB/)
192 PDGB( 9, 1,:) = (/&
193
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.39482491E-02_JPRB, 0.79096624E-01_JPRB, 0.10000000E+01_JPRB/)
194 PDGA( 9, 2,:) = (/&
195
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.53608496E-02_JPRB, 0.26755638E-02_JPRB, 0.00000000E+00_JPRB/)
196 PDGB( 9, 2,:) = (/&
197
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.53608496E-02_JPRB, 0.84271466E-01_JPRB, 0.10000000E+01_JPRB/)
198
199 !----- INTERVAL = 1 ----- T = 300.00
200
201 PDGA(10, 1,:) = (/&
202
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.41849825E-02_JPRB, 0.12500965E-02_JPRB, 0.00000000E+00_JPRB/)
203 PDGB(10, 1,:) = (/&
204
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.41849825E-02_JPRB, 0.81087000E-01_JPRB, 0.10000000E+01_JPRB/)
205 PDGA(10, 2,:) = (/&
206
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.55372909E-02_JPRB, 0.32512851E-02_JPRB, 0.00000000E+00_JPRB/)
207 PDGB(10, 2,:) = (/&
208
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.55372909E-02_JPRB, 0.84546756E-01_JPRB, 0.10000000E+01_JPRB/)
209
210 !----- INTERVAL = 1 ----- T = 312.50
211
212 PDGA(11, 1,:) = (/&
213
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.44204714E-02_JPRB, 0.14195697E-02_JPRB, 0.00000000E+00_JPRB/)
214 PDGB(11, 1,:) = (/&
215
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.44204714E-02_JPRB, 0.82840020E-01_JPRB, 0.10000000E+01_JPRB/)
216 PDGA(11, 2,:) = (/&
217
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.56935299E-02_JPRB, 0.38054592E-02_JPRB, 0.00000000E+00_JPRB/)
218 PDGB(11, 2,:) = (/&
219
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.56935299E-02_JPRB, 0.84847060E-01_JPRB, 0.10000000E+01_JPRB/)
220
221 !- H2O 500-800 cm-1
222
223 !----- INTERVAL = 2 ----- T = 187.50
224
225 PDGA( 1, 3,:) = (/&
226
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15053751E+01_JPRB, 0.45361026E+00_JPRB, 0.00000000E+00_JPRB/)
227 PDGB( 1, 3,:) = (/&
228
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15053751E+01_JPRB, 0.15789584E+01_JPRB, 0.10000000E+01_JPRB/)
229 PDGA( 1, 4,:) = (/&
230
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.18920793E+01_JPRB, 0.53457554E+00_JPRB, 0.00000000E+00_JPRB/)
231 PDGB( 1, 4,:) = (/&
232
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.18920793E+01_JPRB, 0.18418304E+01_JPRB, 0.10000000E+01_JPRB/)
233
234 !----- INTERVAL = 2 ----- T = 200.00
235
236 PDGA( 2, 3,:) = (/&
237
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15977537E+01_JPRB, 0.48084314E+00_JPRB, 0.00000000E+00_JPRB/)
238 PDGB( 2, 3,:) = (/&
239
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15977537E+01_JPRB, 0.16476468E+01_JPRB, 0.10000000E+01_JPRB/)
240 PDGA( 2, 4,:) = (/&
241
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.20435568E+01_JPRB, 0.55893717E+00_JPRB, 0.00000000E+00_JPRB/)
242 PDGB( 2, 4,:) = (/&
243
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.20435568E+01_JPRB, 0.19386656E+01_JPRB, 0.10000000E+01_JPRB/)
244
245 !----- INTERVAL = 2 ----- T = 212.50
246
247 PDGA( 3, 3,:) = (/&
248
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.16913237E+01_JPRB, 0.50454053E+00_JPRB, 0.00000000E+00_JPRB/)
249 PDGB( 3, 3,:) = (/&
250
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.16913237E+01_JPRB, 0.17144170E+01_JPRB, 0.10000000E+01_JPRB/)
251 PDGA( 3, 4,:) = (/&
252
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.21978186E+01_JPRB, 0.57905459E+00_JPRB, 0.00000000E+00_JPRB/)
253 PDGB( 3, 4,:) = (/&
254
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.21978186E+01_JPRB, 0.20334044E+01_JPRB, 0.10000000E+01_JPRB/)
255
256 !----- INTERVAL = 2 ----- T = 225.00
257
258 PDGA( 4, 3,:) = (/&
259
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.17856476E+01_JPRB, 0.52514194E+00_JPRB, 0.00000000E+00_JPRB/)
260 PDGB( 4, 3,:) = (/&
261
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.17856476E+01_JPRB, 0.17792823E+01_JPRB, 0.10000000E+01_JPRB/)
262 PDGA( 4, 4,:) = (/&
263
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23533355E+01_JPRB, 0.59558005E+00_JPRB, 0.00000000E+00_JPRB/)
264 PDGB( 4, 4,:) = (/&
265
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23533355E+01_JPRB, 0.21256517E+01_JPRB, 0.10000000E+01_JPRB/)
266
267 !----- INTERVAL = 2 ----- T = 237.50
268
269 PDGA( 5, 3,:) = (/&
270
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.18802811E+01_JPRB, 0.54304459E+00_JPRB, 0.00000000E+00_JPRB/)
271 PDGB( 5, 3,:) = (/&
272
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.18802811E+01_JPRB, 0.18422412E+01_JPRB, 0.10000000E+01_JPRB/)
273 PDGA( 5, 4,:) = (/&
274
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.25086500E+01_JPRB, 0.60908958E+00_JPRB, 0.00000000E+00_JPRB/)
275 PDGB( 5, 4,:) = (/&
276
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.25086500E+01_JPRB, 0.22150389E+01_JPRB, 0.10000000E+01_JPRB/)
277
278 !----- INTERVAL = 2 ----- T = 250.00
279
280 PDGA( 6, 3,:) = (/&
281
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.19747954E+01_JPRB, 0.55860186E+00_JPRB, 0.00000000E+00_JPRB/)
282 PDGB( 6, 3,:) = (/&
283
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.19747954E+01_JPRB, 0.19032856E+01_JPRB, 0.10000000E+01_JPRB/)
284 PDGA( 6, 4,:) = (/&
285
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.26624407E+01_JPRB, 0.62008317E+00_JPRB, 0.00000000E+00_JPRB/)
286 PDGB( 6, 4,:) = (/&
287
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.26624407E+01_JPRB, 0.23012482E+01_JPRB, 0.10000000E+01_JPRB/)
288
289 !----- INTERVAL = 2 ----- T = 262.50
290
291 PDGA( 7, 3,:) = (/&
292
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.20687911E+01_JPRB, 0.57212480E+00_JPRB, 0.00000000E+00_JPRB/)
293 PDGB( 7, 3,:) = (/&
294
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.20687911E+01_JPRB, 0.19624068E+01_JPRB, 0.10000000E+01_JPRB/)
295 PDGA( 7, 4,:) = (/&
296
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.28135635E+01_JPRB, 0.62898892E+00_JPRB, 0.00000000E+00_JPRB/)
297 PDGB( 7, 4,:) = (/&
298
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.28135635E+01_JPRB, 0.23840281E+01_JPRB, 0.10000000E+01_JPRB/)
299
300 !----- INTERVAL = 2 ----- T = 275.00
301
302 PDGA( 8, 3,:) = (/&
303
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.21619083E+01_JPRB, 0.58388519E+00_JPRB, 0.00000000E+00_JPRB/)
304 PDGB( 8, 3,:) = (/&
305
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.21619083E+01_JPRB, 0.20195993E+01_JPRB, 0.10000000E+01_JPRB/)
306 PDGA( 8, 4,:) = (/&
307
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.29610693E+01_JPRB, 0.63616954E+00_JPRB, 0.00000000E+00_JPRB/)
308 PDGB( 8, 4,:) = (/&
309
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.29610693E+01_JPRB, 0.24631984E+01_JPRB, 0.10000000E+01_JPRB/)
310
311 !----- INTERVAL = 2 ----- T = 287.50
312
313 PDGA( 9, 3,:) = (/&
314
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.22538305E+01_JPRB, 0.59411934E+00_JPRB, 0.00000000E+00_JPRB/)
315 PDGB( 9, 3,:) = (/&
316
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.22538305E+01_JPRB, 0.20748638E+01_JPRB, 0.10000000E+01_JPRB/)
317 PDGA( 9, 4,:) = (/&
318
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.31042087E+01_JPRB, 0.64192944E+00_JPRB, 0.00000000E+00_JPRB/)
319 PDGB( 9, 4,:) = (/&
320
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.31042087E+01_JPRB, 0.25386513E+01_JPRB, 0.10000000E+01_JPRB/)
321
322 !----- INTERVAL = 2 ----- T = 300.00
323
324 PDGA(10, 3,:) = (/&
325
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23442867E+01_JPRB, 0.60303198E+00_JPRB, 0.00000000E+00_JPRB/)
326 PDGB(10, 3,:) = (/&
327
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23442867E+01_JPRB, 0.21282086E+01_JPRB, 0.10000000E+01_JPRB/)
328 PDGA(10, 4,:) = (/&
329
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.32424163E+01_JPRB, 0.64652280E+00_JPRB, 0.00000000E+00_JPRB/)
330 PDGB(10, 4,:) = (/&
331
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.32424163E+01_JPRB, 0.26103424E+01_JPRB, 0.10000000E+01_JPRB/)
332
333 !----- INTERVAL = 2 ----- T = 312.50
334
335 PDGA(11, 3,:) = (/&
336
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.24330507E+01_JPRB, 0.61080006E+00_JPRB, 0.00000000E+00_JPRB/)
337 PDGB(11, 3,:) = (/&
338
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.24330507E+01_JPRB, 0.21796505E+01_JPRB, 0.10000000E+01_JPRB/)
339 PDGA(11, 4,:) = (/&
340
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.33752974E+01_JPRB, 0.65016031E+00_JPRB, 0.00000000E+00_JPRB/)
341 PDGB(11, 4,:) = (/&
342
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.33752974E+01_JPRB, 0.26782849E+01_JPRB, 0.10000000E+01_JPRB/)
343
344 !- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1
345
346 !----- INTERVAL = 3 ----- T = 187.50
347
348 PDGA( 1, 7,:) = (/&
349
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14334746E+02_JPRB, 0.11649992E+02_JPRB, 0.00000000E+00_JPRB/)
350 PDGB( 1, 7,:) = (/&
351
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14334746E+02_JPRB, 0.12059903E+02_JPRB, 0.10000000E+01_JPRB/)
352 PDGA( 1, 8,:) = (/&
353
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.11596027E+02_JPRB, 0.11051587E+02_JPRB, 0.00000000E+00_JPRB/)
354 PDGB( 1, 8,:) = (/&
355
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.11596027E+02_JPRB, 0.11390898E+02_JPRB, 0.10000000E+01_JPRB/)
356
357 !----- INTERVAL = 3 ----- T = 200.00
358
359 PDGA( 2, 7,:) = (/&
360
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.12924521E+02_JPRB, 0.11365906E+02_JPRB, 0.00000000E+00_JPRB/)
361 PDGB( 2, 7,:) = (/&
362
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.12924521E+02_JPRB, 0.11739611E+02_JPRB, 0.10000000E+01_JPRB/)
363 PDGA( 2, 8,:) = (/&
364
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.10445365E+02_JPRB, 0.10682810E+02_JPRB, 0.00000000E+00_JPRB/)
365 PDGB( 2, 8,:) = (/&
366
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.10445365E+02_JPRB, 0.10993927E+02_JPRB, 0.10000000E+01_JPRB/)
367
368 !----- INTERVAL = 3 ----- T = 212.50
369
370 PDGA( 3, 7,:) = (/&
371
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.11774060E+02_JPRB, 0.11080218E+02_JPRB, 0.00000000E+00_JPRB/)
372 PDGB( 3, 7,:) = (/&
373
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.11774060E+02_JPRB, 0.11424740E+02_JPRB, 0.10000000E+01_JPRB/)
374 PDGA( 3, 8,:) = (/&
375
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95571840E+01_JPRB, 0.10328058E+02_JPRB, 0.00000000E+00_JPRB/)
376 PDGB( 3, 8,:) = (/&
377
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95571840E+01_JPRB, 0.10618404E+02_JPRB, 0.10000000E+01_JPRB/)
378
379 !----- INTERVAL = 3 ----- T = 225.00
380
381 PDGA( 4, 7,:) = (/&
382
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.10839967E+02_JPRB, 0.10800025E+02_JPRB, 0.00000000E+00_JPRB/)
383 PDGB( 4, 7,:) = (/&
384
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.10839967E+02_JPRB, 0.11121318E+02_JPRB, 0.10000000E+01_JPRB/)
385 PDGA( 4, 8,:) = (/&
386
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.88719975E+01_JPRB, 0.99930444E+01_JPRB, 0.00000000E+00_JPRB/)
387 PDGB( 4, 8,:) = (/&
388
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.88719975E+01_JPRB, 0.10268470E+02_JPRB, 0.10000000E+01_JPRB/)
389
390 !----- INTERVAL = 3 ----- T = 237.50
391
392 PDGA( 5, 7,:) = (/&
393
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.10082160E+02_JPRB, 0.10529965E+02_JPRB, 0.00000000E+00_JPRB/)
394 PDGB( 5, 7,:) = (/&
395
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.10082160E+02_JPRB, 0.10832955E+02_JPRB, 0.10000000E+01_JPRB/)
396 PDGA( 5, 8,:) = (/&
397
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.83425443E+01_JPRB, 0.96805504E+01_JPRB, 0.00000000E+00_JPRB/)
398 PDGB( 5, 8,:) = (/&
399
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.83425443E+01_JPRB, 0.99456138E+01_JPRB, 0.10000000E+01_JPRB/)
400
401 !----- INTERVAL = 3 ----- T = 250.00
402
403 PDGA( 6, 7,:) = (/&
404
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.94663507E+01_JPRB, 0.10272823E+02_JPRB, 0.00000000E+00_JPRB/)
405 PDGB( 6, 7,:) = (/&
406
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.94663507E+01_JPRB, 0.10561525E+02_JPRB, 0.10000000E+01_JPRB/)
407 PDGA( 6, 8,:) = (/&
408
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.79324712E+01_JPRB, 0.93914198E+01_JPRB, 0.00000000E+00_JPRB/)
409 PDGB( 6, 8,:) = (/&
410
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.79324712E+01_JPRB, 0.96496576E+01_JPRB, 0.10000000E+01_JPRB/)
411
412 !----- INTERVAL = 3 ----- T = 262.50
413
414 PDGA( 7, 7,:) = (/&
415
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.89643981E+01_JPRB, 0.10030051E+02_JPRB, 0.00000000E+00_JPRB/)
416 PDGB( 7, 7,:) = (/&
417
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.89643981E+01_JPRB, 0.10307714E+02_JPRB, 0.10000000E+01_JPRB/)
418 PDGA( 7, 8,:) = (/&
419
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.76141974E+01_JPRB, 0.91252916E+01_JPRB, 0.00000000E+00_JPRB/)
420 PDGB( 7, 8,:) = (/&
421
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.76141974E+01_JPRB, 0.93794463E+01_JPRB, 0.10000000E+01_JPRB/)
422
423 !----- INTERVAL = 3 ----- T = 275.00
424
425 PDGA( 8, 7,:) = (/&
426
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.85537123E+01_JPRB, 0.98021793E+01_JPRB, 0.00000000E+00_JPRB/)
427 PDGB( 8, 7,:) = (/&
428
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.85537123E+01_JPRB, 0.10071426E+02_JPRB, 0.10000000E+01_JPRB/)
429 PDGA( 8, 8,:) = (/&
430
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.73668729E+01_JPRB, 0.88811055E+01_JPRB, 0.00000000E+00_JPRB/)
431 PDGB( 8, 8,:) = (/&
432
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.73668729E+01_JPRB, 0.91333042E+01_JPRB, 0.10000000E+01_JPRB/)
433
434 !----- INTERVAL = 3 ----- T = 287.50
435
436 PDGA( 9, 7,:) = (/&
437
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.82163567E+01_JPRB, 0.95891296E+01_JPRB, 0.00000000E+00_JPRB/)
438 PDGB( 9, 7,:) = (/&
439
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.82163567E+01_JPRB, 0.98520772E+01_JPRB, 0.10000000E+01_JPRB/)
440 PDGA( 9, 8,:) = (/&
441
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.71747025E+01_JPRB, 0.86574340E+01_JPRB, 0.00000000E+00_JPRB/)
442 PDGB( 9, 8,:) = (/&
443
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.71747025E+01_JPRB, 0.89093260E+01_JPRB, 0.10000000E+01_JPRB/)
444
445 !----- INTERVAL = 3 ----- T = 300.00
446
447 PDGA(10, 7,:) = (/&
448
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.79381525E+01_JPRB, 0.93904375E+01_JPRB, 0.00000000E+00_JPRB/)
449 PDGB(10, 7,:) = (/&
450
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.79381525E+01_JPRB, 0.96487960E+01_JPRB, 0.10000000E+01_JPRB/)
451 PDGA(10, 8,:) = (/&
452
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.70256573E+01_JPRB, 0.84526940E+01_JPRB, 0.00000000E+00_JPRB/)
453 PDGB(10, 8,:) = (/&
454
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.70256573E+01_JPRB, 0.87055560E+01_JPRB, 0.10000000E+01_JPRB/)
455
456 !----- INTERVAL = 3 ----- T = 312.50
457
458 PDGA(11, 7,:) = (/&
459
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.77078849E+01_JPRB, 0.92054098E+01_JPRB, 0.00000000E+00_JPRB/)
460 PDGB(11, 7,:) = (/&
461
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.77078849E+01_JPRB, 0.94605633E+01_JPRB, 0.10000000E+01_JPRB/)
462 PDGA(11, 8,:) = (/&
463
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.69105145E+01_JPRB, 0.82652769E+01_JPRB, 0.00000000E+00_JPRB/)
464 PDGB(11, 8,:) = (/&
465
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.69105145E+01_JPRB, 0.85200926E+01_JPRB, 0.10000000E+01_JPRB/)
466
467 !-- WATER VAPOR --- 970 -1110 CM-1
468
469 !----- INTERVAL = 4 ----- T = 187.500
470
471 PDGA( 1, 9,:) = (/&
472
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.94868790E+02_JPRB, 0.17437229E+02_JPRB, 0.00000000E+00_JPRB/)
473 PDGB( 1, 9,:) = (/&
474
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.94868790E+02_JPRB, 0.18796329E+02_JPRB, 0.10000000E+01_JPRB/)
475 PDGA( 1,10,:) = (/&
476
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95419113E+02_JPRB, 0.17234291E+02_JPRB, 0.00000000E+00_JPRB/)
477 PDGB( 1,10,:) = (/&
478
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95419113E+02_JPRB, 0.18632164E+02_JPRB, 0.10000000E+01_JPRB/)
479
480 !----- INTERVAL = 4 ----- T = 200.000
481
482 PDGA( 2, 9,:) = (/&
483
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95143959E+02_JPRB, 0.17335575E+02_JPRB, 0.00000000E+00_JPRB/)
484 PDGB( 2, 9,:) = (/&
485
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95143959E+02_JPRB, 0.18714111E+02_JPRB, 0.10000000E+01_JPRB/)
486 PDGA( 2,10,:) = (/&
487
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95675995E+02_JPRB, 0.17129913E+02_JPRB, 0.00000000E+00_JPRB/)
488 PDGB( 2,10,:) = (/&
489
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95675995E+02_JPRB, 0.18547161E+02_JPRB, 0.10000000E+01_JPRB/)
490
491 !----- INTERVAL = 4 ----- T = 212.500
492
493 PDGA( 3, 9,:) = (/&
494
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95363609E+02_JPRB, 0.17245064E+02_JPRB, 0.00000000E+00_JPRB/)
495 PDGB( 3, 9,:) = (/&
496
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95363609E+02_JPRB, 0.18640270E+02_JPRB, 0.10000000E+01_JPRB/)
497 PDGA( 3,10,:) = (/&
498
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95911537E+02_JPRB, 0.17036016E+02_JPRB, 0.00000000E+00_JPRB/)
499 PDGB( 3,10,:) = (/&
500
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95911537E+02_JPRB, 0.18470697E+02_JPRB, 0.10000000E+01_JPRB/)
501
502 !----- INTERVAL = 4 ----- T = 225.000
503
504 PDGA( 4, 9,:) = (/&
505
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95551239E+02_JPRB, 0.17163479E+02_JPRB, 0.00000000E+00_JPRB/)
506 PDGB( 4, 9,:) = (/&
507
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95551239E+02_JPRB, 0.18573282E+02_JPRB, 0.10000000E+01_JPRB/)
508 PDGA( 4,10,:) = (/&
509
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96128136E+02_JPRB, 0.16952074E+02_JPRB, 0.00000000E+00_JPRB/)
510 PDGB( 4,10,:) = (/&
511
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96128136E+02_JPRB, 0.18402708E+02_JPRB, 0.10000000E+01_JPRB/)
512
513 !----- INTERVAL = 4 ----- T = 237.500
514
515 PDGA( 5, 9,:) = (/&
516
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95763680E+02_JPRB, 0.17089018E+02_JPRB, 0.00000000E+00_JPRB/)
517 PDGB( 5, 9,:) = (/&
518
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95763680E+02_JPRB, 0.18513403E+02_JPRB, 0.10000000E+01_JPRB/)
519 PDGA( 5,10,:) = (/&
520
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96294296E+02_JPRB, 0.16877150E+02_JPRB, 0.00000000E+00_JPRB/)
521 PDGB( 5,10,:) = (/&
522
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96294296E+02_JPRB, 0.18341324E+02_JPRB, 0.10000000E+01_JPRB/)
523
524 !----- INTERVAL = 4 ----- T = 250.000
525
526 PDGA( 6, 9,:) = (/&
527
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95913246E+02_JPRB, 0.17022213E+02_JPRB, 0.00000000E+00_JPRB/)
528 PDGB( 6, 9,:) = (/&
529
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.95913246E+02_JPRB, 0.18458538E+02_JPRB, 0.10000000E+01_JPRB/)
530 PDGA( 6,10,:) = (/&
531
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96462036E+02_JPRB, 0.16808561E+02_JPRB, 0.00000000E+00_JPRB/)
532 PDGB( 6,10,:) = (/&
533
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96462036E+02_JPRB, 0.18285398E+02_JPRB, 0.10000000E+01_JPRB/)
534
535 !----- INTERVAL = 4 ----- T = 262.500
536
537 PDGA( 7, 9,:) = (/&
538
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96069473E+02_JPRB, 0.16961018E+02_JPRB, 0.00000000E+00_JPRB/)
539 PDGB( 7, 9,:) = (/&
540
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96069473E+02_JPRB, 0.18408932E+02_JPRB, 0.10000000E+01_JPRB/)
541 PDGA( 7,10,:) = (/&
542
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96610298E+02_JPRB, 0.16746571E+02_JPRB, 0.00000000E+00_JPRB/)
543 PDGB( 7,10,:) = (/&
544
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96610298E+02_JPRB, 0.18234850E+02_JPRB, 0.10000000E+01_JPRB/)
545
546 !----- INTERVAL = 4 ----- T = 275.000
547
548 PDGA( 8, 9,:) = (/&
549
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96201309E+02_JPRB, 0.16905493E+02_JPRB, 0.00000000E+00_JPRB/)
550 PDGB( 8, 9,:) = (/&
551
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96201309E+02_JPRB, 0.18363655E+02_JPRB, 0.10000000E+01_JPRB/)
552 PDGA( 8,10,:) = (/&
553
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96754684E+02_JPRB, 0.16690109E+02_JPRB, 0.00000000E+00_JPRB/)
554 PDGB( 8,10,:) = (/&
555
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96754684E+02_JPRB, 0.18189079E+02_JPRB, 0.10000000E+01_JPRB/)
556
557 !----- INTERVAL = 4 ----- T = 287.500
558
559 PDGA( 9, 9,:) = (/&
560
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96342339E+02_JPRB, 0.16853893E+02_JPRB, 0.00000000E+00_JPRB/)
561 PDGB( 9, 9,:) = (/&
562
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96342339E+02_JPRB, 0.18321957E+02_JPRB, 0.10000000E+01_JPRB/)
563 PDGA( 9,10,:) = (/&
564
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96883301E+02_JPRB, 0.16638573E+02_JPRB, 0.00000000E+00_JPRB/)
565 PDGB( 9,10,:) = (/&
566
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96883301E+02_JPRB, 0.18147303E+02_JPRB, 0.10000000E+01_JPRB/)
567
568 !----- INTERVAL = 4 ----- T = 300.000
569
570 PDGA(10, 9,:) = (/&
571
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96457764E+02_JPRB, 0.16806755E+02_JPRB, 0.00000000E+00_JPRB/)
572 PDGB(10, 9,:) = (/&
573
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96457764E+02_JPRB, 0.18283590E+02_JPRB, 0.10000000E+01_JPRB/)
574 PDGA(10,10,:) = (/&
575
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96989792E+02_JPRB, 0.16591677E+02_JPRB, 0.00000000E+00_JPRB/)
576 PDGB(10,10,:) = (/&
577
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96989792E+02_JPRB, 0.18108814E+02_JPRB, 0.10000000E+01_JPRB/)
578
579 !----- INTERVAL = 4 ----- T = 312.500
580
581 PDGA(11, 9,:) = (/&
582
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96549957E+02_JPRB, 0.16763689E+02_JPRB, 0.00000000E+00_JPRB/)
583 PDGB(11, 9,:) = (/&
584
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.96549957E+02_JPRB, 0.18248074E+02_JPRB, 0.10000000E+01_JPRB/)
585 PDGA(11,10,:) = (/&
586
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.97097275E+02_JPRB, 0.16548479E+02_JPRB, 0.00000000E+00_JPRB/)
587 PDGB(11,10,:) = (/&
588
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.97097275E+02_JPRB, 0.18073788E+02_JPRB, 0.10000000E+01_JPRB/)
589
590 !-- WATER VAPOR -- INT.5 -- 350- 500 CM-1
591
592 !----- INTERVAL = 5 ----- T = 187.500
593
594 PDGA( 1, 5,:) = (/&
595
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13134047E+00_JPRB,-0.23649048E-01_JPRB, 0.00000000E+00_JPRB/)
596 PDGB( 1, 5,:) = (/&
597
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13134047E+00_JPRB, 0.54008597E+00_JPRB, 0.10000000E+01_JPRB/)
598 PDGA( 1, 6,:) = (/&
599
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14049581E+00_JPRB,-0.26231026E-01_JPRB, 0.00000000E+00_JPRB/)
600 PDGB( 1, 6,:) = (/&
601
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14049581E+00_JPRB, 0.54143775E+00_JPRB, 0.10000000E+01_JPRB/)
602
603 !----- INTERVAL = 5 ----- T = 200.000
604
605 PDGA( 2, 5,:) = (/&
606
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13330981E+00_JPRB,-0.24178915E-01_JPRB, 0.00000000E+00_JPRB/)
607 PDGB( 2, 5,:) = (/&
608
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13330981E+00_JPRB, 0.54094988E+00_JPRB, 0.10000000E+01_JPRB/)
609 PDGA( 2, 6,:) = (/&
610
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14229582E+00_JPRB,-0.26725627E-01_JPRB, 0.00000000E+00_JPRB/)
611 PDGB( 2, 6,:) = (/&
612
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14229582E+00_JPRB, 0.54189402E+00_JPRB, 0.10000000E+01_JPRB/)
613
614 !----- INTERVAL = 5 ----- T = 212.500
615
616 PDGA( 3, 5,:) = (/&
617
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13504511E+00_JPRB,-0.24650861E-01_JPRB, 0.00000000E+00_JPRB/)
618 PDGB( 3, 5,:) = (/&
619
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13504511E+00_JPRB, 0.54169583E+00_JPRB, 0.10000000E+01_JPRB/)
620 PDGA( 3, 6,:) = (/&
621
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14384151E+00_JPRB,-0.27153090E-01_JPRB, 0.00000000E+00_JPRB/)
622 PDGB( 3, 6,:) = (/&
623
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14384151E+00_JPRB, 0.54222512E+00_JPRB, 0.10000000E+01_JPRB/)
624
625 !----- INTERVAL = 5 ----- T = 225.000
626
627 PDGA( 4, 5,:) = (/&
628
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13651314E+00_JPRB,-0.25044570E-01_JPRB, 0.00000000E+00_JPRB/)
629 PDGB( 4, 5,:) = (/&
630
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13651314E+00_JPRB, 0.54191625E+00_JPRB, 0.10000000E+01_JPRB/)
631 PDGA( 4, 6,:) = (/&
632
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14517485E+00_JPRB,-0.27523417E-01_JPRB, 0.00000000E+00_JPRB/)
633 PDGB( 4, 6,:) = (/&
634
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14517485E+00_JPRB, 0.54246801E+00_JPRB, 0.10000000E+01_JPRB/)
635
636 !----- INTERVAL = 5 ----- T = 237.500
637
638 PDGA( 5, 5,:) = (/&
639
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13790466E+00_JPRB,-0.25431205E-01_JPRB, 0.00000000E+00_JPRB/)
640 PDGB( 5, 5,:) = (/&
641
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13790466E+00_JPRB, 0.54262739E+00_JPRB, 0.10000000E+01_JPRB/)
642 PDGA( 5, 6,:) = (/&
643
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14633319E+00_JPRB,-0.27845515E-01_JPRB, 0.00000000E+00_JPRB/)
644 PDGB( 5, 6,:) = (/&
645
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14633319E+00_JPRB, 0.54265642E+00_JPRB, 0.10000000E+01_JPRB/)
646
647 !----- INTERVAL = 5 ----- T = 250.000
648
649 PDGA( 6, 5,:) = (/&
650
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13909847E+00_JPRB,-0.25759069E-01_JPRB, 0.00000000E+00_JPRB/)
651 PDGB( 6, 5,:) = (/&
652
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13909847E+00_JPRB, 0.54293746E+00_JPRB, 0.10000000E+01_JPRB/)
653 PDGA( 6, 6,:) = (/&
654
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14734478E+00_JPRB,-0.28128289E-01_JPRB, 0.00000000E+00_JPRB/)
655 PDGB( 6, 6,:) = (/&
656
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14734478E+00_JPRB, 0.54279846E+00_JPRB, 0.10000000E+01_JPRB/)
657
658 !----- INTERVAL = 5 ----- T = 262.500
659
660 PDGA( 7, 5,:) = (/&
661
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14014673E+00_JPRB,-0.26045626E-01_JPRB, 0.00000000E+00_JPRB/)
662 PDGB( 7, 5,:) = (/&
663
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14014673E+00_JPRB, 0.54306209E+00_JPRB, 0.10000000E+01_JPRB/)
664 PDGA( 7, 6,:) = (/&
665
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14823231E+00_JPRB,-0.28376250E-01_JPRB, 0.00000000E+00_JPRB/)
666 PDGB( 7, 6,:) = (/&
667
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14823231E+00_JPRB, 0.54290944E+00_JPRB, 0.10000000E+01_JPRB/)
668
669 !----- INTERVAL = 5 ----- T = 275.000
670
671 PDGA( 8, 5,:) = (/&
672
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14110570E+00_JPRB,-0.26310772E-01_JPRB, 0.00000000E+00_JPRB/)
673 PDGB( 8, 5,:) = (/&
674
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14110570E+00_JPRB, 0.54324186E+00_JPRB, 0.10000000E+01_JPRB/)
675 PDGA( 8, 6,:) = (/&
676
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14901793E+00_JPRB,-0.28597040E-01_JPRB, 0.00000000E+00_JPRB/)
677 PDGB( 8, 6,:) = (/&
678
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14901793E+00_JPRB, 0.54300690E+00_JPRB, 0.10000000E+01_JPRB/)
679
680 !----- INTERVAL = 5 ----- T = 287.500
681
682 PDGA( 9, 5,:) = (/&
683
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14198618E+00_JPRB,-0.26556855E-01_JPRB, 0.00000000E+00_JPRB/)
684 PDGB( 9, 5,:) = (/&
685
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14198618E+00_JPRB, 0.54346353E+00_JPRB, 0.10000000E+01_JPRB/)
686 PDGA( 9, 6,:) = (/&
687
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14971229E+00_JPRB,-0.28792191E-01_JPRB, 0.00000000E+00_JPRB/)
688 PDGB( 9, 6,:) = (/&
689
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14971229E+00_JPRB, 0.54307669E+00_JPRB, 0.10000000E+01_JPRB/)
690
691 !----- INTERVAL = 5 ----- T = 300.000
692
693 PDGA(10, 5,:) = (/&
694
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14277160E+00_JPRB,-0.26774861E-01_JPRB, 0.00000000E+00_JPRB/)
695 PDGB(10, 5,:) = (/&
696
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14277160E+00_JPRB, 0.54357564E+00_JPRB, 0.10000000E+01_JPRB/)
697 PDGA(10, 6,:) = (/&
698
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15033126E+00_JPRB,-0.28966904E-01_JPRB, 0.00000000E+00_JPRB/)
699 PDGB(10, 6,:) = (/&
700
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15033126E+00_JPRB, 0.54313493E+00_JPRB, 0.10000000E+01_JPRB/)
701
702 !----- INTERVAL = 5 ----- T = 312.500
703
704 PDGA(11, 5,:) = (/&
705
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14349319E+00_JPRB,-0.26976623E-01_JPRB, 0.00000000E+00_JPRB/)
706 PDGB(11, 5,:) = (/&
707
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.14349319E+00_JPRB, 0.54369903E+00_JPRB, 0.10000000E+01_JPRB/)
708 PDGA(11, 6,:) = (/&
709
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15088280E+00_JPRB,-0.29121898E-01_JPRB, 0.00000000E+00_JPRB/)
710 PDGB(11, 6,:) = (/&
711
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15088280E+00_JPRB, 0.54318237E+00_JPRB, 0.10000000E+01_JPRB/)
712
713 !- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
714
715 !----- INTERVAL = 6 ----- T = 187.50
716
717 PDGA( 1,11,:) = (/&
718
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
719 PDGB( 1,11,:) = (/&
720
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
721 PDGA( 1,12,:) = (/&
722
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
723 PDGB( 1,12,:) = (/&
724
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
725
726 !----- INTERVAL = 6 ----- T = 200.00
727
728 PDGA( 2,11,:) = (/&
729
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
730 PDGB( 2,11,:) = (/&
731
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
732 PDGA( 2,12,:) = (/&
733
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
734 PDGB( 2,12,:) = (/&
735
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
736
737 !----- INTERVAL = 6 ----- T = 212.50
738
739 PDGA( 3,11,:) = (/&
740
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
741 PDGB( 3,11,:) = (/&
742
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
743 PDGA( 3,12,:) = (/&
744
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.44063067E+00_JPRB, 0.91024989E-01_JPRB, 0.00000000E+00_JPRB/)
745 PDGB( 3,12,:) = (/&
746
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.44063067E+00_JPRB, 0.12039660E+01_JPRB, 0.10000000E+01_JPRB/)
747
748 !----- INTERVAL = 6 ----- T = 225.00
749
750 PDGA( 4,11,:) = (/&
751
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.51061614E+00_JPRB, 0.59883548E-01_JPRB, 0.00000000E+00_JPRB/)
752 PDGB( 4,11,:) = (/&
753
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.51061614E+00_JPRB, 0.13461757E+01_JPRB, 0.10000000E+01_JPRB/)
754 PDGA( 4,12,:) = (/&
755
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.30439727E+00_JPRB, 0.15980470E+00_JPRB, 0.00000000E+00_JPRB/)
756 PDGB( 4,12,:) = (/&
757
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.30439727E+00_JPRB, 0.91241774E+00_JPRB, 0.10000000E+01_JPRB/)
758
759 !----- INTERVAL = 6 ----- T = 237.50
760
761 PDGA( 5,11,:) = (/&
762
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.40673842E+00_JPRB, 0.11398935E+00_JPRB, 0.00000000E+00_JPRB/)
763 PDGB( 5,11,:) = (/&
764
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.40673842E+00_JPRB, 0.11289965E+01_JPRB, 0.10000000E+01_JPRB/)
765 PDGA( 5,12,:) = (/&
766
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15005620E+00_JPRB, 0.23446409E+00_JPRB, 0.00000000E+00_JPRB/)
767 PDGB( 5,12,:) = (/&
768
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15005620E+00_JPRB, 0.58547602E+00_JPRB, 0.10000000E+01_JPRB/)
769
770 !----- INTERVAL = 6 ----- T = 250.00
771
772 PDGA( 6,11,:) = (/&
773
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.28375203E+00_JPRB, 0.17444874E+00_JPRB, 0.00000000E+00_JPRB/)
774 PDGB( 6,11,:) = (/&
775
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.28375203E+00_JPRB, 0.86693115E+00_JPRB, 0.10000000E+01_JPRB/)
776 PDGA( 6,12,:) = (/&
777
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.51658133E-01_JPRB, 0.29464628E+00_JPRB, 0.00000000E+00_JPRB/)
778 PDGB( 6,12,:) = (/&
779
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.51658133E-01_JPRB, 0.40170363E+00_JPRB, 0.10000000E+01_JPRB/)
780
781 !----- INTERVAL = 6 ----- T = 262.50
782
783 PDGA( 7,11,:) = (/&
784
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15136005E+00_JPRB, 0.23761536E+00_JPRB, 0.00000000E+00_JPRB/)
785 PDGB( 7,11,:) = (/&
786
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.15136005E+00_JPRB, 0.58911683E+00_JPRB, 0.10000000E+01_JPRB/)
787 PDGA( 7,12,:) = (/&
788
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.18932679E-01_JPRB, 0.33516250E+00_JPRB, 0.00000000E+00_JPRB/)
789 PDGB( 7,12,:) = (/&
790
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.18932679E-01_JPRB, 0.36796152E+00_JPRB, 0.10000000E+01_JPRB/)
791
792 !----- INTERVAL = 6 ----- T = 275.00
793
794 PDGA( 8,11,:) = (/&
795
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.61752765E-01_JPRB, 0.28965454E+00_JPRB, 0.00000000E+00_JPRB/)
796 PDGB( 8,11,:) = (/&
797
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.61752765E-01_JPRB, 0.41975793E+00_JPRB, 0.10000000E+01_JPRB/)
798 PDGA( 8,12,:) = (/&
799
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.79619427E-02_JPRB, 0.36873141E+00_JPRB, 0.00000000E+00_JPRB/)
800 PDGB( 8,12,:) = (/&
801
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.79619427E-02_JPRB, 0.37964009E+00_JPRB, 0.10000000E+01_JPRB/)
802
803 !----- INTERVAL = 6 ----- T = 287.50
804
805 PDGA( 9,11,:) = (/&
806
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.26192233E-01_JPRB, 0.32568668E+00_JPRB, 0.00000000E+00_JPRB/)
807 PDGB( 9,11,:) = (/&
808
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.26192233E-01_JPRB, 0.37385106E+00_JPRB, 0.10000000E+01_JPRB/)
809 PDGA( 9,12,:) = (/&
810
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.40764469E-02_JPRB, 0.40137572E+00_JPRB, 0.00000000E+00_JPRB/)
811 PDGB( 9,12,:) = (/&
812
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.40764469E-02_JPRB, 0.40608889E+00_JPRB, 0.10000000E+01_JPRB/)
813
814 !----- INTERVAL = 6 ----- T = 300.00
815
816 PDGA(10,11,:) = (/&
817
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.12168738E-01_JPRB, 0.35455148E+00_JPRB, 0.00000000E+00_JPRB/)
818 PDGB(10,11,:) = (/&
819
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.12168738E-01_JPRB, 0.37329084E+00_JPRB, 0.10000000E+01_JPRB/)
820 PDGA(10,12,:) = (/&
821
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
822 PDGB(10,12,:) = (/&
823
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
824
825 !----- INTERVAL = 6 ----- T = 312.50
826
827 PDGA(11,11,:) = (/&
828
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.64195381E-02_JPRB, 0.38088067E+00_JPRB, 0.00000000E+00_JPRB/)
829 PDGB(11,11,:) = (/&
830
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.64195381E-02_JPRB, 0.38906156E+00_JPRB, 0.10000000E+01_JPRB/)
831 PDGA(11,12,:) = (/&
832
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
833 PDGB(11,12,:) = (/&
834
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
835
836 !=======================================================================
837
838 !-- CARBON DIOXIDE
839 ! ==============
840
841 !-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ------------
842
843 !-- FIU = 0.8 + DMAX1(0.35,(7-IU)*0.9) , X/T, 9
844
845 !----- INTERVAL = 2 ----- T = 187.5
846
847 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
848 PDGA( 1,13,:) = (/&
849
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
850 PDGB( 1,13,:) = (/&
851
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
852 PDGA( 1,14,:) = (/&
853
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
854 PDGB( 1,14,:) = (/&
855
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)
856
857 !----- INTERVAL = 2 ----- T = 200.0
858
859 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
860 PDGA( 2,13,:) = (/&
861
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
862 PDGB( 2,13,:) = (/&
863
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
864 PDGA( 2,14,:) = (/&
865
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
866 PDGB( 2,14,:) = (/&
867
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)
868
869 !----- INTERVAL = 2 ----- T = 212.5
870
871 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
872 PDGA( 3,13,:) = (/&
873
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
874 PDGB( 3,13,:) = (/&
875
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
876 PDGA( 3,14,:) = (/&
877
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
878 PDGB( 3,14,:) = (/&
879
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)
880
881 !----- INTERVAL = 2 ----- T = 225.0
882
883 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
884 PDGA( 4,13,:) = (/&
885
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
886 PDGB( 4,13,:) = (/&
887
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
888 PDGA( 4,14,:) = (/&
889
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
890 PDGB( 4,14,:) = (/&
891
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)
892
893 !----- INTERVAL = 2 ----- T = 237.5
894
895 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
896 PDGA( 5,13,:) = (/&
897
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
898 PDGB( 5,13,:) = (/&
899
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
900 PDGA( 5,14,:) = (/&
901
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
902 PDGB( 5,14,:) = (/&
903
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)
904
905 !----- INTERVAL = 2 ----- T = 250.0
906
907 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
908 PDGA( 6,13,:) = (/&
909
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
910 PDGB( 6,13,:) = (/&
911
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
912 PDGA( 6,14,:) = (/&
913
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
914 PDGB( 6,14,:) = (/&
915
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)
916
917 !----- INTERVAL = 2 ----- T = 262.5
918
919 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
920 PDGA( 7,13,:) = (/&
921
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
922 PDGB( 7,13,:) = (/&
923
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
924 PDGA( 7,14,:) = (/&
925
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
926 PDGB( 7,14,:) = (/&
927
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)
928
929 !----- INTERVAL = 2 ----- T = 275.0
930
931 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
932 PDGA( 8,13,:) = (/&
933
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
934 PDGB( 8,13,:) = (/&
935
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
936 PDGA( 8,14,:) = (/&
937
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
938 PDGB( 8,14,:) = (/&
939
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)
940
941 !----- INTERVAL = 2 ----- T = 287.5
942
943 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
944 PDGA( 9,13,:) = (/&
945
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
946 PDGB( 9,13,:) = (/&
947
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
948 PDGA( 9,14,:) = (/&
949
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
950 PDGB( 9,14,:) = (/&
951
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)
952
953 !----- INTERVAL = 2 ----- T = 300.0
954
955 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
956 PDGA(10,13,:) = (/&
957
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
958 PDGB(10,13,:) = (/&
959
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
960 PDGA(10,14,:) = (/&
961
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
962 PDGB(10,14,:) = (/&
963
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)
964
965 !----- INTERVAL = 2 ----- T = 312.5
966
967 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
968 PDGA(11,13,:) = (/&
969
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
970 PDGB(11,13,:) = (/&
971
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
972 PDGA(11,14,:) = (/&
973
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
974 PDGB(11,14,:) = (/&
975
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)
976
977 !-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
978
979 !----- INTERVAL = 4 ----- T = 187.5
980
981 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
982 PDGA( 1,15,:) = (/&
983
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
984 PDGB( 1,15,:) = (/&
985
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
986 PDGA( 1,16,:) = (/&
987
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
988 PDGB( 1,16,:) = (/&
989
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)
990
991 !----- INTERVAL = 4 ----- T = 200.0
992
993 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
994 PDGA( 2,15,:) = (/&
995
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
996 PDGB( 2,15,:) = (/&
997
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
998 PDGA( 2,16,:) = (/&
999
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
1000 PDGB( 2,16,:) = (/&
1001
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)
1002
1003 !----- INTERVAL = 4 ----- T = 212.5
1004
1005 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1006 PDGA( 3,15,:) = (/&
1007
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
1008 PDGB( 3,15,:) = (/&
1009
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
1010 PDGA( 3,16,:) = (/&
1011
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
1012 PDGB( 3,16,:) = (/&
1013
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)
1014
1015 !----- INTERVAL = 4 ----- T = 225.0
1016
1017 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1018 PDGA( 4,15,:) = (/&
1019
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
1020 PDGB( 4,15,:) = (/&
1021
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
1022 PDGA( 4,16,:) = (/&
1023
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
1024 PDGB( 4,16,:) = (/&
1025
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)
1026
1027 !----- INTERVAL = 4 ----- T = 237.5
1028
1029 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1030 PDGA( 5,15,:) = (/&
1031
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
1032 PDGB( 5,15,:) = (/&
1033
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
1034 PDGA( 5,16,:) = (/&
1035
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
1036 PDGB( 5,16,:) = (/&
1037
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)
1038
1039 !----- INTERVAL = 4 ----- T = 250.0
1040
1041 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1042 PDGA( 6,15,:) = (/&
1043
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
1044 PDGB( 6,15,:) = (/&
1045
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
1046 PDGA( 6,16,:) = (/&
1047
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
1048 PDGB( 6,16,:) = (/&
1049
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)
1050
1051 !----- INTERVAL = 4 ----- T = 262.5
1052
1053 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1054 PDGA( 7,15,:) = (/&
1055
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
1056 PDGB( 7,15,:) = (/&
1057
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
1058 PDGA( 7,16,:) = (/&
1059
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
1060 PDGB( 7,16,:) = (/&
1061
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)
1062
1063 !----- INTERVAL = 4 ----- T = 275.0
1064
1065 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1066 PDGA( 8,15,:) = (/&
1067
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
1068 PDGB( 8,15,:) = (/&
1069
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
1070 PDGA( 8,16,:) = (/&
1071
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
1072 PDGB( 8,16,:) = (/&
1073
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)
1074
1075 !----- INTERVAL = 4 ----- T = 287.5
1076
1077 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1078 PDGA( 9,15,:) = (/&
1079
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
1080 PDGB( 9,15,:) = (/&
1081
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
1082 PDGA( 9,16,:) = (/&
1083
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
1084 PDGB( 9,16,:) = (/&
1085
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)
1086
1087 !----- INTERVAL = 4 ----- T = 300.0
1088
1089 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1090 PDGA(10,15,:) = (/&
1091
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
1092 PDGB(10,15,:) = (/&
1093
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
1094 PDGA(10,16,:) = (/&
1095
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
1096 PDGB(10,16,:) = (/&
1097
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)
1098
1099 !----- INTERVAL = 4 ----- T = 312.5
1100
1101 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1102 PDGA(11,15,:) = (/&
1103
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
1104 PDGB(11,15,:) = (/&
1105
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
1106 PDGA(11,16,:) = (/&
1107
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
1108 PDGB(11,16,:) = (/&
1109
2/2
✓ Branch 0 taken 3 times.
✓ Branch 1 taken 1 times.
4 & 0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
1110
1111 ! ------------------------------------------------------------------
1112
1113 !----- (CONTINUUM ABSORPTION)
1114
1115 !----- (CONTINUUM ABSORPTION: e-type COMPONENT)
1116
1117 1 RETYPE(1:4)= (/ 12._JPRB, 5.5_JPRB, 4.25_JPRB, 45._JPRB /)
1118
1119 !----- (CONTINUUM ABSORPTION: p-type COMPONENT)
1120
1121 1 RPTYPE(1:4)= (/ 0.22_JPRB, 0.012_JPRB, 0.0071_JPRB, 3.96_JPRB /)
1122
1123 ! ------------------------------------------------------------------
1124
1125 !-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
1126 ! THE ABSORPTION
1127
1128 !--------H2O
1129
1130 ! revised in Zhong 961108
1131 ALWT(1,:)= (/&
1132
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 2.34995778846E-03_JPRB, -2.76713384294E-04_JPRB, 1.16480338097E-06_JPRB/)
1133 BLWT(1,:)= (/&
1134
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & -1.58165952771E-05_JPRB, -2.39167473702E-05_JPRB, 1.80148335147E-07_JPRB/)
1135 ALWT(2,:)= (/&
1136
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 2.52595953359E-02_JPRB, -6.72079319635E-04_JPRB, 5.74103783815E-06_JPRB/)
1137 BLWT(2,:)= (/&
1138
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & -8.26196996910E-05_JPRB, -1.05514645370E-05_JPRB, 7.02984234993E-08_JPRB/)
1139 ALWT(3,:)= (/&
1140
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 3.55525229363E-02_JPRB, -7.94992134865E-04_JPRB, 6.64848193374E-06_JPRB/)
1141 BLWT(3,:)= (/&
1142
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & -9.71124908025E-05_JPRB, -2.95218285256E-06_JPRB, 2.23374952695E-08_JPRB/)
1143 ALWT(4,:)= (/&
1144
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 5.47044522259E-02_JPRB, -1.19105877667E-03_JPRB, 9.74676865100E-06_JPRB/)
1145 BLWT(4,:)= (/&
1146
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & -2.10153035427E-04_JPRB, -6.93815560155E-06_JPRB, 5.50381928956E-08_JPRB/)
1147 ALWT(5,:)= (/&
1148
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 1.88063066950E-02_JPRB, -1.11250846983E-04_JPRB, 1.66977895508E-06_JPRB/)
1149 BLWT(5,:)= (/&
1150
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & -5.72683436311E-05_JPRB, -2.48448308453E-05_JPRB, 1.88450887138E-07_JPRB/)
1151 ALWT(6,:)= (/&
1152
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & 1.29526952131E-02_JPRB, -3.81424455035E-04_JPRB, 3.07118138204E-06_JPRB/)
1153 BLWT(6,:)= (/&
1154
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 & -4.20789327775E-05_JPRB, -1.25055291318E-05_JPRB, 8.58839668934E-08_JPRB/)
1155
1156 !-------CO2
1157
1158
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 ALWT(7,:)= (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
1159
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 BLWT(7,:)= (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
1160
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
4 ALWT(8,:)= (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
1161
2/2
✓ Branch 0 taken 3 times.
✓ Branch 1 taken 1 times.
4 BLWT(8,:)= (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
1162
1163 ! ------------------------------------------------------------------
1164
1165 !* 2. SET VALUES.
1166 ! -----------
1167
1168 !-number of spectral intervals
1169 1 NSIL = 6
1170 !-number of intervals with Pade approximants transmission functions
1171 1 NIPD = 8
1172 1 NIPD2 = 2*NIPD
1173 !-number of reference temperatures
1174 1 NTR = 11
1175 !-number of absorber amounts
1176 1 NUA = 24
1177 !-number of transmission functions
1178 1 NTRA = 15
1179 !-number of Gauss angles
1180 1 NG1 = 2
1181 1 NG1P1 = NG1+1
1182
1183 !-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
1184 ! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
1185 1 TSTAND = 250.0_JPRB
1186 1 TREF = 250.0_JPRB
1187
1188 !-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
1189 1 RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
1190 1 WG1 = (/ 1.0_JPRB , 1.0_JPRB /)
1191
1192 !-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
1193 1 TSTP = 12.5_JPRB
1194 1 MXIXT = 10
1195
1196 !-- COEFFICIENTS FOR OZONE ABSORPTION
1197
1198 1 RO1H = 2230._JPRB
1199 1 RO2H = 100._JPRB
1200 1 RPIALF0 = 2._JPRB
1201 1 RO3T(1) = -.326E-03_JPRB
1202 1 RO3T(2) = -.102E-05_JPRB
1203 1 RO3T(3) = 0.137E-02_JPRB
1204 1 RO3T(4) = -.535E-05_JPRB
1205
1206 !-- COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
1207
1208 1 RVGCO2= 60._JPRB
1209 1 RVGH2O= 30._JPRB
1210 1 RVGO3 =400._JPRB
1211
1212 ! ------------------------------------------------------------------
1213
1214
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('SULWN',1,ZHOOK_HANDLE)
1215 1 END SUBROUTINE SULWN
1216