cat_ungridded_dim_names Function

public function cat_ungridded_dim_names(dims) result(dim_names)

Arguments

Type IntentOptional Attributes Name
class(UngriddedDims), intent(in) :: dims

Return Value character(len=:), allocatable


Calls

proc~~cat_ungridded_dim_names~~CallsGraph proc~cat_ungridded_dim_names cat_ungridded_dim_names get_name get_name proc~cat_ungridded_dim_names->get_name none~get_ith_dim_spec UngriddedDims%get_ith_dim_spec proc~cat_ungridded_dim_names->none~get_ith_dim_spec none~get_num_ungridded UngriddedDims%get_num_ungridded proc~cat_ungridded_dim_names->none~get_num_ungridded none~at~373 UngriddedDimVector%at none~get_ith_dim_spec->none~at~373 proc~mapl_return MAPL_Return none~get_ith_dim_spec->proc~mapl_return proc~mapl_verify MAPL_Verify none~get_ith_dim_spec->proc~mapl_verify none~of_size_kind~25 UngriddedDimVector%of_size_kind none~at~373->none~of_size_kind~25 at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~cat_ungridded_dim_names~~CalledByGraph proc~cat_ungridded_dim_names cat_ungridded_dim_names proc~ungridded_dim_names ungridded_dim_names proc~ungridded_dim_names->proc~cat_ungridded_dim_names proc~get_variable_dim_names get_variable_dim_names proc~get_variable_dim_names->proc~ungridded_dim_names proc~add_variable add_variable proc~add_variable->proc~get_variable_dim_names proc~add_variables add_variables proc~add_variables->proc~add_variable

Source Code

   function cat_ungridded_dim_names(dims) result(dim_names)
      character(len=:), allocatable :: dim_names
      class(UngriddedDims), intent(in) :: dims

      integer :: i

#define JOIN(a,b) a // ',' // b
      dim_names = EMPTY
      do i = 1, dims%get_num_ungridded()
         associate (u => dims%get_ith_dim_spec(i))
           dim_names = JOIN(dim_names, u%get_name())
         end associate
      end do
#undef JOIN

   end function cat_ungridded_dim_names