#if defined (DOC)
C
C     COMDECK: COMSTDD
C     ---------------
C     ACCUMULATORS SPACE FOR STATS COMPUTATION
C     IMPLEMENTED AS COPIES OF GRID POINT MODEL STATE
C     ----------------------
C     XMGD(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND) : FOR MEAN
C     SGD(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND) : FOR VARIANCES
C
C     SPLITTING OF XMGD
C     ---------------
C     XMUU (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     XMVV (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     XMTT (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     XMLQ (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     XMPP (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     XMCC (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C
C     XMP0(NIBEG:NIEND,     1,NJBEG:NJEND)
C     XMTG(NIBEG:NIEND,     1,NJBEG:NJEND)
C
C     SPLITTING OF SGD
C     ---------------
C     SUU (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     SVV (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     STT (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     SLQ (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     SPP (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C     SCC (NIBEG:NIEND,NFLEV,NJBEG:NJEND)
C
C     SP0(NIBEG:NIEND,     1,NJBEG:NJEND)
C     STG(NIBEG:NIEND,     1,NJBEG:NJEND)
C
C     ADDITIONAL SPACE FOR VARIANCES
C     ------------------------------
C     STDUU(NJ,NFLEV)
C     STDVV(NJ,NFLEV)
C     STDTT(NJ,NFLEV)
C     STDUU(NJ,NFLEV)
C     STDPP(NJ,NFLEV)
C     STDCC(NJ,NFLEV)
C
C     STDP0(NJ)
C     STDTG(NJ)
C
C
#endif
C
C  SPACE FOR ACCUMULATORS
C
      POINTER (PTRMUU,XMUU), (PTRMVV,XMVV), (PTRMTT,XMTT), (PTRMLQ,XMLQ)
      POINTER (PTRMPP,XMPP), (PTRMCC,XMCC), (PTRMP0,XMP0), (PTRMTG,XMTG),
     +        (PTRMGD,XMGD)
C
      POINTER (PTRSUU,SUU), (PTRSVV,SVV), (PTRSTT,STT), (PTRSLQ,SLQ)
      POINTER (PTRSPP,SPP), (PTRSCC,SCC), (PTRSP0,SP0), (PTRSTG,STG),
     +        (PTRSGD,SGD)
C
      REAL*8 XMGD(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMUU(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMVV(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMTT(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMLQ(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMPP(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMCC(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMP0(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 XMTG(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
C
      REAL*8 SGD(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 SUU(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 SVV(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 STT(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 SLQ(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 SPP(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 SCC(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 SP0(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
      REAL*8 STG(NIBEG:NIEND,NKGDIM+2*NFLEV,NJBEG:NJEND)
C
      COMMON /STDACU/ PTRMGD, PTRSGD,
     +                PTRMPP, PTRMCC, PTRSPP, PTRSCC,
     +                PTRMUU, PTRMVV, PTRMTT, PTRMLQ, PTRMP0, PTRMTG,
     +                PTRSUU, PTRSVV, PTRSTT, PTRSLQ, PTRSP0, PTRSTG
C
      POINTER (PTRUU,STDUU), (PTRVV,STDVV), (PTRTT,STDTT),
     +        (PTRLQ,STDLQ), (PTRPP,STDPP), (PTRCC,STDCC),
     +        (PTRP0,STDP0), (PTRTG,STDTG)
C
      REAL*8 STDUU(NJ,NFLEV),STDVV(NJ,NFLEV),STDTT(NJ,NFLEV),
     +       STDLQ(NJ,NFLEV),STDPP(NJ,NFLEV),STDCC(NJ,NFLEV),STDP0(NJ),
     +       STDTG(NJ)
C
      COMMON /STDDEV/ PTRUU, PTRVV, PTRTT, PTRLQ,
     +                PTRPP, PTRCC, PTRP0, PTRTG
C
      POINTER (PTRUUG,STDUUG), (PTRVVG,STDVVG), (PTRTTG,STDTTG),
     +        (PTRLQG,STDLQG), (PTRPPG,STDPPG), (PTRCCG,STDCCG)
C
      REAL*8 STDUUG(NFLEV),STDVVG(NFLEV),STDTTG(NFLEV),
     +       STDLQG(NFLEV),STDPPG(NFLEV),STDCCG(NFLEV),STDP0G,
     +       STDTGG
C
      COMMON /STDDEVG/ PTRUUG, PTRVVG, PTRTTG, PTRLQG,
     +                 PTRPPG, PTRCCG, STDP0G, STDTGG
C