source: palm/trunk/SOURCE/local_stop.f90 @ 3

Last change on this file since 3 was 3, checked in by raasch, 14 years ago

RCS Log replace by Id keyword, revision history cleaned up

File size: 695 bytes
Line 
1 SUBROUTINE local_stop
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id$
11! RCS Log replace by Id keyword, revision history cleaned up
12!
13! Revision 1.2  2003/03/16 09:40:28  raasch
14! Two underscores (_) are placed in front of all define-strings
15!
16! Revision 1.1  2002/12/19 15:46:23  raasch
17! Initial revision
18!
19!
20! Description:
21! ------------
22! Stop program execution
23!------------------------------------------------------------------------------!
24
25    USE pegrid
26
27#if defined( __parallel )
28    CALL MPI_FINALIZE( ierr )
29#endif
30
31    STOP
32
33 END SUBROUTINE local_stop   
Note: See TracBrowser for help on using the repository browser.