Changeset 2265 for palm/trunk/SOURCE/lpm_write_exchange_statistics.f90
- Timestamp:
- Jun 8, 2017 4:58:28 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_write_exchange_statistics.f90
r2101 r2265 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Unused variables removed. 28 ! 29 ! 2101 2017-01-05 16:42:31Z suehring 27 30 ! 28 31 ! 2000 2016-08-20 18:09:15Z knoop … … 68 71 69 72 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, & 72 74 trlp_count_sum, trlp_count_recv_sum, trnp_count_sum, & 73 75 trnp_count_recv_sum, trrp_count_sum, trrp_count_recv_sum, & … … 83 85 84 86 ! 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 87 88 number_of_particles = 0 88 maximum_number_of_particles = 089 89 DO ip = nxl, nxr 90 90 DO jp = nys, nyn … … 92 92 number_of_particles = number_of_particles & 93 93 + prt_count(kp,jp,ip) 94 maximum_number_of_particles = maximum_number_of_particles &95 + SIZE(grid_particles(kp,jp,ip)%particles)96 94 ENDDO 97 95 ENDDO … … 105 103 trrp_count_recv_sum, psouth, trsp_count_sum, & 106 104 trsp_count_recv_sum, pnorth, trnp_count_sum, & 107 trnp_count_recv_sum , maximum_number_of_particles105 trnp_count_recv_sum 108 106 CALL close_file( 80 ) 109 107 #else 110 108 WRITE ( 80, 8000 ) current_timestep_number+1, simulated_time+dt_3d, & 111 number_of_particles , maximum_number_of_particles109 number_of_particles 112 110 #endif 113 111
Note: See TracChangeset
for help on using the changeset viewer.