ompi: ompi_mpi_init(): do not export threading level to modex.

For some of our configuration this flag increases per-process contribution
by ~20% while it is not being used currently.

The consumer of this flag was communicator ID calculation logic, but it was
changed in 0bf06de.

Signed-off-by: Artem Polyakov <[email protected]>
(cherry picked from commit b601dd5)

Author: artpol84

ompi/runtime/ompi_mpi_init.c

@@ -383,10 +383,6 @@ int ompi_mpi_init(int argc, char **argv, int requested, int *provided)
 
     OMPI_TIMING_INIT(32);
 
-    /* bitflag of the thread level support provided. To be used
-     * for the modex in order to work in heterogeneous environments. */
-    uint8_t threadlevel_bf;
-
     ompi_hook_base_mpi_init_top(argc, argv, requested, provided);
 
     /* Ensure that we were not already initialized or finalized.
@@ -551,18 +547,6 @@ int ompi_mpi_init(int argc, char **argv, int requested, int *provided)
         goto error;
     }
 
-    /* determine the bitflag belonging to the threadlevel_support provided */
-    memset ( &threadlevel_bf, 0, sizeof(uint8_t));
-    OMPI_THREADLEVEL_SET_BITFLAG ( ompi_mpi_thread_provided, threadlevel_bf );
-
-    /* add this bitflag to the modex */
-    OPAL_MODEX_SEND_STRING(ret, OPAL_PMIX_GLOBAL,
-                           "MPI_THREAD_LEVEL", &threadlevel_bf, sizeof(uint8_t));
-    if (OPAL_SUCCESS != ret) {
-        error = "ompi_mpi_init: modex send thread level";
-        goto error;
-    }
-
     /* initialize datatypes. This step should be done early as it will
      * create the local convertor and local arch used in the proc
      * init.