pro mtraj_loaddata,date19,u_arr,v_arr,t_arr,pv_arr,lats,lons,$
 dir=dir
 
;+
; read the data
; there are three types of files
;-
err=1
source='No Data'
date=strtrim(date1900(date19,/y2k,/fullyear),2)
if n_elements(dir) eq 0 then dir='Macintosh HD:Applications:RSI:IDL 5.2:my idl stuff:'
datex=strmid(date,0,4)+'-'+strmid(date,4,2)+'-'+strmid(date,6,2) 
luke:
openr,unit,/xdr,/get_lun,dir+'fa'+datex+'T12.xdr'
;print,'   '+datex
i1=long(0) & i2=long(0)
readu,unit,i1,i2
theta=0.
pv_arr=fltarr(i1,i2) & lons=fltarr(i1) & lats=fltarr(i2) & m_arr=pv_arr & t_arr=pv_arr
rdf=pv_arr & trop_hgt=pv_arr & u_arr=pv_arr & v_arr=pv_arr
readu,unit,pv_arr,t_arr,m_arr,lats,lons,theta,source
readu,unit,trop_hgt,u_arr,v_arr
readu,unit,badvals

bb:
lons=lons(0:i1-2)
u_arr=u_arr(0:i1-2,*)
v_arr=v_arr(0:i1-2,*)
t_arr=t_arr(0:i1-2,*)
pv_arr=pv_arr(0:i1-2,*)*1.0e5
free_lun,unit

err=0
return

retryit:    ; try a standard file
seq=''
goto,luke

skipp:
print,'Unable to find file for: '+datex

return
end