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

Timestamp:

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

Author:

raasch

Message:

unused variables remove from several routines

File:

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

palm/trunk/SOURCE/transpose.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -326 +326 @@
     IMPLICIT NONE
 
-    INTEGER ::  i, j, k, l, m, recvcount_yx, sendcount_yx, xs
+    INTEGER ::  i, j, k, l, m, xs
 
     REAL ::  f_in(1:nz,nys:nyn,nxl:nxr), f_inv(nxl:nxr,1:nz,nys:nyn), &