material_thermal_conductivity Function

public function material_thermal_conductivity(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~~CalledByGraph proc~material_thermal_conductivity material_t%material_thermal_conductivity proc~mesh2ds_fs_port_comm mesh2Ds_FS_port_comm proc~mesh2ds_fs_port_comm->proc~material_thermal_conductivity proc~mesh2ds_ss_src_port_comm mesh2Ds_SS_src_port_comm proc~mesh2ds_ss_src_port_comm->proc~material_thermal_conductivity 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 proc~s_heat_flux_internal_calculation S_heat_flux_internal_calculation proc~s_heat_flux_internal_calculation->proc~material_thermal_conductivity proc~s_heat_flux_internal_calculation~2 S_heat_flux_internal_calculation proc~s_heat_flux_internal_calculation~2->proc~material_thermal_conductivity proc~source_term_definition_solid source_term_definition_solid proc~source_term_definition_solid->proc~material_thermal_conductivity proc~sssrclink_resolution_from_and_to_ports SSsrcLink_resolution_from_and_to_ports proc~sssrclink_resolution_from_and_to_ports->proc~material_thermal_conductivity proc~strands_ss_flux_port_comm strands_SS_flux_port_comm proc~strands_ss_flux_port_comm->proc~material_thermal_conductivity 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~sssrclink_resolution_from_and_to_ports 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(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,B_loc
    
        if(present(B)) then
            B_loc=B
        else
            B_loc=0.0_dp
        endif  
        material_thermal_conductivity=me%th_cond(me%th_cond_cfg,T,B_loc)
    end function material_thermal_conductivity