Allow mpi_init_thread to override the MPI_THREAD_LEVEL

Signed-off-by: Austen Lauria <awlauria@us.ibm.com> (cherry picked from commit babfd93)
jsquyres · Aug 25, 2021 · 8819790 · 8819790
1 parent a666e01
commit 8819790
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/ompi/mpi/c/init_thread.c b/ompi/mpi/c/init_thread.c
@@ -48,6 +48,11 @@ int MPI_Init_thread(int *argc, char ***argv, int required,
                     int *provided)
 {
     int err;
+    char *env;
+
+    if (NULL != (env = getenv("OMPI_MPI_THREAD_LEVEL")))  {
+        required = atoi(env);
+    }
 
     ompi_hook_base_mpi_init_thread_top(argc, argv, required, provided);