Ignore:
Timestamp:
Feb 25, 2019 3:31:42 PM (2 years ago)
Author:
raasch
Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:
1 edited

Legend:

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

    r3661 r3761  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 3661 2019-01-08 18:22:50Z suehring
    2730! Remove setting of nzb_max to nzt at non-cyclic boundary PEs, instead,
    2831! order degradation of advection scheme is handeled directly in advec_ws
     
    361364       
    362365    USE control_parameters,                                                    &
    363         ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,                 &
    364                bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,           &
    365                bc_radiation_n, bc_radiation_r, bc_radiation_s,                 &
     366        ONLY:  bc_lr_cyc, bc_ns_cyc,                                           &
    366367               constant_flux_layer, dz, dz_max, dz_stretch_factor,             &
    367368               dz_stretch_factor_array, dz_stretch_level, dz_stretch_level_end,&
Note: See TracChangeset for help on using the changeset viewer.