Changeset 626 for palm

Timestamp:

Dec 10, 2010 1:04:12 PM (14 years ago)

Author:

suehring

Message:

idum replaced by cdum

File:

• palm/trunk/SOURCE/read_var_list.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Current revisions:
 ! ------------------
-! 
+! idum replaced by cdum in read_parts_of_var_list
 !
 ! Former revisions:
@@ -700 +700 @@
     CHARACTER (LEN=10) ::  version_on_file
     CHARACTER (LEN=30) ::  variable_chr
+    CHARACTER (LEN=1)  ::  cdum
 
     INTEGER ::  idum, max_pr_user_on_file, nz_on_file, &
@@ -840 +841 @@
           CASE DEFAULT
 
-             READ ( 13 )  idum
+             READ ( 13 )  cdum
 
        END SELECT