include file: comsp.cdk 19
#if defined (DOC)
*
*     . J. Halle    *CMDA/AES Oct 99.
*             - Added ground temperature (TG) to the model state.
*     . Y. Yang     July 2003
*             - Only changed the comments for species
*     . Y.J. Rochon, May 2005
*             - Removed OZ-related arrays
C
C     COMDECK: COMSP
C     --------------
C
C     Spectral  model state
C     ----------------------
C     SP(NLA,2,NKSDIM):  global state
C
C     Splitting of SP
C     ---------------
C     SPVOR(NLA,2,NFLEV)   :   vorticity at all levels of the model
C     SPDIV(NLA,2,NFLEV)   :  divergence at all levels of the model
C     SPTT (NLA,2,NFLEV)   : temperature at all levels of the model
C     SPQ  (NLA,2,NFLEV)   : specific humidity at all levels of the model
C     SPGZ (NLA,2,NFLEV)   : geopotential at all levels of the model
C     SPTR (NLA,2,NFLEV*NCMTMAX)   : species 
C     SPPS (NLA,2,1)       : surface pressure
C     SPTG (NLA,2,1)       : ground temperature
C
#endif
      REAL*8 SP(NLA,2,NKSDIM),SPVOR(NLA,2,NKSDIM)
     S     , SPDIV(NLA,2,NKSDIM), SPTT(NLA,2,NKSDIM)
     S     , SPQ(NLA,2,NKSDIM), SPPS(NLA,2,NKSDIM),SPTG(NLA,2,NKSDIM)
     S     , SPGZ(NLA,2,NKSDIM), SPTR(NLA,2,NKSDIM), SPTB(NLA,2,NFLEV)
C
      REAL*8 SPLAT(NLA,2,NKSDIM,NLATBIN)

      POINTER (PTSP,SP), (PTSVOR,SPVOR), (PTSDIV,SPDIV), (PTSTT,SPTT)
     S     ,  (PTSPQ,SPQ) , (PTSPPS,SPPS), (PTSPTG,SPTG)
     S     , (PTSPGZ,SPGZ),  (PTSPTR,SPTR), (PTSPTB,SPTB)
     S     , (PTSPLAT,SPLAT)
C
      COMMON /POMSP/PTSP,PTSVOR,PTSDIV,PTSTT
     S     ,PTSPQ, PTSPPS, PTSPTG
     S     ,PTSPGZ,PTSPTR,PTSPTB,PTSPLAT