source: trunk/src/x_site_location.pro

Last change on this file was 204, checked in by pinsard, 10 years ago

fix thanks to coding rules; typo
  • Property svn:keywords set to Id URL
File size: 1.5 KB
Line 
1;+
2;
3; ===================
4; x_site_location.pro
5; ===================
6;
7; .. function:: x_site_location(site)
8;
9; DESCRIPTION
10; ===========
11;
12;    :param site: ++
13;
14; EXAMPLES
15; ========
16;
17; .. code-block:: idl
18;
19;    site = ++
20;    result = x_site_location(site)
21;
22; SEE ALSO
23; ========
24;
25; :func:`y_site_location`
26;
27; :ref:`fig1_no_obs_map.pro`
28; :ref:`net_flux_validation_scatter_2000_2007.pro`
29; :ref:`fig16_timeseries_nino3.pro`
30; :ref:`fig2_timeline_diagram.pro`
31; :ref:`air_validation_scatter_2000_2009_v50.pro`
32; :ref:`q2m_validation_scatter_2000_2009_v50.pro`
33; :ref:`sst_validation_scatter_2000_2009_v50.pro`
34; :ref:`ws_validation_scatter_2000_2009_v50.pro`
35; :ref:`air_validation_scatter_2000_2009_basin.pro`
36; :ref:`q2m_validation_scatter_2000_2009_basin.pro`
37; :ref:`sst_validation_scatter_2000_2009_basin.pro`
38; :ref:`ws_validation_scatter_2000_2009_basin.pro`
39; :ref:`lhf_validation_scatter_2000_2009.pro`
40; :ref:`shf_validation_scatter_2000_2009.pro`
41; :ref:`lwr_validation_scatter_2000_2007.pro`
42; :ref:`swr_validation_scatter_2000_2007.pro`
43;
44; TODO
45; ====
46;
47; coding rules
48;
49; EVOLUTIONS
50; ==========
51;
52; $Id$
53;
54; $URL$
55;
56; - fplod 20110412T083358Z aedon.locean-ipsl.upmc.fr (Darwin)
57;
58;   * creation from fig2_timeline_diagram.pro
59;
60;-
61function x_site_location, site
62;
63n1=strpos(site, 's')
64if (n1 gt -1) then begin
65    ns=-1.
66    x=strmid(site, 0, n1)
67    x=float(x)*ns
68endif else begin
69    n1=strpos(site, 'n')
70    x=strmid(site, 0, n1)
71    ny=1.
72    x=float(x)*ny
73endelse
74return, float(x)
75end
Note: See TracBrowser for help on using the repository browser.