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

palm/trunk/SOURCE/surface_coupler.f90

@@ -19 +19 @@
 !
 ! Current revisions:
+! ------------------
+! unused variables removed
+!
+! Former revisions:
 ! -----------------
-! 
-!
-! Former revisions:
-! ------------------
 ! $Id$
 !
@@ -65 +65 @@
 
     IMPLICIT NONE
-
-    INTEGER ::  i, j, k
 
     REAL    ::  time_since_reference_point_rem