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