slevels = (indgen(30))
		tnames = string([slevels],format='(F4.1)')
		pos_bart = [0.67,0.6,0.69,0.75]
		
		plot,replicate(1,n_elements(slevels)/3),indgen(n_elements(slevels)/3),$
		position=pos_bart,/noerase,xstyle=4,ystyle=5,charsize=0.7;,title='Temp (!eo!nC)'
		axis,1,1,yaxis=1,yrange=[min(slevels),max(slevels)],charsize=0.6,yticks=10,xticks=1,$
		ytickname=tnames(indgen(11)*3),ystyle=1,ytitle='Temp (!eo!nC)',ytickformat='(I5)',$
		yticklen=0.5; xtickformat='(A2)'
		bar_plot,replicate(1,n_elements(slevels)/3),colors=tcolors(indgen(10)*3),/overplot,$
		barspace=0.0005,/rotate,/outline;barnames=tnames(indgen(10)*3)