1 |
|
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 |
✓✗ |
1 |
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 |
|
1 |
& 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 |
✓✓ |
7 |
& 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 |
✓✓ |
7 |
& -.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 |
✓✓ |
7 |
& 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 |
✓✓ |
7 |
& 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 |
✓✓ |
7 |
& -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 |
✓✓ |
7 |
& 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 |
✓✓ |
4 |
& 0.25000224E-02_JPRB, 0.18701843E-02_JPRB, 0.00000000E+00_JPRB/) |
104 |
|
|
PDGB( 1, 1,:) = (/& |
105 |
✓✓ |
4 |
& 0.25000224E-02_JPRB, 0.61593968E-01_JPRB, 0.10000000E+01_JPRB/) |
106 |
|
|
PDGA( 1, 2,:) = (/& |
107 |
✓✓ |
4 |
& 0.34131105E-02_JPRB, 0.55153039E-03_JPRB, 0.00000000E+00_JPRB/) |
108 |
|
|
PDGB( 1, 2,:) = (/& |
109 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.26344616E-02_JPRB, 0.16894582E-02_JPRB, 0.00000000E+00_JPRB/) |
115 |
|
|
PDGB( 2, 1,:) = (/& |
116 |
✓✓ |
4 |
& 0.26344616E-02_JPRB, 0.63633167E-01_JPRB, 0.10000000E+01_JPRB/) |
117 |
|
|
PDGA( 2, 2,:) = (/& |
118 |
✓✓ |
4 |
& 0.36120928E-02_JPRB, 0.44720171E-03_JPRB, 0.00000000E+00_JPRB/) |
119 |
|
|
PDGB( 2, 2,:) = (/& |
120 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.27743234E-02_JPRB, 0.15245487E-02_JPRB, 0.00000000E+00_JPRB/) |
126 |
|
|
PDGB( 3, 1,:) = (/& |
127 |
✓✓ |
4 |
& 0.27743234E-02_JPRB, 0.65651733E-01_JPRB, 0.10000000E+01_JPRB/) |
128 |
|
|
PDGA( 3, 2,:) = (/& |
129 |
✓✓ |
4 |
& 0.38453121E-02_JPRB, 0.42382776E-03_JPRB, 0.00000000E+00_JPRB/) |
130 |
|
|
PDGB( 3, 2,:) = (/& |
131 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.29265376E-02_JPRB, 0.13719090E-02_JPRB, 0.00000000E+00_JPRB/) |
137 |
|
|
PDGB( 4, 1,:) = (/& |
138 |
✓✓ |
4 |
& 0.29265376E-02_JPRB, 0.67739270E-01_JPRB, 0.10000000E+01_JPRB/) |
139 |
|
|
PDGA( 4, 2,:) = (/& |
140 |
✓✓ |
4 |
& 0.41211460E-02_JPRB, 0.42401401E-03_JPRB, 0.00000000E+00_JPRB/) |
141 |
|
|
PDGB( 4, 2,:) = (/& |
142 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.30979053E-02_JPRB, 0.12223308E-02_JPRB, 0.00000000E+00_JPRB/) |
148 |
|
|
PDGB( 5, 1,:) = (/& |
149 |
✓✓ |
4 |
& 0.30979053E-02_JPRB, 0.69968340E-01_JPRB, 0.10000000E+01_JPRB/) |
150 |
|
|
PDGA( 5, 2,:) = (/& |
151 |
✓✓ |
4 |
& 0.43966504E-02_JPRB, 0.67198946E-03_JPRB, 0.00000000E+00_JPRB/) |
152 |
|
|
PDGB( 5, 2,:) = (/& |
153 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.32813184E-02_JPRB, 0.11573810E-02_JPRB, 0.00000000E+00_JPRB/) |
159 |
|
|
PDGB( 6, 1,:) = (/& |
160 |
✓✓ |
4 |
& 0.32813184E-02_JPRB, 0.72183750E-01_JPRB, 0.10000000E+01_JPRB/) |
161 |
|
|
PDGA( 6, 2,:) = (/& |
162 |
✓✓ |
4 |
& 0.46792452E-02_JPRB, 0.99691013E-03_JPRB, 0.00000000E+00_JPRB/) |
163 |
|
|
PDGB( 6, 2,:) = (/& |
164 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.34869261E-02_JPRB, 0.11110812E-02_JPRB, 0.00000000E+00_JPRB/) |
170 |
|
|
PDGB( 7, 1,:) = (/& |
171 |
✓✓ |
4 |
& 0.34869261E-02_JPRB, 0.74507149E-01_JPRB, 0.10000000E+01_JPRB/) |
172 |
|
|
PDGA( 7, 2,:) = (/& |
173 |
✓✓ |
4 |
& 0.49313571E-02_JPRB, 0.15144806E-02_JPRB, 0.00000000E+00_JPRB/) |
174 |
|
|
PDGB( 7, 2,:) = (/& |
175 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.37169013E-02_JPRB, 0.10586459E-02_JPRB, 0.00000000E+00_JPRB/) |
181 |
|
|
PDGB( 8, 1,:) = (/& |
182 |
✓✓ |
4 |
& 0.37169013E-02_JPRB, 0.76930655E-01_JPRB, 0.10000000E+01_JPRB/) |
183 |
|
|
PDGA( 8, 2,:) = (/& |
184 |
✓✓ |
4 |
& 0.51606177E-02_JPRB, 0.20799953E-02_JPRB, 0.00000000E+00_JPRB/) |
185 |
|
|
PDGB( 8, 2,:) = (/& |
186 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.39482491E-02_JPRB, 0.11280761E-02_JPRB, 0.00000000E+00_JPRB/) |
192 |
|
|
PDGB( 9, 1,:) = (/& |
193 |
✓✓ |
4 |
& 0.39482491E-02_JPRB, 0.79096624E-01_JPRB, 0.10000000E+01_JPRB/) |
194 |
|
|
PDGA( 9, 2,:) = (/& |
195 |
✓✓ |
4 |
& 0.53608496E-02_JPRB, 0.26755638E-02_JPRB, 0.00000000E+00_JPRB/) |
196 |
|
|
PDGB( 9, 2,:) = (/& |
197 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.41849825E-02_JPRB, 0.12500965E-02_JPRB, 0.00000000E+00_JPRB/) |
203 |
|
|
PDGB(10, 1,:) = (/& |
204 |
✓✓ |
4 |
& 0.41849825E-02_JPRB, 0.81087000E-01_JPRB, 0.10000000E+01_JPRB/) |
205 |
|
|
PDGA(10, 2,:) = (/& |
206 |
✓✓ |
4 |
& 0.55372909E-02_JPRB, 0.32512851E-02_JPRB, 0.00000000E+00_JPRB/) |
207 |
|
|
PDGB(10, 2,:) = (/& |
208 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.44204714E-02_JPRB, 0.14195697E-02_JPRB, 0.00000000E+00_JPRB/) |
214 |
|
|
PDGB(11, 1,:) = (/& |
215 |
✓✓ |
4 |
& 0.44204714E-02_JPRB, 0.82840020E-01_JPRB, 0.10000000E+01_JPRB/) |
216 |
|
|
PDGA(11, 2,:) = (/& |
217 |
✓✓ |
4 |
& 0.56935299E-02_JPRB, 0.38054592E-02_JPRB, 0.00000000E+00_JPRB/) |
218 |
|
|
PDGB(11, 2,:) = (/& |
219 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.15053751E+01_JPRB, 0.45361026E+00_JPRB, 0.00000000E+00_JPRB/) |
227 |
|
|
PDGB( 1, 3,:) = (/& |
228 |
✓✓ |
4 |
& 0.15053751E+01_JPRB, 0.15789584E+01_JPRB, 0.10000000E+01_JPRB/) |
229 |
|
|
PDGA( 1, 4,:) = (/& |
230 |
✓✓ |
4 |
& 0.18920793E+01_JPRB, 0.53457554E+00_JPRB, 0.00000000E+00_JPRB/) |
231 |
|
|
PDGB( 1, 4,:) = (/& |
232 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.15977537E+01_JPRB, 0.48084314E+00_JPRB, 0.00000000E+00_JPRB/) |
238 |
|
|
PDGB( 2, 3,:) = (/& |
239 |
✓✓ |
4 |
& 0.15977537E+01_JPRB, 0.16476468E+01_JPRB, 0.10000000E+01_JPRB/) |
240 |
|
|
PDGA( 2, 4,:) = (/& |
241 |
✓✓ |
4 |
& 0.20435568E+01_JPRB, 0.55893717E+00_JPRB, 0.00000000E+00_JPRB/) |
242 |
|
|
PDGB( 2, 4,:) = (/& |
243 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.16913237E+01_JPRB, 0.50454053E+00_JPRB, 0.00000000E+00_JPRB/) |
249 |
|
|
PDGB( 3, 3,:) = (/& |
250 |
✓✓ |
4 |
& 0.16913237E+01_JPRB, 0.17144170E+01_JPRB, 0.10000000E+01_JPRB/) |
251 |
|
|
PDGA( 3, 4,:) = (/& |
252 |
✓✓ |
4 |
& 0.21978186E+01_JPRB, 0.57905459E+00_JPRB, 0.00000000E+00_JPRB/) |
253 |
|
|
PDGB( 3, 4,:) = (/& |
254 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.17856476E+01_JPRB, 0.52514194E+00_JPRB, 0.00000000E+00_JPRB/) |
260 |
|
|
PDGB( 4, 3,:) = (/& |
261 |
✓✓ |
4 |
& 0.17856476E+01_JPRB, 0.17792823E+01_JPRB, 0.10000000E+01_JPRB/) |
262 |
|
|
PDGA( 4, 4,:) = (/& |
263 |
✓✓ |
4 |
& 0.23533355E+01_JPRB, 0.59558005E+00_JPRB, 0.00000000E+00_JPRB/) |
264 |
|
|
PDGB( 4, 4,:) = (/& |
265 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.18802811E+01_JPRB, 0.54304459E+00_JPRB, 0.00000000E+00_JPRB/) |
271 |
|
|
PDGB( 5, 3,:) = (/& |
272 |
✓✓ |
4 |
& 0.18802811E+01_JPRB, 0.18422412E+01_JPRB, 0.10000000E+01_JPRB/) |
273 |
|
|
PDGA( 5, 4,:) = (/& |
274 |
✓✓ |
4 |
& 0.25086500E+01_JPRB, 0.60908958E+00_JPRB, 0.00000000E+00_JPRB/) |
275 |
|
|
PDGB( 5, 4,:) = (/& |
276 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.19747954E+01_JPRB, 0.55860186E+00_JPRB, 0.00000000E+00_JPRB/) |
282 |
|
|
PDGB( 6, 3,:) = (/& |
283 |
✓✓ |
4 |
& 0.19747954E+01_JPRB, 0.19032856E+01_JPRB, 0.10000000E+01_JPRB/) |
284 |
|
|
PDGA( 6, 4,:) = (/& |
285 |
✓✓ |
4 |
& 0.26624407E+01_JPRB, 0.62008317E+00_JPRB, 0.00000000E+00_JPRB/) |
286 |
|
|
PDGB( 6, 4,:) = (/& |
287 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.20687911E+01_JPRB, 0.57212480E+00_JPRB, 0.00000000E+00_JPRB/) |
293 |
|
|
PDGB( 7, 3,:) = (/& |
294 |
✓✓ |
4 |
& 0.20687911E+01_JPRB, 0.19624068E+01_JPRB, 0.10000000E+01_JPRB/) |
295 |
|
|
PDGA( 7, 4,:) = (/& |
296 |
✓✓ |
4 |
& 0.28135635E+01_JPRB, 0.62898892E+00_JPRB, 0.00000000E+00_JPRB/) |
297 |
|
|
PDGB( 7, 4,:) = (/& |
298 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.21619083E+01_JPRB, 0.58388519E+00_JPRB, 0.00000000E+00_JPRB/) |
304 |
|
|
PDGB( 8, 3,:) = (/& |
305 |
✓✓ |
4 |
& 0.21619083E+01_JPRB, 0.20195993E+01_JPRB, 0.10000000E+01_JPRB/) |
306 |
|
|
PDGA( 8, 4,:) = (/& |
307 |
✓✓ |
4 |
& 0.29610693E+01_JPRB, 0.63616954E+00_JPRB, 0.00000000E+00_JPRB/) |
308 |
|
|
PDGB( 8, 4,:) = (/& |
309 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.22538305E+01_JPRB, 0.59411934E+00_JPRB, 0.00000000E+00_JPRB/) |
315 |
|
|
PDGB( 9, 3,:) = (/& |
316 |
✓✓ |
4 |
& 0.22538305E+01_JPRB, 0.20748638E+01_JPRB, 0.10000000E+01_JPRB/) |
317 |
|
|
PDGA( 9, 4,:) = (/& |
318 |
✓✓ |
4 |
& 0.31042087E+01_JPRB, 0.64192944E+00_JPRB, 0.00000000E+00_JPRB/) |
319 |
|
|
PDGB( 9, 4,:) = (/& |
320 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.23442867E+01_JPRB, 0.60303198E+00_JPRB, 0.00000000E+00_JPRB/) |
326 |
|
|
PDGB(10, 3,:) = (/& |
327 |
✓✓ |
4 |
& 0.23442867E+01_JPRB, 0.21282086E+01_JPRB, 0.10000000E+01_JPRB/) |
328 |
|
|
PDGA(10, 4,:) = (/& |
329 |
✓✓ |
4 |
& 0.32424163E+01_JPRB, 0.64652280E+00_JPRB, 0.00000000E+00_JPRB/) |
330 |
|
|
PDGB(10, 4,:) = (/& |
331 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.24330507E+01_JPRB, 0.61080006E+00_JPRB, 0.00000000E+00_JPRB/) |
337 |
|
|
PDGB(11, 3,:) = (/& |
338 |
✓✓ |
4 |
& 0.24330507E+01_JPRB, 0.21796505E+01_JPRB, 0.10000000E+01_JPRB/) |
339 |
|
|
PDGA(11, 4,:) = (/& |
340 |
✓✓ |
4 |
& 0.33752974E+01_JPRB, 0.65016031E+00_JPRB, 0.00000000E+00_JPRB/) |
341 |
|
|
PDGB(11, 4,:) = (/& |
342 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.14334746E+02_JPRB, 0.11649992E+02_JPRB, 0.00000000E+00_JPRB/) |
350 |
|
|
PDGB( 1, 7,:) = (/& |
351 |
✓✓ |
4 |
& 0.14334746E+02_JPRB, 0.12059903E+02_JPRB, 0.10000000E+01_JPRB/) |
352 |
|
|
PDGA( 1, 8,:) = (/& |
353 |
✓✓ |
4 |
& 0.11596027E+02_JPRB, 0.11051587E+02_JPRB, 0.00000000E+00_JPRB/) |
354 |
|
|
PDGB( 1, 8,:) = (/& |
355 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.12924521E+02_JPRB, 0.11365906E+02_JPRB, 0.00000000E+00_JPRB/) |
361 |
|
|
PDGB( 2, 7,:) = (/& |
362 |
✓✓ |
4 |
& 0.12924521E+02_JPRB, 0.11739611E+02_JPRB, 0.10000000E+01_JPRB/) |
363 |
|
|
PDGA( 2, 8,:) = (/& |
364 |
✓✓ |
4 |
& 0.10445365E+02_JPRB, 0.10682810E+02_JPRB, 0.00000000E+00_JPRB/) |
365 |
|
|
PDGB( 2, 8,:) = (/& |
366 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.11774060E+02_JPRB, 0.11080218E+02_JPRB, 0.00000000E+00_JPRB/) |
372 |
|
|
PDGB( 3, 7,:) = (/& |
373 |
✓✓ |
4 |
& 0.11774060E+02_JPRB, 0.11424740E+02_JPRB, 0.10000000E+01_JPRB/) |
374 |
|
|
PDGA( 3, 8,:) = (/& |
375 |
✓✓ |
4 |
& 0.95571840E+01_JPRB, 0.10328058E+02_JPRB, 0.00000000E+00_JPRB/) |
376 |
|
|
PDGB( 3, 8,:) = (/& |
377 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.10839967E+02_JPRB, 0.10800025E+02_JPRB, 0.00000000E+00_JPRB/) |
383 |
|
|
PDGB( 4, 7,:) = (/& |
384 |
✓✓ |
4 |
& 0.10839967E+02_JPRB, 0.11121318E+02_JPRB, 0.10000000E+01_JPRB/) |
385 |
|
|
PDGA( 4, 8,:) = (/& |
386 |
✓✓ |
4 |
& 0.88719975E+01_JPRB, 0.99930444E+01_JPRB, 0.00000000E+00_JPRB/) |
387 |
|
|
PDGB( 4, 8,:) = (/& |
388 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.10082160E+02_JPRB, 0.10529965E+02_JPRB, 0.00000000E+00_JPRB/) |
394 |
|
|
PDGB( 5, 7,:) = (/& |
395 |
✓✓ |
4 |
& 0.10082160E+02_JPRB, 0.10832955E+02_JPRB, 0.10000000E+01_JPRB/) |
396 |
|
|
PDGA( 5, 8,:) = (/& |
397 |
✓✓ |
4 |
& 0.83425443E+01_JPRB, 0.96805504E+01_JPRB, 0.00000000E+00_JPRB/) |
398 |
|
|
PDGB( 5, 8,:) = (/& |
399 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.94663507E+01_JPRB, 0.10272823E+02_JPRB, 0.00000000E+00_JPRB/) |
405 |
|
|
PDGB( 6, 7,:) = (/& |
406 |
✓✓ |
4 |
& 0.94663507E+01_JPRB, 0.10561525E+02_JPRB, 0.10000000E+01_JPRB/) |
407 |
|
|
PDGA( 6, 8,:) = (/& |
408 |
✓✓ |
4 |
& 0.79324712E+01_JPRB, 0.93914198E+01_JPRB, 0.00000000E+00_JPRB/) |
409 |
|
|
PDGB( 6, 8,:) = (/& |
410 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.89643981E+01_JPRB, 0.10030051E+02_JPRB, 0.00000000E+00_JPRB/) |
416 |
|
|
PDGB( 7, 7,:) = (/& |
417 |
✓✓ |
4 |
& 0.89643981E+01_JPRB, 0.10307714E+02_JPRB, 0.10000000E+01_JPRB/) |
418 |
|
|
PDGA( 7, 8,:) = (/& |
419 |
✓✓ |
4 |
& 0.76141974E+01_JPRB, 0.91252916E+01_JPRB, 0.00000000E+00_JPRB/) |
420 |
|
|
PDGB( 7, 8,:) = (/& |
421 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.85537123E+01_JPRB, 0.98021793E+01_JPRB, 0.00000000E+00_JPRB/) |
427 |
|
|
PDGB( 8, 7,:) = (/& |
428 |
✓✓ |
4 |
& 0.85537123E+01_JPRB, 0.10071426E+02_JPRB, 0.10000000E+01_JPRB/) |
429 |
|
|
PDGA( 8, 8,:) = (/& |
430 |
✓✓ |
4 |
& 0.73668729E+01_JPRB, 0.88811055E+01_JPRB, 0.00000000E+00_JPRB/) |
431 |
|
|
PDGB( 8, 8,:) = (/& |
432 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.82163567E+01_JPRB, 0.95891296E+01_JPRB, 0.00000000E+00_JPRB/) |
438 |
|
|
PDGB( 9, 7,:) = (/& |
439 |
✓✓ |
4 |
& 0.82163567E+01_JPRB, 0.98520772E+01_JPRB, 0.10000000E+01_JPRB/) |
440 |
|
|
PDGA( 9, 8,:) = (/& |
441 |
✓✓ |
4 |
& 0.71747025E+01_JPRB, 0.86574340E+01_JPRB, 0.00000000E+00_JPRB/) |
442 |
|
|
PDGB( 9, 8,:) = (/& |
443 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.79381525E+01_JPRB, 0.93904375E+01_JPRB, 0.00000000E+00_JPRB/) |
449 |
|
|
PDGB(10, 7,:) = (/& |
450 |
✓✓ |
4 |
& 0.79381525E+01_JPRB, 0.96487960E+01_JPRB, 0.10000000E+01_JPRB/) |
451 |
|
|
PDGA(10, 8,:) = (/& |
452 |
✓✓ |
4 |
& 0.70256573E+01_JPRB, 0.84526940E+01_JPRB, 0.00000000E+00_JPRB/) |
453 |
|
|
PDGB(10, 8,:) = (/& |
454 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.77078849E+01_JPRB, 0.92054098E+01_JPRB, 0.00000000E+00_JPRB/) |
460 |
|
|
PDGB(11, 7,:) = (/& |
461 |
✓✓ |
4 |
& 0.77078849E+01_JPRB, 0.94605633E+01_JPRB, 0.10000000E+01_JPRB/) |
462 |
|
|
PDGA(11, 8,:) = (/& |
463 |
✓✓ |
4 |
& 0.69105145E+01_JPRB, 0.82652769E+01_JPRB, 0.00000000E+00_JPRB/) |
464 |
|
|
PDGB(11, 8,:) = (/& |
465 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.94868790E+02_JPRB, 0.17437229E+02_JPRB, 0.00000000E+00_JPRB/) |
473 |
|
|
PDGB( 1, 9,:) = (/& |
474 |
✓✓ |
4 |
& 0.94868790E+02_JPRB, 0.18796329E+02_JPRB, 0.10000000E+01_JPRB/) |
475 |
|
|
PDGA( 1,10,:) = (/& |
476 |
✓✓ |
4 |
& 0.95419113E+02_JPRB, 0.17234291E+02_JPRB, 0.00000000E+00_JPRB/) |
477 |
|
|
PDGB( 1,10,:) = (/& |
478 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.95143959E+02_JPRB, 0.17335575E+02_JPRB, 0.00000000E+00_JPRB/) |
484 |
|
|
PDGB( 2, 9,:) = (/& |
485 |
✓✓ |
4 |
& 0.95143959E+02_JPRB, 0.18714111E+02_JPRB, 0.10000000E+01_JPRB/) |
486 |
|
|
PDGA( 2,10,:) = (/& |
487 |
✓✓ |
4 |
& 0.95675995E+02_JPRB, 0.17129913E+02_JPRB, 0.00000000E+00_JPRB/) |
488 |
|
|
PDGB( 2,10,:) = (/& |
489 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.95363609E+02_JPRB, 0.17245064E+02_JPRB, 0.00000000E+00_JPRB/) |
495 |
|
|
PDGB( 3, 9,:) = (/& |
496 |
✓✓ |
4 |
& 0.95363609E+02_JPRB, 0.18640270E+02_JPRB, 0.10000000E+01_JPRB/) |
497 |
|
|
PDGA( 3,10,:) = (/& |
498 |
✓✓ |
4 |
& 0.95911537E+02_JPRB, 0.17036016E+02_JPRB, 0.00000000E+00_JPRB/) |
499 |
|
|
PDGB( 3,10,:) = (/& |
500 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.95551239E+02_JPRB, 0.17163479E+02_JPRB, 0.00000000E+00_JPRB/) |
506 |
|
|
PDGB( 4, 9,:) = (/& |
507 |
✓✓ |
4 |
& 0.95551239E+02_JPRB, 0.18573282E+02_JPRB, 0.10000000E+01_JPRB/) |
508 |
|
|
PDGA( 4,10,:) = (/& |
509 |
✓✓ |
4 |
& 0.96128136E+02_JPRB, 0.16952074E+02_JPRB, 0.00000000E+00_JPRB/) |
510 |
|
|
PDGB( 4,10,:) = (/& |
511 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.95763680E+02_JPRB, 0.17089018E+02_JPRB, 0.00000000E+00_JPRB/) |
517 |
|
|
PDGB( 5, 9,:) = (/& |
518 |
✓✓ |
4 |
& 0.95763680E+02_JPRB, 0.18513403E+02_JPRB, 0.10000000E+01_JPRB/) |
519 |
|
|
PDGA( 5,10,:) = (/& |
520 |
✓✓ |
4 |
& 0.96294296E+02_JPRB, 0.16877150E+02_JPRB, 0.00000000E+00_JPRB/) |
521 |
|
|
PDGB( 5,10,:) = (/& |
522 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.95913246E+02_JPRB, 0.17022213E+02_JPRB, 0.00000000E+00_JPRB/) |
528 |
|
|
PDGB( 6, 9,:) = (/& |
529 |
✓✓ |
4 |
& 0.95913246E+02_JPRB, 0.18458538E+02_JPRB, 0.10000000E+01_JPRB/) |
530 |
|
|
PDGA( 6,10,:) = (/& |
531 |
✓✓ |
4 |
& 0.96462036E+02_JPRB, 0.16808561E+02_JPRB, 0.00000000E+00_JPRB/) |
532 |
|
|
PDGB( 6,10,:) = (/& |
533 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.96069473E+02_JPRB, 0.16961018E+02_JPRB, 0.00000000E+00_JPRB/) |
539 |
|
|
PDGB( 7, 9,:) = (/& |
540 |
✓✓ |
4 |
& 0.96069473E+02_JPRB, 0.18408932E+02_JPRB, 0.10000000E+01_JPRB/) |
541 |
|
|
PDGA( 7,10,:) = (/& |
542 |
✓✓ |
4 |
& 0.96610298E+02_JPRB, 0.16746571E+02_JPRB, 0.00000000E+00_JPRB/) |
543 |
|
|
PDGB( 7,10,:) = (/& |
544 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.96201309E+02_JPRB, 0.16905493E+02_JPRB, 0.00000000E+00_JPRB/) |
550 |
|
|
PDGB( 8, 9,:) = (/& |
551 |
✓✓ |
4 |
& 0.96201309E+02_JPRB, 0.18363655E+02_JPRB, 0.10000000E+01_JPRB/) |
552 |
|
|
PDGA( 8,10,:) = (/& |
553 |
✓✓ |
4 |
& 0.96754684E+02_JPRB, 0.16690109E+02_JPRB, 0.00000000E+00_JPRB/) |
554 |
|
|
PDGB( 8,10,:) = (/& |
555 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.96342339E+02_JPRB, 0.16853893E+02_JPRB, 0.00000000E+00_JPRB/) |
561 |
|
|
PDGB( 9, 9,:) = (/& |
562 |
✓✓ |
4 |
& 0.96342339E+02_JPRB, 0.18321957E+02_JPRB, 0.10000000E+01_JPRB/) |
563 |
|
|
PDGA( 9,10,:) = (/& |
564 |
✓✓ |
4 |
& 0.96883301E+02_JPRB, 0.16638573E+02_JPRB, 0.00000000E+00_JPRB/) |
565 |
|
|
PDGB( 9,10,:) = (/& |
566 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.96457764E+02_JPRB, 0.16806755E+02_JPRB, 0.00000000E+00_JPRB/) |
572 |
|
|
PDGB(10, 9,:) = (/& |
573 |
✓✓ |
4 |
& 0.96457764E+02_JPRB, 0.18283590E+02_JPRB, 0.10000000E+01_JPRB/) |
574 |
|
|
PDGA(10,10,:) = (/& |
575 |
✓✓ |
4 |
& 0.96989792E+02_JPRB, 0.16591677E+02_JPRB, 0.00000000E+00_JPRB/) |
576 |
|
|
PDGB(10,10,:) = (/& |
577 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.96549957E+02_JPRB, 0.16763689E+02_JPRB, 0.00000000E+00_JPRB/) |
583 |
|
|
PDGB(11, 9,:) = (/& |
584 |
✓✓ |
4 |
& 0.96549957E+02_JPRB, 0.18248074E+02_JPRB, 0.10000000E+01_JPRB/) |
585 |
|
|
PDGA(11,10,:) = (/& |
586 |
✓✓ |
4 |
& 0.97097275E+02_JPRB, 0.16548479E+02_JPRB, 0.00000000E+00_JPRB/) |
587 |
|
|
PDGB(11,10,:) = (/& |
588 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13134047E+00_JPRB,-0.23649048E-01_JPRB, 0.00000000E+00_JPRB/) |
596 |
|
|
PDGB( 1, 5,:) = (/& |
597 |
✓✓ |
4 |
& 0.13134047E+00_JPRB, 0.54008597E+00_JPRB, 0.10000000E+01_JPRB/) |
598 |
|
|
PDGA( 1, 6,:) = (/& |
599 |
✓✓ |
4 |
& 0.14049581E+00_JPRB,-0.26231026E-01_JPRB, 0.00000000E+00_JPRB/) |
600 |
|
|
PDGB( 1, 6,:) = (/& |
601 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13330981E+00_JPRB,-0.24178915E-01_JPRB, 0.00000000E+00_JPRB/) |
607 |
|
|
PDGB( 2, 5,:) = (/& |
608 |
✓✓ |
4 |
& 0.13330981E+00_JPRB, 0.54094988E+00_JPRB, 0.10000000E+01_JPRB/) |
609 |
|
|
PDGA( 2, 6,:) = (/& |
610 |
✓✓ |
4 |
& 0.14229582E+00_JPRB,-0.26725627E-01_JPRB, 0.00000000E+00_JPRB/) |
611 |
|
|
PDGB( 2, 6,:) = (/& |
612 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13504511E+00_JPRB,-0.24650861E-01_JPRB, 0.00000000E+00_JPRB/) |
618 |
|
|
PDGB( 3, 5,:) = (/& |
619 |
✓✓ |
4 |
& 0.13504511E+00_JPRB, 0.54169583E+00_JPRB, 0.10000000E+01_JPRB/) |
620 |
|
|
PDGA( 3, 6,:) = (/& |
621 |
✓✓ |
4 |
& 0.14384151E+00_JPRB,-0.27153090E-01_JPRB, 0.00000000E+00_JPRB/) |
622 |
|
|
PDGB( 3, 6,:) = (/& |
623 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13651314E+00_JPRB,-0.25044570E-01_JPRB, 0.00000000E+00_JPRB/) |
629 |
|
|
PDGB( 4, 5,:) = (/& |
630 |
✓✓ |
4 |
& 0.13651314E+00_JPRB, 0.54191625E+00_JPRB, 0.10000000E+01_JPRB/) |
631 |
|
|
PDGA( 4, 6,:) = (/& |
632 |
✓✓ |
4 |
& 0.14517485E+00_JPRB,-0.27523417E-01_JPRB, 0.00000000E+00_JPRB/) |
633 |
|
|
PDGB( 4, 6,:) = (/& |
634 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13790466E+00_JPRB,-0.25431205E-01_JPRB, 0.00000000E+00_JPRB/) |
640 |
|
|
PDGB( 5, 5,:) = (/& |
641 |
✓✓ |
4 |
& 0.13790466E+00_JPRB, 0.54262739E+00_JPRB, 0.10000000E+01_JPRB/) |
642 |
|
|
PDGA( 5, 6,:) = (/& |
643 |
✓✓ |
4 |
& 0.14633319E+00_JPRB,-0.27845515E-01_JPRB, 0.00000000E+00_JPRB/) |
644 |
|
|
PDGB( 5, 6,:) = (/& |
645 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13909847E+00_JPRB,-0.25759069E-01_JPRB, 0.00000000E+00_JPRB/) |
651 |
|
|
PDGB( 6, 5,:) = (/& |
652 |
✓✓ |
4 |
& 0.13909847E+00_JPRB, 0.54293746E+00_JPRB, 0.10000000E+01_JPRB/) |
653 |
|
|
PDGA( 6, 6,:) = (/& |
654 |
✓✓ |
4 |
& 0.14734478E+00_JPRB,-0.28128289E-01_JPRB, 0.00000000E+00_JPRB/) |
655 |
|
|
PDGB( 6, 6,:) = (/& |
656 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.14014673E+00_JPRB,-0.26045626E-01_JPRB, 0.00000000E+00_JPRB/) |
662 |
|
|
PDGB( 7, 5,:) = (/& |
663 |
✓✓ |
4 |
& 0.14014673E+00_JPRB, 0.54306209E+00_JPRB, 0.10000000E+01_JPRB/) |
664 |
|
|
PDGA( 7, 6,:) = (/& |
665 |
✓✓ |
4 |
& 0.14823231E+00_JPRB,-0.28376250E-01_JPRB, 0.00000000E+00_JPRB/) |
666 |
|
|
PDGB( 7, 6,:) = (/& |
667 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.14110570E+00_JPRB,-0.26310772E-01_JPRB, 0.00000000E+00_JPRB/) |
673 |
|
|
PDGB( 8, 5,:) = (/& |
674 |
✓✓ |
4 |
& 0.14110570E+00_JPRB, 0.54324186E+00_JPRB, 0.10000000E+01_JPRB/) |
675 |
|
|
PDGA( 8, 6,:) = (/& |
676 |
✓✓ |
4 |
& 0.14901793E+00_JPRB,-0.28597040E-01_JPRB, 0.00000000E+00_JPRB/) |
677 |
|
|
PDGB( 8, 6,:) = (/& |
678 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.14198618E+00_JPRB,-0.26556855E-01_JPRB, 0.00000000E+00_JPRB/) |
684 |
|
|
PDGB( 9, 5,:) = (/& |
685 |
✓✓ |
4 |
& 0.14198618E+00_JPRB, 0.54346353E+00_JPRB, 0.10000000E+01_JPRB/) |
686 |
|
|
PDGA( 9, 6,:) = (/& |
687 |
✓✓ |
4 |
& 0.14971229E+00_JPRB,-0.28792191E-01_JPRB, 0.00000000E+00_JPRB/) |
688 |
|
|
PDGB( 9, 6,:) = (/& |
689 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.14277160E+00_JPRB,-0.26774861E-01_JPRB, 0.00000000E+00_JPRB/) |
695 |
|
|
PDGB(10, 5,:) = (/& |
696 |
✓✓ |
4 |
& 0.14277160E+00_JPRB, 0.54357564E+00_JPRB, 0.10000000E+01_JPRB/) |
697 |
|
|
PDGA(10, 6,:) = (/& |
698 |
✓✓ |
4 |
& 0.15033126E+00_JPRB,-0.28966904E-01_JPRB, 0.00000000E+00_JPRB/) |
699 |
|
|
PDGB(10, 6,:) = (/& |
700 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.14349319E+00_JPRB,-0.26976623E-01_JPRB, 0.00000000E+00_JPRB/) |
706 |
|
|
PDGB(11, 5,:) = (/& |
707 |
✓✓ |
4 |
& 0.14349319E+00_JPRB, 0.54369903E+00_JPRB, 0.10000000E+01_JPRB/) |
708 |
|
|
PDGA(11, 6,:) = (/& |
709 |
✓✓ |
4 |
& 0.15088280E+00_JPRB,-0.29121898E-01_JPRB, 0.00000000E+00_JPRB/) |
710 |
|
|
PDGB(11, 6,:) = (/& |
711 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/) |
719 |
|
|
PDGB( 1,11,:) = (/& |
720 |
✓✓ |
4 |
& 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/) |
721 |
|
|
PDGA( 1,12,:) = (/& |
722 |
✓✓ |
4 |
& 0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/) |
723 |
|
|
PDGB( 1,12,:) = (/& |
724 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/) |
730 |
|
|
PDGB( 2,11,:) = (/& |
731 |
✓✓ |
4 |
& 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/) |
732 |
|
|
PDGA( 2,12,:) = (/& |
733 |
✓✓ |
4 |
& 0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/) |
734 |
|
|
PDGB( 2,12,:) = (/& |
735 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/) |
741 |
|
|
PDGB( 3,11,:) = (/& |
742 |
✓✓ |
4 |
& 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/) |
743 |
|
|
PDGA( 3,12,:) = (/& |
744 |
✓✓ |
4 |
& 0.44063067E+00_JPRB, 0.91024989E-01_JPRB, 0.00000000E+00_JPRB/) |
745 |
|
|
PDGB( 3,12,:) = (/& |
746 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.51061614E+00_JPRB, 0.59883548E-01_JPRB, 0.00000000E+00_JPRB/) |
752 |
|
|
PDGB( 4,11,:) = (/& |
753 |
✓✓ |
4 |
& 0.51061614E+00_JPRB, 0.13461757E+01_JPRB, 0.10000000E+01_JPRB/) |
754 |
|
|
PDGA( 4,12,:) = (/& |
755 |
✓✓ |
4 |
& 0.30439727E+00_JPRB, 0.15980470E+00_JPRB, 0.00000000E+00_JPRB/) |
756 |
|
|
PDGB( 4,12,:) = (/& |
757 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.40673842E+00_JPRB, 0.11398935E+00_JPRB, 0.00000000E+00_JPRB/) |
763 |
|
|
PDGB( 5,11,:) = (/& |
764 |
✓✓ |
4 |
& 0.40673842E+00_JPRB, 0.11289965E+01_JPRB, 0.10000000E+01_JPRB/) |
765 |
|
|
PDGA( 5,12,:) = (/& |
766 |
✓✓ |
4 |
& 0.15005620E+00_JPRB, 0.23446409E+00_JPRB, 0.00000000E+00_JPRB/) |
767 |
|
|
PDGB( 5,12,:) = (/& |
768 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.28375203E+00_JPRB, 0.17444874E+00_JPRB, 0.00000000E+00_JPRB/) |
774 |
|
|
PDGB( 6,11,:) = (/& |
775 |
✓✓ |
4 |
& 0.28375203E+00_JPRB, 0.86693115E+00_JPRB, 0.10000000E+01_JPRB/) |
776 |
|
|
PDGA( 6,12,:) = (/& |
777 |
✓✓ |
4 |
& 0.51658133E-01_JPRB, 0.29464628E+00_JPRB, 0.00000000E+00_JPRB/) |
778 |
|
|
PDGB( 6,12,:) = (/& |
779 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.15136005E+00_JPRB, 0.23761536E+00_JPRB, 0.00000000E+00_JPRB/) |
785 |
|
|
PDGB( 7,11,:) = (/& |
786 |
✓✓ |
4 |
& 0.15136005E+00_JPRB, 0.58911683E+00_JPRB, 0.10000000E+01_JPRB/) |
787 |
|
|
PDGA( 7,12,:) = (/& |
788 |
✓✓ |
4 |
& 0.18932679E-01_JPRB, 0.33516250E+00_JPRB, 0.00000000E+00_JPRB/) |
789 |
|
|
PDGB( 7,12,:) = (/& |
790 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.61752765E-01_JPRB, 0.28965454E+00_JPRB, 0.00000000E+00_JPRB/) |
796 |
|
|
PDGB( 8,11,:) = (/& |
797 |
✓✓ |
4 |
& 0.61752765E-01_JPRB, 0.41975793E+00_JPRB, 0.10000000E+01_JPRB/) |
798 |
|
|
PDGA( 8,12,:) = (/& |
799 |
✓✓ |
4 |
& 0.79619427E-02_JPRB, 0.36873141E+00_JPRB, 0.00000000E+00_JPRB/) |
800 |
|
|
PDGB( 8,12,:) = (/& |
801 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.26192233E-01_JPRB, 0.32568668E+00_JPRB, 0.00000000E+00_JPRB/) |
807 |
|
|
PDGB( 9,11,:) = (/& |
808 |
✓✓ |
4 |
& 0.26192233E-01_JPRB, 0.37385106E+00_JPRB, 0.10000000E+01_JPRB/) |
809 |
|
|
PDGA( 9,12,:) = (/& |
810 |
✓✓ |
4 |
& 0.40764469E-02_JPRB, 0.40137572E+00_JPRB, 0.00000000E+00_JPRB/) |
811 |
|
|
PDGB( 9,12,:) = (/& |
812 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.12168738E-01_JPRB, 0.35455148E+00_JPRB, 0.00000000E+00_JPRB/) |
818 |
|
|
PDGB(10,11,:) = (/& |
819 |
✓✓ |
4 |
& 0.12168738E-01_JPRB, 0.37329084E+00_JPRB, 0.10000000E+01_JPRB/) |
820 |
|
|
PDGA(10,12,:) = (/& |
821 |
✓✓ |
4 |
& 0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/) |
822 |
|
|
PDGB(10,12,:) = (/& |
823 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.64195381E-02_JPRB, 0.38088067E+00_JPRB, 0.00000000E+00_JPRB/) |
829 |
|
|
PDGB(11,11,:) = (/& |
830 |
✓✓ |
4 |
& 0.64195381E-02_JPRB, 0.38906156E+00_JPRB, 0.10000000E+01_JPRB/) |
831 |
|
|
PDGA(11,12,:) = (/& |
832 |
✓✓ |
4 |
& 0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/) |
833 |
|
|
PDGB(11,12,:) = (/& |
834 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/) |
850 |
|
|
PDGB( 1,13,:) = (/& |
851 |
✓✓ |
4 |
& 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/) |
852 |
|
|
PDGA( 1,14,:) = (/& |
853 |
✓✓ |
4 |
& 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/) |
854 |
|
|
PDGB( 1,14,:) = (/& |
855 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/) |
862 |
|
|
PDGB( 2,13,:) = (/& |
863 |
✓✓ |
4 |
& 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/) |
864 |
|
|
PDGA( 2,14,:) = (/& |
865 |
✓✓ |
4 |
& 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/) |
866 |
|
|
PDGB( 2,14,:) = (/& |
867 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/) |
874 |
|
|
PDGB( 3,13,:) = (/& |
875 |
✓✓ |
4 |
& 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/) |
876 |
|
|
PDGA( 3,14,:) = (/& |
877 |
✓✓ |
4 |
& 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/) |
878 |
|
|
PDGB( 3,14,:) = (/& |
879 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/) |
886 |
|
|
PDGB( 4,13,:) = (/& |
887 |
✓✓ |
4 |
& 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/) |
888 |
|
|
PDGA( 4,14,:) = (/& |
889 |
✓✓ |
4 |
& 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/) |
890 |
|
|
PDGB( 4,14,:) = (/& |
891 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/) |
898 |
|
|
PDGB( 5,13,:) = (/& |
899 |
✓✓ |
4 |
& 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/) |
900 |
|
|
PDGA( 5,14,:) = (/& |
901 |
✓✓ |
4 |
& 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/) |
902 |
|
|
PDGB( 5,14,:) = (/& |
903 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/) |
910 |
|
|
PDGB( 6,13,:) = (/& |
911 |
✓✓ |
4 |
& 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/) |
912 |
|
|
PDGA( 6,14,:) = (/& |
913 |
✓✓ |
4 |
& 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/) |
914 |
|
|
PDGB( 6,14,:) = (/& |
915 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/) |
922 |
|
|
PDGB( 7,13,:) = (/& |
923 |
✓✓ |
4 |
& 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/) |
924 |
|
|
PDGA( 7,14,:) = (/& |
925 |
✓✓ |
4 |
& 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/) |
926 |
|
|
PDGB( 7,14,:) = (/& |
927 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/) |
934 |
|
|
PDGB( 8,13,:) = (/& |
935 |
✓✓ |
4 |
& 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/) |
936 |
|
|
PDGA( 8,14,:) = (/& |
937 |
✓✓ |
4 |
& 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/) |
938 |
|
|
PDGB( 8,14,:) = (/& |
939 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/) |
946 |
|
|
PDGB( 9,13,:) = (/& |
947 |
✓✓ |
4 |
& 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/) |
948 |
|
|
PDGA( 9,14,:) = (/& |
949 |
✓✓ |
4 |
& 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/) |
950 |
|
|
PDGB( 9,14,:) = (/& |
951 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/) |
958 |
|
|
PDGB(10,13,:) = (/& |
959 |
✓✓ |
4 |
& 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/) |
960 |
|
|
PDGA(10,14,:) = (/& |
961 |
✓✓ |
4 |
& 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/) |
962 |
|
|
PDGB(10,14,:) = (/& |
963 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/) |
970 |
|
|
PDGB(11,13,:) = (/& |
971 |
✓✓ |
4 |
& 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/) |
972 |
|
|
PDGA(11,14,:) = (/& |
973 |
✓✓ |
4 |
& 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/) |
974 |
|
|
PDGB(11,14,:) = (/& |
975 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/) |
984 |
|
|
PDGB( 1,15,:) = (/& |
985 |
✓✓ |
4 |
& 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/) |
986 |
|
|
PDGA( 1,16,:) = (/& |
987 |
✓✓ |
4 |
& 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/) |
988 |
|
|
PDGB( 1,16,:) = (/& |
989 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/) |
996 |
|
|
PDGB( 2,15,:) = (/& |
997 |
✓✓ |
4 |
& 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/) |
998 |
|
|
PDGA( 2,16,:) = (/& |
999 |
✓✓ |
4 |
& 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/) |
1000 |
|
|
PDGB( 2,16,:) = (/& |
1001 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/) |
1008 |
|
|
PDGB( 3,15,:) = (/& |
1009 |
✓✓ |
4 |
& 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/) |
1010 |
|
|
PDGA( 3,16,:) = (/& |
1011 |
✓✓ |
4 |
& 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/) |
1012 |
|
|
PDGB( 3,16,:) = (/& |
1013 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/) |
1020 |
|
|
PDGB( 4,15,:) = (/& |
1021 |
✓✓ |
4 |
& 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/) |
1022 |
|
|
PDGA( 4,16,:) = (/& |
1023 |
✓✓ |
4 |
& 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/) |
1024 |
|
|
PDGB( 4,16,:) = (/& |
1025 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/) |
1032 |
|
|
PDGB( 5,15,:) = (/& |
1033 |
✓✓ |
4 |
& 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/) |
1034 |
|
|
PDGA( 5,16,:) = (/& |
1035 |
✓✓ |
4 |
& 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/) |
1036 |
|
|
PDGB( 5,16,:) = (/& |
1037 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/) |
1044 |
|
|
PDGB( 6,15,:) = (/& |
1045 |
✓✓ |
4 |
& 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/) |
1046 |
|
|
PDGA( 6,16,:) = (/& |
1047 |
✓✓ |
4 |
& 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/) |
1048 |
|
|
PDGB( 6,16,:) = (/& |
1049 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/) |
1056 |
|
|
PDGB( 7,15,:) = (/& |
1057 |
✓✓ |
4 |
& 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/) |
1058 |
|
|
PDGA( 7,16,:) = (/& |
1059 |
✓✓ |
4 |
& 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/) |
1060 |
|
|
PDGB( 7,16,:) = (/& |
1061 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/) |
1068 |
|
|
PDGB( 8,15,:) = (/& |
1069 |
✓✓ |
4 |
& 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/) |
1070 |
|
|
PDGA( 8,16,:) = (/& |
1071 |
✓✓ |
4 |
& 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/) |
1072 |
|
|
PDGB( 8,16,:) = (/& |
1073 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/) |
1080 |
|
|
PDGB( 9,15,:) = (/& |
1081 |
✓✓ |
4 |
& 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/) |
1082 |
|
|
PDGA( 9,16,:) = (/& |
1083 |
✓✓ |
4 |
& 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/) |
1084 |
|
|
PDGB( 9,16,:) = (/& |
1085 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/) |
1092 |
|
|
PDGB(10,15,:) = (/& |
1093 |
✓✓ |
4 |
& 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/) |
1094 |
|
|
PDGA(10,16,:) = (/& |
1095 |
✓✓ |
4 |
& 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/) |
1096 |
|
|
PDGB(10,16,:) = (/& |
1097 |
✓✓ |
4 |
& 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 |
✓✓ |
4 |
& 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/) |
1104 |
|
|
PDGB(11,15,:) = (/& |
1105 |
✓✓ |
4 |
& 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/) |
1106 |
|
|
PDGA(11,16,:) = (/& |
1107 |
✓✓ |
4 |
& 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/) |
1108 |
|
|
PDGB(11,16,:) = (/& |
1109 |
✓✓ |
4 |
& 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 |
|
1 |
RETYPE(1:4)= (/ 12._JPRB, 5.5_JPRB, 4.25_JPRB, 45._JPRB /) |
1118 |
|
|
|
1119 |
|
|
!----- (CONTINUUM ABSORPTION: p-type COMPONENT) |
1120 |
|
|
|
1121 |
|
1 |
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 |
✓✓ |
4 |
& 2.34995778846E-03_JPRB, -2.76713384294E-04_JPRB, 1.16480338097E-06_JPRB/) |
1133 |
|
|
BLWT(1,:)= (/& |
1134 |
✓✓ |
4 |
& -1.58165952771E-05_JPRB, -2.39167473702E-05_JPRB, 1.80148335147E-07_JPRB/) |
1135 |
|
|
ALWT(2,:)= (/& |
1136 |
✓✓ |
4 |
& 2.52595953359E-02_JPRB, -6.72079319635E-04_JPRB, 5.74103783815E-06_JPRB/) |
1137 |
|
|
BLWT(2,:)= (/& |
1138 |
✓✓ |
4 |
& -8.26196996910E-05_JPRB, -1.05514645370E-05_JPRB, 7.02984234993E-08_JPRB/) |
1139 |
|
|
ALWT(3,:)= (/& |
1140 |
✓✓ |
4 |
& 3.55525229363E-02_JPRB, -7.94992134865E-04_JPRB, 6.64848193374E-06_JPRB/) |
1141 |
|
|
BLWT(3,:)= (/& |
1142 |
✓✓ |
4 |
& -9.71124908025E-05_JPRB, -2.95218285256E-06_JPRB, 2.23374952695E-08_JPRB/) |
1143 |
|
|
ALWT(4,:)= (/& |
1144 |
✓✓ |
4 |
& 5.47044522259E-02_JPRB, -1.19105877667E-03_JPRB, 9.74676865100E-06_JPRB/) |
1145 |
|
|
BLWT(4,:)= (/& |
1146 |
✓✓ |
4 |
& -2.10153035427E-04_JPRB, -6.93815560155E-06_JPRB, 5.50381928956E-08_JPRB/) |
1147 |
|
|
ALWT(5,:)= (/& |
1148 |
✓✓ |
4 |
& 1.88063066950E-02_JPRB, -1.11250846983E-04_JPRB, 1.66977895508E-06_JPRB/) |
1149 |
|
|
BLWT(5,:)= (/& |
1150 |
✓✓ |
4 |
& -5.72683436311E-05_JPRB, -2.48448308453E-05_JPRB, 1.88450887138E-07_JPRB/) |
1151 |
|
|
ALWT(6,:)= (/& |
1152 |
✓✓ |
4 |
& 1.29526952131E-02_JPRB, -3.81424455035E-04_JPRB, 3.07118138204E-06_JPRB/) |
1153 |
|
|
BLWT(6,:)= (/& |
1154 |
✓✓ |
4 |
& -4.20789327775E-05_JPRB, -1.25055291318E-05_JPRB, 8.58839668934E-08_JPRB/) |
1155 |
|
|
|
1156 |
|
|
!-------CO2 |
1157 |
|
|
|
1158 |
✓✓ |
4 |
ALWT(7,:)= (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /) |
1159 |
✓✓ |
4 |
BLWT(7,:)= (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /) |
1160 |
✓✓ |
4 |
ALWT(8,:)= (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /) |
1161 |
✓✓ |
4 |
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 |
|
1 |
NSIL = 6 |
1170 |
|
|
!-number of intervals with Pade approximants transmission functions |
1171 |
|
1 |
NIPD = 8 |
1172 |
|
1 |
NIPD2 = 2*NIPD |
1173 |
|
|
!-number of reference temperatures |
1174 |
|
1 |
NTR = 11 |
1175 |
|
|
!-number of absorber amounts |
1176 |
|
1 |
NUA = 24 |
1177 |
|
|
!-number of transmission functions |
1178 |
|
1 |
NTRA = 15 |
1179 |
|
|
!-number of Gauss angles |
1180 |
|
1 |
NG1 = 2 |
1181 |
|
1 |
NG1P1 = NG1+1 |
1182 |
|
|
|
1183 |
|
|
!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND |
1184 |
|
|
! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF |
1185 |
|
1 |
TSTAND = 250.0_JPRB |
1186 |
|
1 |
TREF = 250.0_JPRB |
1187 |
|
|
|
1188 |
|
|
!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE |
1189 |
|
1 |
RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /) |
1190 |
|
1 |
WG1 = (/ 1.0_JPRB , 1.0_JPRB /) |
1191 |
|
|
|
1192 |
|
|
!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES |
1193 |
|
1 |
TSTP = 12.5_JPRB |
1194 |
|
1 |
MXIXT = 10 |
1195 |
|
|
|
1196 |
|
|
!-- COEFFICIENTS FOR OZONE ABSORPTION |
1197 |
|
|
|
1198 |
|
1 |
RO1H = 2230._JPRB |
1199 |
|
1 |
RO2H = 100._JPRB |
1200 |
|
1 |
RPIALF0 = 2._JPRB |
1201 |
|
1 |
RO3T(1) = -.326E-03_JPRB |
1202 |
|
1 |
RO3T(2) = -.102E-05_JPRB |
1203 |
|
1 |
RO3T(3) = 0.137E-02_JPRB |
1204 |
|
1 |
RO3T(4) = -.535E-05_JPRB |
1205 |
|
|
|
1206 |
|
|
!-- COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA) |
1207 |
|
|
|
1208 |
|
1 |
RVGCO2= 60._JPRB |
1209 |
|
1 |
RVGH2O= 30._JPRB |
1210 |
|
1 |
RVGO3 =400._JPRB |
1211 |
|
|
|
1212 |
|
|
! ------------------------------------------------------------------ |
1213 |
|
|
|
1214 |
✓✗ |
1 |
IF (LHOOK) CALL DR_HOOK('SULWN',1,ZHOOK_HANDLE) |
1215 |
|
1 |
END SUBROUTINE SULWN |