include file: comgd0.cdk 40
#if defined (DOC)
*
*     . J. Halle    *CMDA/AES Oct 99.
*             - Added ground temperature (TG) to the model state.
*     . Y. Yang   Dec. 2004
*             - Only changed comments for chemical species
*     . Y. Yang Feb. 2005
*             - Removed OZ-related variables
C
C     COMDECK: COMGD0
C     ---------------
C     Grid point model state
C     ----------------------
C     GD(NIBEG:NIEND,NKGDIM,NJBEG:NJEND) : global model state
C
C     Splitting of GD
C     ---------------
C     UT0 (NIBEG:NIEND,NFLEV,NJBEG:NJEND) :  zonal wind image
C     VT0 (NIBEG:NIEND,NFLEV,NJBEG:NJEND) :  meridional wind image
C     TT0 (NIBEG:NIEND,NFLEV,NJBEG:NJEND) :  temperature field
C     Q0  (NIBEG:NIEND,NFLEV,NJBEG:NJEND) :  specific humidity
C     GZ0 (NIBEG:NIEND,NFLEV,NJBEG:NJEND) :  geopotential at all levels of the model
C     GTR0 (NIBEG:NIEND,NFLEV*NCMTMAX,NJBEG:NJEND): all species 
C     GPS0(NIBEG:NIEND,    1,NJBEG:NJEND) :  surface pressure
C     GTG0(NIBEG:NIEND,    1,NJBEG:NJEND) :  ground temperature
C
#endif
C
      REAL*8 GD  (NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,UT0 (NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,VT0 (NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,TT0 (NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,Q0  (NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,GZ0 (NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,GTR0(NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,GPS0(NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,GTG0(NIBEG:NIEND,NKGDIM,NJBEG:NJEND)
     S      ,TB0(NIBEG:NIEND,NFLEV,NJBEG:NJEND)
     S      ,TB_out(NI,NFLEV,NJ)
C
C     Pointer statements
C
      POINTER (PTGD,GD),(PTUT0,UT0),(PTVT0,VT0), (PTT0,TT0)
     S     ,(PTQ0,Q0),(PTGPS0,GPS0),(PTGTG0,GTG0)
     S     , (PTGZ0,GZ0), (PTTR0,GTR0), (PTTB0,TB0), (PTTB_out,TB_out)
C
C
      COMMON /POMGD0/PTGD,PTUT0,PTVT0,PTT0
     S     ,PTQ0, PTGPS0, PTGTG0
     S     ,PTGZ0, PTTR0, PTTB0, PTTB_out
C