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

palm/trunk/SOURCE/fft_xy_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! preprocessor switches for variables that are required on NEC only
+! 
+! 3045 2018-05-28 07:55:41Z Giersch
 ! Error messages revised
 ! 
@@ -1515 +1518 @@
        INTEGER(iwp) ::  k     !<
        INTEGER(iwp) ::  siza  !<
-       INTEGER(iwp) ::  sizw  !< required on NEC only
+#if defined( __nec )
+       INTEGER(iwp) ::  sizw
+#endif
 
        REAL(wp), DIMENSION(0:nx,nz)       ::  ar     !<
@@ -1521 +1526 @@
        REAL(wp), DIMENSION(6*(nx+4),nz+1) ::  work1  !<
        
-       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work  !< required on NEC only
+#if defined( __nec )
+       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work
+#endif
 
        IF ( fft_method == 'temperton-algorithm' )  THEN
@@ -1647 +1654 @@
        INTEGER(iwp) ::  ny1   !<
        INTEGER(iwp) ::  siza  !<
-       INTEGER(iwp) ::  sizw  !< required on NEC only
+#if defined( __nec )
+       INTEGER(iwp) ::  sizw
+#endif
 
        REAL(wp), DIMENSION(0:ny1,nz)      ::  ar     !<
        REAL(wp), DIMENSION(0:ny+3,nz+1)   ::  ai     !<
        REAL(wp), DIMENSION(6*(ny+4),nz+1) ::  work1  !<
-       
-       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work !< required on NEC only
+
+#if defined( __nec )
+       COMPLEX(wp), DIMENSION(:,:), ALLOCATABLE ::  work
+#endif