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

palm/trunk/SOURCE/lpm_init.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! unused variables removed
 !
 ! Former revisions:
@@ -112 +112 @@
 #endif
     LOGICAL ::  uniform_particles_l
-    REAL    ::  factor, pos_x, pos_y, pos_z, value
+    REAL    ::  pos_x, pos_y, pos_z