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_noopt.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:
     
    15611561
    15621562!
    1563 !--       For non-cyclic lateral boundary conditions, restore the
    1564 !--       in-/outflow conditions
     1563!--       For non-cyclic lateral boundary conditions and in case of nesting,
     1564!--       restore the in-/outflow conditions.
    15651565          inflow_l  = .FALSE.;  inflow_r  = .FALSE.
    15661566          inflow_n  = .FALSE.;  inflow_s  = .FALSE.
    15671567          outflow_l = .FALSE.;  outflow_r = .FALSE.
    15681568          outflow_n = .FALSE.;  outflow_s = .FALSE.
     1569!
     1570!--       In case of nesting, restore lateral boundary conditions
     1571          IF ( nest_domain )  THEN
     1572             nest_bound_l = .FALSE.
     1573             nest_bound_r = .FALSE.
     1574             nest_bound_s = .FALSE.
     1575             nest_bound_n = .FALSE.     
     1576          ENDIF
    15691577
    15701578          IF ( pleft == MPI_PROC_NULL )  THEN
Note: See TracChangeset for help on using the changeset viewer.