/[MITgcm]/MITgcm/pkg/fizhi/o3-tran3.h
ViewVC logotype

Annotation of /MITgcm/pkg/fizhi/o3-tran3.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Tue Jul 13 21:25:53 2004 UTC (19 years, 10 months ago) by molod
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, checkpoint57v_post, checkpoint58u_post, checkpoint58w_post, checkpoint57m_post, checkpoint55c_post, checkpoint54e_post, checkpoint57s_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint57e_post, checkpoint55h_post, checkpoint58n_post, checkpoint58x_post, checkpoint57g_pre, checkpoint55b_post, checkpoint58t_post, checkpoint58h_post, checkpoint54d_post, checkpoint56c_post, checkpoint57y_pre, checkpoint55, checkpoint57f_pre, checkpoint57a_post, checkpoint58q_post, checkpoint54f_post, checkpoint55g_post, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59h, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57h_done, checkpoint58f_post, checkpoint57x_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint57c_post, checkpoint58y_post, checkpoint55e_post, checkpoint58k_post, checkpoint58v_post, checkpoint55a_post, checkpoint54c_post, checkpoint58s_post, checkpoint58p_post, checkpoint57j_post, checkpoint58b_post, checkpoint57h_pre, checkpoint58m_post, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post
File MIME type: text/plain 
Rename transfer coefficient data files to .h files
1 molod 1.1 data ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/
2     & 0.6563E-05, 0.1313E-04, 0.2665E-04, 0.5396E-04, 0.1083E-03,
3     & 0.2137E-03, 0.4209E-03, 0.8162E-03, 0.1556E-02, 0.2879E-02,
4     & 0.5105E-02, 0.8554E-02, 0.1344E-01, 0.1992E-01, 0.2835E-01,
5     & 0.3956E-01, 0.5473E-01, 0.7537E-01, 0.1029E+00, 0.1382E+00,
6     & 0.1820E+00/
7     data ((o2(ip,iw,1),iw=1,21),ip= 1, 1)/
8     & 0.6531E-10, 0.5926E-10, -0.1646E-09, -0.1454E-08, -0.7376E-08,
9     & -0.2968E-07, -0.1071E-06, -0.3584E-06, -0.1125E-05, -0.3289E-05,
10     & -0.8760E-05, -0.2070E-04, -0.4259E-04, -0.7691E-04, -0.1264E-03,
11     & -0.1957E-03, -0.2895E-03, -0.4107E-03, -0.5588E-03, -0.7300E-03,
12     & -0.9199E-03/
13     data ((o3(ip,iw,1),iw=1,21),ip= 1, 1)/
14     & -0.2438E-10, -0.4826E-10, -0.9474E-10, -0.1828E-09, -0.3406E-09,
15     & -0.6223E-09, -0.1008E-08, -0.1412E-08, -0.1244E-08, 0.8485E-09,
16     & 0.6343E-08, 0.1201E-07, 0.2838E-08, -0.4024E-07, -0.1257E-06,
17     & -0.2566E-06, -0.4298E-06, -0.6184E-06, -0.7657E-06, -0.8153E-06,
18     & -0.7552E-06/
19     data ((o1(ip,iw,1),iw=1,21),ip= 2, 2)/
20     & 0.6563E-05, 0.1313E-04, 0.2652E-04, 0.5396E-04, 0.1083E-03,
21     & 0.2137E-03, 0.4209E-03, 0.8162E-03, 0.1556E-02, 0.2879E-02,
22     & 0.5105E-02, 0.8557E-02, 0.1345E-01, 0.1993E-01, 0.2837E-01,
23     & 0.3958E-01, 0.5480E-01, 0.7550E-01, 0.1031E+00, 0.1386E+00,
24     & 0.1826E+00/
25     data ((o2(ip,iw,1),iw=1,21),ip= 2, 2)/
26     & 0.6193E-10, 0.5262E-10, -0.1774E-09, -0.1478E-08, -0.7416E-08,
27     & -0.2985E-07, -0.1071E-06, -0.3584E-06, -0.1124E-05, -0.3287E-05,
28     & -0.8753E-05, -0.2069E-04, -0.4256E-04, -0.7686E-04, -0.1264E-03,
29     & -0.1956E-03, -0.2893E-03, -0.4103E-03, -0.5580E-03, -0.7285E-03,
30     & -0.9171E-03/
31     data ((o3(ip,iw,1),iw=1,21),ip= 2, 2)/
32     & -0.2436E-10, -0.4822E-10, -0.9466E-10, -0.1827E-09, -0.3404E-09,
33     & -0.6220E-09, -0.1008E-08, -0.1414E-08, -0.1247E-08, 0.8360E-09,
34     & 0.6312E-08, 0.1194E-07, 0.2753E-08, -0.4040E-07, -0.1260E-06,
35     & -0.2571E-06, -0.4307E-06, -0.6202E-06, -0.7687E-06, -0.8204E-06,
36     & -0.7636E-06/
37     data ((o1(ip,iw,1),iw=1,21),ip= 3, 3)/
38     & 0.6563E-05, 0.1313E-04, 0.2652E-04, 0.5396E-04, 0.1083E-03,
39     & 0.2137E-03, 0.4209E-03, 0.8162E-03, 0.1556E-02, 0.2879E-02,
40     & 0.5107E-02, 0.8561E-02, 0.1345E-01, 0.1994E-01, 0.2841E-01,
41     & 0.3964E-01, 0.5491E-01, 0.7568E-01, 0.1034E+00, 0.1392E+00,
42     & 0.1836E+00/
43     data ((o2(ip,iw,1),iw=1,21),ip= 3, 3)/
44     & 0.5658E-10, 0.4212E-10, -0.1977E-09, -0.1516E-08, -0.7481E-08,
45     & -0.2995E-07, -0.1072E-06, -0.3583E-06, -0.1123E-05, -0.3283E-05,
46     & -0.8744E-05, -0.2067E-04, -0.4252E-04, -0.7679E-04, -0.1262E-03,
47     & -0.1953E-03, -0.2889E-03, -0.4096E-03, -0.5567E-03, -0.7263E-03,
48     & -0.9130E-03/
49     data ((o3(ip,iw,1),iw=1,21),ip= 3, 3)/
50     & -0.2433E-10, -0.4815E-10, -0.9453E-10, -0.1825E-09, -0.3400E-09,
51     & -0.6215E-09, -0.1007E-08, -0.1415E-08, -0.1253E-08, 0.8143E-09,
52     & 0.6269E-08, 0.1186E-07, 0.2604E-08, -0.4067E-07, -0.1264E-06,
53     & -0.2579E-06, -0.4321E-06, -0.6229E-06, -0.7732E-06, -0.8277E-06,
54     & -0.7752E-06/
55     data ((o1(ip,iw,1),iw=1,21),ip= 4, 4)/
56     & 0.6563E-05, 0.1313E-04, 0.2652E-04, 0.5396E-04, 0.1080E-03,
57     & 0.2137E-03, 0.4209E-03, 0.8162E-03, 0.1556E-02, 0.2881E-02,
58     & 0.5107E-02, 0.8565E-02, 0.1347E-01, 0.1997E-01, 0.2846E-01,
59     & 0.3973E-01, 0.5506E-01, 0.7596E-01, 0.1039E+00, 0.1401E+00,
60     & 0.1852E+00/
61     data ((o2(ip,iw,1),iw=1,21),ip= 4, 4)/
62     & 0.4814E-10, 0.2552E-10, -0.2298E-09, -0.1576E-08, -0.7579E-08,
63     & -0.3009E-07, -0.1074E-06, -0.3581E-06, -0.1122E-05, -0.3278E-05,
64     & -0.8729E-05, -0.2063E-04, -0.4245E-04, -0.7667E-04, -0.1260E-03,
65     & -0.1950E-03, -0.2883E-03, -0.4086E-03, -0.5549E-03, -0.7229E-03,
66     & -0.9071E-03/
67     data ((o3(ip,iw,1),iw=1,21),ip= 4, 4)/
68     & -0.2428E-10, -0.4805E-10, -0.9433E-10, -0.1821E-09, -0.3394E-09,
69     & -0.6206E-09, -0.1008E-08, -0.1416E-08, -0.1261E-08, 0.7860E-09,
70     & 0.6188E-08, 0.1171E-07, 0.2389E-08, -0.4109E-07, -0.1271E-06,
71     & -0.2591E-06, -0.4344E-06, -0.6267E-06, -0.7797E-06, -0.8378E-06,
72     & -0.7901E-06/
73     data ((o1(ip,iw,1),iw=1,21),ip= 5, 5)/
74     & 0.6563E-05, 0.1313E-04, 0.2652E-04, 0.5396E-04, 0.1080E-03,
75     & 0.2136E-03, 0.4209E-03, 0.8162E-03, 0.1556E-02, 0.2881E-02,
76     & 0.5112E-02, 0.8574E-02, 0.1349E-01, 0.2001E-01, 0.2852E-01,
77     & 0.3989E-01, 0.5533E-01, 0.7643E-01, 0.1047E+00, 0.1414E+00,
78     & 0.1875E+00/
79     data ((o2(ip,iw,1),iw=1,21),ip= 5, 5)/
80     & 0.3482E-10, -0.6492E-12, -0.2805E-09, -0.1671E-08, -0.7740E-08,
81     & -0.3032E-07, -0.1076E-06, -0.3582E-06, -0.1120E-05, -0.3270E-05,
82     & -0.8704E-05, -0.2058E-04, -0.4235E-04, -0.7649E-04, -0.1257E-03,
83     & -0.1945E-03, -0.2874E-03, -0.4070E-03, -0.5521E-03, -0.7181E-03,
84     & -0.8990E-03/
85     data ((o3(ip,iw,1),iw=1,21),ip= 5, 5)/
86     & -0.2419E-10, -0.4788E-10, -0.9401E-10, -0.1815E-09, -0.3385E-09,
87     & -0.6192E-09, -0.1006E-08, -0.1417E-08, -0.1273E-08, 0.7404E-09,
88     & 0.6068E-08, 0.1148E-07, 0.2021E-08, -0.4165E-07, -0.1281E-06,
89     & -0.2609E-06, -0.4375E-06, -0.6323E-06, -0.7887E-06, -0.8508E-06,
90     & -0.8067E-06/
91     data ((o1(ip,iw,1),iw=1,21),ip= 6, 6)/
92     & 0.6563E-05, 0.1313E-04, 0.2652E-04, 0.5396E-04, 0.1080E-03,
93     & 0.2136E-03, 0.4207E-03, 0.8162E-03, 0.1557E-02, 0.2883E-02,
94     & 0.5116E-02, 0.8587E-02, 0.1352E-01, 0.2008E-01, 0.2865E-01,
95     & 0.4011E-01, 0.5572E-01, 0.7713E-01, 0.1059E+00, 0.1436E+00,
96     & 0.1911E+00/
97     data ((o2(ip,iw,1),iw=1,21),ip= 6, 6)/
98     & 0.1388E-10, -0.4180E-10, -0.3601E-09, -0.1820E-08, -0.7993E-08,
99     & -0.3068E-07, -0.1081E-06, -0.3580E-06, -0.1117E-05, -0.3257E-05,
100     & -0.8667E-05, -0.2049E-04, -0.4218E-04, -0.7620E-04, -0.1253E-03,
101     & -0.1937E-03, -0.2860E-03, -0.4047E-03, -0.5481E-03, -0.7115E-03,
102     & -0.8885E-03/
103     data ((o3(ip,iw,1),iw=1,21),ip= 6, 6)/
104     & -0.2406E-10, -0.4762E-10, -0.9351E-10, -0.1806E-09, -0.3370E-09,
105     & -0.6170E-09, -0.1004E-08, -0.1417E-08, -0.1297E-08, 0.6738E-09,
106     & 0.5895E-08, 0.1113E-07, 0.1466E-08, -0.4265E-07, -0.1298E-06,
107     & -0.2636E-06, -0.4423E-06, -0.6402E-06, -0.8005E-06, -0.8658E-06,
108     & -0.8222E-06/
109     data ((o1(ip,iw,1),iw=1,21),ip= 7, 7)/
110     & 0.6563E-05, 0.1313E-04, 0.2652E-04, 0.5370E-04, 0.1080E-03,
111     & 0.2136E-03, 0.4207E-03, 0.8164E-03, 0.1557E-02, 0.2885E-02,
112     & 0.5125E-02, 0.8612E-02, 0.1357E-01, 0.2018E-01, 0.2885E-01,
113     & 0.4046E-01, 0.5636E-01, 0.7823E-01, 0.1078E+00, 0.1467E+00,
114     & 0.1962E+00/
115     data ((o2(ip,iw,1),iw=1,21),ip= 7, 7)/
116     & -0.1889E-10, -0.1062E-09, -0.4847E-09, -0.2053E-08, -0.8389E-08,
117     & -0.3140E-07, -0.1089E-06, -0.3577E-06, -0.1112E-05, -0.3236E-05,
118     & -0.8607E-05, -0.2035E-04, -0.4192E-04, -0.7576E-04, -0.1245E-03,
119     & -0.1925E-03, -0.2840E-03, -0.4013E-03, -0.5427E-03, -0.7029E-03,
120     & -0.8756E-03/
121     data ((o3(ip,iw,1),iw=1,21),ip= 7, 7)/
122     & -0.2385E-10, -0.4722E-10, -0.9273E-10, -0.1791E-09, -0.3348E-09,
123     & -0.6121E-09, -0.9974E-09, -0.1422E-08, -0.1326E-08, 0.5603E-09,
124     & 0.5604E-08, 0.1061E-07, 0.6106E-09, -0.4398E-07, -0.1321E-06,
125     & -0.2676E-06, -0.4490E-06, -0.6507E-06, -0.8145E-06, -0.8801E-06,
126     & -0.8311E-06/
127     data ((o1(ip,iw,1),iw=1,21),ip= 8, 8)/
128     & 0.6563E-05, 0.1313E-04, 0.2652E-04, 0.5370E-04, 0.1077E-03,
129     & 0.2135E-03, 0.4207E-03, 0.8171E-03, 0.1559E-02, 0.2890E-02,
130     & 0.5138E-02, 0.8645E-02, 0.1365E-01, 0.2034E-01, 0.2916E-01,
131     & 0.4101E-01, 0.5733E-01, 0.7990E-01, 0.1107E+00, 0.1514E+00,
132     & 0.2036E+00/
133     data ((o2(ip,iw,1),iw=1,21),ip= 8, 8)/
134     & -0.6983E-10, -0.2063E-09, -0.6785E-09, -0.2416E-08, -0.9000E-08,
135     & -0.3243E-07, -0.1100E-06, -0.3574E-06, -0.1104E-05, -0.3205E-05,
136     & -0.8516E-05, -0.2014E-04, -0.4151E-04, -0.7508E-04, -0.1234E-03,
137     & -0.1907E-03, -0.2811E-03, -0.3966E-03, -0.5355E-03, -0.6924E-03,
138     & -0.8613E-03/
139     data ((o3(ip,iw,1),iw=1,21),ip= 8, 8)/
140     & -0.2353E-10, -0.4659E-10, -0.9153E-10, -0.1769E-09, -0.3313E-09,
141     & -0.6054E-09, -0.9899E-09, -0.1430E-08, -0.1375E-08, 0.3874E-09,
142     & 0.5171E-08, 0.9807E-08, -0.7345E-09, -0.4604E-07, -0.1356E-06,
143     & -0.2731E-06, -0.4577E-06, -0.6632E-06, -0.8284E-06, -0.8894E-06,
144     & -0.8267E-06/
145     data ((o1(ip,iw,1),iw=1,21),ip= 9, 9)/
146     & 0.6563E-05, 0.1313E-04, 0.2639E-04, 0.5370E-04, 0.1077E-03,
147     & 0.2135E-03, 0.4204E-03, 0.8175E-03, 0.1561E-02, 0.2898E-02,
148     & 0.5160E-02, 0.8697E-02, 0.1377E-01, 0.2059E-01, 0.2962E-01,
149     & 0.4185E-01, 0.5881E-01, 0.8244E-01, 0.1149E+00, 0.1581E+00,
150     & 0.2139E+00/
151     data ((o2(ip,iw,1),iw=1,21),ip= 9, 9)/
152     & -0.1481E-09, -0.3601E-09, -0.9762E-09, -0.2973E-08, -0.1014E-07,
153     & -0.3421E-07, -0.1121E-06, -0.3569E-06, -0.1092E-05, -0.3156E-05,
154     & -0.8375E-05, -0.1981E-04, -0.4090E-04, -0.7405E-04, -0.1218E-03,
155     & -0.1881E-03, -0.2770E-03, -0.3906E-03, -0.5269E-03, -0.6810E-03,
156     & -0.8471E-03/
157     data ((o3(ip,iw,1),iw=1,21),ip= 9, 9)/
158     & -0.2304E-10, -0.4564E-10, -0.8969E-10, -0.1735E-09, -0.3224E-09,
159     & -0.5933E-09, -0.9756E-09, -0.1428E-08, -0.1446E-08, 0.1156E-09,
160     & 0.4499E-08, 0.8469E-08, -0.2720E-08, -0.4904E-07, -0.1401E-06,
161     & -0.2801E-06, -0.4681E-06, -0.6761E-06, -0.8387E-06, -0.8879E-06,
162     & -0.8040E-06/
163     data ((o1(ip,iw,1),iw=1,21),ip=10,10)/
164     & 0.6563E-05, 0.1313E-04, 0.2639E-04, 0.5370E-04, 0.1074E-03,
165     & 0.2135E-03, 0.4207E-03, 0.8184E-03, 0.1564E-02, 0.2909E-02,
166     & 0.5191E-02, 0.8779E-02, 0.1396E-01, 0.2098E-01, 0.3035E-01,
167     & 0.4315E-01, 0.6103E-01, 0.8614E-01, 0.1209E+00, 0.1675E+00,
168     & 0.2280E+00/
169     data ((o2(ip,iw,1),iw=1,21),ip=10,10)/
170     & -0.2661E-09, -0.5923E-09, -0.1426E-08, -0.3816E-08, -0.1159E-07,
171     & -0.3654E-07, -0.1143E-06, -0.3559E-06, -0.1074E-05, -0.3083E-05,
172     & -0.8159E-05, -0.1932E-04, -0.3998E-04, -0.7253E-04, -0.1194E-03,
173     & -0.1845E-03, -0.2718E-03, -0.3833E-03, -0.5176E-03, -0.6701E-03,
174     & -0.8354E-03/
175     data ((o3(ip,iw,1),iw=1,21),ip=10,10)/
176     & -0.2232E-10, -0.4421E-10, -0.8695E-10, -0.1684E-09, -0.3141E-09,
177     & -0.5765E-09, -0.9606E-09, -0.1434E-08, -0.1551E-08, -0.2663E-09,
178     & 0.3515E-08, 0.6549E-08, -0.5479E-08, -0.5312E-07, -0.1460E-06,
179     & -0.2883E-06, -0.4787E-06, -0.6863E-06, -0.8399E-06, -0.8703E-06,
180     & -0.7602E-06/
181     data ((o1(ip,iw,1),iw=1,21),ip=11,11)/
182     & 0.6433E-05, 0.1300E-04, 0.2639E-04, 0.5370E-04, 0.1071E-03,
183     & 0.2132E-03, 0.4209E-03, 0.8204E-03, 0.1570E-02, 0.2925E-02,
184     & 0.5240E-02, 0.8905E-02, 0.1425E-01, 0.2156E-01, 0.3145E-01,
185     & 0.4506E-01, 0.6427E-01, 0.9147E-01, 0.1293E+00, 0.1803E+00,
186     & 0.2462E+00/
187     data ((o2(ip,iw,1),iw=1,21),ip=11,11)/
188     & -0.4394E-09, -0.9330E-09, -0.2086E-08, -0.5054E-08, -0.1373E-07,
189     & -0.3971E-07, -0.1178E-06, -0.3546E-06, -0.1049E-05, -0.2976E-05,
190     & -0.7847E-05, -0.1860E-04, -0.3864E-04, -0.7038E-04, -0.1162E-03,
191     & -0.1798E-03, -0.2654E-03, -0.3754E-03, -0.5091E-03, -0.6621E-03,
192     & -0.8286E-03/
193     data ((o3(ip,iw,1),iw=1,21),ip=11,11)/
194     & -0.2127E-10, -0.4216E-10, -0.8300E-10, -0.1611E-09, -0.3019E-09,
195     & -0.5597E-09, -0.9431E-09, -0.1450E-08, -0.1694E-08, -0.7913E-09,
196     & 0.2144E-08, 0.3990E-08, -0.9282E-08, -0.5810E-07, -0.1525E-06,
197     & -0.2965E-06, -0.4869E-06, -0.6894E-06, -0.8281E-06, -0.8350E-06,
198     & -0.6956E-06/
199     data ((o1(ip,iw,1),iw=1,21),ip=12,12)/
200     & 0.6301E-05, 0.1300E-04, 0.2625E-04, 0.5370E-04, 0.1074E-03,
201     & 0.2129E-03, 0.4215E-03, 0.8226E-03, 0.1578E-02, 0.2951E-02,
202     & 0.5312E-02, 0.9090E-02, 0.1467E-01, 0.2242E-01, 0.3306E-01,
203     & 0.4786E-01, 0.6891E-01, 0.9889E-01, 0.1407E+00, 0.1971E+00,
204     & 0.2698E+00/
205     data ((o2(ip,iw,1),iw=1,21),ip=12,12)/
206     & -0.6829E-09, -0.1412E-08, -0.3014E-08, -0.6799E-08, -0.1675E-07,
207     & -0.4450E-07, -0.1235E-06, -0.3538E-06, -0.1014E-05, -0.2827E-05,
208     & -0.7407E-05, -0.1759E-04, -0.3676E-04, -0.6744E-04, -0.1120E-03,
209     & -0.1742E-03, -0.2585E-03, -0.3683E-03, -0.5034E-03, -0.6594E-03,
210     & -0.8290E-03/
211     data ((o3(ip,iw,1),iw=1,21),ip=12,12)/
212     & -0.1985E-10, -0.3937E-10, -0.7761E-10, -0.1511E-09, -0.2855E-09,
213     & -0.5313E-09, -0.9251E-09, -0.1470E-08, -0.1898E-08, -0.1519E-08,
214     & 0.2914E-09, 0.5675E-09, -0.1405E-07, -0.6359E-07, -0.1584E-06,
215     & -0.3020E-06, -0.4893E-06, -0.6821E-06, -0.8021E-06, -0.7834E-06,
216     & -0.6105E-06/
217     data ((o1(ip,iw,1),iw=1,21),ip=13,13)/
218     & 0.6301E-05, 0.1300E-04, 0.2612E-04, 0.5303E-04, 0.1071E-03,
219     & 0.2128E-03, 0.4222E-03, 0.8259E-03, 0.1590E-02, 0.2987E-02,
220     & 0.5414E-02, 0.9354E-02, 0.1528E-01, 0.2368E-01, 0.3535E-01,
221     & 0.5180E-01, 0.7532E-01, 0.1089E+00, 0.1557E+00, 0.2186E+00,
222     & 0.2993E+00/
223     data ((o2(ip,iw,1),iw=1,21),ip=13,13)/
224     & -0.1004E-08, -0.2043E-08, -0.4239E-08, -0.9104E-08, -0.2075E-07,
225     & -0.5096E-07, -0.1307E-06, -0.3520E-06, -0.9671E-06, -0.2630E-05,
226     & -0.6825E-05, -0.1624E-04, -0.3429E-04, -0.6369E-04, -0.1069E-03,
227     & -0.1680E-03, -0.2520E-03, -0.3635E-03, -0.5029E-03, -0.6647E-03,
228     & -0.8390E-03/
229     data ((o3(ip,iw,1),iw=1,21),ip=13,13)/
230     & -0.1807E-10, -0.3587E-10, -0.7085E-10, -0.1385E-09, -0.2648E-09,
231     & -0.4958E-09, -0.8900E-09, -0.1473E-08, -0.2112E-08, -0.2399E-08,
232     & -0.2002E-08, -0.3646E-08, -0.1931E-07, -0.6852E-07, -0.1618E-06,
233     & -0.3021E-06, -0.4828E-06, -0.6634E-06, -0.7643E-06, -0.7177E-06,
234     & -0.5054E-06/
235     data ((o1(ip,iw,1),iw=1,21),ip=14,14)/
236     & 0.6301E-05, 0.1286E-04, 0.2612E-04, 0.5277E-04, 0.1071E-03,
237     & 0.2132E-03, 0.4240E-03, 0.8303E-03, 0.1605E-02, 0.3033E-02,
238     & 0.5550E-02, 0.9717E-02, 0.1613E-01, 0.2542E-01, 0.3852E-01,
239     & 0.5715E-01, 0.8387E-01, 0.1219E+00, 0.1748E+00, 0.2451E+00,
240     & 0.3348E+00/
241     data ((o2(ip,iw,1),iw=1,21),ip=14,14)/
242     & -0.1387E-08, -0.2798E-08, -0.5706E-08, -0.1187E-07, -0.2564E-07,
243     & -0.5866E-07, -0.1398E-06, -0.3516E-06, -0.9148E-06, -0.2398E-05,
244     & -0.6122E-05, -0.1459E-04, -0.3125E-04, -0.5923E-04, -0.1013E-03,
245     & -0.1620E-03, -0.2473E-03, -0.3631E-03, -0.5098E-03, -0.6800E-03,
246     & -0.8603E-03/
247     data ((o3(ip,iw,1),iw=1,21),ip=14,14)/
248     & -0.1610E-10, -0.3200E-10, -0.6337E-10, -0.1245E-09, -0.2408E-09,
249     & -0.4533E-09, -0.8405E-09, -0.1464E-08, -0.2337E-08, -0.3341E-08,
250     & -0.4467E-08, -0.8154E-08, -0.2436E-07, -0.7128E-07, -0.1604E-06,
251     & -0.2945E-06, -0.4666E-06, -0.6357E-06, -0.7187E-06, -0.6419E-06,
252     & -0.3795E-06/
253     data ((o1(ip,iw,1),iw=1,21),ip=15,15)/
254     & 0.5907E-05, 0.1273E-04, 0.2546E-04, 0.5277E-04, 0.1067E-03,
255     & 0.2137E-03, 0.4253E-03, 0.8361E-03, 0.1623E-02, 0.3092E-02,
256     & 0.5722E-02, 0.1018E-01, 0.1722E-01, 0.2768E-01, 0.4268E-01,
257     & 0.6414E-01, 0.9479E-01, 0.1382E+00, 0.1981E+00, 0.2771E+00,
258     & 0.3762E+00/
259     data ((o2(ip,iw,1),iw=1,21),ip=15,15)/
260     & -0.1788E-08, -0.3588E-08, -0.7244E-08, -0.1479E-07, -0.3083E-07,
261     & -0.6671E-07, -0.1497E-06, -0.3519E-06, -0.8607E-06, -0.2154E-05,
262     & -0.5364E-05, -0.1276E-04, -0.2785E-04, -0.5435E-04, -0.9573E-04,
263     & -0.1570E-03, -0.2455E-03, -0.3682E-03, -0.5253E-03, -0.7065E-03,
264     & -0.8938E-03/
265     data ((o3(ip,iw,1),iw=1,21),ip=15,15)/
266     & -0.1429E-10, -0.2843E-10, -0.5645E-10, -0.1115E-09, -0.2181E-09,
267     & -0.4200E-09, -0.7916E-09, -0.1460E-08, -0.2542E-08, -0.4168E-08,
268     & -0.6703E-08, -0.1215E-07, -0.2821E-07, -0.7073E-07, -0.1530E-06,
269     & -0.2791E-06, -0.4426E-06, -0.6027E-06, -0.6707E-06, -0.5591E-06,
270     & -0.2328E-06/
271     data ((o1(ip,iw,1),iw=1,21),ip=16,16)/
272     & 0.5645E-05, 0.1221E-04, 0.2533E-04, 0.5237E-04, 0.1067E-03,
273     & 0.2140E-03, 0.4273E-03, 0.8422E-03, 0.1645E-02, 0.3156E-02,
274     & 0.5916E-02, 0.1071E-01, 0.1852E-01, 0.3046E-01, 0.4788E-01,
275     & 0.7281E-01, 0.1083E+00, 0.1580E+00, 0.2258E+00, 0.3138E+00,
276     & 0.4222E+00/
277     data ((o2(ip,iw,1),iw=1,21),ip=16,16)/
278     & -0.2141E-08, -0.4286E-08, -0.8603E-08, -0.1737E-07, -0.3548E-07,
279     & -0.7410E-07, -0.1590E-06, -0.3537E-06, -0.8142E-06, -0.1935E-05,
280     & -0.4658E-05, -0.1099E-04, -0.2444E-04, -0.4948E-04, -0.9067E-04,
281     & -0.1538E-03, -0.2474E-03, -0.3793E-03, -0.5495E-03, -0.7439E-03,
282     & -0.9383E-03/
283     data ((o3(ip,iw,1),iw=1,21),ip=16,16)/
284     & -0.1295E-10, -0.2581E-10, -0.5136E-10, -0.1019E-09, -0.2011E-09,
285     & -0.3916E-09, -0.7585E-09, -0.1439E-08, -0.2648E-08, -0.4747E-08,
286     & -0.8301E-08, -0.1499E-07, -0.3024E-07, -0.6702E-07, -0.1399E-06,
287     & -0.2564E-06, -0.4117E-06, -0.5669E-06, -0.6239E-06, -0.4748E-06,
288     & -0.7013E-07/
289     data ((o1(ip,iw,1),iw=1,21),ip=17,17)/
290     & 0.5645E-05, 0.1221E-04, 0.2520E-04, 0.5211E-04, 0.1067E-03,
291     & 0.2139E-03, 0.4288E-03, 0.8479E-03, 0.1665E-02, 0.3222E-02,
292     & 0.6116E-02, 0.1127E-01, 0.1994E-01, 0.3361E-01, 0.5394E-01,
293     & 0.8310E-01, 0.1242E+00, 0.1811E+00, 0.2572E+00, 0.3544E+00,
294     & 0.4713E+00/
295     data ((o2(ip,iw,1),iw=1,21),ip=17,17)/
296     & -0.2400E-08, -0.4796E-08, -0.9599E-08, -0.1927E-07, -0.3892E-07,
297     & -0.7954E-07, -0.1661E-06, -0.3540E-06, -0.7780E-06, -0.1763E-05,
298     & -0.4092E-05, -0.9512E-05, -0.2142E-04, -0.4502E-04, -0.8640E-04,
299     & -0.1525E-03, -0.2526E-03, -0.3955E-03, -0.5805E-03, -0.7897E-03,
300     & -0.9899E-03/
301     data ((o3(ip,iw,1),iw=1,21),ip=17,17)/
302     & -0.1220E-10, -0.2432E-10, -0.4845E-10, -0.9640E-10, -0.1912E-09,
303     & -0.3771E-09, -0.7392E-09, -0.1420E-08, -0.2702E-08, -0.5049E-08,
304     & -0.9214E-08, -0.1659E-07, -0.3101E-07, -0.6162E-07, -0.1235E-06,
305     & -0.2287E-06, -0.3755E-06, -0.5274E-06, -0.5790E-06, -0.3947E-06,
306     & 0.1003E-06/
307     data ((o1(ip,iw,1),iw=1,21),ip=18,18)/
308     & 0.5383E-05, 0.1195E-04, 0.2506E-04, 0.5211E-04, 0.1067E-03,
309     & 0.2148E-03, 0.4297E-03, 0.8534E-03, 0.1682E-02, 0.3282E-02,
310     & 0.6299E-02, 0.1179E-01, 0.2133E-01, 0.3687E-01, 0.6052E-01,
311     & 0.9466E-01, 0.1423E+00, 0.2069E+00, 0.2916E+00, 0.3971E+00,
312     & 0.5207E+00/
313     data ((o2(ip,iw,1),iw=1,21),ip=18,18)/
314     & -0.2557E-08, -0.5106E-08, -0.1020E-07, -0.2043E-07, -0.4103E-07,
315     & -0.8293E-07, -0.1697E-06, -0.3531E-06, -0.7531E-06, -0.1645E-05,
316     & -0.3690E-05, -0.8411E-05, -0.1902E-04, -0.4118E-04, -0.8276E-04,
317     & -0.1525E-03, -0.2601E-03, -0.4147E-03, -0.6149E-03, -0.8384E-03,
318     & -0.1042E-02/
319     data ((o3(ip,iw,1),iw=1,21),ip=18,18)/
320     & -0.1189E-10, -0.2372E-10, -0.4729E-10, -0.9421E-10, -0.1873E-09,
321     & -0.3713E-09, -0.7317E-09, -0.1437E-08, -0.2764E-08, -0.5243E-08,
322     & -0.9691E-08, -0.1751E-07, -0.3122E-07, -0.5693E-07, -0.1076E-06,
323     & -0.1981E-06, -0.3324E-06, -0.4785E-06, -0.5280E-06, -0.3174E-06,
324     & 0.2672E-06/
325     data ((o1(ip,iw,1),iw=1,21),ip=19,19)/
326     & 0.5383E-05, 0.1181E-04, 0.2493E-04, 0.5224E-04, 0.1067E-03,
327     & 0.2148E-03, 0.4301E-03, 0.8572E-03, 0.1696E-02, 0.3328E-02,
328     & 0.6447E-02, 0.1224E-01, 0.2258E-01, 0.3993E-01, 0.6715E-01,
329     & 0.1069E+00, 0.1618E+00, 0.2348E+00, 0.3275E+00, 0.4400E+00,
330     & 0.5680E+00/
331     data ((o2(ip,iw,1),iw=1,21),ip=19,19)/
332     & -0.2630E-08, -0.5249E-08, -0.1048E-07, -0.2096E-07, -0.4198E-07,
333     & -0.8440E-07, -0.1710E-06, -0.3513E-06, -0.7326E-06, -0.1562E-05,
334     & -0.3416E-05, -0.7637E-05, -0.1719E-04, -0.3795E-04, -0.7926E-04,
335     & -0.1524E-03, -0.2680E-03, -0.4344E-03, -0.6486E-03, -0.8838E-03,
336     & -0.1089E-02/
337     data ((o3(ip,iw,1),iw=1,21),ip=19,19)/
338     & -0.1188E-10, -0.2369E-10, -0.4725E-10, -0.9417E-10, -0.1875E-09,
339     & -0.3725E-09, -0.7365E-09, -0.1445E-08, -0.2814E-08, -0.5384E-08,
340     & -0.1008E-07, -0.1816E-07, -0.3179E-07, -0.5453E-07, -0.9500E-07,
341     & -0.1679E-06, -0.2819E-06, -0.4109E-06, -0.4555E-06, -0.2283E-06,
342     & 0.4283E-06/
343     data ((o1(ip,iw,1),iw=1,21),ip=20,20)/
344     & 0.5121E-05, 0.1168E-04, 0.2482E-04, 0.5211E-04, 0.1067E-03,
345     & 0.2154E-03, 0.4310E-03, 0.8601E-03, 0.1706E-02, 0.3363E-02,
346     & 0.6559E-02, 0.1259E-01, 0.2357E-01, 0.4257E-01, 0.7328E-01,
347     & 0.1190E+00, 0.1819E+00, 0.2634E+00, 0.3638E+00, 0.4812E+00,
348     & 0.6112E+00/
349     data ((o2(ip,iw,1),iw=1,21),ip=20,20)/
350     & -0.2651E-08, -0.5291E-08, -0.1056E-07, -0.2110E-07, -0.4221E-07,
351     & -0.8462E-07, -0.1705E-06, -0.3466E-06, -0.7155E-06, -0.1501E-05,
352     & -0.3223E-05, -0.7079E-05, -0.1581E-04, -0.3517E-04, -0.7553E-04,
353     & -0.1510E-03, -0.2746E-03, -0.4528E-03, -0.6789E-03, -0.9214E-03,
354     & -0.1124E-02/
355     data ((o3(ip,iw,1),iw=1,21),ip=20,20)/
356     & -0.1193E-10, -0.2380E-10, -0.4748E-10, -0.9465E-10, -0.1886E-09,
357     & -0.3751E-09, -0.7436E-09, -0.1466E-08, -0.2872E-08, -0.5508E-08,
358     & -0.1038E-07, -0.1891E-07, -0.3279E-07, -0.5420E-07, -0.8711E-07,
359     & -0.1403E-06, -0.2248E-06, -0.3221E-06, -0.3459E-06, -0.1066E-06,
360     & 0.5938E-06/
361     data ((o1(ip,iw,1),iw=1,21),ip=21,21)/
362     & 0.5121E-05, 0.1129E-04, 0.2493E-04, 0.5224E-04, 0.1065E-03,
363     & 0.2150E-03, 0.4308E-03, 0.8612E-03, 0.1712E-02, 0.3387E-02,
364     & 0.6640E-02, 0.1285E-01, 0.2434E-01, 0.4469E-01, 0.7847E-01,
365     & 0.1300E+00, 0.2013E+00, 0.2918E+00, 0.3989E+00, 0.5189E+00,
366     & 0.6486E+00/
367     data ((o2(ip,iw,1),iw=1,21),ip=21,21)/
368     & -0.2654E-08, -0.5296E-08, -0.1057E-07, -0.2111E-07, -0.4219E-07,
369     & -0.8445E-07, -0.1696E-06, -0.3428E-06, -0.7013E-06, -0.1458E-05,
370     & -0.3084E-05, -0.6678E-05, -0.1476E-04, -0.3284E-04, -0.7173E-04,
371     & -0.1481E-03, -0.2786E-03, -0.4688E-03, -0.7052E-03, -0.9506E-03,
372     & -0.1148E-02/
373     data ((o3(ip,iw,1),iw=1,21),ip=21,21)/
374     & -0.1195E-10, -0.2384E-10, -0.4755E-10, -0.9482E-10, -0.1890E-09,
375     & -0.3761E-09, -0.7469E-09, -0.1476E-08, -0.2892E-08, -0.5603E-08,
376     & -0.1060E-07, -0.1942E-07, -0.3393E-07, -0.5508E-07, -0.8290E-07,
377     & -0.1182E-06, -0.1657E-06, -0.2170E-06, -0.1997E-06, 0.6227E-07,
378     & 0.7847E-06/
379     data ((o1(ip,iw,1),iw=1,21),ip=22,22)/
380     & 0.4594E-05, 0.1129E-04, 0.2506E-04, 0.5264E-04, 0.1065E-03,
381     & 0.2150E-03, 0.4312E-03, 0.8623E-03, 0.1717E-02, 0.3403E-02,
382     & 0.6698E-02, 0.1303E-01, 0.2489E-01, 0.4627E-01, 0.8257E-01,
383     & 0.1392E+00, 0.2186E+00, 0.3178E+00, 0.4308E+00, 0.5519E+00,
384     & 0.6792E+00/
385     data ((o2(ip,iw,1),iw=1,21),ip=22,22)/
386     & -0.2653E-08, -0.5295E-08, -0.1057E-07, -0.2110E-07, -0.4215E-07,
387     & -0.8430E-07, -0.1690E-06, -0.3403E-06, -0.6919E-06, -0.1427E-05,
388     & -0.2991E-05, -0.6399E-05, -0.1398E-04, -0.3099E-04, -0.6824E-04,
389     & -0.1441E-03, -0.2795E-03, -0.4814E-03, -0.7282E-03, -0.9739E-03,
390     & -0.1163E-02/
391     data ((o3(ip,iw,1),iw=1,21),ip=22,22)/
392     & -0.1195E-10, -0.2384E-10, -0.4756E-10, -0.9485E-10, -0.1891E-09,
393     & -0.3765E-09, -0.7483E-09, -0.1481E-08, -0.2908E-08, -0.5660E-08,
394     & -0.1075E-07, -0.1980E-07, -0.3472E-07, -0.5626E-07, -0.8149E-07,
395     & -0.1027E-06, -0.1136E-06, -0.1071E-06, -0.2991E-07, 0.2743E-06,
396     & 0.1017E-05/
397     data ((o1(ip,iw,1),iw=1,21),ip=23,23)/
398     & 0.4070E-05, 0.1116E-04, 0.2520E-04, 0.5277E-04, 0.1067E-03,
399     & 0.2148E-03, 0.4312E-03, 0.8631E-03, 0.1720E-02, 0.3414E-02,
400     & 0.6735E-02, 0.1315E-01, 0.2526E-01, 0.4740E-01, 0.8559E-01,
401     & 0.1464E+00, 0.2328E+00, 0.3401E+00, 0.4581E+00, 0.5788E+00,
402     & 0.7030E+00/
403     data ((o2(ip,iw,1),iw=1,21),ip=23,23)/
404     & -0.2653E-08, -0.5294E-08, -0.1057E-07, -0.2109E-07, -0.4212E-07,
405     & -0.8420E-07, -0.1686E-06, -0.3388E-06, -0.6858E-06, -0.1406E-05,
406     & -0.2928E-05, -0.6206E-05, -0.1344E-04, -0.2961E-04, -0.6533E-04,
407     & -0.1399E-03, -0.2780E-03, -0.4904E-03, -0.7488E-03, -0.9953E-03,
408     & -0.1175E-02/
409     data ((o3(ip,iw,1),iw=1,21),ip=23,23)/
410     & -0.1195E-10, -0.2384E-10, -0.4756E-10, -0.9485E-10, -0.1891E-09,
411     & -0.3767E-09, -0.7492E-09, -0.1485E-08, -0.2924E-08, -0.5671E-08,
412     & -0.1084E-07, -0.2009E-07, -0.3549E-07, -0.5773E-07, -0.8208E-07,
413     & -0.9394E-07, -0.7270E-07, -0.3947E-08, 0.1456E-06, 0.5083E-06,
414     & 0.1270E-05/
415     data ((o1(ip,iw,1),iw=1,21),ip=24,24)/
416     & 0.3676E-05, 0.1129E-04, 0.2599E-04, 0.5277E-04, 0.1065E-03,
417     & 0.2150E-03, 0.4304E-03, 0.8634E-03, 0.1723E-02, 0.3420E-02,
418     & 0.6759E-02, 0.1323E-01, 0.2553E-01, 0.4815E-01, 0.8768E-01,
419     & 0.1515E+00, 0.2434E+00, 0.3577E+00, 0.4797E+00, 0.5991E+00,
420     & 0.7202E+00/
421     data ((o2(ip,iw,1),iw=1,21),ip=24,24)/
422     & -0.2653E-08, -0.5294E-08, -0.1056E-07, -0.2109E-07, -0.4210E-07,
423     & -0.8413E-07, -0.1684E-06, -0.3379E-06, -0.6820E-06, -0.1393E-05,
424     & -0.2889E-05, -0.6080E-05, -0.1307E-04, -0.2861E-04, -0.6310E-04,
425     & -0.1363E-03, -0.2758E-03, -0.4969E-03, -0.7681E-03, -0.1017E-02,
426     & -0.1186E-02/
427     data ((o3(ip,iw,1),iw=1,21),ip=24,24)/
428     & -0.1195E-10, -0.2384E-10, -0.4756E-10, -0.9485E-10, -0.1891E-09,
429     & -0.3768E-09, -0.7497E-09, -0.1487E-08, -0.2933E-08, -0.5710E-08,
430     & -0.1089E-07, -0.2037E-07, -0.3616E-07, -0.5907E-07, -0.8351E-07,
431     & -0.8925E-07, -0.4122E-07, 0.8779E-07, 0.3143E-06, 0.7281E-06,
432     & 0.1500E-05/
433     data ((o1(ip,iw,1),iw=1,21),ip=25,25)/
434     & 0.3544E-05, 0.1103E-04, 0.2625E-04, 0.5251E-04, 0.1067E-03,
435     & 0.2150E-03, 0.4301E-03, 0.8631E-03, 0.1724E-02, 0.3427E-02,
436     & 0.6775E-02, 0.1328E-01, 0.2568E-01, 0.4863E-01, 0.8905E-01,
437     & 0.1550E+00, 0.2509E+00, 0.3702E+00, 0.4949E+00, 0.6132E+00,
438     & 0.7321E+00/
439     data ((o2(ip,iw,1),iw=1,21),ip=25,25)/
440     & -0.2653E-08, -0.5293E-08, -0.1056E-07, -0.2108E-07, -0.4209E-07,
441     & -0.8409E-07, -0.1682E-06, -0.3373E-06, -0.6797E-06, -0.1383E-05,
442     & -0.2862E-05, -0.5993E-05, -0.1283E-04, -0.2795E-04, -0.6158E-04,
443     & -0.1338E-03, -0.2743E-03, -0.5030E-03, -0.7863E-03, -0.1038E-02,
444     & -0.1196E-02/
445     data ((o3(ip,iw,1),iw=1,21),ip=25,25)/
446     & -0.1195E-10, -0.2383E-10, -0.4755E-10, -0.9484E-10, -0.1891E-09,
447     & -0.3768E-09, -0.7499E-09, -0.1489E-08, -0.2939E-08, -0.5741E-08,
448     & -0.1100E-07, -0.2066E-07, -0.3660E-07, -0.6002E-07, -0.8431E-07,
449     & -0.8556E-07, -0.1674E-07, 0.1638E-06, 0.4525E-06, 0.8949E-06,
450     & 0.1669E-05/
451     data ((o1(ip,iw,1),iw=1,21),ip=26,26)/
452     & 0.3282E-05, 0.1090E-04, 0.2625E-04, 0.5303E-04, 0.1065E-03,
453     & 0.2148E-03, 0.4301E-03, 0.8631E-03, 0.1725E-02, 0.3429E-02,
454     & 0.6781E-02, 0.1331E-01, 0.2579E-01, 0.4894E-01, 0.8990E-01,
455     & 0.1572E+00, 0.2557E+00, 0.3782E+00, 0.5048E+00, 0.6220E+00,
456     & 0.7400E+00/
457     data ((o2(ip,iw,1),iw=1,21),ip=26,26)/
458     & -0.2652E-08, -0.5292E-08, -0.1056E-07, -0.2108E-07, -0.4208E-07,
459     & -0.8406E-07, -0.1681E-06, -0.3369E-06, -0.6784E-06, -0.1378E-05,
460     & -0.2843E-05, -0.5944E-05, -0.1269E-04, -0.2759E-04, -0.6078E-04,
461     & -0.1326E-03, -0.2742E-03, -0.5088E-03, -0.8013E-03, -0.1054E-02,
462     & -0.1202E-02/
463     data ((o3(ip,iw,1),iw=1,21),ip=26,26)/
464     & -0.1194E-10, -0.2383E-10, -0.4754E-10, -0.9482E-10, -0.1891E-09,
465     & -0.3768E-09, -0.7499E-09, -0.1489E-08, -0.2941E-08, -0.5752E-08,
466     & -0.1104E-07, -0.2069E-07, -0.3661E-07, -0.6012E-07, -0.8399E-07,
467     & -0.8183E-07, 0.1930E-08, 0.2167E-06, 0.5434E-06, 0.9990E-06,
468     & 0.1787E-05/
  ViewVC Help
Powered by ViewVC 1.1.22