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

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

bugfix message string in set_mask_locations

  • Property svn:keywords set to Id
File size: 1.2 KB
Line 
1 SUBROUTINE user_last_actions
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: user_last_actions.f90 557 2010-09-07 14:50:07Z weinreis $
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 pegrid
25    USE user
26
27    IMPLICIT NONE
28   
29    INTEGER :: rbs
30
31!
32!-- Here the user-defined actions at the end of a job follow.
33!-- Sample for user-defined output:
34    IF ( write_binary(1:4) == 'true' )  THEN
35       DO rbs = 0, numprocs/binary_io_blocksize-1       
36          IF ( mod_numprocs_size == rbs ) THEN 
37         
38!            IF ( ALLOCATED( u2_av ) )  THEN
39!               WRITE ( 14 )  'u2_av               ';  WRITE ( 14 )  u2_av
40!            ENDIF
41
42             WRITE ( 14 )  '*** end user ***    '
43       
44          ENDIF     
45          CALL MPI_BARRIER(comm2d, ierr )
46       ENDDO
47
48    ENDIF
49
50 END SUBROUTINE user_last_actions
51
Note: See TracBrowser for help on using the repository browser.