SUBROUTINE local_stop !------------------------------------------------------------------------------! ! Actual revisions: ! ----------------- ! ! ! Former revisions: ! ----------------- ! $Id: local_stop.f90 4 2007-02-13 11:33:16Z Giersch $ ! RCS Log replace by Id keyword, revision history cleaned up ! ! Revision 1.2 2003/03/16 09:40:28 raasch ! Two underscores (_) are placed in front of all define-strings ! ! Revision 1.1 2002/12/19 15:46:23 raasch ! Initial revision ! ! ! Description: ! ------------ ! Stop program execution !------------------------------------------------------------------------------! USE pegrid #if defined( __parallel ) CALL MPI_FINALIZE( ierr ) #endif STOP END SUBROUTINE local_stop