Changeset 1320 for palm/trunk/SOURCE/lpm_pack_arrays.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_pack_arrays.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! ONLY-attribute added to USE-statements, 23 ! kind-parameters added to all INTEGER and REAL declaration statements, 24 ! kinds are defined in new module kinds, 25 ! comment fields (!:) to be used for variable explanations added to 26 ! all variable declaration statements 23 27 ! 24 28 ! Former revisions: … … 40 44 !------------------------------------------------------------------------------! 41 45 42 USE particle_attributes 46 USE kinds 47 48 USE particle_attributes, & 49 ONLY: deleted_particles, deleted_tails, new_tail_id, & 50 number_of_particles, number_of_tails, particles, particle_mask, & 51 particle_tail_coordinates, tail_mask, use_particle_tails 52 43 53 44 54 IMPLICIT NONE 45 55 46 INTEGER :: n, nd, nn47 48 56 INTEGER(iwp) :: n !: 57 INTEGER(iwp) :: nd !: 58 INTEGER(iwp) :: nn !: 49 59 ! 50 60 !-- Find out elements marked for deletion and move data with higher index
Note: See TracChangeset
for help on using the changeset viewer.