pro read_clim_10by10, filename, data

;EXAMPLE FOR READING THE OZONE AND TROPOPAUSE
;PRESSURE DATA TABLES AT 10DEG X 10DEG RESOLUTION:
;
;In IDL,
;
;  >  filename='tp_10by10_rms.txt'
;  >  read_clim_10by10, filename, data
;

data=fltarr(36,18,12) & stf=strarr(1) & b=fltarr(12)
openr,2,filename
for i=0,7 do readf,2,stf
for lat=0,17 do begin
  readf,2,stf
  for lon=0,35 do begin
    readf,2,stf,b,format='(a12,12f7.1)' & data(lon,lat,0:11)=b(0:11)
  endfor
endfor
close,2

return
end