Changeset 1398 for palm/trunk/SOURCE/fft_xy.f90

Timestamp:

May 7, 2014 11:15:00 AM (10 years ago)

Author:

heinze

Message:

adjustments in case of nudging + bugfix for KIND in CMPLX function

File:

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

palm/trunk/SOURCE/fft_xy.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: typo removed for KIND in CMPLX function
 !
 ! Former revisions:
@@ -1210 +1210 @@
                    y_out(0) = CMPLX( ar_tr(0,i,k), 0.0_wp, KIND=wp )
                    DO  j = 1, (ny+1)/2 - 1
-                      y_out(j) = CMPLX( ar_tr(j,i,k), ar_tr(ny+1-j,i,k,        &
-                                        KIND=wp) )
+                      y_out(j) = CMPLX( ar_tr(j,i,k), ar_tr(ny+1-j,i,k),       &
+                                        KIND=wp )
                    ENDDO
                    y_out((ny+1)/2) = CMPLX( ar_tr((ny+1)/2,i,k), 0.0_wp,       &