include file: comgem.cdk 97
#if defined (DOC)
C
C     COMDECK: COMGEM
C     ---------------
*Revision   : C. Charette - ARMA/SMC - Sept 2004
*                Conversion to hybrid vertical coordinate
C
C*    Definition of some parameters characterizing the geometry of
C     the increment analysis grid.
C     - Reduced Gaussian grid
C     - Vertical levels
C     - Parameters defining the hybrid vertical coordinate
C     - Eigenvalues of the Laplacian
C
C     This common is initialized by the subroutine SUGEM
C
C     CVCORD             :  type of vertical coordinate
C                           ('ETAGE', 'HYBM', 'MAMHYBM')
C     NILON(NJBEG:NJEND) :  number of points on the corresponding
C     .                     latitude circle (maximum NI)
C     RNNP1(NLA)         :  - N(N+1)
C     R1SNP1(NLA)        :  - 1/N(N+1)
C     VLEV(NFLEV)        :  Normalised vertical levels of the increment
C     .                     analysis
C     VHYBINC(NFLEV)     :  vertical hybrid levels of the increment analysis
C                           grip
C     NIP1(NFLEV)        :  IP1 std file values hybrid levels of
C                           increment analysis grid
C     NIP1_PAR_INC       :  Packing of IP1 for analysed increments(see convip)
C     rptopinc           :  Average pressure at the top (Pascal)
C     rprefinc           :  Pressure at reference level (Pascal)
C     rcoefinc           :  Transition parameter or Coefficient
C     ldyninc            :  Switch to read the hybrid coordinate levels
C                           and parameters from the statistics file
C     rhumin             :  Minimum value of specific humidity
C     rlimlv_bdl         :  Mean top level of the boundary layer(PA)
C     ---------------------
C     CONPHY(NJBEG:NJEND):  conversion of wind images into physical winds
C     .                     (Units: 1/s to  knots)
C     CONIMA(NJBEG:NJEND):  conversion of physiqcal winds into wind images
C     .                     (Units: knots to 1/s)
C     nlev_bdl           :  Number of the analysis level nearest to the top
C     .                     of the boundary layer
C
#endif
      CHARACTER*8 CVCORD
      INTEGER NILON(NJBEG:NJEND),NIP1(JPNFLEV)
      INTEGER nip1_pak_inc, nlev_bdl
      REAL*8  RNNP1(NLA), R1SNP1(NLA), VLEV(JPNFLEV)
      REAL*8  CONPHY(NJBEG:NJEND), CONIMA(NJBEG:NJEND)
      real*8  rptopinc,rcoefinc,rprefinc,vhybinc(jpnflev)
      real*8  rhumin,rlimlv_bdl
      logical ldyninc

      POINTER (PTILON,NILON), (PTNNP1,RNNP1), (PT1SNP1,R1SNP1)
      POINTER (PTCONPHY,CONPHY),(PTCONIMA,CONIMA)
 
      COMMON /COMRGEM/VLEV,rptopinc,rcoefinc,rprefinc,vhybinc
      COMMON /COMRGEM/rhumin,rlimlv_bdl
      COMMON /COMCGEM/CVCORD
      COMMON /COMNGEM/NIP1,nip1_pak_inc,nlev_bdl
      COMMON /COMLGEM/ldyninc
      COMMON /POMGEM/PTILON, PTNNP1, PT1SNP1,PTCONPHY, PTCONIMA