calculate_heat_capacity_holder Function

private function calculate_heat_capacity_holder(self, state, region_id) result(val)

Arguments

Type IntentOptional Attributes Name
class(type_proereties_manager), intent(inout) :: self
type(type_gauss_point_state), intent(in) :: state
integer(kind=int32), intent(in) :: region_id

Return Value real(kind=real64)


Calls

proc~~calculate_heat_capacity_holder~~CallsGraph proc~calculate_heat_capacity_holder calculate_heat_capacity_holder calc calc proc~calculate_heat_capacity_holder->calc calc_gauss_point_holder calc_gauss_point_holder proc~calculate_heat_capacity_holder->calc_gauss_point_holder deriv deriv proc~calculate_heat_capacity_holder->deriv none~get_den type_material_manager%get_den proc~calculate_heat_capacity_holder->none~get_den none~get_gcc type_material_manager%get_gcc proc~calculate_heat_capacity_holder->none~get_gcc none~get_vhc type_material_manager%get_vhc proc~calculate_heat_capacity_holder->none~get_vhc none~get_wrf type_material_manager%get_wrf proc~calculate_heat_capacity_holder->none~get_wrf proc~get_den_holder type_material_manager%get_den_holder none~get_den->proc~get_den_holder proc~get_den_ptr type_material_manager%get_den_ptr none~get_den->proc~get_den_ptr proc~get_gcc_holder type_material_manager%get_gcc_holder none~get_gcc->proc~get_gcc_holder proc~get_gcc_ptr type_material_manager%get_gcc_ptr none~get_gcc->proc~get_gcc_ptr proc~get_vhc_holder type_material_manager%get_vhc_holder none~get_vhc->proc~get_vhc_holder proc~get_vhc_ptr type_material_manager%get_vhc_ptr none~get_vhc->proc~get_vhc_ptr proc~get_wrf_holder type_material_manager%get_wrf_holder none~get_wrf->proc~get_wrf_holder proc~get_wrf_ptr type_material_manager%get_wrf_ptr none~get_wrf->proc~get_wrf_ptr

Source Code

    function calculate_heat_capacity_holder(self, state, region_id) result(val)
        implicit none
        class(type_proereties_manager), intent(inout) :: self
        type(type_gauss_point_state), intent(in) :: state
        integer(int32), intent(in) :: region_id
        real(real64) :: val

        real(real64) :: Lf, dQi_dT

        type(holder_vhcs) :: holder_vhc
        type(holder_gccs) :: holder_gcc
        type(holder_dens) :: holder_den
        type(holder_wrfs) :: holder_wrf

        call self%materials%get_vhc(region_id, holder_vhc)
        call self%materials%get_den(region_id, holder_den)
        call self%materials%get_gcc(region_id, holder_gcc)
        call self%materials%get_wrf(region_id, holder_wrf)

        Lf = holder_gcc%p%Lf
        dQi_dT = holder_wrf%p%deriv(-holder_gcc%p%calc(T=state%temperature, &
                                                       Pw=state%pressure, &
                                                       rhoW=holder_den%p%material2, &
                                                       rhoI=holder_den%p%material3)) &
                 * holder_gcc%p%deriv(T=state%temperature, &
                                      Pw=state%pressure, &
                                      rhoW=holder_den%p%material2, &
                                      rhoI=holder_den%p%material3)

        val = holder_vhc%p%calc_gauss_point_holder(state=state, &
                                                   DEN=holder_den, &
                                                   LatentHeat=Lf, &
                                                   dQi_dT=dQi_dT)

    end function calculate_heat_capacity_holder