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