GCC Code Coverage Report


Directory: ./
File: rad/sulw15.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 396 0.0%
Branches: 0 740 0.0%

Line Branch Exec Source
1 !OPTIONS XOPT(NOEVAL)
2 SUBROUTINE SULW15
3
4 !**** *SULW15* - INITIALIZE COMMON YOMLW15
5 !**** FROZEN VERSION (CYCLE 15) OF SULW
6
7 ! PURPOSE.
8 ! --------
9 ! INITIALIZE YOMLW15, THE COMMON THAT CONTAINS COEFFICIENTS
10 ! NEEDED TO RUN THE ECMWF LONGWAVE RADIATION ROUTINES
11
12 !** INTERFACE.
13 ! ----------
14 ! *CALL* *SULW15
15
16 ! EXPLICIT ARGUMENTS :
17 ! --------------------
18 ! NONE
19
20 ! IMPLICIT ARGUMENTS :
21 ! --------------------
22 ! COMMON YOMLW15
23
24 ! METHOD.
25 ! -------
26 ! SEE DOCUMENTATION
27
28 ! EXTERNALS.
29 ! ----------
30
31 ! REFERENCE.
32 ! ----------
33 ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
34
35 ! AUTHOR.
36 ! -------
37 ! 96-11: Ph. Dandin. Meteo-France
38 ! ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE *ECMWF*
39
40 ! MODIFICATIONS.
41 ! --------------
42 ! M.Hamrud 01-Oct-2003 CY28 Cleaning
43
44 ! ------------------------------------------------------------------
45
46 USE PARKIND1 ,ONLY : JPIM ,JPRB
47 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
48
49 USE YOMLW15 , ONLY : MXIXT15 ,NINT15 ,NIPD15 ,NIPD215 ,&
50 & NTR15 ,NTRA15 ,NUA15 ,NG115 ,NG1P115 ,&
51 & AT15 ,BT15 ,RNTNU15 ,GA15 ,GB15 ,&
52 & OCT15 ,O1H15 ,O2H15 ,RPIALF015,RT115 ,&
53 & TINTP15 ,TREF15 ,TSTAND15 ,TSTP15 ,WG115 ,&
54 & XP15 ,RVGCO215 ,RVGH2O15 ,RVGO315
55
56 IMPLICIT NONE
57
58 ! ----------------------------------------------------------------
59
60 !* 1. SET VALUES.
61 ! -----------
62
63 REAL(KIND=JPRB) :: ZHOOK_HANDLE
64 IF (LHOOK) CALL DR_HOOK('SULW15',0,ZHOOK_HANDLE)
65 NG115=2
66 NG1P115=NG115+1
67 NINT15=6
68 NIPD15=8
69 NIPD215=2*NIPD15
70 NTR15=11
71 NTRA15=15
72 NUA15=24
73
74 !-- COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
75
76 RVGCO215= 60._JPRB
77 RVGH2O15= 30._JPRB
78 RVGO315 =400._JPRB
79
80 !-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND15
81 ! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF15
82 TSTAND15 = 250.0_JPRB
83 TREF15 = 250.0_JPRB
84
85 !-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
86 RT115 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
87 WG115 = (/ 1.0_JPRB , 1.0_JPRB /)
88
89 !-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
90 TSTP15 = 12.5_JPRB
91 MXIXT15= 10
92
93 !-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
94 TINTP15 = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB, &
95 & 250._JPRB,&
96 & 262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)
97
98 !-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
99
100 XP15 = RESHAPE((/&
101 & 0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
102 & 0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB,&
103 & 0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
104 & -0.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB,&
105 & 0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
106 & 0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB,&
107 & 0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
108 & 0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB,&
109 & 0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
110 & -0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB,&
111 & 0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
112 & 0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB /)&
113 & ,SHAPE=(/6,6/))
114
115 !-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
116 ! THE ABSORPTION
117 AT15(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /)
118 BT15(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /)
119 AT15(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /)
120 BT15(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /)
121 AT15(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /)
122 BT15(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /)
123 AT15(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /)
124 BT15(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /)
125 AT15(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /)
126 BT15(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /)
127 AT15(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /)
128 BT15(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /)
129 AT15(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
130 BT15(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
131 AT15(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
132 BT15(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
133
134 !-- COEFFICIENTS FOR OZONE ABSORPTION
135
136 O1H15 = 2230._JPRB
137 O2H15 = 100._JPRB
138 RPIALF015 = 2._JPRB
139 OCT15(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /)
140
141 !-- COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
142
143 RNTNU15(:) = (/ 70.0_JPRB, 26.77_JPRB, 8.45_JPRB, 5.78_JPRB /)
144
145 !-----------------------------------------------------------------------
146 ! PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
147 ! ==========================================
148 !-----------------------------------------------------------------------
149 !-- WATER VAPOR -- INT.1 -- 0- 500 CM-1 -- FROM ABS225 ----------------
150
151 !-- R.D. -- G = - 0.2 SLA
152
153 !----- INTERVAL = 1 ----- T = 187.5
154
155 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
156 GA15( 1, 1,:) = (/&
157 & 0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/)
158 GB15( 1, 1,:) = (/&
159 & 0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/)
160 GA15( 1, 2,:) = (/&
161 & 0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/)
162 GB15( 1, 2,:) = (/&
163 & 0.77266491E-02_JPRB, 0.10681591E+00_JPRB, 0.10000000E+01_JPRB/)
164
165 !----- INTERVAL = 1 ----- T = 200.0
166
167 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
168 GA15( 2, 1,:) = (/&
169 & 0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/)
170 GB15( 2, 1,:) = (/&
171 & 0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/)
172 GA15( 2, 2,:) = (/&
173 & 0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/)
174 GB15( 2, 2,:) = (/&
175 & 0.81323287E-02_JPRB, 0.10921298E+00_JPRB, 0.10000000E+01_JPRB/)
176
177 !----- INTERVAL = 1 ----- T = 212.5
178
179 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
180 GA15( 3, 1,:) = (/&
181 & 0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/)
182 GB15( 3, 1,:) = (/&
183 & 0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/)
184 GA15( 3, 2,:) = (/&
185 & 0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/)
186 GB15( 3, 2,:) = (/&
187 & 0.86507620E-02_JPRB, 0.11198225E+00_JPRB, 0.10000000E+01_JPRB/)
188
189 !----- INTERVAL = 1 ----- T = 225.0
190
191 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
192 GA15( 4, 1,:) = (/&
193 & 0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/)
194 GB15( 4, 1,:) = (/&
195 & 0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/)
196 GA15( 4, 2,:) = (/&
197 & 0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/)
198 GB15( 4, 2,:) = (/&
199 & 0.92776391E-02_JPRB, 0.11487826E+00_JPRB, 0.10000000E+01_JPRB/)
200
201 !----- INTERVAL = 1 ----- T = 237.5
202
203 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
204 GA15( 5, 1,:) = (/&
205 & 0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/)
206 GB15( 5, 1,:) = (/&
207 & 0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/)
208 GA15( 5, 2,:) = (/&
209 & 0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/)
210 GB15( 5, 2,:) = (/&
211 & 0.99806312E-02_JPRB, 0.11751113E+00_JPRB, 0.10000000E+01_JPRB/)
212
213 !----- INTERVAL = 1 ----- T = 250.0
214
215 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
216 GA15( 6, 1,:) = (/&
217 & 0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/)
218 GB15( 6, 1,:) = (/&
219 & 0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/)
220 GA15( 6, 2,:) = (/&
221 & 0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/)
222 GB15( 6, 2,:) = (/&
223 & 0.10709803E-01_JPRB, 0.11951535E+00_JPRB, 0.10000000E+01_JPRB/)
224
225 !----- INTERVAL = 1 ----- T = 262.5
226
227 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
228 GA15( 7, 1,:) = (/&
229 & 0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/)
230 GB15( 7, 1,:) = (/&
231 & 0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/)
232 GA15( 7, 2,:) = (/&
233 & 0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/)
234 GB15( 7, 2,:) = (/&
235 & 0.11414739E-01_JPRB, 0.12069945E+00_JPRB, 0.10000000E+01_JPRB/)
236
237 !----- INTERVAL = 1 ----- T = 275.0
238
239 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
240 GA15( 8, 1,:) = (/&
241 & 0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/)
242 GB15( 8, 1,:) = (/&
243 & 0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/)
244 GA15( 8, 2,:) = (/&
245 & 0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/)
246 GB15( 8, 2,:) = (/&
247 & 0.12058772E-01_JPRB, 0.12108524E+00_JPRB, 0.10000000E+01_JPRB/)
248
249 !----- INTERVAL = 1 ----- T = 287.5
250
251 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
252 GA15( 9, 1,:) = (/&
253 & 0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/)
254 GB15( 9, 1,:) = (/&
255 & 0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/)
256 GA15( 9, 2,:) = (/&
257 & 0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/)
258 GB15( 9, 2,:) = (/&
259 & 0.12623992E-01_JPRB, 0.12084229E+00_JPRB, 0.10000000E+01_JPRB/)
260
261 !----- INTERVAL = 1 ----- T = 300.0
262
263 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
264 GA15(10, 1,:) = (/&
265 & 0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/)
266 GB15(10, 1,:) = (/&
267 & 0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/)
268 GA15(10, 2,:) = (/&
269 & 0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/)
270 GB15(10, 2,:) = (/&
271 & 0.13108146E-01_JPRB, 0.12019005E+00_JPRB, 0.10000000E+01_JPRB/)
272
273 !----- INTERVAL = 1 ----- T = 312.5
274
275 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
276 GA15(11, 1,:) = (/&
277 & 0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/)
278 GB15(11, 1,:) = (/&
279 & 0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/)
280 GA15(11, 2,:) = (/&
281 & 0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/)
282 GB15(11, 2,:) = (/&
283 & 0.13518390E-01_JPRB, 0.11932684E+00_JPRB, 0.10000000E+01_JPRB/)
284
285 !--- WATER VAPOR --- INTERVAL 2 -- 500-800 CM-1--- FROM ABS225 ---------
286
287 !--- R.D. --- G = 0.02 + 0.50 / ( 1 + 4.5 U )
288
289 !----- INTERVAL = 2 ----- T = 187.5
290
291 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
292 GA15( 1, 3,:) = (/&
293 & 0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/)
294 GB15( 1, 3,:) = (/&
295 & 0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/)
296 GA15( 1, 4,:) = (/&
297 & 0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/)
298 GB15( 1, 4,:) = (/&
299 & 0.12006968E+01_JPRB, 0.10626130E+01_JPRB, 0.10000000E+01_JPRB/)
300
301 !----- INTERVAL = 2 ----- T = 200.0
302
303 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
304 GA15( 2, 3,:) = (/&
305 & 0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/)
306 GB15( 2, 3,:) = (/&
307 & 0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/)
308 GA15( 2, 4,:) = (/&
309 & 0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/)
310 GB15( 2, 4,:) = (/&
311 & 0.12108196E+01_JPRB, 0.10716026E+01_JPRB, 0.10000000E+01_JPRB/)
312
313 !----- INTERVAL = 2 ----- T = 212.5
314
315 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
316 GA15( 3, 3,:) = (/&
317 & 0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/)
318 GB15( 3, 3,:) = (/&
319 & 0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/)
320 GA15( 3, 4,:) = (/&
321 & 0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/)
322 GB15( 3, 4,:) = (/&
323 & 0.12196717E+01_JPRB, 0.10795108E+01_JPRB, 0.10000000E+01_JPRB/)
324
325 !----- INTERVAL = 2 ----- T = 225.0
326
327 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
328 GA15( 4, 3,:) = (/&
329 & 0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/)
330 GB15( 4, 3,:) = (/&
331 & 0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/)
332 GA15( 4, 4,:) = (/&
333 & 0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/)
334 GB15( 4, 4,:) = (/&
335 & 0.12274493E+01_JPRB, 0.10865006E+01_JPRB, 0.10000000E+01_JPRB/)
336
337 !----- INTERVAL = 2 ----- T = 237.5
338
339 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
340 GA15( 5, 3,:) = (/&
341 & 0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/)
342 GB15( 5, 3,:) = (/&
343 & 0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/)
344 GA15( 5, 4,:) = (/&
345 & 0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/)
346 GB15( 5, 4,:) = (/&
347 & 0.12343189E+01_JPRB, 0.10927103E+01_JPRB, 0.10000000E+01_JPRB/)
348
349 !----- INTERVAL = 2 ----- T = 250.0
350
351 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
352 GA15( 6, 3,:) = (/&
353 & 0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/)
354 GB15( 6, 3,:) = (/&
355 & 0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/)
356 GA15( 6, 4,:) = (/&
357 & 0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/)
358 GB15( 6, 4,:) = (/&
359 & 0.12404147E+01_JPRB, 0.10982489E+01_JPRB, 0.10000000E+01_JPRB/)
360
361 !----- INTERVAL = 2 ----- T = 262.5
362
363 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
364 GA15( 7, 3,:) = (/&
365 & 0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/)
366 GB15( 7, 3,:) = (/&
367 & 0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/)
368 GA15( 7, 4,:) = (/&
369 & 0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/)
370 GB15( 7, 4,:) = (/&
371 & 0.12458431E+01_JPRB, 0.11032019E+01_JPRB, 0.10000000E+01_JPRB/)
372
373 !----- INTERVAL = 2 ----- T = 275.0
374
375 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
376 GA15( 8, 3,:) = (/&
377 & 0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/)
378 GB15( 8, 3,:) = (/&
379 & 0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/)
380 GA15( 8, 4,:) = (/&
381 & 0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/)
382 GB15( 8, 4,:) = (/&
383 & 0.12506907E+01_JPRB, 0.11076379E+01_JPRB, 0.10000000E+01_JPRB/)
384
385 !----- INTERVAL = 2 ----- T = 287.5
386
387 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
388 GA15( 9, 3,:) = (/&
389 & 0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/)
390 GB15( 9, 3,:) = (/&
391 & 0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/)
392 GA15( 9, 4,:) = (/&
393 & 0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/)
394 GB15( 9, 4,:) = (/&
395 & 0.12550299E+01_JPRB, 0.11116160E+01_JPRB, 0.10000000E+01_JPRB/)
396
397 !----- INTERVAL = 2 ----- T = 300.0
398
399 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
400 GA15(10, 3,:) = (/&
401 & 0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/)
402 GB15(10, 3,:) = (/&
403 & 0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/)
404 GA15(10, 4,:) = (/&
405 & 0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/)
406 GB15(10, 4,:) = (/&
407 & 0.12589256E+01_JPRB, 0.11151910E+01_JPRB, 0.10000000E+01_JPRB/)
408
409 !----- INTERVAL = 2 ----- T = 312.5
410
411 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
412 GA15(11, 3,:) = (/&
413 & 0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/)
414 GB15(11, 3,:) = (/&
415 & 0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/)
416 GA15(11, 4,:) = (/&
417 & 0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/)
418 GB15(11, 4,:) = (/&
419 & 0.12624402E+01_JPRB, 0.11184188E+01_JPRB, 0.10000000E+01_JPRB/)
420
421 !- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 -- FIT FROM 215 IS -
422
423 !-- WATER VAPOR LINES IN THE WINDOW REGION (800-1250 CM-1)
424
425 !--- G = 3.875E-03 ---------------
426
427 !----- INTERVAL = 3 ----- T = 187.5
428
429 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
430 GA15( 1, 7,:) = (/&
431 & 0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/)
432 GB15( 1, 7,:) = (/&
433 & 0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/)
434 GA15( 1, 8,:) = (/&
435 & 0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/)
436 GB15( 1, 8,:) = (/&
437 & 0.92439050E+01_JPRB, 0.79342219E+01_JPRB, 0.10000000E+01_JPRB/)
438
439 !----- INTERVAL = 3 ----- T = 200.0
440
441 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
442 GA15( 2, 7,:) = (/&
443 & 0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/)
444 GB15( 2, 7,:) = (/&
445 & 0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/)
446 GA15( 2, 8,:) = (/&
447 & 0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/)
448 GB15( 2, 8,:) = (/&
449 & 0.87567422E+01_JPRB, 0.77373458E+01_JPRB, 0.10000000E+01_JPRB/)
450
451 !----- INTERVAL = 3 ----- T = 212.5
452
453 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
454 GA15( 3, 7,:) = (/&
455 & 0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/)
456 GB15( 3, 7,:) = (/&
457 & 0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/)
458 GA15( 3, 8,:) = (/&
459 & 0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/)
460 GB15( 3, 8,:) = (/&
461 & 0.83270144E+01_JPRB, 0.75467334E+01_JPRB, 0.10000000E+01_JPRB/)
462
463 !----- INTERVAL = 3 ----- T = 225.0
464
465 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
466 GA15( 4, 7,:) = (/&
467 & 0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/)
468 GB15( 4, 7,:) = (/&
469 & 0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/)
470 GA15( 4, 8,:) = (/&
471 & 0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/)
472 GB15( 4, 8,:) = (/&
473 & 0.79528337E+01_JPRB, 0.73661786E+01_JPRB, 0.10000000E+01_JPRB/)
474
475 !----- INTERVAL = 3 ----- T = 237.5
476
477 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
478 GA15( 5, 7,:) = (/&
479 & 0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/)
480 GB15( 5, 7,:) = (/&
481 & 0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/)
482 GA15( 5, 8,:) = (/&
483 & 0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/)
484 GB15( 5, 8,:) = (/&
485 & 0.76286839E+01_JPRB, 0.71974319E+01_JPRB, 0.10000000E+01_JPRB/)
486
487 !----- INTERVAL = 3 ----- T = 250.0
488
489 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
490 GA15( 6, 7,:) = (/&
491 & 0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/)
492 GB15( 6, 7,:) = (/&
493 & 0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/)
494 GA15( 6, 8,:) = (/&
495 & 0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/)
496 GB15( 6, 8,:) = (/&
497 & 0.73477879E+01_JPRB, 0.70408543E+01_JPRB, 0.10000000E+01_JPRB/)
498
499 !----- INTERVAL = 3 ----- T = 262.5
500
501 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
502 GA15( 7, 7,:) = (/&
503 & 0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/)
504 GB15( 7, 7,:) = (/&
505 & 0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/)
506 GA15( 7, 8,:) = (/&
507 & 0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/)
508 GB15( 7, 8,:) = (/&
509 & 0.71035818E+01_JPRB, 0.68960649E+01_JPRB, 0.10000000E+01_JPRB/)
510
511 !----- INTERVAL = 3 ----- T = 275.0
512
513 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
514 GA15( 8, 7,:) = (/&
515 & 0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/)
516 GB15( 8, 7,:) = (/&
517 & 0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/)
518 GA15( 8, 8,:) = (/&
519 & 0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/)
520 GB15( 8, 8,:) = (/&
521 & 0.68903312E+01_JPRB, 0.67623672E+01_JPRB, 0.10000000E+01_JPRB/)
522
523 !----- INTERVAL = 3 ----- T = 287.5
524
525 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
526 GA15( 9, 7,:) = (/&
527 & 0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/)
528 GB15( 9, 7,:) = (/&
529 & 0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/)
530 GA15( 9, 8,:) = (/&
531 & 0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/)
532 GB15( 9, 8,:) = (/&
533 & 0.67032875E+01_JPRB, 0.66389989E+01_JPRB, 0.10000000E+01_JPRB/)
534
535 !----- INTERVAL = 3 ----- T = 300.0
536
537 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
538 GA15(10, 7,:) = (/&
539 & 0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/)
540 GB15(10, 7,:) = (/&
541 & 0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/)
542 GA15(10, 8,:) = (/&
543 & 0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/)
544 GB15(10, 8,:) = (/&
545 & 0.65386461E+01_JPRB, 0.65252707E+01_JPRB, 0.10000000E+01_JPRB/)
546
547 !----- INTERVAL = 3 ----- T = 312.5
548
549 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
550 GA15(11, 7,:) = (/&
551 & 0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/)
552 GB15(11, 7,:) = (/&
553 & 0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/)
554 GA15(11, 8,:) = (/&
555 & 0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/)
556 GB15(11, 8,:) = (/&
557 & 0.63934377E+01_JPRB, 0.64206412E+01_JPRB, 0.10000000E+01_JPRB/)
558
559 !-- WATER VAPOR -- 970-1110 CM-1 ----------------------------------------
560
561 !-- G = 3.6E-03
562
563 !----- INTERVAL = 4 ----- T = 187.5
564
565 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
566 GA15( 1, 9,:) = (/&
567 & 0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/)
568 GB15( 1, 9,:) = (/&
569 & 0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/)
570 GA15( 1,10,:) = (/&
571 & 0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/)
572 GB15( 1,10,:) = (/&
573 & 0.24586283E+02_JPRB, 0.10605856E+02_JPRB, 0.10000000E+01_JPRB/)
574
575 !----- INTERVAL = 4 ----- T = 200.0
576
577 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
578 GA15( 2, 9,:) = (/&
579 & 0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/)
580 GB15( 2, 9,:) = (/&
581 & 0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/)
582 GA15( 2,10,:) = (/&
583 & 0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/)
584 GB15( 2,10,:) = (/&
585 & 0.24441465E+02_JPRB, 0.10579514E+02_JPRB, 0.10000000E+01_JPRB/)
586
587 !----- INTERVAL = 4 ----- T = 212.5
588
589 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
590 GA15( 3, 9,:) = (/&
591 & 0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/)
592 GB15( 3, 9,:) = (/&
593 & 0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/)
594 GA15( 3,10,:) = (/&
595 & 0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/)
596 GB15( 3,10,:) = (/&
597 & 0.24311657E+02_JPRB, 0.10555632E+02_JPRB, 0.10000000E+01_JPRB/)
598
599 !----- INTERVAL = 4 ----- T = 225.0
600
601 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
602 GA15( 4, 9,:) = (/&
603 & 0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/)
604 GB15( 4, 9,:) = (/&
605 & 0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/)
606 GA15( 4,10,:) = (/&
607 & 0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/)
608 GB15( 4,10,:) = (/&
609 & 0.24196167E+02_JPRB, 0.10534169E+02_JPRB, 0.10000000E+01_JPRB/)
610
611 !----- INTERVAL = 4 ----- T = 237.5
612
613 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
614 GA15( 5, 9,:) = (/&
615 & 0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/)
616 GB15( 5, 9,:) = (/&
617 & 0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/)
618 GA15( 5,10,:) = (/&
619 & 0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/)
620 GB15( 5,10,:) = (/&
621 & 0.24093406E+02_JPRB, 0.10514900E+02_JPRB, 0.10000000E+01_JPRB/)
622
623 !----- INTERVAL = 4 ----- T = 250.0
624
625 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
626 GA15( 6, 9,:) = (/&
627 & 0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/)
628 GB15( 6, 9,:) = (/&
629 & 0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/)
630 GA15( 6,10,:) = (/&
631 & 0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/)
632 GB15( 6,10,:) = (/&
633 & 0.24001597E+02_JPRB, 0.10497547E+02_JPRB, 0.10000000E+01_JPRB/)
634
635 !----- INTERVAL = 4 ----- T = 262.5
636
637 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
638 GA15( 7, 9,:) = (/&
639 & 0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/)
640 GB15( 7, 9,:) = (/&
641 & 0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/)
642 GA15( 7,10,:) = (/&
643 & 0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/)
644 GB15( 7,10,:) = (/&
645 & 0.23919098E+02_JPRB, 0.10481842E+02_JPRB, 0.10000000E+01_JPRB/)
646
647 !----- INTERVAL = 4 ----- T = 275.0
648
649 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
650 GA15( 8, 9,:) = (/&
651 & 0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/)
652 GB15( 8, 9,:) = (/&
653 & 0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/)
654 GA15( 8,10,:) = (/&
655 & 0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/)
656 GB15( 8,10,:) = (/&
657 & 0.23844511E+02_JPRB, 0.10467553E+02_JPRB, 0.10000000E+01_JPRB/)
658
659 !----- INTERVAL = 4 ----- T = 287.5
660
661 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
662 GA15( 9, 9,:) = (/&
663 & 0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/)
664 GB15( 9, 9,:) = (/&
665 & 0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/)
666 GA15( 9,10,:) = (/&
667 & 0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/)
668 GB15( 9,10,:) = (/&
669 & 0.23776708E+02_JPRB, 0.10454488E+02_JPRB, 0.10000000E+01_JPRB/)
670
671 !----- INTERVAL = 4 ----- T = 300.0
672
673 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
674 GA15(10, 9,:) = (/&
675 & 0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/)
676 GB15(10, 9,:) = (/&
677 & 0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/)
678 GA15(10,10,:) = (/&
679 & 0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/)
680 GB15(10,10,:) = (/&
681 & 0.23714816E+02_JPRB, 0.10442501E+02_JPRB, 0.10000000E+01_JPRB/)
682
683 !----- INTERVAL = 4 ----- T = 312.5
684
685 !-- INDICES FOR PADE APPROXIMATION 1 28 37 45
686 GA15(11, 9,:) = (/&
687 & 0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/)
688 GB15(11, 9,:) = (/&
689 & 0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/)
690 GA15(11,10,:) = (/&
691 & 0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/)
692 GB15(11,10,:) = (/&
693 & 0.23658197E+02_JPRB, 0.10431483E+02_JPRB, 0.10000000E+01_JPRB/)
694
695 !-- H2O -- WEAKER PARTS OF THE STRONG BANDS -- FROM ABS225 ----
696
697 !-- WATER VAPOR --- 350 - 500 CM-1
698
699 !-- G = - 0.2*SLA, 0.0 +0.5/(1+0.5U)
700
701 !----- INTERVAL = 5 ----- T = 187.5
702
703 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
704 GA15( 1, 5,:) = (/&
705 & 0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/)
706 GB15( 1, 5,:) = (/&
707 & 0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/)
708 GA15( 1, 6,:) = (/&
709 & 0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/)
710 GB15( 1, 6,:) = (/&
711 & 0.17770551E+00_JPRB, 0.41646579E+00_JPRB, 0.10000000E+01_JPRB/)
712
713 !----- INTERVAL = 5 ----- T = 200.0
714
715 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
716 GA15( 2, 5,:) = (/&
717 & 0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/)
718 GB15( 2, 5,:) = (/&
719 & 0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/)
720 GA15( 2, 6,:) = (/&
721 & 0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/)
722 GB15( 2, 6,:) = (/&
723 & 0.18176757E+00_JPRB, 0.42345095E+00_JPRB, 0.10000000E+01_JPRB/)
724
725 !----- INTERVAL = 5 ----- T = 212.5
726
727 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
728 GA15( 3, 5,:) = (/&
729 & 0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/)
730 GB15( 3, 5,:) = (/&
731 & 0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/)
732 GA15( 3, 6,:) = (/&
733 & 0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/)
734 GB15( 3, 6,:) = (/&
735 & 0.18527967E+00_JPRB, 0.42937476E+00_JPRB, 0.10000000E+01_JPRB/)
736
737 !----- INTERVAL = 5 ----- T = 225.0
738
739 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
740 GA15( 4, 5,:) = (/&
741 & 0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/)
742 GB15( 4, 5,:) = (/&
743 & 0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/)
744 GA15( 4, 6,:) = (/&
745 & 0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/)
746 GB15( 4, 6,:) = (/&
747 & 0.18833348E+00_JPRB, 0.43444062E+00_JPRB, 0.10000000E+01_JPRB/)
748
749 !----- INTERVAL = 5 ----- T = 237.5
750
751 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
752 GA15( 5, 5,:) = (/&
753 & 0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/)
754 GB15( 5, 5,:) = (/&
755 & 0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/)
756 GA15( 5, 6,:) = (/&
757 & 0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/)
758 GB15( 5, 6,:) = (/&
759 & 0.19100108E+00_JPRB, 0.43880316E+00_JPRB, 0.10000000E+01_JPRB/)
760
761 !----- INTERVAL = 5 ----- T = 250.0
762
763 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
764 GA15( 6, 5,:) = (/&
765 & 0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/)
766 GB15( 6, 5,:) = (/&
767 & 0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/)
768 GA15( 6, 6,:) = (/&
769 & 0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/)
770 GB15( 6, 6,:) = (/&
771 & 0.19334122E+00_JPRB, 0.44258354E+00_JPRB, 0.10000000E+01_JPRB/)
772
773 !----- INTERVAL = 5 ----- T = 262.5
774
775 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
776 GA15( 7, 5,:) = (/&
777 & 0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/)
778 GB15( 7, 5,:) = (/&
779 & 0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/)
780 GA15( 7, 6,:) = (/&
781 & 0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/)
782 GB15( 7, 6,:) = (/&
783 & 0.19540288E+00_JPRB, 0.44587882E+00_JPRB, 0.10000000E+01_JPRB/)
784
785 !----- INTERVAL = 5 ----- T = 275.0
786
787 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
788 GA15( 8, 5,:) = (/&
789 & 0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/)
790 GB15( 8, 5,:) = (/&
791 & 0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/)
792 GA15( 8, 6,:) = (/&
793 & 0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/)
794 GB15( 8, 6,:) = (/&
795 & 0.19722732E+00_JPRB, 0.44876776E+00_JPRB, 0.10000000E+01_JPRB/)
796
797 !----- INTERVAL = 5 ----- T = 287.5
798
799 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
800 GA15( 9, 5,:) = (/&
801 & 0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/)
802 GB15( 9, 5,:) = (/&
803 & 0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/)
804 GA15( 9, 6,:) = (/&
805 & 0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/)
806 GB15( 9, 6,:) = (/&
807 & 0.19884918E+00_JPRB, 0.45131451E+00_JPRB, 0.10000000E+01_JPRB/)
808
809 !----- INTERVAL = 5 ----- T = 300.0
810
811 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
812 GA15(10, 5,:) = (/&
813 & 0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/)
814 GB15(10, 5,:) = (/&
815 & 0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/)
816 GA15(10, 6,:) = (/&
817 & 0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/)
818 GB15(10, 6,:) = (/&
819 & 0.20029696E+00_JPRB, 0.45357095E+00_JPRB, 0.10000000E+01_JPRB/)
820
821 !----- INTERVAL = 5 ----- T = 312.5
822
823 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
824 GA15(11, 5,:) = (/&
825 & 0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/)
826 GB15(11, 5,:) = (/&
827 & 0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/)
828 GA15(11, 6,:) = (/&
829 & 0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/)
830 GB15(11, 6,:) = (/&
831 & 0.20159300E+00_JPRB, 0.45557797E+00_JPRB, 0.10000000E+01_JPRB/)
832
833 !- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
834 !--- G = 0.0
835
836 !----- INTERVAL = 6 ----- T = 187.5
837
838 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
839 GA15( 1,11,:) = (/&
840 & 0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/)
841 GB15( 1,11,:) = (/&
842 & 0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/)
843 GA15( 1,12,:) = (/&
844 & 0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/)
845 GB15( 1,12,:) = (/&
846 & 0.79709806E+01_JPRB, 0.18377807E+02_JPRB, 0.10000000E+01_JPRB/)
847
848 !----- INTERVAL = 6 ----- T = 200.0
849
850 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
851 GA15( 2,11,:) = (/&
852 & 0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/)
853 GB15( 2,11,:) = (/&
854 & 0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/)
855 GA15( 2,12,:) = (/&
856 & 0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/)
857 GB15( 2,12,:) = (/&
858 & 0.75400737E+01_JPRB, 0.17643148E+02_JPRB, 0.10000000E+01_JPRB/)
859
860 !----- INTERVAL = 6 ----- T = 212.5
861
862 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
863 GA15( 3,11,:) = (/&
864 & 0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/)
865 GB15( 3,11,:) = (/&
866 & 0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/)
867 GA15( 3,12,:) = (/&
868 & 0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/)
869 GB15( 3,12,:) = (/&
870 & 0.81804377E+01_JPRB, 0.19296161E+02_JPRB, 0.10000000E+01_JPRB/)
871
872 !----- INTERVAL = 6 ----- T = 225.0
873
874 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
875 GA15( 4,11,:) = (/&
876 & 0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/)
877 GB15( 4,11,:) = (/&
878 & 0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/)
879 GA15( 4,12,:) = (/&
880 & 0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/)
881 GB15( 4,12,:) = (/&
882 & 0.10564339E+02_JPRB, 0.24951120E+02_JPRB, 0.10000000E+01_JPRB/)
883
884 !----- INTERVAL = 6 ----- T = 237.5
885
886 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
887 GA15( 5,11,:) = (/&
888 & 0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/)
889 GB15( 5,11,:) = (/&
890 & 0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/)
891 GA15( 5,12,:) = (/&
892 & 0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/)
893 GB15( 5,12,:) = (/&
894 & 0.46896789E+02_JPRB, 0.10957372E+03_JPRB, 0.10000000E+01_JPRB/)
895
896 !----- INTERVAL = 6 ----- T = 250.0
897
898 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
899 GA15( 6,11,:) = (/&
900 & 0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/)
901 GB15( 6,11,:) = (/&
902 & 0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/)
903 GA15( 6,12,:) = (/&
904 & -0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/)
905 GB15( 6,12,:) = (/&
906 & -0.30926524E+01_JPRB,-0.67432659E+01_JPRB, 0.10000000E+01_JPRB/)
907
908 !----- INTERVAL = 6 ----- T = 262.5
909
910 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
911 GA15( 7,11,:) = (/&
912 & -0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/)
913 GB15( 7,11,:) = (/&
914 & -0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/)
915 GA15( 7,12,:) = (/&
916 & 0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/)
917 GB15( 7,12,:) = (/&
918 & 0.85742941E+00_JPRB, 0.24550746E+01_JPRB, 0.10000000E+01_JPRB/)
919
920 !----- INTERVAL = 6 ----- T = 275.0
921
922 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
923 GA15( 8,11,:) = (/&
924 & -0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/)
925 GB15( 8,11,:) = (/&
926 & -0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/)
927 GA15( 8,12,:) = (/&
928 & 0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/)
929 GB15( 8,12,:) = (/&
930 & 0.19164038E+01_JPRB, 0.49089917E+01_JPRB, 0.10000000E+01_JPRB/)
931
932 !----- INTERVAL = 6 ----- T = 287.5
933
934 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
935 GA15( 9,11,:) = (/&
936 & 0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/)
937 GB15( 9,11,:) = (/&
938 & 0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/)
939 GA15( 9,12,:) = (/&
940 & 0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/)
941 GB15( 9,12,:) = (/&
942 & 0.23513199E+01_JPRB, 0.59008712E+01_JPRB, 0.10000000E+01_JPRB/)
943
944 !----- INTERVAL = 6 ----- T = 300.0
945
946 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
947 GA15(10,11,:) = (/&
948 & 0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/)
949 GB15(10,11,:) = (/&
950 & 0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/)
951 GA15(10,12,:) = (/&
952 & 0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/)
953 GB15(10,12,:) = (/&
954 & 0.25566644E+01_JPRB, 0.63532616E+01_JPRB, 0.10000000E+01_JPRB/)
955
956 !----- INTERVAL = 6 ----- T = 312.5
957
958 !-- INDICES FOR PADE APPROXIMATION 1 35 40 45
959 GA15(11,11,:) = (/&
960 & 0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/)
961 GB15(11,11,:) = (/&
962 & 0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/)
963 GA15(11,12,:) = (/&
964 & 0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/)
965 GB15(11,12,:) = (/&
966 & 0.26555181E+01_JPRB, 0.65558627E+01_JPRB, 0.10000000E+01_JPRB/)
967
968 !-- END WATER VAPOR
969
970 !-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ----------------------
971
972 !-- FIU = 0.8 + MAX(0.35,(7-IU)*0.9) , X/T, 9
973
974 !----- INTERVAL = 2 ----- T = 187.5
975
976 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
977 GA15( 1,13,:) = (/&
978 & 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
979 GB15( 1,13,:) = (/&
980 & 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
981 GA15( 1,14,:) = (/&
982 & 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
983 GB15( 1,14,:) = (/&
984 & 0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)
985
986 !----- INTERVAL = 2 ----- T = 200.0
987
988 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
989 GA15( 2,13,:) = (/&
990 & 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
991 GB15( 2,13,:) = (/&
992 & 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
993 GA15( 2,14,:) = (/&
994 & 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
995 GB15( 2,14,:) = (/&
996 & 0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)
997
998 !----- INTERVAL = 2 ----- T = 212.5
999
1000 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1001 GA15( 3,13,:) = (/&
1002 & 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
1003 GB15( 3,13,:) = (/&
1004 & 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
1005 GA15( 3,14,:) = (/&
1006 & 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
1007 GB15( 3,14,:) = (/&
1008 & 0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)
1009
1010 !----- INTERVAL = 2 ----- T = 225.0
1011
1012 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1013 GA15( 4,13,:) = (/&
1014 & 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
1015 GB15( 4,13,:) = (/&
1016 & 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
1017 GA15( 4,14,:) = (/&
1018 & 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
1019 GB15( 4,14,:) = (/&
1020 & 0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)
1021
1022 !----- INTERVAL = 2 ----- T = 237.5
1023
1024 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1025 GA15( 5,13,:) = (/&
1026 & 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
1027 GB15( 5,13,:) = (/&
1028 & 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
1029 GA15( 5,14,:) = (/&
1030 & 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
1031 GB15( 5,14,:) = (/&
1032 & 0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)
1033
1034 !----- INTERVAL = 2 ----- T = 250.0
1035
1036 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1037 GA15( 6,13,:) = (/&
1038 & 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
1039 GB15( 6,13,:) = (/&
1040 & 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
1041 GA15( 6,14,:) = (/&
1042 & 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
1043 GB15( 6,14,:) = (/&
1044 & 0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)
1045
1046 !----- INTERVAL = 2 ----- T = 262.5
1047
1048 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1049 GA15( 7,13,:) = (/&
1050 & 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
1051 GB15( 7,13,:) = (/&
1052 & 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
1053 GA15( 7,14,:) = (/&
1054 & 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
1055 GB15( 7,14,:) = (/&
1056 & 0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)
1057
1058 !----- INTERVAL = 2 ----- T = 275.0
1059
1060 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1061 GA15( 8,13,:) = (/&
1062 & 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
1063 GB15( 8,13,:) = (/&
1064 & 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
1065 GA15( 8,14,:) = (/&
1066 & 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
1067 GB15( 8,14,:) = (/&
1068 & 0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)
1069
1070 !----- INTERVAL = 2 ----- T = 287.5
1071
1072 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1073 GA15( 9,13,:) = (/&
1074 & 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
1075 GB15( 9,13,:) = (/&
1076 & 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
1077 GA15( 9,14,:) = (/&
1078 & 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
1079 GB15( 9,14,:) = (/&
1080 & 0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)
1081
1082 !----- INTERVAL = 2 ----- T = 300.0
1083
1084 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1085 GA15(10,13,:) = (/&
1086 & 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
1087 GB15(10,13,:) = (/&
1088 & 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
1089 GA15(10,14,:) = (/&
1090 & 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
1091 GB15(10,14,:) = (/&
1092 & 0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)
1093
1094 !----- INTERVAL = 2 ----- T = 312.5
1095
1096 !-- INDICES FOR PADE APPROXIMATION 1 30 38 45
1097 GA15(11,13,:) = (/&
1098 & 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
1099 GB15(11,13,:) = (/&
1100 & 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
1101 GA15(11,14,:) = (/&
1102 & 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
1103 GB15(11,14,:) = (/&
1104 & 0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)
1105
1106 !-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
1107
1108 !-- G = 0.0
1109
1110 !----- INTERVAL = 4 ----- T = 187.5
1111
1112 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1113 GA15( 1,15,:) = (/&
1114 & 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
1115 GB15( 1,15,:) = (/&
1116 & 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
1117 GA15( 1,16,:) = (/&
1118 & 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
1119 GB15( 1,16,:) = (/&
1120 & 0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)
1121
1122 !----- INTERVAL = 4 ----- T = 200.0
1123
1124 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1125 GA15( 2,15,:) = (/&
1126 & 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
1127 GB15( 2,15,:) = (/&
1128 & 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
1129 GA15( 2,16,:) = (/&
1130 & 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
1131 GB15( 2,16,:) = (/&
1132 & 0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)
1133
1134 !----- INTERVAL = 4 ----- T = 212.5
1135
1136 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1137 GA15( 3,15,:) = (/&
1138 & 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
1139 GB15( 3,15,:) = (/&
1140 & 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
1141 GA15( 3,16,:) = (/&
1142 & 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
1143 GB15( 3,16,:) = (/&
1144 & 0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)
1145
1146 !----- INTERVAL = 4 ----- T = 225.0
1147
1148 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1149 GA15( 4,15,:) = (/&
1150 & 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
1151 GB15( 4,15,:) = (/&
1152 & 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
1153 GA15( 4,16,:) = (/&
1154 & 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
1155 GB15( 4,16,:) = (/&
1156 & 0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)
1157
1158 !----- INTERVAL = 4 ----- T = 237.5
1159
1160 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1161 GA15( 5,15,:) = (/&
1162 & 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
1163 GB15( 5,15,:) = (/&
1164 & 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
1165 GA15( 5,16,:) = (/&
1166 & 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
1167 GB15( 5,16,:) = (/&
1168 & 0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)
1169
1170 !----- INTERVAL = 4 ----- T = 250.0
1171
1172 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1173 GA15( 6,15,:) = (/&
1174 & 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
1175 GB15( 6,15,:) = (/&
1176 & 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
1177 GA15( 6,16,:) = (/&
1178 & 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
1179 GB15( 6,16,:) = (/&
1180 & 0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)
1181
1182 !----- INTERVAL = 4 ----- T = 262.5
1183
1184 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1185 GA15( 7,15,:) = (/&
1186 & 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
1187 GB15( 7,15,:) = (/&
1188 & 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
1189 GA15( 7,16,:) = (/&
1190 & 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
1191 GB15( 7,16,:) = (/&
1192 & 0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)
1193
1194 !----- INTERVAL = 4 ----- T = 275.0
1195
1196 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1197 GA15( 8,15,:) = (/&
1198 & 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
1199 GB15( 8,15,:) = (/&
1200 & 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
1201 GA15( 8,16,:) = (/&
1202 & 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
1203 GB15( 8,16,:) = (/&
1204 & 0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)
1205
1206 !----- INTERVAL = 4 ----- T = 287.5
1207
1208 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1209 GA15( 9,15,:) = (/&
1210 & 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
1211 GB15( 9,15,:) = (/&
1212 & 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
1213 GA15( 9,16,:) = (/&
1214 & 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
1215 GB15( 9,16,:) = (/&
1216 & 0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)
1217
1218 !----- INTERVAL = 4 ----- T = 300.0
1219
1220 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1221 GA15(10,15,:) = (/&
1222 & 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
1223 GB15(10,15,:) = (/&
1224 & 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
1225 GA15(10,16,:) = (/&
1226 & 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
1227 GB15(10,16,:) = (/&
1228 & 0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)
1229
1230 !----- INTERVAL = 4 ----- T = 312.5
1231
1232 !-- INDICES FOR PADE APPROXIMATION 1 15 29 45
1233 GA15(11,15,:) = (/&
1234 & 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
1235 GB15(11,15,:) = (/&
1236 & 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
1237 GA15(11,16,:) = (/&
1238 & 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
1239 GB15(11,16,:) = (/&
1240 & 0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
1241
1242 IF (LHOOK) CALL DR_HOOK('SULW15',1,ZHOOK_HANDLE)
1243 END SUBROUTINE SULW15
1244