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

Timestamp:

Mar 20, 2014 8:40:49 AM (11 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_release_set.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_release_set.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! ONLY-attribute added to USE-statements,
+! kind-parameters added to all INTEGER and REAL declaration statements,
+! kinds are defined in new module kinds,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -40 +44 @@
 !------------------------------------------------------------------------------!
 
-    USE control_parameters
-    USE grid_variables
-    USE indices
-    USE particle_attributes
-    USE random_function_mod
+    USE control_parameters,                                                    &
+        ONLY:  iran, message_string, netcdf_data_format, netcdf_output
+
+    USE grid_variables,                                                        &
+        ONLY:  dx, dy
+
+    USE indices,                                                               &
+        ONLY:  nxl, nxr, nyn, nys
+
+    USE kinds
+
+    USE particle_attributes,                                                   &
+        ONLY:  initial_particles, iran_part, maximum_number_of_particles,      &
+               maximum_number_of_tails, minimum_tailpoint_distance,            &
+               number_of_initial_particles, number_of_initial_tails,           &
+               number_of_particles, number_of_tails, particles,                &
+               particle_tail_coordinates, pdx, pdy, pdz, psb, psl, psn, psr,   &
+               pss, pst, random_start_position, use_particle_tails
+
+    USE random_function_mod,                                                   &
+        ONLY:  random_function
 
     IMPLICIT NONE
 
-    INTEGER ::  ie, is, n, nn
+    INTEGER(iwp) ::  ie     !:
+    INTEGER(iwp) ::  is     !:
+    INTEGER(iwp) ::  n      !:
+    INTEGER(iwp) ::  nn     !: