LMDZ
sulw15.F90
Go to the documentation of this file.
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
yomlw15::nint15
integer(kind=jpim) nint15
Definition: yomlw15.F90:15
yomlw15::nipd15
integer(kind=jpim) nipd15
Definition: yomlw15.F90:16
sulw15
subroutine sulw15
Definition: sulw15.F90:3
yomlw15::rt115
real(kind=jprb), dimension(2) rt115
Definition: yomlw15.F90:32
yomlw15::ga15
real(kind=jprb), dimension(11, 16, 3) ga15
Definition: yomlw15.F90:26
yomlw15::mxixt15
integer(kind=jpim) mxixt15
Definition: yomlw15.F90:14
yomlw15::rvgco215
real(kind=jprb) rvgco215
Definition: yomlw15.F90:39
yomlw15::o1h15
real(kind=jprb) o1h15
Definition: yomlw15.F90:29
yomlw15::ntra15
integer(kind=jpim) ntra15
Definition: yomlw15.F90:19
yomlw15::at15
real(kind=jprb), dimension(8, 3) at15
Definition: yomlw15.F90:23
yomlw15::tref15
real(kind=jprb) tref15
Definition: yomlw15.F90:34
yomlw15::gb15
real(kind=jprb), dimension(11, 16, 3) gb15
Definition: yomlw15.F90:27
yomlw15::xp15
real(kind=jprb), dimension(6, 6) xp15
Definition: yomlw15.F90:38
yomlw15::tintp15
real(kind=jprb), dimension(11) tintp15
Definition: yomlw15.F90:33
yomlw15::tstand15
real(kind=jprb) tstand15
Definition: yomlw15.F90:35
yomlw15::wg115
real(kind=jprb), dimension(2) wg115
Definition: yomlw15.F90:37
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:31
yomlw15::bt15
real(kind=jprb), dimension(8, 3) bt15
Definition: yomlw15.F90:24
yomlw15::ng115
integer(kind=jpim) ng115
Definition: yomlw15.F90:21
yomhook::lhook
logical lhook
Definition: yomhook.F90:12
yomhook::dr_hook
subroutine dr_hook(CDNAME, KSWITCH, PKEY)
Definition: yomhook.F90:17
yomlw15::rntnu15
real(kind=jprb), dimension(4) rntnu15
Definition: yomlw15.F90:25
yomlw15::rpialf015
real(kind=jprb) rpialf015
Definition: yomlw15.F90:31
yomlw15::rvgh2o15
real(kind=jprb) rvgh2o15
Definition: yomlw15.F90:40
yomlw15::ntr15
integer(kind=jpim) ntr15
Definition: yomlw15.F90:18
parkind1::jpim
integer, parameter jpim
Definition: parkind1.F90:13
yomlw15::nua15
integer(kind=jpim) nua15
Definition: yomlw15.F90:20
yomlw15::o2h15
real(kind=jprb) o2h15
Definition: yomlw15.F90:30
yomlw15::ng1p115
integer(kind=jpim) ng1p115
Definition: yomlw15.F90:22
yomlw15::tstp15
real(kind=jprb) tstp15
Definition: yomlw15.F90:36
yomlw15::rvgo315
real(kind=jprb) rvgo315
Definition: yomlw15.F90:41
yomlw15::nipd215
integer(kind=jpim) nipd215
Definition: yomlw15.F90:17
yomlw15::oct15
real(kind=jprb), dimension(4) oct15
Definition: yomlw15.F90:28