c
c nflds (in timegcm.h) = number of fields on timegcm histories (30)
c nftot = number of fields available in this code (nflds+other calculated
c         fields) As of 2/19/92 other fields are: 
c         ver6300 (volume emmision rate at 6300A)
c nfplt = number of fields (out of max nftot) to plot (this is simply
c         sum of ipltime(ip) values that are > 0 from user input
c
      parameter(nftot=31)
      parameter(mxvols=4,mxtms=100)
      character*32 gcmvol(mxvols)
      common/gcm/ gcmvol,mt(3,mxtms),nhtscale,ht1,dht,cint(nftot),
     +  cmin(nftot),cmax(nftot),iydmod