Changeset 4589 for palm


Ignore:
Timestamp:
Jul 6, 2020 12:34:09 PM (4 years ago)
Author:
suehring
Message:

remove unused variable

File:
1 edited

Legend:

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

    r4588 r4589  
    2525! -----------------
    2626! $Id$
     27! remove unused variables
     28!
     29! 4588 2020-07-06 11:06:02Z suehring
    2730! Simplify particle-speed interpolation in logarithmic layer
    2831!
     
    169172        ONLY:  de_dx, de_dy, de_dz,                                            &
    170173               d_exner,                                                        &
    171                drho_air_zw,                                                    &
    172174               dzw, zu, zw,  ql_c, ql_v, ql_vp, hyp,                           &
    173175               pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2
     
    34443446    INTEGER(iwp) ::  particle_end                !< end index for partilce loop
    34453447    INTEGER(iwp) ::  particle_start              !< start index for particle loop
    3446     INTEGER(iwp) ::  surf_start                  !< Index on surface data-type for current grid box
    34473448    INTEGER(iwp) ::  subbox_end                  !< end index for loop over subboxes in particle advection
    34483449    INTEGER(iwp) ::  subbox_start                !< start index for loop over subboxes in particle advection
Note: See TracChangeset for help on using the changeset viewer.