;$Id: pj.pro,v 1.3 2026/10/27 05:41:07 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=17.2,yoffset=3
  !p.charthick=2 & !p.thick=2 & !x.thick=2 & !y.thick=2
end
;
!p.charsize=1.5
!x.margin=[6.3,.3]
!y.margin=[3.2,.3]
;
nlev=20
jmax=1.
lev=grange(-1,1,nlev)*jmax
;
!x.title='!8x!6'
!y.title='!8y!6'
file='jz.sav' & restore,file
contour,clip(transpose(jz),minmax(lev)),lev=lev,/fill,/iso,x,y
;
!x.title='!6'
!y.title='!6'
xx0=.72 & yy1=.15 & dxx=.2 & dyy=.03
colorbar,pos=[xx0,yy1,xx0+dxx,yy1+dyy], range=minmax(lev),/top,/hor,$
form='(f4.1)',charsize=1.2,div=2,ytit='!6',col=255
;
cwd,run
!p.multi=0
print,"$mv idl.ps ~/Overleaf/Vinay/Helicity-Gauge/figs/pj_"+run+".eps"
END