material_current_sharing_temperature Function

public function material_current_sharing_temperature(me, B, St, Jop, Bc0, Jc0, Tc, Tc0, Bc)

Type Bound

material_t

Arguments

Type IntentOptional Attributes Name
class(material_t), intent(inout) :: me
real(kind=dp), intent(in) :: B
real(kind=dp), intent(in) :: St
real(kind=dp), intent(in) :: Jop
real(kind=dp), intent(in) :: Bc0
real(kind=dp), intent(in) :: Jc0
real(kind=dp), intent(in) :: Tc
real(kind=dp), intent(in) :: Tc0
real(kind=dp), intent(in) :: Bc

Return Value real(kind=dp)


Called by

proc~~material_current_sharing_temperature~~CalledByGraph proc~material_current_sharing_temperature material_t%material_current_sharing_temperature proc~explicit_scheme_for_fluxes_strand explicit_scheme_for_fluxes_strand proc~explicit_scheme_for_fluxes_strand->proc~material_current_sharing_temperature proc~from_sol_to_temp_strand from_sol_to_temp_strand proc~from_sol_to_temp_strand->proc~material_current_sharing_temperature proc~full_physics_definition_strand full_physics_definition_strand proc~full_physics_definition_strand->proc~material_current_sharing_temperature proc~source_term_definition_strand source_term_definition_strand proc~full_physics_definition_strand->proc~source_term_definition_strand proc~solid_source_terms solid_source_terms proc~solid_source_terms->proc~material_current_sharing_temperature proc~strands_ss_flux_port_comm strands_SS_flux_port_comm proc~strands_ss_flux_port_comm->proc~material_current_sharing_temperature proc~main_loop main_loop proc~main_loop->proc~explicit_scheme_for_fluxes_strand proc~main_loop->proc~from_sol_to_temp_strand proc~main_loop->proc~full_physics_definition_strand proc~main_loop->proc~strands_ss_flux_port_comm proc~main_loop->proc~source_term_definition_strand proc~source_term_definition_strand->proc~solid_source_terms program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

    function material_current_sharing_temperature(me,B,St,Jop,Bc0,Jc0,Tc,Tc0,Bc)
        class(material_t),  intent(inout) :: me
        real(dp), intent(in) :: B,St,Jop,Bc0,Jc0,Tc,Tc0,Bc 
        real(dp) :: material_current_sharing_temperature
    
        material_current_sharing_temperature=me%tcs(me%tcs_cfg,B,St,Jop,Bc0,Jc0,Tc,Tc0,Bc)
    end function material_current_sharing_temperature