C PRM 0001 C MODTRAN INCLUDE PARAMETERS FILE. PRM 0002 C PRM 0003 C LAYER PARAMETERS: PRM 0004 C LAYDIM MAXIMUM NUMBER OF LAYER BOUNDARY. PRM 0005 C LAYTWO TWICE LAYDIM. PRM 0006 C LATTHR THREE TIMES LAYDIM. PRM 0007 INTEGER LAYDIM,LAYTWO,LAYTHR PRM 0008 PARAMETER(LAYDIM=90,LAYTWO=2*LAYDIM,LAYTHR=3*LAYDIM) PRM 0009 C PRM 0010 C MAXIMUM SPECIES NUMBER PARAMETERS: PRM 0011 C MMOL MAXIMUM NUMBER OF MODTRAN MOLECULAR BAND MODEL PRM 0012 C PARAMETER SPECIES. PRM 0013 C MMOLX MAXIMUM NUMBER OF TEMPERATURE-DEPENDENT PRM 0014 C CROSS-SECTION SPECIES. PRM 0015 C MMOLT MMOL PLUS MMOLX. PRM 0016 C KMAX NUMBER OF EXTINCTION SOURCES EXCLUDING TEMPERATURE PRM 0017 C DEPENDENT CROSS-SECTION SPECIES. PRM 0018 C KMAXX NUMBER OF MODTRAN SPECIES (EXTINCTION SOURCES). PRM 0019 INTEGER MMOL,MMOLX,MMOLT,KMAX,KMAXX PRM 0020 PARAMETER(MMOL=12,MMOLX=18,MMOLT=MMOL+MMOLX, PRM 0021 1 KMAX=81,KMAXX=KMAX+MMOLX) PRM 0022 C PRM 0023 C PARAMETERS FOR THE BAND MODEL EXTERNAL FILES: PRM 0024 C NSPC ACTUAL NUMBER OF MODTRAN MOLECULAR BAND MODEL PRM 0025 C PARAMETER SPECIES (MOLBMP96.ASC FILE). PRM 0026 C NSPCX ACTUAL NUMBER OF TEMPERATURE-DEPENDENT PRM 0027 C CROSS-SECTION SPECIES (CFCBMP96.ASC FILE). PRM 0028 C NSPECT NSPC PLUS NSPCX. PRM 0029 C MXTEMP MAXIMUM NUMBER OF BAND MODEL PARAMETER TEMPERATURES. PRM 0030 C MXDIV MAXIMUM NUMBER OF LINE TAIL PARAMETERS PER BAND. PRM 0031 INTEGER NSPC,NSPECX,NSPECT,MXTEMP,MXDIV PRM 0032 PARAMETER(NSPC=12,NSPECX=13,NSPECT=NSPC+NSPECX,MXTEMP=6,MXDIV=4) PRM 0033 C PRM 0034 C SPECTRAL SLIT FUNCTION PARAMETERS: PRM 0035 C NBINS MAXIMUM NUMBER OF SAVED SPECTRAL DATA POINTS. PRM 0036 INTEGER NBINS PRM 0037 PARAMETER(NBINS=99) PRM 0038 C PRM 0039 C CLOUD/RAIN/AEROSOL PARAMETERS: PRM 0040 C NZCLD NUMBER OF CLOUD/RAIN LAYER BOUNDARIES. PRM 0041 C NAER NUMBER OF AEROSOL/CLOUD PROFILES. PRM 0042 C NWAVLN NUMBER OF WAVELENGTHS IN BUILT-IN SPECTRAL DATA. PRM 0043 C MXWVLN MAXIMUM NUMBER OF USER-DEFINED SPECTRAL DATA POINTS. PRM 0044 INTEGER NZCLD,NAER,NWAVLN,MXWVLN PRM 0045 PARAMETER(NZCLD=16,NAER=17,NWAVLN=788,MXWVLN=788) PRM 0046 C PRM 0047 C CORRELATED-K APPROACH PARAMETERS: PRM 0048 C MXKSUB DIMENSION OF K-DISTRIBUTION SUB-INTERVAL ARRAY. PRM 0049 C MXGAML DIMENSION OF LORENTZ HALF-WIDTH ARRAY. PRM 0050 C MXGAMD DIMENSION OF DOPPLER HALF-WIDTH ARRAY. PRM 0051 C MXNUML DIMENSION OF EFFECTIVE NUMBER OF LINES ARRAY. PRM 0052 INTEGER MXKSUB,MXGAMD,MXGAML,MXNUML PRM 0053 PARAMETER(MXKSUB=33,MXGAMD=23,MXGAML=36,MXNUML=14) PRM 0054 C PRM 0055 C NOVAM AEROSOLS PRM 0056 C MNOV MAXIMUM NUMBER OF ESSENTIAL NOVAM LAYER BOUNDARIES PRM 0057 C MLNOV MAXIMUM NUMBER OF ACTUAL NOVAM BOUNDARIES PRM 0058 C (A PAIR OF VERY CLOSELY SPACED BOUNDARIES OF THE LATTERPRM 0059 C MAKE UP A LAYER OF THE FORMER) PRM 0060 INTEGER MNOV,MLNOV PRM 0061 PARAMETER (MNOV=11,MLNOV=2*MNOV) PRM 0062 C PRM 0063 C USER-DEFINED PHASE FUNCTION F(MAERF,MANGLS,MWLF) PRM 0064 C MANGLS NUMBER OF ANGLES PRM 0065 C MAERF NUMBER OF AEROSOLS PRM 0066 C MWLF NUMBER OF WAVELENGTHS PRM 0067 INTEGER MANGLS,MWLF,MAERF PRM 0068 PARAMETER (MANGLS=50,MWLF=15,MAERF=4) PRM 0069