rttov_ec_mod.F90

Go to the documentation of this file.

MODULE rttov_ec_mod       

!     Purpose.
!     --------

!     Types used in the interface between IFS and SATRAD projects, e.g.
!     where RADTR_ML calls RTTOV_EC. Defaults are for ECMWF normal usage.

!     Author.
!     -------
!        A.Geer     ECMWF

!     Modifications.
!     --------------
!        Original: 2013-06-27
!     05/07/2014 Inclusion of cldstr_threshold (S. Migliorini)
!     ------------------------------------------------------------------

USE parkind1 , ONLY : jpim, jprb

IMPLICIT NONE

SAVE

TYPE rttov_ec_opts

  ! switch for cloud computations
  LOGICAL :: lcloud = .false.    

  ! when lcldstr_simple is false, only streams whose weight is larger than cldstr_threshold are considered
  REAL(KIND=JPRB) :: cldstr_threshold = -1.0_jprb

  ! switch for internal rttov interpolation 
  LOGICAL :: linterp = .true.    

  ! switch for tracers
  LOGICAL, DIMENSION(4) :: ltracer = (/.false.,.false.,.false.,.false./)

  ! For complex cloudy IR, true uses 2-column, false uses full cloudy streams method
  LOGICAL :: lcldstr_simple = .true. 

END TYPE rttov_ec_opts

! Key to the contents of the pav array 
TYPE type_pav_key
  INTEGER(KIND=JPIM) :: t       ! Temperature
  INTEGER(KIND=JPIM) :: q       ! Humidity
  INTEGER(KIND=JPIM) :: o3      ! Ozone
  INTEGER(KIND=JPIM) :: l       ! Cloud liquid water
  INTEGER(KIND=JPIM) :: i       ! Cloud ice water
  INTEGER(KIND=JPIM) :: a       ! Cloud fraction
  INTEGER(KIND=JPIM) :: co2    
  INTEGER(KIND=JPIM) :: n2o
  INTEGER(KIND=JPIM) :: ch4
  INTEGER(KIND=JPIM) :: co
END TYPE

TYPE(type_pav_key), PARAMETER :: ipav=type_pav_key(1,2,3,4,5,6,7,8,9,10)

END MODULE rttov_ec_mod