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

Last change on this file since 16 was 4, checked in by raasch, 18 years ago

Id keyword set as property for all *.f90 files

  • Property svn:keywords set to Id
File size: 695 bytes
Line 
1 SUBROUTINE local_stop
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: local_stop.f90 4 2007-02-13 11:33:16Z raasch $
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.