Context Navigation

n128gaussian.pro @ 103

Last change on this file since 103 was 103, checked in by pinsard, 18 years ago
start to modify headers of Grid .pro files for better idldoc output
Property svn:executable set to ``*
File size: 7.3 KB

Line
1	;+
2	; @file_comments compute the latitudes of the n128 gaussian grid. See:
3	; http://www.ecmwf.int/products/data/technical/gaussian/n128FIS.html
4	;
5	; @categories grid
6	;
7	; @examples
8	; IDL> lat=n128gaussian()
9	;
10	; @returns a 1d array
11	;
12	; @history
13	; Sebastien Masson (smasson\@lodyc.jussieu.fr)
14	; June 2004
15	;-
16	;
17	FUNCTION n128gaussian
18	;
19	; latitude reduced regular latitude
20	; number points points
21	; ------- ------- ------- --------
22	n128 = [ 1, 18, 512, 89.46282, $
23	2, 25, 512, 88.76695, $
24	3, 36, 512, 88.06697, $
25	4, 40, 512, 87.36606, $
26	5, 45, 512, 86.66480, $
27	6, 50, 512, 85.96337, $
28	7, 60, 512, 85.26184, $
29	8, 64, 512, 84.56026, $
30	9, 72, 512, 83.85863, $
31	10, 72, 512, 83.15698, $
32	11, 80, 512, 82.45531, $
33	12, 90, 512, 81.75363, $
34	13, 90, 512, 81.05194, $
35	14, 100, 512, 80.35023, $
36	15, 108, 512, 79.64852, $
37	16, 120, 512, 78.94681, $
38	17, 120, 512, 78.24509, $
39	18, 125, 512, 77.54336, $
40	19, 128, 512, 76.84163, $
41	20, 144, 512, 76.13990, $
42	21, 144, 512, 75.43817, $
43	22, 150, 512, 74.73644, $
44	23, 160, 512, 74.03470, $
45	24, 160, 512, 73.33296, $
46	25, 180, 512, 72.63123, $
47	26, 180, 512, 71.92949, $
48	27, 180, 512, 71.22774, $
49	28, 192, 512, 70.52600, $
50	29, 192, 512, 69.82426, $
51	30, 200, 512, 69.12252, $
52	31, 216, 512, 68.42077, $
53	32, 216, 512, 67.71903, $
54	33, 216, 512, 67.01728, $
55	34, 225, 512, 66.31554, $
56	35, 240, 512, 65.61379, $
57	36, 240, 512, 64.91204, $
58	37, 240, 512, 64.21030, $
59	38, 250, 512, 63.50855, $
60	39, 250, 512, 62.80680, $
61	40, 256, 512, 62.10505, $
62	41, 270, 512, 61.40330, $
63	42, 270, 512, 60.70156, $
64	43, 288, 512, 59.99981, $
65	44, 288, 512, 59.29806, $
66	45, 288, 512, 58.59631, $
67	46, 300, 512, 57.89456, $
68	47, 300, 512, 57.19281, $
69	48, 320, 512, 56.49106, $
70	49, 320, 512, 55.78931, $
71	50, 320, 512, 55.08756, $
72	51, 320, 512, 54.38581, $
73	52, 324, 512, 53.68406, $
74	53, 360, 512, 52.98231, $
75	54, 360, 512, 52.28056, $
76	55, 360, 512, 51.57881, $
77	56, 360, 512, 50.87705, $
78	57, 360, 512, 50.17530, $
79	58, 360, 512, 49.47355, $
80	59, 360, 512, 48.77180, $
81	60, 375, 512, 48.07005, $
82	61, 375, 512, 47.36830, $
83	62, 375, 512, 46.66655, $
84	63, 375, 512, 45.96479, $
85	64, 384, 512, 45.26304, $
86	65, 384, 512, 44.56129, $
87	66, 400, 512, 43.85954, $
88	67, 400, 512, 43.15779, $
89	68, 400, 512, 42.45604, $
90	69, 400, 512, 41.75428, $
91	70, 405, 512, 41.05253, $
92	71, 432, 512, 40.35078, $
93	72, 432, 512, 39.64903, $
94	73, 432, 512, 38.94728, $
95	74, 432, 512, 38.24552, $
96	75, 432, 512, 37.54377, $
97	76, 432, 512, 36.84202, $
98	77, 432, 512, 36.14027, $
99	78, 450, 512, 35.43851, $
100	79, 450, 512, 34.73676, $
101	80, 450, 512, 34.03501]
102	n128 = [n128, $
103	81, 450, 512, 33.33326, $
104	82, 450, 512, 32.63150, $
105	83, 480, 512, 31.92975, $
106	84, 480, 512, 31.22800, $
107	85, 480, 512, 30.52625, $
108	86, 480, 512, 29.82449, $
109	87, 480, 512, 29.12274, $
110	88, 480, 512, 28.42099, $
111	89, 480, 512, 27.71924, $
112	90, 480, 512, 27.01748, $
113	91, 480, 512, 26.31573, $
114	92, 480, 512, 25.61398, $
115	93, 486, 512, 24.91223, $
116	94, 486, 512, 24.21047, $
117	95, 486, 512, 23.50872, $
118	96, 500, 512, 22.80697, $
119	97, 500, 512, 22.10521, $
120	98, 500, 512, 21.40346, $
121	99, 500, 512, 20.70171, $
122	100, 500, 512, 19.99996, $
123	101, 500, 512, 19.29820, $
124	102, 500, 512, 18.59645, $
125	103, 512, 512, 17.89470, $
126	104, 512, 512, 17.19294, $
127	105, 512, 512, 16.49119, $
128	106, 512, 512, 15.78944, $
129	107, 512, 512, 15.08768, $
130	108, 512, 512, 14.38593, $
131	109, 512, 512, 13.68418, $
132	110, 512, 512, 12.98243, $
133	111, 512, 512, 12.28067, $
134	112, 512, 512, 11.57892, $
135	113, 512, 512, 10.87717, $
136	114, 512, 512, 10.17541, $
137	115, 512, 512, 9.47366, $
138	116, 512, 512, 8.77191, $
139	117, 512, 512, 8.07016, $
140	118, 512, 512, 7.36840, $
141	119, 512, 512, 6.66665, $
142	120, 512, 512, 5.96490, $
143	121, 512, 512, 5.26314, $
144	122, 512, 512, 4.56139, $
145	123, 512, 512, 3.85964, $
146	124, 512, 512, 3.15788, $
147	125, 512, 512, 2.45613, $
148	126, 512, 512, 1.75438, $
149	127, 512, 512, 1.05262, $
150	128, 512, 512, 0.35087]
151	;
152	n128 = reform(n128, 4, 128, /over)
153	n128 = reform(n128[3, *], /over)
154	n128 = [n128, -reverse(n128)]
155
156	return, n128
157	end

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format