Changeset 4013 for palm

Timestamp:

Jun 3, 2019 7:19:03 AM (5 years ago)

Author:

raasch

Message:

index bugfix concerning reallocation of particle array

File:

• palm/trunk/SOURCE/lpm_exchange_horiz.f90 (modified) (4 diffs)

palm/trunk/SOURCE/lpm_exchange_horiz.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! index bugfix concerning reallocation of particle array
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! dz was replaced by dz(1) to allow for right vertical stretching
 ! 
@@ -1191 +1194 @@
 !> particle array to assure enough memory is available. 
 !------------------------------------------------------------------------------!
- SUBROUTINE realloc_particles_array (i,j,k,size_in)
+ SUBROUTINE realloc_particles_array( i, j, k, size_in )
 
     IMPLICIT NONE
@@ -1200 +1203 @@
     INTEGER(iwp), INTENT(in), OPTIONAL             ::  size_in        !<
 
-    INTEGER(iwp)                                   :: old_size        !<
-    INTEGER(iwp)                                   :: new_size        !<
-    TYPE(particle_type), DIMENSION(:), ALLOCATABLE :: tmp_particles_d !<
-    TYPE(particle_type), DIMENSION(500)            :: tmp_particles_s !<
+    INTEGER(iwp)                                   ::  old_size        !<
+    INTEGER(iwp)                                   ::  new_size        !<
+    TYPE(particle_type), DIMENSION(:), ALLOCATABLE ::  tmp_particles_d !<
+    TYPE(particle_type), DIMENSION(500)            ::  tmp_particles_s !<
 
     old_size = SIZE(grid_particles(k,j,i)%particles)
@@ -1239 +1242 @@
 
     ENDIF
-    particles => grid_particles(k,j,i)%particles(1:number_of_particles)
-
-    RETURN
+    particles => grid_particles(k,j,i)%particles(1:new_size)
+
  END SUBROUTINE realloc_particles_array
-
-