1 |
|
|
!OCL SCALAR |
2 |
|
|
#ifdef RS6K |
3 |
|
|
@PROCESS NOOPTIMIZE |
4 |
|
|
#endif |
5 |
|
|
SUBROUTINE SRTM_KGB23 |
6 |
|
|
|
7 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
8 |
|
|
! Revision: 2.4 |
9 |
|
|
! BAND 16: 8050-12850 cm-1 (low - H2O; high - nothing) |
10 |
|
|
! Reformatted for F90 by JJMorcrette, ECMWF |
11 |
|
|
|
12 |
|
|
! ------------------------------------------------------------------ |
13 |
|
|
|
14 |
|
|
USE PARKIND1 ,ONLY : JPRB |
15 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
16 |
|
|
|
17 |
|
|
USE YOESRTA23, ONLY : KA, SELFREF, FORREF, SFLUXREF, RAYL & |
18 |
|
|
& , GIVFAC, LAYREFFR |
19 |
|
|
|
20 |
|
|
! ------------------------------------------------------------------ |
21 |
|
|
|
22 |
|
|
IMPLICIT NONE |
23 |
|
|
|
24 |
|
|
! KURUCZ |
25 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
26 |
|
|
IF (LHOOK) CALL DR_HOOK('SRTM_KGB23',0,ZHOOK_HANDLE) |
27 |
|
|
SFLUXREF = (/ & |
28 |
|
|
& 53.2101_JPRB , 51.4143_JPRB, 49.3348_JPRB, 45.4612_JPRB , & |
29 |
|
|
& 40.8294_JPRB , 35.1801_JPRB, 28.6947_JPRB, 21.5751_JPRB , & |
30 |
|
|
& 14.6388_JPRB , 1.59111_JPRB, 1.31860_JPRB, 1.04018_JPRB , & |
31 |
|
|
& 0.762140_JPRB,0.484214_JPRB,0.182275_JPRB, 2.54948E-02_JPRB /) |
32 |
|
|
|
33 |
|
|
! Rayleigh extinction coefficient at all v |
34 |
|
|
RAYL = (/ & |
35 |
|
|
& 5.94837E-08_JPRB,5.70593E-08_JPRB,6.27845E-08_JPRB,5.56602E-08_JPRB, & |
36 |
|
|
& 5.25571E-08_JPRB,4.73388E-08_JPRB,4.17466E-08_JPRB,3.98097E-08_JPRB, & |
37 |
|
|
& 4.00786E-08_JPRB,3.67478E-08_JPRB,3.45186E-08_JPRB,3.46156E-08_JPRB, & |
38 |
|
|
& 3.32155E-08_JPRB,3.23642E-08_JPRB,2.72590E-08_JPRB,2.96813E-08_JPRB /) |
39 |
|
|
|
40 |
|
|
! Average Giver et al. correction factor for this band. |
41 |
|
|
GIVFAC = 1.029_JPRB |
42 |
|
|
|
43 |
|
|
LAYREFFR = 6 |
44 |
|
|
|
45 |
|
|
! ------------------------------------------------------------------ |
46 |
|
|
|
47 |
|
|
! The array KA contains absorption coefs at the 16 chosen g-values |
48 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
49 |
|
|
! species parameters (see taumol.f for definition). The first |
50 |
|
|
! index in the array, JS, runs from 1 to 9, and corresponds to |
51 |
|
|
! different values of the binary species parameter. For instance, |
52 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
53 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
54 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
55 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
56 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
57 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
58 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
59 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
60 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
61 |
|
|
! which g-interval the absorption coefficients are for. |
62 |
|
|
! ----------------------------------------------------------------- |
63 |
|
|
|
64 |
|
|
KA(:, 1, 1) = (/ & |
65 |
|
|
& 0.33078E-07_JPRB,0.34034E-07_JPRB,0.35124E-07_JPRB,0.34187E-07_JPRB,0.34744E-07_JPRB /) |
66 |
|
|
KA(:, 2, 1) = (/ & |
67 |
|
|
& 0.25544E-07_JPRB,0.25873E-07_JPRB,0.26742E-07_JPRB,0.27512E-07_JPRB,0.27504E-07_JPRB /) |
68 |
|
|
KA(:, 3, 1) = (/ & |
69 |
|
|
& 0.18549E-07_JPRB,0.19611E-07_JPRB,0.20840E-07_JPRB,0.22548E-07_JPRB,0.23069E-07_JPRB /) |
70 |
|
|
KA(:, 4, 1) = (/ & |
71 |
|
|
& 0.28794E-07_JPRB,0.30837E-07_JPRB,0.32679E-07_JPRB,0.34307E-07_JPRB,0.36901E-07_JPRB /) |
72 |
|
|
KA(:, 5, 1) = (/ & |
73 |
|
|
& 0.36776E-07_JPRB,0.39144E-07_JPRB,0.41300E-07_JPRB,0.43264E-07_JPRB,0.46626E-07_JPRB /) |
74 |
|
|
KA(:, 6, 1) = (/ & |
75 |
|
|
& 0.59710E-07_JPRB,0.62941E-07_JPRB,0.65500E-07_JPRB,0.67353E-07_JPRB,0.68774E-07_JPRB /) |
76 |
|
|
KA(:, 7, 1) = (/ & |
77 |
|
|
& 0.12143E-06_JPRB,0.12932E-06_JPRB,0.13250E-06_JPRB,0.13526E-06_JPRB,0.13849E-06_JPRB /) |
78 |
|
|
KA(:, 8, 1) = (/ & |
79 |
|
|
& 0.12531E-06_JPRB,0.13241E-06_JPRB,0.13939E-06_JPRB,0.14705E-06_JPRB,0.15465E-06_JPRB /) |
80 |
|
|
KA(:, 9, 1) = (/ & |
81 |
|
|
& 0.20209E-06_JPRB,0.21134E-06_JPRB,0.22163E-06_JPRB,0.23098E-06_JPRB,0.24004E-06_JPRB /) |
82 |
|
|
KA(:,10, 1) = (/ & |
83 |
|
|
& 0.10750E-05_JPRB,0.11204E-05_JPRB,0.11575E-05_JPRB,0.11923E-05_JPRB,0.12227E-05_JPRB /) |
84 |
|
|
KA(:,11, 1) = (/ & |
85 |
|
|
& 0.27782E-05_JPRB,0.28204E-05_JPRB,0.28406E-05_JPRB,0.28380E-05_JPRB,0.28440E-05_JPRB /) |
86 |
|
|
KA(:,12, 1) = (/ & |
87 |
|
|
& 0.38510E-05_JPRB,0.39934E-05_JPRB,0.40697E-05_JPRB,0.41102E-05_JPRB,0.41571E-05_JPRB /) |
88 |
|
|
KA(:,13, 1) = (/ & |
89 |
|
|
& 0.43157E-05_JPRB,0.44488E-05_JPRB,0.45799E-05_JPRB,0.46585E-05_JPRB,0.47223E-05_JPRB /) |
90 |
|
|
KA(:, 1, 2) = (/ & |
91 |
|
|
& 0.84637E-06_JPRB,0.86989E-06_JPRB,0.90697E-06_JPRB,0.90000E-06_JPRB,0.91373E-06_JPRB /) |
92 |
|
|
KA(:, 2, 2) = (/ & |
93 |
|
|
& 0.67062E-06_JPRB,0.68649E-06_JPRB,0.72334E-06_JPRB,0.73645E-06_JPRB,0.72978E-06_JPRB /) |
94 |
|
|
KA(:, 3, 2) = (/ & |
95 |
|
|
& 0.52317E-06_JPRB,0.53924E-06_JPRB,0.55425E-06_JPRB,0.58347E-06_JPRB,0.57813E-06_JPRB /) |
96 |
|
|
KA(:, 4, 2) = (/ & |
97 |
|
|
& 0.39868E-06_JPRB,0.41431E-06_JPRB,0.42761E-06_JPRB,0.43892E-06_JPRB,0.45982E-06_JPRB /) |
98 |
|
|
KA(:, 5, 2) = (/ & |
99 |
|
|
& 0.32074E-06_JPRB,0.33452E-06_JPRB,0.34754E-06_JPRB,0.35582E-06_JPRB,0.37378E-06_JPRB /) |
100 |
|
|
KA(:, 6, 2) = (/ & |
101 |
|
|
& 0.42465E-06_JPRB,0.44058E-06_JPRB,0.45605E-06_JPRB,0.47192E-06_JPRB,0.48493E-06_JPRB /) |
102 |
|
|
KA(:, 7, 2) = (/ & |
103 |
|
|
& 0.47581E-06_JPRB,0.50000E-06_JPRB,0.52487E-06_JPRB,0.54192E-06_JPRB,0.55955E-06_JPRB /) |
104 |
|
|
KA(:, 8, 2) = (/ & |
105 |
|
|
& 0.10592E-05_JPRB,0.11093E-05_JPRB,0.11483E-05_JPRB,0.11923E-05_JPRB,0.12169E-05_JPRB /) |
106 |
|
|
KA(:, 9, 2) = (/ & |
107 |
|
|
& 0.50835E-05_JPRB,0.51710E-05_JPRB,0.52329E-05_JPRB,0.52644E-05_JPRB,0.52818E-05_JPRB /) |
108 |
|
|
KA(:,10, 2) = (/ & |
109 |
|
|
& 0.77867E-05_JPRB,0.82156E-05_JPRB,0.86002E-05_JPRB,0.89664E-05_JPRB,0.92394E-05_JPRB /) |
110 |
|
|
KA(:,11, 2) = (/ & |
111 |
|
|
& 0.89031E-05_JPRB,0.93573E-05_JPRB,0.97686E-05_JPRB,0.10236E-04_JPRB,0.10591E-04_JPRB /) |
112 |
|
|
KA(:,12, 2) = (/ & |
113 |
|
|
& 0.98068E-05_JPRB,0.10238E-04_JPRB,0.10700E-04_JPRB,0.11108E-04_JPRB,0.11471E-04_JPRB /) |
114 |
|
|
KA(:,13, 2) = (/ & |
115 |
|
|
& 0.11145E-04_JPRB,0.11697E-04_JPRB,0.12123E-04_JPRB,0.12482E-04_JPRB,0.12856E-04_JPRB /) |
116 |
|
|
KA(:, 1, 3) = (/ & |
117 |
|
|
& 0.66049E-05_JPRB,0.67547E-05_JPRB,0.70104E-05_JPRB,0.69745E-05_JPRB,0.70687E-05_JPRB /) |
118 |
|
|
KA(:, 2, 3) = (/ & |
119 |
|
|
& 0.54104E-05_JPRB,0.55245E-05_JPRB,0.57623E-05_JPRB,0.58532E-05_JPRB,0.58099E-05_JPRB /) |
120 |
|
|
KA(:, 3, 3) = (/ & |
121 |
|
|
& 0.43608E-05_JPRB,0.44784E-05_JPRB,0.45778E-05_JPRB,0.47665E-05_JPRB,0.47295E-05_JPRB /) |
122 |
|
|
KA(:, 4, 3) = (/ & |
123 |
|
|
& 0.35399E-05_JPRB,0.36454E-05_JPRB,0.37356E-05_JPRB,0.38107E-05_JPRB,0.39586E-05_JPRB /) |
124 |
|
|
KA(:, 5, 3) = (/ & |
125 |
|
|
& 0.28576E-05_JPRB,0.29552E-05_JPRB,0.30325E-05_JPRB,0.31028E-05_JPRB,0.32276E-05_JPRB /) |
126 |
|
|
KA(:, 6, 3) = (/ & |
127 |
|
|
& 0.21017E-05_JPRB,0.21836E-05_JPRB,0.22554E-05_JPRB,0.23121E-05_JPRB,0.23486E-05_JPRB /) |
128 |
|
|
KA(:, 7, 3) = (/ & |
129 |
|
|
& 0.19384E-05_JPRB,0.19914E-05_JPRB,0.20428E-05_JPRB,0.20879E-05_JPRB,0.21191E-05_JPRB /) |
130 |
|
|
KA(:, 8, 3) = (/ & |
131 |
|
|
& 0.32672E-05_JPRB,0.33753E-05_JPRB,0.34694E-05_JPRB,0.35273E-05_JPRB,0.35984E-05_JPRB /) |
132 |
|
|
KA(:, 9, 3) = (/ & |
133 |
|
|
& 0.82257E-05_JPRB,0.84975E-05_JPRB,0.86969E-05_JPRB,0.88995E-05_JPRB,0.90123E-05_JPRB /) |
134 |
|
|
KA(:,10, 3) = (/ & |
135 |
|
|
& 0.35363E-04_JPRB,0.36204E-04_JPRB,0.36916E-04_JPRB,0.37708E-04_JPRB,0.38294E-04_JPRB /) |
136 |
|
|
KA(:,11, 3) = (/ & |
137 |
|
|
& 0.48837E-04_JPRB,0.50952E-04_JPRB,0.52710E-04_JPRB,0.54347E-04_JPRB,0.55976E-04_JPRB /) |
138 |
|
|
KA(:,12, 3) = (/ & |
139 |
|
|
& 0.56059E-04_JPRB,0.58301E-04_JPRB,0.60100E-04_JPRB,0.61776E-04_JPRB,0.63179E-04_JPRB /) |
140 |
|
|
KA(:,13, 3) = (/ & |
141 |
|
|
& 0.57871E-04_JPRB,0.59505E-04_JPRB,0.60930E-04_JPRB,0.62289E-04_JPRB,0.63278E-04_JPRB /) |
142 |
|
|
KA(:, 1, 4) = (/ & |
143 |
|
|
& 0.27624E-04_JPRB,0.28017E-04_JPRB,0.29078E-04_JPRB,0.28567E-04_JPRB,0.28724E-04_JPRB /) |
144 |
|
|
KA(:, 2, 4) = (/ & |
145 |
|
|
& 0.23107E-04_JPRB,0.23464E-04_JPRB,0.24357E-04_JPRB,0.24519E-04_JPRB,0.24024E-04_JPRB /) |
146 |
|
|
KA(:, 3, 4) = (/ & |
147 |
|
|
& 0.19113E-04_JPRB,0.19400E-04_JPRB,0.19615E-04_JPRB,0.20420E-04_JPRB,0.19962E-04_JPRB /) |
148 |
|
|
KA(:, 4, 4) = (/ & |
149 |
|
|
& 0.15873E-04_JPRB,0.16138E-04_JPRB,0.16349E-04_JPRB,0.16528E-04_JPRB,0.17176E-04_JPRB /) |
150 |
|
|
KA(:, 5, 4) = (/ & |
151 |
|
|
& 0.13198E-04_JPRB,0.13437E-04_JPRB,0.13641E-04_JPRB,0.13810E-04_JPRB,0.14393E-04_JPRB /) |
152 |
|
|
KA(:, 6, 4) = (/ & |
153 |
|
|
& 0.10951E-04_JPRB,0.11172E-04_JPRB,0.11352E-04_JPRB,0.11506E-04_JPRB,0.11631E-04_JPRB /) |
154 |
|
|
KA(:, 7, 4) = (/ & |
155 |
|
|
& 0.86121E-05_JPRB,0.88300E-05_JPRB,0.90149E-05_JPRB,0.91565E-05_JPRB,0.92594E-05_JPRB /) |
156 |
|
|
KA(:, 8, 4) = (/ & |
157 |
|
|
& 0.71478E-05_JPRB,0.72918E-05_JPRB,0.74035E-05_JPRB,0.74959E-05_JPRB,0.75566E-05_JPRB /) |
158 |
|
|
KA(:, 9, 4) = (/ & |
159 |
|
|
& 0.16458E-04_JPRB,0.17092E-04_JPRB,0.17686E-04_JPRB,0.17967E-04_JPRB,0.18273E-04_JPRB /) |
160 |
|
|
KA(:,10, 4) = (/ & |
161 |
|
|
& 0.47953E-04_JPRB,0.49663E-04_JPRB,0.51524E-04_JPRB,0.52800E-04_JPRB,0.54192E-04_JPRB /) |
162 |
|
|
KA(:,11, 4) = (/ & |
163 |
|
|
& 0.94263E-04_JPRB,0.95557E-04_JPRB,0.96513E-04_JPRB,0.97430E-04_JPRB,0.97733E-04_JPRB /) |
164 |
|
|
KA(:,12, 4) = (/ & |
165 |
|
|
& 0.12087E-03_JPRB,0.12152E-03_JPRB,0.12240E-03_JPRB,0.12318E-03_JPRB,0.12403E-03_JPRB /) |
166 |
|
|
KA(:,13, 4) = (/ & |
167 |
|
|
& 0.12781E-03_JPRB,0.12897E-03_JPRB,0.13049E-03_JPRB,0.13171E-03_JPRB,0.13337E-03_JPRB /) |
168 |
|
|
KA(:, 1, 5) = (/ & |
169 |
|
|
& 0.82859E-04_JPRB,0.84817E-04_JPRB,0.89056E-04_JPRB,0.88057E-04_JPRB,0.89410E-04_JPRB /) |
170 |
|
|
KA(:, 2, 5) = (/ & |
171 |
|
|
& 0.70937E-04_JPRB,0.72685E-04_JPRB,0.76796E-04_JPRB,0.77955E-04_JPRB,0.76735E-04_JPRB /) |
172 |
|
|
KA(:, 3, 5) = (/ & |
173 |
|
|
& 0.59876E-04_JPRB,0.61448E-04_JPRB,0.62837E-04_JPRB,0.66293E-04_JPRB,0.64996E-04_JPRB /) |
174 |
|
|
KA(:, 4, 5) = (/ & |
175 |
|
|
& 0.50598E-04_JPRB,0.52054E-04_JPRB,0.53293E-04_JPRB,0.54332E-04_JPRB,0.57333E-04_JPRB /) |
176 |
|
|
KA(:, 5, 5) = (/ & |
177 |
|
|
& 0.42742E-04_JPRB,0.44035E-04_JPRB,0.45164E-04_JPRB,0.46134E-04_JPRB,0.48935E-04_JPRB /) |
178 |
|
|
KA(:, 6, 5) = (/ & |
179 |
|
|
& 0.35769E-04_JPRB,0.36975E-04_JPRB,0.38038E-04_JPRB,0.38917E-04_JPRB,0.39681E-04_JPRB /) |
180 |
|
|
KA(:, 7, 5) = (/ & |
181 |
|
|
& 0.29747E-04_JPRB,0.30824E-04_JPRB,0.31756E-04_JPRB,0.32589E-04_JPRB,0.33314E-04_JPRB /) |
182 |
|
|
KA(:, 8, 5) = (/ & |
183 |
|
|
& 0.21994E-04_JPRB,0.22945E-04_JPRB,0.23786E-04_JPRB,0.24517E-04_JPRB,0.25155E-04_JPRB /) |
184 |
|
|
KA(:, 9, 5) = (/ & |
185 |
|
|
& 0.22298E-04_JPRB,0.22688E-04_JPRB,0.23127E-04_JPRB,0.23803E-04_JPRB,0.24335E-04_JPRB /) |
186 |
|
|
KA(:,10, 5) = (/ & |
187 |
|
|
& 0.88898E-04_JPRB,0.91280E-04_JPRB,0.93333E-04_JPRB,0.95224E-04_JPRB,0.96298E-04_JPRB /) |
188 |
|
|
KA(:,11, 5) = (/ & |
189 |
|
|
& 0.12299E-03_JPRB,0.12407E-03_JPRB,0.12536E-03_JPRB,0.12642E-03_JPRB,0.12813E-03_JPRB /) |
190 |
|
|
KA(:,12, 5) = (/ & |
191 |
|
|
& 0.14539E-03_JPRB,0.14851E-03_JPRB,0.15022E-03_JPRB,0.15157E-03_JPRB,0.15204E-03_JPRB /) |
192 |
|
|
KA(:,13, 5) = (/ & |
193 |
|
|
& 0.15949E-03_JPRB,0.16239E-03_JPRB,0.16467E-03_JPRB,0.16667E-03_JPRB,0.16801E-03_JPRB /) |
194 |
|
|
KA(:, 1, 6) = (/ & |
195 |
|
|
& 0.25339E-03_JPRB,0.25995E-03_JPRB,0.27170E-03_JPRB,0.26963E-03_JPRB,0.27413E-03_JPRB /) |
196 |
|
|
KA(:, 2, 6) = (/ & |
197 |
|
|
& 0.21908E-03_JPRB,0.22404E-03_JPRB,0.23522E-03_JPRB,0.23902E-03_JPRB,0.23717E-03_JPRB /) |
198 |
|
|
KA(:, 3, 6) = (/ & |
199 |
|
|
& 0.18611E-03_JPRB,0.19076E-03_JPRB,0.19518E-03_JPRB,0.20503E-03_JPRB,0.20222E-03_JPRB /) |
200 |
|
|
KA(:, 4, 6) = (/ & |
201 |
|
|
& 0.15769E-03_JPRB,0.16210E-03_JPRB,0.16597E-03_JPRB,0.16948E-03_JPRB,0.17817E-03_JPRB /) |
202 |
|
|
KA(:, 5, 6) = (/ & |
203 |
|
|
& 0.13402E-03_JPRB,0.13792E-03_JPRB,0.14153E-03_JPRB,0.14434E-03_JPRB,0.15267E-03_JPRB /) |
204 |
|
|
KA(:, 6, 6) = (/ & |
205 |
|
|
& 0.11390E-03_JPRB,0.11743E-03_JPRB,0.12065E-03_JPRB,0.12316E-03_JPRB,0.12543E-03_JPRB /) |
206 |
|
|
KA(:, 7, 6) = (/ & |
207 |
|
|
& 0.96417E-04_JPRB,0.99612E-04_JPRB,0.10233E-03_JPRB,0.10453E-03_JPRB,0.10652E-03_JPRB /) |
208 |
|
|
KA(:, 8, 6) = (/ & |
209 |
|
|
& 0.81395E-04_JPRB,0.84205E-04_JPRB,0.86346E-04_JPRB,0.88406E-04_JPRB,0.90122E-04_JPRB /) |
210 |
|
|
KA(:, 9, 6) = (/ & |
211 |
|
|
& 0.47776E-04_JPRB,0.48971E-04_JPRB,0.49736E-04_JPRB,0.49917E-04_JPRB,0.50289E-04_JPRB /) |
212 |
|
|
KA(:,10, 6) = (/ & |
213 |
|
|
& 0.10698E-03_JPRB,0.10815E-03_JPRB,0.10817E-03_JPRB,0.10799E-03_JPRB,0.10851E-03_JPRB /) |
214 |
|
|
KA(:,11, 6) = (/ & |
215 |
|
|
& 0.20220E-03_JPRB,0.20727E-03_JPRB,0.21241E-03_JPRB,0.21675E-03_JPRB,0.21989E-03_JPRB /) |
216 |
|
|
KA(:,12, 6) = (/ & |
217 |
|
|
& 0.23474E-03_JPRB,0.23601E-03_JPRB,0.23974E-03_JPRB,0.24383E-03_JPRB,0.24876E-03_JPRB /) |
218 |
|
|
KA(:,13, 6) = (/ & |
219 |
|
|
& 0.23410E-03_JPRB,0.23809E-03_JPRB,0.24185E-03_JPRB,0.24554E-03_JPRB,0.24952E-03_JPRB /) |
220 |
|
|
KA(:, 1, 7) = (/ & |
221 |
|
|
& 0.67024E-03_JPRB,0.68026E-03_JPRB,0.70419E-03_JPRB,0.70159E-03_JPRB,0.71089E-03_JPRB /) |
222 |
|
|
KA(:, 2, 7) = (/ & |
223 |
|
|
& 0.58729E-03_JPRB,0.59778E-03_JPRB,0.62097E-03_JPRB,0.62912E-03_JPRB,0.62423E-03_JPRB /) |
224 |
|
|
KA(:, 3, 7) = (/ & |
225 |
|
|
& 0.50967E-03_JPRB,0.51900E-03_JPRB,0.52765E-03_JPRB,0.54794E-03_JPRB,0.54266E-03_JPRB /) |
226 |
|
|
KA(:, 4, 7) = (/ & |
227 |
|
|
& 0.44167E-03_JPRB,0.45006E-03_JPRB,0.45793E-03_JPRB,0.46469E-03_JPRB,0.48335E-03_JPRB /) |
228 |
|
|
KA(:, 5, 7) = (/ & |
229 |
|
|
& 0.38096E-03_JPRB,0.38881E-03_JPRB,0.39576E-03_JPRB,0.40259E-03_JPRB,0.42086E-03_JPRB /) |
230 |
|
|
KA(:, 6, 7) = (/ & |
231 |
|
|
& 0.32818E-03_JPRB,0.33539E-03_JPRB,0.34192E-03_JPRB,0.34829E-03_JPRB,0.35405E-03_JPRB /) |
232 |
|
|
KA(:, 7, 7) = (/ & |
233 |
|
|
& 0.28259E-03_JPRB,0.28946E-03_JPRB,0.29584E-03_JPRB,0.30203E-03_JPRB,0.30742E-03_JPRB /) |
234 |
|
|
KA(:, 8, 7) = (/ & |
235 |
|
|
& 0.24273E-03_JPRB,0.24912E-03_JPRB,0.25546E-03_JPRB,0.26110E-03_JPRB,0.26607E-03_JPRB /) |
236 |
|
|
KA(:, 9, 7) = (/ & |
237 |
|
|
& 0.19937E-03_JPRB,0.20653E-03_JPRB,0.21314E-03_JPRB,0.21968E-03_JPRB,0.22520E-03_JPRB /) |
238 |
|
|
KA(:,10, 7) = (/ & |
239 |
|
|
& 0.13306E-03_JPRB,0.13331E-03_JPRB,0.13393E-03_JPRB,0.13538E-03_JPRB,0.13616E-03_JPRB /) |
240 |
|
|
KA(:,11, 7) = (/ & |
241 |
|
|
& 0.16236E-03_JPRB,0.16154E-03_JPRB,0.16187E-03_JPRB,0.16113E-03_JPRB,0.16209E-03_JPRB /) |
242 |
|
|
KA(:,12, 7) = (/ & |
243 |
|
|
& 0.17872E-03_JPRB,0.18355E-03_JPRB,0.18612E-03_JPRB,0.18792E-03_JPRB,0.18745E-03_JPRB /) |
244 |
|
|
KA(:,13, 7) = (/ & |
245 |
|
|
& 0.18970E-03_JPRB,0.19384E-03_JPRB,0.19773E-03_JPRB,0.20261E-03_JPRB,0.20377E-03_JPRB /) |
246 |
|
|
KA(:, 1, 8) = (/ & |
247 |
|
|
& 0.18130E-02_JPRB,0.18305E-02_JPRB,0.18716E-02_JPRB,0.18655E-02_JPRB,0.18814E-02_JPRB /) |
248 |
|
|
KA(:, 2, 8) = (/ & |
249 |
|
|
& 0.16420E-02_JPRB,0.16600E-02_JPRB,0.17006E-02_JPRB,0.17156E-02_JPRB,0.17108E-02_JPRB /) |
250 |
|
|
KA(:, 3, 8) = (/ & |
251 |
|
|
& 0.14687E-02_JPRB,0.14870E-02_JPRB,0.15042E-02_JPRB,0.15423E-02_JPRB,0.15376E-02_JPRB /) |
252 |
|
|
KA(:, 4, 8) = (/ & |
253 |
|
|
& 0.13068E-02_JPRB,0.13248E-02_JPRB,0.13421E-02_JPRB,0.13592E-02_JPRB,0.13960E-02_JPRB /) |
254 |
|
|
KA(:, 5, 8) = (/ & |
255 |
|
|
& 0.11574E-02_JPRB,0.11753E-02_JPRB,0.11928E-02_JPRB,0.12097E-02_JPRB,0.12467E-02_JPRB /) |
256 |
|
|
KA(:, 6, 8) = (/ & |
257 |
|
|
& 0.10167E-02_JPRB,0.10342E-02_JPRB,0.10515E-02_JPRB,0.10681E-02_JPRB,0.10840E-02_JPRB /) |
258 |
|
|
KA(:, 7, 8) = (/ & |
259 |
|
|
& 0.88992E-03_JPRB,0.90662E-03_JPRB,0.92299E-03_JPRB,0.93844E-03_JPRB,0.95347E-03_JPRB /) |
260 |
|
|
KA(:, 8, 8) = (/ & |
261 |
|
|
& 0.78445E-03_JPRB,0.80031E-03_JPRB,0.81639E-03_JPRB,0.83131E-03_JPRB,0.84631E-03_JPRB /) |
262 |
|
|
KA(:, 9, 8) = (/ & |
263 |
|
|
& 0.69812E-03_JPRB,0.71312E-03_JPRB,0.72801E-03_JPRB,0.74222E-03_JPRB,0.75605E-03_JPRB /) |
264 |
|
|
KA(:,10, 8) = (/ & |
265 |
|
|
& 0.32521E-03_JPRB,0.33835E-03_JPRB,0.35194E-03_JPRB,0.36381E-03_JPRB,0.37594E-03_JPRB /) |
266 |
|
|
KA(:,11, 8) = (/ & |
267 |
|
|
& 0.31406E-03_JPRB,0.32013E-03_JPRB,0.32456E-03_JPRB,0.33261E-03_JPRB,0.33741E-03_JPRB /) |
268 |
|
|
KA(:,12, 8) = (/ & |
269 |
|
|
& 0.28132E-03_JPRB,0.28732E-03_JPRB,0.29674E-03_JPRB,0.30509E-03_JPRB,0.31393E-03_JPRB /) |
270 |
|
|
KA(:,13, 8) = (/ & |
271 |
|
|
& 0.25704E-03_JPRB,0.26316E-03_JPRB,0.27195E-03_JPRB,0.27732E-03_JPRB,0.28905E-03_JPRB /) |
272 |
|
|
KA(:, 1, 9) = (/ & |
273 |
|
|
& 0.67370E-02_JPRB,0.67873E-02_JPRB,0.68896E-02_JPRB,0.68819E-02_JPRB,0.69268E-02_JPRB /) |
274 |
|
|
KA(:, 2, 9) = (/ & |
275 |
|
|
& 0.63111E-02_JPRB,0.63622E-02_JPRB,0.64623E-02_JPRB,0.65060E-02_JPRB,0.65027E-02_JPRB /) |
276 |
|
|
KA(:, 3, 9) = (/ & |
277 |
|
|
& 0.58834E-02_JPRB,0.59361E-02_JPRB,0.59858E-02_JPRB,0.60811E-02_JPRB,0.60806E-02_JPRB /) |
278 |
|
|
KA(:, 4, 9) = (/ & |
279 |
|
|
& 0.54753E-02_JPRB,0.55309E-02_JPRB,0.55823E-02_JPRB,0.56306E-02_JPRB,0.57229E-02_JPRB /) |
280 |
|
|
KA(:, 5, 9) = (/ & |
281 |
|
|
& 0.50781E-02_JPRB,0.51373E-02_JPRB,0.51895E-02_JPRB,0.52391E-02_JPRB,0.53328E-02_JPRB /) |
282 |
|
|
KA(:, 6, 9) = (/ & |
283 |
|
|
& 0.46791E-02_JPRB,0.47408E-02_JPRB,0.47949E-02_JPRB,0.48470E-02_JPRB,0.48993E-02_JPRB /) |
284 |
|
|
KA(:, 7, 9) = (/ & |
285 |
|
|
& 0.42724E-02_JPRB,0.43381E-02_JPRB,0.43951E-02_JPRB,0.44503E-02_JPRB,0.45061E-02_JPRB /) |
286 |
|
|
KA(:, 8, 9) = (/ & |
287 |
|
|
& 0.38568E-02_JPRB,0.39254E-02_JPRB,0.39848E-02_JPRB,0.40431E-02_JPRB,0.41005E-02_JPRB /) |
288 |
|
|
KA(:, 9, 9) = (/ & |
289 |
|
|
& 0.35657E-02_JPRB,0.36362E-02_JPRB,0.36994E-02_JPRB,0.37608E-02_JPRB,0.38215E-02_JPRB /) |
290 |
|
|
KA(:,10, 9) = (/ & |
291 |
|
|
& 0.33774E-02_JPRB,0.34501E-02_JPRB,0.35171E-02_JPRB,0.35811E-02_JPRB,0.36450E-02_JPRB /) |
292 |
|
|
KA(:,11, 9) = (/ & |
293 |
|
|
& 0.23923E-02_JPRB,0.24623E-02_JPRB,0.25263E-02_JPRB,0.25890E-02_JPRB,0.26517E-02_JPRB /) |
294 |
|
|
KA(:,12, 9) = (/ & |
295 |
|
|
& 0.16959E-02_JPRB,0.17542E-02_JPRB,0.18077E-02_JPRB,0.18614E-02_JPRB,0.19187E-02_JPRB /) |
296 |
|
|
KA(:,13, 9) = (/ & |
297 |
|
|
& 0.11732E-02_JPRB,0.12232E-02_JPRB,0.12712E-02_JPRB,0.13221E-02_JPRB,0.13677E-02_JPRB /) |
298 |
|
|
KA(:, 1,10) = (/ & |
299 |
|
|
& 0.19604E-01_JPRB,0.19698E-01_JPRB,0.19938E-01_JPRB,0.19854E-01_JPRB,0.19950E-01_JPRB /) |
300 |
|
|
KA(:, 2,10) = (/ & |
301 |
|
|
& 0.18714E-01_JPRB,0.18803E-01_JPRB,0.19035E-01_JPRB,0.19131E-01_JPRB,0.19102E-01_JPRB /) |
302 |
|
|
KA(:, 3,10) = (/ & |
303 |
|
|
& 0.17676E-01_JPRB,0.17785E-01_JPRB,0.17904E-01_JPRB,0.18189E-01_JPRB,0.18156E-01_JPRB /) |
304 |
|
|
KA(:, 4,10) = (/ & |
305 |
|
|
& 0.16662E-01_JPRB,0.16773E-01_JPRB,0.16908E-01_JPRB,0.17056E-01_JPRB,0.17303E-01_JPRB /) |
306 |
|
|
KA(:, 5,10) = (/ & |
307 |
|
|
& 0.15655E-01_JPRB,0.15775E-01_JPRB,0.15942E-01_JPRB,0.16103E-01_JPRB,0.16359E-01_JPRB /) |
308 |
|
|
KA(:, 6,10) = (/ & |
309 |
|
|
& 0.14694E-01_JPRB,0.14838E-01_JPRB,0.15029E-01_JPRB,0.15200E-01_JPRB,0.15320E-01_JPRB /) |
310 |
|
|
KA(:, 7,10) = (/ & |
311 |
|
|
& 0.13797E-01_JPRB,0.13959E-01_JPRB,0.14174E-01_JPRB,0.14350E-01_JPRB,0.14471E-01_JPRB /) |
312 |
|
|
KA(:, 8,10) = (/ & |
313 |
|
|
& 0.12902E-01_JPRB,0.13089E-01_JPRB,0.13313E-01_JPRB,0.13489E-01_JPRB,0.13626E-01_JPRB /) |
314 |
|
|
KA(:, 9,10) = (/ & |
315 |
|
|
& 0.11897E-01_JPRB,0.12105E-01_JPRB,0.12333E-01_JPRB,0.12512E-01_JPRB,0.12656E-01_JPRB /) |
316 |
|
|
KA(:,10,10) = (/ & |
317 |
|
|
& 0.11834E-01_JPRB,0.12072E-01_JPRB,0.12331E-01_JPRB,0.12548E-01_JPRB,0.12721E-01_JPRB /) |
318 |
|
|
KA(:,11,10) = (/ & |
319 |
|
|
& 0.11416E-01_JPRB,0.11699E-01_JPRB,0.11968E-01_JPRB,0.12141E-01_JPRB,0.12311E-01_JPRB /) |
320 |
|
|
KA(:,12,10) = (/ & |
321 |
|
|
& 0.10776E-01_JPRB,0.11070E-01_JPRB,0.11309E-01_JPRB,0.11507E-01_JPRB,0.11702E-01_JPRB /) |
322 |
|
|
KA(:,13,10) = (/ & |
323 |
|
|
& 0.99577E-02_JPRB,0.10263E-01_JPRB,0.10492E-01_JPRB,0.10719E-01_JPRB,0.10951E-01_JPRB /) |
324 |
|
|
KA(:, 1,11) = (/ & |
325 |
|
|
& 0.29783E-01_JPRB,0.29883E-01_JPRB,0.30210E-01_JPRB,0.30141E-01_JPRB,0.30248E-01_JPRB /) |
326 |
|
|
KA(:, 2,11) = (/ & |
327 |
|
|
& 0.28562E-01_JPRB,0.28743E-01_JPRB,0.29186E-01_JPRB,0.29339E-01_JPRB,0.29258E-01_JPRB /) |
328 |
|
|
KA(:, 3,11) = (/ & |
329 |
|
|
& 0.27212E-01_JPRB,0.27429E-01_JPRB,0.27654E-01_JPRB,0.28083E-01_JPRB,0.28023E-01_JPRB /) |
330 |
|
|
KA(:, 4,11) = (/ & |
331 |
|
|
& 0.25949E-01_JPRB,0.26197E-01_JPRB,0.26424E-01_JPRB,0.26623E-01_JPRB,0.27069E-01_JPRB /) |
332 |
|
|
KA(:, 5,11) = (/ & |
333 |
|
|
& 0.24686E-01_JPRB,0.24942E-01_JPRB,0.25176E-01_JPRB,0.25403E-01_JPRB,0.25908E-01_JPRB /) |
334 |
|
|
KA(:, 6,11) = (/ & |
335 |
|
|
& 0.23430E-01_JPRB,0.23686E-01_JPRB,0.23923E-01_JPRB,0.24158E-01_JPRB,0.24433E-01_JPRB /) |
336 |
|
|
KA(:, 7,11) = (/ & |
337 |
|
|
& 0.22171E-01_JPRB,0.22424E-01_JPRB,0.22653E-01_JPRB,0.22909E-01_JPRB,0.23203E-01_JPRB /) |
338 |
|
|
KA(:, 8,11) = (/ & |
339 |
|
|
& 0.20928E-01_JPRB,0.21171E-01_JPRB,0.21407E-01_JPRB,0.21699E-01_JPRB,0.22018E-01_JPRB /) |
340 |
|
|
KA(:, 9,11) = (/ & |
341 |
|
|
& 0.19076E-01_JPRB,0.19320E-01_JPRB,0.19548E-01_JPRB,0.19858E-01_JPRB,0.20150E-01_JPRB /) |
342 |
|
|
KA(:,10,11) = (/ & |
343 |
|
|
& 0.19537E-01_JPRB,0.19788E-01_JPRB,0.20064E-01_JPRB,0.20391E-01_JPRB,0.20843E-01_JPRB /) |
344 |
|
|
KA(:,11,11) = (/ & |
345 |
|
|
& 0.19137E-01_JPRB,0.19444E-01_JPRB,0.19793E-01_JPRB,0.20268E-01_JPRB,0.20695E-01_JPRB /) |
346 |
|
|
KA(:,12,11) = (/ & |
347 |
|
|
& 0.18393E-01_JPRB,0.18715E-01_JPRB,0.19143E-01_JPRB,0.19652E-01_JPRB,0.20037E-01_JPRB /) |
348 |
|
|
KA(:,13,11) = (/ & |
349 |
|
|
& 0.17255E-01_JPRB,0.17680E-01_JPRB,0.18170E-01_JPRB,0.18641E-01_JPRB,0.19010E-01_JPRB /) |
350 |
|
|
KA(:, 1,12) = (/ & |
351 |
|
|
& 0.46641E-01_JPRB,0.46796E-01_JPRB,0.47107E-01_JPRB,0.46977E-01_JPRB,0.47093E-01_JPRB /) |
352 |
|
|
KA(:, 2,12) = (/ & |
353 |
|
|
& 0.46819E-01_JPRB,0.46956E-01_JPRB,0.47337E-01_JPRB,0.47426E-01_JPRB,0.47339E-01_JPRB /) |
354 |
|
|
KA(:, 3,12) = (/ & |
355 |
|
|
& 0.46276E-01_JPRB,0.46366E-01_JPRB,0.46462E-01_JPRB,0.46935E-01_JPRB,0.46862E-01_JPRB /) |
356 |
|
|
KA(:, 4,12) = (/ & |
357 |
|
|
& 0.44986E-01_JPRB,0.45103E-01_JPRB,0.45287E-01_JPRB,0.45535E-01_JPRB,0.46152E-01_JPRB /) |
358 |
|
|
KA(:, 5,12) = (/ & |
359 |
|
|
& 0.43367E-01_JPRB,0.43552E-01_JPRB,0.43761E-01_JPRB,0.44035E-01_JPRB,0.44674E-01_JPRB /) |
360 |
|
|
KA(:, 6,12) = (/ & |
361 |
|
|
& 0.41584E-01_JPRB,0.41793E-01_JPRB,0.42020E-01_JPRB,0.42344E-01_JPRB,0.42701E-01_JPRB /) |
362 |
|
|
KA(:, 7,12) = (/ & |
363 |
|
|
& 0.39785E-01_JPRB,0.40007E-01_JPRB,0.40269E-01_JPRB,0.40635E-01_JPRB,0.41003E-01_JPRB /) |
364 |
|
|
KA(:, 8,12) = (/ & |
365 |
|
|
& 0.37918E-01_JPRB,0.38155E-01_JPRB,0.38468E-01_JPRB,0.38839E-01_JPRB,0.39210E-01_JPRB /) |
366 |
|
|
KA(:, 9,12) = (/ & |
367 |
|
|
& 0.35060E-01_JPRB,0.35328E-01_JPRB,0.35698E-01_JPRB,0.36105E-01_JPRB,0.36551E-01_JPRB /) |
368 |
|
|
KA(:,10,12) = (/ & |
369 |
|
|
& 0.35216E-01_JPRB,0.35547E-01_JPRB,0.35872E-01_JPRB,0.36327E-01_JPRB,0.36542E-01_JPRB /) |
370 |
|
|
KA(:,11,12) = (/ & |
371 |
|
|
& 0.35158E-01_JPRB,0.35374E-01_JPRB,0.35869E-01_JPRB,0.36242E-01_JPRB,0.36691E-01_JPRB /) |
372 |
|
|
KA(:,12,12) = (/ & |
373 |
|
|
& 0.34264E-01_JPRB,0.34598E-01_JPRB,0.35106E-01_JPRB,0.35505E-01_JPRB,0.36021E-01_JPRB /) |
374 |
|
|
KA(:,13,12) = (/ & |
375 |
|
|
& 0.32716E-01_JPRB,0.33195E-01_JPRB,0.33830E-01_JPRB,0.34228E-01_JPRB,0.34925E-01_JPRB /) |
376 |
|
|
KA(:, 1,13) = (/ & |
377 |
|
|
& 0.76084E-01_JPRB,0.76052E-01_JPRB,0.76051E-01_JPRB,0.75851E-01_JPRB,0.75753E-01_JPRB /) |
378 |
|
|
KA(:, 2,13) = (/ & |
379 |
|
|
& 0.79580E-01_JPRB,0.79564E-01_JPRB,0.79664E-01_JPRB,0.79619E-01_JPRB,0.79414E-01_JPRB /) |
380 |
|
|
KA(:, 3,13) = (/ & |
381 |
|
|
& 0.82218E-01_JPRB,0.82302E-01_JPRB,0.82367E-01_JPRB,0.82543E-01_JPRB,0.82246E-01_JPRB /) |
382 |
|
|
KA(:, 4,13) = (/ & |
383 |
|
|
& 0.83613E-01_JPRB,0.83740E-01_JPRB,0.83824E-01_JPRB,0.83866E-01_JPRB,0.84103E-01_JPRB /) |
384 |
|
|
KA(:, 5,13) = (/ & |
385 |
|
|
& 0.83913E-01_JPRB,0.84123E-01_JPRB,0.84289E-01_JPRB,0.84403E-01_JPRB,0.84840E-01_JPRB /) |
386 |
|
|
KA(:, 6,13) = (/ & |
387 |
|
|
& 0.83159E-01_JPRB,0.83442E-01_JPRB,0.83718E-01_JPRB,0.83891E-01_JPRB,0.83993E-01_JPRB /) |
388 |
|
|
KA(:, 7,13) = (/ & |
389 |
|
|
& 0.81401E-01_JPRB,0.81826E-01_JPRB,0.82202E-01_JPRB,0.82451E-01_JPRB,0.82656E-01_JPRB /) |
390 |
|
|
KA(:, 8,13) = (/ & |
391 |
|
|
& 0.78949E-01_JPRB,0.79505E-01_JPRB,0.79978E-01_JPRB,0.80351E-01_JPRB,0.80690E-01_JPRB /) |
392 |
|
|
KA(:, 9,13) = (/ & |
393 |
|
|
& 0.76002E-01_JPRB,0.76671E-01_JPRB,0.77279E-01_JPRB,0.77752E-01_JPRB,0.78257E-01_JPRB /) |
394 |
|
|
KA(:,10,13) = (/ & |
395 |
|
|
& 0.69777E-01_JPRB,0.70425E-01_JPRB,0.71054E-01_JPRB,0.71706E-01_JPRB,0.72167E-01_JPRB /) |
396 |
|
|
KA(:,11,13) = (/ & |
397 |
|
|
& 0.72929E-01_JPRB,0.73732E-01_JPRB,0.74323E-01_JPRB,0.75246E-01_JPRB,0.75786E-01_JPRB /) |
398 |
|
|
KA(:,12,13) = (/ & |
399 |
|
|
& 0.73007E-01_JPRB,0.74429E-01_JPRB,0.74922E-01_JPRB,0.75916E-01_JPRB,0.76947E-01_JPRB /) |
400 |
|
|
KA(:,13,13) = (/ & |
401 |
|
|
& 0.71376E-01_JPRB,0.72507E-01_JPRB,0.73710E-01_JPRB,0.74716E-01_JPRB,0.75702E-01_JPRB /) |
402 |
|
|
KA(:, 1,14) = (/ & |
403 |
|
|
& 0.12585E+00_JPRB,0.12569E+00_JPRB,0.12576E+00_JPRB,0.12571E+00_JPRB,0.12570E+00_JPRB /) |
404 |
|
|
KA(:, 2,14) = (/ & |
405 |
|
|
& 0.13868E+00_JPRB,0.13853E+00_JPRB,0.13849E+00_JPRB,0.13824E+00_JPRB,0.13803E+00_JPRB /) |
406 |
|
|
KA(:, 3,14) = (/ & |
407 |
|
|
& 0.15142E+00_JPRB,0.15135E+00_JPRB,0.15112E+00_JPRB,0.15093E+00_JPRB,0.15074E+00_JPRB /) |
408 |
|
|
KA(:, 4,14) = (/ & |
409 |
|
|
& 0.16359E+00_JPRB,0.16359E+00_JPRB,0.16339E+00_JPRB,0.16311E+00_JPRB,0.16285E+00_JPRB /) |
410 |
|
|
KA(:, 5,14) = (/ & |
411 |
|
|
& 0.17462E+00_JPRB,0.17472E+00_JPRB,0.17456E+00_JPRB,0.17421E+00_JPRB,0.17393E+00_JPRB /) |
412 |
|
|
KA(:, 6,14) = (/ & |
413 |
|
|
& 0.18403E+00_JPRB,0.18447E+00_JPRB,0.18450E+00_JPRB,0.18424E+00_JPRB,0.18395E+00_JPRB /) |
414 |
|
|
KA(:, 7,14) = (/ & |
415 |
|
|
& 0.19179E+00_JPRB,0.19239E+00_JPRB,0.19256E+00_JPRB,0.19253E+00_JPRB,0.19252E+00_JPRB /) |
416 |
|
|
KA(:, 8,14) = (/ & |
417 |
|
|
& 0.19772E+00_JPRB,0.19863E+00_JPRB,0.19901E+00_JPRB,0.19923E+00_JPRB,0.19947E+00_JPRB /) |
418 |
|
|
KA(:, 9,14) = (/ & |
419 |
|
|
& 0.20154E+00_JPRB,0.20279E+00_JPRB,0.20355E+00_JPRB,0.20417E+00_JPRB,0.20473E+00_JPRB /) |
420 |
|
|
KA(:,10,14) = (/ & |
421 |
|
|
& 0.18853E+00_JPRB,0.19028E+00_JPRB,0.19160E+00_JPRB,0.19253E+00_JPRB,0.19393E+00_JPRB /) |
422 |
|
|
KA(:,11,14) = (/ & |
423 |
|
|
& 0.18013E+00_JPRB,0.18167E+00_JPRB,0.18320E+00_JPRB,0.18375E+00_JPRB,0.18507E+00_JPRB /) |
424 |
|
|
KA(:,12,14) = (/ & |
425 |
|
|
& 0.19011E+00_JPRB,0.19027E+00_JPRB,0.19283E+00_JPRB,0.19402E+00_JPRB,0.19478E+00_JPRB /) |
426 |
|
|
KA(:,13,14) = (/ & |
427 |
|
|
& 0.19594E+00_JPRB,0.19738E+00_JPRB,0.19911E+00_JPRB,0.20124E+00_JPRB,0.20282E+00_JPRB /) |
428 |
|
|
KA(:, 1,15) = (/ & |
429 |
|
|
& 0.22369E+00_JPRB,0.22259E+00_JPRB,0.22155E+00_JPRB,0.22059E+00_JPRB,0.21997E+00_JPRB /) |
430 |
|
|
KA(:, 2,15) = (/ & |
431 |
|
|
& 0.25602E+00_JPRB,0.25478E+00_JPRB,0.25377E+00_JPRB,0.25306E+00_JPRB,0.25237E+00_JPRB /) |
432 |
|
|
KA(:, 3,15) = (/ & |
433 |
|
|
& 0.29258E+00_JPRB,0.29107E+00_JPRB,0.28998E+00_JPRB,0.28920E+00_JPRB,0.28830E+00_JPRB /) |
434 |
|
|
KA(:, 4,15) = (/ & |
435 |
|
|
& 0.33067E+00_JPRB,0.32888E+00_JPRB,0.32753E+00_JPRB,0.32646E+00_JPRB,0.32566E+00_JPRB /) |
436 |
|
|
KA(:, 5,15) = (/ & |
437 |
|
|
& 0.37114E+00_JPRB,0.36880E+00_JPRB,0.36713E+00_JPRB,0.36598E+00_JPRB,0.36499E+00_JPRB /) |
438 |
|
|
KA(:, 6,15) = (/ & |
439 |
|
|
& 0.41494E+00_JPRB,0.41167E+00_JPRB,0.40935E+00_JPRB,0.40779E+00_JPRB,0.40636E+00_JPRB /) |
440 |
|
|
KA(:, 7,15) = (/ & |
441 |
|
|
& 0.46115E+00_JPRB,0.45729E+00_JPRB,0.45455E+00_JPRB,0.45230E+00_JPRB,0.45004E+00_JPRB /) |
442 |
|
|
KA(:, 8,15) = (/ & |
443 |
|
|
& 0.50906E+00_JPRB,0.50463E+00_JPRB,0.50137E+00_JPRB,0.49843E+00_JPRB,0.49550E+00_JPRB /) |
444 |
|
|
KA(:, 9,15) = (/ & |
445 |
|
|
& 0.55829E+00_JPRB,0.55330E+00_JPRB,0.54936E+00_JPRB,0.54557E+00_JPRB,0.54168E+00_JPRB /) |
446 |
|
|
KA(:,10,15) = (/ & |
447 |
|
|
& 0.60814E+00_JPRB,0.60274E+00_JPRB,0.59806E+00_JPRB,0.59326E+00_JPRB,0.58833E+00_JPRB /) |
448 |
|
|
KA(:,11,15) = (/ & |
449 |
|
|
& 0.62954E+00_JPRB,0.62588E+00_JPRB,0.62076E+00_JPRB,0.61665E+00_JPRB,0.61184E+00_JPRB /) |
450 |
|
|
KA(:,12,15) = (/ & |
451 |
|
|
& 0.62585E+00_JPRB,0.62437E+00_JPRB,0.61807E+00_JPRB,0.61303E+00_JPRB,0.60869E+00_JPRB /) |
452 |
|
|
KA(:,13,15) = (/ & |
453 |
|
|
& 0.64856E+00_JPRB,0.64505E+00_JPRB,0.63861E+00_JPRB,0.63277E+00_JPRB,0.62702E+00_JPRB /) |
454 |
|
|
KA(:, 1,16) = (/ & |
455 |
|
|
& 0.33327E+00_JPRB,0.33385E+00_JPRB,0.33538E+00_JPRB,0.33638E+00_JPRB,0.33736E+00_JPRB /) |
456 |
|
|
KA(:, 2,16) = (/ & |
457 |
|
|
& 0.40916E+00_JPRB,0.40842E+00_JPRB,0.40848E+00_JPRB,0.40865E+00_JPRB,0.40854E+00_JPRB /) |
458 |
|
|
KA(:, 3,16) = (/ & |
459 |
|
|
& 0.50099E+00_JPRB,0.49888E+00_JPRB,0.49727E+00_JPRB,0.49588E+00_JPRB,0.49422E+00_JPRB /) |
460 |
|
|
KA(:, 4,16) = (/ & |
461 |
|
|
& 0.60389E+00_JPRB,0.60029E+00_JPRB,0.59704E+00_JPRB,0.59367E+00_JPRB,0.59071E+00_JPRB /) |
462 |
|
|
KA(:, 5,16) = (/ & |
463 |
|
|
& 0.71868E+00_JPRB,0.71337E+00_JPRB,0.70835E+00_JPRB,0.70318E+00_JPRB,0.69852E+00_JPRB /) |
464 |
|
|
KA(:, 6,16) = (/ & |
465 |
|
|
& 0.84815E+00_JPRB,0.84138E+00_JPRB,0.83446E+00_JPRB,0.82728E+00_JPRB,0.82023E+00_JPRB /) |
466 |
|
|
KA(:, 7,16) = (/ & |
467 |
|
|
& 0.99512E+00_JPRB,0.98644E+00_JPRB,0.97698E+00_JPRB,0.96695E+00_JPRB,0.95712E+00_JPRB /) |
468 |
|
|
KA(:, 8,16) = (/ & |
469 |
|
|
& 0.11606E+01_JPRB,0.11485E+01_JPRB,0.11354E+01_JPRB,0.11218E+01_JPRB,0.11077E+01_JPRB /) |
470 |
|
|
KA(:, 9,16) = (/ & |
471 |
|
|
& 0.13444E+01_JPRB,0.13282E+01_JPRB,0.13102E+01_JPRB,0.12917E+01_JPRB,0.12735E+01_JPRB /) |
472 |
|
|
KA(:,10,16) = (/ & |
473 |
|
|
& 0.15423E+01_JPRB,0.15207E+01_JPRB,0.14970E+01_JPRB,0.14733E+01_JPRB,0.14494E+01_JPRB /) |
474 |
|
|
KA(:,11,16) = (/ & |
475 |
|
|
& 0.17462E+01_JPRB,0.17138E+01_JPRB,0.16827E+01_JPRB,0.16518E+01_JPRB,0.16199E+01_JPRB /) |
476 |
|
|
KA(:,12,16) = (/ & |
477 |
|
|
& 0.19577E+01_JPRB,0.19145E+01_JPRB,0.18728E+01_JPRB,0.18320E+01_JPRB,0.17910E+01_JPRB /) |
478 |
|
|
KA(:,13,16) = (/ & |
479 |
|
|
& 0.21716E+01_JPRB,0.21171E+01_JPRB,0.20639E+01_JPRB,0.20113E+01_JPRB,0.19587E+01_JPRB /) |
480 |
|
|
|
481 |
|
|
! ----------------------------------------------------------------- |
482 |
|
|
|
483 |
|
|
FORREF(:, 1) = (/ 0.315770E-07_JPRB, 0.671978E-07_JPRB, 0.440649E-06_JPRB /) |
484 |
|
|
FORREF(:, 2) = (/ 0.313674E-06_JPRB, 0.285252E-06_JPRB, 0.421024E-05_JPRB /) |
485 |
|
|
FORREF(:, 3) = (/ 0.135818E-05_JPRB, 0.145071E-05_JPRB, 0.611285E-05_JPRB /) |
486 |
|
|
FORREF(:, 4) = (/ 0.534065E-05_JPRB, 0.586268E-05_JPRB, 0.933970E-05_JPRB /) |
487 |
|
|
FORREF(:, 5) = (/ 0.964007E-05_JPRB, 0.107110E-04_JPRB, 0.104486E-04_JPRB /) |
488 |
|
|
FORREF(:, 6) = (/ 0.302775E-04_JPRB, 0.357530E-04_JPRB, 0.340724E-04_JPRB /) |
489 |
|
|
FORREF(:, 7) = (/ 0.102437E-03_JPRB, 0.108475E-03_JPRB, 0.105245E-03_JPRB /) |
490 |
|
|
FORREF(:, 8) = (/ 0.146054E-03_JPRB, 0.141490E-03_JPRB, 0.133071E-03_JPRB /) |
491 |
|
|
FORREF(:, 9) = (/ 0.163978E-03_JPRB, 0.150208E-03_JPRB, 0.142864E-03_JPRB /) |
492 |
|
|
FORREF(:,10) = (/ 0.220412E-03_JPRB, 0.182943E-03_JPRB, 0.150941E-03_JPRB /) |
493 |
|
|
FORREF(:,11) = (/ 0.228877E-03_JPRB, 0.197679E-03_JPRB, 0.163220E-03_JPRB /) |
494 |
|
|
FORREF(:,12) = (/ 0.234177E-03_JPRB, 0.217734E-03_JPRB, 0.185038E-03_JPRB /) |
495 |
|
|
FORREF(:,13) = (/ 0.257187E-03_JPRB, 0.241570E-03_JPRB, 0.221178E-03_JPRB /) |
496 |
|
|
FORREF(:,14) = (/ 0.272455E-03_JPRB, 0.270637E-03_JPRB, 0.256269E-03_JPRB /) |
497 |
|
|
FORREF(:,15) = (/ 0.339445E-03_JPRB, 0.300268E-03_JPRB, 0.286574E-03_JPRB /) |
498 |
|
|
FORREF(:,16) = (/ 0.338841E-03_JPRB, 0.355428E-03_JPRB, 0.353794E-03_JPRB /) |
499 |
|
|
|
500 |
|
|
! ----------------------------------------------------------------- |
501 |
|
|
! The array SELFREF contains the coefficient of the water vapor |
502 |
|
|
! self-continuum (including the energy term). The first index |
503 |
|
|
! refers to temperature in 7.2 degree increments. For instance, |
504 |
|
|
! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8, |
505 |
|
|
! etc. The second index runs over the g-channel (1 to 16). |
506 |
|
|
|
507 |
|
|
SELFREF(:, 1) = (/ & |
508 |
|
|
& 0.100945E-04_JPRB, 0.801113E-05_JPRB, 0.635771E-05_JPRB, 0.504554E-05_JPRB, 0.400419E-05_JPRB, & |
509 |
|
|
& 0.317777E-05_JPRB, 0.252191E-05_JPRB, 0.200141E-05_JPRB, 0.158834E-05_JPRB, 0.126052E-05_JPRB /) |
510 |
|
|
SELFREF(:, 2) = (/ & |
511 |
|
|
& 0.107573E-04_JPRB, 0.999809E-05_JPRB, 0.929245E-05_JPRB, 0.863661E-05_JPRB, 0.802706E-05_JPRB, & |
512 |
|
|
& 0.746053E-05_JPRB, 0.693399E-05_JPRB, 0.644460E-05_JPRB, 0.598976E-05_JPRB, 0.556702E-05_JPRB /) |
513 |
|
|
SELFREF(:, 3) = (/ & |
514 |
|
|
& 0.350389E-04_JPRB, 0.319234E-04_JPRB, 0.290850E-04_JPRB, 0.264989E-04_JPRB, 0.241428E-04_JPRB, & |
515 |
|
|
& 0.219962E-04_JPRB, 0.200404E-04_JPRB, 0.182586E-04_JPRB, 0.166351E-04_JPRB, 0.151560E-04_JPRB /) |
516 |
|
|
SELFREF(:, 4) = (/ & |
517 |
|
|
& 0.122993E-03_JPRB, 0.110885E-03_JPRB, 0.999691E-04_JPRB, 0.901277E-04_JPRB, 0.812551E-04_JPRB, & |
518 |
|
|
& 0.732559E-04_JPRB, 0.660443E-04_JPRB, 0.595426E-04_JPRB, 0.536809E-04_JPRB, 0.483963E-04_JPRB /) |
519 |
|
|
SELFREF(:, 5) = (/ & |
520 |
|
|
& 0.206434E-03_JPRB, 0.187435E-03_JPRB, 0.170185E-03_JPRB, 0.154522E-03_JPRB, 0.140301E-03_JPRB, & |
521 |
|
|
& 0.127388E-03_JPRB, 0.115664E-03_JPRB, 0.105019E-03_JPRB, 0.953540E-04_JPRB, 0.865783E-04_JPRB /) |
522 |
|
|
SELFREF(:, 6) = (/ & |
523 |
|
|
& 0.590645E-03_JPRB, 0.533109E-03_JPRB, 0.481177E-03_JPRB, 0.434305E-03_JPRB, 0.391998E-03_JPRB, & |
524 |
|
|
& 0.353812E-03_JPRB, 0.319346E-03_JPRB, 0.288238E-03_JPRB, 0.260160E-03_JPRB, 0.234817E-03_JPRB /) |
525 |
|
|
SELFREF(:, 7) = (/ & |
526 |
|
|
& 0.163029E-02_JPRB, 0.148773E-02_JPRB, 0.135763E-02_JPRB, 0.123891E-02_JPRB, 0.113057E-02_JPRB, & |
527 |
|
|
& 0.103170E-02_JPRB, 0.941483E-03_JPRB, 0.859153E-03_JPRB, 0.784023E-03_JPRB, 0.715462E-03_JPRB /) |
528 |
|
|
SELFREF(:, 8) = (/ & |
529 |
|
|
& 0.204528E-02_JPRB, 0.189258E-02_JPRB, 0.175128E-02_JPRB, 0.162053E-02_JPRB, 0.149954E-02_JPRB, & |
530 |
|
|
& 0.138758E-02_JPRB, 0.128398E-02_JPRB, 0.118812E-02_JPRB, 0.109941E-02_JPRB, 0.101733E-02_JPRB /) |
531 |
|
|
SELFREF(:, 9) = (/ & |
532 |
|
|
& 0.210589E-02_JPRB, 0.197078E-02_JPRB, 0.184434E-02_JPRB, 0.172601E-02_JPRB, 0.161528E-02_JPRB, & |
533 |
|
|
& 0.151164E-02_JPRB, 0.141466E-02_JPRB, 0.132390E-02_JPRB, 0.123896E-02_JPRB, 0.115947E-02_JPRB /) |
534 |
|
|
SELFREF(:,10) = (/ & |
535 |
|
|
& 0.245098E-02_JPRB, 0.233745E-02_JPRB, 0.222918E-02_JPRB, 0.212592E-02_JPRB, 0.202745E-02_JPRB, & |
536 |
|
|
& 0.193353E-02_JPRB, 0.184397E-02_JPRB, 0.175856E-02_JPRB, 0.167710E-02_JPRB, 0.159941E-02_JPRB /) |
537 |
|
|
SELFREF(:,11) = (/ & |
538 |
|
|
& 0.267460E-02_JPRB, 0.253325E-02_JPRB, 0.239936E-02_JPRB, 0.227255E-02_JPRB, 0.215244E-02_JPRB, & |
539 |
|
|
& 0.203868E-02_JPRB, 0.193093E-02_JPRB, 0.182888E-02_JPRB, 0.173222E-02_JPRB, 0.164067E-02_JPRB /) |
540 |
|
|
SELFREF(:,12) = (/ & |
541 |
|
|
& 0.304510E-02_JPRB, 0.283919E-02_JPRB, 0.264720E-02_JPRB, 0.246820E-02_JPRB, 0.230130E-02_JPRB, & |
542 |
|
|
& 0.214568E-02_JPRB, 0.200059E-02_JPRB, 0.186531E-02_JPRB, 0.173918E-02_JPRB, 0.162157E-02_JPRB /) |
543 |
|
|
SELFREF(:,13) = (/ & |
544 |
|
|
& 0.338445E-02_JPRB, 0.314719E-02_JPRB, 0.292655E-02_JPRB, 0.272139E-02_JPRB, 0.253060E-02_JPRB, & |
545 |
|
|
& 0.235319E-02_JPRB, 0.218822E-02_JPRB, 0.203482E-02_JPRB, 0.189217E-02_JPRB, 0.175952E-02_JPRB /) |
546 |
|
|
SELFREF(:,14) = (/ & |
547 |
|
|
& 0.388649E-02_JPRB, 0.357018E-02_JPRB, 0.327961E-02_JPRB, 0.301269E-02_JPRB, 0.276750E-02_JPRB, & |
548 |
|
|
& 0.254226E-02_JPRB, 0.233535E-02_JPRB, 0.214528E-02_JPRB, 0.197068E-02_JPRB, 0.181029E-02_JPRB /) |
549 |
|
|
SELFREF(:,15) = (/ & |
550 |
|
|
& 0.412547E-02_JPRB, 0.387413E-02_JPRB, 0.363810E-02_JPRB, 0.341646E-02_JPRB, 0.320831E-02_JPRB, & |
551 |
|
|
& 0.301285E-02_JPRB, 0.282930E-02_JPRB, 0.265693E-02_JPRB, 0.249506E-02_JPRB, 0.234305E-02_JPRB /) |
552 |
|
|
SELFREF(:,16) = (/ & |
553 |
|
|
& 0.534327E-02_JPRB, 0.482967E-02_JPRB, 0.436544E-02_JPRB, 0.394583E-02_JPRB, 0.356655E-02_JPRB, & |
554 |
|
|
& 0.322373E-02_JPRB, 0.291387E-02_JPRB, 0.263378E-02_JPRB, 0.238062E-02_JPRB, 0.215179E-02_JPRB /) |
555 |
|
|
|
556 |
|
|
! ----------------------------------------------------------------- |
557 |
|
|
IF (LHOOK) CALL DR_HOOK('SRTM_KGB23',1,ZHOOK_HANDLE) |
558 |
|
|
END SUBROUTINE SRTM_KGB23 |
559 |
|
|
|