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

palm/trunk/SOURCE/close_file.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -90 +90 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=2)   ::  suffix
     CHARACTER (LEN=10)  ::  datform = 'lit_endian'
-    CHARACTER (LEN=80)  ::  rtext, title
-
-    INTEGER ::  av, anzzeile, dimx, dimy, &
-                fid, file_id, j, k, planz
-
-    LOGICAL ::  checkuf = .TRUE., datleg = .TRUE., dp = .FALSE., swap
+    CHARACTER (LEN=80)  ::  title
+
+    INTEGER ::  av, dimx, dimy, &
+                fid, file_id, planz
+
+    LOGICAL ::  checkuf = .TRUE., datleg = .TRUE., dp = .FALSE.
 
     REAL ::  sizex, sizey, yright
@@ -103 +102 @@
     NAMELIST /GLOBAL/  checkuf, datform, dimx, dimy, dp, planz, &
                        title
-    NAMELIST /RAHMEN/  anzzeile, datleg, rtext, swap
+    NAMELIST /RAHMEN/  datleg
 
 !