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

    r3045 r3241  
    2525! -----------------
    2626! $Id$
     27! preprocessor switches for variables that are required on NEC only
     28!
     29! 3045 2018-05-28 07:55:41Z Giersch
    2730! Error messages revised
    2831!
     
    15151518       INTEGER(iwp) ::  k     !<
    15161519       INTEGER(iwp) ::  siza  !<
    1517        INTEGER(iwp) ::  sizw  !< required on NEC only
     1520#if defined( __nec )
     1521       INTEGER(iwp) ::  sizw
     1522#endif
    15181523
    15191524       REAL(wp), DIMENSION(0:nx,nz)       ::  ar     !<
     
    15211526       REAL(wp), DIMENSION(6*(nx+4),nz+1) ::  work1  !<
    15221527       
    1523        COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work  !< required on NEC only
     1528#if defined( __nec )
     1529       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work
     1530#endif
    15241531
    15251532       IF ( fft_method == 'temperton-algorithm' )  THEN
     
    16471654       INTEGER(iwp) ::  ny1   !<
    16481655       INTEGER(iwp) ::  siza  !<
    1649        INTEGER(iwp) ::  sizw  !< required on NEC only
     1656#if defined( __nec )
     1657       INTEGER(iwp) ::  sizw
     1658#endif
    16501659
    16511660       REAL(wp), DIMENSION(0:ny1,nz)      ::  ar     !<
    16521661       REAL(wp), DIMENSION(0:ny+3,nz+1)   ::  ai     !<
    16531662       REAL(wp), DIMENSION(6*(ny+4),nz+1) ::  work1  !<
    1654        
    1655        COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work !< required on NEC only
     1663
     1664#if defined( __nec )
     1665       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work
     1666#endif
    16561667
    16571668
Note: See TracChangeset for help on using the changeset viewer.