source: LMDZ6/branches/IPSL-CM6A-MR/libf/phymar/sulw.F90 @ 3807

Last change on this file since 3807 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 43.3 KB
Line 
1SUBROUTINE 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
45USE 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
53IMPLICIT NONE
54
55
56!      ----------------------------------------------------------------
57
58!*       1.    SET VALUES.
59!              -----------
60
61NG1=2
62NG1P1=NG1+1
63NSIL=6
64NIPD=8
65NIPD2=2*NIPD
66NTR=11
67NTRA=15
68NUA=24
69
70
71!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
72
73RVGCO2= 60._JPRB
74RVGH2O= 30._JPRB
75RVGO3 =400._JPRB
76
77
78
79
80
81!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
82!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
83TSTAND = 250.0_JPRB
84TREF   = 250.0_JPRB
85
86!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
87RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
88WG1 = (/  _ONE_        ,  _ONE_         /)
89
90!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
91TSTP = 12.5_JPRB
92MXIXT= 10
93
94!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
95TINTP = (/ 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
101XP( :, 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/)
104XP( :, 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/)
107XP( :, 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/)
110XP( :, 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/)
113XP( :, 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/)
116XP( :, 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
122ALWT(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /)
123BLWT(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /)
124ALWT(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /)
125BLWT(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /)
126ALWT(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /)
127BLWT(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /)
128ALWT(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /)
129BLWT(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /)
130ALWT(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /)
131BLWT(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /)
132ALWT(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /)
133BLWT(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /)
134ALWT(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
135BLWT(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
136ALWT(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
137BLWT(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
138
139!--  COEFFICIENTS FOR OZONE ABSORPTION
140RO1H = 2230._JPRB
141RO2H = 100._JPRB
142RPIALF0 = 2._JPRB
143RO3T(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /)
144
145!--  COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
146
147RNTNU(:) = (/   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
164PDGA( 1, 1,:) = (/&
165 &0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/)
166PDGB( 1, 1,:) = (/&
167 &0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/)
168PDGA( 1, 2,:) = (/&
169 &0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/)
170PDGB( 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
176PDGA( 2, 1,:) = (/&
177 &0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/)
178PDGB( 2, 1,:) = (/&
179 &0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/)
180PDGA( 2, 2,:) = (/&
181 &0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/)
182PDGB( 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
188PDGA( 3, 1,:) = (/&
189 &0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/)
190PDGB( 3, 1,:) = (/&
191 &0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/)
192PDGA( 3, 2,:) = (/&
193 &0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/)
194PDGB( 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
200PDGA( 4, 1,:) = (/&
201 &0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/)
202PDGB( 4, 1,:) = (/&
203 &0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/)
204PDGA( 4, 2,:) = (/&
205 &0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/)
206PDGB( 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
212PDGA( 5, 1,:) = (/&
213 &0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/)
214PDGB( 5, 1,:) = (/&
215 &0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/)
216PDGA( 5, 2,:) = (/&
217 &0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/)
218PDGB( 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
224PDGA( 6, 1,:) = (/&
225 &0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/)
226PDGB( 6, 1,:) = (/&
227 &0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/)
228PDGA( 6, 2,:) = (/&
229 &0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/)
230PDGB( 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
236PDGA( 7, 1,:) = (/&
237 &0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/)
238PDGB( 7, 1,:) = (/&
239 &0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/)
240PDGA( 7, 2,:) = (/&
241 &0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/)
242PDGB( 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
248PDGA( 8, 1,:) = (/&
249 &0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/)
250PDGB( 8, 1,:) = (/&
251 &0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/)
252PDGA( 8, 2,:) = (/&
253 &0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/)
254PDGB( 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
260PDGA( 9, 1,:) = (/&
261 &0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/)
262PDGB( 9, 1,:) = (/&
263 &0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/)
264PDGA( 9, 2,:) = (/&
265 &0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/)
266PDGB( 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
272PDGA(10, 1,:) = (/&
273 &0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/)
274PDGB(10, 1,:) = (/&
275 &0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/)
276PDGA(10, 2,:) = (/&
277 &0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/)
278PDGB(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
284PDGA(11, 1,:) = (/&
285 &0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/)
286PDGB(11, 1,:) = (/&
287 &0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/)
288PDGA(11, 2,:) = (/&
289 &0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/)
290PDGB(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
306PDGA( 1, 3,:) = (/&
307 &0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/)
308PDGB( 1, 3,:) = (/&
309 &0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/)
310PDGA( 1, 4,:) = (/&
311 &0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/)
312PDGB( 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
318PDGA( 2, 3,:) = (/&
319 &0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/)
320PDGB( 2, 3,:) = (/&
321 &0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/)
322PDGA( 2, 4,:) = (/&
323 &0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/)
324PDGB( 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
330PDGA( 3, 3,:) = (/&
331 &0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/)
332PDGB( 3, 3,:) = (/&
333 &0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/)
334PDGA( 3, 4,:) = (/&
335 &0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/)
336PDGB( 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
342PDGA( 4, 3,:) = (/&
343 &0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/)
344PDGB( 4, 3,:) = (/&
345 &0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/)
346PDGA( 4, 4,:) = (/&
347 &0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/)
348PDGB( 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
354PDGA( 5, 3,:) = (/&
355 &0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/)
356PDGB( 5, 3,:) = (/&
357 &0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/)
358PDGA( 5, 4,:) = (/&
359 &0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/)
360PDGB( 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
366PDGA( 6, 3,:) = (/&
367 &0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/)
368PDGB( 6, 3,:) = (/&
369 &0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/)
370PDGA( 6, 4,:) = (/&
371 &0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/)
372PDGB( 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
378PDGA( 7, 3,:) = (/&
379 &0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/)
380PDGB( 7, 3,:) = (/&
381 &0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/)
382PDGA( 7, 4,:) = (/&
383 &0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/)
384PDGB( 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
390PDGA( 8, 3,:) = (/&
391 &0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/)
392PDGB( 8, 3,:) = (/&
393 &0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/)
394PDGA( 8, 4,:) = (/&
395 &0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/)
396PDGB( 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
402PDGA( 9, 3,:) = (/&
403 &0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/)
404PDGB( 9, 3,:) = (/&
405 &0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/)
406PDGA( 9, 4,:) = (/&
407 &0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/)
408PDGB( 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
414PDGA(10, 3,:) = (/&
415 &0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/)
416PDGB(10, 3,:) = (/&
417 &0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/)
418PDGA(10, 4,:) = (/&
419 &0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/)
420PDGB(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
426PDGA(11, 3,:) = (/&
427 &0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/)
428PDGB(11, 3,:) = (/&
429 &0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/)
430PDGA(11, 4,:) = (/&
431 &0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/)
432PDGB(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
452PDGA( 1, 7,:) = (/&
453 &0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/)
454PDGB( 1, 7,:) = (/&
455 &0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/)
456PDGA( 1, 8,:) = (/&
457 &0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/)
458PDGB( 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
464PDGA( 2, 7,:) = (/&
465 &0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/)
466PDGB( 2, 7,:) = (/&
467 &0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/)
468PDGA( 2, 8,:) = (/&
469 &0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/)
470PDGB( 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
476PDGA( 3, 7,:) = (/&
477 &0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/)
478PDGB( 3, 7,:) = (/&
479 &0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/)
480PDGA( 3, 8,:) = (/&
481 &0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/)
482PDGB( 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
488PDGA( 4, 7,:) = (/&
489 &0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/)
490PDGB( 4, 7,:) = (/&
491 &0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/)
492PDGA( 4, 8,:) = (/&
493 &0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/)
494PDGB( 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
500PDGA( 5, 7,:) = (/&
501 &0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/)
502PDGB( 5, 7,:) = (/&
503 &0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/)
504PDGA( 5, 8,:) = (/&
505 &0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/)
506PDGB( 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
512PDGA( 6, 7,:) = (/&
513 &0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/)
514PDGB( 6, 7,:) = (/&
515 &0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/)
516PDGA( 6, 8,:) = (/&
517 &0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/)
518PDGB( 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
524PDGA( 7, 7,:) = (/&
525 &0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/)
526PDGB( 7, 7,:) = (/&
527 &0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/)
528PDGA( 7, 8,:) = (/&
529 &0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/)
530PDGB( 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
536PDGA( 8, 7,:) = (/&
537 &0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/)
538PDGB( 8, 7,:) = (/&
539 &0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/)
540PDGA( 8, 8,:) = (/&
541 &0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/)
542PDGB( 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
548PDGA( 9, 7,:) = (/&
549 &0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/)
550PDGB( 9, 7,:) = (/&
551 &0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/)
552PDGA( 9, 8,:) = (/&
553 &0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/)
554PDGB( 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
560PDGA(10, 7,:) = (/&
561 &0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/)
562PDGB(10, 7,:) = (/&
563 &0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/)
564PDGA(10, 8,:) = (/&
565 &0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/)
566PDGB(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
572PDGA(11, 7,:) = (/&
573 &0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/)
574PDGB(11, 7,:) = (/&
575 &0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/)
576PDGA(11, 8,:) = (/&
577 &0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/)
578PDGB(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
589PDGA( 1, 9,:) = (/&
590 &0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/)
591PDGB( 1, 9,:) = (/&
592 &0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/)
593PDGA( 1,10,:) = (/&
594 &0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/)
595PDGB( 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
601PDGA( 2, 9,:) = (/&
602 &0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/)
603PDGB( 2, 9,:) = (/&
604 &0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/)
605PDGA( 2,10,:) = (/&
606 &0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/)
607PDGB( 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
613PDGA( 3, 9,:) = (/&
614 &0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/)
615PDGB( 3, 9,:) = (/&
616 &0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/)
617PDGA( 3,10,:) = (/&
618 &0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/)
619PDGB( 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
625PDGA( 4, 9,:) = (/&
626 &0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/)
627PDGB( 4, 9,:) = (/&
628 &0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/)
629PDGA( 4,10,:) = (/&
630 &0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/)
631PDGB( 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
637PDGA( 5, 9,:) = (/&
638 &0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/)
639PDGB( 5, 9,:) = (/&
640 &0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/)
641PDGA( 5,10,:) = (/&
642 &0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/)
643PDGB( 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
649PDGA( 6, 9,:) = (/&
650 &0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/)
651PDGB( 6, 9,:) = (/&
652 &0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/)
653PDGA( 6,10,:) = (/&
654 &0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/)
655PDGB( 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
661PDGA( 7, 9,:) = (/&
662 &0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/)
663PDGB( 7, 9,:) = (/&
664 &0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/)
665PDGA( 7,10,:) = (/&
666 &0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/)
667PDGB( 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
673PDGA( 8, 9,:) = (/&
674 &0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/)
675PDGB( 8, 9,:) = (/&
676 &0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/)
677PDGA( 8,10,:) = (/&
678 &0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/)
679PDGB( 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
685PDGA( 9, 9,:) = (/&
686 &0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/)
687PDGB( 9, 9,:) = (/&
688 &0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/)
689PDGA( 9,10,:) = (/&
690 &0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/)
691PDGB( 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
697PDGA(10, 9,:) = (/&
698 &0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/)
699PDGB(10, 9,:) = (/&
700 &0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/)
701PDGA(10,10,:) = (/&
702 &0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/)
703PDGB(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
709PDGA(11, 9,:) = (/&
710 &0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/)
711PDGB(11, 9,:) = (/&
712 &0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/)
713PDGA(11,10,:) = (/&
714 &0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/)
715PDGB(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
729PDGA( 1, 5,:) = (/&
730 &0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/)
731PDGB( 1, 5,:) = (/&
732 &0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/)
733PDGA( 1, 6,:) = (/&
734 &0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/)
735PDGB( 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
741PDGA( 2, 5,:) = (/&
742 &0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/)
743PDGB( 2, 5,:) = (/&
744 &0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/)
745PDGA( 2, 6,:) = (/&
746 &0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/)
747PDGB( 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
753PDGA( 3, 5,:) = (/&
754 &0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/)
755PDGB( 3, 5,:) = (/&
756 &0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/)
757PDGA( 3, 6,:) = (/&
758 &0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/)
759PDGB( 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
765PDGA( 4, 5,:) = (/&
766 &0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/)
767PDGB( 4, 5,:) = (/&
768 &0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/)
769PDGA( 4, 6,:) = (/&
770 &0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/)
771PDGB( 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
777PDGA( 5, 5,:) = (/&
778 &0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/)
779PDGB( 5, 5,:) = (/&
780 &0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/)
781PDGA( 5, 6,:) = (/&
782 &0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/)
783PDGB( 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
789PDGA( 6, 5,:) = (/&
790 &0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/)
791PDGB( 6, 5,:) = (/&
792 &0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/)
793PDGA( 6, 6,:) = (/&
794 &0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/)
795PDGB( 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
801PDGA( 7, 5,:) = (/&
802 &0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/)
803PDGB( 7, 5,:) = (/&
804 &0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/)
805PDGA( 7, 6,:) = (/&
806 &0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/)
807PDGB( 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
813PDGA( 8, 5,:) = (/&
814 &0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/)
815PDGB( 8, 5,:) = (/&
816 &0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/)
817PDGA( 8, 6,:) = (/&
818 &0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/)
819PDGB( 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
825PDGA( 9, 5,:) = (/&
826 &0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/)
827PDGB( 9, 5,:) = (/&
828 &0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/)
829PDGA( 9, 6,:) = (/&
830 &0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/)
831PDGB( 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
837PDGA(10, 5,:) = (/&
838 &0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/)
839PDGB(10, 5,:) = (/&
840 &0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/)
841PDGA(10, 6,:) = (/&
842 &0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/)
843PDGB(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
849PDGA(11, 5,:) = (/&
850 &0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/)
851PDGB(11, 5,:) = (/&
852 &0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/)
853PDGA(11, 6,:) = (/&
854 &0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/)
855PDGB(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
868PDGA( 1,11,:) = (/&
869 &0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/)
870PDGB( 1,11,:) = (/&
871 &0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/)
872PDGA( 1,12,:) = (/&
873 &0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/)
874PDGB( 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
880PDGA( 2,11,:) = (/&
881 &0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/)
882PDGB( 2,11,:) = (/&
883 &0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/)
884PDGA( 2,12,:) = (/&
885 &0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/)
886PDGB( 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
892PDGA( 3,11,:) = (/&
893 &0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/)
894PDGB( 3,11,:) = (/&
895 &0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/)
896PDGA( 3,12,:) = (/&
897 &0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/)
898PDGB( 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
904PDGA( 4,11,:) = (/&
905 &0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/)
906PDGB( 4,11,:) = (/&
907 &0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/)
908PDGA( 4,12,:) = (/&
909 &0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/)
910PDGB( 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
916PDGA( 5,11,:) = (/&
917 &0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/)
918PDGB( 5,11,:) = (/&
919 &0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/)
920PDGA( 5,12,:) = (/&
921 &0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/)
922PDGB( 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
928PDGA( 6,11,:) = (/&
929 &0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/)
930PDGB( 6,11,:) = (/&
931 &0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/)
932PDGA( 6,12,:) = (/&
933&-0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/)
934PDGB( 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
940PDGA( 7,11,:) = (/&
941&-0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/)
942PDGB( 7,11,:) = (/&
943&-0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/)
944PDGA( 7,12,:) = (/&
945 &0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/)
946PDGB( 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
952PDGA( 8,11,:) = (/&
953&-0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/)
954PDGB( 8,11,:) = (/&
955&-0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/)
956PDGA( 8,12,:) = (/&
957 &0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/)
958PDGB( 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
964PDGA( 9,11,:) = (/&
965 &0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/)
966PDGB( 9,11,:) = (/&
967 &0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/)
968PDGA( 9,12,:) = (/&
969 &0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/)
970PDGB( 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
976PDGA(10,11,:) = (/&
977 &0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/)
978PDGB(10,11,:) = (/&
979 &0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/)
980PDGA(10,12,:) = (/&
981 &0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/)
982PDGB(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
988PDGA(11,11,:) = (/&
989 &0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/)
990PDGB(11,11,:) = (/&
991 &0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/)
992PDGA(11,12,:) = (/&
993 &0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/)
994PDGB(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
1013PDGA( 1,13,:) = (/&
1014 &0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
1015PDGB( 1,13,:) = (/&
1016 &0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
1017PDGA( 1,14,:) = (/&
1018 &0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
1019PDGB( 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
1025PDGA( 2,13,:) = (/&
1026 &0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
1027PDGB( 2,13,:) = (/&
1028 &0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
1029PDGA( 2,14,:) = (/&
1030 &0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
1031PDGB( 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
1037PDGA( 3,13,:) = (/&
1038 &0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
1039PDGB( 3,13,:) = (/&
1040 &0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
1041PDGA( 3,14,:) = (/&
1042 &0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
1043PDGB( 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
1049PDGA( 4,13,:) = (/&
1050 &0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
1051PDGB( 4,13,:) = (/&
1052 &0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
1053PDGA( 4,14,:) = (/&
1054 &0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
1055PDGB( 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
1061PDGA( 5,13,:) = (/&
1062 &0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
1063PDGB( 5,13,:) = (/&
1064 &0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
1065PDGA( 5,14,:) = (/&
1066 &0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
1067PDGB( 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
1073PDGA( 6,13,:) = (/&
1074 &0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
1075PDGB( 6,13,:) = (/&
1076 &0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
1077PDGA( 6,14,:) = (/&
1078 &0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
1079PDGB( 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
1085PDGA( 7,13,:) = (/&
1086 &0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
1087PDGB( 7,13,:) = (/&
1088 &0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
1089PDGA( 7,14,:) = (/&
1090 &0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
1091PDGB( 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
1097PDGA( 8,13,:) = (/&
1098 &0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
1099PDGB( 8,13,:) = (/&
1100 &0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
1101PDGA( 8,14,:) = (/&
1102 &0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
1103PDGB( 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
1109PDGA( 9,13,:) = (/&
1110 &0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
1111PDGB( 9,13,:) = (/&
1112 &0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
1113PDGA( 9,14,:) = (/&
1114 &0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
1115PDGB( 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
1121PDGA(10,13,:) = (/&
1122 &0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
1123PDGB(10,13,:) = (/&
1124 &0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
1125PDGA(10,14,:) = (/&
1126 &0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
1127PDGB(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
1133PDGA(11,13,:) = (/&
1134 &0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
1135PDGB(11,13,:) = (/&
1136 &0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
1137PDGA(11,14,:) = (/&
1138 &0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
1139PDGB(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
1160PDGA( 1,15,:) = (/&
1161 &0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
1162PDGB( 1,15,:) = (/&
1163 &0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
1164PDGA( 1,16,:) = (/&
1165 &0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
1166PDGB( 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
1172PDGA( 2,15,:) = (/&
1173 &0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
1174PDGB( 2,15,:) = (/&
1175 &0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
1176PDGA( 2,16,:) = (/&
1177 &0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
1178PDGB( 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
1184PDGA( 3,15,:) = (/&
1185 &0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
1186PDGB( 3,15,:) = (/&
1187 &0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
1188PDGA( 3,16,:) = (/&
1189 &0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
1190PDGB( 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
1196PDGA( 4,15,:) = (/&
1197 &0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
1198PDGB( 4,15,:) = (/&
1199 &0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
1200PDGA( 4,16,:) = (/&
1201 &0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
1202PDGB( 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
1208PDGA( 5,15,:) = (/&
1209 &0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
1210PDGB( 5,15,:) = (/&
1211 &0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
1212PDGA( 5,16,:) = (/&
1213 &0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
1214PDGB( 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
1220PDGA( 6,15,:) = (/&
1221 &0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
1222PDGB( 6,15,:) = (/&
1223 &0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
1224PDGA( 6,16,:) = (/&
1225 &0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
1226PDGB( 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
1232PDGA( 7,15,:) = (/&
1233 &0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
1234PDGB( 7,15,:) = (/&
1235 &0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
1236PDGA( 7,16,:) = (/&
1237 &0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
1238PDGB( 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
1244PDGA( 8,15,:) = (/&
1245 &0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
1246PDGB( 8,15,:) = (/&
1247 &0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
1248PDGA( 8,16,:) = (/&
1249 &0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
1250PDGB( 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
1256PDGA( 9,15,:) = (/&
1257 &0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
1258PDGB( 9,15,:) = (/&
1259 &0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
1260PDGA( 9,16,:) = (/&
1261 &0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
1262PDGB( 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
1268PDGA(10,15,:) = (/&
1269 &0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
1270PDGB(10,15,:) = (/&
1271 &0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
1272PDGA(10,16,:) = (/&
1273 &0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
1274PDGB(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
1280PDGA(11,15,:) = (/&
1281 &0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
1282PDGB(11,15,:) = (/&
1283 &0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
1284PDGA(11,16,:) = (/&
1285 &0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
1286PDGB(11,16,:) = (/&
1287 &0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
1288RETURN
1289END SUBROUTINE SULW
Note: See TracBrowser for help on using the repository browser.