MODULE RETVPARAM

      USE PARAMS

      CHARACTER*1       :: EMISSION_OBJECT  ! 'm' for moon, others not yet included

      CHARACTER (LEN=7), DIMENSION(255) :: GAS

      INTEGER           :: IFPS
      LOGICAL           :: EMISSION, EMISSION_NORM, IFTEMP=.FALSE., FPS, RAYTONLY

      LOGICAL, DIMENSION(MOLMAX)      :: IFPRF = .FALSE.    ! PROFILE RETRIEVAL

      INTEGER           :: IEMISSION
      REAL(DOUBLE)      :: EMISSION_T_BACK ! Contains the background temeprature if emission

      INTEGER, DIMENSION(MAXSPE)      :: KZTAN
      INTEGER, DIMENSION(MOLMAX)      :: ISHIFT
      INTEGER, DIMENSION(MAXGAS)      :: ICODE, IFMIX, ISCODE
      INTEGER, DIMENSION(MOLMAX)      :: IRET
      INTEGER, DIMENSION(MOLMAX)      :: IGAS
      INTEGER, DIMENSION(MOLMAX)      :: IFOFF = 0

      REAL(DOUBLE), DIMENSION(MOLMAX) :: COLSF
      REAL(DOUBLE), DIMENSION(MOLMAX) :: SCOLSF
      REAL(DOUBLE), DIMENSION(LAYMAX) :: TSIGMA      ! SIGMA FOR TEMPERATURE RETRIEVAL

      INTEGER :: ICOUNT, NRET, NGAS, ISPARM, NBACK=1, NBKFIT, &
                 NSHIFT, NSPEC, IFDIFF, NDIFF, NPHASE
      INTEGER :: NTEMP=0, NTEMP1=0
      INTEGER :: NSOLAR=0, NSOLAR1=0

      LOGICAL :: IFPHASE = .FALSE.
      LOGICAL :: LOG_STATEV(MAXGAS) = .FALSE.
      INTEGER :: ILOGRETRIEVAL(MAXGAS)
      INTEGER :: ITRMAX = 0, NLAYERS

      REAL(DOUBLE), DIMENSION(MAXSPE,LAYMAX) :: CCC    ! MASS PATH
      REAL(DOUBLE), DIMENSION(LAYMAX)        :: PMASMX ! MAXIMUM MASS
      REAL(DOUBLE), DIMENSION(MOLMAX,LAYMAX) :: XORG   ! INITIAL VALUES MIXING RATIOS - FITTED
      REAL(DOUBLE), DIMENSION(MOLMAX,LAYMAX) :: X      ! WORKING VALUES MIXING RATIOS - FITTED
      REAL(DOUBLE), DIMENSION(MAXGAS,LAYMAX) :: XGAS   ! INITIAL VALUES MIXING RATIOS - ALL
      INTEGER                                :: KMAX

!      REAL(DOUBLE) DIMENSION( LAYMAX, MAXPRF ) :: ALTFIT
!      REAL(DOUBLE) DIMENSION( LAYMAX, MAXPRF ) :: XINIT
      REAL(DOUBLE), DIMENSION(LAYMAX,MAXPRF) :: XFIT
      REAL(DOUBLE), DIMENSION(LAYMAX,MAXPRF) :: SIG
      REAL(DOUBLE), DIMENSION(MOLMAX)        :: ZWID
      REAL(DOUBLE), DIMENSION(MOLMAX)        :: ZGMIN
      REAL(DOUBLE), DIMENSION(MOLMAX)        :: ZGMAX

      REAL(DOUBLE), ALLOCATABLE :: P(:)         ! WEIGHTED PRESSURE (ATM)
      REAL(DOUBLE), ALLOCATABLE :: T(:)         ! WEIGHTED TEMPERATURE (K)
      REAL(DOUBLE), ALLOCATABLE :: PMB(:)       ! WEIGHTED PRESSURE (MB)

      REAL(DOUBLE), ALLOCATABLE :: Z(:)         ! RETRIEVAL BOUNDRARIES INCLUDE TOP AND BOTTOM
      REAL(DOUBLE), ALLOCATABLE :: ZBAR(:)      ! RETRIEVAL GRID MIDPOINTS
      REAL(DOUBLE), ALLOCATABLE :: TORG(:)      ! ORIGINAL TEMPERATURE ARRAY

      END MODULE RETVPARAM