;
; Now prepare for plotting
;
loadct,39
multi_plot,nrow=8,ncol=3,layout='large'
if !d.name eq 'X' then begin
  window,ysize=800
  !p.font=-1
endif else begin
  !p.font=0
  device,/helvetica,/bold,font_size=8
endelse
!x.margin=[6,0]
!y.margin=[2,2]
;
for j = 0 , 386 do begin
  ;
  jstr=string(j,format='(I3.3)')
  restore,'example_chron'+jstr+'.idlsave'
  xstr=string(statlon(j),format='(F7.2)')
  ystr=string(statlat(j),format='(F5.2)')+'N'
  titstr=jstr+' '+location(j)+' '+xstr+' '+ystr
  titstr=strcompress(titstr)
  ;
  pause
  plot,timey,mxd1,$
    /xstyle,$
    /ystyle,yrange=[-4,4],title=titstr
  oplot,timey,total(tem12(3:8,*),1)/6.,color=240
  oplot,!x.crange,[0,0],linestyle=1
  ;
endfor
;
end