Changeset 792 for palm/trunk/SOURCE/modules.f90

Timestamp:

Dec 1, 2011 12:23:23 AM (12 years ago)

Author:

raasch

Message:

further adjustments for speedup of particle code

File:

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

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Current revisions:
 ! -----------------
-! 
+! particle arrays (particles, parrticles_temp) implemented as pointers,
+! +particles_1, particles_2, sort_count
 !
 ! Former revisions:
@@ -1166 +1167 @@
                 offset_ocean_nzt_m1 = 0, particles_per_point = 1,              &
                 particle_file_count = 0, skip_particles_for_tail = 100,        &
-                total_number_of_particles, total_number_of_tails = 0
+                sort_count = 0, total_number_of_particles,                     &
+                total_number_of_tails = 0
 
     INTEGER, PARAMETER ::  max_number_of_particle_groups = 10
@@ -1212 +1214 @@
     END TYPE particle_type
 
-    TYPE(particle_type), DIMENSION(:), ALLOCATABLE ::  initial_particles, &
-                                                       particles
+    TYPE(particle_type), DIMENSION(:), ALLOCATABLE ::  initial_particles
+    TYPE(particle_type), DIMENSION(:), ALLOCATABLE, TARGET ::  part_1, part_2
+    TYPE(particle_type), DIMENSION(:), POINTER  ::  particles
 
     TYPE particle_groups_type