Changeset 792 for palm/trunk/SOURCE/init_particles.f90
- Timestamp:
- Dec 1, 2011 12:23:23 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_particles.f90
r668 r792 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! array particles implemented as pointer 6 7 ! 7 8 ! Former revisions: … … 190 191 ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg), & 191 192 prt_start_index(nzb:nzt+1,nysg:nyng,nxlg:nxrg), & 192 particle_mask(maximum_number_of_particles), & 193 particles(maximum_number_of_particles) ) 193 particle_mask(maximum_number_of_particles), & 194 part_1(maximum_number_of_particles), & 195 part_2(maximum_number_of_particles) ) 196 197 part_1 = particle_type( 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 198 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 199 0.0, 0, 0, 0, 0 ) 200 201 part_2 = particle_type( 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 202 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 203 0.0, 0, 0, 0, 0 ) 204 205 sort_count = 0 206 207 particles => part_1 194 208 195 209 READ ( 90 ) prt_count, prt_start_index … … 214 228 ALLOCATE( prt_count(nzb:nzt+1,nysg:nyng,nxlg:nxrg), & 215 229 prt_start_index(nzb:nzt+1,nysg:nyng,nxlg:nxrg), & 216 particle_mask(maximum_number_of_particles), & 217 particles(maximum_number_of_particles) ) 230 particle_mask(maximum_number_of_particles), & 231 part_1(maximum_number_of_particles), & 232 part_2(maximum_number_of_particles) ) 233 234 particles => part_1 235 236 sort_count = 0 218 237 219 238 !
Note: See TracChangeset
for help on using the changeset viewer.