source: LMDZ6/trunk/libf/phylmd/rrtm/sulw15.F90 @ 3513

Last change on this file since 3513 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 44.5 KB
Line 
1!OPTIONS XOPT(NOEVAL)
2SUBROUTINE 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
46USE PARKIND1  ,ONLY : JPIM     ,JPRB
47USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
48
49USE 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
56IMPLICIT NONE
57
58!      ----------------------------------------------------------------
59
60!*       1.    SET VALUES.
61!              -----------
62
63REAL(KIND=JPRB) :: ZHOOK_HANDLE
64IF (LHOOK) CALL DR_HOOK('SULW15',0,ZHOOK_HANDLE)
65NG115=2
66NG1P115=NG115+1
67NINT15=6
68NIPD15=8
69NIPD215=2*NIPD15
70NTR15=11
71NTRA15=15
72NUA15=24
73
74!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
75
76RVGCO215= 60._JPRB
77RVGH2O15= 30._JPRB
78RVGO315 =400._JPRB
79
80!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND15
81!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF15
82TSTAND15 = 250.0_JPRB
83TREF15   = 250.0_JPRB
84
85!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
86RT115 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
87WG115 = (/  1.0_JPRB        ,  1.0_JPRB         /)
88
89!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
90TSTP15 = 12.5_JPRB
91MXIXT15= 10
92
93!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
94TINTP15 = (/ 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
100XP15 = 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
117AT15(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /)
118BT15(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /)
119AT15(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /)
120BT15(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /)
121AT15(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /)
122BT15(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /)
123AT15(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /)
124BT15(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /)
125AT15(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /)
126BT15(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /)
127AT15(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /)
128BT15(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /)
129AT15(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
130BT15(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
131AT15(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
132BT15(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
133
134!--  COEFFICIENTS FOR OZONE ABSORPTION
135
136O1H15 = 2230._JPRB
137O2H15 = 100._JPRB
138RPIALF015 = 2._JPRB
139OCT15(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /)
140
141!--  COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
142
143RNTNU15(:) = (/   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
156GA15( 1, 1,:) = (/&
157 & 0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/) 
158GB15( 1, 1,:) = (/&
159 & 0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/) 
160GA15( 1, 2,:) = (/&
161 & 0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/) 
162GB15( 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
168GA15( 2, 1,:) = (/&
169 & 0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/) 
170GB15( 2, 1,:) = (/&
171 & 0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/) 
172GA15( 2, 2,:) = (/&
173 & 0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/) 
174GB15( 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
180GA15( 3, 1,:) = (/&
181 & 0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/) 
182GB15( 3, 1,:) = (/&
183 & 0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/) 
184GA15( 3, 2,:) = (/&
185 & 0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/) 
186GB15( 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
192GA15( 4, 1,:) = (/&
193 & 0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/) 
194GB15( 4, 1,:) = (/&
195 & 0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/) 
196GA15( 4, 2,:) = (/&
197 & 0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/) 
198GB15( 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
204GA15( 5, 1,:) = (/&
205 & 0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/) 
206GB15( 5, 1,:) = (/&
207 & 0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/) 
208GA15( 5, 2,:) = (/&
209 & 0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/) 
210GB15( 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
216GA15( 6, 1,:) = (/&
217 & 0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/) 
218GB15( 6, 1,:) = (/&
219 & 0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/) 
220GA15( 6, 2,:) = (/&
221 & 0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/) 
222GB15( 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
228GA15( 7, 1,:) = (/&
229 & 0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/) 
230GB15( 7, 1,:) = (/&
231 & 0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/) 
232GA15( 7, 2,:) = (/&
233 & 0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/) 
234GB15( 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
240GA15( 8, 1,:) = (/&
241 & 0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/) 
242GB15( 8, 1,:) = (/&
243 & 0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/) 
244GA15( 8, 2,:) = (/&
245 & 0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/) 
246GB15( 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
252GA15( 9, 1,:) = (/&
253 & 0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/) 
254GB15( 9, 1,:) = (/&
255 & 0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/) 
256GA15( 9, 2,:) = (/&
257 & 0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/) 
258GB15( 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
264GA15(10, 1,:) = (/&
265 & 0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/) 
266GB15(10, 1,:) = (/&
267 & 0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/) 
268GA15(10, 2,:) = (/&
269 & 0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/) 
270GB15(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
276GA15(11, 1,:) = (/&
277 & 0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/) 
278GB15(11, 1,:) = (/&
279 & 0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/) 
280GA15(11, 2,:) = (/&
281 & 0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/) 
282GB15(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
292GA15( 1, 3,:) = (/&
293 & 0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/) 
294GB15( 1, 3,:) = (/&
295 & 0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/) 
296GA15( 1, 4,:) = (/&
297 & 0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/) 
298GB15( 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
304GA15( 2, 3,:) = (/&
305 & 0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/) 
306GB15( 2, 3,:) = (/&
307 & 0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/) 
308GA15( 2, 4,:) = (/&
309 & 0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/) 
310GB15( 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
316GA15( 3, 3,:) = (/&
317 & 0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/) 
318GB15( 3, 3,:) = (/&
319 & 0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/) 
320GA15( 3, 4,:) = (/&
321 & 0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/) 
322GB15( 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
328GA15( 4, 3,:) = (/&
329 & 0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/) 
330GB15( 4, 3,:) = (/&
331 & 0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/) 
332GA15( 4, 4,:) = (/&
333 & 0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/) 
334GB15( 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
340GA15( 5, 3,:) = (/&
341 & 0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/) 
342GB15( 5, 3,:) = (/&
343 & 0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/) 
344GA15( 5, 4,:) = (/&
345 & 0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/) 
346GB15( 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
352GA15( 6, 3,:) = (/&
353 & 0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/) 
354GB15( 6, 3,:) = (/&
355 & 0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/) 
356GA15( 6, 4,:) = (/&
357 & 0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/) 
358GB15( 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
364GA15( 7, 3,:) = (/&
365 & 0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/) 
366GB15( 7, 3,:) = (/&
367 & 0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/) 
368GA15( 7, 4,:) = (/&
369 & 0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/) 
370GB15( 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
376GA15( 8, 3,:) = (/&
377 & 0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/) 
378GB15( 8, 3,:) = (/&
379 & 0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/) 
380GA15( 8, 4,:) = (/&
381 & 0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/) 
382GB15( 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
388GA15( 9, 3,:) = (/&
389 & 0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/) 
390GB15( 9, 3,:) = (/&
391 & 0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/) 
392GA15( 9, 4,:) = (/&
393 & 0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/) 
394GB15( 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
400GA15(10, 3,:) = (/&
401 & 0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/) 
402GB15(10, 3,:) = (/&
403 & 0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/) 
404GA15(10, 4,:) = (/&
405 & 0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/) 
406GB15(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
412GA15(11, 3,:) = (/&
413 & 0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/) 
414GB15(11, 3,:) = (/&
415 & 0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/) 
416GA15(11, 4,:) = (/&
417 & 0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/) 
418GB15(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
430GA15( 1, 7,:) = (/&
431 & 0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/) 
432GB15( 1, 7,:) = (/&
433 & 0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/) 
434GA15( 1, 8,:) = (/&
435 & 0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/) 
436GB15( 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
442GA15( 2, 7,:) = (/&
443 & 0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/) 
444GB15( 2, 7,:) = (/&
445 & 0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/) 
446GA15( 2, 8,:) = (/&
447 & 0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/) 
448GB15( 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
454GA15( 3, 7,:) = (/&
455 & 0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/) 
456GB15( 3, 7,:) = (/&
457 & 0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/) 
458GA15( 3, 8,:) = (/&
459 & 0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/) 
460GB15( 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
466GA15( 4, 7,:) = (/&
467 & 0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/) 
468GB15( 4, 7,:) = (/&
469 & 0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/) 
470GA15( 4, 8,:) = (/&
471 & 0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/) 
472GB15( 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
478GA15( 5, 7,:) = (/&
479 & 0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/) 
480GB15( 5, 7,:) = (/&
481 & 0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/) 
482GA15( 5, 8,:) = (/&
483 & 0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/) 
484GB15( 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
490GA15( 6, 7,:) = (/&
491 & 0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/) 
492GB15( 6, 7,:) = (/&
493 & 0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/) 
494GA15( 6, 8,:) = (/&
495 & 0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/) 
496GB15( 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
502GA15( 7, 7,:) = (/&
503 & 0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/) 
504GB15( 7, 7,:) = (/&
505 & 0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/) 
506GA15( 7, 8,:) = (/&
507 & 0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/) 
508GB15( 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
514GA15( 8, 7,:) = (/&
515 & 0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/) 
516GB15( 8, 7,:) = (/&
517 & 0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/) 
518GA15( 8, 8,:) = (/&
519 & 0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/) 
520GB15( 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
526GA15( 9, 7,:) = (/&
527 & 0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/) 
528GB15( 9, 7,:) = (/&
529 & 0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/) 
530GA15( 9, 8,:) = (/&
531 & 0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/) 
532GB15( 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
538GA15(10, 7,:) = (/&
539 & 0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/) 
540GB15(10, 7,:) = (/&
541 & 0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/) 
542GA15(10, 8,:) = (/&
543 & 0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/) 
544GB15(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
550GA15(11, 7,:) = (/&
551 & 0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/) 
552GB15(11, 7,:) = (/&
553 & 0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/) 
554GA15(11, 8,:) = (/&
555 & 0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/) 
556GB15(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
566GA15( 1, 9,:) = (/&
567 & 0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/) 
568GB15( 1, 9,:) = (/&
569 & 0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/) 
570GA15( 1,10,:) = (/&
571 & 0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/) 
572GB15( 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
578GA15( 2, 9,:) = (/&
579 & 0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/) 
580GB15( 2, 9,:) = (/&
581 & 0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/) 
582GA15( 2,10,:) = (/&
583 & 0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/) 
584GB15( 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
590GA15( 3, 9,:) = (/&
591 & 0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/) 
592GB15( 3, 9,:) = (/&
593 & 0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/) 
594GA15( 3,10,:) = (/&
595 & 0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/) 
596GB15( 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
602GA15( 4, 9,:) = (/&
603 & 0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/) 
604GB15( 4, 9,:) = (/&
605 & 0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/) 
606GA15( 4,10,:) = (/&
607 & 0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/) 
608GB15( 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
614GA15( 5, 9,:) = (/&
615 & 0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/) 
616GB15( 5, 9,:) = (/&
617 & 0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/) 
618GA15( 5,10,:) = (/&
619 & 0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/) 
620GB15( 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
626GA15( 6, 9,:) = (/&
627 & 0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/) 
628GB15( 6, 9,:) = (/&
629 & 0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/) 
630GA15( 6,10,:) = (/&
631 & 0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/) 
632GB15( 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
638GA15( 7, 9,:) = (/&
639 & 0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/) 
640GB15( 7, 9,:) = (/&
641 & 0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/) 
642GA15( 7,10,:) = (/&
643 & 0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/) 
644GB15( 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
650GA15( 8, 9,:) = (/&
651 & 0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/) 
652GB15( 8, 9,:) = (/&
653 & 0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/) 
654GA15( 8,10,:) = (/&
655 & 0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/) 
656GB15( 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
662GA15( 9, 9,:) = (/&
663 & 0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/) 
664GB15( 9, 9,:) = (/&
665 & 0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/) 
666GA15( 9,10,:) = (/&
667 & 0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/) 
668GB15( 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
674GA15(10, 9,:) = (/&
675 & 0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/) 
676GB15(10, 9,:) = (/&
677 & 0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/) 
678GA15(10,10,:) = (/&
679 & 0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/) 
680GB15(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
686GA15(11, 9,:) = (/&
687 & 0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/) 
688GB15(11, 9,:) = (/&
689 & 0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/) 
690GA15(11,10,:) = (/&
691 & 0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/) 
692GB15(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
704GA15( 1, 5,:) = (/&
705 & 0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/) 
706GB15( 1, 5,:) = (/&
707 & 0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/) 
708GA15( 1, 6,:) = (/&
709 & 0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/) 
710GB15( 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
716GA15( 2, 5,:) = (/&
717 & 0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/) 
718GB15( 2, 5,:) = (/&
719 & 0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/) 
720GA15( 2, 6,:) = (/&
721 & 0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/) 
722GB15( 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
728GA15( 3, 5,:) = (/&
729 & 0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/) 
730GB15( 3, 5,:) = (/&
731 & 0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/) 
732GA15( 3, 6,:) = (/&
733 & 0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/) 
734GB15( 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
740GA15( 4, 5,:) = (/&
741 & 0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/) 
742GB15( 4, 5,:) = (/&
743 & 0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/) 
744GA15( 4, 6,:) = (/&
745 & 0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/) 
746GB15( 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
752GA15( 5, 5,:) = (/&
753 & 0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/) 
754GB15( 5, 5,:) = (/&
755 & 0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/) 
756GA15( 5, 6,:) = (/&
757 & 0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/) 
758GB15( 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
764GA15( 6, 5,:) = (/&
765 & 0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/) 
766GB15( 6, 5,:) = (/&
767 & 0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/) 
768GA15( 6, 6,:) = (/&
769 & 0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/) 
770GB15( 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
776GA15( 7, 5,:) = (/&
777 & 0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/) 
778GB15( 7, 5,:) = (/&
779 & 0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/) 
780GA15( 7, 6,:) = (/&
781 & 0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/) 
782GB15( 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
788GA15( 8, 5,:) = (/&
789 & 0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/) 
790GB15( 8, 5,:) = (/&
791 & 0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/) 
792GA15( 8, 6,:) = (/&
793 & 0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/) 
794GB15( 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
800GA15( 9, 5,:) = (/&
801 & 0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/) 
802GB15( 9, 5,:) = (/&
803 & 0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/) 
804GA15( 9, 6,:) = (/&
805 & 0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/) 
806GB15( 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
812GA15(10, 5,:) = (/&
813 & 0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/) 
814GB15(10, 5,:) = (/&
815 & 0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/) 
816GA15(10, 6,:) = (/&
817 & 0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/) 
818GB15(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
824GA15(11, 5,:) = (/&
825 & 0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/) 
826GB15(11, 5,:) = (/&
827 & 0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/) 
828GA15(11, 6,:) = (/&
829 & 0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/) 
830GB15(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
839GA15( 1,11,:) = (/&
840 & 0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/) 
841GB15( 1,11,:) = (/&
842 & 0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/) 
843GA15( 1,12,:) = (/&
844 & 0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/) 
845GB15( 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
851GA15( 2,11,:) = (/&
852 & 0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/) 
853GB15( 2,11,:) = (/&
854 & 0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/) 
855GA15( 2,12,:) = (/&
856 & 0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/) 
857GB15( 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
863GA15( 3,11,:) = (/&
864 & 0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/) 
865GB15( 3,11,:) = (/&
866 & 0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/) 
867GA15( 3,12,:) = (/&
868 & 0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/) 
869GB15( 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
875GA15( 4,11,:) = (/&
876 & 0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/) 
877GB15( 4,11,:) = (/&
878 & 0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/) 
879GA15( 4,12,:) = (/&
880 & 0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/) 
881GB15( 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
887GA15( 5,11,:) = (/&
888 & 0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/) 
889GB15( 5,11,:) = (/&
890 & 0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/) 
891GA15( 5,12,:) = (/&
892 & 0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/) 
893GB15( 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
899GA15( 6,11,:) = (/&
900 & 0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/) 
901GB15( 6,11,:) = (/&
902 & 0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/) 
903GA15( 6,12,:) = (/&
904 & -0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/) 
905GB15( 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
911GA15( 7,11,:) = (/&
912 & -0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/) 
913GB15( 7,11,:) = (/&
914 & -0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/) 
915GA15( 7,12,:) = (/&
916 & 0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/) 
917GB15( 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
923GA15( 8,11,:) = (/&
924 & -0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/) 
925GB15( 8,11,:) = (/&
926 & -0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/) 
927GA15( 8,12,:) = (/&
928 & 0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/) 
929GB15( 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
935GA15( 9,11,:) = (/&
936 & 0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/) 
937GB15( 9,11,:) = (/&
938 & 0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/) 
939GA15( 9,12,:) = (/&
940 & 0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/) 
941GB15( 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
947GA15(10,11,:) = (/&
948 & 0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/) 
949GB15(10,11,:) = (/&
950 & 0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/) 
951GA15(10,12,:) = (/&
952 & 0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/) 
953GB15(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
959GA15(11,11,:) = (/&
960 & 0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/) 
961GB15(11,11,:) = (/&
962 & 0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/) 
963GA15(11,12,:) = (/&
964 & 0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/) 
965GB15(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
977GA15( 1,13,:) = (/&
978 & 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/) 
979GB15( 1,13,:) = (/&
980 & 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/) 
981GA15( 1,14,:) = (/&
982 & 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/) 
983GB15( 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
989GA15( 2,13,:) = (/&
990 & 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/) 
991GB15( 2,13,:) = (/&
992 & 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/) 
993GA15( 2,14,:) = (/&
994 & 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/) 
995GB15( 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
1001GA15( 3,13,:) = (/&
1002 & 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/) 
1003GB15( 3,13,:) = (/&
1004 & 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/) 
1005GA15( 3,14,:) = (/&
1006 & 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/) 
1007GB15( 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
1013GA15( 4,13,:) = (/&
1014 & 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/) 
1015GB15( 4,13,:) = (/&
1016 & 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/) 
1017GA15( 4,14,:) = (/&
1018 & 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/) 
1019GB15( 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
1025GA15( 5,13,:) = (/&
1026 & 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/) 
1027GB15( 5,13,:) = (/&
1028 & 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/) 
1029GA15( 5,14,:) = (/&
1030 & 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/) 
1031GB15( 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
1037GA15( 6,13,:) = (/&
1038 & 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/) 
1039GB15( 6,13,:) = (/&
1040 & 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/) 
1041GA15( 6,14,:) = (/&
1042 & 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/) 
1043GB15( 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
1049GA15( 7,13,:) = (/&
1050 & 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/) 
1051GB15( 7,13,:) = (/&
1052 & 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/) 
1053GA15( 7,14,:) = (/&
1054 & 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/) 
1055GB15( 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
1061GA15( 8,13,:) = (/&
1062 & 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/) 
1063GB15( 8,13,:) = (/&
1064 & 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/) 
1065GA15( 8,14,:) = (/&
1066 & 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/) 
1067GB15( 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
1073GA15( 9,13,:) = (/&
1074 & 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/) 
1075GB15( 9,13,:) = (/&
1076 & 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/) 
1077GA15( 9,14,:) = (/&
1078 & 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/) 
1079GB15( 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
1085GA15(10,13,:) = (/&
1086 & 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/) 
1087GB15(10,13,:) = (/&
1088 & 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/) 
1089GA15(10,14,:) = (/&
1090 & 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/) 
1091GB15(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
1097GA15(11,13,:) = (/&
1098 & 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/) 
1099GB15(11,13,:) = (/&
1100 & 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/) 
1101GA15(11,14,:) = (/&
1102 & 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/) 
1103GB15(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
1113GA15( 1,15,:) = (/&
1114 & 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/) 
1115GB15( 1,15,:) = (/&
1116 & 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/) 
1117GA15( 1,16,:) = (/&
1118 & 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/) 
1119GB15( 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
1125GA15( 2,15,:) = (/&
1126 & 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/) 
1127GB15( 2,15,:) = (/&
1128 & 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/) 
1129GA15( 2,16,:) = (/&
1130 & 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/) 
1131GB15( 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
1137GA15( 3,15,:) = (/&
1138 & 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/) 
1139GB15( 3,15,:) = (/&
1140 & 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/) 
1141GA15( 3,16,:) = (/&
1142 & 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/) 
1143GB15( 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
1149GA15( 4,15,:) = (/&
1150 & 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/) 
1151GB15( 4,15,:) = (/&
1152 & 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/) 
1153GA15( 4,16,:) = (/&
1154 & 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/) 
1155GB15( 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
1161GA15( 5,15,:) = (/&
1162 & 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/) 
1163GB15( 5,15,:) = (/&
1164 & 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/) 
1165GA15( 5,16,:) = (/&
1166 & 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/) 
1167GB15( 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
1173GA15( 6,15,:) = (/&
1174 & 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/) 
1175GB15( 6,15,:) = (/&
1176 & 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/) 
1177GA15( 6,16,:) = (/&
1178 & 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/) 
1179GB15( 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
1185GA15( 7,15,:) = (/&
1186 & 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/) 
1187GB15( 7,15,:) = (/&
1188 & 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/) 
1189GA15( 7,16,:) = (/&
1190 & 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/) 
1191GB15( 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
1197GA15( 8,15,:) = (/&
1198 & 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/) 
1199GB15( 8,15,:) = (/&
1200 & 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/) 
1201GA15( 8,16,:) = (/&
1202 & 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/) 
1203GB15( 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
1209GA15( 9,15,:) = (/&
1210 & 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/) 
1211GB15( 9,15,:) = (/&
1212 & 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/) 
1213GA15( 9,16,:) = (/&
1214 & 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/) 
1215GB15( 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
1221GA15(10,15,:) = (/&
1222 & 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/) 
1223GB15(10,15,:) = (/&
1224 & 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/) 
1225GA15(10,16,:) = (/&
1226 & 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/) 
1227GB15(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
1233GA15(11,15,:) = (/&
1234 & 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/) 
1235GB15(11,15,:) = (/&
1236 & 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/) 
1237GA15(11,16,:) = (/&
1238 & 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/) 
1239GB15(11,16,:) = (/&
1240 & 0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/) 
1241
1242IF (LHOOK) CALL DR_HOOK('SULW15',1,ZHOOK_HANDLE)
1243END SUBROUTINE SULW15
Note: See TracBrowser for help on using the repository browser.