COMMONS_INC_v2.f

Go to the documentation of this file.

!C
!C---A series of parameters and arrays for initialization of spectral
!C     calculation and smoothing routines.
      INTEGER NP_HI, NP_MED, NP_STD, NH2O_MAX
 
      parameter(np_hi=300000)     !Number of high resolution spectral points, 
                                   !  covering 3000 cm-1 to 18,000 cm-1 at
                                   !  point spacing of 0.05 cm-1
 
      parameter(np_med = 25401)   !Number of medium resolution spectral
                                   !  points from 0.56 um to 3.1 um at 0.1 nm
                                   !  point spacing and 0.2 nm full width at
                                   !  half maximum (FWHM)
 
      parameter(np_std = 28001)   !Number of STANDARD medium resolution spec.
                                   !  points from 0.30 um to 3.1 um at 0.1 nm
                                   !  point spacing and 0.2 nm full width at
                                   !  half maximum (FWHM)
 
      parameter(npshif = 2600)    !NPSHIF = NP_STD - NP_MED
      
      parameter(nh2o_max=60)      ! Max Number of column water vapor values in table
      !REAL WAVNO_HI(NP_HI)         !Wavenumber of high resolution data(0.05cm-1)
      REAL WAVLN_MED(NP_MED)       !Wavelength of medium resolution data
                                   ! from 0.56 to 3.1 um (0.1 nm point spacing).
      REAL WAVLN_STD(NP_STD)       !Wavelength of medium resolution data
                                   ! from 0.3 to 3.1 um (0.1 nm point spacing).
      !REAL TRAN_HI(NP_HI,NH2O_MAX)          !Transmittance of high res. data(.05cm-1) for
                                   !  6 gases (H2O, CO2, N2O, CO, CH4, and O2).
      !REAL TRAN_MED(NP_MED,NH2O_MAX)        !Transmittance of medium resolution data
                                   ! from 0.56 to 3.1 um (0.1 nm point spacing).
      !REAL TRAN_STD(NP_STD,NH2O_MAX)        !Transmittance of medium resolution data
                                   ! from 0.30 to 3.1 um (0.1 nm point spacing) 
      REAL TRAN_HI_OTHERS(NP_HI)   !Transmittance of high res. data(.05cm-1) for
                                   !  5 gases (     CO2, N2O, CO, CH4, and O2).
      !REAL A(NP_HI)                !High resolution absorption data (.05cm-1).
 
!      COMMON /INIT_SPECCAL1/ WAVNO_HI, TRAN_HI, TRAN_HI_OTHERS
      COMMON /init_speccal1/ tran_hi_others
!      COMMON /INIT_SPECCAL12/ WAVLN_MED, TRAN_MED, WAVLN_STD, TRAN_STD
      COMMON /init_speccal12/ wavln_med, wavln_std
 
 
      REAL VSTART, VEND, DWAVLN    !VSTART: Starting wavelength for calculations 
                                   !VEND:   Ending wavelength for calculations
                                   !DWAVLN: Interval between wavelengths
      parameter(vstart = 0.56, vend = 3.1, dwavln = 0.0001)
 
 
      REAL DWVAVR                ! ~ 0.01 um =  wavelength spacing of AVIRIS data
 
      REAL DWAVNO
      parameter(dwavno = 0.05)  !Point spacing of high res. spectra (cm-1).
 
      REAL DLT_MED               ! 0.2-nm medium resolution spectrum.
      parameter(dlt_med = 0.0002)
 
      REAL FACDLT                !Factor to multiply DLT by to determine the
      parameter(facdlt = 2.0)   !  range used in the Gaussian function 
                                 !  calculation for smoothing spectra.
 
      REAL RADEG
      parameter(radeg=57.29577951) ! degrees per radian
 
      INTEGER IH2OLQ               !0 - Indicates that liquid water should not
      parameter(ih2olq = 0)       !    be considered in the calculations.
                                   !1 - Indicates that liquid water should be
                                   !    considered in the calculations.
      REAL    RLQAMT               !Amount of "equivalent surface water" in cm,
      parameter(rlqamt = 0.0)     !    not used yet.
 
      INTEGER NO3PT                !Number of O3 data points
      parameter(no3pt = 5001)
 
      INTEGER NGASTT
      parameter(ngastt = 7)       !Total number of gases
 
 
!C Programmer's note: CONST2=DLT*SQRT(3.1415926/CONST1)  CONST2=total
!C                    area of gaussian curve = DLT*SQRT(pi/(4.0*ln(2)))
      REAL CONST1
      parameter(const1 = 2.7725887)    ! CONST1=4.0*ln(2)=2.7725887
 
      INTEGER INDEX_MED(NP_MED)
      REAL    WAVLN_MED_INDEX(NP_MED), TRAN_MED_INDEX(NP_MED,NH2O_MAX)
 
      COMMON /init_speccal13/ index_med,wavln_med_index,tran_med_index
 
!C
!C     Arrays for wavelength positions and FWHM of measured imaging spectrometer
!C         data and for smoothing the medium resolution spectrum (FWHM = 0.2 nm,
!C         and point spacing = 0.1 nm) to match coarser resolution spectrum
!C         of imaging spectrometer data
 
      parameter(nobs_max=1024, ninstr_max = 3001, filename_max=4096)
 
      REAL    FINSTR(NINSTR_MAX,NOBS_MAX)
      INTEGER NCVHF(NOBS_MAX)
      CHARACTER*4096 DATPATH
      INTEGER DLN
 
      COMMON /init_speccal15/ finstr, ncvhf
      COMMON /geometry_l2gen/ senzn_l2,senaz_l2,solzn_l2,wtrvpr, &
             ja_l2,jb_l2,isplitp,f1a,f2a,f1b,f2b
      COMMON /input_l2gen/ datpath,dln