PRO Read_lil,file,tt,pg,vh,vy,bh,by,tau

if n_params() lt 8 then print,'read_lil,file,tt,pg,vh,vy,bh,by,tau'
openu,u,/get,file,/f77

mx=1L
my=mx
mz=mx
readu,u,mx,my,mz
ym=fltarr(mz)
readu,u,ym

tt=fltarr(mx,my,mz)
readu,u,tt
pel=fltarr(mx,my,mz)
readu,u,pel
pel=0
pg=fltarr(mx,my,mz)
readu,u,pg
vz=fltarr(mx,my,mz)
readu,u,vz
vx=fltarr(mx,my,mz)
readu,u,vx
vh=sqrt(vx^2+vz^2)
vx=0 & vz=0
vy=fltarr(mx,my,mz)
readu,u,vy
bz=fltarr(mx,my,mz)
readu,u,bz
bx=fltarr(mx,my,mz)
readu,u,bx
bh=sqrt(bx^2+bz^2)
bx=0 & bz=0
by=fltarr(mx,my,mz)
readu,u,by
tau=fltarr(mx,my,mz)
readu,u,tau

END