Changeset 1092 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Feb 2, 2013 11:24:22 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r1037 r1092 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! unused variables removed 23 23 ! 24 24 ! Former revisions: … … 129 129 CHARACTER (LEN=400) :: command 130 130 131 INTEGER :: av, anzzeile = 1, cranz, file_id, i, iaddres, i err1, iusern, &131 INTEGER :: av, anzzeile = 1, cranz, file_id, i, iaddres, iusern, & 132 132 j, k, legpos = 1, timodex = 1 133 INTEGER, DIMENSION(10) :: cucol, klist, lstyle133 INTEGER, DIMENSION(10) :: klist 134 134 135 135 LOGICAL :: avs_coor_file_found = .FALSE., avs_data_file_found = .FALSE., & … … 145 145 146 146 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, & 148 148 rand, rlegfak, sizex, sizey, texfac, & 149 149 timodex, twoxa, twoya, xtext
Note: See TracChangeset
for help on using the changeset viewer.