Changeset 1289 for XIOS/dev/branch_openmp/extern/remap

Timestamp:

10/04/17 17:02:13 (7 years ago)

Author:

yushan

Message:

EP update part 2

Location:

XIOS/dev/branch_openmp/extern/remap/src

Files:

• mpi_routing.cpp (modified) (1 diff)
• polyg.cpp (modified) (1 diff)

XIOS/dev/branch_openmp/extern/remap/src/mpi_routing.cpp

@@ -127 +127 @@
         MPI_Info info_null;
 
-        MPI_Alloc_mem(nbTarget *sizeof(int), info_null, &targetRank);
-        MPI_Alloc_mem(nbSource *sizeof(int), info_null, &sourceRank);
+        // MPI_Alloc_mem(nbTarget *sizeof(int), info_null, &targetRank);
+        // MPI_Alloc_mem(nbSource *sizeof(int), info_null, &sourceRank);
+        MPI_Alloc_mem(nbTarget *sizeof(int), MPI_INFO_NULL, &targetRank);
+        MPI_Alloc_mem(nbSource *sizeof(int), MPI_INFO_NULL, &sourceRank);
 
         targetRankToIndex = new int[mpiSize];

XIOS/dev/branch_openmp/extern/remap/src/polyg.cpp

@@ -180 +180 @@
                 assert(sc >= -1e-10); // Error: tri a l'env (wrong orientation)
                 double area_gc = triarea(t[0], t[1], t[2]);
-                if(area_gc<=0) printf("area_gc = %e\n", area_gc);
+                //if(area_gc<=0) printf("area_gc = %e\n", area_gc);
                 double area_sc_gc_moon = 0;
                 if (d[i]) /* handle small circle case */