Functions/Subroutines
subroutine	find_zero_crossings (residual, crossing_vector, crossing_num)

subroutine	find_local_minima (residual, local_min_vector, local_min_num)

subroutine	find_local_maxima (residual, local_max_vector, local_max_num)

subroutine	solution_re (re, residual, crossing_vector, crossing_num, local_min_vector, local_min_num, local_max_vector, local_max_num, retrieval, quality)

subroutine	solve_for_zero_crossing (re, residual, residual_crossing_index, fillval_r4, local_min_vector, local_min_num, local_max_vector, local_max_num, retrieval, quality)

logical function	is_water_phase (library_radii)

subroutine	ray_corr_nearest (refl_source, As, iw, tau, re, Pc, sfr, fti1, fti0, fluxup_solar, fluxup_sensor, theta, theta0, phi, location, crefl)

subroutine	solveretrieval_nearest (xx_pt, yy_pt, Ram, Rbm, twobands, radii, tau, re, lib_dist, phase_liquid, Ram_corr, quality_in, CH37_IDX, CTopT, CH37_NUM, platFormName)

subroutine	calc37radianceliblamb (intensity, intensity_g, thermal_trans_1way, thermal_trans_2way, solar_zenith, sfr, fti1, fti0, fri1)

subroutine	calc37radiancelibcm (intensity, intensity_g, thermal_trans_1way, thermal_trans_2way, solar_zenith, cl_emis, sf_emis)

subroutine	asl_interior (Ram, Rbm_in, bands, radii, tau, re, lib_dist, Pc, theta, theta0, phi, phase_liquid, Ram_corr)

subroutine	asl_boundary (Ram, Rbm_in, bands, radii, tau, re, lib_dist, Pc, theta, theta0, phi, phase_liquid, Ram_corr)

subroutine	calcdistanceandminloc (R1, R2, R1vec, R2vec, mindist, loc_index)

subroutine	solve_retrieval_noswir (optical_thickness_vector, library_radii, effective_radius, optical_thickness)

subroutine	solveretrieval (residual, optical_thickness_vector, library_radii, effective_radius, optical_thickness, debug, use_nearest, quality_out)

subroutine	linear_interpolate_for_root (residual, rad, re)

subroutine	findinterpolationrange (n1, xx, n, x, k1, k2)

real function	lagrangeinterp (xx, x, y)

subroutine	check_for_signchange (x, signchange)

subroutine	quad_interpolate_for_root (radii, residual, radius_solution, status)

Variables
integer, parameter	top_nk_asl_contour_ice = 1

integer, parameter	top_nk_asl_contour_water = 2

Function/Subroutine Documentation

◆ asl_boundary()

subroutine retrieval_solution_logic::asl_boundary	(	real, intent(in)	Ram,
		real, intent(in)	Rbm_in,
		integer, dimension(:), intent(in)	bands,
		real, dimension(:), intent(in)	radii,
		real, intent(inout)	tau,
		real, intent(inout)	re,
		real, intent(inout)	lib_dist,
		real, intent(in)	Pc,
		real, intent(in)	theta,
		real, intent(in)	theta0,
		real, intent(in)	phi,
		logical, intent(in)	phase_liquid,
		real, intent(inout)	Ram_corr
	)

Definition at line 1017 of file retrieval_solution_logic.f90.

◆ asl_interior()

subroutine retrieval_solution_logic::asl_interior	(	real, intent(in)	Ram,
		real, intent(in)	Rbm_in,
		integer, dimension(:), intent(in)	bands,
		real, dimension(:), intent(in)	radii,
		real, intent(inout)	tau,
		real, intent(inout)	re,
		real, intent(inout)	lib_dist,
		real, intent(in)	Pc,
		real, intent(in)	theta,
		real, intent(in)	theta0,
		real, intent(in)	phi,
		logical, intent(in)	phase_liquid,
		real, intent(inout)	Ram_corr
	)

Definition at line 837 of file retrieval_solution_logic.f90.

◆ calc37radiancelibcm()

subroutine retrieval_solution_logic::calc37radiancelibcm	(	real, intent(in)	intensity,
		real, intent(in)	intensity_g,
		real, intent(in)	thermal_trans_1way,
		real, intent(in)	thermal_trans_2way,
		real, intent(in)	solar_zenith,
		real(single), dimension(:,:), intent(in)	cl_emis,
		real(single), dimension(:,:), intent(in)	sf_emis
	)

Definition at line 796 of file retrieval_solution_logic.f90.

◆ calc37radianceliblamb()

subroutine retrieval_solution_logic::calc37radianceliblamb	(	real, intent(in)	intensity,
		real, intent(in)	intensity_g,
		real, intent(in)	thermal_trans_1way,
		real, intent(in)	thermal_trans_2way,
		real, intent(in)	solar_zenith,
		real(single), dimension(:,:), intent(in)	sfr,
		real(single), dimension(:,:), intent(in)	fti1,
		real(single), dimension(:,:), intent(in)	fti0,
		real(single), dimension(:,:), intent(in)	fri1
	)

Definition at line 750 of file retrieval_solution_logic.f90.

◆ calcdistanceandminloc()

subroutine retrieval_solution_logic::calcdistanceandminloc	(	real, intent(in)	R1,
		real, intent(in)	R2,
		real, dimension(:), intent(in)	R1vec,
		real, dimension(:), intent(in)	R2vec,
		real, intent(out)	mindist,
		integer, intent(out)	loc_index
	)

Definition at line 1288 of file retrieval_solution_logic.f90.

◆ check_for_signchange()

subroutine retrieval_solution_logic::check_for_signchange	(	real, dimension(3), intent(in)	x,
		integer, intent(out)	signchange
	)

Definition at line 1692 of file retrieval_solution_logic.f90.

◆ find_local_maxima()

subroutine retrieval_solution_logic::find_local_maxima	(	real, dimension(:), intent(in)	residual,
		integer, dimension(:), intent(out)	local_max_vector,
		integer, intent(out)	local_max_num
	)

Definition at line 98 of file retrieval_solution_logic.f90.

◆ find_local_minima()

subroutine retrieval_solution_logic::find_local_minima	(	real, dimension(:), intent(in)	residual,
		integer, dimension(:), intent(out)	local_min_vector,
		integer, intent(out)	local_min_num
	)

Definition at line 62 of file retrieval_solution_logic.f90.

◆ find_zero_crossings()

subroutine retrieval_solution_logic::find_zero_crossings	(	real, dimension(:), intent(in)	residual,
		integer, dimension(:), intent(out)	crossing_vector,
		integer, intent(out)	crossing_num
	)

Definition at line 12 of file retrieval_solution_logic.f90.

◆ findinterpolationrange()

subroutine retrieval_solution_logic::findinterpolationrange	(	integer, intent(in)	n1,
		real, intent(in)	xx,
		integer, intent(in)	n,
		real, dimension(n), intent(in)	x,
		integer, intent(out)	k1,
		integer, intent(out)	k2
	)

Definition at line 1637 of file retrieval_solution_logic.f90.

◆ is_water_phase()

logical function retrieval_solution_logic::is_water_phase ( real(single), dimension(:), intent(in) library_radii )

Definition at line 521 of file retrieval_solution_logic.f90.

◆ lagrangeinterp()

real function retrieval_solution_logic::lagrangeinterp	(	real, intent(in)	xx,
		real, dimension(3), intent(in)	x,
		real, dimension(3), intent(in)	y
	)

Definition at line 1676 of file retrieval_solution_logic.f90.

◆ linear_interpolate_for_root()

subroutine retrieval_solution_logic::linear_interpolate_for_root	(	real, dimension(2), intent(in)	residual,
		real, dimension(2), intent(in)	rad,
		real, intent(out)	re
	)

Definition at line 1621 of file retrieval_solution_logic.f90.

◆ quad_interpolate_for_root()

subroutine retrieval_solution_logic::quad_interpolate_for_root	(	real(single), dimension(:), intent(in)	radii,
		real(single), dimension(:), intent(in)	residual,
		real(single), intent(out)	radius_solution,
		integer, intent(out)	status
	)

Definition at line 1737 of file retrieval_solution_logic.f90.

◆ ray_corr_nearest()

subroutine retrieval_solution_logic::ray_corr_nearest	(	real, intent(in)	refl_source,
		real, intent(in)	As,
		integer, intent(in)	iw,
		real, intent(in)	tau,
		real, intent(in)	re,
		real, intent(in)	Pc,
		real, intent(in)	sfr,
		real, intent(in)	fti1,
		real, intent(in)	fti0,
		real, dimension(:,:,:,:), intent(in)	fluxup_solar,
		real, dimension(:,:,:,:), intent(in)	fluxup_sensor,
		real, intent(in)	theta,
		real, intent(in)	theta0,
		real, intent(in)	phi,
		integer, dimension(2), intent(in)	location,
		real, intent(inout)	crefl
	)

Definition at line 537 of file retrieval_solution_logic.f90.

◆ solution_re()

subroutine retrieval_solution_logic::solution_re	(	real, dimension(:), intent(in)	re,
		real, dimension(:), intent(in)	residual,
		integer, dimension(:), intent(in)	crossing_vector,
		integer, intent(in)	crossing_num,
		integer, dimension(:), intent(in)	local_min_vector,
		integer, intent(in)	local_min_num,
		integer, dimension(:), intent(in)	local_max_vector,
		integer, intent(in)	local_max_num,
		real, intent(out)	retrieval,
		integer*1, intent(out)	quality
	)

Definition at line 137 of file retrieval_solution_logic.f90.

◆ solve_for_zero_crossing()

subroutine retrieval_solution_logic::solve_for_zero_crossing	(	real, dimension(:), intent(in)	re,
		real, dimension(:), intent(in)	residual,
		integer, intent(in)	residual_crossing_index,
		real, intent(in)	fillval_r4,
		integer, dimension(:), intent(in)	local_min_vector,
		integer, intent(in)	local_min_num,
		integer, dimension(:), intent(in)	local_max_vector,
		integer, intent(in)	local_max_num,
		real, intent(inout)	retrieval,
		integer*1, intent(inout)	quality
	)

Definition at line 321 of file retrieval_solution_logic.f90.

◆ solve_retrieval_noswir()

subroutine retrieval_solution_logic::solve_retrieval_noswir	(	real, dimension(:), intent(in)	optical_thickness_vector,
		real, dimension(:), intent(in)	library_radii,
		real, intent(in)	effective_radius,
		real, intent(out)	optical_thickness
	)

Definition at line 1319 of file retrieval_solution_logic.f90.

◆ solveretrieval()

subroutine retrieval_solution_logic::solveretrieval	(	real, dimension(:), intent(in)	residual,
		real, dimension(:), intent(in)	optical_thickness_vector,
		real(single), dimension(:), intent(in)	library_radii,
		real, intent(out)	effective_radius,
		real, intent(out)	optical_thickness,
		logical, intent(in)	debug,
		logical, intent(inout)	use_nearest,
		integer, intent(out)	quality_out
	)

Definition at line 1362 of file retrieval_solution_logic.f90.

◆ solveretrieval_nearest()

subroutine retrieval_solution_logic::solveretrieval_nearest	(	integer, intent(in)	xx_pt,
		integer, intent(in)	yy_pt,
		real, intent(in)	Ram,
		real, intent(in)	Rbm,
		integer, dimension(:), intent(in)	twobands,
		real, dimension(:), intent(in)	radii,
		real, intent(inout)	tau,
		real, intent(inout)	re,
		real, intent(inout)	lib_dist,
		logical, intent(in)	phase_liquid,
		real, intent(inout)	Ram_corr,
		integer, intent(in)	quality_in,
		integer, intent(in), optional	CH37_IDX,
		real, intent(in), optional	CTopT,
		integer, intent(in), optional	CH37_NUM,
		character(len=*), intent(in), optional	platFormName
	)

Definition at line 635 of file retrieval_solution_logic.f90.

Variable Documentation

◆ top_nk_asl_contour_ice

integer, parameter top_nk_asl_contour_ice = 1

Definition at line 5 of file retrieval_solution_logic.f90.

◆ top_nk_asl_contour_water

integer, parameter top_nk_asl_contour_water = 2