Changeset 1320 for palm/trunk/SOURCE/lpm_sort_arrays.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_sort_arrays.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_sort_arrays.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:
@@ -41 +45 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE control_parameters
-    USE cpulog
-    USE grid_variables
-    USE indices
-    USE particle_attributes
+    USE control_parameters,                                                     &
+        ONLY:  message_string, dz
+
+    USE cpulog,                                                                 &
+        ONLY:  cpu_log, log_point_s
+
+    USE grid_variables,                                                         &
+        ONLY:  ddx, dx, ddy, dy
+
+    USE indices,                                                                &
+        ONLY:  nxl, nxr, nyn, nys, nzb, nzt
+
+    USE kinds
+
+    USE particle_attributes,                                                    &
+        ONLY:  number_of_particles, offset_ocean_nzt, part_1, part_2, particles,&
+               particle_type, prt_count, prt_start_index, sort_count
 
     IMPLICIT NONE
 
-    INTEGER ::  i, ilow, j, k, n
+    INTEGER(iwp) ::  i                                            !:
+    INTEGER(iwp) ::  ilow                                         !:
+    INTEGER(iwp) ::  j                                            !:
+    INTEGER(iwp) ::  k                                            !:
+    INTEGER(iwp) ::  n                                            !:
 
-    TYPE(particle_type), DIMENSION(:), POINTER ::  particles_temp
+    TYPE(particle_type), DIMENSION(:), POINTER ::  particles_temp !: