source: palm/trunk/SOURCE/user_lpm_advec.f90 @ 850

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

last commit documented

  • Property svn:keywords set to Id
File size: 749 bytes
Line 
1 SUBROUTINE user_lpm_advec
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: user_lpm_advec.f90 850 2012-03-15 12:09:25Z raasch $
11!
12! 849 2012-03-15 10:35:09Z raasch
13! routine renamed user_lpm_advec
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! Modification of initial particles 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_advec
36
Note: See TracBrowser for help on using the repository browser.