Changeset 22389

Timestamp:

02/05/18 10:36:16 (7 years ago)

Author:

seroussi

Message:

CHG: fixed intercomm

File:

• issm/trunk-jpl/src/c/main/issm_ocean.cpp (modified) (4 diffs)

issm/trunk-jpl/src/c/main/issm_ocean.cpp

@@ -10 +10 @@
         /*diverse:*/
         int    icecommsize;
-        int    rankzeros[2];
         int    my_rank,my_local_rank,my_size,my_local_size;
         ISSM_MPI_Comm worldcomm;
@@ -31 +30 @@
         icecommsize=(int) strtol(argv[2], (char **)NULL, 10);
 
-        /*Buil array of who is rank 0 of their own group:*/
-        rankzeros[0]=0; 
-        rankzeros[1]=icecommsize; 
-
         printf("Ice: My global rank: %i My world size: %i \n",my_rank,my_size);
 
@@ -45 +40 @@
         printf("Ice: My global rank: %i My local rank: %i My world size: %i My local size: %i\n",my_rank,my_local_rank,my_size,my_local_size);
 
-        ISSM_MPI_Intercomm_create( modelcomm, 0, worldcomm, rankzeros[1], 0, &tomitgcmcomm); 
+        ISSM_MPI_Intercomm_create( modelcomm, 0, worldcomm, my_local_size, 0, &tomitgcmcomm); 
 
         /*Initialize femmodel from arguments provided command line: */
@@ -66 +61 @@
         delete femmodel;
 
+        printf("-------------- file: issm_ocean.cpp line: %i\n",__LINE__); 
         /*Finalize environment:*/
         EnvironmentFinalize();
 
+        printf("-------------- file: issm_ocean.cpp line: %i\n",__LINE__); 
         /*Finalize exception trapping: */
         ExceptionTrapEnd();