Changeset 20203

Timestamp:

02/17/16 14:22:01 (9 years ago)

Author:

Mathieu Morlighem

Message:

BUG: should call ISSM MPI_Recv

File:

• issm/trunk-jpl/src/c/cores/sealevelrise_core.cpp (modified) (1 diff)

issm/trunk-jpl/src/c/cores/sealevelrise_core.cpp

@@ -124 +124 @@
                         nvs=xNew<int>(nummodels-1);
                         for(int i=0;i<earthid;i++){
-                                MPI_Recv(nvs+i, 1, ISSM_MPI_INT, 0,i, fromcomms[i], &status);
+                                ISSM_MPI_Recv(nvs+i, 1, ISSM_MPI_INT, 0,i, fromcomms[i], &status);
                                 forcings[i]=xNew<IssmDouble>(nvs[i]);
-                                MPI_Recv(forcings[i], nvs[i], ISSM_MPI_DOUBLE, 0,i, fromcomms[i], &status);
+                                ISSM_MPI_Recv(forcings[i], nvs[i], ISSM_MPI_DOUBLE, 0,i, fromcomms[i], &status);
                         }