ivar=8
ivar=6
file='jz_ivar'+str(ivar)+'.sav'
print,file
restore,'data/'+file
contour,jz,x,y,nlev=30,/iso,/fil
;
;  write ascii
;
fo='(8e11.3)'
openw,1,'data/jz_ivar'+str(ivar)+'.dat'
printf,1,jz,fo=fo
close,1
;
END