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

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

Initial repository layout and content

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