Changeset 1092 for palm/trunk/SOURCE/poisfft.f90

Timestamp:

Feb 2, 2013 11:24:22 AM (12 years ago)

Author:

raasch

Message:

unused variables remove from several routines

File:

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

palm/trunk/SOURCE/poisfft.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -952 +952 @@
        IMPLICIT NONE
 
-       character(len=3) ::  myth_char
-
        INTEGER ::  i, j, k, m, n, omp_get_thread_num, tn
 
@@ -1431 +1429 @@
 
        REAL, DIMENSION(0:nx,1:nz)     ::  ar
-       REAL, DIMENSION(0:nx,0:nz-1)   ::  ar1
        REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri