Ignore:
Timestamp:
Feb 2, 2013 11:24:22 AM (9 years ago)
Author:
raasch
Message:

unused variables remove from several routines

File:
1 edited

Legend:

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

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    129129    CHARACTER (LEN=400) ::  command
    130130
    131     INTEGER ::  av, anzzeile = 1, cranz, file_id, i, iaddres, ierr1, iusern, &
     131    INTEGER ::  av, anzzeile = 1, cranz, file_id, i, iaddres, iusern, &
    132132                j, k, legpos = 1, timodex = 1
    133     INTEGER, DIMENSION(10) ::  cucol, klist, lstyle
     133    INTEGER, DIMENSION(10) ::  klist
    134134
    135135    LOGICAL ::  avs_coor_file_found = .FALSE., avs_data_file_found = .FALSE., &
     
    145145
    146146    NAMELIST /RAHMEN/  anzzeile, cranz, datleg, rtext, swap
    147     NAMELIST /CROSS/   ansx, ansy, cucol, grid, gwid, klist, legpos, lstyle, &
     147    NAMELIST /CROSS/   ansx, ansy, grid, gwid, klist, legpos, &
    148148                       rand, rlegfak, sizex, sizey, texfac, &
    149149                       timodex, twoxa, twoya, xtext
Note: See TracChangeset for help on using the changeset viewer.