Changeset 3241 for palm/trunk/SOURCE/lpm_boundary_conds.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_boundary_conds.f90 (modified) (5 diffs)

palm/trunk/SOURCE/lpm_boundary_conds.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3189 2018-08-06 13:18:55Z Giersch
 ! Bugfix in calculation of the x/y indices for current particle postion
 ! 
@@ -119 +122 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  zu, zw
+        ONLY:  zw
 
     USE control_parameters,                                                    &
-        ONLY:  dz, message_string, particle_maximum_age
+        ONLY:  message_string, particle_maximum_age
 
     USE cpulog,                                                                &
@@ -131 +134 @@
 
     USE indices,                                                               &
-        ONLY:  nxl, nxr, nyn, nys, nz, nzb, wall_flags_0,nyng,nysg
+        ONLY:  nxl, nxr, nyn, nys, nz, wall_flags_0
 
     USE kinds
@@ -137 +140 @@
     USE particle_attributes,                                                   &
         ONLY:  deleted_particles, ibc_par_b, ibc_par_t, number_of_particles,   &
-               particles, particle_type, offset_ocean_nzt_m1,                  &
-               use_sgs_for_particles
+               particles, particle_type, use_sgs_for_particles
 
     USE pegrid
@@ -191 +193 @@
 
     REAL(wp) ::  dt_particle    !< particle timestep
-    REAL(wp) ::  dum            !< dummy argument
     REAL(wp) ::  eps = 1E-10_wp !< security number to check if particle has reached a wall
     REAL(wp) ::  pos_x          !< intermediate particle position (x)