source: palm/trunk/SOURCE/user_init_particles.f90 @ 484

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

typo in file headers removed

  • Property svn:keywords set to Id
File size: 690 bytes
RevLine 
[211]1 SUBROUTINE user_init_particles
2
3!------------------------------------------------------------------------------!
[484]4! Current revisions:
[211]5! -----------------
[226]6!
[211]7!
8! Former revisions:
9! -----------------
10! $Id: user_init_particles.f90 484 2010-02-05 07:36:54Z raasch $
11!
[226]12! 211 2008-11-11 04:46:24Z raasch
13! Former file user_interface.f90 split into one file per subroutine
14!
[211]15! Description:
16! ------------
17! Modification of initial particles by the user.
18!------------------------------------------------------------------------------!
19
20    USE particle_attributes
21    USE user
22
23    IMPLICIT NONE
24
25    INTEGER ::  n
26
27!
28!-- Here the user-defined actions follow
29!    DO  n = 1, number_of_initial_particles
30!    ENDDO
31
32 END SUBROUTINE user_init_particles
33
Note: See TracBrowser for help on using the repository browser.