MITgcm_contrib/cg2d_bench/stop_mp.F

      SUBROUTINE STOP_MP

C     Initialise multi-processing
      IMPLICIT NONE

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"

C     == Local variables ==
      INTEGER rc

C     Shutdown multiprocessing here
#ifdef ALLOW_MPI
      CALL MPI_FINALIZE( rc )
#endif

      RETURN
      END
1	ce107	1.1	SUBROUTINE STOP_MP
2
3			C Initialise multi-processing
4			IMPLICIT NONE
5
6			C == Global data ==
7			#include "SIZE.h"
8			#include "EEPARAMS.h"
9
10			C == Local variables ==
11			INTEGER rc
12
13			C Shutdown multiprocessing here
14			#ifdef ALLOW_MPI
15			CALL MPI_FINALIZE( rc )
16			#endif
17
18			RETURN
19			END