Ignore:
Timestamp:
Jun 18, 2019 4:59:00 PM (2 years ago)
Author:
schwenkel
Message:

further modularization of lpm and delete min_nr_particle

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_particle_interface.f90

    r4017 r4043  
    2626! -----------------!
    2727! $Id$
     28! Remove min_nr_particle
     29!
     30! 4017 2019-06-06 12:16:46Z schwenkel
    2831! coarse bound renamed as parent_bound and icl, icr, jcs, jcn as ipl, ipr, jps, jpn.
    2932!
     
    9093       ONLY:  prt_count, particles, grid_particles,                            &
    9194              particle_type, number_of_particles, zero_particle,               &
    92               ibc_par_t, ibc_par_lr, ibc_par_ns, alloc_factor, min_nr_particle
     95              ibc_par_t, ibc_par_lr, ibc_par_ns, alloc_factor
    9396
    9497!    USE lpm_pack_and_sort_mod
     
    11801183    ENDIF
    11811184
    1182     new_size = MAX( new_size, min_nr_particle, old_size + 1 )
     1185    new_size = MAX( new_size, 1, old_size + 1 )
    11831186
    11841187    IF ( old_size <= 500 )  THEN
Note: See TracChangeset for help on using the changeset viewer.