;pro read_tropics

print,'_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/'
print,' '
print,'TROPICAL GRIDDED ARRAYS (Version 8 TOMS):'
print,' '
print,'    ccd_tropo(72,6,324)'
print,'    ccd_strat(72,6,324)'
print,' '
print,'                   72 <== Longitudes -177.5,-172.5,...,177.5'
print,'                    6 <== Latitudes -12.5,-7.5,...,12.5'
print,'                  324 <== Months Jan79,Feb79,...,Dec05'
print,' '

ccd_tropo=fltarr(72,6,324)
stuff=strarr(1) & b=fltarr(6)
openr,2,'tropo.txt'
for i=0,9 do readf,2,stuff
for iyear=1979,2005 do begin
  for mon=0,11 do begin
    month=mon+12*(iyear-1979)
    readf,2,stuff & readf,2,stuff
    for lon=0,71 do begin
      readf,2,xx,b
      for lat=0,5 do ccd_tropo(lon,lat,month)=b(lat)
    endfor
  endfor
endfor
close,2

ccd_strat=fltarr(72,6,324)
openr,2,'strat.txt'
for i=0,9 do readf,2,stuff
for iyear=1979,2005 do begin
  for mon=0,11 do begin
    month=mon+12*(iyear-1979)
    readf,2,stuff & readf,2,stuff
    readf,2,b
    for lon=0,71 do begin
      for lat=0,5 do ccd_strat(lon,lat,month)=b(lat)
    endfor
  endfor
endfor
close,2

end