Changeset 2122 for palm/trunk/SOURCE/mod_particle_attributes.f90

Timestamp:

Jan 18, 2017 12:22:54 PM (7 years ago)

Author:

hoffmann

Message:

introduction of a particle ID, improvement of equilibrium radius calculation, and reformatting

File:

• palm/trunk/SOURCE/mod_particle_attributes.f90 (modified) (3 diffs)

palm/trunk/SOURCE/mod_particle_attributes.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Calculation of particle ID
+! Particle attribute dvrp_psize renamed to user: this attribute can be used by
+! by the user to store any variable
 ! 
 ! Former revisions:
@@ -134 +136 @@
     TYPE particle_type
         SEQUENCE
-        REAL(wp)     ::  radius, age, age_m, dt_sum, dvrp_psize, e_m,          &
+        REAL(wp)     ::  radius, age, age_m, dt_sum, user, e_m,                &
                          origin_x, origin_y, origin_z, rvar1, rvar2, rvar3,    &
                          speed_x, speed_y, speed_z, weight_factor, x, y, z
-        INTEGER(iwp) ::  class, group, tailpoints, tail_id
+        INTEGER(iwp) ::  class, group, id1, id2
         LOGICAL      ::  particle_mask
         INTEGER(iwp) ::  block_nr
@@ -156 +158 @@
         INTEGER(iwp), DIMENSION(0:7)               ::  start_index
         INTEGER(iwp), DIMENSION(0:7)               ::  end_index
+        INTEGER(iwp)                               ::  id_counter
         LOGICAL                                    ::  time_loop_done
         TYPE(particle_type), POINTER, DIMENSION(:) ::  particles                !Particle array for this grid cell