Changeset 2265 for palm/trunk/SOURCE/lpm_write_exchange_statistics.f90

Timestamp:

Jun 8, 2017 4:58:28 PM (7 years ago)

Author:

schwenkel

Message:

unused variables removed

File:

• palm/trunk/SOURCE/lpm_write_exchange_statistics.f90 (modified) (5 diffs)

palm/trunk/SOURCE/lpm_write_exchange_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Unused variables removed.
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -68 +71 @@
 
     USE particle_attributes,                                                   &
-        ONLY:  grid_particles, maximum_number_of_particles,                    &
-               number_of_particles, prt_count,                                 &
+        ONLY:  grid_particles,  number_of_particles, prt_count,                &
                trlp_count_sum, trlp_count_recv_sum, trnp_count_sum,            &
                trnp_count_recv_sum, trrp_count_sum, trrp_count_recv_sum,       &
@@ -83 +85 @@
 
 !
-!-- Determine maximum number of particles (i.e., all possible particles that 
-!-- have been allocated) and the current number of particles
+!-- Determine the current number of particles
     number_of_particles         = 0
-    maximum_number_of_particles = 0
     DO  ip = nxl, nxr
        DO  jp = nys, nyn
@@ -92 +92 @@
              number_of_particles = number_of_particles                         &
                                      + prt_count(kp,jp,ip)
-             maximum_number_of_particles = maximum_number_of_particles         &
-                                     + SIZE(grid_particles(kp,jp,ip)%particles)
           ENDDO
        ENDDO
@@ -105 +103 @@
                         trrp_count_recv_sum, psouth, trsp_count_sum,     &
                         trsp_count_recv_sum, pnorth, trnp_count_sum,     &
-                        trnp_count_recv_sum, maximum_number_of_particles
+                        trnp_count_recv_sum
     CALL close_file( 80 )
 #else
     WRITE ( 80, 8000 )  current_timestep_number+1, simulated_time+dt_3d, &
-                        number_of_particles, maximum_number_of_particles
+                        number_of_particles
 #endif