source: trunk/src/time_axe_modif_tropflux_1d_1989_2010.pro @ 178

Last change on this file since 178 was 99, checked in by pinsard, 13 years ago

suppress successive semi-column lines
  • Property svn:keywords set to URL
File size: 2.0 KB
RevLine 
[83]1;+
2;
3; .. _time_axe_modif_tropflux_1d_1989_2010.pro:
4;
5; ========================================
6; time_axe_modif_tropflux_1d_1989_2010.pro
7; ========================================
8;
9;     .. graphviz::
10;
11;        digraph time_axe_modif_tropflux_1d_1989_2010 {
12;
13;           file_inout [shape=ellipse,fontname=Courier,label="/Volumes/PAYASAM/TropFlux/ERA_C_1989_2010/ws_tropflux_1d_1989_2010.nc"];
14;
15;           time_axe_modif_tropflux_1d_1989_2010 [shape=box,
16;           fontname=Courier,
17;           color=blue,
18;           URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/time_axe_modif_tropflux_1d_1989_2010.pro",
19;           label="${PROJECT}/src/time_axe_modif_tropflux_1d_1989_2010.pro"];
20;
21;           {file_inout} -> {time_axe_modif_tropflux_1d_1989_2010} -> {file_inout}
22;
23;        }
24;
25; SEE ALSO
26; ========
27;
28; :func:`julday <saxo:julday>`
29;
30; :ref:`time_axe_modif_TropFlux.pro`
31;
32; EXAMPLES
33; ========
34;
35; ::
36;
37;  IDL> time_axe_modif_tropflux_1d_1989_2010
38;
39; TODO
40; ====
41;
42; if needed include in the whole process
43;
44; hard coded directory - usage of ${PROJECT_ID}
45;
46; coding rules
47;
48; EVOLUTIONS
49; ==========
50;
51; $Id$
52;
53; $URL$
54;
55; - fplod 20110817T084839Z aedon.locean-ipsl.upmc.fr (Darwin)
56;
57;   * minimal header
58;
59; - pk 20110815
60;
61;   * provided to fp
62;
63;-
[82]64pro time_axe_modif_tropflux_1d_1989_2010
[97]65;
[82]66dir_out="/Volumes/PAYASAM/TropFlux/ERA_C_1989_2010/"
[97]67;
[82]68file="ws_tropflux_1d_1989_2010.nc"
[97]69;
[82]70fic=dir_out+file
[97]71;
[82]72print, ''
73print, 'File in : ',fic
74print, ' '
75;
76; opening the file to modify the time axis
77; ouverture fichier dont on modifie le timeaxe
78;
79cdfid=NCDF_OPEN(fic,/write)
[97]80;
[82]81;cdfid=NCDF_OPEN(fic,/write)
82NCDF_VARGET, cdfid, 'time', tt
83;NCDF_VARGET, cdfid, 'tt', tt
[97]84;
[82]85ncdf_control, cdfid ,/REDEF ; put in define mode
86;
[83]87; reading attributs of time
[82]88;
89varid=ncdf_varid(cdfid,'time')
90;varid=ncdf_varid(cdfid,'tt')
91;
92ncdf_control, cdfid ,/endef
93ntt=n_elements(tt)
[97]94;
[82]95ttt=(julday(01, 01, 1989)-julday(01, 01, 1950,0))+findgen(ntt)
[97]96;
[82]97NCDF_VARPUT, cdfid, 'time', ttt
98;NCDF_VARPUT, cdfid, 'tt', ttt
[97]99;
[82]100NCDF_CLOSE, cdfid
[97]101;
[82]102END
Note: See TracBrowser for help on using the repository browser.