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

Timestamp:

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

Author:

schwenkel

Message:

unused variables removed

File:

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

palm/trunk/SOURCE/lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Unused variables removed.
+! 
+! 2263 2017-06-08 14:59:01Z schwenkel
 ! Implemented splitting and merging algorithm
 ! 
@@ -177 +180 @@
         ONLY:   alloc_factor, bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,        &
                 block_offset, block_offset_def, collision_kernel,              &
-                curvature_solution_effects,                                    &
-                density_ratio, grid_particles, isf,i_splitting_mode,           &
-                initial_weighting_factor, ibc_par_b, ibc_par_lr, ibc_par_ns,   &
-                ibc_par_t, iran_part, log_z_z0,                                &
-                max_number_of_particle_groups, maximum_number_of_particles,    &
-                min_nr_particle, mpi_particle_type,                            &
-                number_concentration, number_particles_per_gridbox,            &
-                number_of_particles,                                           &
+                curvature_solution_effects, density_ratio, grid_particles,     &
+                isf,i_splitting_mode, initial_weighting_factor, ibc_par_b,     &
+                ibc_par_lr, ibc_par_ns, ibc_par_t, iran_part, log_z_z0,        &
+                max_number_of_particle_groups, min_nr_particle,                &
+                mpi_particle_type, number_concentration,                       &
+                number_particles_per_gridbox,  number_of_particles,            &
                 number_of_particle_groups, number_of_sublayers,                &
                 offset_ocean_nzt, offset_ocean_nzt_m1,                         &
                 particles, particle_advection_start, particle_groups,          &
                 particle_groups_type, particles_per_point,                     &
-                particle_type, pdx, pdy, pdz,                                  &
-                prt_count, psb, psl, psn, psr, pss, pst,                       &
-                radius, random_start_position, read_particles_from_restartfile,&
-                seed_follows_topography, sgs_wf_part, sort_count,              &
-                splitting_function, splitting_mode, total_number_of_particles,  &
-                use_sgs_for_particles,                                         &
-                write_particle_statistics, uniform_particles, zero_particle,   &
-                z0_av_global
+                particle_type, pdx, pdy, pdz,  prt_count, psb, psl, psn, psr,  & 
+                pss, pst, radius, random_start_position,                       &  
+                read_particles_from_restartfile, seed_follows_topography,      &
+                sgs_wf_part, sort_count, splitting_function, splitting_mode,   &
+                total_number_of_particles, use_sgs_for_particles,              &
+                write_particle_statistics, zero_particle, z0_av_global
 
     USE pegrid
@@ -532 +531 @@
                  grid_particles(nzb+1:nzt,nys:nyn,nxl:nxr) )
 
-       maximum_number_of_particles = 0
        number_of_particles         = 0
 
@@ -592 +590 @@
           CALL check_open( 80 )
           WRITE ( 80, 8000 )  current_timestep_number, simulated_time,         &
-                              number_of_particles,                             &
-                              maximum_number_of_particles
+                              number_of_particles                             
           CALL close_file( 80 )
        ENDIF
@@ -956 +953 @@
 
 !
-!-- 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
     DO  ip = nxl, nxr
        DO  jp = nys, nyn
           DO  kp = nzb+1, nzt
-             maximum_number_of_particles = maximum_number_of_particles         &
-                                           + SIZE(grid_particles(kp,jp,ip)%particles)
              number_of_particles         = number_of_particles                 &
                                            + prt_count(kp,jp,ip)