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

palm/trunk/SOURCE/temperton_fft_mod.f90

@@ -9 +9 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -59 +62 @@
     PUBLIC set99, fft991cy
 
-
-    INTEGER(iwp)            ::  nfax(10)    !< array used by *fft991*.
     INTEGER(iwp), PARAMETER ::  nfft =  32  !< maximum length of calls to *fft
     INTEGER(iwp), PARAMETER ::  nout =   6  !< standard output stream
-
-    REAL(wp), ALLOCATABLE ::  trig(:)    !< array used by *fft991*.
 
 CONTAINS