NLTE_Parameters.f90

Go to the documentation of this file.

!
! NLTE_Parameters
!
! Module defining parameters used in the various NLTE applications.
!
!
! CREATION HISTORY:
!       Written by:     Yong Han, 08-05-2010
!                       yong.han@noaa.gov
!
!       Refactored by:  Paul van Delst, 18-Jan-2011
!                       paul.vandelst@noaa.gov
!

MODULE nlte_parameters

  ! -----------------
  ! Environment setup
  ! -----------------
  ! Module use
  USE type_kinds, ONLY: fp
  ! Disable implicit typing
  IMPLICIT NONE


  ! ------------
  ! Visibilities
  ! ------------
  ! Everything private by default
  PRIVATE
  ! Public parameters
  PUBLIC :: n_nlte_layers
  PUBLIC :: n_nlte_predictors


  PUBLIC :: n_play, pt
  PUBLIC :: n_ensemble_temperatures
  PUBLIC :: min_tm_index  
  PUBLIC :: max_tm_index  
  PUBLIC :: mean_tm_index 
  PUBLIC :: nlte_wmo_sensor_id
  PUBLIC :: n_nlte_sensor_id

  ! -----------------
  ! Module parameters
  ! -----------------
  ! Version Id for the module
  CHARACTER(*), PARAMETER :: module_version_id = &
  '$Id: NLTE_Parameters.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'

  ! Pressure levels for computing mean temperatures in the two layers
  INTEGER,  PARAMETER :: n_nlte_layers = 2
  INTEGER,  PARAMETER :: n_play = n_nlte_layers
  REAL(fp), PARAMETER :: pt(2, n_play) = &
                                 reshape( (/ 0.005_fp, 0.2_fp, &
                                             0.2_fp,  52.0_fp /), &
                                           (/2, n_play/)) 

  ! Number of predictors including the constant term
  INTEGER, PARAMETER  :: n_nlte_predictors = n_nlte_layers + 1

  ! number of mean temperatures (Min Tm, Max Tm and Mean Tm)
  INTEGER, PARAMETER  :: n_ensemble_temperatures = 3
  INTEGER, PARAMETER  :: min_tm_index  = 1
  INTEGER, PARAMETER  :: max_tm_index  = 2
  INTEGER, PARAMETER  :: mean_tm_index = 3

  ! Sensor id's for NLTE "sensitive" sensors
  INTEGER, PARAMETER  :: n_nlte_sensor_id   = 3
  INTEGER, PARAMETER  :: nlte_wmo_sensor_id(n_nlte_sensor_id) = (/&
                                             420, &  ! AIRS
                                             221, &  ! IASI
                                             620 /)  ! CrIS
END MODULE nlte_parameters