get_vertical_dim_spec_names_bundle_info Function

public function get_vertical_dim_spec_names_bundle_info(info, rc) result(names)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Info), intent(in) :: info(:)
integer, intent(out), optional :: rc

Return Value type(StringVector)


Calls

proc~~get_vertical_dim_spec_names_bundle_info~~CallsGraph proc~get_vertical_dim_spec_names_bundle_info get_vertical_dim_spec_names_bundle_info ESMF_InfoGetCharAlloc ESMF_InfoGetCharAlloc proc~get_vertical_dim_spec_names_bundle_info->ESMF_InfoGetCharAlloc begin begin proc~get_vertical_dim_spec_names_bundle_info->begin next next proc~get_vertical_dim_spec_names_bundle_info->next of of proc~get_vertical_dim_spec_names_bundle_info->of proc~mapl_return MAPL_Return proc~get_vertical_dim_spec_names_bundle_info->proc~mapl_return proc~mapl_verify MAPL_Verify proc~get_vertical_dim_spec_names_bundle_info->proc~mapl_verify push_back push_back proc~get_vertical_dim_spec_names_bundle_info->push_back stringvector stringvector proc~get_vertical_dim_spec_names_bundle_info->stringvector 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~~get_vertical_dim_spec_names_bundle_info~~CalledByGraph proc~get_vertical_dim_spec_names_bundle_info get_vertical_dim_spec_names_bundle_info proc~test_get_vertical_dim_spec_names test_get_vertical_dim_spec_names proc~test_get_vertical_dim_spec_names->proc~get_vertical_dim_spec_names_bundle_info

Source Code

   function get_vertical_dim_spec_names_bundle_info(info, rc) result(names)
      type(StringVector) :: names
      type(ESMF_Info), intent(in) :: info(:)
      integer, optional, intent(out) :: rc
      integer :: status
      integer :: i
      character(len=:), allocatable :: name

      names = StringVector()
      do i=1, size(info)
         name = get_vertical_dim_spec_info(info(i), _RC)
         if(find_index(names, name) == 0) call names%push_back(name)
      end do
      _RETURN(_SUCCESS)

   end function get_vertical_dim_spec_names_bundle_info