CRTM_Module.F90

Go to the documentation of this file.

!
! CRTM_Module
!
! Main container module for the CRTM.
!

MODULE crtm_module

  ! Module information
  ! ------------------
  ! Support modules
  USE type_kinds
  USE file_utility
  USE message_handler

  ! Structure definition modules
  USE crtm_atmosphere_define
  USE crtm_surface_define
  USE crtm_geometry_define
  USE crtm_channelinfo_define
  USE crtm_rtsolution_define
  USE crtm_options_define
  USE crtm_ancillaryinput_define
  USE crtm_irlandcoeff          , ONLY: crtm_irlandcoeff_classification

  ! Parameter definition module
  USE crtm_parameters
  USE sensorinfo_parameters

  ! The main function modules
  USE crtm_lifecycle
  USE crtm_forward_module
  USE crtm_tangent_linear_module
  USE crtm_adjoint_module
  USE crtm_k_matrix_module
  ! ...The aerosol optical depth tool
  USE crtm_aod_module


  ! Visibility
  ! ----------
  PUBLIC


  ! Module parameters
  ! -----------------
  CHARACTER(*), PRIVATE, PARAMETER :: module_version_id = &
  '$Id: CRTM_Module.fpp 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
  CHARACTER(*), PRIVATE, PARAMETER :: crtm_version_id = &
#include "CRTM_Version.inc"


CONTAINS


!--------------------------------------------------------------------------------
!:sdoc+:
!
! NAME:
!       CRTM_Version
!
! PURPOSE:
!       Subroutine to the CRTM version information.
!
! CALLING SEQUENCE:
!       CALL CRTM_Version( version )
!
! OUTPUTS:
!       version:       Character string identifying the CRTM release version.
!                      UNITS:      N/A
!                      TYPE:       CHARACTER(*)
!                      DIMENSION:  Scalar
!                      ATTRIBUTES: INTENT(OUT)
!
!:sdoc-:
!--------------------------------------------------------------------------------

  SUBROUTINE crtm_version( version )
    CHARACTER(*), INTENT(OUT) :: version
    version = crtm_version_id
  END SUBROUTINE crtm_version

END MODULE crtm_module