include file: commvog.cdk 31
#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-ralated variables
C
C     COMDECK: COMMVOG
C     ---------------
C     Background state interpolated at the obs. stations
C     ----------------------
C     GMOBSG(NKGDIMO,NMXOBS)
C     .     with NMXOBS = max. number of observations
C
C     Splitting of GMOBS
C     ---------------
C     GOMUG(NFLEV,NMXOBS) :  zonal wind
C     GOMVG(NFLEV,NMXOBS) :  meridional wind
C     GOMTG(NFLEV,NMXOBS) :  temperature field
C     GOMGZG(NFLEV,NMXOBS):  geopotential field
C     GOMTRG(NFLEV*NCMTMAX,NMXOBS):  chemical species
C     GOMQG(NFLEV,NMXOBS) :  specific humidity
C     GOMESG(NFLEV,NMXOBS):  t - td
C     GOMPSG(1   ,NMXOBS) :  surface pressure
C     GOMTGRG(1  ,NMXOBS) :  ground temperature
C     oltv(2,NFLEV,NMXOBS):  Tangent linear operator of virtual temperature
C     rtapfac(NFLEV,NMXOBS): Background surface pressure dependant
C                            factor used for Temperature to Phi
C                            transformation, its TLM and ajoint.
C     ollq2es(3,NFLEV,NMXOBS):  Tangent linear operator of lnq to dewpoint conversion
C     estdg(NFLEV,NMXOBS) :  es(Td) for background state used in del(ES) --> delq transform
C                            and its adjoint when in chum='ES' mode (i.e. lesahuo, aesahuo).
C     dlnesg(NFLEV,NMXOBS):  d(lnes(Td))/dTd for background state used in del(ES) --> delq transform
C                            and its adjoint when in chum='ES' mode (i.e. lesahuo, aesahuo).
C     rqgfac(NFLEV,NMXOBS):  0 or 1 due to threshold in ES --> q transform. Used by lesahuo, aesahuo
C     GOMTGRG(1  ,NMXOBS) :  ground temperature
#endif
 
      REAL*8 GOMOBSG(NKGDIMO,NMXOBS)
      REAL*8 GOMUG(NKGDIMO,NMXOBS), GOMVG(NKGDIMO,NMXOBS)
      REAL*8 GOMTG(NKGDIMO,NMXOBS), GOMQG(NKGDIMO,NMXOBS)
      REAL*8 GOMGZG(NKGDIMO,NMXOBS)
      REAL*8 GOMTRG(NKGDIMO,NMXOBS), gomesg(nkgdimo,nmxobs)
      REAL*8 GOMPSG(NKGDIMO,NMXOBS), GOMTGRG(NKGDIMO,NMXOBS)
      real*8 oltv(2,nflev,nmxobs),rtapfac(nflev,nmxobs)
      real*8 ollq2es(3,nflev,nmxobs)
      real*8 estdg(NFLEV,NMXOBS), dlnesg(NFLEV,NMXOBS)
      real*8 rqgfac(NFLEV,NMXOBS)
      POINTER (PTMOBSG,GOMOBSG),(PTOMUG,GOMUG),(PTOMVG,GOMVG)
      POINTER (PTOMTG,GOMTG),(PTOMQG,GOMQG), (PTOMPSG,GOMPSG)
      POINTER (PTOMGZG,GOMGZG), (PTOMTRG,GOMTRG)
      POINTER (PTOMESG,GOMESG),(PTOMTGRG,GOMTGRG)
      pointer (ptltv,oltv),(pttapfac,rtapfac),(ptlq2es,ollq2es)
      pointer (ptestdg,estdg),(ptdlnesg,dlnesg),(ptrqgfac,rqgfac)
      COMMON /POMMVOG/PTMOBSG, PTOMUG, PTOMVG, PTOMTG, PTOMQG
      COMMON /POMMVOG/PTOMPSG ,PTOMGZG, PTOMTRG, ptomesg, PTOMTGRG
      COMMON /POMMVOG/ptltv,pttapfac,ptlq2es,ptestdg,ptdlnesg,ptrqgfac