boundary_resolution_from_and_to_ports Subroutine

public subroutine boundary_resolution_from_and_to_ports(me)

Arguments

Type IntentOptional Attributes Name
type(boundary_t), intent(inout) :: me

Calls

proc~~boundary_resolution_from_and_to_ports~~CallsGraph proc~boundary_resolution_from_and_to_ports boundary_resolution_from_and_to_ports proc~solve_boundary_mt solve_boundary_MT proc~boundary_resolution_from_and_to_ports->proc~solve_boundary_mt proc~solve_boundary_pt solve_boundary_PT proc~boundary_resolution_from_and_to_ports->proc~solve_boundary_pt proc~dc2_rot dc2_roT proc~solve_boundary_mt->proc~dc2_rot proc~function_of_pstar_mt function_of_pstar_MT proc~solve_boundary_mt->proc~function_of_pstar_mt proc~jacobian_rot jacobian_roT proc~solve_boundary_mt->proc~jacobian_rot proc~jacobian_star_req_rem~2 jacobian_star_Req_rem proc~solve_boundary_mt->proc~jacobian_star_req_rem~2 proc~jacobian_star~2 jacobian_star proc~solve_boundary_mt->proc~jacobian_star~2 proc~set_error set_error proc~solve_boundary_mt->proc~set_error proc~signal_v0d signal_t%signal_v0d proc~solve_boundary_mt->proc~signal_v0d proc~state_rop state_roP proc~solve_boundary_mt->proc~state_rop proc~t_rop T_roP proc~solve_boundary_mt->proc~t_rop proc~solve_boundary_pt->proc~dc2_rot proc~derivative_function_of_pstar_pt derivative_function_of_pstar_PT proc~solve_boundary_pt->proc~derivative_function_of_pstar_pt proc~derustar_acoustic derUstar_acoustic proc~solve_boundary_pt->proc~derustar_acoustic proc~function_of_pstar_pt function_of_pstar_PT proc~solve_boundary_pt->proc~function_of_pstar_pt proc~hugoniot_star_state hugoniot_star_state proc~solve_boundary_pt->proc~hugoniot_star_state proc~solve_boundary_pt->proc~jacobian_rot proc~solve_boundary_pt->proc~jacobian_star_req_rem~2 proc~solve_boundary_pt->proc~jacobian_star~2 proc~ro_pt ro_pT proc~solve_boundary_pt->proc~ro_pt proc~solve_boundary_pt->proc~set_error proc~solve_boundary_pt->proc~signal_v0d proc~solve_boundary_pt->proc~state_rop proc~state_rop_withr state_roP_withR proc~solve_boundary_pt->proc~state_rop_withr proc~state_rot state_roT proc~solve_boundary_pt->proc~state_rot proc~eos_terms eos_terms proc~dc2_rot->proc~eos_terms proc~derivative_function_of_pstar_pt->proc~jacobian_rot proc~derivative_function_of_pstar_pt->proc~t_rop proc~function_of_pstar_mt->proc~t_rop proc~function_of_pstar_pt->proc~state_rop proc~hugoniot_star_state->proc~set_error proc~droeint_drop droeint_droP proc~hugoniot_star_state->proc~droeint_drop proc~zero zero proc~hugoniot_star_state->proc~zero proc~jacobian_rot->proc~eos_terms proc~jacobian_star_req_rem~2->proc~jacobian_rot proc~brent brent proc~ro_pt->proc~brent proc~signal_v1d signal_t%signal_v1d proc~signal_v0d->proc~signal_v1d proc~state_rop->proc~jacobian_rot proc~state_rop->proc~t_rop proc~state_rop_withr->proc~jacobian_rot proc~state_rop_withr->proc~t_rop proc~state_rot->proc~jacobian_rot proc~t_rop->proc~brent proc~fill_f_terms fill_f_terms proc~t_rop->proc~fill_f_terms proc~fill_g_dreg_terms fill_g_Dreg_terms proc~t_rop->proc~fill_g_dreg_terms proc~brent->proc~set_error proc~brent->proc~zero f f proc~brent->f proc~droeint_drop->proc~t_rop proc~droeint_drop->proc~eos_terms proc~eos_terms->proc~fill_f_terms proc~eos_e_terms eos_e_terms proc~eos_terms->proc~eos_e_terms proc~zero->f proc~fill_e_tpart fill_e_Tpart proc~eos_e_terms->proc~fill_e_tpart proc~fill_ff_terms fill_ff_terms proc~eos_e_terms->proc~fill_ff_terms proc~fill_e_tpart->proc~fill_g_dreg_terms

Called by

proc~~boundary_resolution_from_and_to_ports~~CalledByGraph proc~boundary_resolution_from_and_to_ports boundary_resolution_from_and_to_ports proc~main_loop main_loop proc~main_loop->proc~boundary_resolution_from_and_to_ports program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine boundary_resolution_from_and_to_ports(me)
    type(boundary_t), intent(inout) :: me
    real(dp) :: wave_time

    if(me%is_PT) then
        call solve_boundary_PT(me,wave_time)
    else
        call solve_boundary_MT(me,wave_time)
    endif
    if (sim_error > 0) return
    me%wave_time = me%port%dxLoc/wave_time
end subroutine boundary_resolution_from_and_to_ports