/[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.1 - (show annotations) (download)
Fri May 12 21:58:06 2006 UTC (12 years, 8 months ago) by ce107
Branch: MAIN
Initial version of CG2D benchmark code (serial and parallel) by Chris Hill

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

  ViewVC Help
Powered by ViewVC 1.1.22