MITgcm_contrib/cg2d_bench/stop_mp.F

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