ESMF_TraceGridComponentInfo Subroutine

  subroutine ESMF_TraceGridComponentInfo(comp, attrConv, attrPurp, attrName, attrKey, rc)
! !ARGUMENTS: 
    type(ESMF_GridComp), intent(in) :: comp
    character(len=*),    intent(in), optional :: attrConv(:)
    character(len=*),    intent(in), optional :: attrPurp(:)
    character(len=*),    intent(in), optional :: attrName(:)
    character(len=*),    intent(in), optional :: attrKey(:)
    integer, intent(out), optional  :: rc    
!
!EOPI
!-------------------------------------------------------------------------------
    ! local
    integer                    :: baseid
    integer                    :: vmid
    character(len=ESMF_MAXSTR) :: name
    logical                    :: isPresent
    integer                    :: i, j
    integer                    :: itemCount
    character(len=ESMF_MAXSTR), allocatable :: attrValList(:)
    character(len=ESMF_MAXSTR*10) :: attributeKeys
    character(len=ESMF_MAXSTR*10) :: attributeVals
    character(len=ESMF_MAXSTR*10) :: attributeList
    character(2) :: delim, delim2
    
    if (present(rc)) rc = ESMF_SUCCESS
         
    ! call ESMF_TraceGetCompID(comp, vmid, baseid, rc=rc)
    ! if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
    !      ESMF_CONTEXT, rcToReturn=rc)) return

    ! call ESMF_GridCompGet(comp, name=name, rc=rc)
    ! if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
    !      ESMF_CONTEXT, rcToReturn=rc)) return

    ! attributeKeys = ""
    ! attributeVals = ""

    ! if (present(attrConv) .and. present(attrPurp) &
    !      .and. present(attrName) .and. present(attrKey)) then
    
    !    if (size(attrConv) /= size(attrPurp) .or. &
    !         size(attrConv) /= size(attrName)) then
    !       call ESMF_LogSetError(ESMF_RC_ARG_BAD, &
    !            msg="Attribute vectors must have same length", &
    !            ESMF_CONTEXT, rcToReturn=rc)
    !       return
    !    endif
       
    !    delim = ""
    !    do i=1, size(attrConv)      
          
    !       call ESMF_AttributeGet(comp, name=trim(attrName(i)), &
    !            convention=trim(attrConv(i)), purpose=trim(attrPurp(i)), &
    !            attnestflag=ESMF_ATTNEST_ON, isPresent=isPresent, itemCount=itemCount, rc=rc)
    !       if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
    !            ESMF_CONTEXT, rcToReturn=rc)) return
          
    !       if (isPresent) then
    !          allocate(attrValList(itemCount))
    !          call ESMF_AttributeGet(comp, name=trim(attrName(i)), valueList=attrValList, &
    !               convention=trim(attrConv(i)), purpose=trim(attrPurp(i)), &
    !               attnestflag=ESMF_ATTNEST_ON, isPresent=isPresent, rc=rc)
    !          if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
    !               ESMF_CONTEXT, rcToReturn=rc)) return
             
    !          !attributeKeys = trim(attributeKeys)//trim(delim)// &
    !          !     trim(attrConv(i)) //"$"//trim(attrPurp(i))//"$"//trim(attrName(i))
    !          attributeKeys = trim(attributeKeys)//trim(delim)// &
    !               trim(attrKey(i))
             
    !          attributeList = ""
    !          delim2 = ""
    !          do j=1, itemCount
    !             attributeList = trim(attributeList)//trim(delim2)//trim(attrValList(j))
    !             delim2 = "||"
    !          enddo
    !          attributeVals = trim(attributeVals)//trim(delim)//trim(attributeList)
    !          delim = "::"
             
    !          deallocate(attrValList)
    !       endif
    !    enddo
    ! endif
       
    ! !print *, "attributeKeys = ", trim(attributeKeys)
    ! !print *, "attributeVals = ", trim(attributeVals)
        
    ! call c_esmftrace_component_info(vmid, baseid, trim(name), &
    !      trim(attributeKeys), trim(attributeVals), rc)
    ! if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
    !      ESMF_CONTEXT, rcToReturn=rc)) return

  end subroutine ESMF_TraceGridComponentInfo