source: issm/trunk/src/c/analyses/EnvironmentFinalize.cpp@ 16137

Last change on this file since 16137 was 16137, checked in by Mathieu Morlighem, 12 years ago

merged trunk-jpl and trunk for revision 16135
File size: 556 bytes
Line 
1/*!\file: EnvironmentFinalize.cpp
2 * \brief: finalize Petsc, MPI, you name it
3 */
4#ifdef HAVE_CONFIG_H
5 #include <config.h>
6#else
7#error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
8#endif
9#include "../toolkits/toolkits.h"
10#include "../shared/shared.h"
11
12void EnvironmentFinalize(void){
13
14 int my_rank;
15
16 /*Make sure we are all here*/
17 ISSM_MPI_Barrier(ISSM_MPI_COMM_WORLD);
18
19 /*Print closing statement*/
20 ISSM_MPI_Comm_rank(ISSM_MPI_COMM_WORLD,&my_rank);
21 if(!my_rank) printf("closing MPI\n");
22
23 /*Finalize: */
24 ISSM_MPI_Finalize();
25}
Note: See TracBrowser for help on using the repository browser.