source: trunk/SRC/Grid/n128gaussian.pro @ 157

Last change on this file since 157 was 157, checked in by navarro, 18 years ago

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