include file: cvcord.cdk 87
#if defined (DOC)
!
!  Modified by P. Koclas February 1995
!
!     - DEFINES VERTICAL COORDINATE TO READ IN
!     ---------------    IN BURP FILE REPORTS
!     - CONTAINS DATA FAMILIES EXPECTED IN BURP FILES
!		( UPPER AIR,SURFACE,... TOVS...  ETC.)
!     - CONTAINS BURP FILE NAMES
!     - CONTAINS INDICES POINTING TO THE BEGINNING
!	AND END POSITIONS  OF EACH DATA FAMILY IN CMA
!
!  S. Pellerin *ARMA/SMC March 2000
!     - nbrpdate  : valid date extracted from observation files
!     - nbrphh    : valid hour extracted from observation files
!     - nbrpstamp : valid datetimestamp computed from nbrpdate
!		    and nbrphh used as key reserch in trial
!		    fields file (implicit validity check)
!     - ntimeout  : counter of observations out of 6 hours time frame
!  JM Belanger *CMDA/SMC* Dec 2003
!     - extend 2nd dimension of vcordsf for Quikscat data to 254
!  Y. Yang  June 2004
!     - Changed VCORDSF(57,200) to VCORDSF(JPNBRELEM,200) to make it expandable
!  Y. Yang  Jan. 2010
!     - Changed VCORDSF(JPNBRELEM,200) to VCORDSF(JPNBRELEM,254) following JM
! 	Belanger's extension
#endif
      INTEGER JPFILES
      PARAMETER (JPFILES=16)
      INTEGER NVCORD,NVTYP,NFILES
      REAL*8    VCONV, VCORDSF(JPNBRELEM,254)
      CHARACTER *2 CFAMTYP(JPFILES)
      CHARACTER *128 CFILNAM(JPFILES)
      INTEGER      NBEGINTYP(JPFILES),NENDTYP(JPFILES)
      integer nbrpdate,nbrphh,nbrpstamp, NVCORDTYP
      integer ntimeout(jpfiles)
      COMMON/COMNCVCORD/ NVCORD, NVTYP, NFILES, nbrpdate,nbrphh
      COMMON/COMNCVCORD/ nbrpstamp,NVCORDTYP
      common/comrcvcord/ vconv,VCORDSF
      COMMON/COMNDATFAM/NBEGINTYP ,NENDTYP, ntimeout
      common/comcdatfam/CFAMTYP, CFILNAM