get_vertical_dimension_num_levels Function

public function get_vertical_dimension_num_levels(dim_spec_name, num_levels) result(num)

Arguments

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

Return Value integer


Called by

proc~~get_vertical_dimension_num_levels~~CalledByGraph proc~get_vertical_dimension_num_levels get_vertical_dimension_num_levels proc~add_vertical_dimensions add_vertical_dimensions proc~add_vertical_dimensions->proc~get_vertical_dimension_num_levels proc~test_get_vertical_dimension_num_levels test_get_vertical_dimension_num_levels proc~test_get_vertical_dimension_num_levels->proc~get_vertical_dimension_num_levels proc~bundle_to_metadata bundle_to_metadata proc~bundle_to_metadata->proc~add_vertical_dimensions

Source Code

   integer function get_vertical_dimension_num_levels(dim_spec_name, num_levels) result(num)
      character(len=*), intent(in) :: dim_spec_name
      integer, intent(in) :: num_levels

      num = num_levels
      if(dim_spec_name == 'VERTICAL_DIM_EDGE') num = num_levels + 1
      
   end function get_vertical_dimension_num_levels