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_droplet_collision.f90

    r1072 r1092  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    7474    IMPLICIT NONE
    7575
    76     INTEGER ::  eclass, i, ii, inc, is, j, jj, js, k, kk, n, pse, psi,       &
    77                 rclass_l, rclass_s
    78 
    79     REAL ::  aa, bb, cc, dd, delta_r, delta_v, gg, epsilon, integral, lw_max, &
    80              mean_r, ql_int, ql_int_l, ql_int_u, u_int, u_int_l, u_int_u,     &
    81              v_int, v_int_l, v_int_u, w_int, w_int_l, w_int_u, sl_r3, sl_r4, &
    82              x, y, sum1, sum2, sum3, r3, ddV
     76    INTEGER ::  eclass, i, ii, inc, is, j, jj, js, k, kk, n, pse, psi, rclass_l, &
     77                rclass_s
     78
     79    REAL ::  aa, bb, cc, dd, delta_r, delta_v, gg, epsilon, mean_r, ql_int,    &
     80             ql_int_l, ql_int_u, u_int, u_int_l, u_int_u, v_int, v_int_l,      &
     81             v_int_u, w_int, w_int_l, w_int_u, sl_r3, sl_r4, x, y, sum1, sum2, &
     82             sum3, r3, ddV
    8383
    8484    TYPE(particle_type) ::  tmp_particle
Note: See TracChangeset for help on using the changeset viewer.