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

    r3049 r3241  
    99! -----------------
    1010! $Id$
     11! unused variables removed
     12!
     13! 3049 2018-05-29 13:52:36Z Giersch
    1114! Error messages revised
    1215!
     
    5962    PUBLIC set99, fft991cy
    6063
    61 
    62     INTEGER(iwp)            ::  nfax(10)    !< array used by *fft991*.
    6364    INTEGER(iwp), PARAMETER ::  nfft =  32  !< maximum length of calls to *fft
    6465    INTEGER(iwp), PARAMETER ::  nout =   6  !< standard output stream
    65 
    66     REAL(wp), ALLOCATABLE ::  trig(:)    !< array used by *fft991*.
    6766
    6867CONTAINS
Note: See TracChangeset for help on using the changeset viewer.