include file: comcorr.cdk 23
#if defined (DOC)
C
C     Revisions:
C               Y.J. Rochon, ARQX, Nov. 2008
C               - Addition of correlation coefficients for new balance
C                 operators (*BAL_*PP_CC)
C
C     COMDECK: COMCORR
C     --------------
C     1. Spectral  forecast error correlation
C     .  ------------------------------------
C     CORNS(NKSDIM,NKSDIM,NTRUNC,NLATBIN):  the correlations depend on the meridional
C     .                             wavenumber and the vertical
C     RSTDDEV(NKSDIM,0:NTRUNC)
C     PtoT(NFLEV+1,NFLEV): matrix operator for converting P to (T,lnPs)
C     THETA(NFLEV,NJ):  turning angle used to define balanced divergence
C
C     BAL_TBPP_CC(NFLEV,NJ): TB(PP)-CC balance operator
C     BAL_UTPP_UC(NFLEV,NJ): UT(PP)-UC balance operator
C
C
#endif
      REAL*8 CORNS(NKSDIM2,NKSDIM2,0:NTRUNC,NLATBIN),
     +       RSTDDEV(NKSDIM,0:NTRUNC),CORVERT(NKSDIM2,NKSDIM2)
      POINTER (PTCORNS,CORNS), (PTSTDDEV,RSTDDEV), (PTCORVERT,CORVERT)
c
      REAL*8 PtoT(NFLEV+1,NFLEV,NJ), THETA(NFLEV,NJ), THETA2(NFLEV,NJ,NLATBIN)
      REAL*8 BAL_TBPP_CC(NFLEV,NJ),BAL_UTPP_UC(NFLEV,NJ)
      POINTER (PTPtoT,PtoT),(PTTHETA,THETA),(PTTHETA2,THETA2)
      POINTER (PBAL_TBPP_CC,BAL_TBPP_CC),(PBAL_UTPP_UC,BAL_UTPP_UC)
C
      INTEGER IBAL_TBPP_CC,IBAL_UTPP_UC      
C
      COMMON /POMCORR/PTCORNS, PTSTDDEV, PTPtoT, PTTHETA, PTTHETA2, PTCORVERT,     
     1        PBAL_TBPP_CC,PBAL_UTPP_UC
      COMMON /INDCORR/IBAL_TBPP_CC,IBAL_UTPP_UC