material_resistivity_der Function

public function material_resistivity_der(me, T, B)

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

Return Value real(kind=dp)


Called by

proc~~material_resistivity_der~~CalledByGraph proc~material_resistivity_der material_t%material_resistivity_der proc~solid_source_terms solid_source_terms proc~solid_source_terms->proc~material_resistivity_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_resistivity_der(me,T,B)
        class(material_t),  intent(inout) :: me
        real(dp), intent(in) :: T,B
        real(dp) :: material_resistivity_der
        real(dp) :: eps
    
        eps=2.0e-2_dp
        material_resistivity_der=(me%res(me%res_cfg,T+0.5_dp*eps,B) &
                                 -me%res(me%res_cfg,T-0.5_dp*eps,B))/eps
    end function material_resistivity_der