source: trunk/src/time_axe_modif_tropflux_1d_1989_2010.pro @ 82

pro time_axe_modif_tropflux_1d_1989_2010

dir_out="/Volumes/PAYASAM/TropFlux/ERA_C_1989_2010/"

file="ws_tropflux_1d_1989_2010.nc"

fic=dir_out+file

print, ''
print, 'File in : ',fic
print, ' '

;
; opening the file to modify the time axis
; ouverture fichier dont on modifie le timeaxe
;
cdfid=NCDF_OPEN(fic,/write)

;cdfid=NCDF_OPEN(fic,/write)
NCDF_VARGET, cdfid, 'time', tt
;NCDF_VARGET, cdfid, 'tt', tt

ncdf_control, cdfid ,/REDEF ; put in define mode
;
; reading attributs of time  
;
varid=ncdf_varid(cdfid,'time')
;varid=ncdf_varid(cdfid,'tt')

;

ncdf_control, cdfid ,/endef
ntt=n_elements(tt)

ttt=(julday(01, 01, 1989)-julday(01, 01, 1950,0))+findgen(ntt)

NCDF_VARPUT, cdfid, 'time', ttt
;NCDF_VARPUT, cdfid, 'tt', ttt

NCDF_CLOSE, cdfid

END