Changeset 4043 for palm/trunk/SOURCE/pmc_particle_interface.f90

Timestamp:

Jun 18, 2019 4:59:00 PM (5 years ago)

Author:

schwenkel

Message:

further modularization of lpm and delete min_nr_particle

File:

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

palm/trunk/SOURCE/pmc_particle_interface.f90

@@ -26 +26 @@
 ! -----------------! 
 ! $Id$
+! Remove min_nr_particle
+! 
+! 4017 2019-06-06 12:16:46Z schwenkel
 ! coarse bound renamed as parent_bound and icl, icr, jcs, jcn as ipl, ipr, jps, jpn.
 ! 
@@ -90 +93 @@
        ONLY:  prt_count, particles, grid_particles,                            &
               particle_type, number_of_particles, zero_particle,               &
-              ibc_par_t, ibc_par_lr, ibc_par_ns, alloc_factor, min_nr_particle
+              ibc_par_t, ibc_par_lr, ibc_par_ns, alloc_factor
 
 !    USE lpm_pack_and_sort_mod
@@ -1180 +1183 @@
     ENDIF
 
-    new_size = MAX( new_size, min_nr_particle, old_size + 1 )
+    new_size = MAX( new_size, 1, old_size + 1 )
 
     IF ( old_size <= 500 )  THEN