source: palm/trunk/SOURCE/user_lpm_set_attributes.f90 @ 920

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

last commit documented

  • Property svn:keywords set to Id
File size: 824 bytes
Line 
1 SUBROUTINE user_lpm_set_attributes
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: user_lpm_set_attributes.f90 850 2012-03-15 12:09:25Z maronga $
11!
12! 849 2012-03-15 10:35:09Z raasch
13! routine renamed: user_particle_attributes -> user_lpm_set_attributes
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! Define the actual particle attributes (size, colour) by the user.
21!------------------------------------------------------------------------------!
22
23    USE particle_attributes
24    USE user
25
26    IMPLICIT NONE
27
28    INTEGER ::  n
29
30!
31!-- Here the user-defined actions follow
32!    DO  n = 1, number_of_initial_particles
33!    ENDDO
34
35 END SUBROUTINE user_lpm_set_attributes
36
Note: See TracBrowser for help on using the repository browser.