c
c nfhist = number of fields to read from history (passed to getgcmz)
c  (actually getgcmz reads 16 from history + N2 + optionally FOF2 = 18)
c nflds = number of fields available to plot
c         (as of 5/30/92, nflds = nfhist+1 for rho (see glbxfer)
c
      parameter (imx=73,jmx=36,kmx=25,nflds=19,nfhist=18)
      parameter (dlon=5.,dlat=5.,dzp=.5)
      parameter (glon1=-180.,glat1=-87.5,gzp1=-7.)
      parameter (mxvol=20,mxtms=241)
      character*8 labform
      character*24 histvol
      character*40 fldlab
      common/vidchar/ histvol(mxvol),fldlab(nflds),labform(nflds)
      common/vid/ nvol,ntms,mtimes(3,mxtms),slev,slt,jday1,iden
      common/grid/ gcmzp(kmx),gcmlon(imx),gcmlat(jmx)
      common/plot/ ipltgcm(nflds),cint(nflds),cmin(nflds),cmax(nflds),
     +  icolor,info,totmin,totmax,ninterp,nfbetseg,iproj(nflds),
     +  eradii,censatv(2),icella,mkframes,nfbegend,ititles(3),
     +  ln(nflds),nfixclr
c     parameter (mxgpi=200,ndays=10,ntmstot=ndays*24+1)
      parameter (mxgpi=200,ndays=8,ntmstot=ndays*24+1)
      common/kp/ kpbar,kpgraph,ngpi,gpikp(mxgpi),igpiday(mxgpi),
     +  gpiut(mxgpi),nkp,vpkpgce(4),vpkpgsv(4),rkp(ntmstot)