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/init_pegrid.f90

    r1057 r1092  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! unused variables removed
    2323!
    2424! Former revisions:
     
    163163                maximum_grid_level_l, mg_switch_to_pe0_level_l, mg_levels_x, &
    164164                mg_levels_y, mg_levels_z, nnx_y, nnx_z, nny_x, nny_z, nnz_x, &
    165                 nnz_y, numproc_sqr, nx_total, nxl_l, nxr_l, nyn_l, nys_l,    &
     165                nnz_y, numproc_sqr, nxl_l, nxr_l, nyn_l, nys_l,    &
    166166                nzb_l, nzt_l, omp_get_num_threads
    167167
     
    170170    INTEGER, DIMENSION(2) :: pdims_remote
    171171
     172#if defined( __mpi2 )
    172173    LOGICAL ::  found
     174#endif
    173175
    174176!
Note: See TracChangeset for help on using the changeset viewer.