Changeset 1320 for palm/trunk/SOURCE/lpm_read_restart_file.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (10 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

• palm/trunk/SOURCE/lpm_read_restart_file.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_read_restart_file.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! ONLY-attribute added to USE-statements,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -38 +40 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
-    USE indices
-    USE particle_attributes
+    USE control_parameters,                                                    &
+        ONLY:  message_string
+
+    USE indices,                                                               &
+        ONLY:  nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz, nzb, nzt
+
+    USE particle_attributes,                                                   &
+        ONLY:  bc_par_b, bc_par_lr, bc_par_ns, bc_par_t, initial_particles,    &
+               number_of_initial_particles, maximum_number_of_particles,       &
+               maximum_number_of_tailpoints, maximum_number_of_tails,          &
+               new_tail_id, number_of_particles, number_of_particle_groups,    &
+               number_of_tails, particles, particle_groups, particle_mask,     &
+               particle_tail_coordinates, particle_type, part_1, part_2,       &
+               prt_count, prt_start_index,  sort_count, tail_mask, time_prel,  &
+               time_write_particle_data, uniform_particles, use_particle_tails
+
+
     USE pegrid
 
     IMPLICIT NONE
 
-    CHARACTER (LEN=10) ::  particle_binary_version, version_on_file
+    CHARACTER (LEN=10) ::  particle_binary_version    !:
+    CHARACTER (LEN=10) ::  version_on_file            !:
 
 !