Changeset 2467

Timestamp:

03/07/23 10:03:36 (16 months ago)

Author:

jderouillat

Message:

On clients that do not initialize MPI themselves, do not monitor XIOS initialization with timers (requires that MPI_init has already been done)

File:

• XIOS3/branches/xios-3.0-beta/src/interface/c/icdata.cpp (modified) (1 diff)

XIOS3/branches/xios-3.0-beta/src/interface/c/icdata.cpp

@@ -66 +66 @@
       if (!cstr2string(client_id, len_client_id, str)) return;
 
-      CTimer::get("XIOS").resume();
-      CTimer::get("XIOS init").resume();
       int initialized;
       MPI_Initialized(&initialized);
-      if (initialized) local_comm=MPI_Comm_f2c(*f_local_comm);
+      if (initialized)
+      {
+        CTimer::get("XIOS").resume();
+        CTimer::get("XIOS init").resume();
+        local_comm=MPI_Comm_f2c(*f_local_comm);
+      }
       else local_comm=MPI_COMM_NULL;
       CXios::initClientSide(str, local_comm, return_comm);
       *f_return_comm=MPI_Comm_c2f(return_comm);
-      CTimer::get("XIOS init").suspend();
-      CTimer::get("XIOS").suspend();
+      if (initialized)
+      {
+        CTimer::get("XIOS init").suspend();
+        CTimer::get("XIOS").suspend();
+      }
    }
    CATCH_DUMP_STACK