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

Last change on this file since 750 was 559, checked in by weinreis, 14 years ago


  • Property svn:keywords set to Id
File size: 991 bytes
Line 
1 SUBROUTINE user_last_actions
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: user_last_actions.f90 559 2010-09-07 15:17:00Z suehring $
11!
12! 366 2009-08-25 08:06:27Z raasch
13! Output on unit 14 only if requested by write_binary
14!
15! 211 2008-11-11 04:46:24Z raasch
16! Former file user_interface.f90 split into one file per subroutine
17!
18! Description:
19! ------------
20! Execution of user-defined actions at the end of a job.
21!------------------------------------------------------------------------------!
22
23    USE control_parameters
24    USE user
25
26    IMPLICIT NONE
27
28!
29!-- Here the user-defined actions at the end of a job follow.
30!-- Sample for user-defined output:
31    IF ( write_binary(1:4) == 'true' )  THEN
32!       IF ( ALLOCATED( u2_av ) )  THEN
33!          WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
34!       ENDIF
35
36       WRITE ( 14 )  '*** end user ***    '
37
38    ENDIF
39
40 END SUBROUTINE user_last_actions
41
Note: See TracBrowser for help on using the repository browser.