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_write_exchange_statistics.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
     
    6871
    6972    USE particle_attributes,                                                   &
    70         ONLY:  grid_particles, maximum_number_of_particles,                    &
    71                number_of_particles, prt_count,                                 &
     73        ONLY:  grid_particles,  number_of_particles, prt_count,                &
    7274               trlp_count_sum, trlp_count_recv_sum, trnp_count_sum,            &
    7375               trnp_count_recv_sum, trrp_count_sum, trrp_count_recv_sum,       &
     
    8385
    8486!
    85 !-- Determine maximum number of particles (i.e., all possible particles that
    86 !-- have been allocated) and the current number of particles
     87!-- Determine the current number of particles
    8788    number_of_particles         = 0
    88     maximum_number_of_particles = 0
    8989    DO  ip = nxl, nxr
    9090       DO  jp = nys, nyn
     
    9292             number_of_particles = number_of_particles                         &
    9393                                     + prt_count(kp,jp,ip)
    94              maximum_number_of_particles = maximum_number_of_particles         &
    95                                      + SIZE(grid_particles(kp,jp,ip)%particles)
    9694          ENDDO
    9795       ENDDO
     
    105103                        trrp_count_recv_sum, psouth, trsp_count_sum,     &
    106104                        trsp_count_recv_sum, pnorth, trnp_count_sum,     &
    107                         trnp_count_recv_sum, maximum_number_of_particles
     105                        trnp_count_recv_sum
    108106    CALL close_file( 80 )
    109107#else
    110108    WRITE ( 80, 8000 )  current_timestep_number+1, simulated_time+dt_3d, &
    111                         number_of_particles, maximum_number_of_particles
     109                        number_of_particles
    112110#endif
    113111
Note: See TracChangeset for help on using the changeset viewer.