Changeset 3241 for palm/trunk/SOURCE/lpm_set_attributes.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

• palm/trunk/SOURCE/lpm_set_attributes.f90 (modified) (4 diffs)

palm/trunk/SOURCE/lpm_set_attributes.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! dz was replaced by dzw to allow for right vertical stretching
 ! 
@@ -83 +86 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  dzw, pt, u, v, w, zu, zw
+        ONLY:  dzw, pt, u, v, zu
 
     USE control_parameters,                                                    &
@@ -92 +95 @@
 
     USE dvrp_variables,                                                        &
-        ONLY:  color_interval, dvrp_colortable_entries_prt, dvrpsize_interval, &
-               particle_color, particle_dvrpsize
+        ONLY:  color_interval, dvrp_colortable_entries_prt, particle_color
 
     USE grid_variables,                                                        &
@@ -140 +142 @@
     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         !<