restore,'rbar_dens_full.idlsave'
drbar=allrbar
restore,'rbar_rwid_full.idlsave'
wrbar=allrbar
restore,'rbar_instr_full.idlsave'
irbar=allrbar
restore,'rbar_monthly.idlsave'
print,'Region  MXD  TRW  A-S   JJ',$
  ['J','F','M','A','M','J','J','A','S','O','N','D'],$
  format='(A26,12A5)'
for i = 0 , nreg-1 do print,regname(i),drbar(i),wrbar(i),$
  amjjasrbar(i),jjrbar(i),monrbar(i,*),$
  format='(A6,16F5.2)'
end