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_grid.f90

    r3200 r3241  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3200 2018-08-17 14:46:36Z suehring
    2730! Bugfix, missing pre-processor directive
    2831!
     
    351354               bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,           &
    352355               bc_radiation_n, bc_radiation_r, bc_radiation_s,                 &
    353                building_height, building_length_x,                             &
    354                building_length_y, building_wall_left, building_wall_south,     &
    355                canyon_height, canyon_wall_left, canyon_wall_south,             &
    356                canyon_width_x, canyon_width_y, constant_flux_layer,            &
    357                dp_level_ind_b, dz, dz_max, dz_stretch_factor,                  &   
     356               constant_flux_layer, dz, dz_max, dz_stretch_factor,             &
    358357               dz_stretch_factor_array, dz_stretch_level, dz_stretch_level_end,&
    359358               dz_stretch_level_end_index, dz_stretch_level_start_index,       &
    360                dz_stretch_level_start, grid_level,                             &
    361                ibc_uv_b, masking_method, maximum_grid_level, message_string,   &
     359               dz_stretch_level_start, ibc_uv_b, message_string,               &
    362360               momentum_advec, number_stretch_level_end,                       &
    363361               number_stretch_level_start,ocean, psolver, scalar_advec,        &
    364                topography, topography_grid_convention, tunnel_height,          &
    365                tunnel_length, tunnel_width_x, tunnel_width_y,                  &
    366                tunnel_wall_depth, use_surface_fluxes, use_top_fluxes,          &
    367                wall_adjustment_factor
     362               topography, use_surface_fluxes
    368363         
    369364    USE grid_variables,                                                        &
     
    395390    INTEGER(iwp) ::  k             !< index variable along z
    396391    INTEGER(iwp) ::  k_top         !< topography top index on local PE
    397     INTEGER(iwp) ::  l             !< loop variable
    398392    INTEGER(iwp) ::  n             !< loop variable for stretching
    399393    INTEGER(iwp) ::  number_dz     !< number of user-specified dz values       
     
    11501144 
    11511145    USE control_parameters,                                                    &
    1152         ONLY:  dz, dz_stretch_factor, dz_stretch_factor_array,                 &   
     1146        ONLY:  dz, dz_stretch_factor_array,                 &
    11531147               dz_stretch_level_end, dz_stretch_level_start, message_string
    11541148 
     
    12991293
    13001294    USE control_parameters,                                                    &
    1301         ONLY:  bc_lr_cyc, bc_ns_cyc, land_surface, message_string, ocean,      &
    1302                urban_surface
     1295        ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, ocean
    13031296
    13041297    USE indices,                                                               &
     
    19031896               canyon_height, canyon_wall_left, canyon_wall_south,             &
    19041897               canyon_width_x, canyon_width_y, dp_level_ind_b, dz,             &
    1905                message_string, ocean, topography, topography_grid_convention,  &
     1898               message_string, topography, topography_grid_convention,         &
    19061899               tunnel_height, tunnel_length, tunnel_width_x, tunnel_width_y,   &
    19071900               tunnel_wall_depth
     
    24722465
    24732466    USE indices,                                                               &
    2474         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz,   &
    2475                nzb, nzt, wall_flags_0
     2467        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
     2468               nzt, wall_flags_0
    24762469
    24772470    USE kinds
Note: See TracChangeset for help on using the changeset viewer.