ufo_crtm_utils_mod.F90 File Reference

Go to the source code of this file.

Data Types
type	ufo_crtm_utils_mod::crtm_conf
interface	ufo_crtm_utils_mod::calculate_aero_layer_factor
interface	ufo_crtm_utils_mod::qsmith

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

Functions/Subroutines
subroutine, public	ufo_crtm_utils_mod::crtm_conf_setup (conf, f_confOpts, f_confOper)
subroutine, public	ufo_crtm_utils_mod::crtm_conf_delete (conf)
subroutine, public	ufo_crtm_utils_mod::crtm_comm_stat_check (stat, PROGRAM_NAME, message, f_comm)
subroutine, public	ufo_crtm_utils_mod::ufo_crtm_skip_profiles (n_Profiles, n_Channels, channels, obss, Skip_Profiles)
subroutine, public	ufo_crtm_utils_mod::load_atm_data (n_Profiles, n_Layers, geovals, atm, conf)
subroutine, public	ufo_crtm_utils_mod::load_sfc_data (n_Profiles, n_Channels, channels, geovals, sfc, chinfo, obss, conf)
subroutine, public	ufo_crtm_utils_mod::load_geom_data (obss, geo, geo_hf)
subroutine, public	ufo_crtm_utils_mod::get_var_name (n, varname)
real(kind=kind_real) function	ufo_crtm_utils_mod::uv_to_wdir (u, v)
	Determines the wind direction from U and V components. More...
subroutine, public	ufo_crtm_utils_mod::load_aerosol_data (n_profiles, n_layers, geovals, aerosol_option, atm)
subroutine	assign_gocart_default
subroutine	assign_gocart_merra_2
subroutine	assign_other
subroutine, public	ufo_crtm_utils_mod::assign_aerosol_names (aerosol_option, var_aerosols)
subroutine	ufo_crtm_utils_mod::calculate_aero_layer_factor_atm_profile (atm, layer_factors)
subroutine	ufo_crtm_utils_mod::calculate_aero_layer_factor_atm (atm, layer_factors)
real(kind_real) function	ufo_crtm_utils_mod::gocart_aerosol_size (itype, rh)
character(len(str)) function, public	ufo_crtm_utils_mod::upper2lower (str)
integer function	ufo_crtm_utils_mod::getindex (names, usrname)
subroutine	ufo_crtm_utils_mod::qsmith_atm (atm, rh)
subroutine	ufo_crtm_utils_mod::qsmith_profiles (t, sphum, p, rh)
subroutine	ufo_crtm_utils_mod::qsmith_init (table, des)
subroutine	ufo_crtm_utils_mod::qs_table (n, table)

Variables
real(kind_real), parameter	ufo_crtm_utils_mod::rdgas = 2.8704e+2_kind_real
real(kind_real), parameter	ufo_crtm_utils_mod::rvgas = 4.6150e+2_kind_real
real(kind_real), parameter, public	ufo_crtm_utils_mod::rv_rd = rvgas/rdgas
real(kind_real), parameter	ufo_crtm_utils_mod::esl = 0.621971831
real(kind_real), parameter	ufo_crtm_utils_mod::zvir = rv_rd - 1_kind_real
real(kind_real), parameter	ufo_crtm_utils_mod::tice = 273.16_kind_real
real(kind_real), parameter, public	ufo_crtm_utils_mod::grav = 9.81_kind_real
real(kind_real), parameter, public	ufo_crtm_utils_mod::aerosol_concentration_minvalue =1.e-16_kind_real
real(kind_real), parameter, public	ufo_crtm_utils_mod::aerosol_concentration_minvalue_layer =tiny(rdgas)
real(kind_real), parameter	ufo_crtm_utils_mod::ozone_default_value =1.e-3_kind_real
integer, parameter, public	ufo_crtm_utils_mod::max_string =800
character(len=maxvarlen), dimension(3), parameter	ufo_crtm_utils_mod::ufo_absorbers = [ var_mixr, var_co2, var_oz ]
character(len=maxvarlen), dimension(n_valid_absorber_ids), parameter	ufo_crtm_utils_mod::crtm_absorbers = ABSORBER_ID_NAME(1:N_VALID_ABSORBER_IDS)
integer, dimension(n_valid_absorber_ids), parameter	ufo_crtm_utils_mod::crtm_absorber_id = [ H2O_ID, CO2_ID, O3_ID, N2O_ID, CO_ID, CH4_ID, O2_ID, NO_ID, SO2_ID, NO2_ID, NH3_ID, HNO3_ID, OH_ID, HF_ID, HCl_ID, HBr_ID, HI_ID, ClO_ID, OCS_ID, H2CO_ID, HOCl_ID, N2_ID, HCN_ID, CH3l_ID, H2O2_ID, C2H2_ID, C2H6_ID, PH3_ID, COF2_ID, SF6_ID, H2S_ID,HCOOH_ID ]
integer, dimension(3), parameter	ufo_crtm_utils_mod::crtm_absorber_units = [ MASS_MIXING_RATIO_UNITS , VOLUME_MIXING_RATIO_UNITS , VOLUME_MIXING_RATIO_UNITS ]
character(len=maxvarlen), dimension(n_valid_cloud_categories, 2), parameter	ufo_crtm_utils_mod::ufo_clouds = reshape( [ var_clw, var_cli, var_clr, var_cls, var_clg, var_clh, var_clwefr, var_cliefr, var_clrefr, var_clsefr, var_clgefr, var_clhefr ], [N_VALID_CLOUD_CATEGORIES,2] )
character(len=maxvarlen), dimension(n_valid_cloud_categories), parameter	ufo_crtm_utils_mod::crtm_clouds = CLOUD_CATEGORY_NAME(1:N_VALID_CLOUD_CATEGORIES)
integer, dimension(n_valid_cloud_categories), parameter	ufo_crtm_utils_mod::crtm_cloud_id = [ WATER_CLOUD, ICE_CLOUD, RAIN_CLOUD, SNOW_CLOUD, GRAUPEL_CLOUD, HAIL_CLOUD ]
character(len=maxvarlen), dimension(4), parameter	ufo_crtm_utils_mod::ufo_surfaces = [ var_sfc_wtmp, var_sfc_wspeed, var_sfc_wdir, var_sfc_sss]
character(len=maxvarlen), dimension(4), parameter	ufo_crtm_utils_mod::crtm_surfaces = [ character(len=MAXVARLEN):: 'Water_Temperature', 'Wind_Speed', 'Wind_Direction', 'Salinity' ]
character(len=maxvarlen), dimension(2), parameter	ufo_crtm_utils_mod::validsurfacewindgeovars = [character(len=MAXVARLEN) :: 'vector', 'uv']

Function/Subroutine Documentation

assign_gocart_default()

subroutine load_aerosol_data::assign_gocart_default

Definition at line 1005 of file ufo_crtm_utils_mod.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

assign_gocart_merra_2()

subroutine load_aerosol_data::assign_gocart_merra_2

private

Definition at line 1118 of file ufo_crtm_utils_mod.F90.

Here is the caller graph for this function:

assign_other()

subroutine load_aerosol_data::assign_other

private

Definition at line 1126 of file ufo_crtm_utils_mod.F90.

Here is the caller graph for this function: