material_thermal_conductivity_der Function

public function material_thermal_conductivity_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(inout), optional :: B

Return Value real(kind=dp)


Called by

proc~~material_thermal_conductivity_der~~CalledByGraph proc~material_thermal_conductivity_der material_t%material_thermal_conductivity_der proc~mesh2ds_fs_port_comm mesh2Ds_FS_port_comm proc~mesh2ds_fs_port_comm->proc~material_thermal_conductivity_der proc~mesh2ds_ss_src_port_comm mesh2Ds_SS_src_port_comm proc~mesh2ds_ss_src_port_comm->proc~material_thermal_conductivity_der proc~required_variables_for_implicit_2d_heat_diffusion required_variables_for_implicit_2D_heat_diffusion proc~required_variables_for_implicit_2d_heat_diffusion->proc~material_thermal_conductivity_der proc~s_heat_flux_internal_calculation S_heat_flux_internal_calculation proc~s_heat_flux_internal_calculation->proc~material_thermal_conductivity_der proc~s_heat_flux_internal_calculation~2 S_heat_flux_internal_calculation proc~s_heat_flux_internal_calculation~2->proc~material_thermal_conductivity_der proc~source_term_definition_solid source_term_definition_solid proc~source_term_definition_solid->proc~material_thermal_conductivity_der proc~strands_ss_flux_port_comm strands_SS_flux_port_comm proc~strands_ss_flux_port_comm->proc~material_thermal_conductivity_der proc~full_physics_definition_solid full_physics_definition_solid proc~full_physics_definition_solid->proc~source_term_definition_solid proc~heat_diffusion_mesh2d heat_diffusion_mesh2D proc~heat_diffusion_mesh2d->proc~required_variables_for_implicit_2d_heat_diffusion proc~heat_diffusion_solid heat_diffusion_solid proc~heat_diffusion_solid->proc~s_heat_flux_internal_calculation proc~heat_diffusion_strand heat_diffusion_strand proc~heat_diffusion_strand->proc~s_heat_flux_internal_calculation~2 proc~main_loop main_loop proc~main_loop->proc~mesh2ds_fs_port_comm proc~main_loop->proc~mesh2ds_ss_src_port_comm proc~main_loop->proc~source_term_definition_solid proc~main_loop->proc~strands_ss_flux_port_comm proc~main_loop->proc~full_physics_definition_solid proc~main_loop->proc~heat_diffusion_mesh2d proc~main_loop->proc~heat_diffusion_solid proc~main_loop->proc~heat_diffusion_strand program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

    function material_thermal_conductivity_der(me,T,B)
        class(material_t),  intent(inout) :: me
        real(dp), intent(in) :: T
        real(dp), intent(inout), optional :: B
        real(dp) :: material_thermal_conductivity_der,B_loc
        real(dp) :: eps
    
        if(present(B)) then
            B_loc=B
        else
            B_loc=0.0_dp
        endif
        eps=2.0e-2_dp
        material_thermal_conductivity_der=(me%th_cond(me%th_cond_cfg,T+0.5_dp*eps,B_loc)- &
                                           me%th_cond(me%th_cond_cfg,T-0.5_dp*eps,B_loc))/eps
    end function material_thermal_conductivity_der