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
RevLine 
[849]1 SUBROUTINE user_lpm_advec
[211]2
3!------------------------------------------------------------------------------!
[484]4! Current revisions:
[211]5! -----------------
[850]6!
[211]7!
8! Former revisions:
9! -----------------
10! $Id: user_lpm_advec.f90 850 2012-03-15 12:09:25Z raasch $
11!
[850]12! 849 2012-03-15 10:35:09Z raasch
13! routine renamed user_lpm_advec
14!
[226]15! 211 2008-11-11 04:46:24Z raasch
16! Former file user_interface.f90 split into one file per subroutine
17!
[211]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
[849]35 END SUBROUTINE user_lpm_advec
[211]36
Note: See TracBrowser for help on using the repository browser.