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

palm/trunk/SOURCE/header.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -187 +187 @@
     CHARACTER (LEN=2)  ::  do2d_mode
     CHARACTER (LEN=5)  ::  section_chr
-    CHARACTER (LEN=9)  ::  time_to_string
     CHARACTER (LEN=10) ::  coor_chr, host_chr
     CHARACTER (LEN=16) ::  begin_chr
@@ -202 +201 @@
 
     INTEGER ::  av, bh, blx, bly, bxl, bxr, byn, bys, ch, count, cwx, cwy,  &
-         cxl, cxr, cyn, cys, dim, i, ihost, io, j, l, ll, m, mpi_type
+                cxl, cxr, cyn, cys, dim, i, io, j, l, ll, mpi_type
     REAL    ::  cpuseconds_per_simulated_second