get_algorithm_name Function

private function get_algorithm_name(self) result(name)

Type Bound

type_reordering

Arguments

Type IntentOptional Attributes Name
class(type_reordering), intent(in) :: self

Return Value character(len=:), allocatable


Called by

proc~~get_algorithm_name~~CalledByGraph proc~get_algorithm_name type_reordering%get_algorithm_name proc~get_observations_pw get_observations_pw proc~get_observations_pw->proc~get_algorithm_name proc~get_observations_si get_observations_si proc~get_observations_si->proc~get_algorithm_name proc~get_observations_temperature get_observations_temperature proc~get_observations_temperature->proc~get_algorithm_name proc~get_observations_thc get_observations_thc proc~get_observations_thc->proc~get_algorithm_name proc~get_observations_vhc get_observations_vhc proc~get_observations_vhc->proc~get_algorithm_name proc~interpolate_observations_pw interpolate_observations_pw proc~interpolate_observations_pw->proc~get_algorithm_name proc~interpolate_observations_si interpolate_observations_si proc~interpolate_observations_si->proc~get_algorithm_name proc~interpolate_observations_temperature interpolate_observations_temperature proc~interpolate_observations_temperature->proc~get_algorithm_name proc~interpolate_observations_thc interpolate_observations_thc proc~interpolate_observations_thc->proc~get_algorithm_name proc~interpolate_observations_vhc interpolate_observations_vhc proc~interpolate_observations_vhc->proc~get_algorithm_name

Source Code

    function get_algorithm_name(self) result(name)
        implicit none
        class(type_reordering), intent(in) :: self
        character(:), allocatable :: name

        if (allocated(self%algorithm_name)) then
            name = self%algorithm_name
        else
            name = "none"
        end if

    end function get_algorithm_name