get_wrf_holder Subroutine

private subroutine get_wrf_holder(self, region_id, model_holder)

Type Bound

type_material_manager

Arguments

Type IntentOptional Attributes Name
class(type_material_manager), intent(inout) :: self
integer(kind=int32), intent(in) :: region_id
type(holder_wrfs), intent(inout) :: model_holder

Called by

proc~~get_wrf_holder~~CalledByGraph proc~get_wrf_holder type_material_manager%get_wrf_holder none~get_wrf type_material_manager%get_wrf none~get_wrf->proc~get_wrf_holder proc~calculate_heat_capacity_holder calculate_heat_capacity_holder proc~calculate_heat_capacity_holder->none~get_wrf proc~calculate_heat_capacity_ptr calculate_heat_capacity_ptr proc~calculate_heat_capacity_ptr->none~get_wrf proc~calculate_water_content_holder calculate_water_content_holder proc~calculate_water_content_holder->none~get_wrf proc~calculate_water_content_ptr calculate_water_content_ptr proc~calculate_water_content_ptr->none~get_wrf

Source Code

    subroutine get_wrf_holder(self, region_id, model_holder)
        class(type_material_manager), intent(inout) :: self
        integer(int32), intent(in) :: region_id
        type(holder_wrfs), intent(inout) :: model_holder
        integer(int32) :: model_index

        model_index = self%region_id_map(region_id)

        if (model_index == 0) then
            print *, "Error: Invalid region_id in get_wrf_holder:", region_id
            call exit(-1)
        end if

        model_holder = self%wrf(model_index)

    end subroutine get_wrf_holder