|
| 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) |
| |
