set_error Subroutine

public subroutine set_error(msg)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: msg

Called by

proc~~set_error~~CalledByGraph proc~set_error set_error proc~brent brent proc~brent->proc~set_error proc~compute_effective_field compute_effective_field proc~compute_effective_field->proc~set_error proc~flux_internal_calculation_channel flux_internal_calculation_channel proc~flux_internal_calculation_channel->proc~set_error proc~from_sol_to_prim_channel from_sol_to_prim_channel proc~from_sol_to_prim_channel->proc~set_error proc~state_roe state_roE proc~from_sol_to_prim_channel->proc~state_roe proc~state_roe_withr state_roE_withR proc~from_sol_to_prim_channel->proc~state_roe_withr proc~he_prop he_prop proc~he_prop->proc~set_error proc~hugoniot_star_state hugoniot_star_state proc~hugoniot_star_state->proc~set_error proc~droeint_drop droeint_droP proc~hugoniot_star_state->proc~droeint_drop proc~inv inv proc~inv->proc~set_error proc~junction_resolution_from_and_to_ports Junction_resolution_from_and_to_ports proc~junction_resolution_from_and_to_ports->proc~set_error proc~solve_junction solve_junction proc~junction_resolution_from_and_to_ports->proc~solve_junction proc~outgoing_branch_cold_circulator outgoing_branch_cold_circulator proc~outgoing_branch_cold_circulator->proc~set_error proc~t_rop T_roP proc~outgoing_branch_cold_circulator->proc~t_rop proc~circulator_dynamic_parameters_df circulator_dynamic_parameters_t%circulator_dynamic_parameters_df proc~outgoing_branch_cold_circulator->proc~circulator_dynamic_parameters_df proc~state_rop state_roP proc~outgoing_branch_cold_circulator->proc~state_rop proc~circulator_dynamic_parameters_f circulator_dynamic_parameters_t%circulator_dynamic_parameters_f proc~outgoing_branch_cold_circulator->proc~circulator_dynamic_parameters_f proc~pardiso_fact_solve Pardiso_fact_solve proc~pardiso_fact_solve->proc~set_error proc~solid_source_terms solid_source_terms proc~solid_source_terms->proc~set_error proc~supercond_current supercond_current proc~solid_source_terms->proc~supercond_current proc~solve_boundary_mt solve_boundary_MT proc~solve_boundary_mt->proc~set_error proc~solve_boundary_mt->proc~t_rop proc~function_of_pstar_mt function_of_pstar_MT proc~solve_boundary_mt->proc~function_of_pstar_mt proc~solve_boundary_mt->proc~state_rop proc~solve_boundary_pt solve_boundary_PT proc~solve_boundary_pt->proc~set_error proc~solve_boundary_pt->proc~hugoniot_star_state proc~ro_pt ro_pT proc~solve_boundary_pt->proc~ro_pt proc~derivative_function_of_pstar_pt derivative_function_of_pstar_PT proc~solve_boundary_pt->proc~derivative_function_of_pstar_pt proc~solve_boundary_pt->proc~state_rop proc~state_rop_withr state_roP_withR proc~solve_boundary_pt->proc~state_rop_withr proc~function_of_pstar_pt function_of_pstar_PT proc~solve_boundary_pt->proc~function_of_pstar_pt proc~solve_junction->proc~set_error proc~solve_junction->proc~inv proc~t_roe T_roE proc~solve_junction->proc~t_roe proc~solve_junction->proc~droeint_drop proc~solve_junction->proc~state_rop proc~supercond_current->proc~set_error proc~boundary_resolution_from_and_to_ports boundary_resolution_from_and_to_ports proc~boundary_resolution_from_and_to_ports->proc~solve_boundary_mt proc~boundary_resolution_from_and_to_ports->proc~solve_boundary_pt proc~circulator_resolution_from_and_to_ports circulator_resolution_from_and_to_ports proc~circulator_resolution_from_and_to_ports->proc~outgoing_branch_cold_circulator proc~incoming_branch_cold_circulator incoming_branch_cold_circulator proc~circulator_resolution_from_and_to_ports->proc~incoming_branch_cold_circulator proc~ffsrclink_prelax_resolution_from_and_to_ports FFsrcLink_Prelax_resolution_from_and_to_ports proc~ffsrclink_prelax_resolution_from_and_to_ports->proc~he_prop proc~ffsrclink_prelax_resolution_from_and_to_ports->proc~t_rop proc~friction_source_term friction_source_term proc~friction_source_term->proc~he_prop proc~friction_source_term->proc~state_roe proc~friction_source_term->proc~state_roe_withr proc~he_riemann_solver_channel He_Riemann_solver_channel proc~he_riemann_solver_channel->proc~flux_internal_calculation_channel proc~main_loop main_loop proc~main_loop->proc~from_sol_to_prim_channel proc~main_loop->proc~junction_resolution_from_and_to_ports proc~main_loop->proc~pardiso_fact_solve proc~main_loop->proc~boundary_resolution_from_and_to_ports proc~main_loop->proc~circulator_resolution_from_and_to_ports proc~main_loop->proc~ffsrclink_prelax_resolution_from_and_to_ports proc~main_loop->proc~friction_source_term proc~main_loop->proc~he_riemann_solver_channel proc~scenario_update scenario_update proc~main_loop->proc~scenario_update proc~source_term_definition_strand source_term_definition_strand proc~main_loop->proc~source_term_definition_strand proc~full_physics_definition_strand full_physics_definition_strand proc~main_loop->proc~full_physics_definition_strand proc~source_term_definition_channel source_term_definition_channel proc~main_loop->proc~source_term_definition_channel proc~full_physics_definition_channel full_physics_definition_channel proc~main_loop->proc~full_physics_definition_channel proc~ro_pt->proc~brent proc~scenario_update->proc~compute_effective_field proc~source_term_definition_strand->proc~solid_source_terms proc~sourceterms_notfriction_channel SourceTerms_NOTfriction_channel proc~sourceterms_notfriction_channel->proc~he_prop proc~sourceterms_notfriction_channel->proc~state_roe proc~sourceterms_notfriction_channel->proc~state_roe_withr proc~t_roe->proc~brent proc~t_rop->proc~brent proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~ro_pt proc~circulator_dynamic_parameters_df->proc~t_rop proc~derivative_function_of_pstar_pt->proc~t_rop proc~droeint_drop->proc~t_rop proc~full_physics_definition_strand->proc~source_term_definition_strand proc~function_of_pstar_mt->proc~t_rop proc~source_term_definition_channel->proc~sourceterms_notfriction_channel proc~state_roe->proc~t_roe proc~state_roe_withr->proc~t_rop proc~state_rop->proc~t_rop proc~state_rop_withr->proc~t_rop program~reims_p reims_p program~reims_p->proc~main_loop program~reims_p->proc~channel_init_part1 proc~circulator_dynamic_parameters_f->proc~state_rop proc~full_physics_definition_channel->proc~source_term_definition_channel proc~function_of_pstar_pt->proc~state_rop proc~hug_brent_f hug_brent_t%hug_brent_f proc~hug_brent_f->proc~droeint_drop proc~incoming_branch_cold_circulator->proc~state_rop proc~junction_dynamic_parameters_fcn junction_dynamic_parameters_t%junction_dynamic_parameters_fcn proc~junction_dynamic_parameters_fcn->proc~droeint_drop

Source Code

subroutine set_error(msg)
    character(*), intent(in) :: msg
    integer :: slot
    !$omp atomic capture
       slot = sim_error
       sim_error = sim_error + 1
    !$omp end atomic
    if (slot < MAX_SIM_ERRORS) sim_error_msg(slot + 1) = msg
end subroutine set_error