c
c------------------------------------------------------------------
c Begin file /home/sting/foster/proclib/tgcmhdr.h
c------------------------------------------------------------------
c
c Global include file containing tgcm header info:
c
      parameter(naurpx=54,nlex=600)
c
c Non-character tgcm header info in /tgcmhdr/
      COMMON /tgcmhdr/ ITER,NDAY,NHR,NMIN,DATE(2),SOURCT(3),START(3),
     + STP(6),HIST(6),SAV(3),STEP,DIFHOR,IUIVI,IPOWER,AURORA,DISPOS,
     + MAG(4),SDTIDE(10),DTIDE(2),HP,CP,BYIMF,F107D,F107A
      INTEGER START,STP,HIST,STEP,SOURCT,SAV,DATE,
     +  DIFHOR,AURORA,DISPOS
      REAL MAG
c
c Character tgcm header info in /gcmhdrc/
      common/gcmhdrc/ data(3),source(3),output(3,20),label(40),rdate
      CHARACTER*8 DATA,SOURCE,LABEL,
     +  OUTPUT,RDATE
c
c Additional header info:
      COMMON/AURDAT/ AURPS(NLEX,2,NAURPX), NPTS(NAURPX),IPR, NAURP, 
     1 PARAMV(NAURPX), JBYHEM, JDITH, JDIDK      
C
C  IONCR 11/88        
      COMMON /IONCR/ ISTAR,IHEM,THETA0(2),OFFA(2),OFFC(2),DSKOFA(2), 
     1DSKOFC(2),PHID(2),PHIN(2),PHIDP0(2),PHIDM0(2),PHINP0(2),PHINM0(2), 
     2 PSIM(2),PSIE(2),PCEN(2),R1(2)       
     3, THETAC(2),R2(2)                                      
c
C  OVALR 3/89                                            
      COMMON /OVALR/ RRAD(2),H0,RH,RROTH,E0,REE,RROTE,FC,ALFAC,FD,ALFAD 
     |, ALFK,ALF6,ALF21,RROT6,RROT21,RD6,RD6V,RD21,RH6,RH21,RT6,RT21  
     |, ALFA0,RALFA,ALFA20,RALFA2,E20,RE2                     
      COMMON /PARAMD/ DUMDEG(36),EC,ED,DUMA(13)                   
c