Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:
1 edited

Legend:

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

    r3065 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3065 2018-06-12 07:03:02Z Giersch
    2730! dz was replaced by dzw to allow for right vertical stretching
    2831!
     
    8386
    8487    USE arrays_3d,                                                             &
    85         ONLY:  dzw, pt, u, v, w, zu, zw
     88        ONLY:  dzw, pt, u, v, zu
    8689
    8790    USE control_parameters,                                                    &
     
    9295
    9396    USE dvrp_variables,                                                        &
    94         ONLY:  color_interval, dvrp_colortable_entries_prt, dvrpsize_interval, &
    95                particle_color, particle_dvrpsize
     97        ONLY:  color_interval, dvrp_colortable_entries_prt, particle_color
    9698
    9799    USE grid_variables,                                                        &
     
    140142    REAL(wp)    ::  v_int_l   !<
    141143    REAL(wp)    ::  v_int_u   !<
    142     REAL(wp)    ::  w_int     !<
    143     REAL(wp)    ::  w_int_l   !<
    144     REAL(wp)    ::  w_int_u   !<
    145144    REAL(wp)    ::  x         !<
    146145    REAL(wp)    ::  y         !<
Note: See TracChangeset for help on using the changeset viewer.