flist = findfile('*.nc',count = nfiles)
for ifile = 0,n_elements(flist) do begin


ncid = ncdf_open(flist(ifile),/nowrite)
ncdf_varget, ncid, 'year',year
ncdf_varget, ncid, 'day' ,day
ncdf_varget, ncid, 'VN', vn
ncdf_varget, ncid, 'UN', un
ncdf_varget, ncid, 'WN', wn
ncdf_varget, ncid, 'lat',lat
ncdf_varget, ncid, 'lon',lon
ncdf_varget, ncid, 'lev',lev
ncdf_varget, ncid, 'ut',ut
ncdf_varget, ncid, 'Z',z
ncdf_varget, ncid, 'ZG',zg
;ncdf_varget, ncid, 'VI_ExB', vi_ExB
;ncdf_varget, ncid, 'UI_ExB', ui_ExB
;ncdf_varget, ncid, 'WI_ExB',wi
;ncdf_varget, ncid, 'TN',tn
;ncdf_varget, ncid, 'TI',ti

ncdf_close,ncid


fileout = strmid(flist(ifile),0,33)+'.sav'
save,year,day,vn,un,wn,lat,lon,lev,ut,lev,z,zg,file = fileout

endfor
end