/[MITgcm]/MITgcm_contrib/cg2d_bench/stop_mp.F
ViewVC logotype

Contents of /MITgcm_contrib/cg2d_bench/stop_mp.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Fri May 12 22:34:55 2006 UTC (12 years, 8 months ago) by ce107
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -0 lines
Added CVS Id tag

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

  ViewVC Help
Powered by ViewVC 1.1.22