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

unused variables remove from several routines

File:
1 edited

Legend:

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

    r1070 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    146146
    147147    INTEGER ::  bh, blx, bly, bxl, bxr, byn, bys, ch, cwx, cwy, cxl, cxr, cyn, &
    148                 cys, gls, i, ii, inc, i_center, j, j_center, k, l, nxl_l,      &
    149                 nxr_l, nyn_l, nys_l, nzb_si, nzt_l, vi
     148                cys, gls, i, ii, inc, j, k, l, nxl_l, nxr_l, nyn_l, nys_l,     &
     149                nzb_si, nzt_l, vi
    150150
    151151    INTEGER, DIMENSION(:), ALLOCATABLE   ::  vertical_influence
     
    161161    REAL, DIMENSION(:,:), ALLOCATABLE   ::  topo_height
    162162
    163     REAL, DIMENSION(:,:,:), ALLOCATABLE ::  distance
    164163   
    165164!
Note: See TracChangeset for help on using the changeset viewer.