Changeset 1092 for palm/trunk/SOURCE/lpm_droplet_collision.f90

Timestamp:

Feb 2, 2013 11:24:22 AM (11 years ago)

Author:

raasch

Message:

unused variables remove from several routines

File:

• palm/trunk/SOURCE/lpm_droplet_collision.f90 (modified) (2 diffs)

palm/trunk/SOURCE/lpm_droplet_collision.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -74 +74 @@
     IMPLICIT NONE
 
-    INTEGER ::  eclass, i, ii, inc, is, j, jj, js, k, kk, n, pse, psi,        &
-                rclass_l, rclass_s
-
-    REAL ::  aa, bb, cc, dd, delta_r, delta_v, gg, epsilon, integral, lw_max, &
-             mean_r, ql_int, ql_int_l, ql_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, sl_r3, sl_r4,  &
-             x, y, sum1, sum2, sum3, r3, ddV
+    INTEGER ::  eclass, i, ii, inc, is, j, jj, js, k, kk, n, pse, psi, rclass_l, &
+                rclass_s
+
+    REAL ::  aa, bb, cc, dd, delta_r, delta_v, gg, epsilon, mean_r, ql_int,    &
+             ql_int_l, ql_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, sl_r3, sl_r4, x, y, sum1, sum2, &
+             sum3, r3, ddV
 
     TYPE(particle_type) ::  tmp_particle