C
C $Id: trcode.h,v 1.4 2008-07-27 03:55:37 haley Exp $
C                                                                      
C                Copyright (C)  2000
C        University Corporation for Atmospheric Research
C                All Rights Reserved
C
C The use of this Software is governed by a License Agreement.
C
      COMMON /TRCODE/ CELMVI, CELMCR, CELMCI,
     +                GPELPL, GPELPM, GPELTX, GPELPG, GPELCA, GPELGP,
     +                ATELLI, ATELLT, ATELLW, ATELLC, ATELMB, ATELMT,
     +                ATELMZ, ATELMC, ATELTI, ATELTF, ATELTP, ATELCE,
     +                ATELCS, ATELTC, ATELCH, ATELCO, ATELTH, ATELTA,
     +                ATELFI, ATELIS, ATELHI, ATELPI, ATELFC, ATELFR, 
     +                ATELPT, ATELPS, ATELCB, ATELAS
C
C  DEFINE THE TYPES OF THE COMMON DATA
C
      INTEGER CELMVI, CELMCR, CELMCI,
     +        GPELPL, GPELPM, GPELTX, GPELPG, GPELCA, GPELGP,
     +        ATELLI, ATELLT, ATELLW, ATELLC, ATELMB, ATELMT, ATELMZ,
     +        ATELMC, ATELTI, ATELTF, ATELTP, ATELCE, ATELCS, ATELTC,
     +        ATELCH, ATELCO, ATELTH, ATELTA, ATELFI, ATELIS, ATELHI,
     +        ATELPI, ATELFC, ATELFR, ATELPT, ATELPS, ATELCB, ATELAS
