Changeset 1359 for palm/trunk/SOURCE/lpm_extend_tail_array.f90
- Timestamp:
- Apr 11, 2014 5:15:14 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_extend_tail_array.f90
r1321 r1359 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! New particle structure integrated. 23 ! Kind definition added to all floating point numbers. 23 24 ! 24 25 ! Former revisions: … … 86 87 maximum_number_of_tails = new_maximum_number 87 88 88 particle_tail_coordinates = 0.0 89 particle_tail_coordinates = 0.0_wp 89 90 particle_tail_coordinates(:,:,1:number_of_tails) = & 90 91 tmp_tail(:,:,1:number_of_tails)
Note: See TracChangeset
for help on using the changeset viewer.