include file: comsplit.cdk 6
#if defined (DOC)
*
*
*Author  : Y. Yang    June 2005
*             - variables related to splitting analysis algorithm
*Revision:
*
*     COMDECK: COMSPLIT
*     --------------
* definition of variables related to splitting algorithm
*
*     CVARUNOBS : list of unobserved variables to be updated
*     CVARANAL  : list of assimilated variables used to update CVARUNOBS
*                 NOTE: CVARUNOBS  and CVARANAL should be in pair, meaning to use CVARANAL(i) to 
*                 update CVARUNOBS (i), where i =1, NPAIRS
*     NPAIRS    : the number of variables to update
*     LDIAGNO   : logical flag indicating whether the splitting operator is diagno or not 
*     CFNAMSPLIT: stats file name of the spliting operator
*     NULSPLITOPER logical unit name for the splitting operator
*     KULSPLITGD    logical unit name for outputting physical space splitting operator
*     NULINCLR_UNOBS logical unit name for low-resolution increment of unobserved
*     NULINCHR_UNOBS logical unit name for high-resolution increment of unobserved
*     UNLSTD_UNOBS   logical unit name for anlysis field of unobserved
*     SPLITOPER : matrix of the spliting operator (non-diagno)
*     SPLITOPERD: matrix of the spliting operator (diagno)
#endif
C
      CHARACTER*4 CVARUNOBS(NCMTMAX), CVARANAL(NCMTMAX)
      INTEGER NPAIRS
      INTEGER NULSPLITOPER,KULSPLITGD
      LOGICAL LDIAGNO
      LOGICAL LREMVE_MEAN_INC,LSCAL_OPER
      CHARACTER*50 CFNAMSPLIT
      CHARACTER*120 CFNAME_MEAN_INC
      CHARACTER*50 CFTRLM_S,CFREBM_S_OBS,CFREBM_S_UNOBS,CFREHM_S_UNOBS,CFANLM_S_UNOBS
      INTEGER ninmpg_unobs, nulinclr_obs,nulinclr_unobs,nulinchr_unobs,nulstd_unobs
      INTEGER nulinc_mean
      REAL*8 SPLITOPER (nflev, nflev, nj)
      REAL*8 SPLITOPERD(nflev, nj)


      COMMON /COMSPLIT/CVARUNOBS, CVARANAL, NPAIRS, LDIAGNO, 
     &       CFNAMSPLIT, NULSPLITOPER,KULSPLITGD, 
     &       CFTRLM_S,CFREBM_S_OBS,CFREBM_S_UNOBS,CFREHM_S_UNOBS,CFANLM_S_UNOBS,
     &       ninmpg_unobs, nulinclr_obs,nulinclr_unobs,nulinchr_unobs,nulstd_unobs,
     &       LREMVE_MEAN_INC, CFNAME_MEAN_INC, nulinc_mean, LSCAL_OPER