ODAS_Define.f90 File Reference

Go to the source code of this file.

Data Types
type	odas_define::odas_type

Modules
module	odas_define

Functions/Subroutines
logical function, public	odas_define::associated_odas (ODAS, ANY_Test)
integer function, public	odas_define::destroy_odas (ODAS, No_Clear, RCS_Id, Message_Log)
integer function, public	odas_define::allocate_odas (n_Predictors, n_Absorbers, n_Channels, n_Alphas, n_Coeffs, ODAS, RCS_Id, Message_Log)
integer function, public	odas_define::assign_odas (ODAS_in, ODAS_out, RCS_Id, Message_Log)
integer function, public	odas_define::equal_odas (ODAS_LHS, ODAS_RHS, ULP_Scale, Check_All, RCS_Id, Message_Log)
integer function, public	odas_define::checkrelease_odas (ODAS, RCS_Id, Message_Log)
integer function, public	odas_define::checkalgorithm_odas (ODAS, RCS_Id, Message_Log)
subroutine, public	odas_define::info_odas (ODAS, Info, RCS_Id)
subroutine	odas_define::clear_odas (ODAS)

Variables
character(*), parameter	odas_define::module_rcs_id = '$Id: ODAS_Define.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
integer, parameter	odas_define::ip_invalid = -1
real(double), parameter	odas_define::fp_invalid = -1.0_Double
integer, parameter	odas_define::set = 1
integer, parameter	odas_define::sl = 20
integer, parameter	odas_define::ml = 256
integer, parameter, public	odas_define::odas_release = 7
integer, parameter	odas_define::odas_version = 1
character(*), parameter	odas_define::odas_algorithm_name = 'ODAS'
integer, parameter	odas_define::carriage_return = 13
integer, parameter	odas_define::linefeed = 10
integer, parameter, public	odas_define::invalid_wmo_satellite_id = 1023
integer, parameter, public	odas_define::invalid_wmo_sensor_id = 2047
integer, parameter, public	odas_define::n_sensor_types = 4
integer, parameter, public	odas_define::invalid_sensor = 0
integer, parameter, public	odas_define::microwave_sensor = 1
integer, parameter, public	odas_define::infrared_sensor = 2
integer, parameter, public	odas_define::visible_sensor = 3
integer, parameter	odas_define::ultraviolet_sensor = 4
character(*), dimension(0:n_sensor_types), parameter, public	odas_define::sensor_type_name = (/ 'Invalid ', 'Microwave ', 'Infrared ', 'Visible ', 'Ultraviolet' /)