define_mod.f90 File Reference

Go to the source code of this file.

Data Types
type	define_mod::xfield_type
type	define_mod::xdata_type

Modules
module	define_mod

Functions/Subroutines
subroutine	define_mod::set_obtype_conv (t29, obtype)
subroutine	define_mod::set_name_satellite (satid, satellite)
subroutine	define_mod::set_name_sensor (instid, sensor)
subroutine	define_mod::set_brit_obserr (name_inst, ichan, obserr)

Variables
real(r_kind), parameter	define_mod::t_kelvin = 273.15
real(r_kind), parameter	define_mod::missing_r = -999.0
integer(i_kind), parameter	define_mod::missing_i = -999
integer(i_kind), parameter	define_mod::not_use = 100
integer(i_kind), parameter	define_mod::itrue = 1
integer(i_kind), parameter	define_mod::ifalse = 0
integer(i_kind), parameter	define_mod::nstring = 50
integer(i_kind), parameter	define_mod::ndatetime = 20
integer(i_kind), parameter	define_mod::nobtype = 6
integer(i_kind), parameter	define_mod::n_ncdim = 5
integer(i_kind), parameter	define_mod::nvar_met = 6
integer(i_kind), parameter	define_mod::nvar_info = 9
integer(i_kind), parameter	define_mod::nsen_info = 7
integer(i_kind), parameter	define_mod::ninst = 12
integer(i_kind), parameter	define_mod::write_nc_conv = 1
integer(i_kind), parameter	define_mod::write_nc_radiance = 2
character(len=nstring), dimension(nobtype)	define_mod::obtype_list = (/ 'sondes ', 'aircraft ', 'sfc ', 'satwind ', 'profiler ', 'ascat ' /)
character(len=nstring), dimension(nvar_met)	define_mod::name_var_met = (/ var_u, var_v, var_ts, var_tv, var_q, var_ps /)
integer(i_kind), dimension(nvar_met, nobtype)	define_mod::vflag = reshape ( (/ itrue, itrue, itrue, itrue, itrue, ifalse, itrue, itrue, itrue, itrue, itrue, ifalse, itrue, itrue, itrue, itrue, itrue, itrue, itrue, itrue, ifalse, ifalse, ifalse, ifalse, itrue, itrue, ifalse, ifalse, ifalse, ifalse, itrue, itrue, ifalse, ifalse, ifalse, ifalse /), (/nvar_met,nobtype/) )
character(len=nstring), dimension(nvar_met)	define_mod::unit_var_met = (/ 'm/s ', 'm/s ', 'K ', 'K ', 'kg/kg ', 'Pa ' /)
character(len=nstring), dimension(ninst)	define_mod::inst_list = (/ 'amsua_n15 ', 'amsua_n18 ', 'amsua_n19 ', 'amsua_metop-a ', 'amsua_metop-b ', 'amsua_metop-c ', 'amsua_aqua ', 'mhs_n18 ', 'mhs_n19 ', 'mhs_metop-a ', 'mhs_metop-b ', 'mhs_metop-c ' /)
character(len=nstring), dimension(n_ncdim)	define_mod::name_ncdim = (/ 'nvars ', 'nlocs ', 'nrec ', 'nstring ', 'ndatetime ' /)
character(len=nstring), dimension(nvar_info)	define_mod::name_var_info = (/ 'air_pressure ', 'height ', 'station_elevation', 'latitude ', 'longitude ', 'record_number ', 'datetime ', 'station_id ', 'variable_names ' /)
integer(i_kind), dimension(nvar_info)	define_mod::type_var_info = (/ nf90_float, nf90_float, nf90_float, nf90_float, nf90_float, nf90_int, nf90_char, nf90_char, nf90_char /)
character(len=nstring), dimension(2, nvar_info)	define_mod::dim_var_info = reshape ( (/ 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'ndatetime ', 'nlocs ', 'nstring ', 'nlocs ', 'nstring ', 'nvars ' /), (/2, nvar_info/) )
character(len=nstring), dimension(nsen_info)	define_mod::name_sen_info = (/ 'solar_azimuth_angle ', 'scan_position ', 'sensor_azimuth_angle', 'solar_zenith_angle ', 'sensor_zenith_angle ', 'sensor_view_angle ', 'sensor_channel ' /)
integer(i_kind), dimension(nsen_info)	define_mod::type_sen_info = (/ nf90_float, nf90_float, nf90_float, nf90_float, nf90_float, nf90_float, nf90_int /)
character(len=nstring), dimension(2, nsen_info)	define_mod::dim_sen_info = reshape ( (/ 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'nlocs ', 'null ', 'nvars ', 'null ' /), (/2,nsen_info/) )
type(xdata_type), dimension(:), allocatable	define_mod::xdata