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