;make the mask plot
contour,mask,time,height,/nodata,position=[.12,.19,.96,.95],$
   	/xstyle,xrange=[0,10],font=-1,$
   	title='!5Retrieval Type Mask, SHEBA, May 18, 1998 ',$
	ytitle='!5Height [km,AGL]',xtitle='Time [GMT]',$
   	yrange=[0,11],/ystyle,color=1
levels=[1,2,3,4,5,6,7,8]
labels=['Rain','Snow','sLiquid','Liquid','Drizzle','sIce','Ice','Mixed']
nlev=8
colors=[255,2,150,190,220,86,40,120]
contour,mask,time,height,position=[.12,.19,.96,.95], $
	levels=levels,c_colors=colors,/fill,font=-1,$
	/xstyle,xrange=[0,10],/ystyle,yrange=[0,11],/noerase,color=1
;add colorbar
iwh=[0,4,3,2,7,5,6,1]
labels=labels[iwh] & colors=colors[iwh]
cbst=.15 & cben=.9 & cbxwid=(cben-cbst)/nlev
cb_x=[cbst,cbst,cbst+cbxwid,cbst+cbxwid]
cb_y=[.075,.105,.105,.075]
for i = 0,nlev-1 do begin
  polyfill,cb_x+i*cbxwid,cb_y,color=colors[i],/normal
  xyouts,cb_x[0]+i*cbxwid,cb_y[0]-0.03,labels[i],/norm,font=-1,alignment=0,color=1
endfor
xyouts,.525,.01,'!5Retrieval Type',alignment=0.5,font=-1,/normal,color=1

end