Ignore:
Timestamp:
Sep 12, 2018 3:02:00 PM (3 years ago)
Author:
raasch
Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:
1 edited

Legend:

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

    r3183 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3183 2018-07-27 14:25:55Z suehring
    2730! Rename variables and boundary conditions in mesoscale-offline nesting mode
    2831!
     
    244247        ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, bc_dirichlet_s, &
    245248               bc_lr, bc_ns, bc_radiation_l, bc_radiation_n, bc_radiation_r,   &
    246                bc_radiation_s, coupling_mode, coupling_mode_remote,            &
    247                coupling_topology, gathered_size, grid_level,                   &
    248                grid_level_count, maximum_grid_level, message_string,           &
    249                mg_switch_to_pe0_level, momentum_advec, neutral,                &
     249               bc_radiation_s, coupling_mode, coupling_topology, gathered_size,&
     250               grid_level, grid_level_count, maximum_grid_level,               &
     251               message_string, mg_switch_to_pe0_level, momentum_advec, neutral,&
    250252               psolver, outflow_source_plane, recycling_width, scalar_advec,   &
    251253               subdomain_size, turbulent_outflow, y_shift
     
    299301    INTEGER(iwp) ::  mg_switch_to_pe0_level_l !<
    300302    INTEGER(iwp) ::  nnx_y                    !<
    301     INTEGER(iwp) ::  nnx_z                    !<
    302303    INTEGER(iwp) ::  nny_x                    !<
    303304    INTEGER(iwp) ::  nny_z                    !<
     
    311312    INTEGER(iwp) ::  nzb_l                    !<
    312313    INTEGER(iwp) ::  nzt_l                    !<
    313     INTEGER(iwp) ::  omp_get_num_threads      !<
     314!$  INTEGER(iwp) ::  omp_get_num_threads      !<
    314315
    315316    INTEGER(iwp), DIMENSION(:), ALLOCATABLE ::  ind_all !<
Note: See TracChangeset for help on using the changeset viewer.