@parameters
;
pc_read_param,obj=param
pc_read_param,/param2,obj=param2
for ivar=1,9 do begin
  pc_read_var,/oo,/jj,/bb,/trimall,obj=var,ivar=ivar
  file='jz_ivar'+str(ivar)+'.sav'
  jz=var.jj[*,*,2]
  x=var.x
  y=var.y
  t=var.t
  save,file=file,jz,x,y,t
endfor
END