source: trunk/src/time_axe_modif_TropFlux.pro

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

fix thanks to coding rules

  • Property svn:keywords set to Id URL
File size: 2.3 KB
Line 
1;+
2;
3; .. _time_axe_modif_TropFlux.pro:
4;
5; ===========================
6; time_axe_modif_TropFlux.pro
7; ===========================
8;
9;     .. graphviz::
10;
11;        digraph time_axe_modif_TropFlux {
12;
13;           file_inout [shape=ellipse,fontname=Courier,label="/Users/pkb/data/TropFlux/TropFlux_19890101_20091231.nc"];
14;
15;           time_axe_modif_TropFlux [shape=box,
16;           fontname=Courier,
17;           color=blue,
18;           URL="http://forge.ipsl.jussieu.fr/tropflux/browser/trunk/src/time_axe_modif_TropFlux.pro",
19;           label="${PROJECT}/src/time_axe_modif_TropFlux.pro"];
20;
21;           {file_inout} -> {time_axe_modif_TropFlux} -> {file_inout}
22;
23;        }
24;
25; SEE ALSO
26; ========
27;
28; :func:`julday <saxo:julday>`
29;
30; EXAMPLES
31; ========
32;
33; .. code-block:: idl
34;
35;    time_axe_modif_tropflux
36;
37; TODO
38; ====
39;
40; hard coded directory - usage of ${PROJECT_ID}
41;
42; coding rules
43;
44; why 1950 whereas "hours since 1957-01-01 00:00:0.0" can be read in
45; 20c3m_erai_t2_TROP_1989_2009.nc
46;
47; no change off attributs : wrong info vs data on time
48;
49; EVOLUTIONS
50; ==========
51;
52; $Id$
53;
54; $URL$
55;
56; - fplod 20101215T114847Z aedon.locean-ipsl.upmc.fr (Darwin)
57;
58;   * add graph in header
59;
60; - fplod 20101214T093615Z aedon.locean-ipsl.upmc.fr (Darwin)
61;
62;   * minimal header
63;
64; - pbk 2008
65;
66;   * creation
67;
68;-
69pro time_axe_modif_TropFlux
70;
71dir_out='/Users/pkb/data/TropFlux/'
72;dir_out='/Users/pkb/data/heat_budget/oscar_global/global/'
73file='TropFlux_19890101_20091231.nc'
74;file='TropFlux_sst_19890101_20091231.nc'
75;file='TropFlux_swr_19890101_20071231_DT_v50.nc'
76;file='TropFlux_swr_19890101_20091231_NRT_v50.nc'
77;file='oscar_1993_2009_intrpltd_1day.nc'
78;file='oscar_19890101_20091231.nc'
79;file='TropFlux_swr_19890101_20091231_BLND.nc'
80;file="TropFlux_19890101_20091231_v51.nc"
81;file='TropFlux_t2m_19890101_20091231_v50.nc'
82fic=dir_out+file
83;
84print, ''
85print, 'File in : ',fic
86print, ' '
87;
88; opening the file to modify the time axis
89;
90cdfid=NCDF_OPEN(fic,/write)
91NCDF_VARGET, cdfid, 'time', tt
92;NCDF_VARGET, cdfid, 'tt', tt
93ncdf_control, cdfid ,/REDEF ; put in define mode
94;
95; reading attributs of time
96;
97varid=ncdf_varid(cdfid,'time')
98;varid=ncdf_varid(cdfid,'tt')
99;
100;
101ncdf_control, cdfid ,/endef
102ntt=n_elements(tt)
103ttt=(julday(01, 01, 1989,12)-julday(01, 01, 1950,0))+findgen(ntt)
104;
105NCDF_VARPUT, cdfid, 'time', ttt
106;NCDF_VARPUT, cdfid, 'tt', ttt
107NCDF_CLOSE, cdfid
108;
109END
Note: See TracBrowser for help on using the repository browser.