NUOPC_TraceComponentInfo Subroutine

      recursive subroutine NUOPC_TraceComponentInfo(comp, rc)
        
        type(ESMF_CplComp), intent(in) :: comp
        integer, intent(out)  :: rc
        
        character(len=5)  :: attrConv(3)
        character(len=8)  :: attrPurp(3)
        character(len=20) :: attrName(3)
        character(len=10) :: attrKey(3)
        
        rc = ESMF_SUCCESS      
        
        attrConv = "NUOPC"
        attrPurp = "Instance"
        
        attrName(1) = "InitializePhaseMap"
        attrKey(1) = "IPM"
        
        attrName(2) = "RunPhaseMap"
        attrKey(2) = "RPM"
        
        attrName(3) = "FinalizePhaseMap"
        attrKey(3) = "FPM"
        
        call ESMF_TraceComponentInfo(comp, attrConv, &
             attrPurp, attrName, attrKey, rc=rc)
        if (ESMF_LogFoundError(rc, &
             line=__LINE__, &
             file=FILENAME)) &
             return  
        
      end subroutine NUOPC_TraceComponentInfo