;
g=def_grid(/ipcc)
;
multi_plot,nrow=4,layout='large'
!p.multi(1)=2
if !d.name eq 'X' then begin
  window,xsize=650,ysize=950
endif else begin
  device,xsize=15,xoffset=3
  device,ysize=24,yoffset=2
endelse
;
map=def_map(/npolar)  &  map.limit(0)=30.
coast=def_coast(/get_device)  &  coast.double=0
labels=def_labels(/off)
;
restore,filename='regboxes.idlsave'
for i = 0 , nreg-1 do begin
;
pause
fd1=boxlists(*,*,i)
inter_boxfd,fd1,g.x,g.y,map=map,coast=coast,labels=labels,$
  title=regname(i),levels=[0.5,1.5],c_colors=[100.]
;
endfor
;
end