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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -19 +19 @@
 !
 ! Current revisions:
-! -----------------
+! ------------------
+! unused variables removed
 !
 ! Former revisions:
@@ -201 +202 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=9) ::  time_to_string
     INTEGER ::  i, i_omp_start, j, k, omp_get_thread_num, tn = 0
     LOGICAL ::  loop_start
@@ -839 +839 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=9) ::  time_to_string
     INTEGER ::  i, j, k
     REAL    ::  sbt
@@ -1480 +1479 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=9) ::  time_to_string
     INTEGER ::  i, j, k, runge_step
     REAL    ::  sbt