source: trunk/src/x_site_location.pro @ 180

Last change on this file since 180 was 180, checked in by pinsard, 12 years ago

no more IDL prompt in examples
  • Property svn:keywords set to URL
File size: 1.5 KB
RevLine 
[43]1;+
2;
[44]3; ===================
4; x_site_location.pro
5; ===================
[43]6;
[44]7; .. function:: x_site_location(site)
8;
9; DESCRITPION
[43]10; ===========
11;
[46]12;    :param site: ++
13;
[44]14; EXAMPLES
[43]15; ========
16;
[44]17; ::
[46]18;
[180]19;   site = ++
20;   result = x_site_location(site)
[43]21;
[44]22; SEE ALSO
[43]23; ========
24;
[46]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`
[44]30; :ref:`fig2_timeline_diagram.pro`
[46]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]43;
[44]44; TODO
45; ====
[43]46;
[44]47; coding rules
[46]48;
[43]49; EVOLUTIONS
50; ==========
51;
52; $Id$
53;
[85]54; $URL$
55;
[44]56; - fplod 20110412T083358Z aedon.locean-ipsl.upmc.fr (Darwin)
[46]57;
[44]58;   * creation from fig2_timeline_diagram.pro
[43]59;
60;-
[44]61function x_site_location, site
[97]62;
[44]63n1=strpos(site, 's')
[41]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.