PRO store_slice,uu,bb,rho,time,nx=nx,zpt=zpt
;
; Set some defaults
;
default,nx,256
default,zpt,10
;
; Define the arrays we want to save
;
u_save=reform(uu(3:nx+2,3:nx+2,zpt,*))
b_save=reform(bb(3:nx+2,3:nx+2,zpt,*))
rho_save=reform(rho(3:nx+2,3:nx+2,zpt))
;
; Save slice
;
file='store_slice_t='$
  +string(time,FORMAT='(F7.2)')$
  +'_zpt='$
  +string(zpt,FORMAT='(I2)')$
  +'.sav'
save,file=file,u_save,b_save,rho_save
;
END