LMDZ
sulwn.F90
Go to the documentation of this file.
1 SUBROUTINE 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 
48 USE 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 
56 IMPLICIT NONE
57 
58 
59 ! ------------------------------------------------------------------
60 
61 !* 1. FILL BLOCK DATA
62 ! ---------------
63 
64 !-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
65 
66 tintp = (/ 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 
72 xp( :, 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/)
75 xp( :, 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/)
78 xp( :, 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/)
81 xp( :, 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/)
84 xp( :, 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/)
87 xp( :, 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 
102 pdga( 1, 1,:) = (/&
103  &0.25000224e-02_jprb, 0.18701843e-02_jprb, 0.00000000e+00_jprb/)
104 pdgb( 1, 1,:) = (/&
105  &0.25000224e-02_jprb, 0.61593968e-01_jprb, 0.10000000e+01_jprb/)
106 pdga( 1, 2,:) = (/&
107  &0.34131105e-02_jprb, 0.55153039e-03_jprb, 0.00000000e+00_jprb/)
108 pdgb( 1, 2,:) = (/&
109  &0.34131105e-02_jprb, 0.73127832e-01_jprb, 0.10000000e+01_jprb/)
110 
111 !----- INTERVAL = 1 ----- T = 200.00
112 
113 pdga( 2, 1,:) = (/&
114  &0.26344616e-02_jprb, 0.16894582e-02_jprb, 0.00000000e+00_jprb/)
115 pdgb( 2, 1,:) = (/&
116  &0.26344616e-02_jprb, 0.63633167e-01_jprb, 0.10000000e+01_jprb/)
117 pdga( 2, 2,:) = (/&
118  &0.36120928e-02_jprb, 0.44720171e-03_jprb, 0.00000000e+00_jprb/)
119 pdgb( 2, 2,:) = (/&
120  &0.36120928e-02_jprb, 0.75062171e-01_jprb, 0.10000000e+01_jprb/)
121 
122 !----- INTERVAL = 1 ----- T = 212.50
123 
124 pdga( 3, 1,:) = (/&
125  &0.27743234e-02_jprb, 0.15245487e-02_jprb, 0.00000000e+00_jprb/)
126 pdgb( 3, 1,:) = (/&
127  &0.27743234e-02_jprb, 0.65651733e-01_jprb, 0.10000000e+01_jprb/)
128 pdga( 3, 2,:) = (/&
129  &0.38453121e-02_jprb, 0.42382776e-03_jprb, 0.00000000e+00_jprb/)
130 pdgb( 3, 2,:) = (/&
131  &0.38453121e-02_jprb, 0.77088315e-01_jprb, 0.10000000e+01_jprb/)
132 
133 !----- INTERVAL = 1 ----- T = 225.00
134 
135 pdga( 4, 1,:) = (/&
136  &0.29265376e-02_jprb, 0.13719090e-02_jprb, 0.00000000e+00_jprb/)
137 pdgb( 4, 1,:) = (/&
138  &0.29265376e-02_jprb, 0.67739270e-01_jprb, 0.10000000e+01_jprb/)
139 pdga( 4, 2,:) = (/&
140  &0.41211460e-02_jprb, 0.42401401e-03_jprb, 0.00000000e+00_jprb/)
141 pdgb( 4, 2,:) = (/&
142  &0.41211460e-02_jprb, 0.79241307e-01_jprb, 0.10000000e+01_jprb/)
143 
144 !----- INTERVAL = 1 ----- T = 237.50
145 
146 pdga( 5, 1,:) = (/&
147  &0.30979053e-02_jprb, 0.12223308e-02_jprb, 0.00000000e+00_jprb/)
148 pdgb( 5, 1,:) = (/&
149  &0.30979053e-02_jprb, 0.69968340e-01_jprb, 0.10000000e+01_jprb/)
150 pdga( 5, 2,:) = (/&
151  &0.43966504e-02_jprb, 0.67198946e-03_jprb, 0.00000000e+00_jprb/)
152 pdgb( 5, 2,:) = (/&
153  &0.43966504e-02_jprb, 0.80947310e-01_jprb, 0.10000000e+01_jprb/)
154 
155 !----- INTERVAL = 1 ----- T = 250.00
156 
157 pdga( 6, 1,:) = (/&
158  &0.32813184e-02_jprb, 0.11573810e-02_jprb, 0.00000000e+00_jprb/)
159 pdgb( 6, 1,:) = (/&
160  &0.32813184e-02_jprb, 0.72183750e-01_jprb, 0.10000000e+01_jprb/)
161 pdga( 6, 2,:) = (/&
162  &0.46792452e-02_jprb, 0.99691013e-03_jprb, 0.00000000e+00_jprb/)
163 pdgb( 6, 2,:) = (/&
164  &0.46792452e-02_jprb, 0.82404099e-01_jprb, 0.10000000e+01_jprb/)
165 
166 !----- INTERVAL = 1 ----- T = 262.50
167 
168 pdga( 7, 1,:) = (/&
169  &0.34869261e-02_jprb, 0.11110812e-02_jprb, 0.00000000e+00_jprb/)
170 pdgb( 7, 1,:) = (/&
171  &0.34869261e-02_jprb, 0.74507149e-01_jprb, 0.10000000e+01_jprb/)
172 pdga( 7, 2,:) = (/&
173  &0.49313571e-02_jprb, 0.15144806e-02_jprb, 0.00000000e+00_jprb/)
174 pdgb( 7, 2,:) = (/&
175  &0.49313571e-02_jprb, 0.83301687e-01_jprb, 0.10000000e+01_jprb/)
176 
177 !----- INTERVAL = 1 ----- T = 275.00
178 
179 pdga( 8, 1,:) = (/&
180  &0.37169013e-02_jprb, 0.10586459e-02_jprb, 0.00000000e+00_jprb/)
181 pdgb( 8, 1,:) = (/&
182  &0.37169013e-02_jprb, 0.76930655e-01_jprb, 0.10000000e+01_jprb/)
183 pdga( 8, 2,:) = (/&
184  &0.51606177e-02_jprb, 0.20799953e-02_jprb, 0.00000000e+00_jprb/)
185 pdgb( 8, 2,:) = (/&
186  &0.51606177e-02_jprb, 0.83904484e-01_jprb, 0.10000000e+01_jprb/)
187 
188 !----- INTERVAL = 1 ----- T = 287.50
189 
190 pdga( 9, 1,:) = (/&
191  &0.39482491e-02_jprb, 0.11280761e-02_jprb, 0.00000000e+00_jprb/)
192 pdgb( 9, 1,:) = (/&
193  &0.39482491e-02_jprb, 0.79096624e-01_jprb, 0.10000000e+01_jprb/)
194 pdga( 9, 2,:) = (/&
195  &0.53608496e-02_jprb, 0.26755638e-02_jprb, 0.00000000e+00_jprb/)
196 pdgb( 9, 2,:) = (/&
197  &0.53608496e-02_jprb, 0.84271466e-01_jprb, 0.10000000e+01_jprb/)
198 
199 !----- INTERVAL = 1 ----- T = 300.00
200 
201 pdga(10, 1,:) = (/&
202  &0.41849825e-02_jprb, 0.12500965e-02_jprb, 0.00000000e+00_jprb/)
203 pdgb(10, 1,:) = (/&
204  &0.41849825e-02_jprb, 0.81087000e-01_jprb, 0.10000000e+01_jprb/)
205 pdga(10, 2,:) = (/&
206  &0.55372909e-02_jprb, 0.32512851e-02_jprb, 0.00000000e+00_jprb/)
207 pdgb(10, 2,:) = (/&
208  &0.55372909e-02_jprb, 0.84546756e-01_jprb, 0.10000000e+01_jprb/)
209 
210 !----- INTERVAL = 1 ----- T = 312.50
211 
212 pdga(11, 1,:) = (/&
213  &0.44204714e-02_jprb, 0.14195697e-02_jprb, 0.00000000e+00_jprb/)
214 pdgb(11, 1,:) = (/&
215  &0.44204714e-02_jprb, 0.82840020e-01_jprb, 0.10000000e+01_jprb/)
216 pdga(11, 2,:) = (/&
217  &0.56935299e-02_jprb, 0.38054592e-02_jprb, 0.00000000e+00_jprb/)
218 pdgb(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 
226 pdga( 1, 3,:) = (/&
227  &0.15053751e+01_jprb, 0.45361026e+00_jprb, 0.00000000e+00_jprb/)
228 pdgb( 1, 3,:) = (/&
229  &0.15053751e+01_jprb, 0.15789584e+01_jprb, 0.10000000e+01_jprb/)
230 pdga( 1, 4,:) = (/&
231  &0.18920793e+01_jprb, 0.53457554e+00_jprb, 0.00000000e+00_jprb/)
232 pdgb( 1, 4,:) = (/&
233  &0.18920793e+01_jprb, 0.18418304e+01_jprb, 0.10000000e+01_jprb/)
234 
235 !----- INTERVAL = 2 ----- T = 200.00
236 
237 pdga( 2, 3,:) = (/&
238  &0.15977537e+01_jprb, 0.48084314e+00_jprb, 0.00000000e+00_jprb/)
239 pdgb( 2, 3,:) = (/&
240  &0.15977537e+01_jprb, 0.16476468e+01_jprb, 0.10000000e+01_jprb/)
241 pdga( 2, 4,:) = (/&
242  &0.20435568e+01_jprb, 0.55893717e+00_jprb, 0.00000000e+00_jprb/)
243 pdgb( 2, 4,:) = (/&
244  &0.20435568e+01_jprb, 0.19386656e+01_jprb, 0.10000000e+01_jprb/)
245 
246 !----- INTERVAL = 2 ----- T = 212.50
247 
248 pdga( 3, 3,:) = (/&
249  &0.16913237e+01_jprb, 0.50454053e+00_jprb, 0.00000000e+00_jprb/)
250 pdgb( 3, 3,:) = (/&
251  &0.16913237e+01_jprb, 0.17144170e+01_jprb, 0.10000000e+01_jprb/)
252 pdga( 3, 4,:) = (/&
253  &0.21978186e+01_jprb, 0.57905459e+00_jprb, 0.00000000e+00_jprb/)
254 pdgb( 3, 4,:) = (/&
255  &0.21978186e+01_jprb, 0.20334044e+01_jprb, 0.10000000e+01_jprb/)
256 
257 !----- INTERVAL = 2 ----- T = 225.00
258 
259 pdga( 4, 3,:) = (/&
260  &0.17856476e+01_jprb, 0.52514194e+00_jprb, 0.00000000e+00_jprb/)
261 pdgb( 4, 3,:) = (/&
262  &0.17856476e+01_jprb, 0.17792823e+01_jprb, 0.10000000e+01_jprb/)
263 pdga( 4, 4,:) = (/&
264  &0.23533355e+01_jprb, 0.59558005e+00_jprb, 0.00000000e+00_jprb/)
265 pdgb( 4, 4,:) = (/&
266  &0.23533355e+01_jprb, 0.21256517e+01_jprb, 0.10000000e+01_jprb/)
267 
268 !----- INTERVAL = 2 ----- T = 237.50
269 
270 pdga( 5, 3,:) = (/&
271  &0.18802811e+01_jprb, 0.54304459e+00_jprb, 0.00000000e+00_jprb/)
272 pdgb( 5, 3,:) = (/&
273  &0.18802811e+01_jprb, 0.18422412e+01_jprb, 0.10000000e+01_jprb/)
274 pdga( 5, 4,:) = (/&
275  &0.25086500e+01_jprb, 0.60908958e+00_jprb, 0.00000000e+00_jprb/)
276 pdgb( 5, 4,:) = (/&
277  &0.25086500e+01_jprb, 0.22150389e+01_jprb, 0.10000000e+01_jprb/)
278 
279 !----- INTERVAL = 2 ----- T = 250.00
280 
281 pdga( 6, 3,:) = (/&
282  &0.19747954e+01_jprb, 0.55860186e+00_jprb, 0.00000000e+00_jprb/)
283 pdgb( 6, 3,:) = (/&
284  &0.19747954e+01_jprb, 0.19032856e+01_jprb, 0.10000000e+01_jprb/)
285 pdga( 6, 4,:) = (/&
286  &0.26624407e+01_jprb, 0.62008317e+00_jprb, 0.00000000e+00_jprb/)
287 pdgb( 6, 4,:) = (/&
288  &0.26624407e+01_jprb, 0.23012482e+01_jprb, 0.10000000e+01_jprb/)
289 
290 !----- INTERVAL = 2 ----- T = 262.50
291 
292 pdga( 7, 3,:) = (/&
293  &0.20687911e+01_jprb, 0.57212480e+00_jprb, 0.00000000e+00_jprb/)
294 pdgb( 7, 3,:) = (/&
295  &0.20687911e+01_jprb, 0.19624068e+01_jprb, 0.10000000e+01_jprb/)
296 pdga( 7, 4,:) = (/&
297  &0.28135635e+01_jprb, 0.62898892e+00_jprb, 0.00000000e+00_jprb/)
298 pdgb( 7, 4,:) = (/&
299  &0.28135635e+01_jprb, 0.23840281e+01_jprb, 0.10000000e+01_jprb/)
300 
301 !----- INTERVAL = 2 ----- T = 275.00
302 
303 pdga( 8, 3,:) = (/&
304  &0.21619083e+01_jprb, 0.58388519e+00_jprb, 0.00000000e+00_jprb/)
305 pdgb( 8, 3,:) = (/&
306  &0.21619083e+01_jprb, 0.20195993e+01_jprb, 0.10000000e+01_jprb/)
307 pdga( 8, 4,:) = (/&
308  &0.29610693e+01_jprb, 0.63616954e+00_jprb, 0.00000000e+00_jprb/)
309 pdgb( 8, 4,:) = (/&
310  &0.29610693e+01_jprb, 0.24631984e+01_jprb, 0.10000000e+01_jprb/)
311 
312 !----- INTERVAL = 2 ----- T = 287.50
313 
314 pdga( 9, 3,:) = (/&
315  &0.22538305e+01_jprb, 0.59411934e+00_jprb, 0.00000000e+00_jprb/)
316 pdgb( 9, 3,:) = (/&
317  &0.22538305e+01_jprb, 0.20748638e+01_jprb, 0.10000000e+01_jprb/)
318 pdga( 9, 4,:) = (/&
319  &0.31042087e+01_jprb, 0.64192944e+00_jprb, 0.00000000e+00_jprb/)
320 pdgb( 9, 4,:) = (/&
321  &0.31042087e+01_jprb, 0.25386513e+01_jprb, 0.10000000e+01_jprb/)
322 
323 !----- INTERVAL = 2 ----- T = 300.00
324 
325 pdga(10, 3,:) = (/&
326  &0.23442867e+01_jprb, 0.60303198e+00_jprb, 0.00000000e+00_jprb/)
327 pdgb(10, 3,:) = (/&
328  &0.23442867e+01_jprb, 0.21282086e+01_jprb, 0.10000000e+01_jprb/)
329 pdga(10, 4,:) = (/&
330  &0.32424163e+01_jprb, 0.64652280e+00_jprb, 0.00000000e+00_jprb/)
331 pdgb(10, 4,:) = (/&
332  &0.32424163e+01_jprb, 0.26103424e+01_jprb, 0.10000000e+01_jprb/)
333 
334 !----- INTERVAL = 2 ----- T = 312.50
335 
336 pdga(11, 3,:) = (/&
337  &0.24330507e+01_jprb, 0.61080006e+00_jprb, 0.00000000e+00_jprb/)
338 pdgb(11, 3,:) = (/&
339  &0.24330507e+01_jprb, 0.21796505e+01_jprb, 0.10000000e+01_jprb/)
340 pdga(11, 4,:) = (/&
341  &0.33752974e+01_jprb, 0.65016031e+00_jprb, 0.00000000e+00_jprb/)
342 pdgb(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 
351 pdga( 1, 7,:) = (/&
352  &0.14334746e+02_jprb, 0.11649992e+02_jprb, 0.00000000e+00_jprb/)
353 pdgb( 1, 7,:) = (/&
354  &0.14334746e+02_jprb, 0.12059903e+02_jprb, 0.10000000e+01_jprb/)
355 pdga( 1, 8,:) = (/&
356  &0.11596027e+02_jprb, 0.11051587e+02_jprb, 0.00000000e+00_jprb/)
357 pdgb( 1, 8,:) = (/&
358  &0.11596027e+02_jprb, 0.11390898e+02_jprb, 0.10000000e+01_jprb/)
359 
360 !----- INTERVAL = 3 ----- T = 200.00
361 
362 pdga( 2, 7,:) = (/&
363  &0.12924521e+02_jprb, 0.11365906e+02_jprb, 0.00000000e+00_jprb/)
364 pdgb( 2, 7,:) = (/&
365  &0.12924521e+02_jprb, 0.11739611e+02_jprb, 0.10000000e+01_jprb/)
366 pdga( 2, 8,:) = (/&
367  &0.10445365e+02_jprb, 0.10682810e+02_jprb, 0.00000000e+00_jprb/)
368 pdgb( 2, 8,:) = (/&
369  &0.10445365e+02_jprb, 0.10993927e+02_jprb, 0.10000000e+01_jprb/)
370 
371 !----- INTERVAL = 3 ----- T = 212.50
372 
373 pdga( 3, 7,:) = (/&
374  &0.11774060e+02_jprb, 0.11080218e+02_jprb, 0.00000000e+00_jprb/)
375 pdgb( 3, 7,:) = (/&
376  &0.11774060e+02_jprb, 0.11424740e+02_jprb, 0.10000000e+01_jprb/)
377 pdga( 3, 8,:) = (/&
378  &0.95571840e+01_jprb, 0.10328058e+02_jprb, 0.00000000e+00_jprb/)
379 pdgb( 3, 8,:) = (/&
380  &0.95571840e+01_jprb, 0.10618404e+02_jprb, 0.10000000e+01_jprb/)
381 
382 !----- INTERVAL = 3 ----- T = 225.00
383 
384 pdga( 4, 7,:) = (/&
385  &0.10839967e+02_jprb, 0.10800025e+02_jprb, 0.00000000e+00_jprb/)
386 pdgb( 4, 7,:) = (/&
387  &0.10839967e+02_jprb, 0.11121318e+02_jprb, 0.10000000e+01_jprb/)
388 pdga( 4, 8,:) = (/&
389  &0.88719975e+01_jprb, 0.99930444e+01_jprb, 0.00000000e+00_jprb/)
390 pdgb( 4, 8,:) = (/&
391  &0.88719975e+01_jprb, 0.10268470e+02_jprb, 0.10000000e+01_jprb/)
392 
393 !----- INTERVAL = 3 ----- T = 237.50
394 
395 pdga( 5, 7,:) = (/&
396  &0.10082160e+02_jprb, 0.10529965e+02_jprb, 0.00000000e+00_jprb/)
397 pdgb( 5, 7,:) = (/&
398  &0.10082160e+02_jprb, 0.10832955e+02_jprb, 0.10000000e+01_jprb/)
399 pdga( 5, 8,:) = (/&
400  &0.83425443e+01_jprb, 0.96805504e+01_jprb, 0.00000000e+00_jprb/)
401 pdgb( 5, 8,:) = (/&
402  &0.83425443e+01_jprb, 0.99456138e+01_jprb, 0.10000000e+01_jprb/)
403 
404 !----- INTERVAL = 3 ----- T = 250.00
405 
406 pdga( 6, 7,:) = (/&
407  &0.94663507e+01_jprb, 0.10272823e+02_jprb, 0.00000000e+00_jprb/)
408 pdgb( 6, 7,:) = (/&
409  &0.94663507e+01_jprb, 0.10561525e+02_jprb, 0.10000000e+01_jprb/)
410 pdga( 6, 8,:) = (/&
411  &0.79324712e+01_jprb, 0.93914198e+01_jprb, 0.00000000e+00_jprb/)
412 pdgb( 6, 8,:) = (/&
413  &0.79324712e+01_jprb, 0.96496576e+01_jprb, 0.10000000e+01_jprb/)
414 
415 !----- INTERVAL = 3 ----- T = 262.50
416 
417 pdga( 7, 7,:) = (/&
418  &0.89643981e+01_jprb, 0.10030051e+02_jprb, 0.00000000e+00_jprb/)
419 pdgb( 7, 7,:) = (/&
420  &0.89643981e+01_jprb, 0.10307714e+02_jprb, 0.10000000e+01_jprb/)
421 pdga( 7, 8,:) = (/&
422  &0.76141974e+01_jprb, 0.91252916e+01_jprb, 0.00000000e+00_jprb/)
423 pdgb( 7, 8,:) = (/&
424  &0.76141974e+01_jprb, 0.93794463e+01_jprb, 0.10000000e+01_jprb/)
425 
426 !----- INTERVAL = 3 ----- T = 275.00
427 
428 pdga( 8, 7,:) = (/&
429  &0.85537123e+01_jprb, 0.98021793e+01_jprb, 0.00000000e+00_jprb/)
430 pdgb( 8, 7,:) = (/&
431  &0.85537123e+01_jprb, 0.10071426e+02_jprb, 0.10000000e+01_jprb/)
432 pdga( 8, 8,:) = (/&
433  &0.73668729e+01_jprb, 0.88811055e+01_jprb, 0.00000000e+00_jprb/)
434 pdgb( 8, 8,:) = (/&
435  &0.73668729e+01_jprb, 0.91333042e+01_jprb, 0.10000000e+01_jprb/)
436 
437 !----- INTERVAL = 3 ----- T = 287.50
438 
439 pdga( 9, 7,:) = (/&
440  &0.82163567e+01_jprb, 0.95891296e+01_jprb, 0.00000000e+00_jprb/)
441 pdgb( 9, 7,:) = (/&
442  &0.82163567e+01_jprb, 0.98520772e+01_jprb, 0.10000000e+01_jprb/)
443 pdga( 9, 8,:) = (/&
444  &0.71747025e+01_jprb, 0.86574340e+01_jprb, 0.00000000e+00_jprb/)
445 pdgb( 9, 8,:) = (/&
446  &0.71747025e+01_jprb, 0.89093260e+01_jprb, 0.10000000e+01_jprb/)
447 
448 !----- INTERVAL = 3 ----- T = 300.00
449 
450 pdga(10, 7,:) = (/&
451  &0.79381525e+01_jprb, 0.93904375e+01_jprb, 0.00000000e+00_jprb/)
452 pdgb(10, 7,:) = (/&
453  &0.79381525e+01_jprb, 0.96487960e+01_jprb, 0.10000000e+01_jprb/)
454 pdga(10, 8,:) = (/&
455  &0.70256573e+01_jprb, 0.84526940e+01_jprb, 0.00000000e+00_jprb/)
456 pdgb(10, 8,:) = (/&
457  &0.70256573e+01_jprb, 0.87055560e+01_jprb, 0.10000000e+01_jprb/)
458 
459 !----- INTERVAL = 3 ----- T = 312.50
460 
461 pdga(11, 7,:) = (/&
462  &0.77078849e+01_jprb, 0.92054098e+01_jprb, 0.00000000e+00_jprb/)
463 pdgb(11, 7,:) = (/&
464  &0.77078849e+01_jprb, 0.94605633e+01_jprb, 0.10000000e+01_jprb/)
465 pdga(11, 8,:) = (/&
466  &0.69105145e+01_jprb, 0.82652769e+01_jprb, 0.00000000e+00_jprb/)
467 pdgb(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 
475 pdga( 1, 9,:) = (/&
476  &0.94868790e+02_jprb, 0.17437229e+02_jprb, 0.00000000e+00_jprb/)
477 pdgb( 1, 9,:) = (/&
478  &0.94868790e+02_jprb, 0.18796329e+02_jprb, 0.10000000e+01_jprb/)
479 pdga( 1,10,:) = (/&
480  &0.95419113e+02_jprb, 0.17234291e+02_jprb, 0.00000000e+00_jprb/)
481 pdgb( 1,10,:) = (/&
482  &0.95419113e+02_jprb, 0.18632164e+02_jprb, 0.10000000e+01_jprb/)
483 
484 !----- INTERVAL = 4 ----- T = 200.000
485 
486 pdga( 2, 9,:) = (/&
487  &0.95143959e+02_jprb, 0.17335575e+02_jprb, 0.00000000e+00_jprb/)
488 pdgb( 2, 9,:) = (/&
489  &0.95143959e+02_jprb, 0.18714111e+02_jprb, 0.10000000e+01_jprb/)
490 pdga( 2,10,:) = (/&
491  &0.95675995e+02_jprb, 0.17129913e+02_jprb, 0.00000000e+00_jprb/)
492 pdgb( 2,10,:) = (/&
493  &0.95675995e+02_jprb, 0.18547161e+02_jprb, 0.10000000e+01_jprb/)
494 
495 !----- INTERVAL = 4 ----- T = 212.500
496 
497 pdga( 3, 9,:) = (/&
498  &0.95363609e+02_jprb, 0.17245064e+02_jprb, 0.00000000e+00_jprb/)
499 pdgb( 3, 9,:) = (/&
500  &0.95363609e+02_jprb, 0.18640270e+02_jprb, 0.10000000e+01_jprb/)
501 pdga( 3,10,:) = (/&
502  &0.95911537e+02_jprb, 0.17036016e+02_jprb, 0.00000000e+00_jprb/)
503 pdgb( 3,10,:) = (/&
504  &0.95911537e+02_jprb, 0.18470697e+02_jprb, 0.10000000e+01_jprb/)
505 
506 !----- INTERVAL = 4 ----- T = 225.000
507 
508 pdga( 4, 9,:) = (/&
509  &0.95551239e+02_jprb, 0.17163479e+02_jprb, 0.00000000e+00_jprb/)
510 pdgb( 4, 9,:) = (/&
511  &0.95551239e+02_jprb, 0.18573282e+02_jprb, 0.10000000e+01_jprb/)
512 pdga( 4,10,:) = (/&
513  &0.96128136e+02_jprb, 0.16952074e+02_jprb, 0.00000000e+00_jprb/)
514 pdgb( 4,10,:) = (/&
515  &0.96128136e+02_jprb, 0.18402708e+02_jprb, 0.10000000e+01_jprb/)
516 
517 !----- INTERVAL = 4 ----- T = 237.500
518 
519 pdga( 5, 9,:) = (/&
520  &0.95763680e+02_jprb, 0.17089018e+02_jprb, 0.00000000e+00_jprb/)
521 pdgb( 5, 9,:) = (/&
522  &0.95763680e+02_jprb, 0.18513403e+02_jprb, 0.10000000e+01_jprb/)
523 pdga( 5,10,:) = (/&
524  &0.96294296e+02_jprb, 0.16877150e+02_jprb, 0.00000000e+00_jprb/)
525 pdgb( 5,10,:) = (/&
526  &0.96294296e+02_jprb, 0.18341324e+02_jprb, 0.10000000e+01_jprb/)
527 
528 !----- INTERVAL = 4 ----- T = 250.000
529 
530 pdga( 6, 9,:) = (/&
531  &0.95913246e+02_jprb, 0.17022213e+02_jprb, 0.00000000e+00_jprb/)
532 pdgb( 6, 9,:) = (/&
533  &0.95913246e+02_jprb, 0.18458538e+02_jprb, 0.10000000e+01_jprb/)
534 pdga( 6,10,:) = (/&
535  &0.96462036e+02_jprb, 0.16808561e+02_jprb, 0.00000000e+00_jprb/)
536 pdgb( 6,10,:) = (/&
537  &0.96462036e+02_jprb, 0.18285398e+02_jprb, 0.10000000e+01_jprb/)
538 
539 !----- INTERVAL = 4 ----- T = 262.500
540 
541 pdga( 7, 9,:) = (/&
542  &0.96069473e+02_jprb, 0.16961018e+02_jprb, 0.00000000e+00_jprb/)
543 pdgb( 7, 9,:) = (/&
544  &0.96069473e+02_jprb, 0.18408932e+02_jprb, 0.10000000e+01_jprb/)
545 pdga( 7,10,:) = (/&
546  &0.96610298e+02_jprb, 0.16746571e+02_jprb, 0.00000000e+00_jprb/)
547 pdgb( 7,10,:) = (/&
548  &0.96610298e+02_jprb, 0.18234850e+02_jprb, 0.10000000e+01_jprb/)
549 
550 !----- INTERVAL = 4 ----- T = 275.000
551 
552 pdga( 8, 9,:) = (/&
553  &0.96201309e+02_jprb, 0.16905493e+02_jprb, 0.00000000e+00_jprb/)
554 pdgb( 8, 9,:) = (/&
555  &0.96201309e+02_jprb, 0.18363655e+02_jprb, 0.10000000e+01_jprb/)
556 pdga( 8,10,:) = (/&
557  &0.96754684e+02_jprb, 0.16690109e+02_jprb, 0.00000000e+00_jprb/)
558 pdgb( 8,10,:) = (/&
559  &0.96754684e+02_jprb, 0.18189079e+02_jprb, 0.10000000e+01_jprb/)
560 
561 !----- INTERVAL = 4 ----- T = 287.500
562 
563 pdga( 9, 9,:) = (/&
564  &0.96342339e+02_jprb, 0.16853893e+02_jprb, 0.00000000e+00_jprb/)
565 pdgb( 9, 9,:) = (/&
566  &0.96342339e+02_jprb, 0.18321957e+02_jprb, 0.10000000e+01_jprb/)
567 pdga( 9,10,:) = (/&
568  &0.96883301e+02_jprb, 0.16638573e+02_jprb, 0.00000000e+00_jprb/)
569 pdgb( 9,10,:) = (/&
570  &0.96883301e+02_jprb, 0.18147303e+02_jprb, 0.10000000e+01_jprb/)
571 
572 !----- INTERVAL = 4 ----- T = 300.000
573 
574 pdga(10, 9,:) = (/&
575  &0.96457764e+02_jprb, 0.16806755e+02_jprb, 0.00000000e+00_jprb/)
576 pdgb(10, 9,:) = (/&
577  &0.96457764e+02_jprb, 0.18283590e+02_jprb, 0.10000000e+01_jprb/)
578 pdga(10,10,:) = (/&
579  &0.96989792e+02_jprb, 0.16591677e+02_jprb, 0.00000000e+00_jprb/)
580 pdgb(10,10,:) = (/&
581  &0.96989792e+02_jprb, 0.18108814e+02_jprb, 0.10000000e+01_jprb/)
582 
583 !----- INTERVAL = 4 ----- T = 312.500
584 
585 pdga(11, 9,:) = (/&
586  &0.96549957e+02_jprb, 0.16763689e+02_jprb, 0.00000000e+00_jprb/)
587 pdgb(11, 9,:) = (/&
588  &0.96549957e+02_jprb, 0.18248074e+02_jprb, 0.10000000e+01_jprb/)
589 pdga(11,10,:) = (/&
590  &0.97097275e+02_jprb, 0.16548479e+02_jprb, 0.00000000e+00_jprb/)
591 pdgb(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 
599 pdga( 1, 5,:) = (/&
600  &0.13134047e+00_jprb,-0.23649048e-01_jprb, 0.00000000e+00_jprb/)
601 pdgb( 1, 5,:) = (/&
602  &0.13134047e+00_jprb, 0.54008597e+00_jprb, 0.10000000e+01_jprb/)
603 pdga( 1, 6,:) = (/&
604  &0.14049581e+00_jprb,-0.26231026e-01_jprb, 0.00000000e+00_jprb/)
605 pdgb( 1, 6,:) = (/&
606  &0.14049581e+00_jprb, 0.54143775e+00_jprb, 0.10000000e+01_jprb/)
607 
608 !----- INTERVAL = 5 ----- T = 200.000
609 
610 pdga( 2, 5,:) = (/&
611  &0.13330981e+00_jprb,-0.24178915e-01_jprb, 0.00000000e+00_jprb/)
612 pdgb( 2, 5,:) = (/&
613  &0.13330981e+00_jprb, 0.54094988e+00_jprb, 0.10000000e+01_jprb/)
614 pdga( 2, 6,:) = (/&
615  &0.14229582e+00_jprb,-0.26725627e-01_jprb, 0.00000000e+00_jprb/)
616 pdgb( 2, 6,:) = (/&
617  &0.14229582e+00_jprb, 0.54189402e+00_jprb, 0.10000000e+01_jprb/)
618 
619 !----- INTERVAL = 5 ----- T = 212.500
620 
621 pdga( 3, 5,:) = (/&
622  &0.13504511e+00_jprb,-0.24650861e-01_jprb, 0.00000000e+00_jprb/)
623 pdgb( 3, 5,:) = (/&
624  &0.13504511e+00_jprb, 0.54169583e+00_jprb, 0.10000000e+01_jprb/)
625 pdga( 3, 6,:) = (/&
626  &0.14384151e+00_jprb,-0.27153090e-01_jprb, 0.00000000e+00_jprb/)
627 pdgb( 3, 6,:) = (/&
628  &0.14384151e+00_jprb, 0.54222512e+00_jprb, 0.10000000e+01_jprb/)
629 
630 !----- INTERVAL = 5 ----- T = 225.000
631 
632 pdga( 4, 5,:) = (/&
633  &0.13651314e+00_jprb,-0.25044570e-01_jprb, 0.00000000e+00_jprb/)
634 pdgb( 4, 5,:) = (/&
635  &0.13651314e+00_jprb, 0.54191625e+00_jprb, 0.10000000e+01_jprb/)
636 pdga( 4, 6,:) = (/&
637  &0.14517485e+00_jprb,-0.27523417e-01_jprb, 0.00000000e+00_jprb/)
638 pdgb( 4, 6,:) = (/&
639  &0.14517485e+00_jprb, 0.54246801e+00_jprb, 0.10000000e+01_jprb/)
640 
641 !----- INTERVAL = 5 ----- T = 237.500
642 
643 pdga( 5, 5,:) = (/&
644  &0.13790466e+00_jprb,-0.25431205e-01_jprb, 0.00000000e+00_jprb/)
645 pdgb( 5, 5,:) = (/&
646  &0.13790466e+00_jprb, 0.54262739e+00_jprb, 0.10000000e+01_jprb/)
647 pdga( 5, 6,:) = (/&
648  &0.14633319e+00_jprb,-0.27845515e-01_jprb, 0.00000000e+00_jprb/)
649 pdgb( 5, 6,:) = (/&
650  &0.14633319e+00_jprb, 0.54265642e+00_jprb, 0.10000000e+01_jprb/)
651 
652 !----- INTERVAL = 5 ----- T = 250.000
653 
654 pdga( 6, 5,:) = (/&
655  &0.13909847e+00_jprb,-0.25759069e-01_jprb, 0.00000000e+00_jprb/)
656 pdgb( 6, 5,:) = (/&
657  &0.13909847e+00_jprb, 0.54293746e+00_jprb, 0.10000000e+01_jprb/)
658 pdga( 6, 6,:) = (/&
659  &0.14734478e+00_jprb,-0.28128289e-01_jprb, 0.00000000e+00_jprb/)
660 pdgb( 6, 6,:) = (/&
661  &0.14734478e+00_jprb, 0.54279846e+00_jprb, 0.10000000e+01_jprb/)
662 
663 !----- INTERVAL = 5 ----- T = 262.500
664 
665 pdga( 7, 5,:) = (/&
666  &0.14014673e+00_jprb,-0.26045626e-01_jprb, 0.00000000e+00_jprb/)
667 pdgb( 7, 5,:) = (/&
668  &0.14014673e+00_jprb, 0.54306209e+00_jprb, 0.10000000e+01_jprb/)
669 pdga( 7, 6,:) = (/&
670  &0.14823231e+00_jprb,-0.28376250e-01_jprb, 0.00000000e+00_jprb/)
671 pdgb( 7, 6,:) = (/&
672  &0.14823231e+00_jprb, 0.54290944e+00_jprb, 0.10000000e+01_jprb/)
673 
674 !----- INTERVAL = 5 ----- T = 275.000
675 
676 pdga( 8, 5,:) = (/&
677  &0.14110570e+00_jprb,-0.26310772e-01_jprb, 0.00000000e+00_jprb/)
678 pdgb( 8, 5,:) = (/&
679  &0.14110570e+00_jprb, 0.54324186e+00_jprb, 0.10000000e+01_jprb/)
680 pdga( 8, 6,:) = (/&
681  &0.14901793e+00_jprb,-0.28597040e-01_jprb, 0.00000000e+00_jprb/)
682 pdgb( 8, 6,:) = (/&
683  &0.14901793e+00_jprb, 0.54300690e+00_jprb, 0.10000000e+01_jprb/)
684 
685 !----- INTERVAL = 5 ----- T = 287.500
686 
687 pdga( 9, 5,:) = (/&
688  &0.14198618e+00_jprb,-0.26556855e-01_jprb, 0.00000000e+00_jprb/)
689 pdgb( 9, 5,:) = (/&
690  &0.14198618e+00_jprb, 0.54346353e+00_jprb, 0.10000000e+01_jprb/)
691 pdga( 9, 6,:) = (/&
692  &0.14971229e+00_jprb,-0.28792191e-01_jprb, 0.00000000e+00_jprb/)
693 pdgb( 9, 6,:) = (/&
694  &0.14971229e+00_jprb, 0.54307669e+00_jprb, 0.10000000e+01_jprb/)
695 
696 !----- INTERVAL = 5 ----- T = 300.000
697 
698 pdga(10, 5,:) = (/&
699  &0.14277160e+00_jprb,-0.26774861e-01_jprb, 0.00000000e+00_jprb/)
700 pdgb(10, 5,:) = (/&
701  &0.14277160e+00_jprb, 0.54357564e+00_jprb, 0.10000000e+01_jprb/)
702 pdga(10, 6,:) = (/&
703  &0.15033126e+00_jprb,-0.28966904e-01_jprb, 0.00000000e+00_jprb/)
704 pdgb(10, 6,:) = (/&
705  &0.15033126e+00_jprb, 0.54313493e+00_jprb, 0.10000000e+01_jprb/)
706 
707 !----- INTERVAL = 5 ----- T = 312.500
708 
709 pdga(11, 5,:) = (/&
710  &0.14349319e+00_jprb,-0.26976623e-01_jprb, 0.00000000e+00_jprb/)
711 pdgb(11, 5,:) = (/&
712  &0.14349319e+00_jprb, 0.54369903e+00_jprb, 0.10000000e+01_jprb/)
713 pdga(11, 6,:) = (/&
714  &0.15088280e+00_jprb,-0.29121898e-01_jprb, 0.00000000e+00_jprb/)
715 pdgb(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 
723 pdga( 1,11,:) = (/&
724  &0.59891051e+00_jprb, 0.12874948e-01_jprb, 0.00000000e+00_jprb/)
725 pdgb( 1,11,:) = (/&
726  &0.59891051e+00_jprb, 0.15230591e+01_jprb, 0.10000000e+01_jprb/)
727 pdga( 1,12,:) = (/&
728  &0.55131795e+00_jprb, 0.32252772e-01_jprb, 0.00000000e+00_jprb/)
729 pdgb( 1,12,:) = (/&
730  &0.55131795e+00_jprb, 0.14332603e+01_jprb, 0.10000000e+01_jprb/)
731 
732 !----- INTERVAL = 6 ----- T = 200.00
733 
734 pdga( 2,11,:) = (/&
735  &0.59891051e+00_jprb, 0.12874948e-01_jprb, 0.00000000e+00_jprb/)
736 pdgb( 2,11,:) = (/&
737  &0.59891051e+00_jprb, 0.15230591e+01_jprb, 0.10000000e+01_jprb/)
738 pdga( 2,12,:) = (/&
739  &0.55131795e+00_jprb, 0.32252772e-01_jprb, 0.00000000e+00_jprb/)
740 pdgb( 2,12,:) = (/&
741  &0.55131795e+00_jprb, 0.14332603e+01_jprb, 0.10000000e+01_jprb/)
742 
743 !----- INTERVAL = 6 ----- T = 212.50
744 
745 pdga( 3,11,:) = (/&
746  &0.59891051e+00_jprb, 0.12874948e-01_jprb, 0.00000000e+00_jprb/)
747 pdgb( 3,11,:) = (/&
748  &0.59891051e+00_jprb, 0.15230591e+01_jprb, 0.10000000e+01_jprb/)
749 pdga( 3,12,:) = (/&
750  &0.44063067e+00_jprb, 0.91024989e-01_jprb, 0.00000000e+00_jprb/)
751 pdgb( 3,12,:) = (/&
752  &0.44063067e+00_jprb, 0.12039660e+01_jprb, 0.10000000e+01_jprb/)
753 
754 !----- INTERVAL = 6 ----- T = 225.00
755 
756 pdga( 4,11,:) = (/&
757  &0.51061614e+00_jprb, 0.59883548e-01_jprb, 0.00000000e+00_jprb/)
758 pdgb( 4,11,:) = (/&
759  &0.51061614e+00_jprb, 0.13461757e+01_jprb, 0.10000000e+01_jprb/)
760 pdga( 4,12,:) = (/&
761  &0.30439727e+00_jprb, 0.15980470e+00_jprb, 0.00000000e+00_jprb/)
762 pdgb( 4,12,:) = (/&
763  &0.30439727e+00_jprb, 0.91241774e+00_jprb, 0.10000000e+01_jprb/)
764 
765 !----- INTERVAL = 6 ----- T = 237.50
766 
767 pdga( 5,11,:) = (/&
768  &0.40673842e+00_jprb, 0.11398935e+00_jprb, 0.00000000e+00_jprb/)
769 pdgb( 5,11,:) = (/&
770  &0.40673842e+00_jprb, 0.11289965e+01_jprb, 0.10000000e+01_jprb/)
771 pdga( 5,12,:) = (/&
772  &0.15005620e+00_jprb, 0.23446409e+00_jprb, 0.00000000e+00_jprb/)
773 pdgb( 5,12,:) = (/&
774  &0.15005620e+00_jprb, 0.58547602e+00_jprb, 0.10000000e+01_jprb/)
775 
776 !----- INTERVAL = 6 ----- T = 250.00
777 
778 pdga( 6,11,:) = (/&
779  &0.28375203e+00_jprb, 0.17444874e+00_jprb, 0.00000000e+00_jprb/)
780 pdgb( 6,11,:) = (/&
781  &0.28375203e+00_jprb, 0.86693115e+00_jprb, 0.10000000e+01_jprb/)
782 pdga( 6,12,:) = (/&
783  &0.51658133e-01_jprb, 0.29464628e+00_jprb, 0.00000000e+00_jprb/)
784 pdgb( 6,12,:) = (/&
785  &0.51658133e-01_jprb, 0.40170363e+00_jprb, 0.10000000e+01_jprb/)
786 
787 !----- INTERVAL = 6 ----- T = 262.50
788 
789 pdga( 7,11,:) = (/&
790  &0.15136005e+00_jprb, 0.23761536e+00_jprb, 0.00000000e+00_jprb/)
791 pdgb( 7,11,:) = (/&
792  &0.15136005e+00_jprb, 0.58911683e+00_jprb, 0.10000000e+01_jprb/)
793 pdga( 7,12,:) = (/&
794  &0.18932679e-01_jprb, 0.33516250e+00_jprb, 0.00000000e+00_jprb/)
795 pdgb( 7,12,:) = (/&
796  &0.18932679e-01_jprb, 0.36796152e+00_jprb, 0.10000000e+01_jprb/)
797 
798 !----- INTERVAL = 6 ----- T = 275.00
799 
800 pdga( 8,11,:) = (/&
801  &0.61752765e-01_jprb, 0.28965454e+00_jprb, 0.00000000e+00_jprb/)
802 pdgb( 8,11,:) = (/&
803  &0.61752765e-01_jprb, 0.41975793e+00_jprb, 0.10000000e+01_jprb/)
804 pdga( 8,12,:) = (/&
805  &0.79619427e-02_jprb, 0.36873141e+00_jprb, 0.00000000e+00_jprb/)
806 pdgb( 8,12,:) = (/&
807  &0.79619427e-02_jprb, 0.37964009e+00_jprb, 0.10000000e+01_jprb/)
808 
809 !----- INTERVAL = 6 ----- T = 287.50
810 
811 pdga( 9,11,:) = (/&
812  &0.26192233e-01_jprb, 0.32568668e+00_jprb, 0.00000000e+00_jprb/)
813 pdgb( 9,11,:) = (/&
814  &0.26192233e-01_jprb, 0.37385106e+00_jprb, 0.10000000e+01_jprb/)
815 pdga( 9,12,:) = (/&
816  &0.40764469e-02_jprb, 0.40137572e+00_jprb, 0.00000000e+00_jprb/)
817 pdgb( 9,12,:) = (/&
818  &0.40764469e-02_jprb, 0.40608889e+00_jprb, 0.10000000e+01_jprb/)
819 
820 !----- INTERVAL = 6 ----- T = 300.00
821 
822 pdga(10,11,:) = (/&
823  &0.12168738e-01_jprb, 0.35455148e+00_jprb, 0.00000000e+00_jprb/)
824 pdgb(10,11,:) = (/&
825  &0.12168738e-01_jprb, 0.37329084e+00_jprb, 0.10000000e+01_jprb/)
826 pdga(10,12,:) = (/&
827  &0.23914061e-02_jprb, 0.43615987e+00_jprb, 0.00000000e+00_jprb/)
828 pdgb(10,12,:) = (/&
829  &0.23914061e-02_jprb, 0.43919208e+00_jprb, 0.10000000e+01_jprb/)
830 
831 !----- INTERVAL = 6 ----- T = 312.50
832 
833 pdga(11,11,:) = (/&
834  &0.64195381e-02_jprb, 0.38088067e+00_jprb, 0.00000000e+00_jprb/)
835 pdgb(11,11,:) = (/&
836  &0.64195381e-02_jprb, 0.38906156e+00_jprb, 0.10000000e+01_jprb/)
837 pdga(11,12,:) = (/&
838  &0.23914061e-02_jprb, 0.43615987e+00_jprb, 0.00000000e+00_jprb/)
839 pdgb(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
856 pdga( 1,13,:) = (/&
857  &0.87668459e-01_jprb, 0.13845511e+01_jprb, 0.00000000e+00_jprb/)
858 pdgb( 1,13,:) = (/&
859  &0.87668459e-01_jprb, 0.23203798e+01_jprb, 0.10000000e+01_jprb/)
860 pdga( 1,14,:) = (/&
861  &0.74878820e-01_jprb, 0.11718758e+01_jprb, 0.00000000e+00_jprb/)
862 pdgb( 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
868 pdga( 2,13,:) = (/&
869  &0.83754276e-01_jprb, 0.13187042e+01_jprb, 0.00000000e+00_jprb/)
870 pdgb( 2,13,:) = (/&
871  &0.83754276e-01_jprb, 0.22288925e+01_jprb, 0.10000000e+01_jprb/)
872 pdga( 2,14,:) = (/&
873  &0.71650966e-01_jprb, 0.11216131e+01_jprb, 0.00000000e+00_jprb/)
874 pdgb( 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
880 pdga( 3,13,:) = (/&
881  &0.80460283e-01_jprb, 0.12644396e+01_jprb, 0.00000000e+00_jprb/)
882 pdgb( 3,13,:) = (/&
883  &0.80460283e-01_jprb, 0.21515593e+01_jprb, 0.10000000e+01_jprb/)
884 pdga( 3,14,:) = (/&
885  &0.68979615e-01_jprb, 0.10809473e+01_jprb, 0.00000000e+00_jprb/)
886 pdgb( 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
892 pdga( 4,13,:) = (/&
893  &0.77659686e-01_jprb, 0.12191543e+01_jprb, 0.00000000e+00_jprb/)
894 pdgb( 4,13,:) = (/&
895  &0.77659686e-01_jprb, 0.20855896e+01_jprb, 0.10000000e+01_jprb/)
896 pdga( 4,14,:) = (/&
897  &0.66745345e-01_jprb, 0.10476396e+01_jprb, 0.00000000e+00_jprb/)
898 pdgb( 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
904 pdga( 5,13,:) = (/&
905  &0.75257056e-01_jprb, 0.11809511e+01_jprb, 0.00000000e+00_jprb/)
906 pdgb( 5,13,:) = (/&
907  &0.75257056e-01_jprb, 0.20288489e+01_jprb, 0.10000000e+01_jprb/)
908 pdga( 5,14,:) = (/&
909  &0.64857571e-01_jprb, 0.10200373e+01_jprb, 0.00000000e+00_jprb/)
910 pdgb( 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
916 pdga( 6,13,:) = (/&
917  &0.73179175e-01_jprb, 0.11484154e+01_jprb, 0.00000000e+00_jprb/)
918 pdgb( 6,13,:) = (/&
919  &0.73179175e-01_jprb, 0.19796791e+01_jprb, 0.10000000e+01_jprb/)
920 pdga( 6,14,:) = (/&
921  &0.63248495e-01_jprb, 0.99692726e+00_jprb, 0.00000000e+00_jprb/)
922 pdgb( 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
928 pdga( 7,13,:) = (/&
929  &0.71369063e-01_jprb, 0.11204723e+01_jprb, 0.00000000e+00_jprb/)
930 pdgb( 7,13,:) = (/&
931  &0.71369063e-01_jprb, 0.19367778e+01_jprb, 0.10000000e+01_jprb/)
932 pdga( 7,14,:) = (/&
933  &0.61866970e-01_jprb, 0.97740923e+00_jprb, 0.00000000e+00_jprb/)
934 pdgb( 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
940 pdga( 8,13,:) = (/&
941  &0.69781812e-01_jprb, 0.10962918e+01_jprb, 0.00000000e+00_jprb/)
942 pdgb( 8,13,:) = (/&
943  &0.69781812e-01_jprb, 0.18991112e+01_jprb, 0.10000000e+01_jprb/)
944 pdga( 8,14,:) = (/&
945  &0.60673632e-01_jprb, 0.96080188e+00_jprb, 0.00000000e+00_jprb/)
946 pdgb( 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
952 pdga( 9,13,:) = (/&
953  &0.68381606e-01_jprb, 0.10752229e+01_jprb, 0.00000000e+00_jprb/)
954 pdgb( 9,13,:) = (/&
955  &0.68381606e-01_jprb, 0.18658501e+01_jprb, 0.10000000e+01_jprb/)
956 pdga( 9,14,:) = (/&
957  &0.59637277e-01_jprb, 0.94657562e+00_jprb, 0.00000000e+00_jprb/)
958 pdgb( 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
964 pdga(10,13,:) = (/&
965  &0.67139539e-01_jprb, 0.10567474e+01_jprb, 0.00000000e+00_jprb/)
966 pdgb(10,13,:) = (/&
967  &0.67139539e-01_jprb, 0.18363226e+01_jprb, 0.10000000e+01_jprb/)
968 pdga(10,14,:) = (/&
969  &0.58732178e-01_jprb, 0.93430511e+00_jprb, 0.00000000e+00_jprb/)
970 pdgb(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
976 pdga(11,13,:) = (/&
977  &0.66032012e-01_jprb, 0.10404465e+01_jprb, 0.00000000e+00_jprb/)
978 pdgb(11,13,:) = (/&
979  &0.66032012e-01_jprb, 0.18099779e+01_jprb, 0.10000000e+01_jprb/)
980 pdga(11,14,:) = (/&
981  &0.57936092e-01_jprb, 0.92363528e+00_jprb, 0.00000000e+00_jprb/)
982 pdgb(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
992 pdga( 1,15,:) = (/&
993  &0.13230067e+02_jprb, 0.22042132e+02_jprb, 0.00000000e+00_jprb/)
994 pdgb( 1,15,:) = (/&
995  &0.13230067e+02_jprb, 0.22051750e+02_jprb, 0.10000000e+01_jprb/)
996 pdga( 1,16,:) = (/&
997  &0.13183816e+02_jprb, 0.22169501e+02_jprb, 0.00000000e+00_jprb/)
998 pdgb( 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
1004 pdga( 2,15,:) = (/&
1005  &0.13213564e+02_jprb, 0.22107298e+02_jprb, 0.00000000e+00_jprb/)
1006 pdgb( 2,15,:) = (/&
1007  &0.13213564e+02_jprb, 0.22116850e+02_jprb, 0.10000000e+01_jprb/)
1008 pdga( 2,16,:) = (/&
1009  &0.13189991e+02_jprb, 0.22270075e+02_jprb, 0.00000000e+00_jprb/)
1010 pdgb( 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
1016 pdga( 3,15,:) = (/&
1017  &0.13209140e+02_jprb, 0.22180915e+02_jprb, 0.00000000e+00_jprb/)
1018 pdgb( 3,15,:) = (/&
1019  &0.13209140e+02_jprb, 0.22190410e+02_jprb, 0.10000000e+01_jprb/)
1020 pdga( 3,16,:) = (/&
1021  &0.13209485e+02_jprb, 0.22379193e+02_jprb, 0.00000000e+00_jprb/)
1022 pdgb( 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
1028 pdga( 4,15,:) = (/&
1029  &0.13213894e+02_jprb, 0.22259478e+02_jprb, 0.00000000e+00_jprb/)
1030 pdgb( 4,15,:) = (/&
1031  &0.13213894e+02_jprb, 0.22268925e+02_jprb, 0.10000000e+01_jprb/)
1032 pdga( 4,16,:) = (/&
1033  &0.13238789e+02_jprb, 0.22492992e+02_jprb, 0.00000000e+00_jprb/)
1034 pdgb( 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
1040 pdga( 5,15,:) = (/&
1041  &0.13225963e+02_jprb, 0.22341039e+02_jprb, 0.00000000e+00_jprb/)
1042 pdgb( 5,15,:) = (/&
1043  &0.13225963e+02_jprb, 0.22350445e+02_jprb, 0.10000000e+01_jprb/)
1044 pdga( 5,16,:) = (/&
1045  &0.13275017e+02_jprb, 0.22608508e+02_jprb, 0.00000000e+00_jprb/)
1046 pdgb( 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
1052 pdga( 6,15,:) = (/&
1053  &0.13243806e+02_jprb, 0.22424247e+02_jprb, 0.00000000e+00_jprb/)
1054 pdgb( 6,15,:) = (/&
1055  &0.13243806e+02_jprb, 0.22433617e+02_jprb, 0.10000000e+01_jprb/)
1056 pdga( 6,16,:) = (/&
1057  &0.13316096e+02_jprb, 0.22723843e+02_jprb, 0.00000000e+00_jprb/)
1058 pdgb( 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
1064 pdga( 7,15,:) = (/&
1065  &0.13266104e+02_jprb, 0.22508089e+02_jprb, 0.00000000e+00_jprb/)
1066 pdgb( 7,15,:) = (/&
1067  &0.13266104e+02_jprb, 0.22517429e+02_jprb, 0.10000000e+01_jprb/)
1068 pdga( 7,16,:) = (/&
1069  &0.13360555e+02_jprb, 0.22837837e+02_jprb, 0.00000000e+00_jprb/)
1070 pdgb( 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
1076 pdga( 8,15,:) = (/&
1077  &0.13291782e+02_jprb, 0.22591771e+02_jprb, 0.00000000e+00_jprb/)
1078 pdgb( 8,15,:) = (/&
1079  &0.13291782e+02_jprb, 0.22601086e+02_jprb, 0.10000000e+01_jprb/)
1080 pdga( 8,16,:) = (/&
1081  &0.13407324e+02_jprb, 0.22949751e+02_jprb, 0.00000000e+00_jprb/)
1082 pdgb( 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
1088 pdga( 9,15,:) = (/&
1089  &0.13319961e+02_jprb, 0.22674661e+02_jprb, 0.00000000e+00_jprb/)
1090 pdgb( 9,15,:) = (/&
1091  &0.13319961e+02_jprb, 0.22683956e+02_jprb, 0.10000000e+01_jprb/)
1092 pdga( 9,16,:) = (/&
1093  &0.13455544e+02_jprb, 0.23059032e+02_jprb, 0.00000000e+00_jprb/)
1094 pdgb( 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
1100 pdga(10,15,:) = (/&
1101  &0.13349927e+02_jprb, 0.22756246e+02_jprb, 0.00000000e+00_jprb/)
1102 pdgb(10,15,:) = (/&
1103  &0.13349927e+02_jprb, 0.22765522e+02_jprb, 0.10000000e+01_jprb/)
1104 pdga(10,16,:) = (/&
1105  &0.13504450e+02_jprb, 0.23165146e+02_jprb, 0.00000000e+00_jprb/)
1106 pdgb(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
1112 pdga(11,15,:) = (/&
1113  &0.13381108e+02_jprb, 0.22836093e+02_jprb, 0.00000000e+00_jprb/)
1114 pdgb(11,15,:) = (/&
1115  &0.13381108e+02_jprb, 0.22845354e+02_jprb, 0.10000000e+01_jprb/)
1116 pdga(11,16,:) = (/&
1117  &0.13553282e+02_jprb, 0.23267456e+02_jprb, 0.00000000e+00_jprb/)
1118 pdgb(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 
1128 retype(1:4)= (/ 12._jprb, 5.5_jprb, 4.25_jprb, 45._jprb /)
1129 
1130 !----- (CONTINUUM ABSORPTION: p-type COMPONENT)
1131 
1132 rptype(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
1142 alwt(1,:)= (/&
1143  &2.34995778846e-03_jprb, -2.76713384294e-04_jprb, 1.16480338097e-06_jprb/)
1144 blwt(1,:)= (/&
1145  &-1.58165952771e-05_jprb, -2.39167473702e-05_jprb, 1.80148335147e-07_jprb/)
1146 alwt(2,:)= (/&
1147  &2.52595953359e-02_jprb, -6.72079319635e-04_jprb, 5.74103783815e-06_jprb/)
1148 blwt(2,:)= (/&
1149  &-8.26196996910e-05_jprb, -1.05514645370e-05_jprb, 7.02984234993e-08_jprb/)
1150 alwt(3,:)= (/&
1151  &3.55525229363e-02_jprb, -7.94992134865e-04_jprb, 6.64848193374e-06_jprb/)
1152 blwt(3,:)= (/&
1153  &-9.71124908025e-05_jprb, -2.95218285256e-06_jprb, 2.23374952695e-08_jprb/)
1154 alwt(4,:)= (/&
1155  &5.47044522259e-02_jprb, -1.19105877667e-03_jprb, 9.74676865100e-06_jprb/)
1156 blwt(4,:)= (/&
1157  &-2.10153035427e-04_jprb, -6.93815560155e-06_jprb, 5.50381928956e-08_jprb/)
1158 alwt(5,:)= (/&
1159  &1.88063066950e-02_jprb, -1.11250846983e-04_jprb, 1.66977895508e-06_jprb/)
1160 blwt(5,:)= (/&
1161  &-5.72683436311e-05_jprb, -2.48448308453e-05_jprb, 1.88450887138e-07_jprb/)
1162 alwt(6,:)= (/&
1163  &1.29526952131e-02_jprb, -3.81424455035e-04_jprb, 3.07118138204e-06_jprb/)
1164 blwt(6,:)= (/&
1165  &-4.20789327775e-05_jprb, -1.25055291318e-05_jprb, 8.58839668934e-08_jprb/)
1166 
1167 
1168 !-------CO2
1169 
1170 alwt(7,:)= (/0.250073e-03_jprb,0.455875e-03_jprb,0.109242e-03_jprb /)
1171 blwt(7,:)= (/0.199846e-05_jprb,-.216313e-05_jprb,0.175991e-06_jprb /)
1172 alwt(8,:)= (/0.307423e-01_jprb,0.110879e-02_jprb,-.322172e-03_jprb /)
1173 blwt(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
1183 nsil = 6
1184 !-number of intervals with Pade approximants transmission functions
1185 nipd = 8
1186 nipd2 = 2*nipd
1187 !-number of reference temperatures
1188 ntr = 11
1189 !-number of absorber amounts
1190 nua = 24
1191 !-number of transmission functions
1192 ntra = 15
1193 !-number of Gauss angles
1194 ng1 = 2
1195 ng1p1 = ng1+1
1196 
1197 !-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
1198 ! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
1199 tstand = 250.0_jprb
1200 tref = 250.0_jprb
1201 
1202 !-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
1203 rt1 = (/ -0.577350269_jprb, +0.577350269_jprb /)
1204 wg1 = (/ _one_ , _one_ /)
1205 
1206 !-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
1207 tstp = 12.5_jprb
1208 mxixt = 10
1209 
1210 !-- COEFFICIENTS FOR OZONE ABSORPTION
1211 
1212 ro1h = 2230._jprb
1213 ro2h = 100._jprb
1214 rpialf0 = 2._jprb
1215 ro3t(1) = -.326e-03_jprb
1216 ro3t(2) = -.102e-05_jprb
1217 ro3t(3) = 0.137e-02_jprb
1218 ro3t(4) = -.535e-05_jprb
1219 
1220 !-- COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
1221 
1222 rvgco2= 60._jprb
1223 rvgh2o= 30._jprb
1224 rvgo3 =400._jprb
1225 
1226 ! ------------------------------------------------------------------
1227 
1228 RETURN
1229 END SUBROUTINE sulwn
yoelw::tstand
real(kind=jprb) tstand
Definition: yoelw.F90:36
yoelw::tref
real(kind=jprb) tref
Definition: yoelw.F90:35
yoelw::blwt
real(kind=jprb), dimension(8, 3) blwt
Definition: yoelw.F90:23
yoelw::pdga
real(kind=jprb), dimension(11, 16, 3) pdga
Definition: yoelw.F90:24
yoelw::nipd
integer(kind=jpim) nipd
Definition: yoelw.F90:15
yoelw::rvgco2
real(kind=jprb) rvgco2
Definition: yoelw.F90:40
yoelw
Definition: yoelw.F90:1
yoelw::nsil
integer(kind=jpim) nsil
Definition: yoelw.F90:14
sulwn
subroutine sulwn
Definition: sulwn.F90:2
yoelw::rvgo3
real(kind=jprb) rvgo3
Definition: yoelw.F90:42
yoelw::nua
integer(kind=jpim) nua
Definition: yoelw.F90:19
yoelw::retype
real(kind=jprb), dimension(4) retype
Definition: yoelw.F90:27
yoelw::xp
real(kind=jprb), dimension(6, 6) xp
Definition: yoelw.F90:39
yoelw::wg1
real(kind=jprb), dimension(2) wg1
Definition: yoelw.F90:38
yoelw::ntr
integer(kind=jpim) ntr
Definition: yoelw.F90:17
yoelw::ng1
integer(kind=jpim) ng1
Definition: yoelw.F90:20
yoelw::ro3t
real(kind=jprb), dimension(4) ro3t
Definition: yoelw.F90:31
yoelw::rpialf0
real(kind=jprb) rpialf0
Definition: yoelw.F90:32
yoelw::rptype
real(kind=jprb), dimension(4) rptype
Definition: yoelw.F90:26
yoelw::pdgb
real(kind=jprb), dimension(11, 16, 3) pdgb
Definition: yoelw.F90:25
yoelw::alwt
real(kind=jprb), dimension(8, 3) alwt
Definition: yoelw.F90:22
yoelw::tstp
real(kind=jprb) tstp
Definition: yoelw.F90:37
yoelw::ng1p1
integer(kind=jpim) ng1p1
Definition: yoelw.F90:21
yoelw::nipd2
integer(kind=jpim) nipd2
Definition: yoelw.F90:16
yoelw::rvgh2o
real(kind=jprb) rvgh2o
Definition: yoelw.F90:41
yoelw::mxixt
integer(kind=jpim) mxixt
Definition: yoelw.F90:13
yoelw::ro1h
real(kind=jprb) ro1h
Definition: yoelw.F90:29
yoelw::tintp
real(kind=jprb), dimension(11) tintp
Definition: yoelw.F90:34
yoelw::ntra
integer(kind=jpim) ntra
Definition: yoelw.F90:18
yoelw::rt1
real(kind=jprb), dimension(2) rt1
Definition: yoelw.F90:33
yoelw::ro2h
real(kind=jprb) ro2h
Definition: yoelw.F90:30