source: palm/trunk/SOURCE/user_last_actions.f90 @ 211

Last change on this file since 211 was 211, checked in by raasch, 13 years ago

user interface was split into one single file per subroutine

  • Property svn:keywords set to Id
File size: 766 bytes
RevLine 
[211]1 SUBROUTINE user_last_actions
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6! Former file user_interface.f90 split into one file per subroutine
7!
8! Former revisions:
9! -----------------
10! $Id: user_last_actions.f90 211 2008-11-11 04:46:24Z raasch $
11!
12! Description:
13! ------------
14! Execution of user-defined actions at the end of a job.
15!------------------------------------------------------------------------------!
16
17    USE user
18
19    IMPLICIT NONE
20
21!
22!-- Here the user-defined actions at the end of a job follow.
23!-- Sample for user-defined output:
24!    IF ( ALLOCATED( u2_av ) )  THEN
25!       WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
26!    ENDIF
27
28    WRITE ( 14 )  '*** end user ***    '
29
30 END SUBROUTINE user_last_actions
31
Note: See TracBrowser for help on using the repository browser.