Changeset 4589

Timestamp:

Jul 6, 2020 12:34:09 PM (4 years ago)

Author:

suehring

Message:

remove unused variable

File:

• palm/trunk/SOURCE/lagrangian_particle_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lagrangian_particle_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! remove unused variables
+! 
+! 4588 2020-07-06 11:06:02Z suehring
 ! Simplify particle-speed interpolation in logarithmic layer
 ! 
@@ -169 +172 @@
         ONLY:  de_dx, de_dy, de_dz,                                            &
                d_exner,                                                        &
-               drho_air_zw,                                                    &
                dzw, zu, zw,  ql_c, ql_v, ql_vp, hyp,                           &
                pt, q, exner, ql, diss, e, u, v, w, km, ql_1, ql_2
@@ -3444 +3446 @@
     INTEGER(iwp) ::  particle_end                !< end index for partilce loop
     INTEGER(iwp) ::  particle_start              !< start index for particle loop
-    INTEGER(iwp) ::  surf_start                  !< Index on surface data-type for current grid box
     INTEGER(iwp) ::  subbox_end                  !< end index for loop over subboxes in particle advection
     INTEGER(iwp) ::  subbox_start                !< start index for loop over subboxes in particle advection