;$Id: psav.pro,v 1.2 2019/05/26 18:51:08 brandenb Exp $
if !d.name eq 'PS' then begin
  default,thick,1.7
  device,xsize=12,ysize=6,yoffset=3
  !p.charthick=thick & !p.thick=thick & !x.thick=thick & !y.thick=thick
end
;
@parameters
!p.multi=[0,2,1]
!p.charsize=.8
!x.margin=[3.2,0.2]
!y.margin=[2.2,0.2]
;
!x.title='!6'
!y.title='!6'
nlev=15
color,/sgi,steps=nlev
;
fileb1='bb3_t5.sav'
fileu1='uu3_t5.sav'
fileb2='bb3_t70.sav'
fileu2='uu3_t70.sav'
;
;levb=grange(-1.,1.,nlev)*1.
;levu=grange(-1.,1.,nlev)*.5
;restore,'sav/'+fileb1
;contour,xy_slice,x,y,/fil,lev=levb,/iso
;
;restore,'sav/'+fileu1
;contour,xy_slice,x,y,/fil,lev=levu,/iso
;
levb=grange(-1.,1.,nlev)*.2
levu=grange(-1.,1.,nlev)*.05
restore,'sav/'+fileb2
contour,clip(xy_slice,minmax(levb)),x,y,/fil,lev=levb,/iso
;
restore,'sav/'+fileu2
contour,clip(xy_slice,minmax(levu)),x,y,/fil,lev=levu,/iso
;
cwd,run
print,'$mv idl.ps ~/tex/mhd/decay/fig/psav_'+run+'.ps'
END