Ignore:
Timestamp:
Feb 2, 2013 11:24:22 AM (9 years ago)
Author:
raasch
Message:

unused variables remove from several routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/lpm_collision_kernels.f90

    r1072 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    526526       LOGICAL, SAVE ::  first = .TRUE.
    527527
    528        REAL, SAVE ::  cunh, eta, phy, py, rho_a, sigma, stb, stok, &
    529                       t0, xlamb
     528       REAL, SAVE ::  cunh, eta, phy, py, rho_a, sigma, stb, stok, xlamb
    530529
    531530       REAL ::  bond, x, xrey, y
     
    621620       IMPLICIT NONE
    622621
    623        INTEGER ::  i, iq, ir, j, k, kk
     622       INTEGER ::  i, iq, ir, j, k
    624623
    625624       INTEGER, DIMENSION(:), ALLOCATABLE ::  ira
     
    757756       IMPLICIT NONE
    758757
    759        INTEGER :: i, ik, iq, ir, j, k, kk
     758       INTEGER :: i, iq, ir, j, k, kk
    760759
    761760       INTEGER, DIMENSION(:), ALLOCATABLE ::  ira
    762761
    763        REAL ::  particle_radius, pp, qq, rq, x1, x2, x3, y1, y2, y3
     762       REAL ::  particle_radius, pp, qq, rq, y1, y2, y3
    764763
    765764       LOGICAL, SAVE ::  first = .TRUE.
Note: See TracChangeset for help on using the changeset viewer.