c
c------------------------------------------------------------------
c Begin file /home/sting/foster/getgcm/tgcmrd.h
c------------------------------------------------------------------
c
c Global include for reading tgcm histories:
c
c nfrd = number of fields to read off tgcm history:
      parameter (nfrd=15)
c
c nwhdr = number of words in tigcm header; nbhdr = number of bytes
c nwsum = number of words in tigcm summary; nbsum= number of bytes
      parameter (nwhdr=512,nbhdr=nwhdr*8)
      parameter (nwsum=100,nbsum=nwsum*8)
c
c Number of words in a latitude slice:
c nwlat = 1+74*25*16 (1 + longitude * pressure * nfields+1)
c
c 4/8/91: Extend upward to +7:
c nwlat = 1+74*29*16 (1 + longitude * pressure * nfields+1)
c (nfields+1 to include potential)
c
c     parameter (nwlat=29601,nblat=nwlat*8)
      parameter (nwlat=34337,nblat=nwlat*8)
      dimension frd(nwlat)
c
c frd(nwlat) has been increased to 1+74*25*16 for poten
c Thus fpot is added to the common so frd is equivalenced to
c   the 15 fields, plus potential
c 
      common/tgcmbyt/ sum(nwsum),f(imxp1,kmx,nfrd),fpot(imxp1,kmx)
      equivalence(frd(2),f)
c