read_diag.f90 File Reference

Go to the source code of this file.

Data Types
interface	read_diag::set_radiag
interface	read_diag::get_radiag
type	read_diag::diag_header_fix_list
type	read_diag::diag_data_name_list
type	read_diag::diag_header_chan_list
type	read_diag::diag_data_fix_list
type	read_diag::diag_data_chan_list
type	read_diag::diag_data_extra_list
type	read_diag::ncdiag_status

Modules
module	read_diag

Functions/Subroutines
subroutine	read_diag::set_radiag_int_ (what, iv, ier)
subroutine	read_diag::get_radiag_int_ (what, iv, ier)
subroutine, public	read_diag::set_netcdf_read (use_netcdf)
subroutine, public	read_diag::open_radiag (filename, ftin)
subroutine, public	read_diag::close_radiag (filename, ftin)
subroutine, public	read_diag::read_radiag_header (ftin, npred_radiag, retrieval, header_fix, header_chan, data_name, iflag, lverbose)
subroutine	read_diag::read_radiag_header_nc (ftin, npred_radiag, retrieval, header_fix, header_chan, data_name, iflag, lverbose)
subroutine	read_diag::read_radiag_header_bin (ftin, npred_radiag, retrieval, header_fix, header_chan, data_name, iflag, lverbose)
integer(i_kind) function	read_diag::find_ncdiag_id (ftin)
subroutine, public	read_diag::read_radiag_data (ftin, header_fix, retrieval, data_fix, data_chan, data_extra, iflag)
subroutine, public	read_diag::read_all_radiag (ftin, header_fix, retrieval, all_data_fix, all_data_chan, all_data_extra, nobs, iflag)
subroutine	read_diag::read_radiag_data_nc_init (ftin, diag_status, header_fix, retrieval)
subroutine	read_diag::read_radiag_data_nc (ftin, diag_status, header_fix, retrieval, data_fix, data_chan, data_extra, iflag)
subroutine	read_diag::read_radiag_data_bin (ftin, header_fix, retrieval, data_fix, data_chan, data_extra, iflag)

Variables
integer(i_kind), parameter, public	read_diag::ireal_radiag = 30
integer(i_kind), parameter	read_diag::ireal_old_radiag = 26
integer(i_kind), parameter, public	read_diag::ipchan_radiag = 8
integer(i_kind), save	read_diag::iversion_radiag
integer(i_kind), parameter	read_diag::iversion_radiag_1 = 11104
integer(i_kind), parameter	read_diag::iversion_radiag_2 = 13784
integer(i_kind), parameter	read_diag::iversion_radiag_3 = 19180
integer(i_kind), parameter	read_diag::iversion_radiag_4 = 30303
real(r_single), parameter	read_diag::rmiss_radiag = -9.9e11_r_single
logical, save	read_diag::netcdf = .false.
integer(i_kind), parameter	read_diag::max_open_ncdiag = 2
integer(i_kind), save	read_diag::nopen_ncdiag = 0
integer(i_kind), dimension(max_open_ncdiag), save	read_diag::ncdiag_open_id = (/-1, -1/)
type(ncdiag_status), dimension(max_open_ncdiag), save	read_diag::ncdiag_open_status