Changeset 1219 for palm

Timestamp:

Aug 30, 2013 9:33:18 AM (11 years ago)

Author:

heinze

Message:

bugfix: use own branch for fftw setting

File:

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

palm/trunk/SOURCE/fft_xy.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! bugfix: use own branch for fftw
 !
 ! Former revisions:
@@ -123 +123 @@
     INTEGER(C_INT), SAVE ::  plan_xf, plan_xi, plan_yf, plan_yi
     INTEGER, SAVE        ::  total_points_x_transpo, total_points_y_transpo
-#elif defined( __fftw )
+#endif
+
+#if defined( __fftw )
     INCLUDE  'fftw3.f03'
     INTEGER(KIND=C_INT) ::  nx_c, ny_c