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

Last change on this file since 124 was 118, checked in by pinsard, 18 years ago

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