source: trunk/src/paper01/fig2/time_lec.pro @ 182

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

fix some svn propset
  • Property svn:executable set to *
  • Property svn:keywords set to Id URL
File size: 766 bytes
Line 
1;+
2;
3; ============
4; time_lec.pro
5; ============
6;
7; .. function:: time_lec(fi)
8;
9;     :param fi: file
10;
11; EXAMPLES
12; ========
13;
14; ::
15;
16;    fi = ++
17;    result = time_lec(fi)
18;
19; SEE ALSO
20; ========
21;
22; :ref:`read_lh.pro`
23; :ref:`read_lw.pro`
24; :ref:`read_sw.pro`
25;
26; TODO
27; ====
28;
29; complete header
30;
31; coding rules
32;
33; EVOLUTIONS
34; ==========
35;
36; $Id$
37;
38; $URL$
39;
40; - fplod 20110412T160108Z aedon.locean-ipsl.upmc.fr (Darwin)
41;
42;   * externalized from read_lh.pro
43;   * minimal header
44;
45;-
46function time_lec, fi
47tt=ncdf_lec(fi,var='time')
48fid=ncdf_open(fi)
49vid=ncdf_varid(fid,'time')
50ncdf_attget, fid,vid,'units',orig
51orig=string(orig)
52yy=long(strmid(orig,11,4))
53mm=long(strmid(orig,16,2))
54dd=long(strmid(orig,19,2))
55tt=julday(mm,dd,yy,12,00)+tt
56return, tt
57end
Note: See TracBrowser for help on using the repository browser.