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

    r2718 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed,
     28! declarations of omp_get_thread_num now as omp-directive
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2731! Corrected "Former revisions" section
    2832!
     
    189193! Description:
    190194! ------------
    191 !> @todo Missing subroutine description.
     195!> Setup coefficients for FFT and the tridiagonal solver
    192196!------------------------------------------------------------------------------!
    193197    SUBROUTINE poisfft_init
    194198
    195        USE arrays_3d,                                                          &
    196            ONLY:  ddzu_pres, ddzw
    197 
    198        USE kinds
    199 
    200199       IMPLICIT NONE
    201 
    202        INTEGER(iwp) ::  k  !<
    203200
    204201
     
    221218
    222219       USE control_parameters,                                                 &
    223            ONLY:  fft_method, transpose_compute_overlap
     220           ONLY:  transpose_compute_overlap
    224221
    225222       USE cpulog,                                                             &
     
    245242       INTEGER(iwp) ::  nnx_y        !<
    246243       INTEGER(iwp) ::  nny_z        !<
    247        INTEGER(iwp) ::  nnz_t        !<
    248244       INTEGER(iwp) ::  nnz_x        !<
    249245       INTEGER(iwp) ::  nxl_y_bound  !<
     
    10121008       INTEGER(iwp) ::  m                   !<
    10131009       INTEGER(iwp) ::  n                   !<
    1014        INTEGER(iwp) ::  omp_get_thread_num  !<
     1010!$     INTEGER(iwp) ::  omp_get_thread_num  !<
    10151011       INTEGER(iwp) ::  tn                  !<
    10161012
     
    13831379       INTEGER(iwp) ::  m                   !<
    13841380       INTEGER(iwp) ::  n                   !<
    1385        INTEGER(iwp) ::  omp_get_thread_num  !<
     1381!$     INTEGER(iwp) ::  omp_get_thread_num  !<
    13861382       INTEGER(iwp) ::  tn                  !<
    13871383
Note: See TracChangeset for help on using the changeset viewer.