1 |
|
|
!OCL SCALAR |
2 |
|
|
#ifdef RS6K |
3 |
|
|
@PROCESS NOOPTIMIZE |
4 |
|
|
#endif |
5 |
|
|
SUBROUTINE SRTM_KGB25 |
6 |
|
|
|
7 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
8 |
|
|
! Revision: 2.4 |
9 |
|
|
! BAND 25: 16000-22650 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 YOESRTA25, ONLY : KA, SFLUXREF, RAYL, ABSO3A, ABSO3B & |
18 |
|
|
& , LAYREFFR |
19 |
|
|
|
20 |
|
|
! ------------------------------------------------------------------ |
21 |
|
|
|
22 |
|
|
IMPLICIT NONE |
23 |
|
|
|
24 |
|
|
! KURUCZ |
25 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
26 |
|
|
IF (LHOOK) CALL DR_HOOK('SRTM_KGB25',0,ZHOOK_HANDLE) |
27 |
|
|
SFLUXREF = (/ & |
28 |
|
|
& 42.6858_JPRB , 45.7720_JPRB, 44.9872_JPRB, 45.9662_JPRB , & |
29 |
|
|
& 46.5458_JPRB , 41.6926_JPRB, 32.2893_JPRB, 24.0928_JPRB , & |
30 |
|
|
& 16.7686_JPRB , 1.86048_JPRB, 1.54057_JPRB, 1.23503_JPRB , & |
31 |
|
|
& 0.915085_JPRB,0.590099_JPRB,0.218622_JPRB, 3.21287E-02_JPRB /) |
32 |
|
|
|
33 |
|
|
! Rayleigh extinction coefficient at v = 2925 cm-1. |
34 |
|
|
RAYL = (/ & |
35 |
|
|
& 9.81132E-07_JPRB,8.25605E-07_JPRB,6.71302E-07_JPRB,5.53556E-07_JPRB, & |
36 |
|
|
& 3.97383E-07_JPRB,3.68206E-07_JPRB,4.42379E-07_JPRB,4.57799E-07_JPRB, & |
37 |
|
|
& 4.22683E-07_JPRB,3.87113E-07_JPRB,3.79810E-07_JPRB,3.63192E-07_JPRB, & |
38 |
|
|
& 3.51921E-07_JPRB,3.34231E-07_JPRB,3.34294E-07_JPRB,3.32673E-07_JPRB /) |
39 |
|
|
|
40 |
|
|
ABSO3A = (/ & |
41 |
|
|
& 2.32664E-02_JPRB,5.76154E-02_JPRB,0.125389_JPRB,0.250158_JPRB, & |
42 |
|
|
& 0.378756_JPRB ,0.402196_JPRB ,0.352026_JPRB,0.352036_JPRB, & |
43 |
|
|
& 0.386253_JPRB ,0.414598_JPRB ,0.420079_JPRB,0.435471_JPRB, & |
44 |
|
|
& 0.445487_JPRB ,0.459549_JPRB ,0.452920_JPRB,0.456838_JPRB /) |
45 |
|
|
|
46 |
|
|
ABSO3B = (/ & |
47 |
|
|
& 1.76917E-02_JPRB,4.64185E-02_JPRB,1.03640E-01_JPRB,0.189469_JPRB, & |
48 |
|
|
& 0.303858_JPRB ,0.400248_JPRB ,0.447357_JPRB ,0.470009_JPRB, & |
49 |
|
|
& 0.498673_JPRB ,0.515696_JPRB ,0.517053_JPRB ,0.517930_JPRB, & |
50 |
|
|
& 0.518345_JPRB ,0.524952_JPRB ,0.508244_JPRB ,0.468981_JPRB /) |
51 |
|
|
|
52 |
|
|
LAYREFFR = 2 |
53 |
|
|
|
54 |
|
|
! ------------------------------------------------------------------ |
55 |
|
|
|
56 |
|
|
! The array KA contains absorption coefs at the 16 chosen g-values |
57 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
58 |
|
|
! species parameters (see taumol.f for definition). The first |
59 |
|
|
! index in the array, JS, runs from 1 to 9, and corresponds to |
60 |
|
|
! different values of the binary species parameter. For instance, |
61 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
62 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
63 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
64 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
65 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
66 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
67 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
68 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
69 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
70 |
|
|
! which g-interval the absorption coefficients are for. |
71 |
|
|
! ----------------------------------------------------------------- |
72 |
|
|
|
73 |
|
|
KA(:, 1, 1) = (/ & |
74 |
|
|
& 0.16461E-08_JPRB,0.16782E-08_JPRB,0.19339E-08_JPRB,0.17100E-08_JPRB,0.17045E-08_JPRB /) |
75 |
|
|
KA(:, 2, 1) = (/ & |
76 |
|
|
& 0.28759E-08_JPRB,0.29469E-08_JPRB,0.33789E-08_JPRB,0.34357E-08_JPRB,0.28833E-08_JPRB /) |
77 |
|
|
KA(:, 3, 1) = (/ & |
78 |
|
|
& 0.55148E-08_JPRB,0.54808E-08_JPRB,0.54190E-08_JPRB,0.68260E-08_JPRB,0.51972E-08_JPRB /) |
79 |
|
|
KA(:, 4, 1) = (/ & |
80 |
|
|
& 0.95336E-08_JPRB,0.94552E-08_JPRB,0.93001E-08_JPRB,0.90961E-08_JPRB,0.14451E-07_JPRB /) |
81 |
|
|
KA(:, 5, 1) = (/ & |
82 |
|
|
& 0.14930E-07_JPRB,0.14736E-07_JPRB,0.14432E-07_JPRB,0.14074E-07_JPRB,0.24102E-07_JPRB /) |
83 |
|
|
KA(:, 6, 1) = (/ & |
84 |
|
|
& 0.22770E-07_JPRB,0.22301E-07_JPRB,0.21778E-07_JPRB,0.21194E-07_JPRB,0.20569E-07_JPRB /) |
85 |
|
|
KA(:, 7, 1) = (/ & |
86 |
|
|
& 0.34699E-07_JPRB,0.33951E-07_JPRB,0.33124E-07_JPRB,0.32144E-07_JPRB,0.31220E-07_JPRB /) |
87 |
|
|
KA(:, 8, 1) = (/ & |
88 |
|
|
& 0.62339E-07_JPRB,0.60405E-07_JPRB,0.59548E-07_JPRB,0.58214E-07_JPRB,0.56977E-07_JPRB /) |
89 |
|
|
KA(:, 9, 1) = (/ & |
90 |
|
|
& 0.17411E-06_JPRB,0.17654E-06_JPRB,0.18315E-06_JPRB,0.18100E-06_JPRB,0.17839E-06_JPRB /) |
91 |
|
|
KA(:,10, 1) = (/ & |
92 |
|
|
& 0.23526E-06_JPRB,0.22729E-06_JPRB,0.21947E-06_JPRB,0.21188E-06_JPRB,0.20454E-06_JPRB /) |
93 |
|
|
KA(:,11, 1) = (/ & |
94 |
|
|
& 0.23535E-06_JPRB,0.22737E-06_JPRB,0.21956E-06_JPRB,0.21196E-06_JPRB,0.20461E-06_JPRB /) |
95 |
|
|
KA(:,12, 1) = (/ & |
96 |
|
|
& 0.23539E-06_JPRB,0.22740E-06_JPRB,0.21959E-06_JPRB,0.21199E-06_JPRB,0.20465E-06_JPRB /) |
97 |
|
|
KA(:,13, 1) = (/ & |
98 |
|
|
& 0.23543E-06_JPRB,0.22744E-06_JPRB,0.21962E-06_JPRB,0.21202E-06_JPRB,0.20467E-06_JPRB /) |
99 |
|
|
KA(:, 1, 2) = (/ & |
100 |
|
|
& 0.62912E-08_JPRB,0.61559E-08_JPRB,0.84640E-08_JPRB,0.59240E-08_JPRB,0.58217E-08_JPRB /) |
101 |
|
|
KA(:, 2, 2) = (/ & |
102 |
|
|
& 0.83749E-08_JPRB,0.80756E-08_JPRB,0.11623E-07_JPRB,0.11272E-07_JPRB,0.73636E-08_JPRB /) |
103 |
|
|
KA(:, 3, 2) = (/ & |
104 |
|
|
& 0.13304E-07_JPRB,0.12795E-07_JPRB,0.12343E-07_JPRB,0.21235E-07_JPRB,0.11577E-07_JPRB /) |
105 |
|
|
KA(:, 4, 2) = (/ & |
106 |
|
|
& 0.20704E-07_JPRB,0.19736E-07_JPRB,0.18900E-07_JPRB,0.18228E-07_JPRB,0.31601E-07_JPRB /) |
107 |
|
|
KA(:, 5, 2) = (/ & |
108 |
|
|
& 0.31149E-07_JPRB,0.29669E-07_JPRB,0.28318E-07_JPRB,0.27101E-07_JPRB,0.49649E-07_JPRB /) |
109 |
|
|
KA(:, 6, 2) = (/ & |
110 |
|
|
& 0.45713E-07_JPRB,0.43519E-07_JPRB,0.41488E-07_JPRB,0.39918E-07_JPRB,0.38291E-07_JPRB /) |
111 |
|
|
KA(:, 7, 2) = (/ & |
112 |
|
|
& 0.77265E-07_JPRB,0.73848E-07_JPRB,0.70437E-07_JPRB,0.67945E-07_JPRB,0.66127E-07_JPRB /) |
113 |
|
|
KA(:, 8, 2) = (/ & |
114 |
|
|
& 0.15754E-06_JPRB,0.15664E-06_JPRB,0.15378E-06_JPRB,0.15027E-06_JPRB,0.14633E-06_JPRB /) |
115 |
|
|
KA(:, 9, 2) = (/ & |
116 |
|
|
& 0.16439E-06_JPRB,0.14678E-06_JPRB,0.12610E-06_JPRB,0.11532E-06_JPRB,0.10591E-06_JPRB /) |
117 |
|
|
KA(:,10, 2) = (/ & |
118 |
|
|
& 0.14366E-06_JPRB,0.13506E-06_JPRB,0.12583E-06_JPRB,0.11774E-06_JPRB,0.11011E-06_JPRB /) |
119 |
|
|
KA(:,11, 2) = (/ & |
120 |
|
|
& 0.14521E-06_JPRB,0.13766E-06_JPRB,0.13072E-06_JPRB,0.12218E-06_JPRB,0.11400E-06_JPRB /) |
121 |
|
|
KA(:,12, 2) = (/ & |
122 |
|
|
& 0.14524E-06_JPRB,0.13769E-06_JPRB,0.13074E-06_JPRB,0.12241E-06_JPRB,0.11552E-06_JPRB /) |
123 |
|
|
KA(:,13, 2) = (/ & |
124 |
|
|
& 0.14525E-06_JPRB,0.13770E-06_JPRB,0.13075E-06_JPRB,0.12252E-06_JPRB,0.11553E-06_JPRB /) |
125 |
|
|
KA(:, 1, 3) = (/ & |
126 |
|
|
& 0.14060E-07_JPRB,0.13587E-07_JPRB,0.24644E-07_JPRB,0.12716E-07_JPRB,0.12367E-07_JPRB /) |
127 |
|
|
KA(:, 2, 3) = (/ & |
128 |
|
|
& 0.17055E-07_JPRB,0.16577E-07_JPRB,0.32443E-07_JPRB,0.31273E-07_JPRB,0.15381E-07_JPRB /) |
129 |
|
|
KA(:, 3, 3) = (/ & |
130 |
|
|
& 0.25414E-07_JPRB,0.24672E-07_JPRB,0.23874E-07_JPRB,0.47281E-07_JPRB,0.22346E-07_JPRB /) |
131 |
|
|
KA(:, 4, 3) = (/ & |
132 |
|
|
& 0.39536E-07_JPRB,0.38124E-07_JPRB,0.36836E-07_JPRB,0.35587E-07_JPRB,0.72260E-07_JPRB /) |
133 |
|
|
KA(:, 5, 3) = (/ & |
134 |
|
|
& 0.59488E-07_JPRB,0.57630E-07_JPRB,0.55623E-07_JPRB,0.53878E-07_JPRB,0.11230E-06_JPRB /) |
135 |
|
|
KA(:, 6, 3) = (/ & |
136 |
|
|
& 0.99996E-07_JPRB,0.96206E-07_JPRB,0.93184E-07_JPRB,0.90812E-07_JPRB,0.89206E-07_JPRB /) |
137 |
|
|
KA(:, 7, 3) = (/ & |
138 |
|
|
& 0.17678E-06_JPRB,0.17554E-06_JPRB,0.17358E-06_JPRB,0.17091E-06_JPRB,0.16830E-06_JPRB /) |
139 |
|
|
KA(:, 8, 3) = (/ & |
140 |
|
|
& 0.18672E-06_JPRB,0.17850E-06_JPRB,0.16967E-06_JPRB,0.16275E-06_JPRB,0.15875E-06_JPRB /) |
141 |
|
|
KA(:, 9, 3) = (/ & |
142 |
|
|
& 0.13558E-06_JPRB,0.13493E-06_JPRB,0.13633E-06_JPRB,0.13799E-06_JPRB,0.13932E-06_JPRB /) |
143 |
|
|
KA(:,10, 3) = (/ & |
144 |
|
|
& 0.18883E-06_JPRB,0.20452E-06_JPRB,0.22206E-06_JPRB,0.24347E-06_JPRB,0.26091E-06_JPRB /) |
145 |
|
|
KA(:,11, 3) = (/ & |
146 |
|
|
& 0.21296E-06_JPRB,0.23580E-06_JPRB,0.26439E-06_JPRB,0.30148E-06_JPRB,0.34942E-06_JPRB /) |
147 |
|
|
KA(:,12, 3) = (/ & |
148 |
|
|
& 0.22072E-06_JPRB,0.25535E-06_JPRB,0.28661E-06_JPRB,0.34814E-06_JPRB,0.39337E-06_JPRB /) |
149 |
|
|
KA(:,13, 3) = (/ & |
150 |
|
|
& 0.22515E-06_JPRB,0.26161E-06_JPRB,0.30833E-06_JPRB,0.36527E-06_JPRB,0.40123E-06_JPRB /) |
151 |
|
|
KA(:, 1, 4) = (/ & |
152 |
|
|
& 0.32735E-07_JPRB,0.31345E-07_JPRB,0.58846E-07_JPRB,0.28258E-07_JPRB,0.27022E-07_JPRB /) |
153 |
|
|
KA(:, 2, 4) = (/ & |
154 |
|
|
& 0.37754E-07_JPRB,0.36873E-07_JPRB,0.82776E-07_JPRB,0.80947E-07_JPRB,0.35190E-07_JPRB /) |
155 |
|
|
KA(:, 3, 4) = (/ & |
156 |
|
|
& 0.76368E-07_JPRB,0.75292E-07_JPRB,0.74075E-07_JPRB,0.10820E-06_JPRB,0.73183E-07_JPRB /) |
157 |
|
|
KA(:, 4, 4) = (/ & |
158 |
|
|
& 0.16392E-06_JPRB,0.16130E-06_JPRB,0.15926E-06_JPRB,0.15700E-06_JPRB,0.22041E-06_JPRB /) |
159 |
|
|
KA(:, 5, 4) = (/ & |
160 |
|
|
& 0.29704E-06_JPRB,0.28924E-06_JPRB,0.28301E-06_JPRB,0.27633E-06_JPRB,0.42284E-06_JPRB /) |
161 |
|
|
KA(:, 6, 4) = (/ & |
162 |
|
|
& 0.48466E-06_JPRB,0.47240E-06_JPRB,0.46143E-06_JPRB,0.45012E-06_JPRB,0.43867E-06_JPRB /) |
163 |
|
|
KA(:, 7, 4) = (/ & |
164 |
|
|
& 0.71637E-06_JPRB,0.69847E-06_JPRB,0.67384E-06_JPRB,0.65368E-06_JPRB,0.63375E-06_JPRB /) |
165 |
|
|
KA(:, 8, 4) = (/ & |
166 |
|
|
& 0.11904E-05_JPRB,0.11714E-05_JPRB,0.11524E-05_JPRB,0.11354E-05_JPRB,0.11172E-05_JPRB /) |
167 |
|
|
KA(:, 9, 4) = (/ & |
168 |
|
|
& 0.21976E-05_JPRB,0.21606E-05_JPRB,0.21332E-05_JPRB,0.20944E-05_JPRB,0.20536E-05_JPRB /) |
169 |
|
|
KA(:,10, 4) = (/ & |
170 |
|
|
& 0.21713E-05_JPRB,0.21144E-05_JPRB,0.20553E-05_JPRB,0.19901E-05_JPRB,0.19286E-05_JPRB /) |
171 |
|
|
KA(:,11, 4) = (/ & |
172 |
|
|
& 0.21443E-05_JPRB,0.20785E-05_JPRB,0.20048E-05_JPRB,0.19232E-05_JPRB,0.18295E-05_JPRB /) |
173 |
|
|
KA(:,12, 4) = (/ & |
174 |
|
|
& 0.21363E-05_JPRB,0.20578E-05_JPRB,0.19811E-05_JPRB,0.18729E-05_JPRB,0.17807E-05_JPRB /) |
175 |
|
|
KA(:,13, 4) = (/ & |
176 |
|
|
& 0.21319E-05_JPRB,0.20513E-05_JPRB,0.19580E-05_JPRB,0.18546E-05_JPRB,0.17725E-05_JPRB /) |
177 |
|
|
KA(:, 1, 5) = (/ & |
178 |
|
|
& 0.36050E-07_JPRB,0.36125E-07_JPRB,0.46253E-07_JPRB,0.37280E-07_JPRB,0.37359E-07_JPRB /) |
179 |
|
|
KA(:, 2, 5) = (/ & |
180 |
|
|
& 0.65102E-07_JPRB,0.64266E-07_JPRB,0.68896E-07_JPRB,0.65925E-07_JPRB,0.61190E-07_JPRB /) |
181 |
|
|
KA(:, 3, 5) = (/ & |
182 |
|
|
& 0.12173E-06_JPRB,0.11889E-06_JPRB,0.11625E-06_JPRB,0.17574E-06_JPRB,0.10921E-06_JPRB /) |
183 |
|
|
KA(:, 4, 5) = (/ & |
184 |
|
|
& 0.20555E-06_JPRB,0.19853E-06_JPRB,0.19068E-06_JPRB,0.18313E-06_JPRB,0.30241E-06_JPRB /) |
185 |
|
|
KA(:, 5, 5) = (/ & |
186 |
|
|
& 0.30900E-06_JPRB,0.29996E-06_JPRB,0.28857E-06_JPRB,0.27772E-06_JPRB,0.51631E-06_JPRB /) |
187 |
|
|
KA(:, 6, 5) = (/ & |
188 |
|
|
& 0.43774E-06_JPRB,0.42465E-06_JPRB,0.40920E-06_JPRB,0.39315E-06_JPRB,0.37901E-06_JPRB /) |
189 |
|
|
KA(:, 7, 5) = (/ & |
190 |
|
|
& 0.63869E-06_JPRB,0.61654E-06_JPRB,0.60324E-06_JPRB,0.58966E-06_JPRB,0.57948E-06_JPRB /) |
191 |
|
|
KA(:, 8, 5) = (/ & |
192 |
|
|
& 0.98362E-06_JPRB,0.96271E-06_JPRB,0.94180E-06_JPRB,0.92206E-06_JPRB,0.91105E-06_JPRB /) |
193 |
|
|
KA(:, 9, 5) = (/ & |
194 |
|
|
& 0.12061E-05_JPRB,0.11895E-05_JPRB,0.11564E-05_JPRB,0.11296E-05_JPRB,0.11110E-05_JPRB /) |
195 |
|
|
KA(:,10, 5) = (/ & |
196 |
|
|
& 0.12958E-05_JPRB,0.12694E-05_JPRB,0.12425E-05_JPRB,0.12153E-05_JPRB,0.11880E-05_JPRB /) |
197 |
|
|
KA(:,11, 5) = (/ & |
198 |
|
|
& 0.12962E-05_JPRB,0.12698E-05_JPRB,0.12429E-05_JPRB,0.12156E-05_JPRB,0.11883E-05_JPRB /) |
199 |
|
|
KA(:,12, 5) = (/ & |
200 |
|
|
& 0.12964E-05_JPRB,0.12701E-05_JPRB,0.12431E-05_JPRB,0.12158E-05_JPRB,0.11885E-05_JPRB /) |
201 |
|
|
KA(:,13, 5) = (/ & |
202 |
|
|
& 0.12966E-05_JPRB,0.12702E-05_JPRB,0.12433E-05_JPRB,0.12160E-05_JPRB,0.11886E-05_JPRB /) |
203 |
|
|
KA(:, 1, 6) = (/ & |
204 |
|
|
& 0.73925E-07_JPRB,0.70231E-07_JPRB,0.21454E-06_JPRB,0.63477E-07_JPRB,0.60912E-07_JPRB /) |
205 |
|
|
KA(:, 2, 6) = (/ & |
206 |
|
|
& 0.67794E-07_JPRB,0.65807E-07_JPRB,0.13854E-06_JPRB,0.13061E-06_JPRB,0.59361E-07_JPRB /) |
207 |
|
|
KA(:, 3, 6) = (/ & |
208 |
|
|
& 0.98353E-07_JPRB,0.95275E-07_JPRB,0.92426E-07_JPRB,0.15768E-06_JPRB,0.87986E-07_JPRB /) |
209 |
|
|
KA(:, 4, 6) = (/ & |
210 |
|
|
& 0.15855E-06_JPRB,0.15394E-06_JPRB,0.14948E-06_JPRB,0.14655E-06_JPRB,0.23172E-06_JPRB /) |
211 |
|
|
KA(:, 5, 6) = (/ & |
212 |
|
|
& 0.27764E-06_JPRB,0.26941E-06_JPRB,0.26299E-06_JPRB,0.25975E-06_JPRB,0.40526E-06_JPRB /) |
213 |
|
|
KA(:, 6, 6) = (/ & |
214 |
|
|
& 0.45469E-06_JPRB,0.44417E-06_JPRB,0.43276E-06_JPRB,0.42440E-06_JPRB,0.41489E-06_JPRB /) |
215 |
|
|
KA(:, 7, 6) = (/ & |
216 |
|
|
& 0.71540E-06_JPRB,0.71291E-06_JPRB,0.70656E-06_JPRB,0.69823E-06_JPRB,0.68342E-06_JPRB /) |
217 |
|
|
KA(:, 8, 6) = (/ & |
218 |
|
|
& 0.79651E-06_JPRB,0.79807E-06_JPRB,0.80621E-06_JPRB,0.80941E-06_JPRB,0.79835E-06_JPRB /) |
219 |
|
|
KA(:, 9, 6) = (/ & |
220 |
|
|
& 0.18716E-06_JPRB,0.16713E-06_JPRB,0.14725E-06_JPRB,0.13728E-06_JPRB,0.11763E-06_JPRB /) |
221 |
|
|
KA(:,10, 6) = (/ & |
222 |
|
|
& 0.92638E-07_JPRB,0.86207E-07_JPRB,0.80877E-07_JPRB,0.70432E-07_JPRB,0.64517E-07_JPRB /) |
223 |
|
|
KA(:,11, 6) = (/ & |
224 |
|
|
& 0.13396E-06_JPRB,0.12820E-06_JPRB,0.12387E-06_JPRB,0.10427E-06_JPRB,0.94091E-07_JPRB /) |
225 |
|
|
KA(:,12, 6) = (/ & |
226 |
|
|
& 0.14877E-06_JPRB,0.14827E-06_JPRB,0.14350E-06_JPRB,0.12154E-06_JPRB,0.10552E-06_JPRB /) |
227 |
|
|
KA(:,13, 6) = (/ & |
228 |
|
|
& 0.15437E-06_JPRB,0.15323E-06_JPRB,0.14992E-06_JPRB,0.12715E-06_JPRB,0.10933E-06_JPRB /) |
229 |
|
|
KA(:, 1, 7) = (/ & |
230 |
|
|
& 0.72717E-06_JPRB,0.70656E-06_JPRB,0.13933E-05_JPRB,0.66449E-06_JPRB,0.64269E-06_JPRB /) |
231 |
|
|
KA(:, 2, 7) = (/ & |
232 |
|
|
& 0.52595E-06_JPRB,0.50791E-06_JPRB,0.11171E-05_JPRB,0.10538E-05_JPRB,0.45644E-06_JPRB /) |
233 |
|
|
KA(:, 3, 7) = (/ & |
234 |
|
|
& 0.29919E-06_JPRB,0.29227E-06_JPRB,0.28284E-06_JPRB,0.65215E-06_JPRB,0.26347E-06_JPRB /) |
235 |
|
|
KA(:, 4, 7) = (/ & |
236 |
|
|
& 0.27961E-06_JPRB,0.27579E-06_JPRB,0.27068E-06_JPRB,0.26343E-06_JPRB,0.41265E-06_JPRB /) |
237 |
|
|
KA(:, 5, 7) = (/ & |
238 |
|
|
& 0.37031E-06_JPRB,0.36318E-06_JPRB,0.35475E-06_JPRB,0.34488E-06_JPRB,0.53740E-06_JPRB /) |
239 |
|
|
KA(:, 6, 7) = (/ & |
240 |
|
|
& 0.53195E-06_JPRB,0.52692E-06_JPRB,0.52224E-06_JPRB,0.51934E-06_JPRB,0.51146E-06_JPRB /) |
241 |
|
|
KA(:, 7, 7) = (/ & |
242 |
|
|
& 0.83043E-06_JPRB,0.84552E-06_JPRB,0.84833E-06_JPRB,0.82800E-06_JPRB,0.80930E-06_JPRB /) |
243 |
|
|
KA(:, 8, 7) = (/ & |
244 |
|
|
& 0.14910E-05_JPRB,0.15179E-05_JPRB,0.15248E-05_JPRB,0.15091E-05_JPRB,0.14853E-05_JPRB /) |
245 |
|
|
KA(:, 9, 7) = (/ & |
246 |
|
|
& 0.37340E-05_JPRB,0.37823E-05_JPRB,0.38311E-05_JPRB,0.38453E-05_JPRB,0.38567E-05_JPRB /) |
247 |
|
|
KA(:,10, 7) = (/ & |
248 |
|
|
& 0.86791E-05_JPRB,0.89697E-05_JPRB,0.92118E-05_JPRB,0.93991E-05_JPRB,0.95564E-05_JPRB /) |
249 |
|
|
KA(:,11, 7) = (/ & |
250 |
|
|
& 0.11878E-04_JPRB,0.12201E-04_JPRB,0.12588E-04_JPRB,0.12897E-04_JPRB,0.13151E-04_JPRB /) |
251 |
|
|
KA(:,12, 7) = (/ & |
252 |
|
|
& 0.13192E-04_JPRB,0.13732E-04_JPRB,0.14137E-04_JPRB,0.14465E-04_JPRB,0.14643E-04_JPRB /) |
253 |
|
|
KA(:,13, 7) = (/ & |
254 |
|
|
& 0.13716E-04_JPRB,0.14229E-04_JPRB,0.14617E-04_JPRB,0.14944E-04_JPRB,0.15182E-04_JPRB /) |
255 |
|
|
KA(:, 1, 8) = (/ & |
256 |
|
|
& 0.39538E-05_JPRB,0.38949E-05_JPRB,0.56188E-05_JPRB,0.37475E-05_JPRB,0.36648E-05_JPRB /) |
257 |
|
|
KA(:, 2, 8) = (/ & |
258 |
|
|
& 0.34231E-05_JPRB,0.33633E-05_JPRB,0.51877E-05_JPRB,0.50048E-05_JPRB,0.31425E-05_JPRB /) |
259 |
|
|
KA(:, 3, 8) = (/ & |
260 |
|
|
& 0.28073E-05_JPRB,0.27497E-05_JPRB,0.26875E-05_JPRB,0.44405E-05_JPRB,0.25492E-05_JPRB /) |
261 |
|
|
KA(:, 4, 8) = (/ & |
262 |
|
|
& 0.19229E-05_JPRB,0.18818E-05_JPRB,0.18382E-05_JPRB,0.17896E-05_JPRB,0.33073E-05_JPRB /) |
263 |
|
|
KA(:, 5, 8) = (/ & |
264 |
|
|
& 0.11453E-05_JPRB,0.11293E-05_JPRB,0.11095E-05_JPRB,0.10866E-05_JPRB,0.19344E-05_JPRB /) |
265 |
|
|
KA(:, 6, 8) = (/ & |
266 |
|
|
& 0.14565E-05_JPRB,0.14517E-05_JPRB,0.14369E-05_JPRB,0.14141E-05_JPRB,0.13944E-05_JPRB /) |
267 |
|
|
KA(:, 7, 8) = (/ & |
268 |
|
|
& 0.23228E-05_JPRB,0.22753E-05_JPRB,0.22395E-05_JPRB,0.22124E-05_JPRB,0.21731E-05_JPRB /) |
269 |
|
|
KA(:, 8, 8) = (/ & |
270 |
|
|
& 0.34877E-05_JPRB,0.34362E-05_JPRB,0.33796E-05_JPRB,0.33389E-05_JPRB,0.32924E-05_JPRB /) |
271 |
|
|
KA(:, 9, 8) = (/ & |
272 |
|
|
& 0.63448E-05_JPRB,0.63701E-05_JPRB,0.63619E-05_JPRB,0.62632E-05_JPRB,0.61645E-05_JPRB /) |
273 |
|
|
KA(:,10, 8) = (/ & |
274 |
|
|
& 0.12155E-04_JPRB,0.11880E-04_JPRB,0.11762E-04_JPRB,0.11759E-04_JPRB,0.11651E-04_JPRB /) |
275 |
|
|
KA(:,11, 8) = (/ & |
276 |
|
|
& 0.14093E-04_JPRB,0.13835E-04_JPRB,0.13547E-04_JPRB,0.13205E-04_JPRB,0.12690E-04_JPRB /) |
277 |
|
|
KA(:,12, 8) = (/ & |
278 |
|
|
& 0.14428E-04_JPRB,0.14056E-04_JPRB,0.13932E-04_JPRB,0.13396E-04_JPRB,0.12885E-04_JPRB /) |
279 |
|
|
KA(:,13, 8) = (/ & |
280 |
|
|
& 0.15229E-04_JPRB,0.14534E-04_JPRB,0.13849E-04_JPRB,0.13292E-04_JPRB,0.12704E-04_JPRB /) |
281 |
|
|
KA(:, 1, 9) = (/ & |
282 |
|
|
& 0.19250E-04_JPRB,0.19148E-04_JPRB,0.21702E-04_JPRB,0.18906E-04_JPRB,0.18761E-04_JPRB /) |
283 |
|
|
KA(:, 2, 9) = (/ & |
284 |
|
|
& 0.18132E-04_JPRB,0.18040E-04_JPRB,0.20884E-04_JPRB,0.20523E-04_JPRB,0.17656E-04_JPRB /) |
285 |
|
|
KA(:, 3, 9) = (/ & |
286 |
|
|
& 0.16928E-04_JPRB,0.16843E-04_JPRB,0.16742E-04_JPRB,0.19715E-04_JPRB,0.16470E-04_JPRB /) |
287 |
|
|
KA(:, 4, 9) = (/ & |
288 |
|
|
& 0.15526E-04_JPRB,0.15463E-04_JPRB,0.15377E-04_JPRB,0.15268E-04_JPRB,0.18367E-04_JPRB /) |
289 |
|
|
KA(:, 5, 9) = (/ & |
290 |
|
|
& 0.13545E-04_JPRB,0.13511E-04_JPRB,0.13455E-04_JPRB,0.13362E-04_JPRB,0.16722E-04_JPRB /) |
291 |
|
|
KA(:, 6, 9) = (/ & |
292 |
|
|
& 0.97183E-05_JPRB,0.97218E-05_JPRB,0.97084E-05_JPRB,0.96717E-05_JPRB,0.96030E-05_JPRB /) |
293 |
|
|
KA(:, 7, 9) = (/ & |
294 |
|
|
& 0.50307E-05_JPRB,0.50984E-05_JPRB,0.51628E-05_JPRB,0.52093E-05_JPRB,0.52354E-05_JPRB /) |
295 |
|
|
KA(:, 8, 9) = (/ & |
296 |
|
|
& 0.45837E-05_JPRB,0.45939E-05_JPRB,0.45938E-05_JPRB,0.45639E-05_JPRB,0.45109E-05_JPRB /) |
297 |
|
|
KA(:, 9, 9) = (/ & |
298 |
|
|
& 0.12254E-04_JPRB,0.12319E-04_JPRB,0.12397E-04_JPRB,0.12584E-04_JPRB,0.12620E-04_JPRB /) |
299 |
|
|
KA(:,10, 9) = (/ & |
300 |
|
|
& 0.21545E-04_JPRB,0.21836E-04_JPRB,0.21718E-04_JPRB,0.21511E-04_JPRB,0.21211E-04_JPRB /) |
301 |
|
|
KA(:,11, 9) = (/ & |
302 |
|
|
& 0.20079E-04_JPRB,0.19539E-04_JPRB,0.18859E-04_JPRB,0.18393E-04_JPRB,0.18181E-04_JPRB /) |
303 |
|
|
KA(:,12, 9) = (/ & |
304 |
|
|
& 0.17115E-04_JPRB,0.16357E-04_JPRB,0.15410E-04_JPRB,0.15220E-04_JPRB,0.15207E-04_JPRB /) |
305 |
|
|
KA(:,13, 9) = (/ & |
306 |
|
|
& 0.14935E-04_JPRB,0.14679E-04_JPRB,0.14593E-04_JPRB,0.14448E-04_JPRB,0.14436E-04_JPRB /) |
307 |
|
|
KA(:, 1,10) = (/ & |
308 |
|
|
& 0.53569E-04_JPRB,0.53042E-04_JPRB,0.55454E-04_JPRB,0.52098E-04_JPRB,0.51678E-04_JPRB /) |
309 |
|
|
KA(:, 2,10) = (/ & |
310 |
|
|
& 0.52196E-04_JPRB,0.51739E-04_JPRB,0.54777E-04_JPRB,0.54075E-04_JPRB,0.50624E-04_JPRB /) |
311 |
|
|
KA(:, 3,10) = (/ & |
312 |
|
|
& 0.50339E-04_JPRB,0.50046E-04_JPRB,0.49769E-04_JPRB,0.53168E-04_JPRB,0.49370E-04_JPRB /) |
313 |
|
|
KA(:, 4,10) = (/ & |
314 |
|
|
& 0.48505E-04_JPRB,0.48316E-04_JPRB,0.48143E-04_JPRB,0.47993E-04_JPRB,0.51621E-04_JPRB /) |
315 |
|
|
KA(:, 5,10) = (/ & |
316 |
|
|
& 0.46313E-04_JPRB,0.46267E-04_JPRB,0.46119E-04_JPRB,0.46064E-04_JPRB,0.50279E-04_JPRB /) |
317 |
|
|
KA(:, 6,10) = (/ & |
318 |
|
|
& 0.42662E-04_JPRB,0.42818E-04_JPRB,0.42935E-04_JPRB,0.43007E-04_JPRB,0.43099E-04_JPRB /) |
319 |
|
|
KA(:, 7,10) = (/ & |
320 |
|
|
& 0.35762E-04_JPRB,0.36149E-04_JPRB,0.36450E-04_JPRB,0.36639E-04_JPRB,0.36887E-04_JPRB /) |
321 |
|
|
KA(:, 8,10) = (/ & |
322 |
|
|
& 0.13516E-05_JPRB,0.18607E-05_JPRB,0.23061E-05_JPRB,0.27339E-05_JPRB,0.36516E-05_JPRB /) |
323 |
|
|
KA(:, 9,10) = (/ & |
324 |
|
|
& 0.36432E-05_JPRB,0.40739E-05_JPRB,0.43830E-05_JPRB,0.41136E-05_JPRB,0.43128E-05_JPRB /) |
325 |
|
|
KA(:,10,10) = (/ & |
326 |
|
|
& 0.62049E-05_JPRB,0.69116E-05_JPRB,0.73244E-05_JPRB,0.65087E-05_JPRB,0.78951E-05_JPRB /) |
327 |
|
|
KA(:,11,10) = (/ & |
328 |
|
|
& 0.32156E-05_JPRB,0.38834E-05_JPRB,0.41231E-05_JPRB,0.43386E-05_JPRB,0.43405E-05_JPRB /) |
329 |
|
|
KA(:,12,10) = (/ & |
330 |
|
|
& 0.22152E-05_JPRB,0.26754E-05_JPRB,0.31971E-05_JPRB,0.34911E-05_JPRB,0.37935E-05_JPRB /) |
331 |
|
|
KA(:,13,10) = (/ & |
332 |
|
|
& 0.19792E-05_JPRB,0.26543E-05_JPRB,0.31511E-05_JPRB,0.34597E-05_JPRB,0.40624E-05_JPRB /) |
333 |
|
|
KA(:, 1,11) = (/ & |
334 |
|
|
& 0.75384E-04_JPRB,0.75103E-04_JPRB,0.77406E-04_JPRB,0.74222E-04_JPRB,0.73734E-04_JPRB /) |
335 |
|
|
KA(:, 2,11) = (/ & |
336 |
|
|
& 0.75458E-04_JPRB,0.75244E-04_JPRB,0.77778E-04_JPRB,0.77018E-04_JPRB,0.73942E-04_JPRB /) |
337 |
|
|
KA(:, 3,11) = (/ & |
338 |
|
|
& 0.75023E-04_JPRB,0.74844E-04_JPRB,0.74477E-04_JPRB,0.77271E-04_JPRB,0.73633E-04_JPRB /) |
339 |
|
|
KA(:, 4,11) = (/ & |
340 |
|
|
& 0.73633E-04_JPRB,0.73539E-04_JPRB,0.73257E-04_JPRB,0.72934E-04_JPRB,0.76232E-04_JPRB /) |
341 |
|
|
KA(:, 5,11) = (/ & |
342 |
|
|
& 0.71348E-04_JPRB,0.71322E-04_JPRB,0.71227E-04_JPRB,0.71069E-04_JPRB,0.75258E-04_JPRB /) |
343 |
|
|
KA(:, 6,11) = (/ & |
344 |
|
|
& 0.67784E-04_JPRB,0.67873E-04_JPRB,0.67974E-04_JPRB,0.67924E-04_JPRB,0.67903E-04_JPRB /) |
345 |
|
|
KA(:, 7,11) = (/ & |
346 |
|
|
& 0.61855E-04_JPRB,0.61922E-04_JPRB,0.61973E-04_JPRB,0.62206E-04_JPRB,0.62496E-04_JPRB /) |
347 |
|
|
KA(:, 8,11) = (/ & |
348 |
|
|
& 0.36622E-04_JPRB,0.37413E-04_JPRB,0.38740E-04_JPRB,0.40550E-04_JPRB,0.41833E-04_JPRB /) |
349 |
|
|
KA(:, 9,11) = (/ & |
350 |
|
|
& 0.28544E-05_JPRB,0.28831E-05_JPRB,0.31445E-05_JPRB,0.32900E-05_JPRB,0.27967E-05_JPRB /) |
351 |
|
|
KA(:,10,11) = (/ & |
352 |
|
|
& 0.53755E-05_JPRB,0.42123E-05_JPRB,0.51154E-05_JPRB,0.63481E-05_JPRB,0.54219E-05_JPRB /) |
353 |
|
|
KA(:,11,11) = (/ & |
354 |
|
|
& 0.12605E-05_JPRB,0.14078E-05_JPRB,0.19167E-05_JPRB,0.23729E-05_JPRB,0.30161E-05_JPRB /) |
355 |
|
|
KA(:,12,11) = (/ & |
356 |
|
|
& 0.11370E-05_JPRB,0.91524E-06_JPRB,0.11150E-05_JPRB,0.14746E-05_JPRB,0.20128E-05_JPRB /) |
357 |
|
|
KA(:,13,11) = (/ & |
358 |
|
|
& 0.10511E-05_JPRB,0.10014E-05_JPRB,0.11405E-05_JPRB,0.13852E-05_JPRB,0.15576E-05_JPRB /) |
359 |
|
|
KA(:, 1,12) = (/ & |
360 |
|
|
& 0.11184E-03_JPRB,0.11117E-03_JPRB,0.11327E-03_JPRB,0.10989E-03_JPRB,0.10910E-03_JPRB /) |
361 |
|
|
KA(:, 2,12) = (/ & |
362 |
|
|
& 0.11379E-03_JPRB,0.11322E-03_JPRB,0.11555E-03_JPRB,0.11462E-03_JPRB,0.11135E-03_JPRB /) |
363 |
|
|
KA(:, 3,12) = (/ & |
364 |
|
|
& 0.11508E-03_JPRB,0.11459E-03_JPRB,0.11421E-03_JPRB,0.11671E-03_JPRB,0.11339E-03_JPRB /) |
365 |
|
|
KA(:, 4,12) = (/ & |
366 |
|
|
& 0.11596E-03_JPRB,0.11563E-03_JPRB,0.11538E-03_JPRB,0.11511E-03_JPRB,0.11770E-03_JPRB /) |
367 |
|
|
KA(:, 5,12) = (/ & |
368 |
|
|
& 0.11597E-03_JPRB,0.11581E-03_JPRB,0.11569E-03_JPRB,0.11553E-03_JPRB,0.11890E-03_JPRB /) |
369 |
|
|
KA(:, 6,12) = (/ & |
370 |
|
|
& 0.11443E-03_JPRB,0.11445E-03_JPRB,0.11443E-03_JPRB,0.11443E-03_JPRB,0.11438E-03_JPRB /) |
371 |
|
|
KA(:, 7,12) = (/ & |
372 |
|
|
& 0.10852E-03_JPRB,0.10888E-03_JPRB,0.10912E-03_JPRB,0.10934E-03_JPRB,0.10942E-03_JPRB /) |
373 |
|
|
KA(:, 8,12) = (/ & |
374 |
|
|
& 0.93194E-04_JPRB,0.94766E-04_JPRB,0.95355E-04_JPRB,0.95090E-04_JPRB,0.94926E-04_JPRB /) |
375 |
|
|
KA(:, 9,12) = (/ & |
376 |
|
|
& 0.11836E-05_JPRB,0.16115E-05_JPRB,0.12883E-05_JPRB,0.14202E-05_JPRB,0.16541E-05_JPRB /) |
377 |
|
|
KA(:,10,12) = (/ & |
378 |
|
|
& 0.18748E-05_JPRB,0.34401E-05_JPRB,0.39984E-05_JPRB,0.44576E-05_JPRB,0.33683E-05_JPRB /) |
379 |
|
|
KA(:,11,12) = (/ & |
380 |
|
|
& 0.29890E-06_JPRB,0.48741E-06_JPRB,0.66276E-06_JPRB,0.99698E-06_JPRB,0.19230E-05_JPRB /) |
381 |
|
|
KA(:,12,12) = (/ & |
382 |
|
|
& 0.15034E-06_JPRB,0.39966E-06_JPRB,0.56523E-06_JPRB,0.70494E-06_JPRB,0.10046E-05_JPRB /) |
383 |
|
|
KA(:,13,12) = (/ & |
384 |
|
|
& 0.15016E-06_JPRB,0.25751E-06_JPRB,0.48928E-06_JPRB,0.63534E-06_JPRB,0.93575E-06_JPRB /) |
385 |
|
|
KA(:, 1,13) = (/ & |
386 |
|
|
& 0.17305E-03_JPRB,0.17234E-03_JPRB,0.17389E-03_JPRB,0.17055E-03_JPRB,0.16974E-03_JPRB /) |
387 |
|
|
KA(:, 2,13) = (/ & |
388 |
|
|
& 0.18170E-03_JPRB,0.18075E-03_JPRB,0.18265E-03_JPRB,0.18138E-03_JPRB,0.17772E-03_JPRB /) |
389 |
|
|
KA(:, 3,13) = (/ & |
390 |
|
|
& 0.18990E-03_JPRB,0.18892E-03_JPRB,0.18776E-03_JPRB,0.18950E-03_JPRB,0.18494E-03_JPRB /) |
391 |
|
|
KA(:, 4,13) = (/ & |
392 |
|
|
& 0.19649E-03_JPRB,0.19552E-03_JPRB,0.19424E-03_JPRB,0.19281E-03_JPRB,0.19464E-03_JPRB /) |
393 |
|
|
KA(:, 5,13) = (/ & |
394 |
|
|
& 0.20197E-03_JPRB,0.20109E-03_JPRB,0.19993E-03_JPRB,0.19856E-03_JPRB,0.20092E-03_JPRB /) |
395 |
|
|
KA(:, 6,13) = (/ & |
396 |
|
|
& 0.20595E-03_JPRB,0.20549E-03_JPRB,0.20452E-03_JPRB,0.20331E-03_JPRB,0.20199E-03_JPRB /) |
397 |
|
|
KA(:, 7,13) = (/ & |
398 |
|
|
& 0.20703E-03_JPRB,0.20710E-03_JPRB,0.20649E-03_JPRB,0.20552E-03_JPRB,0.20428E-03_JPRB /) |
399 |
|
|
KA(:, 8,13) = (/ & |
400 |
|
|
& 0.19874E-03_JPRB,0.19767E-03_JPRB,0.19696E-03_JPRB,0.19655E-03_JPRB,0.19591E-03_JPRB /) |
401 |
|
|
KA(:, 9,13) = (/ & |
402 |
|
|
& 0.20434E-04_JPRB,0.23398E-04_JPRB,0.27400E-04_JPRB,0.32409E-04_JPRB,0.38451E-04_JPRB /) |
403 |
|
|
KA(:,10,13) = (/ & |
404 |
|
|
& 0.18617E-05_JPRB,0.99513E-06_JPRB,0.10554E-05_JPRB,0.16516E-05_JPRB,0.37792E-05_JPRB /) |
405 |
|
|
KA(:,11,13) = (/ & |
406 |
|
|
& 0.12517E-06_JPRB,0.29518E-06_JPRB,0.77058E-06_JPRB,0.11660E-05_JPRB,0.15349E-05_JPRB /) |
407 |
|
|
KA(:,12,13) = (/ & |
408 |
|
|
& 0.12734E-06_JPRB,0.36524E-06_JPRB,0.66699E-06_JPRB,0.10362E-05_JPRB,0.14158E-05_JPRB /) |
409 |
|
|
KA(:,13,13) = (/ & |
410 |
|
|
& 0.12431E-06_JPRB,0.39389E-06_JPRB,0.67331E-06_JPRB,0.10292E-05_JPRB,0.14448E-05_JPRB /) |
411 |
|
|
KA(:, 1,14) = (/ & |
412 |
|
|
& 0.29365E-03_JPRB,0.29046E-03_JPRB,0.29008E-03_JPRB,0.28509E-03_JPRB,0.28286E-03_JPRB /) |
413 |
|
|
KA(:, 2,14) = (/ & |
414 |
|
|
& 0.31990E-03_JPRB,0.31668E-03_JPRB,0.31617E-03_JPRB,0.31332E-03_JPRB,0.30885E-03_JPRB /) |
415 |
|
|
KA(:, 3,14) = (/ & |
416 |
|
|
& 0.34787E-03_JPRB,0.34432E-03_JPRB,0.34112E-03_JPRB,0.34052E-03_JPRB,0.33589E-03_JPRB /) |
417 |
|
|
KA(:, 4,14) = (/ & |
418 |
|
|
& 0.37401E-03_JPRB,0.37027E-03_JPRB,0.36696E-03_JPRB,0.36394E-03_JPRB,0.36355E-03_JPRB /) |
419 |
|
|
KA(:, 5,14) = (/ & |
420 |
|
|
& 0.39840E-03_JPRB,0.39446E-03_JPRB,0.39082E-03_JPRB,0.38763E-03_JPRB,0.38760E-03_JPRB /) |
421 |
|
|
KA(:, 6,14) = (/ & |
422 |
|
|
& 0.42165E-03_JPRB,0.41729E-03_JPRB,0.41335E-03_JPRB,0.41006E-03_JPRB,0.40721E-03_JPRB /) |
423 |
|
|
KA(:, 7,14) = (/ & |
424 |
|
|
& 0.44257E-03_JPRB,0.43782E-03_JPRB,0.43364E-03_JPRB,0.43014E-03_JPRB,0.42736E-03_JPRB /) |
425 |
|
|
KA(:, 8,14) = (/ & |
426 |
|
|
& 0.45299E-03_JPRB,0.44953E-03_JPRB,0.44586E-03_JPRB,0.44260E-03_JPRB,0.44006E-03_JPRB /) |
427 |
|
|
KA(:, 9,14) = (/ & |
428 |
|
|
& 0.40190E-03_JPRB,0.39751E-03_JPRB,0.39238E-03_JPRB,0.38812E-03_JPRB,0.38612E-03_JPRB /) |
429 |
|
|
KA(:,10,14) = (/ & |
430 |
|
|
& 0.64278E-05_JPRB,0.18248E-05_JPRB,0.16996E-05_JPRB,0.31086E-06_JPRB,0.16836E-06_JPRB /) |
431 |
|
|
KA(:,11,14) = (/ & |
432 |
|
|
& 0.14350E-05_JPRB,0.94778E-06_JPRB,0.41349E-06_JPRB,0.20817E-06_JPRB,0.20238E-06_JPRB /) |
433 |
|
|
KA(:,12,14) = (/ & |
434 |
|
|
& 0.16805E-05_JPRB,0.15323E-05_JPRB,0.62348E-06_JPRB,0.99743E-07_JPRB,0.12977E-06_JPRB /) |
435 |
|
|
KA(:,13,14) = (/ & |
436 |
|
|
& 0.16858E-05_JPRB,0.17103E-05_JPRB,0.80574E-06_JPRB,0.15825E-06_JPRB,0.15032E-06_JPRB /) |
437 |
|
|
KA(:, 1,15) = (/ & |
438 |
|
|
& 0.52181E-03_JPRB,0.51578E-03_JPRB,0.51251E-03_JPRB,0.50356E-03_JPRB,0.49731E-03_JPRB /) |
439 |
|
|
KA(:, 2,15) = (/ & |
440 |
|
|
& 0.59491E-03_JPRB,0.58822E-03_JPRB,0.58413E-03_JPRB,0.57646E-03_JPRB,0.56692E-03_JPRB /) |
441 |
|
|
KA(:, 3,15) = (/ & |
442 |
|
|
& 0.67653E-03_JPRB,0.66881E-03_JPRB,0.66126E-03_JPRB,0.65540E-03_JPRB,0.64461E-03_JPRB /) |
443 |
|
|
KA(:, 4,15) = (/ & |
444 |
|
|
& 0.76388E-03_JPRB,0.75456E-03_JPRB,0.74556E-03_JPRB,0.73649E-03_JPRB,0.72840E-03_JPRB /) |
445 |
|
|
KA(:, 5,15) = (/ & |
446 |
|
|
& 0.85507E-03_JPRB,0.84417E-03_JPRB,0.83378E-03_JPRB,0.82338E-03_JPRB,0.81349E-03_JPRB /) |
447 |
|
|
KA(:, 6,15) = (/ & |
448 |
|
|
& 0.95034E-03_JPRB,0.93798E-03_JPRB,0.92553E-03_JPRB,0.91287E-03_JPRB,0.89957E-03_JPRB /) |
449 |
|
|
KA(:, 7,15) = (/ & |
450 |
|
|
& 0.10496E-02_JPRB,0.10352E-02_JPRB,0.10206E-02_JPRB,0.10054E-02_JPRB,0.98958E-03_JPRB /) |
451 |
|
|
KA(:, 8,15) = (/ & |
452 |
|
|
& 0.11507E-02_JPRB,0.11337E-02_JPRB,0.11169E-02_JPRB,0.10991E-02_JPRB,0.10806E-02_JPRB /) |
453 |
|
|
KA(:, 9,15) = (/ & |
454 |
|
|
& 0.12408E-02_JPRB,0.12207E-02_JPRB,0.11996E-02_JPRB,0.11773E-02_JPRB,0.11531E-02_JPRB /) |
455 |
|
|
KA(:,10,15) = (/ & |
456 |
|
|
& 0.12042E-03_JPRB,0.11501E-03_JPRB,0.11424E-03_JPRB,0.11450E-03_JPRB,0.13219E-03_JPRB /) |
457 |
|
|
KA(:,11,15) = (/ & |
458 |
|
|
& 0.68914E-06_JPRB,0.83960E-06_JPRB,0.74591E-06_JPRB,0.18660E-05_JPRB,0.32503E-05_JPRB /) |
459 |
|
|
KA(:,12,15) = (/ & |
460 |
|
|
& 0.35963E-07_JPRB,0.46256E-06_JPRB,0.56223E-06_JPRB,0.98816E-06_JPRB,0.92366E-06_JPRB /) |
461 |
|
|
KA(:,13,15) = (/ & |
462 |
|
|
& 0.36605E-07_JPRB,0.56591E-06_JPRB,0.84008E-06_JPRB,0.86042E-06_JPRB,0.68452E-06_JPRB /) |
463 |
|
|
KA(:, 1,16) = (/ & |
464 |
|
|
& 0.76517E-03_JPRB,0.75944E-03_JPRB,0.76010E-03_JPRB,0.76100E-03_JPRB,0.76498E-03_JPRB /) |
465 |
|
|
KA(:, 2,16) = (/ & |
466 |
|
|
& 0.92375E-03_JPRB,0.91357E-03_JPRB,0.90997E-03_JPRB,0.90997E-03_JPRB,0.90993E-03_JPRB /) |
467 |
|
|
KA(:, 3,16) = (/ & |
468 |
|
|
& 0.11142E-02_JPRB,0.10974E-02_JPRB,0.10835E-02_JPRB,0.10789E-02_JPRB,0.10748E-02_JPRB /) |
469 |
|
|
KA(:, 4,16) = (/ & |
470 |
|
|
& 0.13278E-02_JPRB,0.13025E-02_JPRB,0.12802E-02_JPRB,0.12631E-02_JPRB,0.12539E-02_JPRB /) |
471 |
|
|
KA(:, 5,16) = (/ & |
472 |
|
|
& 0.15712E-02_JPRB,0.15343E-02_JPRB,0.15017E-02_JPRB,0.14713E-02_JPRB,0.14497E-02_JPRB /) |
473 |
|
|
KA(:, 6,16) = (/ & |
474 |
|
|
& 0.18525E-02_JPRB,0.17982E-02_JPRB,0.17525E-02_JPRB,0.17101E-02_JPRB,0.16714E-02_JPRB /) |
475 |
|
|
KA(:, 7,16) = (/ & |
476 |
|
|
& 0.21731E-02_JPRB,0.20986E-02_JPRB,0.20340E-02_JPRB,0.19757E-02_JPRB,0.19210E-02_JPRB /) |
477 |
|
|
KA(:, 8,16) = (/ & |
478 |
|
|
& 0.25325E-02_JPRB,0.24346E-02_JPRB,0.23473E-02_JPRB,0.22687E-02_JPRB,0.21950E-02_JPRB /) |
479 |
|
|
KA(:, 9,16) = (/ & |
480 |
|
|
& 0.29269E-02_JPRB,0.28006E-02_JPRB,0.26863E-02_JPRB,0.25805E-02_JPRB,0.24878E-02_JPRB /) |
481 |
|
|
KA(:,10,16) = (/ & |
482 |
|
|
& 0.29442E-02_JPRB,0.27008E-02_JPRB,0.23913E-02_JPRB,0.21437E-02_JPRB,0.18865E-02_JPRB /) |
483 |
|
|
KA(:,11,16) = (/ & |
484 |
|
|
& 0.23220E-05_JPRB,0.22310E-04_JPRB,0.48349E-04_JPRB,0.67183E-04_JPRB,0.88908E-04_JPRB /) |
485 |
|
|
KA(:,12,16) = (/ & |
486 |
|
|
& 0.22857E-05_JPRB,0.11848E-04_JPRB,0.42066E-04_JPRB,0.67613E-04_JPRB,0.86033E-04_JPRB /) |
487 |
|
|
KA(:,13,16) = (/ & |
488 |
|
|
& 0.22823E-05_JPRB,0.69105E-05_JPRB,0.36212E-04_JPRB,0.66247E-04_JPRB,0.85488E-04_JPRB /) |
489 |
|
|
|
490 |
|
|
! ----------------------------------------------------------------- |
491 |
|
|
IF (LHOOK) CALL DR_HOOK('SRTM_KGB25',1,ZHOOK_HANDLE) |
492 |
|
|
END SUBROUTINE SRTM_KGB25 |
493 |
|
|
|