;pro read_pacific_means

print,'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/'
print,' '
print,'ARRAYS (Version 8 TOMS):'
print,' '
print,'PACIFIC-AVERAGES (120W-120E) (Version 8 TOMS):'
print,' '
print,'   strat(324,22)   <== Strat column O3 (Dobson Units)'
print,' '
print,'   trop(324,22)    <== Tropo column O3 (Dobson Units)'
print,' '
print,'               324 <== Jan79,Feb79,...,Dec05'
print,'                22 <== Latitude -47.5,-42.5,...,52.5,57.5'
print,' '
print,'NOTE: Missing data have a value of zero'
print,' '
strat=fltarr(324,22) & trop=fltarr(324,22)
stuff=strarr(1) & b=fltarr(14)
strat(*,*)=0 & trop(*,*)=0

openr,2,'v8strat_public.txt'
for iyear=1979,2005 do begin
  readf,2,stuff & readf,2,stuff
  for lat=0,21 do begin
    readf,2,b
    for mon=0,11 do begin
      month=mon+12*(iyear-1979)
      strat(month,21-lat)=b(mon+2)
    endfor
  endfor
endfor
close,2

openr,2,'v8tropo_public.txt'
for iyear=1979,2005 do begin
  readf,2,stuff & readf,2,stuff
  for lat=0,21 do begin
    readf,2,b
    for mon=0,11 do begin
      month=mon+12*(iyear-1979)
      trop(month,21-lat)=b(mon+2)
    endfor
  endfor
endfor
close,2

end