c
c Satellite data:
c
      parameter(mxpts=1000)
      real satlat(mxpts),satlon(mxpts),satut(mxpts),satslt(mxpts)
      character*56 satfile
      common/dat/ satfile,satlat,satlon,satut,satslt,lusat,npts
c
c Tgcm inputs:
c nfhist = 31: tn,un,vn,o2,ox,n4s,noz,co,co2,h2o,h2,hox,o+,ch4,o21d,
c              no2,no,o3,o1,oh,ho2,h,n2d,ti,te,ne,o2+,w,z,epot,n2
c
      parameter (jmx=36,imx=73,kmax=45, imxp1=imx+1, imxp3=imx+3)
      parameter (nfhist=31,nftot=31)
      parameter (glat1=-87.5, glon1=-180., zp1=-17.,
     +           dlat=5.,     dlon=5.,     dzp=0.5)
      parameter (spval=1.e36,ispval=99999)		! special values
      parameter(mxvols=10,mxtms=241)
      character*24 histvols(mxvols)
      character*8 flab
      logical isdyn,istimes
      integer fields,iwrascii
      common/tgcm/ iden,mtimes(3,mxtms),ntms,ut(mxtms),nhvols,luhist,
     +  ivol,luascii,isdyn,ifget(nfhist),nfget,ifplt(nftot),nfplt,
     +  histvols,inttime,height,loght(nftot),fields(nftot),flab(nftot),
     +  lineplt,iwrascii
      common/gcmgrid/ gcmlat(jmx),gcmlon(imx),gcmzp(kmax)
      common/indices/ixt,ixu,ixv,ixo2,ixox,ixn4s,ixnoz,ixco,
     +               ixco2,ixh2o,ixh2,ixhox,ixop,ixch4,ixo21d,
     +               ixno2,ixno,ixo3,ixo1,ixoh,ixho2,ixh,
     +               ixn2d,ixti,ixte,ixne,ixo2p,ixw,ixz,ixpot,ixn2
      dimension ixgcm(nftot)
      equivalence(ixgcm,ixt)