;
g=def_grid(/ipcc)
;
multi_plot,nrow=1
;
map=def_map(/npolar)  &  map.limit(0)=30.
coast=def_coast(/get_device)  &  coast.double=0
labels=def_labels(/off)  &  labels.gridon=1  &  labels.dlon=90.
;
restore,filename='regboxes.idlsave'
for i = 0 , 0 do begin
;
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