Data Types
type	diag_data_chan_list

type	diag_data_extra_list

type	diag_data_fix_list

type	diag_data_name_list

type	diag_header_chan_list

type	diag_header_fix_list

interface	get_radiag

type	ncdiag_status

interface	set_radiag

Functions/Subroutines
subroutine	set_radiag_int_ (what, iv, ier)

subroutine	get_radiag_int_ (what, iv, ier)

subroutine, public	set_netcdf_read (use_netcdf)

subroutine, public	open_radiag (filename, ftin)

subroutine, public	close_radiag (filename, ftin)

subroutine, public	read_radiag_header (ftin, npred_radiag, retrieval, header_fix, header_chan, data_name, iflag, lverbose)

subroutine	read_radiag_header_nc (ftin, npred_radiag, retrieval, header_fix, header_chan, data_name, iflag, lverbose)

subroutine	read_radiag_header_bin (ftin, npred_radiag, retrieval, header_fix, header_chan, data_name, iflag, lverbose)

integer(i_kind) function	find_ncdiag_id (ftin)

subroutine, public	read_radiag_data (ftin, header_fix, retrieval, data_fix, data_chan, data_extra, iflag)

subroutine, public	read_all_radiag (ftin, header_fix, retrieval, all_data_fix, all_data_chan, all_data_extra, nobs, iflag)

subroutine	read_radiag_data_nc_init (ftin, diag_status, header_fix, retrieval)

subroutine	read_radiag_data_nc (ftin, diag_status, header_fix, retrieval, data_fix, data_chan, data_extra, iflag)

subroutine	read_radiag_data_bin (ftin, header_fix, retrieval, data_fix, data_chan, data_extra, iflag)

Variables
integer(i_kind), parameter, public	ireal_radiag = 30

integer(i_kind), parameter	ireal_old_radiag = 26

integer(i_kind), parameter, public	ipchan_radiag = 8

integer(i_kind), save	iversion_radiag

integer(i_kind), parameter	iversion_radiag_1 = 11104

integer(i_kind), parameter	iversion_radiag_2 = 13784

integer(i_kind), parameter	iversion_radiag_3 = 19180

integer(i_kind), parameter	iversion_radiag_4 = 30303

real(r_single), parameter	rmiss_radiag = -9.9e11_r_single

logical, save	netcdf = .false.

integer(i_kind), parameter	max_open_ncdiag = 2

integer(i_kind), save	nopen_ncdiag = 0

integer(i_kind), dimension(max_open_ncdiag), save	ncdiag_open_id = (/-1, -1/)

type(ncdiag_status), dimension(max_open_ncdiag), save	ncdiag_open_status

Function/Subroutine Documentation

◆ close_radiag()

subroutine, public read_diag::close_radiag	(	character*500, intent(in)	filename,
		integer(i_kind), intent(inout)	ftin
	)

Definition at line 287 of file read_diag.f90.

Here is the call graph for this function:

◆ find_ncdiag_id()

integer(i_kind) function read_diag::find_ncdiag_id ( integer, intent(in) ftin )

private

Definition at line 713 of file read_diag.f90.

Here is the caller graph for this function:

◆ get_radiag_int_()

subroutine read_diag::get_radiag_int_	(	character(len=*), intent(in)	what,
		integer(i_kind), intent(out)	iv,
		integer(i_kind), intent(out)	ier
	)

private

Definition at line 213 of file read_diag.f90.

◆ open_radiag()

subroutine, public read_diag::open_radiag	(	character*500, intent(in)	filename,
		integer(i_kind), intent(inout)	ftin
	)

Definition at line 248 of file read_diag.f90.

Here is the call graph for this function:

◆ read_all_radiag()

subroutine, public read_diag::read_all_radiag	(	integer(i_kind), intent(in)	ftin,
		type(diag_header_fix_list ), intent(in)	header_fix,
		logical, intent(in)	retrieval,
		type(diag_data_fix_list), dimension(:), allocatable	all_data_fix,
		type(diag_data_chan_list), dimension(:,:), allocatable	all_data_chan,
		type(diag_data_extra_list), dimension(:,:,:), allocatable	all_data_extra,
		integer(i_kind), intent(out)	nobs,
		integer(i_kind), intent(out)	iflag
	)

Definition at line 802 of file read_diag.f90.

Here is the call graph for this function:

◆ read_radiag_data()

subroutine, public read_diag::read_radiag_data	(	integer(i_kind), intent(in)	ftin,
		type(diag_header_fix_list ), intent(in)	header_fix,
		logical, intent(in)	retrieval,
		type(diag_data_fix_list), intent(out)	data_fix,
		type(diag_data_chan_list), dimension(:), allocatable	data_chan,
		type(diag_data_extra_list), dimension(:,:), allocatable	data_extra,
		integer(i_kind), intent(out)	iflag
	)

Definition at line 729 of file read_diag.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ read_radiag_data_bin()

subroutine read_diag::read_radiag_data_bin	(	integer(i_kind), intent(in)	ftin,
		type(diag_header_fix_list ), intent(in)	header_fix,
		logical, intent(in)	retrieval,
		type(diag_data_fix_list), intent(out)	data_fix,
		type(diag_data_chan_list), dimension(:), allocatable	data_chan,
		type(diag_data_extra_list), dimension(:,:), allocatable	data_extra,
		integer(i_kind), intent(out)	iflag
	)

private

Definition at line 1147 of file read_diag.f90.

Here is the caller graph for this function:

◆ read_radiag_data_nc()

subroutine read_diag::read_radiag_data_nc	(	integer(i_kind), intent(in)	ftin,
		type(ncdiag_status), intent(inout)	diag_status,
		type(diag_header_fix_list ), intent(in)	header_fix,
		logical, intent(in)	retrieval,
		type(diag_data_fix_list), intent(out)	data_fix,
		type(diag_data_chan_list), dimension(:), allocatable	data_chan,
		type(diag_data_extra_list), dimension(:,:), allocatable	data_extra,
		integer(i_kind), intent(out)	iflag
	)

private

Definition at line 1098 of file read_diag.f90.

Here is the caller graph for this function:

◆ read_radiag_data_nc_init()

subroutine read_diag::read_radiag_data_nc_init	(	integer(i_kind), intent(in)	ftin,
		type(ncdiag_status), intent(inout)	diag_status,
		type(diag_header_fix_list ), intent(in)	header_fix,
		logical, intent(in)	retrieval
	)

private

Definition at line 840 of file read_diag.f90.

Here is the caller graph for this function:

◆ read_radiag_header()

subroutine, public read_diag::read_radiag_header	(	integer(i_kind), intent(in)	ftin,
		integer(i_kind), intent(in)	npred_radiag,
		logical, intent(in)	retrieval,
		type(diag_header_fix_list ), intent(out)	header_fix,
		type(diag_header_chan_list), dimension(:), allocatable	header_chan,
		type(diag_data_name_list)	data_name,
		integer(i_kind), intent(out)	iflag,
		logical, intent(in), optional	lverbose
	)

Definition at line 321 of file read_diag.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ read_radiag_header_bin()

subroutine read_diag::read_radiag_header_bin	(	integer(i_kind), intent(in)	ftin,
		integer(i_kind), intent(in)	npred_radiag,
		logical, intent(in)	retrieval,
		type(diag_header_fix_list ), intent(out)	header_fix,
		type(diag_header_chan_list), dimension(:), allocatable	header_chan,
		type(diag_data_name_list)	data_name,
		integer(i_kind), intent(out)	iflag,
		logical, intent(in), optional	lverbose
	)

private

Definition at line 467 of file read_diag.f90.

Here is the caller graph for this function:

◆ read_radiag_header_nc()

subroutine read_diag::read_radiag_header_nc	(	integer(i_kind), intent(in)	ftin,
		integer(i_kind), intent(in)	npred_radiag,
		logical, intent(in)	retrieval,
		type(diag_header_fix_list ), intent(out)	header_fix,
		type(diag_header_chan_list), dimension(:), allocatable	header_chan,
		type(diag_data_name_list)	data_name,
		integer(i_kind), intent(out)	iflag,
		logical, intent(in), optional	lverbose
	)

private

Definition at line 370 of file read_diag.f90.

Here is the caller graph for this function:

◆ set_netcdf_read()

subroutine, public read_diag::set_netcdf_read ( logical, intent(in) use_netcdf )

Definition at line 224 of file read_diag.f90.

Here is the caller graph for this function:

◆ set_radiag_int_()

subroutine read_diag::set_radiag_int_	(	character(len=*), intent(in)	what,
		integer(i_kind), intent(in)	iv,
		integer(i_kind), intent(out)	ier
	)

private

Definition at line 202 of file read_diag.f90.

Variable Documentation

◆ ipchan_radiag

integer(i_kind), parameter, public read_diag::ipchan_radiag = 8

Definition at line 78 of file read_diag.f90.

◆ ireal_old_radiag

integer(i_kind), parameter read_diag::ireal_old_radiag = 26

private

Definition at line 77 of file read_diag.f90.

◆ ireal_radiag

integer(i_kind), parameter, public read_diag::ireal_radiag = 30

Definition at line 76 of file read_diag.f90.

◆ iversion_radiag

integer(i_kind), save read_diag::iversion_radiag

private

Definition at line 175 of file read_diag.f90.

◆ iversion_radiag_1

integer(i_kind), parameter read_diag::iversion_radiag_1 = 11104

private

Definition at line 176 of file read_diag.f90.

◆ iversion_radiag_2

integer(i_kind), parameter read_diag::iversion_radiag_2 = 13784

private

Definition at line 177 of file read_diag.f90.

◆ iversion_radiag_3

integer(i_kind), parameter read_diag::iversion_radiag_3 = 19180

private

Definition at line 178 of file read_diag.f90.

◆ iversion_radiag_4

integer(i_kind), parameter read_diag::iversion_radiag_4 = 30303

private

Definition at line 179 of file read_diag.f90.

◆ max_open_ncdiag

integer(i_kind), parameter read_diag::max_open_ncdiag = 2

private

Definition at line 194 of file read_diag.f90.

◆ ncdiag_open_id

integer(i_kind), dimension(max_open_ncdiag), save read_diag::ncdiag_open_id = (/-1, -1/)

private

Definition at line 196 of file read_diag.f90.

◆ ncdiag_open_status

type(ncdiag_status), dimension(max_open_ncdiag), save read_diag::ncdiag_open_status

private

Definition at line 197 of file read_diag.f90.

◆ netcdf

logical, save read_diag::netcdf = .false.

private

Definition at line 183 of file read_diag.f90.

◆ nopen_ncdiag

integer(i_kind), save read_diag::nopen_ncdiag = 0

private

Definition at line 195 of file read_diag.f90.

◆ rmiss_radiag

real(r_single), parameter read_diag::rmiss_radiag = -9.9e11_r_single

private

Definition at line 181 of file read_diag.f90.

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ close_radiag()

◆ find_ncdiag_id()

◆ get_radiag_int_()

◆ open_radiag()

◆ read_all_radiag()

◆ read_radiag_data()

◆ read_radiag_data_bin()

◆ read_radiag_data_nc()

◆ read_radiag_data_nc_init()

◆ read_radiag_header()

◆ read_radiag_header_bin()

◆ read_radiag_header_nc()

◆ set_netcdf_read()

◆ set_radiag_int_()

Variable Documentation

◆ ipchan_radiag

◆ ireal_old_radiag

◆ ireal_radiag

◆ iversion_radiag

◆ iversion_radiag_1

◆ iversion_radiag_2

◆ iversion_radiag_3

◆ iversion_radiag_4

◆ max_open_ncdiag

◆ ncdiag_open_id

◆ ncdiag_open_status

◆ netcdf

◆ nopen_ncdiag

◆ rmiss_radiag