include file: commatrix.cdk 4
#if defined (DOC)
!
!
!Author  : Y.J. Rochon    Aug 2010
!             - Matrices for use in TLM and adjoints
!Revision:
!     COMDECK: COMMATRIX
!     -------------------
!
! Definition of variables related to chemical species
!
! Integer variables/constants:
!
! NMATMAX    : Max number of matrices of each type
! NUMAVGK    : Total number of averaging kernel matrices
! NUMCORL    : Total number of correlation/covariance matrices
! NAVGKERN   : Row and column dimensions of RAVGKERN
! NCORREL    : Row amnd column dimensions of RCORREL
!
! Real*8 variables:
!
! RCORREL     : Correlation/covaraiance matrices
! RAVGKERN    : Averaging kernel matrices
!
#endif
!
      INTEGER NMATMAX
      PARAMETER (NMATMAX=40000)
      INTEGER NAVGKERN(NMATMAX,2),NCORREL(NMATMAX,2),NUMAVGK,NUMCORL
!
      REAL*8 RAVGKERN(JPNFLEV,JPNFLEV,NMATMAX)
      REAL*8 RCORREL(JPNFLEV,JPNFLEV,NMATMAX)
!      
      COMMON /COMMATRIXI/NAVGKERN,NCORREL,NUMAVGK,NUMCORL
!
      COMMON /COMMATRIXR/RAVGKERN,RCORREL 
!