Changeset 1822 for palm/trunk/SOURCE/lpm_pack_arrays.f90

Timestamp:

Apr 7, 2016 7:49:42 AM (8 years ago)

Author:

hoffmann

Message:

changes in LPM and bulk cloud microphysics

File:

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

palm/trunk/SOURCE/lpm_pack_arrays.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Tails removed. Unused variables removed.
 !
 ! Former revisions:
@@ -51 +51 @@
 ! Description:
 ! ------------
-!> Pack particle and tail arrays, which means eliminate those elements marked for
+!> Pack particle arrays, which means eliminate those elements marked for
 !> deletion and move data with higher index values to these free indices.
 !> Determine the new number of particles.
@@ -59 +59 @@
 
     USE particle_attributes,                                                   &
-        ONLY:  deleted_tails, grid_particles, new_tail_id,                     &
-               number_of_particles, number_of_tails, offset_ocean_nzt,         &
-               particles, particle_type, prt_count,                            &
-               particle_tail_coordinates, tail_mask, use_particle_tails
+        ONLY:  grid_particles, number_of_particles, offset_ocean_nzt,          &
+               particles, particle_type, prt_count
 
     PRIVATE
@@ -127 +125 @@
 
        INTEGER(iwp) ::  n       !<
-       INTEGER(iwp) ::  nd      !<
        INTEGER(iwp) ::  nn      !<
 !
@@ -158 +155 @@
        number_of_particles = nn
 
-!
-!-- particle tails are currently not available
-!
-!-- Handle tail array in the same way, store the new tail ids and re-assign it
-!-- to the respective particles
-!    IF ( use_particle_tails )  THEN
-!
-!       nn = 0
-!       nd = 0
-!
-!       DO  n = 1, number_of_tails
-!
-!          IF ( tail_mask(n) )  THEN
-!             nn = nn + 1
-!             particle_tail_coordinates(:,:,nn) = &
-!                                                particle_tail_coordinates(:,:,n)
-!             new_tail_id(n) = nn
-!          ELSE
-!             nd = nd + 1
-!          ENDIF
-!
-!       ENDDO
-!
-!       DO  n = 1, number_of_particles
-!          IF ( particles(n)%tail_id /= 0 )  THEN
-!             particles(n)%tail_id = new_tail_id(particles(n)%tail_id)
-!          ENDIF
-!       ENDDO
-!
-!    ENDIF
-
-!
-!-- The number of deleted tails has been determined in routines
-!-- lpm_boundary_conds and lpm_exchange_horiz
-!   number_of_tails = number_of_tails - deleted_tails
-
-
     END SUBROUTINE lpm_pack_arrays
 
@@ -206 +166 @@
       USE control_parameters,                                                  &
           ONLY: dz
-
-      USE indices,                                                             &
-          ONLY: nxl, nxr, nys, nyn, nzb, nzt
 
       USE kinds