pro UngribALL


;.r /nas/lina/Data/ECMWF/UngribALL
 
dir = '/nas/lina/Data/ECMWF/mld/'
files=findfile(dir+'*.grib')
files=files(sort(files))

for i=0,n_elements(files)-1 do begin
	name=files(i)
    name2=(str_sep(name,'.gri'))(0)+'.bin'
	spawn,'wgrib -s '+name+' | grep ":ECMWF" | wgrib -i -nh '+name+' -o '+name2
endfor


end

;wgrib -V