source: palm/trunk/SOURCE/user_dvrp_coltab.f90 @ 226

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

preparations for the next release

  • Property svn:keywords set to Id
File size: 989 bytes
Line 
1 SUBROUTINE user_dvrp_coltab( mode, variable )
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: user_dvrp_coltab.f90 226 2009-02-02 07:39:34Z 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! Definition of the colour table to be used by the dvrp software.
18!------------------------------------------------------------------------------!
19
20    USE dvrp_variables
21    USE pegrid
22    USE user
23
24    IMPLICIT NONE
25
26    CHARACTER (LEN=*) ::  mode
27    CHARACTER (LEN=*) ::  variable
28
29
30!
31!-- Here the user-defined actions follow
32    SELECT CASE ( mode )
33
34       CASE ( 'particles' )
35
36       CASE ( 'slicer' )
37
38       CASE DEFAULT
39          IF ( myid == 0 )  PRINT*, '+++ user_dvrp_coltab: unknown mode "', &
40                                    mode, '"'
41          CALL local_stop
42
43    END SELECT
44
45 END SUBROUTINE user_dvrp_coltab
46
Note: See TracBrowser for help on using the repository browser.