include file: comoba.cdk 87
#if defined (DOC)
C
C Revision:
C     S. Pellerin *ARMA/SMC May 2000
C            - Fix for F90 conversion:
*                   .Illimination of pointer to character*9 CSTNID
*                   .Introduction of distinc pointer for integer
*                    and real cma arrays (ptmobhdr,ptrobhdr,ptmobdata,ptrobdata)
C
C     JM Belanger CMC Aug 2000
C            -3Dvar 32 bits conversion. Add ROBDATA8.
C     Y. Yang and Y.J. Rochon, Aug 2010
C            - Extended ROBDATA8(3:11,NDATAMX) to ROBDATA8(1:14:NDATAMX)
C              partly since ROBDATA8(2, *) will be used
C     Y.J. Rochon, Sept 2010
C            - Extended jpnmxobs to 300000
C     Y.J. Rochon March 2011
C            - Since ROBDATA8(1:14:NDATAMX) below, its space allocation via
C              its pointer ptrobdata8 was also changed in module SUALOBS
C
C     COMDECK: COMOBA
C     ---------------
C     Observation arrays
C     ----------------------
C     ROBHDR (NCMLET,NOBTOT) : Real quantities contained in the header of
C     .                        an observation
C     MOBHDR (NCMLET,NOBTOT) : as ROBHDR but for integral quantities
C     ROBDATA(NCMLBO,NDATA)  : Real quantities associated with a single datum
C     MOBDATA(NCMLBO,NDATA)  : as ROBDATA but for integral quantities
C
C     ROBDATA8(7:9,NDATAMX)  : partial real*8 duplicate of real*4
C                              cma array ROBDATA(NCMOMA:NCMOMN,*)
#endif
      REAL    ROBHDR(NCMLET,NMXOBS), ROBDATA(NCMLBO,NDATAMX)

!cjmb  L'index de la 1ere dimension de ROBDATA8 permet d'utiliser
!cjmb  les memes variables (NCMPRL=3,NCMPPP=4,NCMVAR=5,NCMOMF=6,
!cjmb  NCMOMA=7,NCMOMI=8,NCMOMN=9,NCMOER=10,NCMPRM=11) que ROBDATA.

!     Extend the CMA definition since we are to use NCMPOB =2

!      REAL*8  ROBDATA8(3:11,NDATAMX)

!      REAL*8  ROBDATA8(1:11,NDATAMX)
!      REAL*8  ROBDATA8(NCMLBO,NDATAMX)
      REAL*8  ROBDATA8(14,NDATAMX)

      INTEGER MOBHDR(NCMLET,NMXOBS), MOBDATA(NCMLBO,NDATAMX),jpnmxobs
      parameter (jpnmxobs=300000)
      CHARACTER*9 CSTNID(jpnmxobs)

      POINTER (ptrobhdr,ROBHDR), (ptmobhdr,MOBHDR), (ptrobdata,ROBDATA)
      pointer (ptmobdata,MOBDATA), (ptrobdata8,robdata8)
 
      COMMON /POMOBA/ptrobhdr,ptrobdata,ptmobhdr,ptmobdata,ptrobdata8

      common /comobac/cstnid