;$Id: ptime.pro,v 1.1 2019/05/13 11:53:20 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=11,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
!p.charsize=1.7
!x.margin=[7.2,0.2]
!y.margin=[3.2,0.2]
;
!x.title='!8t c!6!ds!n!8k!6!d1!n'
!y.title='!8v!6!dA/!8c!6!ds!n  and  !8u!6/!8c!6!ds!n'
;
pc_read_param,/param2,obj=param
tforce_stop=param.tforce_stop
;
xr=[0,24]
yr=[1e-2,2]
plot_io,[1,1]*tforce_stop,yr,xr=xr,yr=yr
oplot,ts.t,ts.bmax,col=122
oplot,ts.t,ts.brms,col=122
oplot,ts.t,ts.urms,col=55
oplot,ts.t,ts.umax,col=55
;
cwd,run
print,'$mv idl.ps ~/tex/mhd/decay/fig/ptime_'+run+'.ps'
END