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

Last change on this file since 484 was 484, checked in by raasch, 12 years ago

typo in file headers removed

  • Property svn:keywords set to Id
File size: 991 bytes
RevLine 
[211]1 SUBROUTINE user_last_actions
2
3!------------------------------------------------------------------------------!
[484]4! Current revisions:
[211]5! -----------------
[392]6!
[211]7!
8! Former revisions:
9! -----------------
10! $Id: user_last_actions.f90 484 2010-02-05 07:36:54Z raasch $
11!
[392]12! 366 2009-08-25 08:06:27Z raasch
13! Output on unit 14 only if requested by write_binary
14!
[226]15! 211 2008-11-11 04:46:24Z raasch
16! Former file user_interface.f90 split into one file per subroutine
17!
[211]18! Description:
19! ------------
20! Execution of user-defined actions at the end of a job.
21!------------------------------------------------------------------------------!
22
[366]23    USE control_parameters
[211]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:
[366]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
[211]35
[366]36       WRITE ( 14 )  '*** end user ***    '
[211]37
[366]38    ENDIF
39
[211]40 END SUBROUTINE user_last_actions
41
Note: See TracBrowser for help on using the repository browser.