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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -283 +283 @@
     CHARACTER (LEN=100) ::  action
 
-    INTEGER ::  i, ilen, intervals, iremote = 0, iter, j, k, kk, nnxh, nnyh, &
-                position, prec
+    INTEGER ::  i, ilen, iremote = 0, j, k, kk, position, prec
     LOGICAL ::  found, ldum
-    REAL    ::  gradient, maxn, maxp, remote = 0.0, &
-                simulation_time_since_reference
+    REAL    ::  gradient, remote = 0.0, simulation_time_since_reference
 
 !