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

palm/trunk/SOURCE/advec_s_bc.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -87 +87 @@
     INTEGER ::  i, ix, j, k, ngp, sr, type_xz_2
 
-    REAL ::  cim, cimf, cip, cipf, d_new, ffmax, fminus, fplus, f2, f4, f8, &
+    REAL ::  cim, cimf, cip, cipf, d_new, fminus, fplus, f2, f4, f8,        &
              f12, f24, f48, f1920, im, ip, m2, m3, nenner, snenn, sterm,    &
              tendenz, t1, t2, zaehler