Ignore:
Timestamp:
Feb 25, 2019 3:31:42 PM (3 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/exchange_horiz_2d.f90

    r3655 r3761  
    2525! -----------------
    2626! $Id$
     27! variables moved to serial branch to avoid compiler warnings about unused variables
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! - New routine for exchange of 8-bit integer arrays
    2831! - Set Neumann conditions also at radiation boundary
     
    9396    USE control_parameters,                                                    &
    9497        ONLY :  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,                &
    95                 bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,          &
     98                bc_dirichlet_s, bc_radiation_l,                                &
    9699                bc_radiation_n, bc_radiation_r, bc_radiation_s
    97100               
     
    108111    USE pmc_interface,                                                         &
    109112        ONLY : nesting_mode
     113
     114#if ! defined( __parallel )
     115    USE control_parameters,                                                    &
     116        ONLY:  bc_lr_cyc, bc_ns_cyc
     117#endif
    110118
    111119
     
    230238               bc_dirichlet_s, bc_radiation_l, bc_radiation_n, bc_radiation_r, &
    231239               bc_radiation_s, bc_lr_cyc, bc_ns_cyc, bc_radiation_l,           &
    232                bc_radiation_n, bc_radiation_r, bc_radiation_s, grid_level
     240               bc_radiation_n, bc_radiation_r, bc_radiation_s
    233241       
    234242    USE cpulog,                                                                &
Note: See TracChangeset for help on using the changeset viewer.