Changes in palm/trunk/SOURCE/init_particles.f90 [1:3]

File:

• palm/trunk/SOURCE/init_particles.f90 (modified) (1 diff)

palm/trunk/SOURCE/init_particles.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Log: init_particles.f90,v $
+! $Id$
+! RCS Log replace by Id keyword, revision history cleaned up
+!
 ! Revision 1.24  2007/02/11 13:00:17  raasch
 ! Bugfix: allocation of tail_mask and new_tail_id in case of restart-runs
 ! Bugfix: __ was missing in a cpp-directive
-!
-! Revision 1.23  2006/08/22 14:11:08  raasch
-! Default settings of particle start positions changed
-!
-! Revision 1.22  2006/08/04 14:44:58  raasch
-! New particles attributes initialized (e_m, dt_sum, speed_x/y/z_sgs),
-! total length of mpi_particle_type adjusted, more than one particle can be
-! released per point, izuf renamed iran, set a special seed value iran_part
-! to be used for the particle advection code, determination of particle group
-! number removed from header to here
-!
-! Revision 1.21  2006/03/14 12:55:24  raasch
-! Determination of the number of particle groups removed
-!
-! Revision 1.20  2006/02/23 12:34:00  raasch
-! Allocation of prt_start_index and prt_count + calling subroutine
-! sort_particles,
-! particle source parameters psl, psr, pss, psn, psb, pst, pdx, pdy, pdz are now
-! 1D arrays (1:max_number_of_particle_groups) and allow up to specify
-! max_number_of_particle_groups different sources by setting
-! number_of_particle_groups >= 1 even if density_ratio is not specified,
-! only a fraction of the particles may have tails, therefore input from unit 90
-! has changed,
-! 0.5 replaced by 0.4999999999 in setting the random fluctuations,
-! Defaults of psl, psr, pss, psn adjusted.
-! If the number of particle groups is set by the user, density_ratio is reset to
-! default.
-! In case of user-specified pdx, pdy, pdz = 0.0 reset them to defaults,
-! improve particle release at PE boundaries, nt_anz renamed
-! current_timestep_number
-!
-! Revision 1.19  2005/06/26 19:56:47  raasch
-! particle_groups%radius is used instead of diameter, particle%radius is
-! initialized, new initial informations about radius and weighting factor
-! stored on array particles, total length of mpi_particle_type adjusted
-!
-! Revision 1.18  2004/04/30 12:03:28  raasch
-! MPI data type for particles modified due to modification of FORTRAN particle
-! type
-!
-! Revision 1.17  2003/10/29 08:55:35  raasch
-! Module random_function_mod is used, version check of the binary file,
-! modifications for new particle group feature
-!
-! Revision 1.16  2003/03/16 09:39:51  raasch
-! Two underscores (_) are placed in front of all define-strings
-!
-! Revision 1.15  2003/03/04 11:30:48  raasch
-! Displacement for integers in mpi_particle_type reduced from 16 to 8 on
-! ibm, since integers seem to be only 4 byte long. Accordingly, total length
-! reduced from 104 to 96.
-!
-! Revision 1.14  2002/12/19 15:39:48  raasch
-! STOP statement replaced by call of subroutine local_stop
-!
-! Revision 1.13  2002/09/12 13:04:13  raasch
-! Read density_ratio from restart file
-!
-! Revision 1.12  2002/04/16 08:08:34  raasch
-! New initial informations about speed components and start positions stored on
-! array particles. Check boundary conditions and read them from restart file.
-!
-! Revision 1.11  2001/11/12 16:06:06  raasch
-! Array particle_tail_coordinates extended to contain colour informations,
-! reading particle data from restart file can be prohibited
-!
-! Revision 1.9  2001/08/21 09:49:05  raasch
-! Particle tail is initialized
-!
-! Revision 1.8  2001/07/12 12:10:58  raasch
-! Particle sources (starting positions) are now controlled by parameters
-!
-! Revision 1.7  2001/03/30 07:31:37  raasch
-! Translation of remaining German identifiers (variables, subroutines, etc.)
-!
-! Revision 1.6  2001/01/25 07:05:36  raasch
-! Writing of particle informations is optional now
-!
-! Revision 1.5  2001/01/22 07:16:17  raasch
-! Module test_particles removed
-!
-! Revision 1.4  2001/01/02 17:30:16  raasch
-! Opening of unit 80 moved to check_open. Unit 90 instead of 81 is used
-! for binary input.
-!
-! Revision 1.3  2000/12/28 13:15:58  raasch
-! Complete revision due to new features of dvrp-software,
-! all comments translated into English,
-! code is used only optionally (cpp-directives are added)
-!
-! Revision 1.2  2000/04/27 06:38:48  raasch
-! compute position of camera with new indepent routine vtk_camera and
-! store result on a separate file
 !
 ! Revision 1.1  1999/11/25 16:22:38  raasch