err_estimates.f90 File Reference
Data Types | |
type | errest_flags |
Modules | |
module | mod_errest_flags |
Functions/Subroutines | |
subroutine | initialize_errest (ERREST) |
subroutine | err_estimates (iu_main_output, sparse_solver_name, UF, UFS, nnz_err, UFNZ, QS, QIM, AGENP, ALS, AP, APMIN, APMAX, RIN, INVSING, npixels, MASL, errest_pix, dermask_aerpar, tau_mol, NHVP_meas, HVP_meas, GOUT, solver_timer, KERNELS1, KERNELS2, use_bias_eq, flag_bias, QSE_bias, QIM_bias, ALS_temp) |
subroutine | err_estimates_multi_pixel_scenario (iu_main_output, sparse_solver_name, RIN, npixels, MASL, UF, QIM, AGENP, ALS, nnz_err, UFNZ, GOUT, solver_timer, AP, APMIN, APMAX, dermask_aerpar, tau_mol, NHVP_meas, HVP_meas, KERNELS1, KERNELS2, use_bias_eq, flag_bias, QIM_bias, ALS_temp) |
subroutine | err_estimates_single_pixel_scenario (iu_main_output, sparse_solver_name, RIN, npixels, MASL, UFS, QS, ALS, AP, APMIN, APMAX, UFNZ, GOUT, solver_timer, errest_pix, dermask_aerpar, tau_mol, NHVP_meas, HVP_meas, KERNELS1, KERNELS2, use_bias_eq, flag_bias, QSE_bias, ALS_temp) |
subroutine | opt_err_estimates_single_pixel_scenario (iu_main_output, sparse_solver_name, RIN, npixels, UFS, QS, ALS, errest_pix, UFNZ, GOUT, solver_timer, NOF, NSD1, UW0, use_bias_eq, flag_bias, QSE_bias) |
subroutine | opt_err_estimates_multi_pixel_scenario (iu_main_output, RIN, npixels, UF, QIM, AGENP, nnz_err, UFNZ, GOUT, solver_timer, NOF, NSD1, UW0, use_bias_eq, flag_bias, QIM_bias) |
subroutine | extfc_err_estimates_multi_pixel_scenario (iu_main_output, RIN, npixels, UF, QIM, AGENP, nnz_err, UFNZ, GOUT, solver_timer, NOF, NSD1, UW0_aodfc, use_bias_eq, flag_bias, QIM_bias) |
subroutine | mic_err_estimates_single_pixel_scenario (iu_main_output, sparse_solver_name, RIN, npixels, UFS, QS, ALS, errest_pix, UFNZ, GOUT, solver_timer, NOF, NSD1, UW0_mic, use_bias_eq, flag_bias, QSE_bias) |
subroutine | opt_err_estimates_deriv_matrix (iu_main_output, RIN, npixels, ALS, GOUT, AP, APMIN, APMAX, dermask_aerpar, tau_mol, NHVP_meas, HVP_meas, KERNELS1, KERNELS2, NOF, NSD1, UW0, use_bias_eq, ALS_temp) |
subroutine | mic_err_estimates_deriv_matrix (iu_main_output, RIN, npixels, ALS, GOUT, AP, APMIN, APMAX, dermask_aerpar, tau_mol, NHVP_meas, HVP_meas, KERNELS1, KERNELS2, NOF, NSD1, UW0_mic, use_bias_eq, ALS_temp) |
subroutine | extfc_err_estimates_deriv_matrix (iu_main_output, RIN, npixels, ALS, GOUT, AP, APMIN, APMAX, dermask_aerpar, tau_mol, NHVP_meas, HVP_meas, KERNELS1, KERNELS2, NOF, NSD1, UW0_aodfc, use_bias_eq, ALS_temp) |
subroutine | set_uw0 (IW, KL, NW, NSD, NOF, NSD1, GOUT_aerosol_opt_pixel_wl, GOUT_aerosol_lidar_pixel_wl, GOUT_aerosol_opt_pixel_wl_temp, GOUT_aerosol_lidar_pixel_wl_temp, DL1, UW0) |
subroutine | set_uw0_aodfc (IW, KL, NW, NSD, NOF, NSD1, GOUT_aerosol_pixel_wl, GOUT_aerosol_pixel_wl_temp, DL1, UW0_aodfc) |
subroutine | set_uw0_rind_aux (IW, KL, NW, NSD, NOFRI, NSD1, GOUT_aerosol_rindex_pixel_wl, CVret_fine, CVret_coarse, GOUT_aerosol_rindex_pixel_wl_temp, CVtemp_fine, CVtemp_coarse, DL1, UW0_rind_aux) |
subroutine | set_uw0_sd_ln (IW, KL, ipix, radSD, NSD, NOF, NSD1, RIN, GOUT_retrieval_par, CV, GOUT_retrieval_par_temp, CV_temp, DL1, UW0_mic) |
subroutine | set_mic_err (IOF, IW, ISD, ipix, use_bias_eq, flag_bias, ERR, BIAS, GOUT_errest_mic) |
subroutine | set_opt_err (IOF, IW, ISD, ipix, use_bias_eq, flag_bias, ERR, BIAS, GOUT_errest_aerosol) |
subroutine | set_extfc_err (IOF, IW, ISD, ipix, use_bias_eq, flag_bias, ERR, BIAS, GOUT_errest_aerosol) |
subroutine | calculate_err_and_bias (use_bias_eq, flag_bias, ERR, BIAS, ERR_out, BIAS_out, TSTD_out) |
subroutine | par_err_estimates_single_pixel_scenario_indep_par (iu_main_output, sparse_solver_name, RIN, npixels, MASL, UFS, QS, ALS, AP, NHVP_meas, HVP_meas, errest_pix, UFNZ, GOUT_errest_par, solver_timer) |
subroutine | par_err_estimates_multi_pixel_scenario_indep_par (iu_main_output, sparse_solver_name, RIN, npixels, MASL, UF, QIM, AGENP, AP, NHVP_meas, HVP_meas, nnz_err, UFNZ, GOUT_errest_par, solver_timer) |
subroutine | par_err_estimates_single_pixel_scenario (iu_main_output, sparse_solver_name, RIN, npixels, UFS, QS, ALS, errest_pix, UFNZ, GOUT_errest_par, solver_timer) |
subroutine | par_err_estimates_multi_pixel_scenario (iu_main_output, sparse_solver_name, RIN, npixels, UF, QIM, AGENP, nnz_err, UFNZ, GOUT_errest_par, solver_timer) |
subroutine | opt_err_estimates_number_of_optchar (RIN, NOF) |
subroutine | opt_err_estimates_number_of_sd (RIN, NSD1) |
subroutine | set_errest_derivative_mask (RIN, num_plus, idim1_plus, par_type_plus, KNSINGF_mask) |
Routine prepares derivative mask for error estimates in case of retrieval. More... | |
subroutine | set_par_errest_mask_plus (RIN, par_errest_mask_plus) |
Routine prepares parameter error estimate mask required by settings for output. More... | |
subroutine | set_errest_par_indices (RIN, iplus) |
Routine returns indices of n-1 parameters in complete vector of parameters. More... | |
subroutine | par_err_estimates_deriv_matrix (iu_main_output, deriv_type, n, x, y, U) |
subroutine | bias_estimates (RIN, iu_main_output, segment_meas, segment_vec_meas, pixel_vec_fit_deriv, AP, APMIN, APMAX, segment_vec_fit, nangles, sca_angles, tau_mol, NHVP_meas, HVP_meas, dermask, dermask_aerpar, lresult, lp, KERNELS1, KERNELS2, GOUT, INVSING, US_temp, sparse_solver_name, QSE_temp, QIM_temp, option_bias, KM1_pix, ALS_temp) |
Variables | |
type(errest_flags) | errest |
Function/Subroutine Documentation
◆ bias_estimates()
subroutine bias_estimates | ( | type(retr_input_settings), intent(in) | RIN, |
integer, intent(in) | iu_main_output, | ||
type(segment_data), intent(in) | segment_meas, | ||
type(pixel_vector), dimension(kimage) | segment_vec_meas, | ||
type(pixel_vector), dimension(kimage) | pixel_vec_fit_deriv, | ||
real, dimension(kpars,kimage) | AP, | ||
real, dimension(kpars) | APMIN, | ||
real, dimension(kpars) | APMAX, | ||
type(pixel_vector), dimension(kimage) | segment_vec_fit, | ||
integer | nangles, | ||
real, dimension(kmpar) | sca_angles, | ||
real, dimension(kw,kimage) | tau_mol, | ||
integer | NHVP_meas, | ||
real, dimension(kvertm,kimage) | HVP_meas, | ||
logical, dimension(kpars,kimage) | dermask, | ||
logical, dimension(kpars) | dermask_aerpar, | ||
logical | lresult, | ||
integer | lp, | ||
type(kernels_triangle_bin), intent(inout) | KERNELS1, | ||
type(kernels_lognormal_bin), intent(inout) | KERNELS2, | ||
type(output_segment_general), intent(in) | GOUT, | ||
integer | INVSING, | ||
real, dimension(kmess,kpars,kimage) | US_temp, | ||
character(len=20) | sparse_solver_name, | ||
real, dimension(kpars,kimage) | QSE_temp, | ||
real, dimension(kpar) | QIM_temp, | ||
integer, intent(in), optional | option_bias, | ||
integer, dimension(kimage) | KM1_pix, | ||
real, dimension(kimage), intent(out) | ALS_temp | ||
) |
◆ calculate_err_and_bias()
subroutine calculate_err_and_bias | ( | logical, intent(in) | use_bias_eq, |
integer, intent(in) | flag_bias, | ||
real, intent(in) | ERR, | ||
real, intent(in) | BIAS, | ||
real, intent(inout) | ERR_out, | ||
real, intent(inout) | BIAS_out, | ||
real, intent(inout) | TSTD_out | ||
) |
◆ err_estimates()
subroutine err_estimates | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
real, dimension(kpar,kpar), intent(in) | UF, | ||
real, dimension(kpars,kpars,kimage), intent(inout) | UFS, | ||
integer, intent(in) | nnz_err, | ||
type(nonzero), intent(inout) | UFNZ, | ||
real, dimension(kpars,kimage), intent(in) | QS, | ||
real, dimension(kpar), intent(in) | QIM, | ||
real, intent(in) | AGENP, | ||
real, dimension(kimage), intent(in) | ALS, | ||
real, dimension(kpars,kimage), intent(inout) | AP, | ||
real, dimension(kpars), intent(in) | APMIN, | ||
real, dimension(kpars), intent(in) | APMAX, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | INVSING, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | MASL, | ||
logical, dimension(kimage), intent(in) | errest_pix, | ||
logical, dimension(kpars), intent(in) | dermask_aerpar, | ||
real, dimension(kw,kimage), intent(in) | tau_mol, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, intent(inout) | solver_timer, | ||
type(kernels_triangle_bin), intent(inout) | KERNELS1, | ||
type(kernels_lognormal_bin), intent(inout) | KERNELS2, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, dimension(kpars,kimage), intent(in) | QSE_bias, | ||
real, dimension(kpar), intent(in) | QIM_bias, | ||
real, dimension(kimage), intent(in) | ALS_temp | ||
) |
◆ err_estimates_multi_pixel_scenario()
subroutine err_estimates_multi_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | MASL, | ||
real, dimension(kpar,kpar), intent(in) | UF, | ||
real, dimension(kpar), intent(in) | QIM, | ||
real, intent(in) | AGENP, | ||
real, dimension(kimage), intent(in) | ALS, | ||
integer, intent(in) | nnz_err, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, intent(inout) | solver_timer, | ||
real, dimension(kpars,kimage), intent(inout) | AP, | ||
real, dimension(kpars), intent(in) | APMIN, | ||
real, dimension(kpars), intent(in) | APMAX, | ||
logical, dimension(kpars), intent(in) | dermask_aerpar, | ||
real, dimension(kw,kimage), intent(in) | tau_mol, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
type(kernels_triangle_bin), intent(inout) | KERNELS1, | ||
type(kernels_lognormal_bin), intent(inout) | KERNELS2, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, dimension(kpar), intent(in) | QIM_bias, | ||
real, dimension(kimage), intent(in) | ALS_temp | ||
) |
◆ err_estimates_single_pixel_scenario()
subroutine err_estimates_single_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | MASL, | ||
real, dimension(kpars,kpars,kimage), intent(inout) | UFS, | ||
real, dimension(kpars,kimage), intent(in) | QS, | ||
real, dimension(kimage), intent(in) | ALS, | ||
real, dimension(kpars,kimage), intent(inout) | AP, | ||
real, dimension(kpars), intent(in) | APMIN, | ||
real, dimension(kpars), intent(in) | APMAX, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, intent(inout) | solver_timer, | ||
logical, dimension(kimage), intent(in) | errest_pix, | ||
logical, dimension(kpars), intent(in) | dermask_aerpar, | ||
real, dimension(kw,kimage), intent(in) | tau_mol, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
type(kernels_triangle_bin), intent(inout) | KERNELS1, | ||
type(kernels_lognormal_bin), intent(inout) | KERNELS2, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, dimension(kpars,kimage), intent(in) | QSE_bias, | ||
real, dimension(kimage), intent(in) | ALS_temp | ||
) |
◆ extfc_err_estimates_deriv_matrix()
subroutine extfc_err_estimates_deriv_matrix | ( | integer, intent(in) | iu_main_output, |
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | ALS, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, dimension(kpars,kimage), intent(inout) | AP, | ||
real, dimension(kpars), intent(in) | APMIN, | ||
real, dimension(kpars), intent(in) | APMAX, | ||
logical, dimension(kpars), intent(in) | dermask_aerpar, | ||
real, dimension(kw,kimage), intent(in) | tau_mol, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
type(kernels_triangle_bin), intent(inout) | KERNELS1, | ||
type(kernels_lognormal_bin), intent(inout) | KERNELS2, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
real, dimension(rin%nw*nof*2,rin%knsingf,npixels), intent(inout) | UW0_aodfc, | ||
logical | use_bias_eq, | ||
real, dimension(kimage), intent(in) | ALS_temp | ||
) |
◆ extfc_err_estimates_multi_pixel_scenario()
subroutine extfc_err_estimates_multi_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kpar,kpar), intent(in) | UF, | ||
real, dimension(kpar), intent(in) | QIM, | ||
real, intent(in) | AGENP, | ||
integer, intent(in) | nnz_err, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, intent(inout) | solver_timer, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
real, dimension(rin%nw*nof*2,rin%knsingf,npixels), intent(in) | UW0_aodfc, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, dimension(kpar), intent(in) | QIM_bias | ||
) |
◆ mic_err_estimates_deriv_matrix()
subroutine mic_err_estimates_deriv_matrix | ( | integer, intent(in) | iu_main_output, |
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | ALS, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, dimension(kpars,kimage), intent(inout) | AP, | ||
real, dimension(kpars), intent(in) | APMIN, | ||
real, dimension(kpars), intent(in) | APMAX, | ||
logical, dimension(kpars), intent(in) | dermask_aerpar, | ||
real, dimension(kw,kimage), intent(in) | tau_mol, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
type(kernels_triangle_bin), intent(inout) | KERNELS1, | ||
type(kernels_lognormal_bin), intent(inout) | KERNELS2, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
real, dimension(rin%nw*1*nsd1,rin%knsingf,npixels), intent(inout) | UW0_mic, | ||
logical | use_bias_eq, | ||
real, dimension(kimage), intent(in) | ALS_temp | ||
) |
◆ mic_err_estimates_single_pixel_scenario()
subroutine mic_err_estimates_single_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kpars,kpars,kimage), intent(inout) | UFS, | ||
real, dimension(kpars,kimage), intent(in) | QS, | ||
real, dimension(kimage), intent(in) | ALS, | ||
logical, dimension(kimage), intent(in) | errest_pix, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, intent(inout) | solver_timer, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
real, dimension(rin%nw*1*nsd1,rin%knsingf,npixels), intent(in) | UW0_mic, | ||
logical | use_bias_eq, | ||
integer | flag_bias, | ||
real, dimension(kpars,kimage), intent(in) | QSE_bias | ||
) |
◆ opt_err_estimates_deriv_matrix()
subroutine opt_err_estimates_deriv_matrix | ( | integer, intent(in) | iu_main_output, |
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | ALS, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, dimension(kpars,kimage), intent(inout) | AP, | ||
real, dimension(kpars), intent(in) | APMIN, | ||
real, dimension(kpars), intent(in) | APMAX, | ||
logical, dimension(kpars), intent(in) | dermask_aerpar, | ||
real, dimension(kw,kimage), intent(in) | tau_mol, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
type(kernels_triangle_bin), intent(inout) | KERNELS1, | ||
type(kernels_lognormal_bin), intent(inout) | KERNELS2, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
real, dimension(rin%nw*nof*nsd1,rin%knsingf,npixels), intent(inout) | UW0, | ||
logical | use_bias_eq, | ||
real, dimension(kimage), intent(in) | ALS_temp | ||
) |
◆ opt_err_estimates_multi_pixel_scenario()
subroutine opt_err_estimates_multi_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kpar,kpar), intent(in) | UF, | ||
real, dimension(kpar), intent(in) | QIM, | ||
real, intent(in) | AGENP, | ||
integer, intent(in) | nnz_err, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, intent(inout) | solver_timer, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
real, dimension(rin%nw*nof*nsd1,rin%knsingf,npixels), intent(in) | UW0, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, dimension(kpar), intent(in) | QIM_bias | ||
) |
◆ opt_err_estimates_number_of_optchar()
subroutine opt_err_estimates_number_of_optchar | ( | type(retr_input_settings), intent(in) | RIN, |
integer, intent(out) | NOF | ||
) |
◆ opt_err_estimates_number_of_sd()
subroutine opt_err_estimates_number_of_sd | ( | type(retr_input_settings), intent(in) | RIN, |
integer, intent(out) | NSD1 | ||
) |
◆ opt_err_estimates_single_pixel_scenario()
subroutine opt_err_estimates_single_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kpars,kpars,kimage), intent(inout) | UFS, | ||
real, dimension(kpars,kimage), intent(in) | QS, | ||
real, dimension(kimage), intent(in) | ALS, | ||
logical, dimension(kimage), intent(in) | errest_pix, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_general), intent(inout) | GOUT, | ||
real, intent(inout) | solver_timer, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
real, dimension(rin%nw*nof*nsd1,rin%knsingf,npixels), intent(in) | UW0, | ||
logical | use_bias_eq, | ||
integer | flag_bias, | ||
real, dimension(kpars,kimage), intent(in) | QSE_bias | ||
) |
◆ par_err_estimates_deriv_matrix()
subroutine par_err_estimates_deriv_matrix | ( | integer, intent(in) | iu_main_output, |
integer, intent(in) | deriv_type, | ||
integer, intent(in) | n, | ||
real (sp), dimension(kpars+1), intent(in) | x, | ||
real (sp), dimension(kpars+1), intent(in) | y, | ||
real (sp), dimension(kpars,kpars), intent(out) | U | ||
) |
◆ par_err_estimates_multi_pixel_scenario()
subroutine par_err_estimates_multi_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kpar,kpar), intent(in) | UF, | ||
real, dimension(kpar), intent(in) | QIM, | ||
real, intent(in) | AGENP, | ||
integer, intent(in) | nnz_err, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_err_estim_par), intent(inout) | GOUT_errest_par, | ||
real, intent(inout) | solver_timer | ||
) |
◆ par_err_estimates_multi_pixel_scenario_indep_par()
subroutine par_err_estimates_multi_pixel_scenario_indep_par | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | MASL, | ||
real, dimension(kpar,kpar), intent(in) | UF, | ||
real, dimension(kpar), intent(in) | QIM, | ||
real, intent(in) | AGENP, | ||
real, dimension(kpars,kimage), intent(in) | AP, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
integer, intent(in) | nnz_err, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_err_estim_par), intent(inout) | GOUT_errest_par, | ||
real, intent(inout) | solver_timer | ||
) |
◆ par_err_estimates_single_pixel_scenario()
subroutine par_err_estimates_single_pixel_scenario | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kpars,kpars,kimage), intent(in) | UFS, | ||
real, dimension(kpars,kimage), intent(in) | QS, | ||
real, dimension(kimage), intent(in) | ALS, | ||
logical, dimension(kimage), intent(in) | errest_pix, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_err_estim_par), intent(inout) | GOUT_errest_par, | ||
real, intent(inout) | solver_timer | ||
) |
◆ par_err_estimates_single_pixel_scenario_indep_par()
subroutine par_err_estimates_single_pixel_scenario_indep_par | ( | integer, intent(in) | iu_main_output, |
character(*), intent(in) | sparse_solver_name, | ||
type(retr_input_settings), intent(in) | RIN, | ||
integer, intent(in) | npixels, | ||
real, dimension(kimage), intent(in) | MASL, | ||
real, dimension(kpars,kpars,kimage), intent(in) | UFS, | ||
real, dimension(kpars,kimage), intent(in) | QS, | ||
real, dimension(kimage), intent(in) | ALS, | ||
real, dimension(kpars,kimage), intent(in) | AP, | ||
integer, intent(in) | NHVP_meas, | ||
real, dimension(kvertm,kimage), intent(in) | HVP_meas, | ||
logical, dimension(kimage), intent(in) | errest_pix, | ||
type(nonzero), intent(inout) | UFNZ, | ||
type(output_segment_err_estim_par), intent(inout) | GOUT_errest_par, | ||
real, intent(inout) | solver_timer | ||
) |
◆ set_errest_derivative_mask()
subroutine set_errest_derivative_mask | ( | type(retr_input_settings), intent(in) | RIN, |
integer, intent(out) | num_plus, | ||
integer, dimension(3), intent(out) | idim1_plus, | ||
integer, dimension(3), intent(out) | par_type_plus, | ||
logical, dimension(kpars), intent(out) | KNSINGF_mask | ||
) |
Routine prepares derivative mask for error estimates in case of retrieval.
of independent concentration and shape parameters
- Parameters
-
[in] RIN - input settings structure [out] num_plus - number of retrieved characteristic with n-1 parameters [out] idim1_plus - characteristic number [out] par_type_plus - characteristic type [out] KNSINGF_mask - derivative mask for retrieved characteristics
◆ set_errest_par_indices()
subroutine set_errest_par_indices | ( | type(retr_input_settings), intent(in) | RIN, |
integer, dimension(kpars), intent(out) | iplus | ||
) |
Routine returns indices of n-1 parameters in complete vector of parameters.
- Parameters
-
[in] RIN - input settings structure [out] iplus - indices of n-1 parameters in complete vector of parameters
◆ set_extfc_err()
subroutine set_extfc_err | ( | integer, intent(in) | IOF, |
integer, intent(in) | IW, | ||
integer, intent(in) | ISD, | ||
integer, intent(in) | ipix, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, intent(in) | ERR, | ||
real, intent(in) | BIAS, | ||
type(output_segment_err_estim_particles), intent(inout) | GOUT_errest_aerosol | ||
) |
◆ set_mic_err()
subroutine set_mic_err | ( | integer, intent(in) | IOF, |
integer, intent(in) | IW, | ||
integer, intent(in) | ISD, | ||
integer, intent(in) | ipix, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, intent(in) | ERR, | ||
real, intent(in) | BIAS, | ||
type(output_segment_err_estim), intent(inout) | GOUT_errest_mic | ||
) |
◆ set_opt_err()
subroutine set_opt_err | ( | integer, intent(in) | IOF, |
integer, intent(in) | IW, | ||
integer, intent(in) | ISD, | ||
integer, intent(in) | ipix, | ||
logical, intent(in) | use_bias_eq, | ||
integer, intent(in) | flag_bias, | ||
real, intent(in) | ERR, | ||
real, intent(in) | BIAS, | ||
type(output_segment_err_estim_particles), intent(inout) | GOUT_errest_aerosol | ||
) |
◆ set_par_errest_mask_plus()
subroutine set_par_errest_mask_plus | ( | type(retr_input_settings), intent(in) | RIN, |
logical, dimension(kpars), intent(out) | par_errest_mask_plus | ||
) |
Routine prepares parameter error estimate mask required by settings for output.
- Parameters
-
[in] RIN - input settings structure [out] par_errest_mask_plus - mask to calculate error estimates for dependent parameters
◆ set_uw0()
subroutine set_uw0 | ( | integer, intent(in) | IW, |
integer, intent(in) | KL, | ||
integer, intent(in) | NW, | ||
integer, intent(in) | NSD, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
type(output_pixel_opt_wl), intent(in) | GOUT_aerosol_opt_pixel_wl, | ||
type(output_pixel_lidar_ratio_wl), intent(in) | GOUT_aerosol_lidar_pixel_wl, | ||
type(output_pixel_opt_wl), intent(in) | GOUT_aerosol_opt_pixel_wl_temp, | ||
type(output_pixel_lidar_ratio_wl), intent(in) | GOUT_aerosol_lidar_pixel_wl_temp, | ||
real, intent(in) | DL1, | ||
real, dimension(nw*nof*nsd1), intent(inout) | UW0 | ||
) |
◆ set_uw0_aodfc()
subroutine set_uw0_aodfc | ( | integer, intent(in) | IW, |
integer, intent(in) | KL, | ||
integer, intent(in) | NW, | ||
integer, intent(in) | NSD, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
type(output_pixel_sd2m_opt_wl), intent(in) | GOUT_aerosol_pixel_wl, | ||
type(output_pixel_sd2m_opt_wl), intent(in) | GOUT_aerosol_pixel_wl_temp, | ||
real, intent(in) | DL1, | ||
real, dimension(nw*nof*2), intent(inout) | UW0_aodfc | ||
) |
◆ set_uw0_rind_aux()
subroutine set_uw0_rind_aux | ( | integer, intent(in) | IW, |
integer, intent(in) | KL, | ||
integer, intent(in) | NW, | ||
integer, intent(in) | NSD, | ||
integer, intent(in) | NOFRI, | ||
integer, intent(in) | NSD1, | ||
type(output_pixel_rindex_wl), intent(in) | GOUT_aerosol_rindex_pixel_wl, | ||
real, intent(in) | CVret_fine, | ||
real, intent(in) | CVret_coarse, | ||
type(output_pixel_rindex_wl), intent(in) | GOUT_aerosol_rindex_pixel_wl_temp, | ||
real, intent(in) | CVtemp_fine, | ||
real, intent(in) | CVtemp_coarse, | ||
real, intent(in) | DL1, | ||
real, dimension(nw*2*1), intent(inout) | UW0_rind_aux | ||
) |
◆ set_uw0_sd_ln()
subroutine set_uw0_sd_ln | ( | integer, intent(in) | IW, |
integer, intent(in) | KL, | ||
integer, intent(in) | ipix, | ||
integer, intent(in) | radSD, | ||
integer, intent(in) | NSD, | ||
integer, intent(in) | NOF, | ||
integer, intent(in) | NSD1, | ||
type(retr_input_settings), intent(in) | RIN, | ||
type(output_segment_retr_par), intent(in) | GOUT_retrieval_par, | ||
real, dimension(kidim3,kidim2,kimage), intent(in) | CV, | ||
type(output_segment_retr_par), intent(in) | GOUT_retrieval_par_temp, | ||
real, dimension(kidim3,kidim2,kimage), intent(in) | CV_temp, | ||
real, intent(in) | DL1, | ||
real, dimension(radsd*1*3), intent(inout) | UW0_mic | ||
) |