c
c------------------------------------------------------------------
c Begin file /home/sting/foster/timegcm/timegcm.h
c------------------------------------------------------------------
c
c ntimefld = 30: tn,un,vn,o2,o,n4s,noz,co,co2,h2o,h2,hox,o+,ch4,o21d,
c                 1, 2, 3, 4,5,  6,  7, 8,  9, 10,11, 12,13, 14,  15,
c                no2,no,o3,npo1,oh,ho2,h,n2d,ti,te,ne,o2+,w, z,n2
c                 16,17,18,  19, 20,21,22,23,24,25,26,27,28,29,30
c (1/28-29/92: added ch4 and o21d)
c
      parameter (mxloc=10,mxpolat=10)
      character*8 timelab_short(ntimefld)
      common/chcomm/ timelab_short
      common/timecom/ ipltime(ntimefld),iplglb,iframe,iplloc,
     +  perimlat(mxpolat),npollat,ipllon,ipllat,iprint,ivff,
     +  cint(ntimefld),cmin(ntimefld),cmax(ntimefld),icont,zprange(2),
     +  izprange(2),iplglbm,udat(imx,jmx),vdat(imx,jmx)
c
c Note zmlon is special flag, meaning calculate zonal means in pltlatzp.
c
      common/sgrid/ spls(kmx),npls,rloc(2,mxloc),nloc,slon(imx),
     +  nlon,slat(jmx),nlat,zmlon,shts(kmx),nhts
c