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

Last change on this file since 211 was 211, checked in by raasch, 15 years ago

user interface was split into one single file per subroutine

  • Property svn:keywords set to Id
File size: 950 bytes
Line 
1 SUBROUTINE user_dvrp_coltab( mode, variable )
2
3!------------------------------------------------------------------------------!
4! Actual revisions:
5! -----------------
6! Former file user_interface.f90 split into one file per subroutine
7!
8! Former revisions:
9! -----------------
10! $Id: user_dvrp_coltab.f90 211 2008-11-11 04:46:24Z raasch $
11!
12! Description:
13! ------------
14! Definition of the colour table to be used by the dvrp software.
15!------------------------------------------------------------------------------!
16
17    USE dvrp_variables
18    USE pegrid
19    USE user
20
21    IMPLICIT NONE
22
23    CHARACTER (LEN=*) ::  mode
24    CHARACTER (LEN=*) ::  variable
25
26
27!
28!-- Here the user-defined actions follow
29    SELECT CASE ( mode )
30
31       CASE ( 'particles' )
32
33       CASE ( 'slicer' )
34
35       CASE DEFAULT
36          IF ( myid == 0 )  PRINT*, '+++ user_dvrp_coltab: unknown mode "', &
37                                    mode, '"'
38          CALL local_stop
39
40    END SELECT
41
42 END SUBROUTINE user_dvrp_coltab
43
Note: See TracBrowser for help on using the repository browser.