c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timedif/timedif.h
c------------------------------------------------------------------
c
      parameter(mxvols=10,mxtms=25,ntimefld=31,mxpolat=10,mxloc=10)
      parameter(dlat=5.,dlon=5.)
      parameter(glat1=-87.5,glon1=-180.,cpspval=1.e36)
      common/gcmgrid/ gcmlat(jmx),gcmlon(imx),gcmzp(kmx),nplfld
c
      character*32 pertvol(mxvols),cntrvol(mxvols)
      character*8 chtmpert(mxtms),chtmcntr(mxtms),cpertvol,ccntrvol,
     +  timelab_short(ntimefld)
      common/chinp/ pertvol,cntrvol,chtmpert,chtmcntr,timelab_short,
     +  cpertvol,ccntrvol
      common/input/ iden,ntms,luhist,npvol,ncvol,ut(mxtms),
     +  mdpert(mxtms),mhpert(mxtms),mmpert(mxtms),utpert(mxtms),
     +  mdcntr(mxtms),mhcntr(mxtms),mmcntr(mxtms),utcntr(mxtms),
     +  ipltime(ntimefld),itimelog(ntimefld),wtime(ntimefld)
c
c pointer phtscale is allocated in getinp when nhtscale is known
      pointer(phtscale,htscale(1))
      common/plt/ iframe,iplglb,spls(kmx),npls,shts(kmx),nhts,
     +  icolor,npollat,perimlat(mxpolat),slon(imx),nlon,ipllon,
     +  slat(jmx),nlat,ipllat,zprange(2),izprange(2),iplloc,
     +  rloc(2,mxloc),nloc,zmlon,iplglbm,icont,ipllonht,
     +  iplz,cint(ntimefld),cmin(ntimefld),cmax(ntimefld),
     +  phtscale,nhtscale