Changeset 1092 for palm/trunk/SOURCE/write_compressed.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/write_compressed.f90 (modified) (2 diffs)

palm/trunk/SOURCE/write_compressed.f90

@@ -20 +20 @@
 !
 ! Current revisions:
+! ------------------
+! unused variables removed
+!
+! Former revisions:
 ! -----------------
-!
-! Former revisions:
-! ---------------------
 ! $Id$
 !
@@ -73 +74 @@
 
     INTEGER ::  ampl, dummy1, dummy2, factor, i, ifieldmax, ifieldmax_l, &
-                ifieldmin, ifieldmin_l, ii, j, k, length, nfree, npack, nsize, &
-                nx, ny, nz, pos, startpos
+                ifieldmin, ifieldmin_l, ii, length, nfree, npack, nsize, &
+                nx, ny, nz, startpos
     INTEGER(ip4) ::  imask (32)
     INTEGER(ip4), DIMENSION(:), ALLOCATABLE ::  ifield, packed_ifield