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

File:

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

palm/trunk/SOURCE/init_particles.f90

@@ -8 +8 @@
 ! Former revisions:
 ! -----------------
-! $Id$
-! RCS Log replace by Id keyword, revision history cleaned up
-!
+! $Log: init_particles.f90,v $
 ! 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