Changeset 3241 for palm/trunk/SOURCE/lpm_advec.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/lpm_advec.f90 (modified) (10 diffs)

palm/trunk/SOURCE/lpm_advec.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3207 2018-08-27 12:55:33Z schwenkel
 ! Minor bugfix for sgs-velocities in case of cloud droplets
 ! 
@@ -175 +178 @@
 
     USE control_parameters,                                                    &
-        ONLY:  atmos_ocean_sign, cloud_droplets, constant_flux_layer, dt_3d,   &
-               dt_3d_reached_l, dz, g, kappa, topography, u_gtrans, v_gtrans
+        ONLY:  cloud_droplets, constant_flux_layer, dt_3d, dt_3d_reached_l,    &
+               dz, g, kappa, topography, u_gtrans, v_gtrans
 
     USE grid_variables,                                                        &
-        ONLY:  ddx, dx, ddy, dy
+        ONLY:  dx, dy
         
     USE indices,                                                               &
@@ -187 +190 @@
     
     USE particle_attributes,                                                   &
-        ONLY:  block_offset, c_0, dt_min_part, grid_particles,                 &
-               iran_part, log_z_z0, number_of_particles, number_of_sublayers,  &
-               particles, particle_groups, offset_ocean_nzt, sgs_wf_part,      &
+        ONLY:  block_offset, c_0, dt_min_part, grid_particles, iran_part,      &
+               log_z_z0, number_of_particles, number_of_sublayers,             &
+               particles, particle_groups, sgs_wf_part,                        &
                use_sgs_for_particles, vertical_particle_advection, z0_av_global
         
@@ -202 +205 @@
     LOGICAL ::  subbox_at_wall !< flag to see if the current subgridbox is adjacent to a wall
 
-    INTEGER(iwp) ::  agp                         !< loop variable
-    INTEGER(iwp) ::  gp_outside_of_building(1:8) !< number of grid points used for particle interpolation in case of topography 
     INTEGER(iwp) ::  i                           !< index variable along x
     INTEGER(iwp) ::  ip                          !< index variable along x 
@@ -214 +215 @@
     INTEGER(iwp) ::  n                           !< loop variable over all particles in a grid box
     INTEGER(iwp) ::  nb                          !< block number particles are sorted in
-    INTEGER(iwp) ::  num_gp                      !< number of adjacent grid points inside topography 
     INTEGER(iwp) ::  surf_start                  !< Index on surface data-type for current grid box 
 
@@ -223 +223 @@
     REAL(wp) ::  bb                 !< dummy argument for horizontal particle interpolation 
     REAL(wp) ::  cc                 !< dummy argument for horizontal particle interpolation 
-    REAL(wp) ::  d_sum              !< dummy argument for horizontal particle interpolation in case of topography 
     REAL(wp) ::  d_z_p_z0           !< inverse of interpolation length for logarithmic interpolation 
     REAL(wp) ::  dd                 !< dummy argument for horizontal particle interpolation 
@@ -246 +245 @@
     REAL(wp) ::  gg                 !< dummy argument for horizontal particle interpolation 
     REAL(wp) ::  height_p           !< dummy argument for logarithmic interpolation
-    REAL(wp) ::  location(1:30,1:3) !< wall locations
     REAL(wp) ::  log_z_z0_int       !< logarithmus used for surface_layer interpolation
     REAL(wp) ::  random_gauss       !<
@@ -276 +274 @@
     REAL(wp), PARAMETER ::  d0_rog = 0.745_wp    !< separation diameter
 
-    REAL(wp), DIMENSION(1:30) ::  d_gp_pl !< dummy argument for particle interpolation scheme in case of topography
-    REAL(wp), DIMENSION(1:30) ::  de_dxi  !< horizontal TKE gradient along x at adjacent wall 
-    REAL(wp), DIMENSION(1:30) ::  de_dyi  !< horizontal TKE gradient along y at adjacent wall 
-    REAL(wp), DIMENSION(1:30) ::  de_dzi  !< horizontal TKE gradient along z at adjacent wall 
-    REAL(wp), DIMENSION(1:30) ::  dissi   !< dissipation at adjacent wall
-    REAL(wp), DIMENSION(1:30) ::  ei      !< TKE at adjacent wall
-
     REAL(wp), DIMENSION(number_of_particles) ::  term_1_2       !< flag to communicate whether a particle is near topography or not
     REAL(wp), DIMENSION(number_of_particles) ::  dens_ratio     !<
@@ -1151 +1142 @@
     REAL(wp) ::  fac     !< flag to identify adjacent topography
     REAL(wp) ::  fs_n    !< weighting factor to prevent that subgrid-scale particle speed becomes too large
-    REAL(wp) ::  sgs_w   !< constant (1/3)
     REAL(wp) ::  rg_n    !< random number
     REAL(wp) ::  term1   !< memory term
@@ -1183 +1173 @@
 !
 !-- Random term
-    term3 = SQRT( MAX( a1, 1E-20 ) ) * ( rg_n - 1.0_wp ) * SQRT( dt_n )
+    term3 = SQRT( MAX( a1, 1E-20_wp ) ) * ( rg_n - 1.0_wp ) * SQRT( dt_n )
 !
 !-- In cese one of the adjacent grid-boxes belongs to topograhy, the previous