Ignore:
Timestamp:
Jan 18, 2017 12:22:54 PM (5 years ago)
Author:
hoffmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/mod_particle_attributes.f90

    r2101 r2122  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Calculation of particle ID
     23! Particle attribute dvrp_psize renamed to user: this attribute can be used by
     24! by the user to store any variable
    2325!
    2426! Former revisions:
     
    134136    TYPE particle_type
    135137        SEQUENCE
    136         REAL(wp)     ::  radius, age, age_m, dt_sum, dvrp_psize, e_m,          &
     138        REAL(wp)     ::  radius, age, age_m, dt_sum, user, e_m,                &
    137139                         origin_x, origin_y, origin_z, rvar1, rvar2, rvar3,    &
    138140                         speed_x, speed_y, speed_z, weight_factor, x, y, z
    139         INTEGER(iwp) ::  class, group, tailpoints, tail_id
     141        INTEGER(iwp) ::  class, group, id1, id2
    140142        LOGICAL      ::  particle_mask
    141143        INTEGER(iwp) ::  block_nr
     
    156158        INTEGER(iwp), DIMENSION(0:7)               ::  start_index
    157159        INTEGER(iwp), DIMENSION(0:7)               ::  end_index
     160        INTEGER(iwp)                               ::  id_counter
    158161        LOGICAL                                    ::  time_loop_done
    159162        TYPE(particle_type), POINTER, DIMENSION(:) ::  particles                !Particle array for this grid cell
Note: See TracChangeset for help on using the changeset viewer.