Ignore:
Timestamp:
Jul 6, 2017 11:18:47 AM (4 years ago)
Author:
hoffmann
Message:

Improved calculation of particle IDs.

File:
1 edited

Legend:

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

    r2278 r2305  
    2525! -----------------
    2626! $Id$
     27! Improved calculation of particle IDs.
     28!
     29! 2278 2017-06-12 13:08:18Z schwenkel
    2730! Added comments
    2831!
     
    111114    INTEGER(iwp) ::  merge_drp = 0                                !< number of merged droplets
    112115    INTEGER(iwp) ::  min_nr_particle = 50                         !< namelist parameter (see documentation)         
    113     INTEGER(iwp) ::  mpi_particle_type                            !< parameter for particle PE particle exchange
    114116    INTEGER(iwp) ::  new_particles = 0                            !< number of new particles
    115117    INTEGER(iwp) ::  n_max = 100                                  !< number of radii bin for splitting functions     
     
    210212   
    211213    TYPE particle_type
    212         SEQUENCE
    213214        REAL(wp)     ::  radius        !< radius of particle
    214215        REAL(wp)     ::  age           !< age of particle
     
    232233        INTEGER(iwp) ::  class         !< radius class needed for collision
    233234        INTEGER(iwp) ::  group         !< number of particle group
    234         INTEGER(iwp) ::  id1           !< first part of particle id
    235         INTEGER(iwp) ::  id2           !< second part of particle id
     235        INTEGER(idp) ::  id            !< particle ID (64 bit integer)
    236236        LOGICAL      ::  particle_mask !< if this parameter is set to false the particle will be deleted
    237237        INTEGER(iwp) ::  block_nr      !< number for sorting (removable?)
     
    255255        INTEGER(iwp), DIMENSION(0:7)               ::  start_index        !< start particle index for current block
    256256        INTEGER(iwp), DIMENSION(0:7)               ::  end_index          !< end particle index for current block
    257         INTEGER(iwp)                               ::  id_counter         !< particle id counter (removeable?)
     257        INTEGER(iwp)                               ::  id_counter         !< particle id counter
    258258        LOGICAL                                    ::  time_loop_done     !< timestep loop for particle advection
    259259        TYPE(particle_type), POINTER, DIMENSION(:) ::  particles          !< Particle array for this grid cell
Note: See TracChangeset for help on using the changeset viewer.