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

palm/trunk/SOURCE/transpose.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -100 +103 @@
 
      USE transpose_indices,                                                    &
-         ONLY:  nxl_z, nxr_z, nyn_x, nyn_z, nys_x, nys_z, nzb_x, nzt_x
+         ONLY:  nyn_x, nys_x, nzb_x, nzt_x
 
      IMPLICIT NONE
@@ -269 +272 @@
 
     USE indices,                                                               &
-        ONLY:  nnx, nx, nxl, nxr, ny, nyn, nys, nz
+        ONLY:  nnx, nx, nxl, nxr, nyn, nys, nz
 
     USE kinds
@@ -486 +489 @@
 
     USE cpulog,                                                                &
-        ONLY:  cpu_log, cpu_log_nowait, log_point_s
+        ONLY:  cpu_log, log_point_s
 
     USE indices,                                                               &
@@ -855 +858 @@
 
 !------------------------------------------------------------------------------!
-! Description:
+! Description:cpu_log_nowait
 ! ------------
 !> Transposition of input array (f_in) from z to y. For the input array, all
@@ -954 +957 @@
 
     USE cpulog,                                                                &
-        ONLY:  cpu_log, cpu_log_nowait, log_point_s
+        ONLY:  cpu_log, log_point_s
 
     USE indices,                                                               &
@@ -964 +967 @@
 
     USE transpose_indices,                                                     &
-        ONLY:  nxl_y, nxl_yd, nxr_y, nxr_yd, nzb_y, nzb_yd, nzt_y, nzt_yd
+        ONLY:  nxl_yd, nxr_yd, nzb_yd, nzt_yd
 
     IMPLICIT NONE