Changeset 3761 for palm/trunk/SOURCE/singleton_mod.f90

Timestamp:

Feb 25, 2019 3:31:42 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:

• palm/trunk/SOURCE/singleton_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/singleton_mod.f90

@@ -8 +8 @@
 ! -----------------
 ! $Id$
+! statement added to prevent compiler warning about unused variables
+! 
+! 2001 2016-08-20 18:41:22Z knoop
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -210 +213 @@
     COMPLEX(wp), DIMENSION(SIZE(array, 1)):: ft
 
+    INTEGER(iwp)::  idum
     INTEGER(iwp)::  ishape(1)
 
@@ -219 +223 @@
     ishape = SHAPE( array )
     CALL fftn(ft, ishape, inv = inv,  stat = stat)
+!
+!-- Next statement to prevent compiler warning about unused variable
+    IF ( PRESENT( dim ) )  idum = 1
 
  END FUNCTION fft1d