Changeset 3241 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

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

File:

• palm/trunk/SOURCE/init_grid.f90 (modified) (7 diffs)

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3200 2018-08-17 14:46:36Z suehring
 ! Bugfix, missing pre-processor directive
 ! 
@@ -351 +354 @@
                bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,           &
                bc_radiation_n, bc_radiation_r, bc_radiation_s,                 &
-               building_height, building_length_x,                             &
-               building_length_y, building_wall_left, building_wall_south,     &
-               canyon_height, canyon_wall_left, canyon_wall_south,             &
-               canyon_width_x, canyon_width_y, constant_flux_layer,            &
-               dp_level_ind_b, dz, dz_max, dz_stretch_factor,                  &   
+               constant_flux_layer, dz, dz_max, dz_stretch_factor,             &
                dz_stretch_factor_array, dz_stretch_level, dz_stretch_level_end,&
                dz_stretch_level_end_index, dz_stretch_level_start_index,       &
-               dz_stretch_level_start, grid_level,                             &
-               ibc_uv_b, masking_method, maximum_grid_level, message_string,   &
+               dz_stretch_level_start, ibc_uv_b, message_string,               &
                momentum_advec, number_stretch_level_end,                       &
                number_stretch_level_start,ocean, psolver, scalar_advec,        &
-               topography, topography_grid_convention, tunnel_height,          &
-               tunnel_length, tunnel_width_x, tunnel_width_y,                  &
-               tunnel_wall_depth, use_surface_fluxes, use_top_fluxes,          &
-               wall_adjustment_factor
+               topography, use_surface_fluxes
          
     USE grid_variables,                                                        &
@@ -395 +390 @@
     INTEGER(iwp) ::  k             !< index variable along z
     INTEGER(iwp) ::  k_top         !< topography top index on local PE
-    INTEGER(iwp) ::  l             !< loop variable 
     INTEGER(iwp) ::  n             !< loop variable for stretching
     INTEGER(iwp) ::  number_dz     !< number of user-specified dz values       
@@ -1150 +1144 @@
  
     USE control_parameters,                                                    &
-        ONLY:  dz, dz_stretch_factor, dz_stretch_factor_array,                 &   
+        ONLY:  dz, dz_stretch_factor_array,                 &
                dz_stretch_level_end, dz_stretch_level_start, message_string
   
@@ -1299 +1293 @@
 
     USE control_parameters,                                                    &
-        ONLY:  bc_lr_cyc, bc_ns_cyc, land_surface, message_string, ocean,      &
-               urban_surface
+        ONLY:  bc_lr_cyc, bc_ns_cyc, message_string, ocean
 
     USE indices,                                                               &
@@ -1903 +1896 @@
                canyon_height, canyon_wall_left, canyon_wall_south,             &
                canyon_width_x, canyon_width_y, dp_level_ind_b, dz,             &
-               message_string, ocean, topography, topography_grid_convention,  &
+               message_string, topography, topography_grid_convention,         &
                tunnel_height, tunnel_length, tunnel_width_x, tunnel_width_y,   &
                tunnel_wall_depth
@@ -2472 +2465 @@
 
     USE indices,                                                               &
-        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz,   &
-               nzb, nzt, wall_flags_0
+        ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nzb,  &
+               nzt, wall_flags_0
 
     USE kinds