material_heat_capacity_der Function

public function material_heat_capacity_der(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_der~~CalledByGraph proc~material_heat_capacity_der material_t%material_heat_capacity_der proc~full_physics_definition_mesh2d full_physics_definition_mesh2D proc~full_physics_definition_mesh2d->proc~material_heat_capacity_der proc~full_physics_definition_solid full_physics_definition_solid proc~full_physics_definition_solid->proc~material_heat_capacity_der 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_der 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_der proc~mesh2ds_ss_src_port_comm mesh2Ds_SS_src_port_comm proc~mesh2ds_ss_src_port_comm->proc~material_heat_capacity_der proc~solid_source_terms solid_source_terms proc~solid_source_terms->proc~material_heat_capacity_der proc~source_term_definition_solid->proc~material_heat_capacity_der proc~main_loop main_loop 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~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_der(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_der,B_loc,TC_loc,TCS_loc,TC0_loc
        real(dp) :: eps
    
        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  
        eps=2.0e-2_dp
        material_heat_capacity_der=(me%heat_cap(me%heat_cap_cfg,T+0.5_dp*eps,B_loc,TC_loc,TCS_loc,TC0_loc)-&
                                    me%heat_cap(me%heat_cap_cfg,T-0.5_dp*eps,B_loc,TC_loc,TCS_loc,TC0_loc))/eps
    end function material_heat_capacity_der