Changeset 2978 for palm/trunk/UTIL

Timestamp:

Apr 17, 2018 12:08:01 PM (7 years ago)

Author:

schwenkel

Message:

Bugfix in particle analyze tool

File:

• palm/trunk/UTIL/read_prt_data.f90 (modified) (2 diffs)

palm/trunk/UTIL/read_prt_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id: read_prt_data.f90 2696 2017-12-14 17:12:51Z kanani $
+! Adapted for changed particle attributes
+! 
+! 2696 2017-12-14 17:12:51Z kanani
 ! Corrected "Former revisions" section
 !
@@ -59 +62 @@
 
     TYPE particle_type
-       SEQUENCE
-       REAL(KIND=8) ::  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       ::  class, group, id1, id2
-      LOGICAL       ::  particle_mask
-      INTEGER       ::  block_nr
+        SEQUENCE
+        REAL(KIND=8)     ::  aux1          !< auxiliary multi-purpose feature
+        REAL(KIND=8)     ::  aux2          !< auxiliary multi-purpose feature
+        REAL(KIND=8)     ::  radius        !< radius of particle
+        REAL(KIND=8)     ::  age           !< age of particle
+        REAL(KIND=8)     ::  age_m         !<
+        REAL(KIND=8)     ::  dt_sum        !<
+        REAL(KIND=8)     ::  e_m           !< interpolated sgs tke
+        REAL(KIND=8)     ::  origin_x      !< origin x-position of particle (changed cyclic bc)
+        REAL(KIND=8)     ::  origin_y      !< origin y-position of particle (changed cyclic bc)
+        REAL(KIND=8)     ::  origin_z      !< origin z-position of particle (changed cyclic bc)
+        REAL(KIND=8)     ::  rvar1         !<
+        REAL(KIND=8)     ::  rvar2         !<
+        REAL(KIND=8)     ::  rvar3         !<
+        REAL(KIND=8)     ::  speed_x       !< speed of particle in x
+        REAL(KIND=8)     ::  speed_y       !< speed of particle in y
+        REAL(KIND=8)     ::  speed_z       !< speed of particle in z
+        REAL(KIND=8)     ::  weight_factor !< weighting factor
+        REAL(KIND=8)     ::  x             !< x-position
+        REAL(KIND=8)     ::  y             !< y-position
+        REAL(KIND=8)     ::  z             !< z-position
+        INTEGER(KIND=4) ::  class         !< radius class needed for collision
+        INTEGER(KIND=4) ::  group         !< number of particle group
+        INTEGER(KIND=8) ::  id            !< particle ID (64 bit integer)
+        LOGICAL         ::  particle_mask !< if this parameter is set to false the particle will be deleted
+        INTEGER(KIND=4) ::  block_nr      !< number for sorting (removable?)
     END TYPE particle_type
+
 
     TYPE(particle_type), DIMENSION(:), ALLOCATABLE ::  particles_temp