include file: commvo.cdk 57
#if defined (DOC)
*
*     . J. Halle    *CMDA/AES Oct 99.
*             - Added ground temperature (TG) to the model state.
*     . Y. Yang     July 2003
*             - Only changed comments for species
*     . Y. Yang     Feb. 2005
*             - Removed OZ-related variables
C
C     COMDECK: COMMVO
C     ---------------
C     Model state interpolated at the obs. stations
C     ----------------------
C     GMOBS(NKGDIMO,NMXOBS)
C     .     with NMXOBS = max. number of observations
C     RPPOBS(NFLEV,NMXOBS):  interpolation weight profiles
C     RMTHOBS(NMXOBS):  geopotential height of high resolution topography(m2.s-2)
C     RMTMOBS(NMXOBS):  geopotential height of model topography(m2.s-2)
C     mtag(NMXOBS)  :  Book keeping model tags
C     npexy(nmxobs) :  Bit encoded PEs coordinates (XX: Bit #31-16, YY: Bit #15-0)
C
C     Splitting of GMOBS
C     ---------------
C     GOMU(NFLEV,NMXOBS) :  zonal wind
C     GOMV(NFLEV,NMXOBS) :  meridional wind
C     GOMT(NFLEV,NMXOBS) :  temperature field
C     GOMGZ(NFLEV,NMXOBS):  geopotential field
C     GOMTR(NFLEV*NCMTMAX,NMXOBS):  chemical species
C     GOMQ(NFLEV,NMXOBS) :  specific humidity
C     GOMES(NFLEV,NMXOBS):  t - td
C     GOMPS(1   ,NMXOBS) :  surface pressure
C     GOMTGR(1  ,NMXOBS) :  ground temperature
C
#endif
 
      integer mtag(nmxobs), npexy(nmxobs)
      REAL*8 GOMOBS(NKGDIMO,NMXOBS)
      REAL*8 GOMU(NKGDIMO,NMXOBS), GOMV(NKGDIMO,NMXOBS)
      REAL*8 GOMT(NKGDIMO,NMXOBS), GOMQ(NKGDIMO,NMXOBS)
      REAL*8 GOMGZ(NKGDIMO,NMXOBS)
      REAL*8 GOMTR(NKGDIMO,NMXOBS), gomes(nkgdimo,nmxobs)
      REAL*8 GOMPS(NKGDIMO,NMXOBS), RPPOBS(NFLEV,NMXOBS)
      REAL*8 RMTHOBS(NMXOBS), RMTMOBS(NMXOBS), GOMTGR(NKGDIMO,NMXOBS)
      POINTER (PTMOBS,GOMOBS), (PTOMU,GOMU),(PTOMV,GOMV)
      POINTER (PTOMT,GOMT),(PTOMQ,GOMQ), (PTOMPS,GOMPS),(ptpexy,npexy)
      POINTER (PTOMGZ,GOMGZ), (PTOMTR,GOMTR)
      POINTER (PTOMES,GOMES),(PTPPOBS,RPPOBS), (ptmtag,mtag)
      POINTER (PTMTHOBS,RMTHOBS),(PTMTMOBS,RMTMOBS),(PTOMTGR,GOMTGR)
      COMMON /POMMVO/PTMOBS, PTOMU, PTOMV, PTOMT, PTOMQ, PTOMPS
      COMMON /POMMVO/PTOMGZ, PTOMTR, ptomes,PTPPOBS
      COMMON /POMMVO/PTMTHOBS,PTMTMOBS,PTOMTGR, ptmtag, ptpexy