Ignore:
Timestamp:
Oct 7, 2016 2:08:57 PM (5 years ago)
Author:
suehring
Message:

Bugfix, restore flags for nest boundaries in multigrid solver; bugfix: setting Neumann boundary conditions for topography arrays in case of non-cyclic boundary conditions

File:
1 edited

Legend:

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

    r2001 r2021  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix: restore nest_bound_(l/r/s/n) in case of mg_switch_to_pe0
    2323!
    2424! Former revisions:
     
    16071607
    16081608!
    1609 !--          For non-cyclic lateral boundary conditions, restore the
    1610 !--          in-/outflow conditions
     1609!--          For non-cyclic lateral boundary conditions and in case of nesting,
     1610!--          restore the in-/outflow conditions.
    16111611             inflow_l  = .FALSE.;  inflow_r  = .FALSE.
    16121612             inflow_n  = .FALSE.;  inflow_s  = .FALSE.
    16131613             outflow_l = .FALSE.;  outflow_r = .FALSE.
    16141614             outflow_n = .FALSE.;  outflow_s = .FALSE.
     1615!
     1616!--          In case of nesting, restore lateral boundary conditions
     1617             IF ( nest_domain )  THEN
     1618                nest_bound_l = .FALSE.
     1619                nest_bound_r = .FALSE.
     1620                nest_bound_s = .FALSE.
     1621                nest_bound_n = .FALSE.     
     1622             ENDIF
    16151623
    16161624             IF ( pleft == MPI_PROC_NULL )  THEN
Note: See TracChangeset for help on using the changeset viewer.