define_mod Module Reference

Data Types
type	xfield_type
type	xdata_type

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

Variables
real(r_kind), parameter	t_kelvin = 273.15
real(r_kind), parameter	missing_r = -999.0
integer(i_kind), parameter	missing_i = -999
integer(i_kind), parameter	not_use = 100
integer(i_kind), parameter	itrue = 1
integer(i_kind), parameter	ifalse = 0
integer(i_kind), parameter	nstring = 50
integer(i_kind), parameter	ndatetime = 20
integer(i_kind), parameter	nobtype = 6
integer(i_kind), parameter	n_ncdim = 5
integer(i_kind), parameter	nvar_met = 6
integer(i_kind), parameter	nvar_info = 9
integer(i_kind), parameter	nsen_info = 7
integer(i_kind), parameter	ninst = 12
integer(i_kind), parameter	write_nc_conv = 1
integer(i_kind), parameter	write_nc_radiance = 2
character(len=nstring), dimension(nobtype)	obtype_list = (/ 'sondes ', 'aircraft ', 'sfc ', 'satwind ', 'profiler ', 'ascat ' /)
character(len=nstring), dimension(nvar_met)	name_var_met = (/ var_u, var_v, var_ts, var_tv, var_q, var_ps /)
integer(i_kind), dimension(nvar_met, nobtype)	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)	unit_var_met = (/ 'm/s ', 'm/s ', 'K ', 'K ', 'kg/kg ', 'Pa ' /)
character(len=nstring), dimension(ninst)	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)	name_ncdim = (/ 'nvars ', 'nlocs ', 'nrec ', 'nstring ', 'ndatetime ' /)
character(len=nstring), dimension(nvar_info)	name_var_info = (/ 'air_pressure ', 'height ', 'station_elevation', 'latitude ', 'longitude ', 'record_number ', 'datetime ', 'station_id ', 'variable_names ' /)
integer(i_kind), dimension(nvar_info)	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)	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)	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)	type_sen_info = (/ nf90_float, nf90_float, nf90_float, nf90_float, nf90_float, nf90_float, nf90_int /)
character(len=nstring), dimension(2, nsen_info)	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	xdata

Function/Subroutine Documentation

set_brit_obserr()

subroutine define_mod::set_brit_obserr	(	character(len=*), intent(in)	name_inst,
		integer(i_kind), intent(in)	ichan,
		real(r_kind), intent(out)	obserr
	)

Definition at line 304 of file define_mod.f90.

Here is the caller graph for this function:

set_name_satellite()

subroutine define_mod::set_name_satellite	(	integer(i_kind), intent(in)	satid,
		character(len=*), intent(out)	satellite
	)

Definition at line 244 of file define_mod.f90.

Here is the caller graph for this function:

set_name_sensor()

subroutine define_mod::set_name_sensor	(	integer(i_kind), intent(in)	instid,
		character(len=*), intent(out)	sensor
	)

Definition at line 275 of file define_mod.f90.

Here is the caller graph for this function:

set_obtype_conv()

subroutine define_mod::set_obtype_conv	(	integer(i_kind), intent(in)	t29,
		character(len=*), intent(out)	obtype
	)

Definition at line 189 of file define_mod.f90.

Here is the caller graph for this function:

Variable Documentation

dim_sen_info

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/) )

Definition at line 152 of file define_mod.f90.

dim_var_info

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/) )

Definition at line 120 of file define_mod.f90.

ifalse

integer(i_kind), parameter define_mod::ifalse = 0

Definition at line 14 of file define_mod.f90.

inst_list

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 ' /)

Definition at line 70 of file define_mod.f90.

itrue

integer(i_kind), parameter define_mod::itrue = 1

Definition at line 13 of file define_mod.f90.

missing_i

integer(i_kind), parameter define_mod::missing_i = -999

Definition at line 11 of file define_mod.f90.

missing_r

real(r_kind), parameter define_mod::missing_r = -999.0

Definition at line 10 of file define_mod.f90.

n_ncdim

integer(i_kind), parameter define_mod::n_ncdim = 5

Definition at line 18 of file define_mod.f90.

name_ncdim

character(len=nstring), dimension(n_ncdim) define_mod::name_ncdim = (/ 'nvars ', 'nlocs ', 'nrec ', 'nstring ', 'ndatetime ' /)

Definition at line 88 of file define_mod.f90.

name_sen_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 ' /)

Definition at line 132 of file define_mod.f90.

name_var_info

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 ' /)

Definition at line 96 of file define_mod.f90.

name_var_met

character(len=nstring), dimension(nvar_met) define_mod::name_var_met = (/ var_u, var_v, var_ts, var_tv, var_q, var_ps /)

Definition at line 38 of file define_mod.f90.

ndatetime

integer(i_kind), parameter define_mod::ndatetime = 20

Definition at line 16 of file define_mod.f90.

ninst

integer(i_kind), parameter define_mod::ninst = 12

Definition at line 22 of file define_mod.f90.

nobtype

integer(i_kind), parameter define_mod::nobtype = 6

Definition at line 17 of file define_mod.f90.

not_use

integer(i_kind), parameter define_mod::not_use = 100

Definition at line 12 of file define_mod.f90.

nsen_info

integer(i_kind), parameter define_mod::nsen_info = 7

Definition at line 21 of file define_mod.f90.

nstring

integer(i_kind), parameter define_mod::nstring = 50

Definition at line 15 of file define_mod.f90.

nvar_info

integer(i_kind), parameter define_mod::nvar_info = 9

Definition at line 20 of file define_mod.f90.

nvar_met

integer(i_kind), parameter define_mod::nvar_met = 6

Definition at line 19 of file define_mod.f90.

obtype_list

character(len=nstring), dimension(nobtype) define_mod::obtype_list = (/ 'sondes ', 'aircraft ', 'sfc ', 'satwind ', 'profiler ', 'ascat ' /)

Definition at line 28 of file define_mod.f90.

t_kelvin

real(r_kind), parameter define_mod::t_kelvin = 273.15

Definition at line 9 of file define_mod.f90.

type_sen_info

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 /)

Definition at line 142 of file define_mod.f90.

type_var_info

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 /)

Definition at line 108 of file define_mod.f90.

unit_var_met

character(len=nstring), dimension(nvar_met) define_mod::unit_var_met = (/ 'm/s ', 'm/s ', 'K ', 'K ', 'kg/kg ', 'Pa ' /)

Definition at line 59 of file define_mod.f90.

vflag

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/) )

Definition at line 49 of file define_mod.f90.

write_nc_conv

integer(i_kind), parameter define_mod::write_nc_conv = 1

Definition at line 24 of file define_mod.f90.

write_nc_radiance

integer(i_kind), parameter define_mod::write_nc_radiance = 2

Definition at line 25 of file define_mod.f90.

xdata

type(xdata_type), dimension(:), allocatable define_mod::xdata

Definition at line 185 of file define_mod.f90.