Ignore:
Timestamp:
Jun 8, 2017 4:58:28 PM (4 years ago)
Author:
schwenkel
Message:

unused variables removed

File:
1 edited

Legend:

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

    r2101 r2265  
    2525! -----------------
    2626! $Id$
     27! Unused variables removed.
     28!
     29! 2101 2017-01-05 16:42:31Z suehring
    2730!
    2831! 2000 2016-08-20 18:09:15Z knoop
     
    7073    USE particle_attributes,                                                   &
    7174        ONLY:  alloc_factor, bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,         &
    72                grid_particles, maximum_number_of_particles,                    &
    73                min_nr_particle, number_of_particles, number_of_particle_groups,&
    74                particle_groups, particle_type, prt_count, time_prel,           &
    75                time_write_particle_data, uniform_particles, zero_particle
     75               grid_particles, min_nr_particle, number_of_particles,           &
     76               number_of_particle_groups, particle_groups, particle_type,      &
     77               prt_count, time_prel, time_write_particle_data, zero_particle
    7678
    7779    USE pegrid
     
    127129    READ ( 90 )  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t,                  &
    128130                 number_of_particle_groups, particle_groups, time_prel,     &
    129                  time_write_particle_data, uniform_particles
     131                 time_write_particle_data
    130132
    131133    ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg),                     &
     
    134136    READ ( 90 )  prt_count
    135137
    136     maximum_number_of_particles = 0
    137138    DO  ip = nxl, nxr
    138139       DO  jp = nys, nyn
     
    163164             ENDIF
    164165
    165              maximum_number_of_particles = maximum_number_of_particles + alloc_size
    166 
    167166          ENDDO
    168167       ENDDO
Note: See TracChangeset for help on using the changeset viewer.