Changeset 22656 for issm/trunk-jpl/src/c/main/issm_ocean.cpp

Timestamp:

04/02/18 11:22:11 (7 years ago)

Author:

seroussi

Message:

CHG: cleaning up ocean information exchange

File:

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

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

@@ -31 +31 @@
         icecommsize=(int) strtol(argv[2], (char **)NULL, 10);
 
-        printf("Ice: My global rank: %i My world size: %i \n",my_rank,my_size);
-
         /*Split world into sub-communicators for each and every model:*/
         ISSM_MPI_Comm_split(worldcomm,0, my_rank, &modelcomm);
@@ -38 +36 @@
         ISSM_MPI_Comm_size(modelcomm,&my_local_size);
 
-        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, my_local_size, 0, &tomitgcmcomm); 
 
-//      /*send an integer:*/
-//      int dummy1,dummy2;
-//      dummy1=3; dummy2=0;
-//      if(my_local_rank==0){
-//              MPI_Send(&dummy1,1,MPI_INT,0,1,tomitgcmcomm);
-//              MPI_Recv(&dummy2,1,MPI_INT,0,1,tomitgcmcomm,&status);
-//      }
-//      MPI_Bcast(&dummy2,1,MPI_INT,0,modelcomm);
-//      printf("Ice: dummy received: %i\n",dummy2);
-
-        /*Initialize femmodel from arguments provided command line: */
         FemModel *femmodel = new FemModel(argc,argv,modelcomm);