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

unused variables remove from several routines

File:
1 edited

Legend:

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

    r1037 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    9090    IMPLICIT NONE
    9191
    92     CHARACTER (LEN=2)   ::  suffix
    9392    CHARACTER (LEN=10)  ::  datform = 'lit_endian'
    94     CHARACTER (LEN=80)  ::  rtext, title
    95 
    96     INTEGER ::  av, anzzeile, dimx, dimy, &
    97                 fid, file_id, j, k, planz
    98 
    99     LOGICAL ::  checkuf = .TRUE., datleg = .TRUE., dp = .FALSE., swap
     93    CHARACTER (LEN=80)  ::  title
     94
     95    INTEGER ::  av, dimx, dimy, &
     96                fid, file_id, planz
     97
     98    LOGICAL ::  checkuf = .TRUE., datleg = .TRUE., dp = .FALSE.
    10099
    101100    REAL ::  sizex, sizey, yright
     
    103102    NAMELIST /GLOBAL/  checkuf, datform, dimx, dimy, dp, planz, &
    104103                       title
    105     NAMELIST /RAHMEN/  anzzeile, datleg, rtext, swap
     104    NAMELIST /RAHMEN/  datleg
    106105
    107106!
Note: See TracChangeset for help on using the changeset viewer.