;PRO plot_va_trace
;plots virtual spacecraft measurments in the simulation box 

FUNCTION XTICKS, axis, index, value
print, 'value:',LONG(value)
 hour = LONG(value)/3600
 minute = LONG(value-3600 * hour) / 60
 sec = value mod 60
RETURN, STRING(hour, minute, sec, $
        FORMAT="(i2.2, ':', i2.2, ':', i2.2)")
END


names=strarr(15) & names=replicate(' ',15)

restore,'Figure_11a_va_sc_trace.sav'


!P.POSITION=[0.1,0.1,0.9,0.4]


plot, [min,max],[bmin,bmax],/nodata, xtickname=names, xtickformat='XTICKS',$
         xminor=xminor, xrange=[min,max],yrange=[bmin,bmax],$
	 xstyle=1,ystyle=2,xtitle='time elapsed (hr:min:sec)',$
         /noerase

oplot,t,va,line=0,thick=1

    delb=bmax-bmin
    xt0=min-0.12*del  &   yt0=bmin+0.85*delb    
    xt1=min-0.115*del  &   yt1=bmin+0.68*delb
    xyouts, xt0, yt0, 'V_A',charsize=0.8
    xyouts, xt1, yt1, 'km/s',charsize=0.7

stop

 return

end