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

Timestamp:

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

Author:

raasch

Message:

unused variables remove from several routines

File:

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

palm/trunk/SOURCE/lpm_collision_kernels.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -526 +526 @@
        LOGICAL, SAVE ::  first = .TRUE.
 
-       REAL, SAVE ::  cunh, eta, phy, py, rho_a, sigma, stb, stok, &
-                      t0, xlamb
+       REAL, SAVE ::  cunh, eta, phy, py, rho_a, sigma, stb, stok, xlamb
 
        REAL ::  bond, x, xrey, y
@@ -621 +620 @@
        IMPLICIT NONE
 
-       INTEGER ::  i, iq, ir, j, k, kk
+       INTEGER ::  i, iq, ir, j, k
 
        INTEGER, DIMENSION(:), ALLOCATABLE ::  ira
@@ -757 +756 @@
        IMPLICIT NONE
 
-       INTEGER :: i, ik, iq, ir, j, k, kk
+       INTEGER :: i, iq, ir, j, k, kk
 
        INTEGER, DIMENSION(:), ALLOCATABLE ::  ira
 
-       REAL ::  particle_radius, pp, qq, rq, x1, x2, x3, y1, y2, y3
+       REAL ::  particle_radius, pp, qq, rq, y1, y2, y3
 
        LOGICAL, SAVE ::  first = .TRUE.