Changeset 626 for palm


Ignore:
Timestamp:
Dec 10, 2010 1:04:12 PM (11 years ago)
Author:
suehring
Message:

idum replaced by cdum

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/read_var_list.f90

    r623 r626  
    44! Current revisions:
    55! ------------------
    6 !
     6! idum replaced by cdum in read_parts_of_var_list
    77!
    88! Former revisions:
     
    700700    CHARACTER (LEN=10) ::  version_on_file
    701701    CHARACTER (LEN=30) ::  variable_chr
     702    CHARACTER (LEN=1)  ::  cdum
    702703
    703704    INTEGER ::  idum, max_pr_user_on_file, nz_on_file, &
     
    840841          CASE DEFAULT
    841842
    842              READ ( 13 )  idum
     843             READ ( 13 )  cdum
    843844
    844845       END SELECT
Note: See TracChangeset for help on using the changeset viewer.