Changeset 3241 for palm/trunk/SOURCE/lpm_pack_arrays.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_pack_arrays.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_pack_arrays.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2801 2018-02-14 16:01:55Z thiele
 ! Introduce particle transfer in nested models.
 ! 
@@ -123 +126 @@
     SUBROUTINE lpm_sort_in_subboxes
 
-       USE cpulog,                                                              &
+       USE cpulog,                                                             &
           ONLY:  cpu_log, log_point_s
 
-       USE indices,                                                             &
+       USE indices,                                                            &
           ONLY:  nxl, nxr, nys, nyn, nzb, nzt
 
        USE kinds
 
-       USE control_parameters,                                                  &
-          ONLY: dz
-       
-       USE grid_variables,                                                      &
+       USE grid_variables,                                                     &
           ONLY: dx,dy,ddx, ddy
            
-       USE arrays_3d,                                                           &
+       USE arrays_3d,                                                          &
           ONLY:  zu
+
        IMPLICIT NONE
 
@@ -146 +147 @@
        INTEGER(iwp) ::  j  !<
        INTEGER(iwp) ::  jp !<
-       INTEGER(iwp) ::  k  !<
        INTEGER(iwp) ::  kp !<
        INTEGER(iwp) ::  m  !<