Changeset 15838 for issm/trunk-jpl/src/c/analyses/EnvironmentInit.cpp
- Timestamp:
- 08/19/13 15:15:59 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified issm/trunk-jpl/src/c/analyses/EnvironmentInit.cpp ¶
r14917 r15838 17 17 /*Initialize MPI environment: */ 18 18 #if defined(_HAVE_MPI_) 19 MPI_Init(&argc,&argv);20 comm = MPI_COMM_WORLD;19 ISSM_MPI_Init(&argc,&argv); 20 comm = ISSM_MPI_COMM_WORLD; 21 21 #else 22 22 comm = 1; //bogus number for comm, which does not exist anyway. … … 25 25 /*Print Banner*/ 26 26 int my_rank = 0; 27 #ifdef _HAVE_MPI_ 28 MPI_Comm_rank(comm,&my_rank); 29 #endif 27 ISSM_MPI_Comm_rank(comm,&my_rank); 30 28 if(!my_rank) printf("\n"); 31 29 if(!my_rank) printf("Ice Sheet System Model (%s) version %s\n",PACKAGE_NAME,PACKAGE_VERSION);
Note:
See TracChangeset
for help on using the changeset viewer.