material_critical_current_density Function

public function material_critical_current_density(me, T, B, St, Tc0, Bc)

Type Bound

material_t

Arguments

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

Return Value real(kind=dp)


Called by

proc~~material_critical_current_density~~CalledByGraph proc~material_critical_current_density material_t%material_critical_current_density proc~compute_effective_field compute_effective_field proc~compute_effective_field->proc~material_critical_current_density proc~explicit_scheme_for_fluxes_strand explicit_scheme_for_fluxes_strand proc~explicit_scheme_for_fluxes_strand->proc~material_critical_current_density proc~from_sol_to_temp_strand from_sol_to_temp_strand proc~from_sol_to_temp_strand->proc~material_critical_current_density proc~full_physics_definition_strand full_physics_definition_strand proc~full_physics_definition_strand->proc~material_critical_current_density 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_critical_current_density proc~strands_ss_flux_port_comm strands_SS_flux_port_comm proc~strands_ss_flux_port_comm->proc~material_critical_current_density 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~scenario_update scenario_update proc~main_loop->proc~scenario_update proc~main_loop->proc~source_term_definition_strand proc~scenario_update->proc~compute_effective_field proc~source_term_definition_strand->proc~solid_source_terms program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

    function material_critical_current_density(me,T,B,St,Tc0,Bc)
        class(material_t),  intent(inout) :: me
        real(dp), intent(in) :: T,B,St,Tc0,Bc
        real(dp) :: material_critical_current_density
    
        material_critical_current_density=me%jc(me%jc_cfg,T,B,St,Tc0,Bc)
    end function material_critical_current_density