Changeset 2300 for palm/trunk/SOURCE/temperton_fft_mod.f90

Timestamp:

Jun 29, 2017 1:31:14 PM (7 years ago)

Author:

raasch

Message:

NEC related code partly removed, host variable partly removed, host specific code completely removed, default values for host, loop_optimization and termination time_needed changed

File:

• palm/trunk/SOURCE/temperton_fft_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/temperton_fft_mod.f90

@@ -9 +9 @@
 ! -----------------
 ! $Id$
+! NEC related CPP directives removed
+! 
+! 1851 2016-04-08 13:32:50Z maronga
 !
 ! 1850 2016-04-08 13:29:27Z maronga
@@ -51 +54 @@
 
 
-    INTEGER(iwp)          ::  nfax(10)   !< array used by *fft991*.
+    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*.
-
-!
-!-- nfft: maximum length of calls to *fft.
-#if defined( __nec )
-    INTEGER(iwp), PARAMETER ::  nfft = 256  !< 
-#else
-    INTEGER(iwp), PARAMETER ::  nfft =  32  !< 
-#endif
-
-    INTEGER(iwp), PARAMETER ::  nout =   6  !< standard output stream
 
 CONTAINS