Changeset 1320 for palm/trunk/SOURCE/lpm_set_attributes.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_set_attributes.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_set_attributes.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,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements
 !
 ! Former revisions:
@@ -37 +42 @@
 ! 828 2012-02-21 12:00:36Z raasch
 ! particle feature color renamed class
-!
-! 622 2010-12-10 08:08:13Z raasch
-! optional barriers included in order to speed up collective operations
 !
 ! 271 2009-03-26 00:47:14Z raasch
@@ -50 +52 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE control_parameters
-    USE cpulog
-    USE dvrp_variables
-    USE grid_variables
-    USE indices
-    USE particle_attributes
+    USE arrays_3d,                                                             &
+        ONLY:  pt, u, v, w, zu, zw
+
+    USE control_parameters,                                                    &
+        ONLY:  atmos_ocean_sign, u_gtrans, v_gtrans, dz
+
+    USE cpulog,                                                                &
+        ONLY:  cpu_log, log_point_s
+
+    USE dvrp_variables,                                                        &
+        ONLY:  color_interval, dvrp_colortable_entries_prt, dvrpsize_interval, &
+               particle_color, particle_dvrpsize
+
+    USE grid_variables,                                                        &
+        ONLY:  ddx, dx, ddy, dy
+
+    USE indices,                                                               &
+        ONLY:  ngp_2dh, nxl, nxr, nyn, nys, nzb, nzt
+
+    USE kinds
+
+    USE particle_attributes,                                                   &
+        ONLY:  number_of_particles, offset_ocean_nzt, particles
+
     USE pegrid
-    USE statistics
+
+    USE statistics,                                                            &
+        ONLY:  sums, sums_l
 
     IMPLICIT NONE
 
-    INTEGER ::  i, j, k, n
-    REAL    ::  aa, absuv, bb, cc, dd, gg, height, pt_int, pt_int_l, pt_int_u, &
-                u_int, u_int_l, u_int_u, v_int, v_int_l, v_int_u, w_int,       &
-                w_int_l, w_int_u, x, y
-
+    INTEGER(iwp) ::  i        !:
+    INTEGER(iwp) ::  j        !:
+    INTEGER(iwp) ::  k        !:
+    INTEGER(iwp) ::  n        !:
+
+    REAL(wp)    ::  aa        !:
+    REAL(wp)    ::  absuv     !:
+    REAL(wp)    ::  bb        !:
+    REAL(wp)    ::  cc        !:
+    REAL(wp)    ::  dd        !:
+    REAL(wp)    ::  gg        !:
+    REAL(wp)    ::  height    !:
+    REAL(wp)    ::  pt_int    !:
+    REAL(wp)    ::  pt_int_l  !:
+    REAL(wp)    ::  pt_int_u  !:
+    REAL(wp)    ::  u_int     !:
+    REAL(wp)    ::  u_int_l   !:
+    REAL(wp)    ::  u_int_u   !:
+    REAL(wp)    ::  v_int     !:
+    REAL(wp)    ::  v_int_l   !:
+    REAL(wp)    ::  v_int_u   !:
+    REAL(wp)    ::  w_int     !:
+    REAL(wp)    ::  w_int_l   !:
+    REAL(wp)    ::  w_int_u   !:
+    REAL(wp)    ::  x         !:
+    REAL(wp)    ::  y         !:
 
     CALL cpu_log( log_point_s(49), 'lpm_set_attributes', 'start' )