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 none~get_ith_dim_spec UngriddedDims%get_ith_dim_spec proc~cat_ungridded_dim_names->none~get_ith_dim_spec none~get_name~15 UngriddedDim%get_name proc~cat_ungridded_dim_names->none~get_name~15 none~get_num_ungridded UngriddedDims%get_num_ungridded proc~cat_ungridded_dim_names->none~get_num_ungridded none~at~97 UngriddedDimVector%at none~get_ith_dim_spec->none~at~97 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~8 UngriddedDimVector%of_size_kind none~at~97->none~of_size_kind~8 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~add_variable~2 add_variable proc~add_variable~2->proc~ungridded_dim_names proc~add_variables add_variables proc~add_variables->proc~add_variable~2 proc~bundle_to_metadata bundle_to_metadata proc~bundle_to_metadata->proc~add_variables

Source Code

   function cat_ungridded_dim_names(dims) result(dim_names)
      character(len=:), allocatable :: dim_names
      class(UngriddedDims), intent(in) :: dims
      type(UngriddedDim) :: u
      integer :: i
      character, parameter :: JOIN = ','

      dim_names = EMPTY
      do i = 1, dims%get_num_ungridded()
         u = dims%get_ith_dim_spec(i)
         dim_names = JOIN // u%get_name()
      end do

   end function cat_ungridded_dim_names