Changeset 1320 for palm/trunk/SOURCE/lpm_write_restart_file.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_write_restart_file.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: … … 38 42 !------------------------------------------------------------------------------! 39 43 40 USE control_parameters 41 USE particle_attributes 44 USE control_parameters, & 45 ONLY: io_blocks, io_group 46 47 USE kinds 48 49 USE particle_attributes, & 50 ONLY: bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, initial_particles, & 51 maximum_number_of_particles, maximum_number_of_tails, & 52 maximum_number_of_tailpoints, number_of_initial_particles, & 53 number_of_particles, number_of_particle_groups, number_of_tails, & 54 particles, particle_groups, particle_tail_coordinates, prt_count, & 55 prt_start_index, time_prel, time_write_particle_data, & 56 uniform_particles, use_particle_tails 57 42 58 USE pegrid 43 59 44 60 IMPLICIT NONE 45 61 46 CHARACTER (LEN=10) :: particle_binary_version 47 INTEGER :: i62 CHARACTER (LEN=10) :: particle_binary_version !: 63 INTEGER(iwp) :: i !: 48 64 49 65 !
Note: See TracChangeset
for help on using the changeset viewer.