Changeset 27378

Timestamp:

11/10/22 11:07:16 (2 years ago)

Author:

Mathieu Morlighem

Message:

CHG: fixing dakota

File:

• issm/trunk-jpl/src/c/classes/FemModel.cpp (modified) (4 diffs)

issm/trunk-jpl/src/c/classes/FemModel.cpp

@@ -1477 +1477 @@
    xDelete<IssmDouble>(recv_buffer);
    for(int rank=0;rank<num_procs;rank++){
-      ISSM_MPI_Wait(&send_requests[rank],&status);
+      if(rank!=my_rank) ISSM_MPI_Wait(&send_requests[rank],&status);
       xDelete<IssmDouble>(send_buffers[rank]);
    }
@@ -1524 +1524 @@
 
         /*Wait until MPI is done*/
-        for(int rank=0;rank<num_procs;rank++) ISSM_MPI_Wait(&send_requests[rank],&status);
+        for(int rank=0;rank<num_procs;rank++){
+                if(rank!=my_rank) ISSM_MPI_Wait(&send_requests[rank],&status);
+        }
 
         /*Now sync masters across partitions*/
@@ -1554 +1556 @@
         xDelete<IssmDouble>(recv_buffer);
         for(int rank=0;rank<num_procs;rank++){
-                ISSM_MPI_Wait(&send_requests[rank],&status);
+                if(rank!=my_rank) ISSM_MPI_Wait(&send_requests[rank],&status);
                 xDelete<IssmDouble>(send_buffers[rank]);
         }
@@ -1617 +1619 @@
         xDelete<IssmDouble>(recv_buffer);
         for(int rank=0;rank<num_procs;rank++){
-                ISSM_MPI_Wait(&send_requests[rank],&status);
+                if(rank!=my_rank) ISSM_MPI_Wait(&send_requests[rank],&status);
                 xDelete<IssmDouble>(send_buffers[rank]);
         }