material_heat_capacity Function

public function material_heat_capacity(me, T, B, TC, TCS, TC0)

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
real(kind=dp), intent(inout), optional :: TC
real(kind=dp), intent(inout), optional :: TCS
real(kind=dp), intent(inout), optional :: TC0

Return Value real(kind=dp)


Called by

proc~~material_heat_capacity~~CalledByGraph proc~material_heat_capacity material_t%material_heat_capacity proc~explicit_scheme_for_fluxes_solid explicit_scheme_for_fluxes_solid proc~explicit_scheme_for_fluxes_solid->proc~material_heat_capacity proc~explicit_scheme_for_fluxes_strand explicit_scheme_for_fluxes_strand proc~explicit_scheme_for_fluxes_strand->proc~material_heat_capacity proc~full_physics_definition_mesh2d full_physics_definition_mesh2D proc~full_physics_definition_mesh2d->proc~material_heat_capacity proc~full_physics_definition_solid full_physics_definition_solid proc~full_physics_definition_solid->proc~material_heat_capacity proc~source_term_definition_solid source_term_definition_solid proc~full_physics_definition_solid->proc~source_term_definition_solid proc~full_physics_definition_strand full_physics_definition_strand proc~full_physics_definition_strand->proc~material_heat_capacity proc~source_term_definition_strand source_term_definition_strand proc~full_physics_definition_strand->proc~source_term_definition_strand proc~mesh2ds_fs_port_comm mesh2Ds_FS_port_comm proc~mesh2ds_fs_port_comm->proc~material_heat_capacity proc~mesh2ds_ss_src_port_comm mesh2Ds_SS_src_port_comm proc~mesh2ds_ss_src_port_comm->proc~material_heat_capacity proc~solid_source_terms solid_source_terms proc~solid_source_terms->proc~material_heat_capacity proc~source_term_definition_solid->proc~material_heat_capacity proc~strands_ss_flux_port_comm strands_SS_flux_port_comm proc~strands_ss_flux_port_comm->proc~material_heat_capacity proc~main_loop main_loop proc~main_loop->proc~explicit_scheme_for_fluxes_solid proc~main_loop->proc~explicit_scheme_for_fluxes_strand proc~main_loop->proc~full_physics_definition_mesh2d proc~main_loop->proc~full_physics_definition_solid proc~main_loop->proc~full_physics_definition_strand 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~source_term_definition_strand proc~source_term_definition_strand->proc~solid_source_terms program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

    function material_heat_capacity(me,T,B,TC,TCS,TC0)
        class(material_t),  intent(inout) :: me
        real(dp), intent(in) :: T
        real(dp), intent(inout), optional :: B,TC,TCS,TC0
        real(dp) :: material_heat_capacity,B_loc,TC_loc,TCS_loc,TC0_loc
    
        if(present(B) .and. present(TC) .and. present(TCS) .and. present(TC0)) then
            B_loc=B; TC_loc=TC; TCS_loc=TCS; TC0_loc=TC0
        else
            B_loc=0.0_dp; TC_loc=0.0_dp; TCS_loc=0.0_dp; TC0_loc=0.0_dp
        endif
        material_heat_capacity=me%heat_cap(me%heat_cap_cfg,T,B_loc,TC_loc,TCS_loc,TC0_loc)
    end function material_heat_capacity