SensorInfo_Parameters.f90

Go to the documentation of this file.

MODULE sensorinfo_parameters

  ! -----------------
  ! Environment setup
  ! -----------------
  ! Module use
  ! ...none
  ! Disable implicit typing
  IMPLICIT NONE


  ! ------------
  ! Visibilities
  ! ------------
  ! Everything private by default
  PRIVATE
  ! Sensor Id defaults
  PUBLIC :: invalid_wmo_satellite_id
  PUBLIC :: invalid_wmo_sensor_id
  ! Allowable sensor type values and names
  PUBLIC :: n_sensor_types
  PUBLIC :: invalid_sensor  
  PUBLIC :: microwave_sensor
  PUBLIC :: infrared_sensor 
  PUBLIC :: visible_sensor  
  PUBLIC :: ultraviolet_sensor  
  PUBLIC :: sensor_type_name
  ! Allowable polarisation type values and names
  PUBLIC :: n_polarization_types   
  PUBLIC :: invalid_polarization   
  PUBLIC :: unpolarized            
  PUBLIC :: intensity              
  PUBLIC :: first_stokes_component 
  PUBLIC :: second_stokes_component
  PUBLIC :: third_stokes_component 
  PUBLIC :: fourth_stokes_component
  PUBLIC :: vl_polarization        
  PUBLIC :: hl_polarization        
  PUBLIC :: plus45l_polarization   
  PUBLIC :: minus45l_polarization  
  PUBLIC :: vl_mixed_polarization  
  PUBLIC :: hl_mixed_polarization  
  PUBLIC :: rc_polarization        
  PUBLIC :: lc_polarization        
  PUBLIC :: polarization_type_name


  ! -----------------
  ! Module parameters
  ! -----------------
  ! RCS Id for the module
  CHARACTER(*), PARAMETER :: module_rcs_id = &
  '$Id: $'
  ! Invalid sensor ids
  INTEGER, PARAMETER :: invalid_wmo_satellite_id = 1023
  INTEGER, PARAMETER :: invalid_wmo_sensor_id    = 2047
  ! The instrument types
  INTEGER, PARAMETER :: n_sensor_types     = 4
  INTEGER, PARAMETER :: invalid_sensor     = 0
  INTEGER, PARAMETER :: microwave_sensor   = 1
  INTEGER, PARAMETER :: infrared_sensor    = 2
  INTEGER, PARAMETER :: visible_sensor     = 3
  INTEGER, PARAMETER :: ultraviolet_sensor = 4
  CHARACTER(*), PARAMETER, DIMENSION( 0:N_SENSOR_TYPES ) :: &
    sensor_type_name = (/ 'Invalid    ', &
                          'Microwave  ', &
                          'Infrared   ', &
                          'Visible    ', &
                          'Ultraviolet' /)

  ! The polarisation flags
  INTEGER, PARAMETER :: n_polarization_types    = 12
  INTEGER, PARAMETER :: invalid_polarization    = 0
  INTEGER, PARAMETER :: unpolarized             = 1
  INTEGER, PARAMETER :: intensity               = unpolarized
  INTEGER, PARAMETER :: first_stokes_component  = unpolarized
  INTEGER, PARAMETER :: second_stokes_component = 2
  INTEGER, PARAMETER :: third_stokes_component  = 3
  INTEGER, PARAMETER :: fourth_stokes_component = 4
  INTEGER, PARAMETER :: vl_polarization         = 5
  INTEGER, PARAMETER :: hl_polarization         = 6
  INTEGER, PARAMETER :: plus45l_polarization    = 7
  INTEGER, PARAMETER :: minus45l_polarization   = 8
  INTEGER, PARAMETER :: vl_mixed_polarization   = 9
  INTEGER, PARAMETER :: hl_mixed_polarization   = 10
  INTEGER, PARAMETER :: rc_polarization         = 11
  INTEGER, PARAMETER :: lc_polarization         = 12
  CHARACTER(*), PARAMETER, DIMENSION( 0:N_POLARIZATION_TYPES ) :: &
    polarization_type_name = (/ 'Invalid                                          ', &
                                'Unpolarized/Intensity/First Stokes component (I) ', &
                                'Second Stokes component (Q)                      ', &
                                'Third Stokes component (U)                       ', &
                                'Fourth Stokes component (V)                      ', &
                                'Vertical linear polarization                     ', &
                                'Horizontal linear polarization                   ', &
                                '+45deg. linear polarization                      ', &
                                '-45deg. linear polarization                      ', &
                                'Vertical polarization at nadir; mixed off nadir  ', &
                                'Horizontal polarization at nadir; mixed off nadir', &
                                'Right circular polarization                      ', &
                                'Left circular polarization                       ' /)


END MODULE sensorinfo_parameters