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

Timestamp:

Nov 9, 2020 1:40:05 PM (3 years ago)

Author:

raasch

Message:

first preliminary version for output of particle data time series

File:

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

palm/trunk/SOURCE/mod_particle_attributes.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! variables for particle output renamed, id counter removed from particle type
+!
+! 4677 2020-09-14 07:55:28Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -60 +63 @@
     INTEGER(iwp), PARAMETER ::  max_number_of_particle_groups = 10 !< maximum allowed number of particle groups
 
-    CHARACTER(LEN=varnamelength), DIMENSION(50) ::  part_output = ' '  !< namelist parameter
+    CHARACTER(LEN=64)                           ::  pts_id_file = ''  !< namelist parameter
+    CHARACTER(LEN=varnamelength), DIMENSION(50) ::  data_output_pts = ''    !< namelist parameter
 
     INTEGER(iwp) ::  dissipation_classes = 10                     !< namelist parameter (see documentation)
@@ -71 +75 @@
                                                                   !< prt_count)
     INTEGER(iwp) ::  number_of_particle_groups = 1                !< namelist parameter (see documentation)
-    INTEGER(iwp) ::  part_inc = 1                                 !< increment of particles in output file
+    INTEGER(iwp) ::  pts_increment = 1                            !< increment of particles in output file
 
     INTEGER(iwp), DIMENSION(:,:,:), ALLOCATABLE ::  prt_count  !< 3d array of number of particles of every grid box
@@ -84 +88 @@
                                                           !< number)
     REAL(wp) ::  particle_advection_start = 0.0_wp        !< namelist parameter (see documentation)
-    REAL(wp) ::  part_percent = 100.0_wp                  !< percentage of particles in output file
+    REAL(wp) ::  pts_percentage = 100.0_wp                !< percentage of particles in output file
 
     TYPE, PUBLIC ::  particle_type
@@ -115 +119 @@
     END TYPE particle_type
 
-    TYPE(particle_type), DIMENSION(:), POINTER ::  particles       !< Particle array for this grid cell
-    TYPE(particle_type)                        ::  zero_particle   !< zero particle to avoid weird thinge
+    TYPE(particle_type), DIMENSION(:), POINTER ::  particles      !< Particle array for this grid cell
+    TYPE(particle_type)                        ::  zero_particle  !< zero particle to avoid weird things
 
     TYPE particle_groups_type
@@ -129 +133 @@
 
     TYPE  grid_particle_def
-        INTEGER(iwp), DIMENSION(0:7)               ::  start_index        !< start particle index for current block
-        INTEGER(iwp), DIMENSION(0:7)               ::  end_index          !< end particle index for current block
-        INTEGER(iwp)                               ::  id_counter         !< particle id counter
-        LOGICAL                                    ::  time_loop_done     !< timestep loop for particle advection
-        TYPE(particle_type), POINTER, DIMENSION(:) ::  particles          !< Particle array for this grid cell
+        INTEGER(iwp), DIMENSION(0:7)               ::  start_index     !< start particle index for current block
+        INTEGER(iwp), DIMENSION(0:7)               ::  end_index       !< end particle index for current block
+        LOGICAL                                    ::  time_loop_done  !< timestep loop for particle advection
+        TYPE(particle_type), POINTER, DIMENSION(:) ::  particles       !< Particle array for this grid cell
     END TYPE grid_particle_def