@parameters
;
default,ivar,-1
default,iread,0
if iread eq 0 then begin
  pc_read_param,/param2,obj=param
  ;if ivar ge 0 then pc_read_var,/bb,/trimall,obj=var,ivar=ivar else pc_read_var,/bb,/trimall,obj=var
  if ivar ge 0 then pc_read_var,/bb,/trimall,obj=var,ivar=ivar,proc=0 else pc_read_var,/bb,/trimall,obj=var,proc=0
  t=var.t
  x=var.x
  y=var.y
  z=var.z
  iread=1
  nz=n_elements(z)
endif
;
;!p.multi=[0,2,2]
!p.multi=0
;tvscl,var.ss(*,*,nz-1),0
;tvscl,var.ss(*,*,nz*3/4),1
;plot,zzz,haver(var.ss)
print,'tvscl,var.uu(*,*,nz-1,2)'
END