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/transpose.f90

    r2718 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    100103
    101104     USE transpose_indices,                                                    &
    102          ONLY:  nxl_z, nxr_z, nyn_x, nyn_z, nys_x, nys_z, nzb_x, nzt_x
     105         ONLY:  nyn_x, nys_x, nzb_x, nzt_x
    103106
    104107     IMPLICIT NONE
     
    269272
    270273    USE indices,                                                               &
    271         ONLY:  nnx, nx, nxl, nxr, ny, nyn, nys, nz
     274        ONLY:  nnx, nx, nxl, nxr, nyn, nys, nz
    272275
    273276    USE kinds
     
    486489
    487490    USE cpulog,                                                                &
    488         ONLY:  cpu_log, cpu_log_nowait, log_point_s
     491        ONLY:  cpu_log, log_point_s
    489492
    490493    USE indices,                                                               &
     
    855858
    856859!------------------------------------------------------------------------------!
    857 ! Description:
     860! Description:cpu_log_nowait
    858861! ------------
    859862!> Transposition of input array (f_in) from z to y. For the input array, all
     
    954957
    955958    USE cpulog,                                                                &
    956         ONLY:  cpu_log, cpu_log_nowait, log_point_s
     959        ONLY:  cpu_log, log_point_s
    957960
    958961    USE indices,                                                               &
     
    964967
    965968    USE transpose_indices,                                                     &
    966         ONLY:  nxl_y, nxl_yd, nxr_y, nxr_yd, nzb_y, nzb_yd, nzt_y, nzt_yd
     969        ONLY:  nxl_yd, nxr_yd, nzb_yd, nzt_yd
    967970
    968971    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.