OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
retrieval_prep_logic.f90 File Reference

Go to the source code of this file.

Modules

module  retrieval_prep_logic
 

Functions/Subroutines

subroutine init_retrieval (library_taus)
 
subroutine cleanup_retrieval
 
subroutine compute_water_path (tau, re, density, library_re, extinction_efficiency, water_path)
 
subroutine vis_nonabsorbing_science (reflectance_nonabsorbing, nonabsorbing_index, nonabsorbing_albedo, library_taus, library_radii, sfr, fti1, fti0, rfi, theta, theta0, phi, cloudtop_pressure, process, optical_thickness_vector)
 
subroutine vis_absorbing_science (optical_thickness_vector, reflectance_absorbing, absorbing_index, absorbing_albedo, library_taus, library_radii, sfr, fti1, fti0, rfi, residual, maxradii, debug)
 
subroutine interpolate_refl_cot (reflectance, reflectance_vector, optical_thickness_vector, optical_thickness)
 
subroutine rayleighcorrection (reflectance, cloudtoppressure, process, optical_thickness, nonabsorbing_galbedo, fti1, fti0, sfr, iw, ir, solarzenith, sensorzenith, azimuth, reflectance_corrected)
 
subroutine interp_lib_reflflux_cloudalbedo (miu0, miu, optical_thickness, nonabsorbing_galbedo, sfr, fti1, fti0, iw, ir, fluxsolarzenithangles, fluxsensorzenithangles, fluxup_solar, fluxup_sensor, interp_fluxup_solar, interp_fluxup_sensor)
 
subroutine nir_absorbing_science (platform_name, optical_thickness_vector, reflectance_absorbing, absorbing_index, absorbing_albedo, xpoint, ypoint, CTT, thermal_trans_1way, thermal_trans_2way, library_taus, library_radii, sfr, fti1, fti0, fri1, rfi, cl_emis, sf_emis, residual, maxradii, channel_number_37, emission_uncertainty_pw, emission_uncertainty_Tc, sigma_R37_PW, debug)
 
subroutine toa_radiance37 (platform_name, taux, tc, sfr, rfi1, fti0, fti1, fri1, rfi, galbedo, B_Tg, B_Tc, rf1, rtherm37, channel_number_37, reflib, Es, Ec)
 
subroutine toa_radiance37_cox_munk (platform_name, taux, tc, B_Tg, B_Tc, rfi, cl_emis, sf_emis, rf1, rtherm37, channel_number_37, Es, Ec)
 
subroutine calculate_new_tc (platform_name, Tc, Tg, galbedo, wlen, tau, re, lib_taus, lib_res, sph_albedo, down_flux_sensor, up_flux_sensor, cloud_emiss, surface_emiss, newTc, PRN)
 

Variables

logical go_print