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

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

speed optomizations +bugfix in init_ocean

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