C
C     MODTRAN INCLUDE PARAMETERS FILE.
C
C     LAYER PARAMETERS:
C       LAYDIM   MAXIMUM NUMBER OF LAYER BOUNDARY.
C       LAYTWO   TWICE LAYDIM.
C       LAYTHR   THREE TIMES LAYDIM.
C       NLAYX    CROSS-SECTION SPECIES PROFILE LAYER BOUNDARIES NUMBER.
      INTEGER LAYDIM,LAYTWO,LAYTHR,NLAYX
      PARAMETER(LAYDIM=90,LAYTWO=2*LAYDIM,LAYTHR=3*LAYDIM,NLAYX=50)
C
C     MAXIMUM SPECIES NUMBER PARAMETERS:
C       MMOL     MAXIMUM NUMBER OF MODTRAN MOLECULAR BAND MODEL
C                PARAMETER SPECIES.
C       MMOLX    MAXIMUM NUMBER OF TEMPERATURE-DEPENDENT
C                CROSS-SECTION SPECIES.
C       MMOLT    MMOL PLUS MMOLX.
C       KMAX     NUMBER OF EXTINCTION SOURCES EXCLUDING TEMPERATURE
C                DEPENDENT CROSS-SECTION SPECIES.
C       KMAXX    NUMBER OF MODTRAN SPECIES (EXTINCTION SOURCES).
C       NLAY5    NUMBER OF LOW SPECTRAL RESOLUTION (5 CM-1) SPECIES.
      INTEGER MMOL,MMOLX,MMOLT,KMAX,KMAXX,NLAY5
      PARAMETER(MMOL=12,MMOLX=18,MMOLT=MMOL+MMOLX,
     1  KMAX=81,KMAXX=KMAX+MMOLX,NLAY5=27)
C
C     PARAMETERS FOR THE BAND MODEL EXTERNAL FILES:
C       NSPC     ACTUAL NUMBER OF MODTRAN MOLECULAR BAND MODEL
C                PARAMETER SPECIES (MOLBMP96.ASC FILE).
C       NSPCX    ACTUAL NUMBER OF TEMPERATURE-DEPENDENT
C                CROSS-SECTION SPECIES (CFCBMP96.ASC FILE).
C       NSPECT   NSPC PLUS NSPCX.
C       MXTEMP   MAXIMUM NUMBER OF BAND MODEL PARAMETER TEMPERATURES.
C       MXDIV    MAXIMUM NUMBER OF LINE TAIL PARAMETERS PER BAND.
      INTEGER NSPC,NSPECX,NSPECT,MXTEMP,MXDIV
      PARAMETER(NSPC=12,NSPECX=13,NSPECT=NSPC+NSPECX,MXTEMP=6,MXDIV=4)
C
C     SPECTRAL SLIT FUNCTION PARAMETERS:
C       NBINS    MAXIMUM NUMBER OF SAVED SPECTRAL DATA POINTS.
      INTEGER NBINS
      PARAMETER(NBINS=99)
C
C     CLOUD/RAIN/AEROSOL PARAMETERS:
C       NZCLD    NUMBER OF CLOUD/RAIN LAYER BOUNDARIES.
C       NAER     NUMBER OF AEROSOL/CLOUD PROFILES.
C       NWAVLN   NUMBER OF WAVELENGTHS IN BUILT-IN SPECTRAL DATA.
C       MXWVLN   MAXIMUM NUMBER OF USER-DEFINED SPECTRAL DATA POINTS.
      INTEGER NZCLD,NAER,NWAVLN,MXWVLN
      PARAMETER(NZCLD=16,NAER=17,NWAVLN=788,MXWVLN=788)
C
C     CORRELATED-K APPROACH PARAMETERS:
C       MXKSUB   DIMENSION OF K-DISTRIBUTION SUB-INTERVAL ARRAY.
C       MXGAML   DIMENSION OF LORENTZ HALF-WIDTH ARRAY.
C       MXGAMD   DIMENSION OF DOPPLER HALF-WIDTH ARRAY.
C       MXNUML   DIMENSION OF EFFECTIVE NUMBER OF LINES ARRAY.
      INTEGER MXKSUB,MXGAMD,MXGAML,MXNUML
      PARAMETER(MXKSUB=33,MXGAMD=23,MXGAML=36,MXNUML=14)
C
C     NOVAM AEROSOLS
C       MNOV     MAXIMUM NUMBER OF ESSENTIAL NOVAM LAYER BOUNDARIES
C       MLNOV    MAXIMUM NUMBER OF ACTUAL NOVAM BOUNDARIES
C                (A PAIR OF VERY CLOSELY SPACED BOUNDARIES OF THE LATTER
C                MAKE UP A LAYER OF THE FORMER)
      INTEGER MNOV,MLNOV
      PARAMETER(MNOV=11,MLNOV=2*MNOV)
C
C     USER-DEFINED PHASE FUNCTION F(MAERF,MANGLS,MWLF):
C       MANGLS   NUMBER OF ANGLES
C       MAERF    NUMBER OF AEROSOLS
C       MWLF     NUMBER OF WAVELENGTHS
      INTEGER MANGLS,MWLF,MAERF
      PARAMETER(MANGLS=51,MWLF=15,MAERF=4)
C
C     SURFACE REFLECTANCE PARAMETERS:
C       MWVSRF   MAXIMUM NUMBER OF SPECTRAL DATA INPUT POINTS.
      INTEGER MWVSRF
      PARAMETER(MWVSRF=50)
C
C     DISCRETE ORDINATE MULTIPLE SCATTERING PARAMETERS (DISORT NAMES):
C       MXCMU   MAXIMUM NUMBER OF DISORT STREAMS.
C       MAZ     MAXIMUM NUMBER OF DISORT AZIMUTH COMPONENTS.
C       MI      MAXIMUM ORDER OF DOUBLE-GAUSS QUADRATURE.
C       MXUMU   MAXIMUM NUMBER OF DISORT USER ANGLES.
      INTEGER MXCMU,MAZ,MI,MXUMU
      PARAMETER(MXCMU=16,MAZ=MXCMU-1,MI=MXCMU/2,MXUMU=2)