get_vertical_dimension_name Function

public function get_vertical_dimension_name(dim_spec_name) result(dim_name)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: dim_spec_name

Return Value character(len=:), allocatable


Called by

proc~~get_vertical_dimension_name~~CalledByGraph proc~get_vertical_dimension_name get_vertical_dimension_name proc~add_vertical_dimensions add_vertical_dimensions proc~add_vertical_dimensions->proc~get_vertical_dimension_name proc~get_vertical_dimension_name_from_field get_vertical_dimension_name_from_field proc~get_vertical_dimension_name_from_field->proc~get_vertical_dimension_name proc~test_get_vertical_dimension_name test_get_vertical_dimension_name proc~test_get_vertical_dimension_name->proc~get_vertical_dimension_name proc~add_variable~2 add_variable proc~add_variable~2->proc~get_vertical_dimension_name_from_field proc~bundle_to_metadata bundle_to_metadata proc~bundle_to_metadata->proc~add_vertical_dimensions proc~add_variables add_variables proc~bundle_to_metadata->proc~add_variables proc~add_variables->proc~add_variable~2

Source Code

   function get_vertical_dimension_name(dim_spec_name) result(dim_name)
      character(len=:), allocatable :: dim_name
      character(len=*), intent(in) :: dim_spec_name
      character(len=*), parameter :: VERTICAL_CENTER_NAME = 'lev'
      character(len=*), parameter :: VERTICAL_EDGE_NAME = 'edge'
      character(len=*), parameter :: VERTICAL_UNKNOWN_NAME = EMPTY

      dim_name = VERTICAL_UNKNOWN_NAME

      if(dim_spec_name == 'VERTICAL_DIM_EDGE') then
         dim_name = VERTICAL_EDGE_NAME
         return
      end if

      if(dim_spec_name == 'VERTICAL_DIM_CENTER') then
         dim_name = VERTICAL_CENTER_NAME
         return
      end if

   end function get_vertical_dimension_name