1 |
|
|
!OPTIONS XOPT(NOEVAL) |
2 |
|
|
SUBROUTINE SULW15 |
3 |
|
|
|
4 |
|
|
!**** *SULW15* - INITIALIZE COMMON YOMLW15 |
5 |
|
|
!**** FROZEN VERSION (CYCLE 15) OF SULW |
6 |
|
|
|
7 |
|
|
! PURPOSE. |
8 |
|
|
! -------- |
9 |
|
|
! INITIALIZE YOMLW15, THE COMMON THAT CONTAINS COEFFICIENTS |
10 |
|
|
! NEEDED TO RUN THE ECMWF LONGWAVE RADIATION ROUTINES |
11 |
|
|
|
12 |
|
|
!** INTERFACE. |
13 |
|
|
! ---------- |
14 |
|
|
! *CALL* *SULW15 |
15 |
|
|
|
16 |
|
|
! EXPLICIT ARGUMENTS : |
17 |
|
|
! -------------------- |
18 |
|
|
! NONE |
19 |
|
|
|
20 |
|
|
! IMPLICIT ARGUMENTS : |
21 |
|
|
! -------------------- |
22 |
|
|
! COMMON YOMLW15 |
23 |
|
|
|
24 |
|
|
! METHOD. |
25 |
|
|
! ------- |
26 |
|
|
! SEE DOCUMENTATION |
27 |
|
|
|
28 |
|
|
! EXTERNALS. |
29 |
|
|
! ---------- |
30 |
|
|
|
31 |
|
|
! REFERENCE. |
32 |
|
|
! ---------- |
33 |
|
|
! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS |
34 |
|
|
|
35 |
|
|
! AUTHOR. |
36 |
|
|
! ------- |
37 |
|
|
! 96-11: Ph. Dandin. Meteo-France |
38 |
|
|
! ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE *ECMWF* |
39 |
|
|
|
40 |
|
|
! MODIFICATIONS. |
41 |
|
|
! -------------- |
42 |
|
|
! M.Hamrud 01-Oct-2003 CY28 Cleaning |
43 |
|
|
|
44 |
|
|
! ------------------------------------------------------------------ |
45 |
|
|
|
46 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
47 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
48 |
|
|
|
49 |
|
|
USE YOMLW15 , ONLY : MXIXT15 ,NINT15 ,NIPD15 ,NIPD215 ,& |
50 |
|
|
& NTR15 ,NTRA15 ,NUA15 ,NG115 ,NG1P115 ,& |
51 |
|
|
& AT15 ,BT15 ,RNTNU15 ,GA15 ,GB15 ,& |
52 |
|
|
& OCT15 ,O1H15 ,O2H15 ,RPIALF015,RT115 ,& |
53 |
|
|
& TINTP15 ,TREF15 ,TSTAND15 ,TSTP15 ,WG115 ,& |
54 |
|
|
& XP15 ,RVGCO215 ,RVGH2O15 ,RVGO315 |
55 |
|
|
|
56 |
|
|
IMPLICIT NONE |
57 |
|
|
|
58 |
|
|
! ---------------------------------------------------------------- |
59 |
|
|
|
60 |
|
|
!* 1. SET VALUES. |
61 |
|
|
! ----------- |
62 |
|
|
|
63 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
64 |
|
|
IF (LHOOK) CALL DR_HOOK('SULW15',0,ZHOOK_HANDLE) |
65 |
|
|
NG115=2 |
66 |
|
|
NG1P115=NG115+1 |
67 |
|
|
NINT15=6 |
68 |
|
|
NIPD15=8 |
69 |
|
|
NIPD215=2*NIPD15 |
70 |
|
|
NTR15=11 |
71 |
|
|
NTRA15=15 |
72 |
|
|
NUA15=24 |
73 |
|
|
|
74 |
|
|
!-- COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA) |
75 |
|
|
|
76 |
|
|
RVGCO215= 60._JPRB |
77 |
|
|
RVGH2O15= 30._JPRB |
78 |
|
|
RVGO315 =400._JPRB |
79 |
|
|
|
80 |
|
|
!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND15 |
81 |
|
|
! TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF15 |
82 |
|
|
TSTAND15 = 250.0_JPRB |
83 |
|
|
TREF15 = 250.0_JPRB |
84 |
|
|
|
85 |
|
|
!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE |
86 |
|
|
RT115 = (/ -0.577350269_JPRB, +0.577350269_JPRB /) |
87 |
|
|
WG115 = (/ 1.0_JPRB , 1.0_JPRB /) |
88 |
|
|
|
89 |
|
|
!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES |
90 |
|
|
TSTP15 = 12.5_JPRB |
91 |
|
|
MXIXT15= 10 |
92 |
|
|
|
93 |
|
|
!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES |
94 |
|
|
TINTP15 = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB, & |
95 |
|
|
& 250._JPRB,& |
96 |
|
|
& 262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /) |
97 |
|
|
|
98 |
|
|
!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS |
99 |
|
|
|
100 |
|
|
XP15 = RESHAPE((/& |
101 |
|
|
& 0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,& |
102 |
|
|
& 0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB,& |
103 |
|
|
& 0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,& |
104 |
|
|
& -0.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB,& |
105 |
|
|
& 0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,& |
106 |
|
|
& 0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB,& |
107 |
|
|
& 0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,& |
108 |
|
|
& 0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB,& |
109 |
|
|
& 0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,& |
110 |
|
|
& -0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB,& |
111 |
|
|
& 0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,& |
112 |
|
|
& 0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB /)& |
113 |
|
|
& ,SHAPE=(/6,6/)) |
114 |
|
|
|
115 |
|
|
!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF |
116 |
|
|
! THE ABSORPTION |
117 |
|
|
AT15(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /) |
118 |
|
|
BT15(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /) |
119 |
|
|
AT15(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /) |
120 |
|
|
BT15(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /) |
121 |
|
|
AT15(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /) |
122 |
|
|
BT15(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /) |
123 |
|
|
AT15(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /) |
124 |
|
|
BT15(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /) |
125 |
|
|
AT15(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /) |
126 |
|
|
BT15(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /) |
127 |
|
|
AT15(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /) |
128 |
|
|
BT15(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /) |
129 |
|
|
AT15(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /) |
130 |
|
|
BT15(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /) |
131 |
|
|
AT15(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /) |
132 |
|
|
BT15(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /) |
133 |
|
|
|
134 |
|
|
!-- COEFFICIENTS FOR OZONE ABSORPTION |
135 |
|
|
|
136 |
|
|
O1H15 = 2230._JPRB |
137 |
|
|
O2H15 = 100._JPRB |
138 |
|
|
RPIALF015 = 2._JPRB |
139 |
|
|
OCT15(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /) |
140 |
|
|
|
141 |
|
|
!-- COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION |
142 |
|
|
|
143 |
|
|
RNTNU15(:) = (/ 70.0_JPRB, 26.77_JPRB, 8.45_JPRB, 5.78_JPRB /) |
144 |
|
|
|
145 |
|
|
!----------------------------------------------------------------------- |
146 |
|
|
! PADE APPROXIMANTS FOR THE TRANSMISSIVITIES |
147 |
|
|
! ========================================== |
148 |
|
|
!----------------------------------------------------------------------- |
149 |
|
|
!-- WATER VAPOR -- INT.1 -- 0- 500 CM-1 -- FROM ABS225 ---------------- |
150 |
|
|
|
151 |
|
|
!-- R.D. -- G = - 0.2 SLA |
152 |
|
|
|
153 |
|
|
!----- INTERVAL = 1 ----- T = 187.5 |
154 |
|
|
|
155 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
156 |
|
|
GA15( 1, 1,:) = (/& |
157 |
|
|
& 0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/) |
158 |
|
|
GB15( 1, 1,:) = (/& |
159 |
|
|
& 0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/) |
160 |
|
|
GA15( 1, 2,:) = (/& |
161 |
|
|
& 0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/) |
162 |
|
|
GB15( 1, 2,:) = (/& |
163 |
|
|
& 0.77266491E-02_JPRB, 0.10681591E+00_JPRB, 0.10000000E+01_JPRB/) |
164 |
|
|
|
165 |
|
|
!----- INTERVAL = 1 ----- T = 200.0 |
166 |
|
|
|
167 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
168 |
|
|
GA15( 2, 1,:) = (/& |
169 |
|
|
& 0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/) |
170 |
|
|
GB15( 2, 1,:) = (/& |
171 |
|
|
& 0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/) |
172 |
|
|
GA15( 2, 2,:) = (/& |
173 |
|
|
& 0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/) |
174 |
|
|
GB15( 2, 2,:) = (/& |
175 |
|
|
& 0.81323287E-02_JPRB, 0.10921298E+00_JPRB, 0.10000000E+01_JPRB/) |
176 |
|
|
|
177 |
|
|
!----- INTERVAL = 1 ----- T = 212.5 |
178 |
|
|
|
179 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
180 |
|
|
GA15( 3, 1,:) = (/& |
181 |
|
|
& 0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/) |
182 |
|
|
GB15( 3, 1,:) = (/& |
183 |
|
|
& 0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/) |
184 |
|
|
GA15( 3, 2,:) = (/& |
185 |
|
|
& 0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/) |
186 |
|
|
GB15( 3, 2,:) = (/& |
187 |
|
|
& 0.86507620E-02_JPRB, 0.11198225E+00_JPRB, 0.10000000E+01_JPRB/) |
188 |
|
|
|
189 |
|
|
!----- INTERVAL = 1 ----- T = 225.0 |
190 |
|
|
|
191 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
192 |
|
|
GA15( 4, 1,:) = (/& |
193 |
|
|
& 0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/) |
194 |
|
|
GB15( 4, 1,:) = (/& |
195 |
|
|
& 0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/) |
196 |
|
|
GA15( 4, 2,:) = (/& |
197 |
|
|
& 0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/) |
198 |
|
|
GB15( 4, 2,:) = (/& |
199 |
|
|
& 0.92776391E-02_JPRB, 0.11487826E+00_JPRB, 0.10000000E+01_JPRB/) |
200 |
|
|
|
201 |
|
|
!----- INTERVAL = 1 ----- T = 237.5 |
202 |
|
|
|
203 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
204 |
|
|
GA15( 5, 1,:) = (/& |
205 |
|
|
& 0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/) |
206 |
|
|
GB15( 5, 1,:) = (/& |
207 |
|
|
& 0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/) |
208 |
|
|
GA15( 5, 2,:) = (/& |
209 |
|
|
& 0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/) |
210 |
|
|
GB15( 5, 2,:) = (/& |
211 |
|
|
& 0.99806312E-02_JPRB, 0.11751113E+00_JPRB, 0.10000000E+01_JPRB/) |
212 |
|
|
|
213 |
|
|
!----- INTERVAL = 1 ----- T = 250.0 |
214 |
|
|
|
215 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
216 |
|
|
GA15( 6, 1,:) = (/& |
217 |
|
|
& 0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/) |
218 |
|
|
GB15( 6, 1,:) = (/& |
219 |
|
|
& 0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/) |
220 |
|
|
GA15( 6, 2,:) = (/& |
221 |
|
|
& 0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/) |
222 |
|
|
GB15( 6, 2,:) = (/& |
223 |
|
|
& 0.10709803E-01_JPRB, 0.11951535E+00_JPRB, 0.10000000E+01_JPRB/) |
224 |
|
|
|
225 |
|
|
!----- INTERVAL = 1 ----- T = 262.5 |
226 |
|
|
|
227 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
228 |
|
|
GA15( 7, 1,:) = (/& |
229 |
|
|
& 0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/) |
230 |
|
|
GB15( 7, 1,:) = (/& |
231 |
|
|
& 0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/) |
232 |
|
|
GA15( 7, 2,:) = (/& |
233 |
|
|
& 0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/) |
234 |
|
|
GB15( 7, 2,:) = (/& |
235 |
|
|
& 0.11414739E-01_JPRB, 0.12069945E+00_JPRB, 0.10000000E+01_JPRB/) |
236 |
|
|
|
237 |
|
|
!----- INTERVAL = 1 ----- T = 275.0 |
238 |
|
|
|
239 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
240 |
|
|
GA15( 8, 1,:) = (/& |
241 |
|
|
& 0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/) |
242 |
|
|
GB15( 8, 1,:) = (/& |
243 |
|
|
& 0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/) |
244 |
|
|
GA15( 8, 2,:) = (/& |
245 |
|
|
& 0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/) |
246 |
|
|
GB15( 8, 2,:) = (/& |
247 |
|
|
& 0.12058772E-01_JPRB, 0.12108524E+00_JPRB, 0.10000000E+01_JPRB/) |
248 |
|
|
|
249 |
|
|
!----- INTERVAL = 1 ----- T = 287.5 |
250 |
|
|
|
251 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
252 |
|
|
GA15( 9, 1,:) = (/& |
253 |
|
|
& 0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/) |
254 |
|
|
GB15( 9, 1,:) = (/& |
255 |
|
|
& 0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/) |
256 |
|
|
GA15( 9, 2,:) = (/& |
257 |
|
|
& 0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/) |
258 |
|
|
GB15( 9, 2,:) = (/& |
259 |
|
|
& 0.12623992E-01_JPRB, 0.12084229E+00_JPRB, 0.10000000E+01_JPRB/) |
260 |
|
|
|
261 |
|
|
!----- INTERVAL = 1 ----- T = 300.0 |
262 |
|
|
|
263 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
264 |
|
|
GA15(10, 1,:) = (/& |
265 |
|
|
& 0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/) |
266 |
|
|
GB15(10, 1,:) = (/& |
267 |
|
|
& 0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/) |
268 |
|
|
GA15(10, 2,:) = (/& |
269 |
|
|
& 0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/) |
270 |
|
|
GB15(10, 2,:) = (/& |
271 |
|
|
& 0.13108146E-01_JPRB, 0.12019005E+00_JPRB, 0.10000000E+01_JPRB/) |
272 |
|
|
|
273 |
|
|
!----- INTERVAL = 1 ----- T = 312.5 |
274 |
|
|
|
275 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
276 |
|
|
GA15(11, 1,:) = (/& |
277 |
|
|
& 0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/) |
278 |
|
|
GB15(11, 1,:) = (/& |
279 |
|
|
& 0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/) |
280 |
|
|
GA15(11, 2,:) = (/& |
281 |
|
|
& 0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/) |
282 |
|
|
GB15(11, 2,:) = (/& |
283 |
|
|
& 0.13518390E-01_JPRB, 0.11932684E+00_JPRB, 0.10000000E+01_JPRB/) |
284 |
|
|
|
285 |
|
|
!--- WATER VAPOR --- INTERVAL 2 -- 500-800 CM-1--- FROM ABS225 --------- |
286 |
|
|
|
287 |
|
|
!--- R.D. --- G = 0.02 + 0.50 / ( 1 + 4.5 U ) |
288 |
|
|
|
289 |
|
|
!----- INTERVAL = 2 ----- T = 187.5 |
290 |
|
|
|
291 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
292 |
|
|
GA15( 1, 3,:) = (/& |
293 |
|
|
& 0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/) |
294 |
|
|
GB15( 1, 3,:) = (/& |
295 |
|
|
& 0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/) |
296 |
|
|
GA15( 1, 4,:) = (/& |
297 |
|
|
& 0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/) |
298 |
|
|
GB15( 1, 4,:) = (/& |
299 |
|
|
& 0.12006968E+01_JPRB, 0.10626130E+01_JPRB, 0.10000000E+01_JPRB/) |
300 |
|
|
|
301 |
|
|
!----- INTERVAL = 2 ----- T = 200.0 |
302 |
|
|
|
303 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
304 |
|
|
GA15( 2, 3,:) = (/& |
305 |
|
|
& 0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/) |
306 |
|
|
GB15( 2, 3,:) = (/& |
307 |
|
|
& 0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/) |
308 |
|
|
GA15( 2, 4,:) = (/& |
309 |
|
|
& 0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/) |
310 |
|
|
GB15( 2, 4,:) = (/& |
311 |
|
|
& 0.12108196E+01_JPRB, 0.10716026E+01_JPRB, 0.10000000E+01_JPRB/) |
312 |
|
|
|
313 |
|
|
!----- INTERVAL = 2 ----- T = 212.5 |
314 |
|
|
|
315 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
316 |
|
|
GA15( 3, 3,:) = (/& |
317 |
|
|
& 0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/) |
318 |
|
|
GB15( 3, 3,:) = (/& |
319 |
|
|
& 0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/) |
320 |
|
|
GA15( 3, 4,:) = (/& |
321 |
|
|
& 0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/) |
322 |
|
|
GB15( 3, 4,:) = (/& |
323 |
|
|
& 0.12196717E+01_JPRB, 0.10795108E+01_JPRB, 0.10000000E+01_JPRB/) |
324 |
|
|
|
325 |
|
|
!----- INTERVAL = 2 ----- T = 225.0 |
326 |
|
|
|
327 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
328 |
|
|
GA15( 4, 3,:) = (/& |
329 |
|
|
& 0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/) |
330 |
|
|
GB15( 4, 3,:) = (/& |
331 |
|
|
& 0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/) |
332 |
|
|
GA15( 4, 4,:) = (/& |
333 |
|
|
& 0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/) |
334 |
|
|
GB15( 4, 4,:) = (/& |
335 |
|
|
& 0.12274493E+01_JPRB, 0.10865006E+01_JPRB, 0.10000000E+01_JPRB/) |
336 |
|
|
|
337 |
|
|
!----- INTERVAL = 2 ----- T = 237.5 |
338 |
|
|
|
339 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
340 |
|
|
GA15( 5, 3,:) = (/& |
341 |
|
|
& 0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/) |
342 |
|
|
GB15( 5, 3,:) = (/& |
343 |
|
|
& 0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/) |
344 |
|
|
GA15( 5, 4,:) = (/& |
345 |
|
|
& 0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/) |
346 |
|
|
GB15( 5, 4,:) = (/& |
347 |
|
|
& 0.12343189E+01_JPRB, 0.10927103E+01_JPRB, 0.10000000E+01_JPRB/) |
348 |
|
|
|
349 |
|
|
!----- INTERVAL = 2 ----- T = 250.0 |
350 |
|
|
|
351 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
352 |
|
|
GA15( 6, 3,:) = (/& |
353 |
|
|
& 0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/) |
354 |
|
|
GB15( 6, 3,:) = (/& |
355 |
|
|
& 0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/) |
356 |
|
|
GA15( 6, 4,:) = (/& |
357 |
|
|
& 0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/) |
358 |
|
|
GB15( 6, 4,:) = (/& |
359 |
|
|
& 0.12404147E+01_JPRB, 0.10982489E+01_JPRB, 0.10000000E+01_JPRB/) |
360 |
|
|
|
361 |
|
|
!----- INTERVAL = 2 ----- T = 262.5 |
362 |
|
|
|
363 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
364 |
|
|
GA15( 7, 3,:) = (/& |
365 |
|
|
& 0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/) |
366 |
|
|
GB15( 7, 3,:) = (/& |
367 |
|
|
& 0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/) |
368 |
|
|
GA15( 7, 4,:) = (/& |
369 |
|
|
& 0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/) |
370 |
|
|
GB15( 7, 4,:) = (/& |
371 |
|
|
& 0.12458431E+01_JPRB, 0.11032019E+01_JPRB, 0.10000000E+01_JPRB/) |
372 |
|
|
|
373 |
|
|
!----- INTERVAL = 2 ----- T = 275.0 |
374 |
|
|
|
375 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
376 |
|
|
GA15( 8, 3,:) = (/& |
377 |
|
|
& 0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/) |
378 |
|
|
GB15( 8, 3,:) = (/& |
379 |
|
|
& 0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/) |
380 |
|
|
GA15( 8, 4,:) = (/& |
381 |
|
|
& 0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/) |
382 |
|
|
GB15( 8, 4,:) = (/& |
383 |
|
|
& 0.12506907E+01_JPRB, 0.11076379E+01_JPRB, 0.10000000E+01_JPRB/) |
384 |
|
|
|
385 |
|
|
!----- INTERVAL = 2 ----- T = 287.5 |
386 |
|
|
|
387 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
388 |
|
|
GA15( 9, 3,:) = (/& |
389 |
|
|
& 0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/) |
390 |
|
|
GB15( 9, 3,:) = (/& |
391 |
|
|
& 0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/) |
392 |
|
|
GA15( 9, 4,:) = (/& |
393 |
|
|
& 0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/) |
394 |
|
|
GB15( 9, 4,:) = (/& |
395 |
|
|
& 0.12550299E+01_JPRB, 0.11116160E+01_JPRB, 0.10000000E+01_JPRB/) |
396 |
|
|
|
397 |
|
|
!----- INTERVAL = 2 ----- T = 300.0 |
398 |
|
|
|
399 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
400 |
|
|
GA15(10, 3,:) = (/& |
401 |
|
|
& 0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/) |
402 |
|
|
GB15(10, 3,:) = (/& |
403 |
|
|
& 0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/) |
404 |
|
|
GA15(10, 4,:) = (/& |
405 |
|
|
& 0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/) |
406 |
|
|
GB15(10, 4,:) = (/& |
407 |
|
|
& 0.12589256E+01_JPRB, 0.11151910E+01_JPRB, 0.10000000E+01_JPRB/) |
408 |
|
|
|
409 |
|
|
!----- INTERVAL = 2 ----- T = 312.5 |
410 |
|
|
|
411 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
412 |
|
|
GA15(11, 3,:) = (/& |
413 |
|
|
& 0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/) |
414 |
|
|
GB15(11, 3,:) = (/& |
415 |
|
|
& 0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/) |
416 |
|
|
GA15(11, 4,:) = (/& |
417 |
|
|
& 0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/) |
418 |
|
|
GB15(11, 4,:) = (/& |
419 |
|
|
& 0.12624402E+01_JPRB, 0.11184188E+01_JPRB, 0.10000000E+01_JPRB/) |
420 |
|
|
|
421 |
|
|
!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 -- FIT FROM 215 IS - |
422 |
|
|
|
423 |
|
|
!-- WATER VAPOR LINES IN THE WINDOW REGION (800-1250 CM-1) |
424 |
|
|
|
425 |
|
|
!--- G = 3.875E-03 --------------- |
426 |
|
|
|
427 |
|
|
!----- INTERVAL = 3 ----- T = 187.5 |
428 |
|
|
|
429 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
430 |
|
|
GA15( 1, 7,:) = (/& |
431 |
|
|
& 0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/) |
432 |
|
|
GB15( 1, 7,:) = (/& |
433 |
|
|
& 0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/) |
434 |
|
|
GA15( 1, 8,:) = (/& |
435 |
|
|
& 0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/) |
436 |
|
|
GB15( 1, 8,:) = (/& |
437 |
|
|
& 0.92439050E+01_JPRB, 0.79342219E+01_JPRB, 0.10000000E+01_JPRB/) |
438 |
|
|
|
439 |
|
|
!----- INTERVAL = 3 ----- T = 200.0 |
440 |
|
|
|
441 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
442 |
|
|
GA15( 2, 7,:) = (/& |
443 |
|
|
& 0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/) |
444 |
|
|
GB15( 2, 7,:) = (/& |
445 |
|
|
& 0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/) |
446 |
|
|
GA15( 2, 8,:) = (/& |
447 |
|
|
& 0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/) |
448 |
|
|
GB15( 2, 8,:) = (/& |
449 |
|
|
& 0.87567422E+01_JPRB, 0.77373458E+01_JPRB, 0.10000000E+01_JPRB/) |
450 |
|
|
|
451 |
|
|
!----- INTERVAL = 3 ----- T = 212.5 |
452 |
|
|
|
453 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
454 |
|
|
GA15( 3, 7,:) = (/& |
455 |
|
|
& 0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/) |
456 |
|
|
GB15( 3, 7,:) = (/& |
457 |
|
|
& 0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/) |
458 |
|
|
GA15( 3, 8,:) = (/& |
459 |
|
|
& 0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/) |
460 |
|
|
GB15( 3, 8,:) = (/& |
461 |
|
|
& 0.83270144E+01_JPRB, 0.75467334E+01_JPRB, 0.10000000E+01_JPRB/) |
462 |
|
|
|
463 |
|
|
!----- INTERVAL = 3 ----- T = 225.0 |
464 |
|
|
|
465 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
466 |
|
|
GA15( 4, 7,:) = (/& |
467 |
|
|
& 0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/) |
468 |
|
|
GB15( 4, 7,:) = (/& |
469 |
|
|
& 0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/) |
470 |
|
|
GA15( 4, 8,:) = (/& |
471 |
|
|
& 0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/) |
472 |
|
|
GB15( 4, 8,:) = (/& |
473 |
|
|
& 0.79528337E+01_JPRB, 0.73661786E+01_JPRB, 0.10000000E+01_JPRB/) |
474 |
|
|
|
475 |
|
|
!----- INTERVAL = 3 ----- T = 237.5 |
476 |
|
|
|
477 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
478 |
|
|
GA15( 5, 7,:) = (/& |
479 |
|
|
& 0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/) |
480 |
|
|
GB15( 5, 7,:) = (/& |
481 |
|
|
& 0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/) |
482 |
|
|
GA15( 5, 8,:) = (/& |
483 |
|
|
& 0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/) |
484 |
|
|
GB15( 5, 8,:) = (/& |
485 |
|
|
& 0.76286839E+01_JPRB, 0.71974319E+01_JPRB, 0.10000000E+01_JPRB/) |
486 |
|
|
|
487 |
|
|
!----- INTERVAL = 3 ----- T = 250.0 |
488 |
|
|
|
489 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
490 |
|
|
GA15( 6, 7,:) = (/& |
491 |
|
|
& 0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/) |
492 |
|
|
GB15( 6, 7,:) = (/& |
493 |
|
|
& 0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/) |
494 |
|
|
GA15( 6, 8,:) = (/& |
495 |
|
|
& 0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/) |
496 |
|
|
GB15( 6, 8,:) = (/& |
497 |
|
|
& 0.73477879E+01_JPRB, 0.70408543E+01_JPRB, 0.10000000E+01_JPRB/) |
498 |
|
|
|
499 |
|
|
!----- INTERVAL = 3 ----- T = 262.5 |
500 |
|
|
|
501 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
502 |
|
|
GA15( 7, 7,:) = (/& |
503 |
|
|
& 0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/) |
504 |
|
|
GB15( 7, 7,:) = (/& |
505 |
|
|
& 0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/) |
506 |
|
|
GA15( 7, 8,:) = (/& |
507 |
|
|
& 0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/) |
508 |
|
|
GB15( 7, 8,:) = (/& |
509 |
|
|
& 0.71035818E+01_JPRB, 0.68960649E+01_JPRB, 0.10000000E+01_JPRB/) |
510 |
|
|
|
511 |
|
|
!----- INTERVAL = 3 ----- T = 275.0 |
512 |
|
|
|
513 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
514 |
|
|
GA15( 8, 7,:) = (/& |
515 |
|
|
& 0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/) |
516 |
|
|
GB15( 8, 7,:) = (/& |
517 |
|
|
& 0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/) |
518 |
|
|
GA15( 8, 8,:) = (/& |
519 |
|
|
& 0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/) |
520 |
|
|
GB15( 8, 8,:) = (/& |
521 |
|
|
& 0.68903312E+01_JPRB, 0.67623672E+01_JPRB, 0.10000000E+01_JPRB/) |
522 |
|
|
|
523 |
|
|
!----- INTERVAL = 3 ----- T = 287.5 |
524 |
|
|
|
525 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
526 |
|
|
GA15( 9, 7,:) = (/& |
527 |
|
|
& 0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/) |
528 |
|
|
GB15( 9, 7,:) = (/& |
529 |
|
|
& 0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/) |
530 |
|
|
GA15( 9, 8,:) = (/& |
531 |
|
|
& 0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/) |
532 |
|
|
GB15( 9, 8,:) = (/& |
533 |
|
|
& 0.67032875E+01_JPRB, 0.66389989E+01_JPRB, 0.10000000E+01_JPRB/) |
534 |
|
|
|
535 |
|
|
!----- INTERVAL = 3 ----- T = 300.0 |
536 |
|
|
|
537 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
538 |
|
|
GA15(10, 7,:) = (/& |
539 |
|
|
& 0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/) |
540 |
|
|
GB15(10, 7,:) = (/& |
541 |
|
|
& 0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/) |
542 |
|
|
GA15(10, 8,:) = (/& |
543 |
|
|
& 0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/) |
544 |
|
|
GB15(10, 8,:) = (/& |
545 |
|
|
& 0.65386461E+01_JPRB, 0.65252707E+01_JPRB, 0.10000000E+01_JPRB/) |
546 |
|
|
|
547 |
|
|
!----- INTERVAL = 3 ----- T = 312.5 |
548 |
|
|
|
549 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
550 |
|
|
GA15(11, 7,:) = (/& |
551 |
|
|
& 0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/) |
552 |
|
|
GB15(11, 7,:) = (/& |
553 |
|
|
& 0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/) |
554 |
|
|
GA15(11, 8,:) = (/& |
555 |
|
|
& 0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/) |
556 |
|
|
GB15(11, 8,:) = (/& |
557 |
|
|
& 0.63934377E+01_JPRB, 0.64206412E+01_JPRB, 0.10000000E+01_JPRB/) |
558 |
|
|
|
559 |
|
|
!-- WATER VAPOR -- 970-1110 CM-1 ---------------------------------------- |
560 |
|
|
|
561 |
|
|
!-- G = 3.6E-03 |
562 |
|
|
|
563 |
|
|
!----- INTERVAL = 4 ----- T = 187.5 |
564 |
|
|
|
565 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
566 |
|
|
GA15( 1, 9,:) = (/& |
567 |
|
|
& 0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/) |
568 |
|
|
GB15( 1, 9,:) = (/& |
569 |
|
|
& 0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/) |
570 |
|
|
GA15( 1,10,:) = (/& |
571 |
|
|
& 0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/) |
572 |
|
|
GB15( 1,10,:) = (/& |
573 |
|
|
& 0.24586283E+02_JPRB, 0.10605856E+02_JPRB, 0.10000000E+01_JPRB/) |
574 |
|
|
|
575 |
|
|
!----- INTERVAL = 4 ----- T = 200.0 |
576 |
|
|
|
577 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
578 |
|
|
GA15( 2, 9,:) = (/& |
579 |
|
|
& 0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/) |
580 |
|
|
GB15( 2, 9,:) = (/& |
581 |
|
|
& 0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/) |
582 |
|
|
GA15( 2,10,:) = (/& |
583 |
|
|
& 0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/) |
584 |
|
|
GB15( 2,10,:) = (/& |
585 |
|
|
& 0.24441465E+02_JPRB, 0.10579514E+02_JPRB, 0.10000000E+01_JPRB/) |
586 |
|
|
|
587 |
|
|
!----- INTERVAL = 4 ----- T = 212.5 |
588 |
|
|
|
589 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
590 |
|
|
GA15( 3, 9,:) = (/& |
591 |
|
|
& 0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/) |
592 |
|
|
GB15( 3, 9,:) = (/& |
593 |
|
|
& 0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/) |
594 |
|
|
GA15( 3,10,:) = (/& |
595 |
|
|
& 0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/) |
596 |
|
|
GB15( 3,10,:) = (/& |
597 |
|
|
& 0.24311657E+02_JPRB, 0.10555632E+02_JPRB, 0.10000000E+01_JPRB/) |
598 |
|
|
|
599 |
|
|
!----- INTERVAL = 4 ----- T = 225.0 |
600 |
|
|
|
601 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
602 |
|
|
GA15( 4, 9,:) = (/& |
603 |
|
|
& 0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/) |
604 |
|
|
GB15( 4, 9,:) = (/& |
605 |
|
|
& 0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/) |
606 |
|
|
GA15( 4,10,:) = (/& |
607 |
|
|
& 0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/) |
608 |
|
|
GB15( 4,10,:) = (/& |
609 |
|
|
& 0.24196167E+02_JPRB, 0.10534169E+02_JPRB, 0.10000000E+01_JPRB/) |
610 |
|
|
|
611 |
|
|
!----- INTERVAL = 4 ----- T = 237.5 |
612 |
|
|
|
613 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
614 |
|
|
GA15( 5, 9,:) = (/& |
615 |
|
|
& 0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/) |
616 |
|
|
GB15( 5, 9,:) = (/& |
617 |
|
|
& 0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/) |
618 |
|
|
GA15( 5,10,:) = (/& |
619 |
|
|
& 0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/) |
620 |
|
|
GB15( 5,10,:) = (/& |
621 |
|
|
& 0.24093406E+02_JPRB, 0.10514900E+02_JPRB, 0.10000000E+01_JPRB/) |
622 |
|
|
|
623 |
|
|
!----- INTERVAL = 4 ----- T = 250.0 |
624 |
|
|
|
625 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
626 |
|
|
GA15( 6, 9,:) = (/& |
627 |
|
|
& 0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/) |
628 |
|
|
GB15( 6, 9,:) = (/& |
629 |
|
|
& 0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/) |
630 |
|
|
GA15( 6,10,:) = (/& |
631 |
|
|
& 0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/) |
632 |
|
|
GB15( 6,10,:) = (/& |
633 |
|
|
& 0.24001597E+02_JPRB, 0.10497547E+02_JPRB, 0.10000000E+01_JPRB/) |
634 |
|
|
|
635 |
|
|
!----- INTERVAL = 4 ----- T = 262.5 |
636 |
|
|
|
637 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
638 |
|
|
GA15( 7, 9,:) = (/& |
639 |
|
|
& 0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/) |
640 |
|
|
GB15( 7, 9,:) = (/& |
641 |
|
|
& 0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/) |
642 |
|
|
GA15( 7,10,:) = (/& |
643 |
|
|
& 0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/) |
644 |
|
|
GB15( 7,10,:) = (/& |
645 |
|
|
& 0.23919098E+02_JPRB, 0.10481842E+02_JPRB, 0.10000000E+01_JPRB/) |
646 |
|
|
|
647 |
|
|
!----- INTERVAL = 4 ----- T = 275.0 |
648 |
|
|
|
649 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
650 |
|
|
GA15( 8, 9,:) = (/& |
651 |
|
|
& 0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/) |
652 |
|
|
GB15( 8, 9,:) = (/& |
653 |
|
|
& 0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/) |
654 |
|
|
GA15( 8,10,:) = (/& |
655 |
|
|
& 0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/) |
656 |
|
|
GB15( 8,10,:) = (/& |
657 |
|
|
& 0.23844511E+02_JPRB, 0.10467553E+02_JPRB, 0.10000000E+01_JPRB/) |
658 |
|
|
|
659 |
|
|
!----- INTERVAL = 4 ----- T = 287.5 |
660 |
|
|
|
661 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
662 |
|
|
GA15( 9, 9,:) = (/& |
663 |
|
|
& 0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/) |
664 |
|
|
GB15( 9, 9,:) = (/& |
665 |
|
|
& 0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/) |
666 |
|
|
GA15( 9,10,:) = (/& |
667 |
|
|
& 0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/) |
668 |
|
|
GB15( 9,10,:) = (/& |
669 |
|
|
& 0.23776708E+02_JPRB, 0.10454488E+02_JPRB, 0.10000000E+01_JPRB/) |
670 |
|
|
|
671 |
|
|
!----- INTERVAL = 4 ----- T = 300.0 |
672 |
|
|
|
673 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
674 |
|
|
GA15(10, 9,:) = (/& |
675 |
|
|
& 0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/) |
676 |
|
|
GB15(10, 9,:) = (/& |
677 |
|
|
& 0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/) |
678 |
|
|
GA15(10,10,:) = (/& |
679 |
|
|
& 0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/) |
680 |
|
|
GB15(10,10,:) = (/& |
681 |
|
|
& 0.23714816E+02_JPRB, 0.10442501E+02_JPRB, 0.10000000E+01_JPRB/) |
682 |
|
|
|
683 |
|
|
!----- INTERVAL = 4 ----- T = 312.5 |
684 |
|
|
|
685 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 28 37 45 |
686 |
|
|
GA15(11, 9,:) = (/& |
687 |
|
|
& 0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/) |
688 |
|
|
GB15(11, 9,:) = (/& |
689 |
|
|
& 0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/) |
690 |
|
|
GA15(11,10,:) = (/& |
691 |
|
|
& 0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/) |
692 |
|
|
GB15(11,10,:) = (/& |
693 |
|
|
& 0.23658197E+02_JPRB, 0.10431483E+02_JPRB, 0.10000000E+01_JPRB/) |
694 |
|
|
|
695 |
|
|
!-- H2O -- WEAKER PARTS OF THE STRONG BANDS -- FROM ABS225 ---- |
696 |
|
|
|
697 |
|
|
!-- WATER VAPOR --- 350 - 500 CM-1 |
698 |
|
|
|
699 |
|
|
!-- G = - 0.2*SLA, 0.0 +0.5/(1+0.5U) |
700 |
|
|
|
701 |
|
|
!----- INTERVAL = 5 ----- T = 187.5 |
702 |
|
|
|
703 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
704 |
|
|
GA15( 1, 5,:) = (/& |
705 |
|
|
& 0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/) |
706 |
|
|
GB15( 1, 5,:) = (/& |
707 |
|
|
& 0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/) |
708 |
|
|
GA15( 1, 6,:) = (/& |
709 |
|
|
& 0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/) |
710 |
|
|
GB15( 1, 6,:) = (/& |
711 |
|
|
& 0.17770551E+00_JPRB, 0.41646579E+00_JPRB, 0.10000000E+01_JPRB/) |
712 |
|
|
|
713 |
|
|
!----- INTERVAL = 5 ----- T = 200.0 |
714 |
|
|
|
715 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
716 |
|
|
GA15( 2, 5,:) = (/& |
717 |
|
|
& 0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/) |
718 |
|
|
GB15( 2, 5,:) = (/& |
719 |
|
|
& 0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/) |
720 |
|
|
GA15( 2, 6,:) = (/& |
721 |
|
|
& 0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/) |
722 |
|
|
GB15( 2, 6,:) = (/& |
723 |
|
|
& 0.18176757E+00_JPRB, 0.42345095E+00_JPRB, 0.10000000E+01_JPRB/) |
724 |
|
|
|
725 |
|
|
!----- INTERVAL = 5 ----- T = 212.5 |
726 |
|
|
|
727 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
728 |
|
|
GA15( 3, 5,:) = (/& |
729 |
|
|
& 0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/) |
730 |
|
|
GB15( 3, 5,:) = (/& |
731 |
|
|
& 0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/) |
732 |
|
|
GA15( 3, 6,:) = (/& |
733 |
|
|
& 0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/) |
734 |
|
|
GB15( 3, 6,:) = (/& |
735 |
|
|
& 0.18527967E+00_JPRB, 0.42937476E+00_JPRB, 0.10000000E+01_JPRB/) |
736 |
|
|
|
737 |
|
|
!----- INTERVAL = 5 ----- T = 225.0 |
738 |
|
|
|
739 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
740 |
|
|
GA15( 4, 5,:) = (/& |
741 |
|
|
& 0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/) |
742 |
|
|
GB15( 4, 5,:) = (/& |
743 |
|
|
& 0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/) |
744 |
|
|
GA15( 4, 6,:) = (/& |
745 |
|
|
& 0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/) |
746 |
|
|
GB15( 4, 6,:) = (/& |
747 |
|
|
& 0.18833348E+00_JPRB, 0.43444062E+00_JPRB, 0.10000000E+01_JPRB/) |
748 |
|
|
|
749 |
|
|
!----- INTERVAL = 5 ----- T = 237.5 |
750 |
|
|
|
751 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
752 |
|
|
GA15( 5, 5,:) = (/& |
753 |
|
|
& 0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/) |
754 |
|
|
GB15( 5, 5,:) = (/& |
755 |
|
|
& 0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/) |
756 |
|
|
GA15( 5, 6,:) = (/& |
757 |
|
|
& 0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/) |
758 |
|
|
GB15( 5, 6,:) = (/& |
759 |
|
|
& 0.19100108E+00_JPRB, 0.43880316E+00_JPRB, 0.10000000E+01_JPRB/) |
760 |
|
|
|
761 |
|
|
!----- INTERVAL = 5 ----- T = 250.0 |
762 |
|
|
|
763 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
764 |
|
|
GA15( 6, 5,:) = (/& |
765 |
|
|
& 0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/) |
766 |
|
|
GB15( 6, 5,:) = (/& |
767 |
|
|
& 0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/) |
768 |
|
|
GA15( 6, 6,:) = (/& |
769 |
|
|
& 0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/) |
770 |
|
|
GB15( 6, 6,:) = (/& |
771 |
|
|
& 0.19334122E+00_JPRB, 0.44258354E+00_JPRB, 0.10000000E+01_JPRB/) |
772 |
|
|
|
773 |
|
|
!----- INTERVAL = 5 ----- T = 262.5 |
774 |
|
|
|
775 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
776 |
|
|
GA15( 7, 5,:) = (/& |
777 |
|
|
& 0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/) |
778 |
|
|
GB15( 7, 5,:) = (/& |
779 |
|
|
& 0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/) |
780 |
|
|
GA15( 7, 6,:) = (/& |
781 |
|
|
& 0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/) |
782 |
|
|
GB15( 7, 6,:) = (/& |
783 |
|
|
& 0.19540288E+00_JPRB, 0.44587882E+00_JPRB, 0.10000000E+01_JPRB/) |
784 |
|
|
|
785 |
|
|
!----- INTERVAL = 5 ----- T = 275.0 |
786 |
|
|
|
787 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
788 |
|
|
GA15( 8, 5,:) = (/& |
789 |
|
|
& 0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/) |
790 |
|
|
GB15( 8, 5,:) = (/& |
791 |
|
|
& 0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/) |
792 |
|
|
GA15( 8, 6,:) = (/& |
793 |
|
|
& 0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/) |
794 |
|
|
GB15( 8, 6,:) = (/& |
795 |
|
|
& 0.19722732E+00_JPRB, 0.44876776E+00_JPRB, 0.10000000E+01_JPRB/) |
796 |
|
|
|
797 |
|
|
!----- INTERVAL = 5 ----- T = 287.5 |
798 |
|
|
|
799 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
800 |
|
|
GA15( 9, 5,:) = (/& |
801 |
|
|
& 0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/) |
802 |
|
|
GB15( 9, 5,:) = (/& |
803 |
|
|
& 0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/) |
804 |
|
|
GA15( 9, 6,:) = (/& |
805 |
|
|
& 0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/) |
806 |
|
|
GB15( 9, 6,:) = (/& |
807 |
|
|
& 0.19884918E+00_JPRB, 0.45131451E+00_JPRB, 0.10000000E+01_JPRB/) |
808 |
|
|
|
809 |
|
|
!----- INTERVAL = 5 ----- T = 300.0 |
810 |
|
|
|
811 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
812 |
|
|
GA15(10, 5,:) = (/& |
813 |
|
|
& 0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/) |
814 |
|
|
GB15(10, 5,:) = (/& |
815 |
|
|
& 0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/) |
816 |
|
|
GA15(10, 6,:) = (/& |
817 |
|
|
& 0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/) |
818 |
|
|
GB15(10, 6,:) = (/& |
819 |
|
|
& 0.20029696E+00_JPRB, 0.45357095E+00_JPRB, 0.10000000E+01_JPRB/) |
820 |
|
|
|
821 |
|
|
!----- INTERVAL = 5 ----- T = 312.5 |
822 |
|
|
|
823 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
824 |
|
|
GA15(11, 5,:) = (/& |
825 |
|
|
& 0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/) |
826 |
|
|
GB15(11, 5,:) = (/& |
827 |
|
|
& 0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/) |
828 |
|
|
GA15(11, 6,:) = (/& |
829 |
|
|
& 0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/) |
830 |
|
|
GB15(11, 6,:) = (/& |
831 |
|
|
& 0.20159300E+00_JPRB, 0.45557797E+00_JPRB, 0.10000000E+01_JPRB/) |
832 |
|
|
|
833 |
|
|
!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 - |
834 |
|
|
!--- G = 0.0 |
835 |
|
|
|
836 |
|
|
!----- INTERVAL = 6 ----- T = 187.5 |
837 |
|
|
|
838 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
839 |
|
|
GA15( 1,11,:) = (/& |
840 |
|
|
& 0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/) |
841 |
|
|
GB15( 1,11,:) = (/& |
842 |
|
|
& 0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/) |
843 |
|
|
GA15( 1,12,:) = (/& |
844 |
|
|
& 0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/) |
845 |
|
|
GB15( 1,12,:) = (/& |
846 |
|
|
& 0.79709806E+01_JPRB, 0.18377807E+02_JPRB, 0.10000000E+01_JPRB/) |
847 |
|
|
|
848 |
|
|
!----- INTERVAL = 6 ----- T = 200.0 |
849 |
|
|
|
850 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
851 |
|
|
GA15( 2,11,:) = (/& |
852 |
|
|
& 0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/) |
853 |
|
|
GB15( 2,11,:) = (/& |
854 |
|
|
& 0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/) |
855 |
|
|
GA15( 2,12,:) = (/& |
856 |
|
|
& 0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/) |
857 |
|
|
GB15( 2,12,:) = (/& |
858 |
|
|
& 0.75400737E+01_JPRB, 0.17643148E+02_JPRB, 0.10000000E+01_JPRB/) |
859 |
|
|
|
860 |
|
|
!----- INTERVAL = 6 ----- T = 212.5 |
861 |
|
|
|
862 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
863 |
|
|
GA15( 3,11,:) = (/& |
864 |
|
|
& 0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/) |
865 |
|
|
GB15( 3,11,:) = (/& |
866 |
|
|
& 0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/) |
867 |
|
|
GA15( 3,12,:) = (/& |
868 |
|
|
& 0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/) |
869 |
|
|
GB15( 3,12,:) = (/& |
870 |
|
|
& 0.81804377E+01_JPRB, 0.19296161E+02_JPRB, 0.10000000E+01_JPRB/) |
871 |
|
|
|
872 |
|
|
!----- INTERVAL = 6 ----- T = 225.0 |
873 |
|
|
|
874 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
875 |
|
|
GA15( 4,11,:) = (/& |
876 |
|
|
& 0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/) |
877 |
|
|
GB15( 4,11,:) = (/& |
878 |
|
|
& 0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/) |
879 |
|
|
GA15( 4,12,:) = (/& |
880 |
|
|
& 0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/) |
881 |
|
|
GB15( 4,12,:) = (/& |
882 |
|
|
& 0.10564339E+02_JPRB, 0.24951120E+02_JPRB, 0.10000000E+01_JPRB/) |
883 |
|
|
|
884 |
|
|
!----- INTERVAL = 6 ----- T = 237.5 |
885 |
|
|
|
886 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
887 |
|
|
GA15( 5,11,:) = (/& |
888 |
|
|
& 0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/) |
889 |
|
|
GB15( 5,11,:) = (/& |
890 |
|
|
& 0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/) |
891 |
|
|
GA15( 5,12,:) = (/& |
892 |
|
|
& 0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/) |
893 |
|
|
GB15( 5,12,:) = (/& |
894 |
|
|
& 0.46896789E+02_JPRB, 0.10957372E+03_JPRB, 0.10000000E+01_JPRB/) |
895 |
|
|
|
896 |
|
|
!----- INTERVAL = 6 ----- T = 250.0 |
897 |
|
|
|
898 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
899 |
|
|
GA15( 6,11,:) = (/& |
900 |
|
|
& 0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/) |
901 |
|
|
GB15( 6,11,:) = (/& |
902 |
|
|
& 0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/) |
903 |
|
|
GA15( 6,12,:) = (/& |
904 |
|
|
& -0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/) |
905 |
|
|
GB15( 6,12,:) = (/& |
906 |
|
|
& -0.30926524E+01_JPRB,-0.67432659E+01_JPRB, 0.10000000E+01_JPRB/) |
907 |
|
|
|
908 |
|
|
!----- INTERVAL = 6 ----- T = 262.5 |
909 |
|
|
|
910 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
911 |
|
|
GA15( 7,11,:) = (/& |
912 |
|
|
& -0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/) |
913 |
|
|
GB15( 7,11,:) = (/& |
914 |
|
|
& -0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/) |
915 |
|
|
GA15( 7,12,:) = (/& |
916 |
|
|
& 0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/) |
917 |
|
|
GB15( 7,12,:) = (/& |
918 |
|
|
& 0.85742941E+00_JPRB, 0.24550746E+01_JPRB, 0.10000000E+01_JPRB/) |
919 |
|
|
|
920 |
|
|
!----- INTERVAL = 6 ----- T = 275.0 |
921 |
|
|
|
922 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
923 |
|
|
GA15( 8,11,:) = (/& |
924 |
|
|
& -0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/) |
925 |
|
|
GB15( 8,11,:) = (/& |
926 |
|
|
& -0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/) |
927 |
|
|
GA15( 8,12,:) = (/& |
928 |
|
|
& 0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/) |
929 |
|
|
GB15( 8,12,:) = (/& |
930 |
|
|
& 0.19164038E+01_JPRB, 0.49089917E+01_JPRB, 0.10000000E+01_JPRB/) |
931 |
|
|
|
932 |
|
|
!----- INTERVAL = 6 ----- T = 287.5 |
933 |
|
|
|
934 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
935 |
|
|
GA15( 9,11,:) = (/& |
936 |
|
|
& 0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/) |
937 |
|
|
GB15( 9,11,:) = (/& |
938 |
|
|
& 0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/) |
939 |
|
|
GA15( 9,12,:) = (/& |
940 |
|
|
& 0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/) |
941 |
|
|
GB15( 9,12,:) = (/& |
942 |
|
|
& 0.23513199E+01_JPRB, 0.59008712E+01_JPRB, 0.10000000E+01_JPRB/) |
943 |
|
|
|
944 |
|
|
!----- INTERVAL = 6 ----- T = 300.0 |
945 |
|
|
|
946 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
947 |
|
|
GA15(10,11,:) = (/& |
948 |
|
|
& 0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/) |
949 |
|
|
GB15(10,11,:) = (/& |
950 |
|
|
& 0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/) |
951 |
|
|
GA15(10,12,:) = (/& |
952 |
|
|
& 0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/) |
953 |
|
|
GB15(10,12,:) = (/& |
954 |
|
|
& 0.25566644E+01_JPRB, 0.63532616E+01_JPRB, 0.10000000E+01_JPRB/) |
955 |
|
|
|
956 |
|
|
!----- INTERVAL = 6 ----- T = 312.5 |
957 |
|
|
|
958 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 35 40 45 |
959 |
|
|
GA15(11,11,:) = (/& |
960 |
|
|
& 0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/) |
961 |
|
|
GB15(11,11,:) = (/& |
962 |
|
|
& 0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/) |
963 |
|
|
GA15(11,12,:) = (/& |
964 |
|
|
& 0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/) |
965 |
|
|
GB15(11,12,:) = (/& |
966 |
|
|
& 0.26555181E+01_JPRB, 0.65558627E+01_JPRB, 0.10000000E+01_JPRB/) |
967 |
|
|
|
968 |
|
|
!-- END WATER VAPOR |
969 |
|
|
|
970 |
|
|
!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ---------------------- |
971 |
|
|
|
972 |
|
|
!-- FIU = 0.8 + MAX(0.35,(7-IU)*0.9) , X/T, 9 |
973 |
|
|
|
974 |
|
|
!----- INTERVAL = 2 ----- T = 187.5 |
975 |
|
|
|
976 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
977 |
|
|
GA15( 1,13,:) = (/& |
978 |
|
|
& 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/) |
979 |
|
|
GB15( 1,13,:) = (/& |
980 |
|
|
& 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/) |
981 |
|
|
GA15( 1,14,:) = (/& |
982 |
|
|
& 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/) |
983 |
|
|
GB15( 1,14,:) = (/& |
984 |
|
|
& 0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/) |
985 |
|
|
|
986 |
|
|
!----- INTERVAL = 2 ----- T = 200.0 |
987 |
|
|
|
988 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
989 |
|
|
GA15( 2,13,:) = (/& |
990 |
|
|
& 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/) |
991 |
|
|
GB15( 2,13,:) = (/& |
992 |
|
|
& 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/) |
993 |
|
|
GA15( 2,14,:) = (/& |
994 |
|
|
& 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/) |
995 |
|
|
GB15( 2,14,:) = (/& |
996 |
|
|
& 0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/) |
997 |
|
|
|
998 |
|
|
!----- INTERVAL = 2 ----- T = 212.5 |
999 |
|
|
|
1000 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1001 |
|
|
GA15( 3,13,:) = (/& |
1002 |
|
|
& 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/) |
1003 |
|
|
GB15( 3,13,:) = (/& |
1004 |
|
|
& 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/) |
1005 |
|
|
GA15( 3,14,:) = (/& |
1006 |
|
|
& 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/) |
1007 |
|
|
GB15( 3,14,:) = (/& |
1008 |
|
|
& 0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/) |
1009 |
|
|
|
1010 |
|
|
!----- INTERVAL = 2 ----- T = 225.0 |
1011 |
|
|
|
1012 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1013 |
|
|
GA15( 4,13,:) = (/& |
1014 |
|
|
& 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/) |
1015 |
|
|
GB15( 4,13,:) = (/& |
1016 |
|
|
& 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/) |
1017 |
|
|
GA15( 4,14,:) = (/& |
1018 |
|
|
& 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/) |
1019 |
|
|
GB15( 4,14,:) = (/& |
1020 |
|
|
& 0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/) |
1021 |
|
|
|
1022 |
|
|
!----- INTERVAL = 2 ----- T = 237.5 |
1023 |
|
|
|
1024 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1025 |
|
|
GA15( 5,13,:) = (/& |
1026 |
|
|
& 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/) |
1027 |
|
|
GB15( 5,13,:) = (/& |
1028 |
|
|
& 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/) |
1029 |
|
|
GA15( 5,14,:) = (/& |
1030 |
|
|
& 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/) |
1031 |
|
|
GB15( 5,14,:) = (/& |
1032 |
|
|
& 0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/) |
1033 |
|
|
|
1034 |
|
|
!----- INTERVAL = 2 ----- T = 250.0 |
1035 |
|
|
|
1036 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1037 |
|
|
GA15( 6,13,:) = (/& |
1038 |
|
|
& 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/) |
1039 |
|
|
GB15( 6,13,:) = (/& |
1040 |
|
|
& 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/) |
1041 |
|
|
GA15( 6,14,:) = (/& |
1042 |
|
|
& 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/) |
1043 |
|
|
GB15( 6,14,:) = (/& |
1044 |
|
|
& 0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/) |
1045 |
|
|
|
1046 |
|
|
!----- INTERVAL = 2 ----- T = 262.5 |
1047 |
|
|
|
1048 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1049 |
|
|
GA15( 7,13,:) = (/& |
1050 |
|
|
& 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/) |
1051 |
|
|
GB15( 7,13,:) = (/& |
1052 |
|
|
& 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/) |
1053 |
|
|
GA15( 7,14,:) = (/& |
1054 |
|
|
& 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/) |
1055 |
|
|
GB15( 7,14,:) = (/& |
1056 |
|
|
& 0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/) |
1057 |
|
|
|
1058 |
|
|
!----- INTERVAL = 2 ----- T = 275.0 |
1059 |
|
|
|
1060 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1061 |
|
|
GA15( 8,13,:) = (/& |
1062 |
|
|
& 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/) |
1063 |
|
|
GB15( 8,13,:) = (/& |
1064 |
|
|
& 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/) |
1065 |
|
|
GA15( 8,14,:) = (/& |
1066 |
|
|
& 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/) |
1067 |
|
|
GB15( 8,14,:) = (/& |
1068 |
|
|
& 0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/) |
1069 |
|
|
|
1070 |
|
|
!----- INTERVAL = 2 ----- T = 287.5 |
1071 |
|
|
|
1072 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1073 |
|
|
GA15( 9,13,:) = (/& |
1074 |
|
|
& 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/) |
1075 |
|
|
GB15( 9,13,:) = (/& |
1076 |
|
|
& 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/) |
1077 |
|
|
GA15( 9,14,:) = (/& |
1078 |
|
|
& 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/) |
1079 |
|
|
GB15( 9,14,:) = (/& |
1080 |
|
|
& 0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/) |
1081 |
|
|
|
1082 |
|
|
!----- INTERVAL = 2 ----- T = 300.0 |
1083 |
|
|
|
1084 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1085 |
|
|
GA15(10,13,:) = (/& |
1086 |
|
|
& 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/) |
1087 |
|
|
GB15(10,13,:) = (/& |
1088 |
|
|
& 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/) |
1089 |
|
|
GA15(10,14,:) = (/& |
1090 |
|
|
& 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/) |
1091 |
|
|
GB15(10,14,:) = (/& |
1092 |
|
|
& 0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/) |
1093 |
|
|
|
1094 |
|
|
!----- INTERVAL = 2 ----- T = 312.5 |
1095 |
|
|
|
1096 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 30 38 45 |
1097 |
|
|
GA15(11,13,:) = (/& |
1098 |
|
|
& 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/) |
1099 |
|
|
GB15(11,13,:) = (/& |
1100 |
|
|
& 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/) |
1101 |
|
|
GA15(11,14,:) = (/& |
1102 |
|
|
& 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/) |
1103 |
|
|
GB15(11,14,:) = (/& |
1104 |
|
|
& 0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/) |
1105 |
|
|
|
1106 |
|
|
!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1) |
1107 |
|
|
|
1108 |
|
|
!-- G = 0.0 |
1109 |
|
|
|
1110 |
|
|
!----- INTERVAL = 4 ----- T = 187.5 |
1111 |
|
|
|
1112 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1113 |
|
|
GA15( 1,15,:) = (/& |
1114 |
|
|
& 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/) |
1115 |
|
|
GB15( 1,15,:) = (/& |
1116 |
|
|
& 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/) |
1117 |
|
|
GA15( 1,16,:) = (/& |
1118 |
|
|
& 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/) |
1119 |
|
|
GB15( 1,16,:) = (/& |
1120 |
|
|
& 0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/) |
1121 |
|
|
|
1122 |
|
|
!----- INTERVAL = 4 ----- T = 200.0 |
1123 |
|
|
|
1124 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1125 |
|
|
GA15( 2,15,:) = (/& |
1126 |
|
|
& 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/) |
1127 |
|
|
GB15( 2,15,:) = (/& |
1128 |
|
|
& 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/) |
1129 |
|
|
GA15( 2,16,:) = (/& |
1130 |
|
|
& 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/) |
1131 |
|
|
GB15( 2,16,:) = (/& |
1132 |
|
|
& 0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/) |
1133 |
|
|
|
1134 |
|
|
!----- INTERVAL = 4 ----- T = 212.5 |
1135 |
|
|
|
1136 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1137 |
|
|
GA15( 3,15,:) = (/& |
1138 |
|
|
& 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/) |
1139 |
|
|
GB15( 3,15,:) = (/& |
1140 |
|
|
& 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/) |
1141 |
|
|
GA15( 3,16,:) = (/& |
1142 |
|
|
& 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/) |
1143 |
|
|
GB15( 3,16,:) = (/& |
1144 |
|
|
& 0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/) |
1145 |
|
|
|
1146 |
|
|
!----- INTERVAL = 4 ----- T = 225.0 |
1147 |
|
|
|
1148 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1149 |
|
|
GA15( 4,15,:) = (/& |
1150 |
|
|
& 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/) |
1151 |
|
|
GB15( 4,15,:) = (/& |
1152 |
|
|
& 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/) |
1153 |
|
|
GA15( 4,16,:) = (/& |
1154 |
|
|
& 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/) |
1155 |
|
|
GB15( 4,16,:) = (/& |
1156 |
|
|
& 0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/) |
1157 |
|
|
|
1158 |
|
|
!----- INTERVAL = 4 ----- T = 237.5 |
1159 |
|
|
|
1160 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1161 |
|
|
GA15( 5,15,:) = (/& |
1162 |
|
|
& 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/) |
1163 |
|
|
GB15( 5,15,:) = (/& |
1164 |
|
|
& 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/) |
1165 |
|
|
GA15( 5,16,:) = (/& |
1166 |
|
|
& 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/) |
1167 |
|
|
GB15( 5,16,:) = (/& |
1168 |
|
|
& 0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/) |
1169 |
|
|
|
1170 |
|
|
!----- INTERVAL = 4 ----- T = 250.0 |
1171 |
|
|
|
1172 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1173 |
|
|
GA15( 6,15,:) = (/& |
1174 |
|
|
& 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/) |
1175 |
|
|
GB15( 6,15,:) = (/& |
1176 |
|
|
& 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/) |
1177 |
|
|
GA15( 6,16,:) = (/& |
1178 |
|
|
& 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/) |
1179 |
|
|
GB15( 6,16,:) = (/& |
1180 |
|
|
& 0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/) |
1181 |
|
|
|
1182 |
|
|
!----- INTERVAL = 4 ----- T = 262.5 |
1183 |
|
|
|
1184 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1185 |
|
|
GA15( 7,15,:) = (/& |
1186 |
|
|
& 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/) |
1187 |
|
|
GB15( 7,15,:) = (/& |
1188 |
|
|
& 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/) |
1189 |
|
|
GA15( 7,16,:) = (/& |
1190 |
|
|
& 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/) |
1191 |
|
|
GB15( 7,16,:) = (/& |
1192 |
|
|
& 0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/) |
1193 |
|
|
|
1194 |
|
|
!----- INTERVAL = 4 ----- T = 275.0 |
1195 |
|
|
|
1196 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1197 |
|
|
GA15( 8,15,:) = (/& |
1198 |
|
|
& 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/) |
1199 |
|
|
GB15( 8,15,:) = (/& |
1200 |
|
|
& 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/) |
1201 |
|
|
GA15( 8,16,:) = (/& |
1202 |
|
|
& 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/) |
1203 |
|
|
GB15( 8,16,:) = (/& |
1204 |
|
|
& 0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/) |
1205 |
|
|
|
1206 |
|
|
!----- INTERVAL = 4 ----- T = 287.5 |
1207 |
|
|
|
1208 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1209 |
|
|
GA15( 9,15,:) = (/& |
1210 |
|
|
& 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/) |
1211 |
|
|
GB15( 9,15,:) = (/& |
1212 |
|
|
& 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/) |
1213 |
|
|
GA15( 9,16,:) = (/& |
1214 |
|
|
& 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/) |
1215 |
|
|
GB15( 9,16,:) = (/& |
1216 |
|
|
& 0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/) |
1217 |
|
|
|
1218 |
|
|
!----- INTERVAL = 4 ----- T = 300.0 |
1219 |
|
|
|
1220 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1221 |
|
|
GA15(10,15,:) = (/& |
1222 |
|
|
& 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/) |
1223 |
|
|
GB15(10,15,:) = (/& |
1224 |
|
|
& 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/) |
1225 |
|
|
GA15(10,16,:) = (/& |
1226 |
|
|
& 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/) |
1227 |
|
|
GB15(10,16,:) = (/& |
1228 |
|
|
& 0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/) |
1229 |
|
|
|
1230 |
|
|
!----- INTERVAL = 4 ----- T = 312.5 |
1231 |
|
|
|
1232 |
|
|
!-- INDICES FOR PADE APPROXIMATION 1 15 29 45 |
1233 |
|
|
GA15(11,15,:) = (/& |
1234 |
|
|
& 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/) |
1235 |
|
|
GB15(11,15,:) = (/& |
1236 |
|
|
& 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/) |
1237 |
|
|
GA15(11,16,:) = (/& |
1238 |
|
|
& 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/) |
1239 |
|
|
GB15(11,16,:) = (/& |
1240 |
|
|
& 0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/) |
1241 |
|
|
|
1242 |
|
|
IF (LHOOK) CALL DR_HOOK('SULW15',1,ZHOOK_HANDLE) |
1243 |
|
|
END SUBROUTINE SULW15 |