source: LMDZ5/branches/LMDZ_tree_FC/libf/phymar/sulwn.F90 @ 3776

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 40.8 KB
Line 
1SUBROUTINE SULWN
2
3!**** *SULWN*   - INITIALIZE COMMON YOELW
4
5!     PURPOSE.
6!     --------
7!           INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
8!           NEEDED TO RUN THE LONGWAVE RADIATION ROUTINES
9
10!**   INTERFACE.
11!     ----------
12!        *CALL* *SULWN
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
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!        97-04-25 J.J. Morcrette Revised Continuum coefficients
42!        97-10-30 J.J. Morcrette cy18
43
44!     ------------------------------------------------------------------
45
46#include "tsmbkind.h"
47
48USE YOELW    , ONLY : MXIXT    ,NSIL     ,NIPD     ,NIPD2    ,&
49            &NTR      ,NTRA     ,NUA      ,NG1      ,NG1P1    ,&
50            &ALWT     ,BLWT     ,PDGA     ,PDGB     ,RPTYPE   ,&
51            &RETYPE   ,RO1H     ,RO2H     ,RO3T     ,RPIALF0  ,&
52            &RT1      ,TINTP    ,TREF     ,TSTAND   ,TSTP     ,&
53            &WG1      ,XP       ,RVGCO2   ,RVGH2O   ,RVGO3
54
55
56IMPLICIT NONE
57
58
59!     ------------------------------------------------------------------
60
61!*       1.    FILL BLOCK DATA
62!              ---------------
63
64!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
65
66TINTP = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB,  &
67 &250._JPRB,&
68           &262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)
69
70!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
71
72XP( :, 1) = (/&
73 &0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
74 &0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB/)
75XP( :, 2) = (/&
76 &0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
77 &-.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB/)
78XP( :, 3) = (/&
79 &0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
80 &0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB/)
81XP( :, 4) = (/&
82 &0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
83 &0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB/)
84XP( :, 5) = (/&
85 &0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
86&-0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB/)
87XP( :, 6) = (/&
88 &0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
89 &0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB/)
90
91!-----------------------------------------------------------------------
92!  PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
93
94
95!--- WATER VAPOUR FROM ZHONG & HAIGH  (revision3 96-11-15)
96
97!- H2O  0-350 cm-1
98
99
100!----- INTERVAL = 1 ----- T =    187.50
101
102PDGA( 1, 1,:) = (/&
103 &0.25000224E-02_JPRB, 0.18701843E-02_JPRB, 0.00000000E+00_JPRB/)
104PDGB( 1, 1,:) = (/&
105 &0.25000224E-02_JPRB, 0.61593968E-01_JPRB, 0.10000000E+01_JPRB/)
106PDGA( 1, 2,:) = (/&
107 &0.34131105E-02_JPRB, 0.55153039E-03_JPRB, 0.00000000E+00_JPRB/)
108PDGB( 1, 2,:) = (/&
109 &0.34131105E-02_JPRB, 0.73127832E-01_JPRB, 0.10000000E+01_JPRB/)
110
111!----- INTERVAL = 1 ----- T =    200.00
112
113PDGA( 2, 1,:) = (/&
114 &0.26344616E-02_JPRB, 0.16894582E-02_JPRB, 0.00000000E+00_JPRB/)
115PDGB( 2, 1,:) = (/&
116 &0.26344616E-02_JPRB, 0.63633167E-01_JPRB, 0.10000000E+01_JPRB/)
117PDGA( 2, 2,:) = (/&
118 &0.36120928E-02_JPRB, 0.44720171E-03_JPRB, 0.00000000E+00_JPRB/)
119PDGB( 2, 2,:) = (/&
120 &0.36120928E-02_JPRB, 0.75062171E-01_JPRB, 0.10000000E+01_JPRB/)
121
122!----- INTERVAL = 1 ----- T =    212.50
123
124PDGA( 3, 1,:) = (/&
125 &0.27743234E-02_JPRB, 0.15245487E-02_JPRB, 0.00000000E+00_JPRB/)
126PDGB( 3, 1,:) = (/&
127 &0.27743234E-02_JPRB, 0.65651733E-01_JPRB, 0.10000000E+01_JPRB/)
128PDGA( 3, 2,:) = (/&
129 &0.38453121E-02_JPRB, 0.42382776E-03_JPRB, 0.00000000E+00_JPRB/)
130PDGB( 3, 2,:) = (/&
131 &0.38453121E-02_JPRB, 0.77088315E-01_JPRB, 0.10000000E+01_JPRB/)
132
133!----- INTERVAL = 1 ----- T =    225.00
134
135PDGA( 4, 1,:) = (/&
136 &0.29265376E-02_JPRB, 0.13719090E-02_JPRB, 0.00000000E+00_JPRB/)
137PDGB( 4, 1,:) = (/&
138 &0.29265376E-02_JPRB, 0.67739270E-01_JPRB, 0.10000000E+01_JPRB/)
139PDGA( 4, 2,:) = (/&
140 &0.41211460E-02_JPRB, 0.42401401E-03_JPRB, 0.00000000E+00_JPRB/)
141PDGB( 4, 2,:) = (/&
142 &0.41211460E-02_JPRB, 0.79241307E-01_JPRB, 0.10000000E+01_JPRB/)
143
144!----- INTERVAL = 1 ----- T =    237.50
145
146PDGA( 5, 1,:) = (/&
147 &0.30979053E-02_JPRB, 0.12223308E-02_JPRB, 0.00000000E+00_JPRB/)
148PDGB( 5, 1,:) = (/&
149 &0.30979053E-02_JPRB, 0.69968340E-01_JPRB, 0.10000000E+01_JPRB/)
150PDGA( 5, 2,:) = (/&
151 &0.43966504E-02_JPRB, 0.67198946E-03_JPRB, 0.00000000E+00_JPRB/)
152PDGB( 5, 2,:) = (/&
153 &0.43966504E-02_JPRB, 0.80947310E-01_JPRB, 0.10000000E+01_JPRB/)
154
155!----- INTERVAL = 1 ----- T =    250.00
156
157PDGA( 6, 1,:) = (/&
158 &0.32813184E-02_JPRB, 0.11573810E-02_JPRB, 0.00000000E+00_JPRB/)
159PDGB( 6, 1,:) = (/&
160 &0.32813184E-02_JPRB, 0.72183750E-01_JPRB, 0.10000000E+01_JPRB/)
161PDGA( 6, 2,:) = (/&
162 &0.46792452E-02_JPRB, 0.99691013E-03_JPRB, 0.00000000E+00_JPRB/)
163PDGB( 6, 2,:) = (/&
164 &0.46792452E-02_JPRB, 0.82404099E-01_JPRB, 0.10000000E+01_JPRB/)
165
166!----- INTERVAL = 1 ----- T =    262.50
167
168PDGA( 7, 1,:) = (/&
169 &0.34869261E-02_JPRB, 0.11110812E-02_JPRB, 0.00000000E+00_JPRB/)
170PDGB( 7, 1,:) = (/&
171 &0.34869261E-02_JPRB, 0.74507149E-01_JPRB, 0.10000000E+01_JPRB/)
172PDGA( 7, 2,:) = (/&
173 &0.49313571E-02_JPRB, 0.15144806E-02_JPRB, 0.00000000E+00_JPRB/)
174PDGB( 7, 2,:) = (/&
175 &0.49313571E-02_JPRB, 0.83301687E-01_JPRB, 0.10000000E+01_JPRB/)
176
177!----- INTERVAL = 1 ----- T =    275.00
178
179PDGA( 8, 1,:) = (/&
180 &0.37169013E-02_JPRB, 0.10586459E-02_JPRB, 0.00000000E+00_JPRB/)
181PDGB( 8, 1,:) = (/&
182 &0.37169013E-02_JPRB, 0.76930655E-01_JPRB, 0.10000000E+01_JPRB/)
183PDGA( 8, 2,:) = (/&
184 &0.51606177E-02_JPRB, 0.20799953E-02_JPRB, 0.00000000E+00_JPRB/)
185PDGB( 8, 2,:) = (/&
186 &0.51606177E-02_JPRB, 0.83904484E-01_JPRB, 0.10000000E+01_JPRB/)
187
188!----- INTERVAL = 1 ----- T =    287.50
189
190PDGA( 9, 1,:) = (/&
191 &0.39482491E-02_JPRB, 0.11280761E-02_JPRB, 0.00000000E+00_JPRB/)
192PDGB( 9, 1,:) = (/&
193 &0.39482491E-02_JPRB, 0.79096624E-01_JPRB, 0.10000000E+01_JPRB/)
194PDGA( 9, 2,:) = (/&
195 &0.53608496E-02_JPRB, 0.26755638E-02_JPRB, 0.00000000E+00_JPRB/)
196PDGB( 9, 2,:) = (/&
197 &0.53608496E-02_JPRB, 0.84271466E-01_JPRB, 0.10000000E+01_JPRB/)
198
199!----- INTERVAL = 1 ----- T =    300.00
200
201PDGA(10, 1,:) = (/&
202 &0.41849825E-02_JPRB, 0.12500965E-02_JPRB, 0.00000000E+00_JPRB/)
203PDGB(10, 1,:) = (/&
204 &0.41849825E-02_JPRB, 0.81087000E-01_JPRB, 0.10000000E+01_JPRB/)
205PDGA(10, 2,:) = (/&
206 &0.55372909E-02_JPRB, 0.32512851E-02_JPRB, 0.00000000E+00_JPRB/)
207PDGB(10, 2,:) = (/&
208 &0.55372909E-02_JPRB, 0.84546756E-01_JPRB, 0.10000000E+01_JPRB/)
209
210!----- INTERVAL = 1 ----- T =    312.50
211
212PDGA(11, 1,:) = (/&
213 &0.44204714E-02_JPRB, 0.14195697E-02_JPRB, 0.00000000E+00_JPRB/)
214PDGB(11, 1,:) = (/&
215 &0.44204714E-02_JPRB, 0.82840020E-01_JPRB, 0.10000000E+01_JPRB/)
216PDGA(11, 2,:) = (/&
217 &0.56935299E-02_JPRB, 0.38054592E-02_JPRB, 0.00000000E+00_JPRB/)
218PDGB(11, 2,:) = (/&
219 &0.56935299E-02_JPRB, 0.84847060E-01_JPRB, 0.10000000E+01_JPRB/)
220
221
222!- H2O  500-800 cm-1
223
224!----- INTERVAL = 2 ----- T =    187.50
225
226PDGA( 1, 3,:) = (/&
227 &0.15053751E+01_JPRB, 0.45361026E+00_JPRB, 0.00000000E+00_JPRB/)
228PDGB( 1, 3,:) = (/&
229 &0.15053751E+01_JPRB, 0.15789584E+01_JPRB, 0.10000000E+01_JPRB/)
230PDGA( 1, 4,:) = (/&
231 &0.18920793E+01_JPRB, 0.53457554E+00_JPRB, 0.00000000E+00_JPRB/)
232PDGB( 1, 4,:) = (/&
233 &0.18920793E+01_JPRB, 0.18418304E+01_JPRB, 0.10000000E+01_JPRB/)
234
235!----- INTERVAL = 2 ----- T =    200.00
236
237PDGA( 2, 3,:) = (/&
238 &0.15977537E+01_JPRB, 0.48084314E+00_JPRB, 0.00000000E+00_JPRB/)
239PDGB( 2, 3,:) = (/&
240 &0.15977537E+01_JPRB, 0.16476468E+01_JPRB, 0.10000000E+01_JPRB/)
241PDGA( 2, 4,:) = (/&
242 &0.20435568E+01_JPRB, 0.55893717E+00_JPRB, 0.00000000E+00_JPRB/)
243PDGB( 2, 4,:) = (/&
244 &0.20435568E+01_JPRB, 0.19386656E+01_JPRB, 0.10000000E+01_JPRB/)
245
246!----- INTERVAL = 2 ----- T =    212.50
247
248PDGA( 3, 3,:) = (/&
249 &0.16913237E+01_JPRB, 0.50454053E+00_JPRB, 0.00000000E+00_JPRB/)
250PDGB( 3, 3,:) = (/&
251 &0.16913237E+01_JPRB, 0.17144170E+01_JPRB, 0.10000000E+01_JPRB/)
252PDGA( 3, 4,:) = (/&
253 &0.21978186E+01_JPRB, 0.57905459E+00_JPRB, 0.00000000E+00_JPRB/)
254PDGB( 3, 4,:) = (/&
255 &0.21978186E+01_JPRB, 0.20334044E+01_JPRB, 0.10000000E+01_JPRB/)
256
257!----- INTERVAL = 2 ----- T =    225.00
258
259PDGA( 4, 3,:) = (/&
260 &0.17856476E+01_JPRB, 0.52514194E+00_JPRB, 0.00000000E+00_JPRB/)
261PDGB( 4, 3,:) = (/&
262 &0.17856476E+01_JPRB, 0.17792823E+01_JPRB, 0.10000000E+01_JPRB/)
263PDGA( 4, 4,:) = (/&
264 &0.23533355E+01_JPRB, 0.59558005E+00_JPRB, 0.00000000E+00_JPRB/)
265PDGB( 4, 4,:) = (/&
266 &0.23533355E+01_JPRB, 0.21256517E+01_JPRB, 0.10000000E+01_JPRB/)
267
268!----- INTERVAL = 2 ----- T =    237.50
269
270PDGA( 5, 3,:) = (/&
271 &0.18802811E+01_JPRB, 0.54304459E+00_JPRB, 0.00000000E+00_JPRB/)
272PDGB( 5, 3,:) = (/&
273 &0.18802811E+01_JPRB, 0.18422412E+01_JPRB, 0.10000000E+01_JPRB/)
274PDGA( 5, 4,:) = (/&
275 &0.25086500E+01_JPRB, 0.60908958E+00_JPRB, 0.00000000E+00_JPRB/)
276PDGB( 5, 4,:) = (/&
277 &0.25086500E+01_JPRB, 0.22150389E+01_JPRB, 0.10000000E+01_JPRB/)
278
279!----- INTERVAL = 2 ----- T =    250.00
280
281PDGA( 6, 3,:) = (/&
282 &0.19747954E+01_JPRB, 0.55860186E+00_JPRB, 0.00000000E+00_JPRB/)
283PDGB( 6, 3,:) = (/&
284 &0.19747954E+01_JPRB, 0.19032856E+01_JPRB, 0.10000000E+01_JPRB/)
285PDGA( 6, 4,:) = (/&
286 &0.26624407E+01_JPRB, 0.62008317E+00_JPRB, 0.00000000E+00_JPRB/)
287PDGB( 6, 4,:) = (/&
288 &0.26624407E+01_JPRB, 0.23012482E+01_JPRB, 0.10000000E+01_JPRB/)
289
290!----- INTERVAL = 2 ----- T =    262.50
291
292PDGA( 7, 3,:) = (/&
293 &0.20687911E+01_JPRB, 0.57212480E+00_JPRB, 0.00000000E+00_JPRB/)
294PDGB( 7, 3,:) = (/&
295 &0.20687911E+01_JPRB, 0.19624068E+01_JPRB, 0.10000000E+01_JPRB/)
296PDGA( 7, 4,:) = (/&
297 &0.28135635E+01_JPRB, 0.62898892E+00_JPRB, 0.00000000E+00_JPRB/)
298PDGB( 7, 4,:) = (/&
299 &0.28135635E+01_JPRB, 0.23840281E+01_JPRB, 0.10000000E+01_JPRB/)
300
301!----- INTERVAL = 2 ----- T =    275.00
302
303PDGA( 8, 3,:) = (/&
304 &0.21619083E+01_JPRB, 0.58388519E+00_JPRB, 0.00000000E+00_JPRB/)
305PDGB( 8, 3,:) = (/&
306 &0.21619083E+01_JPRB, 0.20195993E+01_JPRB, 0.10000000E+01_JPRB/)
307PDGA( 8, 4,:) = (/&
308 &0.29610693E+01_JPRB, 0.63616954E+00_JPRB, 0.00000000E+00_JPRB/)
309PDGB( 8, 4,:) = (/&
310 &0.29610693E+01_JPRB, 0.24631984E+01_JPRB, 0.10000000E+01_JPRB/)
311
312!----- INTERVAL = 2 ----- T =    287.50
313
314PDGA( 9, 3,:) = (/&
315 &0.22538305E+01_JPRB, 0.59411934E+00_JPRB, 0.00000000E+00_JPRB/)
316PDGB( 9, 3,:) = (/&
317 &0.22538305E+01_JPRB, 0.20748638E+01_JPRB, 0.10000000E+01_JPRB/)
318PDGA( 9, 4,:) = (/&
319 &0.31042087E+01_JPRB, 0.64192944E+00_JPRB, 0.00000000E+00_JPRB/)
320PDGB( 9, 4,:) = (/&
321 &0.31042087E+01_JPRB, 0.25386513E+01_JPRB, 0.10000000E+01_JPRB/)
322
323!----- INTERVAL = 2 ----- T =    300.00
324
325PDGA(10, 3,:) = (/&
326 &0.23442867E+01_JPRB, 0.60303198E+00_JPRB, 0.00000000E+00_JPRB/)
327PDGB(10, 3,:) = (/&
328 &0.23442867E+01_JPRB, 0.21282086E+01_JPRB, 0.10000000E+01_JPRB/)
329PDGA(10, 4,:) = (/&
330 &0.32424163E+01_JPRB, 0.64652280E+00_JPRB, 0.00000000E+00_JPRB/)
331PDGB(10, 4,:) = (/&
332 &0.32424163E+01_JPRB, 0.26103424E+01_JPRB, 0.10000000E+01_JPRB/)
333
334!----- INTERVAL = 2 ----- T =    312.50
335
336PDGA(11, 3,:) = (/&
337 &0.24330507E+01_JPRB, 0.61080006E+00_JPRB, 0.00000000E+00_JPRB/)
338PDGB(11, 3,:) = (/&
339 &0.24330507E+01_JPRB, 0.21796505E+01_JPRB, 0.10000000E+01_JPRB/)
340PDGA(11, 4,:) = (/&
341 &0.33752974E+01_JPRB, 0.65016031E+00_JPRB, 0.00000000E+00_JPRB/)
342PDGB(11, 4,:) = (/&
343 &0.33752974E+01_JPRB, 0.26782849E+01_JPRB, 0.10000000E+01_JPRB/)
344
345
346!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1
347
348
349!----- INTERVAL = 3 ----- T =    187.50
350
351PDGA( 1, 7,:) = (/&
352 &0.14334746E+02_JPRB, 0.11649992E+02_JPRB, 0.00000000E+00_JPRB/)
353PDGB( 1, 7,:) = (/&
354 &0.14334746E+02_JPRB, 0.12059903E+02_JPRB, 0.10000000E+01_JPRB/)
355PDGA( 1, 8,:) = (/&
356 &0.11596027E+02_JPRB, 0.11051587E+02_JPRB, 0.00000000E+00_JPRB/)
357PDGB( 1, 8,:) = (/&
358 &0.11596027E+02_JPRB, 0.11390898E+02_JPRB, 0.10000000E+01_JPRB/)
359
360!----- INTERVAL = 3 ----- T =    200.00
361
362PDGA( 2, 7,:) = (/&
363 &0.12924521E+02_JPRB, 0.11365906E+02_JPRB, 0.00000000E+00_JPRB/)
364PDGB( 2, 7,:) = (/&
365 &0.12924521E+02_JPRB, 0.11739611E+02_JPRB, 0.10000000E+01_JPRB/)
366PDGA( 2, 8,:) = (/&
367 &0.10445365E+02_JPRB, 0.10682810E+02_JPRB, 0.00000000E+00_JPRB/)
368PDGB( 2, 8,:) = (/&
369 &0.10445365E+02_JPRB, 0.10993927E+02_JPRB, 0.10000000E+01_JPRB/)
370
371!----- INTERVAL = 3 ----- T =    212.50
372
373PDGA( 3, 7,:) = (/&
374 &0.11774060E+02_JPRB, 0.11080218E+02_JPRB, 0.00000000E+00_JPRB/)
375PDGB( 3, 7,:) = (/&
376 &0.11774060E+02_JPRB, 0.11424740E+02_JPRB, 0.10000000E+01_JPRB/)
377PDGA( 3, 8,:) = (/&
378 &0.95571840E+01_JPRB, 0.10328058E+02_JPRB, 0.00000000E+00_JPRB/)
379PDGB( 3, 8,:) = (/&
380 &0.95571840E+01_JPRB, 0.10618404E+02_JPRB, 0.10000000E+01_JPRB/)
381
382!----- INTERVAL = 3 ----- T =    225.00
383
384PDGA( 4, 7,:) = (/&
385 &0.10839967E+02_JPRB, 0.10800025E+02_JPRB, 0.00000000E+00_JPRB/)
386PDGB( 4, 7,:) = (/&
387 &0.10839967E+02_JPRB, 0.11121318E+02_JPRB, 0.10000000E+01_JPRB/)
388PDGA( 4, 8,:) = (/&
389 &0.88719975E+01_JPRB, 0.99930444E+01_JPRB, 0.00000000E+00_JPRB/)
390PDGB( 4, 8,:) = (/&
391 &0.88719975E+01_JPRB, 0.10268470E+02_JPRB, 0.10000000E+01_JPRB/)
392
393!----- INTERVAL = 3 ----- T =    237.50
394
395PDGA( 5, 7,:) = (/&
396 &0.10082160E+02_JPRB, 0.10529965E+02_JPRB, 0.00000000E+00_JPRB/)
397PDGB( 5, 7,:) = (/&
398 &0.10082160E+02_JPRB, 0.10832955E+02_JPRB, 0.10000000E+01_JPRB/)
399PDGA( 5, 8,:) = (/&
400 &0.83425443E+01_JPRB, 0.96805504E+01_JPRB, 0.00000000E+00_JPRB/)
401PDGB( 5, 8,:) = (/&
402 &0.83425443E+01_JPRB, 0.99456138E+01_JPRB, 0.10000000E+01_JPRB/)
403
404!----- INTERVAL = 3 ----- T =    250.00
405
406PDGA( 6, 7,:) = (/&
407 &0.94663507E+01_JPRB, 0.10272823E+02_JPRB, 0.00000000E+00_JPRB/)
408PDGB( 6, 7,:) = (/&
409 &0.94663507E+01_JPRB, 0.10561525E+02_JPRB, 0.10000000E+01_JPRB/)
410PDGA( 6, 8,:) = (/&
411 &0.79324712E+01_JPRB, 0.93914198E+01_JPRB, 0.00000000E+00_JPRB/)
412PDGB( 6, 8,:) = (/&
413 &0.79324712E+01_JPRB, 0.96496576E+01_JPRB, 0.10000000E+01_JPRB/)
414
415!----- INTERVAL = 3 ----- T =    262.50
416
417PDGA( 7, 7,:) = (/&
418 &0.89643981E+01_JPRB, 0.10030051E+02_JPRB, 0.00000000E+00_JPRB/)
419PDGB( 7, 7,:) = (/&
420 &0.89643981E+01_JPRB, 0.10307714E+02_JPRB, 0.10000000E+01_JPRB/)
421PDGA( 7, 8,:) = (/&
422 &0.76141974E+01_JPRB, 0.91252916E+01_JPRB, 0.00000000E+00_JPRB/)
423PDGB( 7, 8,:) = (/&
424 &0.76141974E+01_JPRB, 0.93794463E+01_JPRB, 0.10000000E+01_JPRB/)
425
426!----- INTERVAL = 3 ----- T =    275.00
427
428PDGA( 8, 7,:) = (/&
429 &0.85537123E+01_JPRB, 0.98021793E+01_JPRB, 0.00000000E+00_JPRB/)
430PDGB( 8, 7,:) = (/&
431 &0.85537123E+01_JPRB, 0.10071426E+02_JPRB, 0.10000000E+01_JPRB/)
432PDGA( 8, 8,:) = (/&
433 &0.73668729E+01_JPRB, 0.88811055E+01_JPRB, 0.00000000E+00_JPRB/)
434PDGB( 8, 8,:) = (/&
435 &0.73668729E+01_JPRB, 0.91333042E+01_JPRB, 0.10000000E+01_JPRB/)
436
437!----- INTERVAL = 3 ----- T =    287.50
438
439PDGA( 9, 7,:) = (/&
440 &0.82163567E+01_JPRB, 0.95891296E+01_JPRB, 0.00000000E+00_JPRB/)
441PDGB( 9, 7,:) = (/&
442 &0.82163567E+01_JPRB, 0.98520772E+01_JPRB, 0.10000000E+01_JPRB/)
443PDGA( 9, 8,:) = (/&
444 &0.71747025E+01_JPRB, 0.86574340E+01_JPRB, 0.00000000E+00_JPRB/)
445PDGB( 9, 8,:) = (/&
446 &0.71747025E+01_JPRB, 0.89093260E+01_JPRB, 0.10000000E+01_JPRB/)
447
448!----- INTERVAL = 3 ----- T =    300.00
449
450PDGA(10, 7,:) = (/&
451 &0.79381525E+01_JPRB, 0.93904375E+01_JPRB, 0.00000000E+00_JPRB/)
452PDGB(10, 7,:) = (/&
453 &0.79381525E+01_JPRB, 0.96487960E+01_JPRB, 0.10000000E+01_JPRB/)
454PDGA(10, 8,:) = (/&
455 &0.70256573E+01_JPRB, 0.84526940E+01_JPRB, 0.00000000E+00_JPRB/)
456PDGB(10, 8,:) = (/&
457 &0.70256573E+01_JPRB, 0.87055560E+01_JPRB, 0.10000000E+01_JPRB/)
458
459!----- INTERVAL = 3 ----- T =    312.50
460
461PDGA(11, 7,:) = (/&
462 &0.77078849E+01_JPRB, 0.92054098E+01_JPRB, 0.00000000E+00_JPRB/)
463PDGB(11, 7,:) = (/&
464 &0.77078849E+01_JPRB, 0.94605633E+01_JPRB, 0.10000000E+01_JPRB/)
465PDGA(11, 8,:) = (/&
466 &0.69105145E+01_JPRB, 0.82652769E+01_JPRB, 0.00000000E+00_JPRB/)
467PDGB(11, 8,:) = (/&
468 &0.69105145E+01_JPRB, 0.85200926E+01_JPRB, 0.10000000E+01_JPRB/)
469
470!-- WATER VAPOR --- 970 -1110 CM-1
471
472
473!----- INTERVAL = 4 ----- T =    187.500
474
475PDGA( 1, 9,:) = (/&
476 &0.94868790E+02_JPRB, 0.17437229E+02_JPRB, 0.00000000E+00_JPRB/)
477PDGB( 1, 9,:) = (/&
478 &0.94868790E+02_JPRB, 0.18796329E+02_JPRB, 0.10000000E+01_JPRB/)
479PDGA( 1,10,:) = (/&
480 &0.95419113E+02_JPRB, 0.17234291E+02_JPRB, 0.00000000E+00_JPRB/)
481PDGB( 1,10,:) = (/&
482 &0.95419113E+02_JPRB, 0.18632164E+02_JPRB, 0.10000000E+01_JPRB/)
483
484!----- INTERVAL = 4 ----- T =    200.000
485
486PDGA( 2, 9,:) = (/&
487 &0.95143959E+02_JPRB, 0.17335575E+02_JPRB, 0.00000000E+00_JPRB/)
488PDGB( 2, 9,:) = (/&
489 &0.95143959E+02_JPRB, 0.18714111E+02_JPRB, 0.10000000E+01_JPRB/)
490PDGA( 2,10,:) = (/&
491 &0.95675995E+02_JPRB, 0.17129913E+02_JPRB, 0.00000000E+00_JPRB/)
492PDGB( 2,10,:) = (/&
493 &0.95675995E+02_JPRB, 0.18547161E+02_JPRB, 0.10000000E+01_JPRB/)
494
495!----- INTERVAL = 4 ----- T =    212.500
496
497PDGA( 3, 9,:) = (/&
498 &0.95363609E+02_JPRB, 0.17245064E+02_JPRB, 0.00000000E+00_JPRB/)
499PDGB( 3, 9,:) = (/&
500 &0.95363609E+02_JPRB, 0.18640270E+02_JPRB, 0.10000000E+01_JPRB/)
501PDGA( 3,10,:) = (/&
502 &0.95911537E+02_JPRB, 0.17036016E+02_JPRB, 0.00000000E+00_JPRB/)
503PDGB( 3,10,:) = (/&
504 &0.95911537E+02_JPRB, 0.18470697E+02_JPRB, 0.10000000E+01_JPRB/)
505
506!----- INTERVAL = 4 ----- T =    225.000
507
508PDGA( 4, 9,:) = (/&
509 &0.95551239E+02_JPRB, 0.17163479E+02_JPRB, 0.00000000E+00_JPRB/)
510PDGB( 4, 9,:) = (/&
511 &0.95551239E+02_JPRB, 0.18573282E+02_JPRB, 0.10000000E+01_JPRB/)
512PDGA( 4,10,:) = (/&
513 &0.96128136E+02_JPRB, 0.16952074E+02_JPRB, 0.00000000E+00_JPRB/)
514PDGB( 4,10,:) = (/&
515 &0.96128136E+02_JPRB, 0.18402708E+02_JPRB, 0.10000000E+01_JPRB/)
516
517!----- INTERVAL = 4 ----- T =    237.500
518
519PDGA( 5, 9,:) = (/&
520 &0.95763680E+02_JPRB, 0.17089018E+02_JPRB, 0.00000000E+00_JPRB/)
521PDGB( 5, 9,:) = (/&
522 &0.95763680E+02_JPRB, 0.18513403E+02_JPRB, 0.10000000E+01_JPRB/)
523PDGA( 5,10,:) = (/&
524 &0.96294296E+02_JPRB, 0.16877150E+02_JPRB, 0.00000000E+00_JPRB/)
525PDGB( 5,10,:) = (/&
526 &0.96294296E+02_JPRB, 0.18341324E+02_JPRB, 0.10000000E+01_JPRB/)
527
528!----- INTERVAL = 4 ----- T =    250.000
529
530PDGA( 6, 9,:) = (/&
531 &0.95913246E+02_JPRB, 0.17022213E+02_JPRB, 0.00000000E+00_JPRB/)
532PDGB( 6, 9,:) = (/&
533 &0.95913246E+02_JPRB, 0.18458538E+02_JPRB, 0.10000000E+01_JPRB/)
534PDGA( 6,10,:) = (/&
535 &0.96462036E+02_JPRB, 0.16808561E+02_JPRB, 0.00000000E+00_JPRB/)
536PDGB( 6,10,:) = (/&
537 &0.96462036E+02_JPRB, 0.18285398E+02_JPRB, 0.10000000E+01_JPRB/)
538
539!----- INTERVAL = 4 ----- T =    262.500
540
541PDGA( 7, 9,:) = (/&
542 &0.96069473E+02_JPRB, 0.16961018E+02_JPRB, 0.00000000E+00_JPRB/)
543PDGB( 7, 9,:) = (/&
544 &0.96069473E+02_JPRB, 0.18408932E+02_JPRB, 0.10000000E+01_JPRB/)
545PDGA( 7,10,:) = (/&
546 &0.96610298E+02_JPRB, 0.16746571E+02_JPRB, 0.00000000E+00_JPRB/)
547PDGB( 7,10,:) = (/&
548 &0.96610298E+02_JPRB, 0.18234850E+02_JPRB, 0.10000000E+01_JPRB/)
549
550!----- INTERVAL = 4 ----- T =    275.000
551
552PDGA( 8, 9,:) = (/&
553 &0.96201309E+02_JPRB, 0.16905493E+02_JPRB, 0.00000000E+00_JPRB/)
554PDGB( 8, 9,:) = (/&
555 &0.96201309E+02_JPRB, 0.18363655E+02_JPRB, 0.10000000E+01_JPRB/)
556PDGA( 8,10,:) = (/&
557 &0.96754684E+02_JPRB, 0.16690109E+02_JPRB, 0.00000000E+00_JPRB/)
558PDGB( 8,10,:) = (/&
559 &0.96754684E+02_JPRB, 0.18189079E+02_JPRB, 0.10000000E+01_JPRB/)
560
561!----- INTERVAL = 4 ----- T =    287.500
562
563PDGA( 9, 9,:) = (/&
564 &0.96342339E+02_JPRB, 0.16853893E+02_JPRB, 0.00000000E+00_JPRB/)
565PDGB( 9, 9,:) = (/&
566 &0.96342339E+02_JPRB, 0.18321957E+02_JPRB, 0.10000000E+01_JPRB/)
567PDGA( 9,10,:) = (/&
568 &0.96883301E+02_JPRB, 0.16638573E+02_JPRB, 0.00000000E+00_JPRB/)
569PDGB( 9,10,:) = (/&
570 &0.96883301E+02_JPRB, 0.18147303E+02_JPRB, 0.10000000E+01_JPRB/)
571
572!----- INTERVAL = 4 ----- T =    300.000
573
574PDGA(10, 9,:) = (/&
575 &0.96457764E+02_JPRB, 0.16806755E+02_JPRB, 0.00000000E+00_JPRB/)
576PDGB(10, 9,:) = (/&
577 &0.96457764E+02_JPRB, 0.18283590E+02_JPRB, 0.10000000E+01_JPRB/)
578PDGA(10,10,:) = (/&
579 &0.96989792E+02_JPRB, 0.16591677E+02_JPRB, 0.00000000E+00_JPRB/)
580PDGB(10,10,:) = (/&
581 &0.96989792E+02_JPRB, 0.18108814E+02_JPRB, 0.10000000E+01_JPRB/)
582
583!----- INTERVAL = 4 ----- T =    312.500
584
585PDGA(11, 9,:) = (/&
586 &0.96549957E+02_JPRB, 0.16763689E+02_JPRB, 0.00000000E+00_JPRB/)
587PDGB(11, 9,:) = (/&
588 &0.96549957E+02_JPRB, 0.18248074E+02_JPRB, 0.10000000E+01_JPRB/)
589PDGA(11,10,:) = (/&
590 &0.97097275E+02_JPRB, 0.16548479E+02_JPRB, 0.00000000E+00_JPRB/)
591PDGB(11,10,:) = (/&
592 &0.97097275E+02_JPRB, 0.18073788E+02_JPRB, 0.10000000E+01_JPRB/)
593
594!-- WATER VAPOR -- INT.5 --  350- 500 CM-1
595
596
597!----- INTERVAL = 5 ----- T =    187.500
598
599PDGA( 1, 5,:) = (/&
600 &0.13134047E+00_JPRB,-0.23649048E-01_JPRB, 0.00000000E+00_JPRB/)
601PDGB( 1, 5,:) = (/&
602 &0.13134047E+00_JPRB, 0.54008597E+00_JPRB, 0.10000000E+01_JPRB/)
603PDGA( 1, 6,:) = (/&
604 &0.14049581E+00_JPRB,-0.26231026E-01_JPRB, 0.00000000E+00_JPRB/)
605PDGB( 1, 6,:) = (/&
606 &0.14049581E+00_JPRB, 0.54143775E+00_JPRB, 0.10000000E+01_JPRB/)
607
608!----- INTERVAL = 5 ----- T =    200.000
609
610PDGA( 2, 5,:) = (/&
611 &0.13330981E+00_JPRB,-0.24178915E-01_JPRB, 0.00000000E+00_JPRB/)
612PDGB( 2, 5,:) = (/&
613 &0.13330981E+00_JPRB, 0.54094988E+00_JPRB, 0.10000000E+01_JPRB/)
614PDGA( 2, 6,:) = (/&
615 &0.14229582E+00_JPRB,-0.26725627E-01_JPRB, 0.00000000E+00_JPRB/)
616PDGB( 2, 6,:) = (/&
617 &0.14229582E+00_JPRB, 0.54189402E+00_JPRB, 0.10000000E+01_JPRB/)
618
619!----- INTERVAL = 5 ----- T =    212.500
620
621PDGA( 3, 5,:) = (/&
622 &0.13504511E+00_JPRB,-0.24650861E-01_JPRB, 0.00000000E+00_JPRB/)
623PDGB( 3, 5,:) = (/&
624 &0.13504511E+00_JPRB, 0.54169583E+00_JPRB, 0.10000000E+01_JPRB/)
625PDGA( 3, 6,:) = (/&
626 &0.14384151E+00_JPRB,-0.27153090E-01_JPRB, 0.00000000E+00_JPRB/)
627PDGB( 3, 6,:) = (/&
628 &0.14384151E+00_JPRB, 0.54222512E+00_JPRB, 0.10000000E+01_JPRB/)
629
630!----- INTERVAL = 5 ----- T =    225.000
631
632PDGA( 4, 5,:) = (/&
633 &0.13651314E+00_JPRB,-0.25044570E-01_JPRB, 0.00000000E+00_JPRB/)
634PDGB( 4, 5,:) = (/&
635 &0.13651314E+00_JPRB, 0.54191625E+00_JPRB, 0.10000000E+01_JPRB/)
636PDGA( 4, 6,:) = (/&
637 &0.14517485E+00_JPRB,-0.27523417E-01_JPRB, 0.00000000E+00_JPRB/)
638PDGB( 4, 6,:) = (/&
639 &0.14517485E+00_JPRB, 0.54246801E+00_JPRB, 0.10000000E+01_JPRB/)
640
641!----- INTERVAL = 5 ----- T =    237.500
642
643PDGA( 5, 5,:) = (/&
644 &0.13790466E+00_JPRB,-0.25431205E-01_JPRB, 0.00000000E+00_JPRB/)
645PDGB( 5, 5,:) = (/&
646 &0.13790466E+00_JPRB, 0.54262739E+00_JPRB, 0.10000000E+01_JPRB/)
647PDGA( 5, 6,:) = (/&
648 &0.14633319E+00_JPRB,-0.27845515E-01_JPRB, 0.00000000E+00_JPRB/)
649PDGB( 5, 6,:) = (/&
650 &0.14633319E+00_JPRB, 0.54265642E+00_JPRB, 0.10000000E+01_JPRB/)
651
652!----- INTERVAL = 5 ----- T =    250.000
653
654PDGA( 6, 5,:) = (/&
655 &0.13909847E+00_JPRB,-0.25759069E-01_JPRB, 0.00000000E+00_JPRB/)
656PDGB( 6, 5,:) = (/&
657 &0.13909847E+00_JPRB, 0.54293746E+00_JPRB, 0.10000000E+01_JPRB/)
658PDGA( 6, 6,:) = (/&
659 &0.14734478E+00_JPRB,-0.28128289E-01_JPRB, 0.00000000E+00_JPRB/)
660PDGB( 6, 6,:) = (/&
661 &0.14734478E+00_JPRB, 0.54279846E+00_JPRB, 0.10000000E+01_JPRB/)
662
663!----- INTERVAL = 5 ----- T =    262.500
664
665PDGA( 7, 5,:) = (/&
666 &0.14014673E+00_JPRB,-0.26045626E-01_JPRB, 0.00000000E+00_JPRB/)
667PDGB( 7, 5,:) = (/&
668 &0.14014673E+00_JPRB, 0.54306209E+00_JPRB, 0.10000000E+01_JPRB/)
669PDGA( 7, 6,:) = (/&
670 &0.14823231E+00_JPRB,-0.28376250E-01_JPRB, 0.00000000E+00_JPRB/)
671PDGB( 7, 6,:) = (/&
672 &0.14823231E+00_JPRB, 0.54290944E+00_JPRB, 0.10000000E+01_JPRB/)
673
674!----- INTERVAL = 5 ----- T =    275.000
675
676PDGA( 8, 5,:) = (/&
677 &0.14110570E+00_JPRB,-0.26310772E-01_JPRB, 0.00000000E+00_JPRB/)
678PDGB( 8, 5,:) = (/&
679 &0.14110570E+00_JPRB, 0.54324186E+00_JPRB, 0.10000000E+01_JPRB/)
680PDGA( 8, 6,:) = (/&
681 &0.14901793E+00_JPRB,-0.28597040E-01_JPRB, 0.00000000E+00_JPRB/)
682PDGB( 8, 6,:) = (/&
683 &0.14901793E+00_JPRB, 0.54300690E+00_JPRB, 0.10000000E+01_JPRB/)
684
685!----- INTERVAL = 5 ----- T =    287.500
686
687PDGA( 9, 5,:) = (/&
688 &0.14198618E+00_JPRB,-0.26556855E-01_JPRB, 0.00000000E+00_JPRB/)
689PDGB( 9, 5,:) = (/&
690 &0.14198618E+00_JPRB, 0.54346353E+00_JPRB, 0.10000000E+01_JPRB/)
691PDGA( 9, 6,:) = (/&
692 &0.14971229E+00_JPRB,-0.28792191E-01_JPRB, 0.00000000E+00_JPRB/)
693PDGB( 9, 6,:) = (/&
694 &0.14971229E+00_JPRB, 0.54307669E+00_JPRB, 0.10000000E+01_JPRB/)
695
696!----- INTERVAL = 5 ----- T =    300.000
697
698PDGA(10, 5,:) = (/&
699 &0.14277160E+00_JPRB,-0.26774861E-01_JPRB, 0.00000000E+00_JPRB/)
700PDGB(10, 5,:) = (/&
701 &0.14277160E+00_JPRB, 0.54357564E+00_JPRB, 0.10000000E+01_JPRB/)
702PDGA(10, 6,:) = (/&
703 &0.15033126E+00_JPRB,-0.28966904E-01_JPRB, 0.00000000E+00_JPRB/)
704PDGB(10, 6,:) = (/&
705 &0.15033126E+00_JPRB, 0.54313493E+00_JPRB, 0.10000000E+01_JPRB/)
706
707!----- INTERVAL = 5 ----- T =    312.500
708
709PDGA(11, 5,:) = (/&
710 &0.14349319E+00_JPRB,-0.26976623E-01_JPRB, 0.00000000E+00_JPRB/)
711PDGB(11, 5,:) = (/&
712 &0.14349319E+00_JPRB, 0.54369903E+00_JPRB, 0.10000000E+01_JPRB/)
713PDGA(11, 6,:) = (/&
714 &0.15088280E+00_JPRB,-0.29121898E-01_JPRB, 0.00000000E+00_JPRB/)
715PDGB(11, 6,:) = (/&
716 &0.15088280E+00_JPRB, 0.54318237E+00_JPRB, 0.10000000E+01_JPRB/)
717
718!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
719
720
721!----- INTERVAL = 6 ----- T =    187.50
722
723PDGA( 1,11,:) = (/&
724 &0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
725PDGB( 1,11,:) = (/&
726 &0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
727PDGA( 1,12,:) = (/&
728 &0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
729PDGB( 1,12,:) = (/&
730 &0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
731
732!----- INTERVAL = 6 ----- T =    200.00
733
734PDGA( 2,11,:) = (/&
735 &0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
736PDGB( 2,11,:) = (/&
737 &0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
738PDGA( 2,12,:) = (/&
739 &0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)
740PDGB( 2,12,:) = (/&
741 &0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)
742
743!----- INTERVAL = 6 ----- T =    212.50
744
745PDGA( 3,11,:) = (/&
746 &0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)
747PDGB( 3,11,:) = (/&
748 &0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)
749PDGA( 3,12,:) = (/&
750 &0.44063067E+00_JPRB, 0.91024989E-01_JPRB, 0.00000000E+00_JPRB/)
751PDGB( 3,12,:) = (/&
752 &0.44063067E+00_JPRB, 0.12039660E+01_JPRB, 0.10000000E+01_JPRB/)
753
754!----- INTERVAL = 6 ----- T =    225.00
755
756PDGA( 4,11,:) = (/&
757 &0.51061614E+00_JPRB, 0.59883548E-01_JPRB, 0.00000000E+00_JPRB/)
758PDGB( 4,11,:) = (/&
759 &0.51061614E+00_JPRB, 0.13461757E+01_JPRB, 0.10000000E+01_JPRB/)
760PDGA( 4,12,:) = (/&
761 &0.30439727E+00_JPRB, 0.15980470E+00_JPRB, 0.00000000E+00_JPRB/)
762PDGB( 4,12,:) = (/&
763 &0.30439727E+00_JPRB, 0.91241774E+00_JPRB, 0.10000000E+01_JPRB/)
764
765!----- INTERVAL = 6 ----- T =    237.50
766
767PDGA( 5,11,:) = (/&
768 &0.40673842E+00_JPRB, 0.11398935E+00_JPRB, 0.00000000E+00_JPRB/)
769PDGB( 5,11,:) = (/&
770 &0.40673842E+00_JPRB, 0.11289965E+01_JPRB, 0.10000000E+01_JPRB/)
771PDGA( 5,12,:) = (/&
772 &0.15005620E+00_JPRB, 0.23446409E+00_JPRB, 0.00000000E+00_JPRB/)
773PDGB( 5,12,:) = (/&
774 &0.15005620E+00_JPRB, 0.58547602E+00_JPRB, 0.10000000E+01_JPRB/)
775
776!----- INTERVAL = 6 ----- T =    250.00
777
778PDGA( 6,11,:) = (/&
779 &0.28375203E+00_JPRB, 0.17444874E+00_JPRB, 0.00000000E+00_JPRB/)
780PDGB( 6,11,:) = (/&
781 &0.28375203E+00_JPRB, 0.86693115E+00_JPRB, 0.10000000E+01_JPRB/)
782PDGA( 6,12,:) = (/&
783 &0.51658133E-01_JPRB, 0.29464628E+00_JPRB, 0.00000000E+00_JPRB/)
784PDGB( 6,12,:) = (/&
785 &0.51658133E-01_JPRB, 0.40170363E+00_JPRB, 0.10000000E+01_JPRB/)
786
787!----- INTERVAL = 6 ----- T =    262.50
788
789PDGA( 7,11,:) = (/&
790 &0.15136005E+00_JPRB, 0.23761536E+00_JPRB, 0.00000000E+00_JPRB/)
791PDGB( 7,11,:) = (/&
792 &0.15136005E+00_JPRB, 0.58911683E+00_JPRB, 0.10000000E+01_JPRB/)
793PDGA( 7,12,:) = (/&
794 &0.18932679E-01_JPRB, 0.33516250E+00_JPRB, 0.00000000E+00_JPRB/)
795PDGB( 7,12,:) = (/&
796 &0.18932679E-01_JPRB, 0.36796152E+00_JPRB, 0.10000000E+01_JPRB/)
797
798!----- INTERVAL = 6 ----- T =    275.00
799
800PDGA( 8,11,:) = (/&
801 &0.61752765E-01_JPRB, 0.28965454E+00_JPRB, 0.00000000E+00_JPRB/)
802PDGB( 8,11,:) = (/&
803 &0.61752765E-01_JPRB, 0.41975793E+00_JPRB, 0.10000000E+01_JPRB/)
804PDGA( 8,12,:) = (/&
805 &0.79619427E-02_JPRB, 0.36873141E+00_JPRB, 0.00000000E+00_JPRB/)
806PDGB( 8,12,:) = (/&
807 &0.79619427E-02_JPRB, 0.37964009E+00_JPRB, 0.10000000E+01_JPRB/)
808
809!----- INTERVAL = 6 ----- T =    287.50
810
811PDGA( 9,11,:) = (/&
812 &0.26192233E-01_JPRB, 0.32568668E+00_JPRB, 0.00000000E+00_JPRB/)
813PDGB( 9,11,:) = (/&
814 &0.26192233E-01_JPRB, 0.37385106E+00_JPRB, 0.10000000E+01_JPRB/)
815PDGA( 9,12,:) = (/&
816 &0.40764469E-02_JPRB, 0.40137572E+00_JPRB, 0.00000000E+00_JPRB/)
817PDGB( 9,12,:) = (/&
818 &0.40764469E-02_JPRB, 0.40608889E+00_JPRB, 0.10000000E+01_JPRB/)
819
820!----- INTERVAL = 6 ----- T =    300.00
821
822PDGA(10,11,:) = (/&
823 &0.12168738E-01_JPRB, 0.35455148E+00_JPRB, 0.00000000E+00_JPRB/)
824PDGB(10,11,:) = (/&
825 &0.12168738E-01_JPRB, 0.37329084E+00_JPRB, 0.10000000E+01_JPRB/)
826PDGA(10,12,:) = (/&
827 &0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
828PDGB(10,12,:) = (/&
829 &0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
830
831!----- INTERVAL = 6 ----- T =    312.50
832
833PDGA(11,11,:) = (/&
834 &0.64195381E-02_JPRB, 0.38088067E+00_JPRB, 0.00000000E+00_JPRB/)
835PDGB(11,11,:) = (/&
836 &0.64195381E-02_JPRB, 0.38906156E+00_JPRB, 0.10000000E+01_JPRB/)
837PDGA(11,12,:) = (/&
838 &0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)
839PDGB(11,12,:) = (/&
840 &0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)
841
842
843
844!=======================================================================
845
846!-- CARBON DIOXIDE       
847!   ==============
848
849!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ------------
850
851!-- FIU = 0.8 + DMAX1(0.35,(7-IU)*0.9)  , X/T,  9
852
853!----- INTERVAL = 2 ----- T =  187.5
854
855!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
856PDGA( 1,13,:) = (/&
857 &0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)
858PDGB( 1,13,:) = (/&
859 &0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)
860PDGA( 1,14,:) = (/&
861 &0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)
862PDGB( 1,14,:) = (/&
863 &0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)
864
865!----- INTERVAL = 2 ----- T =  200.0
866
867!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
868PDGA( 2,13,:) = (/&
869 &0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)
870PDGB( 2,13,:) = (/&
871 &0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)
872PDGA( 2,14,:) = (/&
873 &0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)
874PDGB( 2,14,:) = (/&
875 &0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)
876
877!----- INTERVAL = 2 ----- T =  212.5
878
879!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
880PDGA( 3,13,:) = (/&
881 &0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)
882PDGB( 3,13,:) = (/&
883 &0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)
884PDGA( 3,14,:) = (/&
885 &0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)
886PDGB( 3,14,:) = (/&
887 &0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)
888
889!----- INTERVAL = 2 ----- T =  225.0
890
891!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
892PDGA( 4,13,:) = (/&
893 &0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)
894PDGB( 4,13,:) = (/&
895 &0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)
896PDGA( 4,14,:) = (/&
897 &0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)
898PDGB( 4,14,:) = (/&
899 &0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)
900
901!----- INTERVAL = 2 ----- T =  237.5
902
903!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
904PDGA( 5,13,:) = (/&
905 &0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)
906PDGB( 5,13,:) = (/&
907 &0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)
908PDGA( 5,14,:) = (/&
909 &0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)
910PDGB( 5,14,:) = (/&
911 &0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)
912
913!----- INTERVAL = 2 ----- T =  250.0
914
915!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
916PDGA( 6,13,:) = (/&
917 &0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)
918PDGB( 6,13,:) = (/&
919 &0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)
920PDGA( 6,14,:) = (/&
921 &0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)
922PDGB( 6,14,:) = (/&
923 &0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)
924
925!----- INTERVAL = 2 ----- T =  262.5
926
927!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
928PDGA( 7,13,:) = (/&
929 &0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)
930PDGB( 7,13,:) = (/&
931 &0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)
932PDGA( 7,14,:) = (/&
933 &0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)
934PDGB( 7,14,:) = (/&
935 &0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)
936
937!----- INTERVAL = 2 ----- T =  275.0
938
939!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
940PDGA( 8,13,:) = (/&
941 &0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)
942PDGB( 8,13,:) = (/&
943 &0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)
944PDGA( 8,14,:) = (/&
945 &0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)
946PDGB( 8,14,:) = (/&
947 &0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)
948
949!----- INTERVAL = 2 ----- T =  287.5
950
951!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
952PDGA( 9,13,:) = (/&
953 &0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)
954PDGB( 9,13,:) = (/&
955 &0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)
956PDGA( 9,14,:) = (/&
957 &0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)
958PDGB( 9,14,:) = (/&
959 &0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)
960
961!----- INTERVAL = 2 ----- T =  300.0
962
963!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
964PDGA(10,13,:) = (/&
965 &0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)
966PDGB(10,13,:) = (/&
967 &0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)
968PDGA(10,14,:) = (/&
969 &0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)
970PDGB(10,14,:) = (/&
971 &0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)
972
973!----- INTERVAL = 2 ----- T =  312.5
974
975!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
976PDGA(11,13,:) = (/&
977 &0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)
978PDGB(11,13,:) = (/&
979 &0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)
980PDGA(11,14,:) = (/&
981 &0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)
982PDGB(11,14,:) = (/&
983 &0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)
984
985
986
987!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
988
989!----- INTERVAL = 4 ----- T =  187.5
990
991!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
992PDGA( 1,15,:) = (/&
993 &0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)
994PDGB( 1,15,:) = (/&
995 &0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)
996PDGA( 1,16,:) = (/&
997 &0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)
998PDGB( 1,16,:) = (/&
999 &0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)
1000
1001!----- INTERVAL = 4 ----- T =  200.0
1002
1003!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1004PDGA( 2,15,:) = (/&
1005 &0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)
1006PDGB( 2,15,:) = (/&
1007 &0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)
1008PDGA( 2,16,:) = (/&
1009 &0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)
1010PDGB( 2,16,:) = (/&
1011 &0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)
1012
1013!----- INTERVAL = 4 ----- T =  212.5
1014
1015!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1016PDGA( 3,15,:) = (/&
1017 &0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)
1018PDGB( 3,15,:) = (/&
1019 &0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)
1020PDGA( 3,16,:) = (/&
1021 &0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)
1022PDGB( 3,16,:) = (/&
1023 &0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)
1024
1025!----- INTERVAL = 4 ----- T =  225.0
1026
1027!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1028PDGA( 4,15,:) = (/&
1029 &0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)
1030PDGB( 4,15,:) = (/&
1031 &0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)
1032PDGA( 4,16,:) = (/&
1033 &0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)
1034PDGB( 4,16,:) = (/&
1035 &0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)
1036
1037!----- INTERVAL = 4 ----- T =  237.5
1038
1039!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1040PDGA( 5,15,:) = (/&
1041 &0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)
1042PDGB( 5,15,:) = (/&
1043 &0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)
1044PDGA( 5,16,:) = (/&
1045 &0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)
1046PDGB( 5,16,:) = (/&
1047 &0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)
1048
1049!----- INTERVAL = 4 ----- T =  250.0
1050
1051!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1052PDGA( 6,15,:) = (/&
1053 &0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)
1054PDGB( 6,15,:) = (/&
1055 &0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)
1056PDGA( 6,16,:) = (/&
1057 &0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)
1058PDGB( 6,16,:) = (/&
1059 &0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)
1060
1061!----- INTERVAL = 4 ----- T =  262.5
1062
1063!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1064PDGA( 7,15,:) = (/&
1065 &0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)
1066PDGB( 7,15,:) = (/&
1067 &0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)
1068PDGA( 7,16,:) = (/&
1069 &0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)
1070PDGB( 7,16,:) = (/&
1071 &0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)
1072
1073!----- INTERVAL = 4 ----- T =  275.0
1074
1075!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1076PDGA( 8,15,:) = (/&
1077 &0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)
1078PDGB( 8,15,:) = (/&
1079 &0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)
1080PDGA( 8,16,:) = (/&
1081 &0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)
1082PDGB( 8,16,:) = (/&
1083 &0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)
1084
1085!----- INTERVAL = 4 ----- T =  287.5
1086
1087!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1088PDGA( 9,15,:) = (/&
1089 &0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)
1090PDGB( 9,15,:) = (/&
1091 &0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)
1092PDGA( 9,16,:) = (/&
1093 &0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)
1094PDGB( 9,16,:) = (/&
1095 &0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)
1096
1097!----- INTERVAL = 4 ----- T =  300.0
1098
1099!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1100PDGA(10,15,:) = (/&
1101 &0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)
1102PDGB(10,15,:) = (/&
1103 &0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)
1104PDGA(10,16,:) = (/&
1105 &0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)
1106PDGB(10,16,:) = (/&
1107 &0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)
1108
1109!----- INTERVAL = 4 ----- T =  312.5
1110
1111!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
1112PDGA(11,15,:) = (/&
1113 &0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)
1114PDGB(11,15,:) = (/&
1115 &0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)
1116PDGA(11,16,:) = (/&
1117 &0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)
1118PDGB(11,16,:) = (/&
1119 &0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)
1120
1121
1122!     ------------------------------------------------------------------
1123
1124!-----  (CONTINUUM ABSORPTION)
1125
1126!-----  (CONTINUUM ABSORPTION: e-type COMPONENT)
1127
1128RETYPE(1:4)= (/  12._JPRB,   5.5_JPRB,   4.25_JPRB,  45._JPRB /)
1129
1130!-----  (CONTINUUM ABSORPTION: p-type COMPONENT)
1131
1132RPTYPE(1:4)= (/ 0.22_JPRB, 0.012_JPRB, 0.0071_JPRB, 3.96_JPRB /)
1133
1134!     ------------------------------------------------------------------
1135
1136!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
1137!     THE ABSORPTION
1138
1139!--------H2O
1140
1141!    revised in Zhong 961108
1142ALWT(1,:)= (/&
1143  &2.34995778846E-03_JPRB, -2.76713384294E-04_JPRB,  1.16480338097E-06_JPRB/)
1144BLWT(1,:)= (/&
1145 &-1.58165952771E-05_JPRB, -2.39167473702E-05_JPRB,  1.80148335147E-07_JPRB/)
1146ALWT(2,:)= (/&
1147  &2.52595953359E-02_JPRB, -6.72079319635E-04_JPRB,  5.74103783815E-06_JPRB/)
1148BLWT(2,:)= (/&
1149 &-8.26196996910E-05_JPRB, -1.05514645370E-05_JPRB,  7.02984234993E-08_JPRB/)
1150ALWT(3,:)= (/&
1151  &3.55525229363E-02_JPRB, -7.94992134865E-04_JPRB,  6.64848193374E-06_JPRB/)
1152BLWT(3,:)= (/&
1153 &-9.71124908025E-05_JPRB, -2.95218285256E-06_JPRB,  2.23374952695E-08_JPRB/)
1154ALWT(4,:)= (/&
1155  &5.47044522259E-02_JPRB, -1.19105877667E-03_JPRB,  9.74676865100E-06_JPRB/)
1156BLWT(4,:)= (/&
1157 &-2.10153035427E-04_JPRB, -6.93815560155E-06_JPRB,  5.50381928956E-08_JPRB/)
1158ALWT(5,:)= (/&
1159  &1.88063066950E-02_JPRB, -1.11250846983E-04_JPRB,  1.66977895508E-06_JPRB/)
1160BLWT(5,:)= (/&
1161 &-5.72683436311E-05_JPRB, -2.48448308453E-05_JPRB,  1.88450887138E-07_JPRB/)
1162ALWT(6,:)= (/&
1163  &1.29526952131E-02_JPRB, -3.81424455035E-04_JPRB,  3.07118138204E-06_JPRB/)
1164BLWT(6,:)= (/&
1165 &-4.20789327775E-05_JPRB, -1.25055291318E-05_JPRB,  8.58839668934E-08_JPRB/)
1166
1167
1168!-------CO2
1169
1170ALWT(7,:)= (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
1171BLWT(7,:)= (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
1172ALWT(8,:)= (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
1173BLWT(8,:)= (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
1174
1175
1176!     ------------------------------------------------------------------
1177
1178!*       2.    SET VALUES.
1179!              -----------
1180
1181
1182!-number of spectral intervals
1183NSIL  = 6
1184!-number of intervals with Pade approximants transmission functions
1185NIPD  = 8
1186NIPD2 = 2*NIPD
1187!-number of reference temperatures     
1188NTR   = 11
1189!-number of absorber amounts
1190NUA   = 24
1191!-number of transmission functions     
1192NTRA  = 15
1193!-number of Gauss angles     
1194NG1   = 2
1195NG1P1 = NG1+1
1196
1197!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
1198!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
1199TSTAND = 250.0_JPRB
1200TREF   = 250.0_JPRB
1201
1202!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
1203RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
1204WG1 = (/  _ONE_        ,  _ONE_         /)
1205
1206!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
1207TSTP  = 12.5_JPRB
1208MXIXT = 10
1209
1210!--  COEFFICIENTS FOR OZONE ABSORPTION
1211
1212RO1H = 2230._JPRB
1213RO2H =  100._JPRB
1214RPIALF0 = 2._JPRB
1215RO3T(1) = -.326E-03_JPRB
1216RO3T(2) = -.102E-05_JPRB
1217RO3T(3) = 0.137E-02_JPRB
1218RO3T(4) = -.535E-05_JPRB
1219
1220!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
1221
1222RVGCO2= 60._JPRB
1223RVGH2O= 30._JPRB
1224RVGO3 =400._JPRB
1225
1226!     ------------------------------------------------------------------
1227
1228RETURN
1229END SUBROUTINE SULWN
Note: See TracBrowser for help on using the repository browser.