ufo_radiancerttov_utils_mod.F90 File Reference

Go to the source code of this file.

Data Types
type	ufo_radiancerttov_utils_mod::ufo_rttov_io
type	ufo_radiancerttov_utils_mod::rttov_conf

Modules
module	ufo_radiancerttov_utils_mod
	Fortran module to provide code shared between nonlinear and tlm/adm radiance calculations.

Functions/Subroutines
subroutine, public	ufo_radiancerttov_utils_mod::rttov_conf_setup (conf, f_confOpts, f_confOper)
subroutine, public	ufo_radiancerttov_utils_mod::rttov_conf_delete (conf)
subroutine	ufo_radiancerttov_utils_mod::set_options_rttov (self, f_confOpts)
subroutine	ufo_radiancerttov_utils_mod::setup_rttov (self, f_confOpts)
subroutine	ufo_radiancerttov_utils_mod::get_var_name (n, varname)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_setup_rtprof (self, geovals, obss, conf, ob_info)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_check_rtprof (self, conf, iprof, i_inst, errorstatus)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_print_rtprof (self, conf, iprof, i_inst)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_alloc_direct (self, errorstatus, conf, nprofiles, nchannels, nlevels, init, asw)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_alloc_k (self, errorstatus, conf, nprofiles, nchannels, nlevels, init, asw)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_alloc_profiles (self, errorstatus, conf, nprofiles, nlevels, init, asw)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_alloc_profiles_k (self, errorstatus, conf, nprofiles, nlevels, init, asw)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_zero_k (self)
subroutine	ufo_radiancerttov_utils_mod::ufo_rttov_init_emissivity (self, conf, prof_start)
subroutine	ufo_radiancerttov_utils_mod::set_defaults_rttov (self, default_opts_set)
subroutine, public	ufo_radiancerttov_utils_mod::populate_hofxdiags (RTProf, chanprof, conf, prof_start, hofxdiags)
subroutine, public	ufo_radiancerttov_utils_mod::parse_hofxdiags (hofxdiags, jacobian_needed)

Variables
integer, parameter, public	ufo_radiancerttov_utils_mod::max_string =800
integer, parameter, public	ufo_radiancerttov_utils_mod::maxvarin = 50
character(len=maxvarlen), dimension(maxvarin), public	ufo_radiancerttov_utils_mod::varin_temp
character(len=max_string), public	ufo_radiancerttov_utils_mod::message
integer, public	ufo_radiancerttov_utils_mod::nvars_in
integer, public	ufo_radiancerttov_utils_mod::rttov_errorstatus
character(len=maxvarlen), dimension(:), allocatable	ufo_radiancerttov_utils_mod::ystr_diags
character(len=maxvarlen), dimension(:), allocatable	ufo_radiancerttov_utils_mod::xstr_diags
integer, dimension(:), allocatable	ufo_radiancerttov_utils_mod::ch_diags
real(c_double)	ufo_radiancerttov_utils_mod::missing
character(len=maxvarlen), dimension(21), target	ufo_radiancerttov_utils_mod::varin_default_crtm = (/var_ts, var_prs, var_prsi, var_sfc_wfrac, var_sfc_lfrac, var_sfc_ifrac, var_sfc_sfrac, var_sfc_wtmp, var_sfc_ltmp, var_sfc_itmp, var_sfc_stmp, var_sfc_vegfrac, var_sfc_wspeed, var_sfc_wdir, var_sfc_lai, var_sfc_soilm, var_sfc_soilt, var_sfc_landtyp, var_sfc_vegtyp, var_sfc_soiltyp, var_sfc_sdepth/)
character(len=maxvarlen), dimension(9), target	ufo_radiancerttov_utils_mod::varin_default_satrad = (/var_prs, var_ts, var_q, var_sfc_t2m, var_sfc_u10, var_sfc_v10, var_sfc_p2m, var_sfc_q2m, var_sfc_tskin /)
character(len=maxvarlen), dimension(:), pointer, public	ufo_radiancerttov_utils_mod::varin_default
character(len= *), dimension(ngases_max+2), parameter	ufo_radiancerttov_utils_mod::rttov_absorbers = [gas_name(1:ngases_max),'CLW', 'CIW']
integer, dimension(ngases_max+2), parameter	ufo_radiancerttov_utils_mod::rttov_absorber_id = [gas_id_mixed, gas_id_watervapour, gas_id_ozone, gas_id_wvcont, gas_id_co2, gas_id_n2o, gas_id_co, gas_id_ch4, gas_id_so2, 0, 0]
real(kind_real), dimension(0:ngases_max), parameter	ufo_radiancerttov_utils_mod::gas_unit_conv = [1.0_kind_real, 1.0_kind_real, q_mixratio_to_ppmv, o3_mixratio_to_ppmv, 1.0_kind_real, co2_mixratio_to_ppmv, n2o_mixratio_to_ppmv, co_mixratio_to_ppmv, ch4_mixratio_to_ppmv, so2_mixratio_to_ppmv]
character(len=maxvarlen), parameter	ufo_radiancerttov_utils_mod::null_str = ''
character(len=maxvarlen), dimension(ngases_max+2), parameter	ufo_radiancerttov_utils_mod::ufo_absorbers = [ null_str, var_mixr, var_oz, null_str, var_co2, 'mole_fraction_of_nitrous_oxide_in_air', 'mole_fraction_of_carbon_monoxide_in_air', 'mole_fraction_of_methane_in_air', 'mole_fraction_of_sulfur_dioxide_in_air', var_clw, var_cli]
integer, public	ufo_radiancerttov_utils_mod::nchan_inst
integer, public	ufo_radiancerttov_utils_mod::nchan_sim
integer, public	ufo_radiancerttov_utils_mod::nlocs_total
logical, public	ufo_radiancerttov_utils_mod::debug
integer	ufo_radiancerttov_utils_mod::iprof