calculate_water_content_ptr Function

private function calculate_water_content_ptr(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_water_content_ptr~~CallsGraph proc~calculate_water_content_ptr calculate_water_content_ptr calc calc proc~calculate_water_content_ptr->calc none~get_den type_material_manager%get_den proc~calculate_water_content_ptr->none~get_den none~get_gcc type_material_manager%get_gcc proc~calculate_water_content_ptr->none~get_gcc none~get_wrf type_material_manager%get_wrf proc~calculate_water_content_ptr->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_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_water_content_ptr(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

        class(abst_gcc), pointer :: local_gcc
        class(abst_wrf), pointer :: local_wrf
        class(abst_den), pointer :: local_den

        call self%materials%get_gcc(region_id, local_gcc)
        call self%materials%get_wrf(region_id, local_wrf)
        call self%materials%get_den(region_id, local_den)

        ! ... 水分量の計算ロジックをここに追加 ...
        val = -local_wrf%calc(-local_gcc%calc(T=state%temperature, &
                                              Pw=state%pressure, &
                                              rhoW=local_den%material2, &
                                              rhoI=local_den%material3))
    end function calculate_water_content_ptr