material_critical_current_density_der Function

public function material_critical_current_density_der(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_der~~CalledByGraph proc~material_critical_current_density_der material_t%material_critical_current_density_der proc~solid_source_terms solid_source_terms proc~solid_source_terms->proc~material_critical_current_density_der proc~source_term_definition_strand source_term_definition_strand proc~source_term_definition_strand->proc~solid_source_terms proc~full_physics_definition_strand full_physics_definition_strand proc~full_physics_definition_strand->proc~source_term_definition_strand proc~main_loop main_loop proc~main_loop->proc~source_term_definition_strand proc~main_loop->proc~full_physics_definition_strand program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

    function material_critical_current_density_der(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_der
        real(dp) :: eps
    
        eps=2.0e-2_dp
        material_critical_current_density_der=(me%jc(me%jc_cfg,T+0.5_dp*eps,B,St,Tc0,Bc) &
                                              -me%jc(me%jc_cfg,T-0.5_dp*eps,B,St,Tc0,Bc))/eps
    end function material_critical_current_density_der