Ignore:
Timestamp:
Mar 9, 2015 8:59:31 PM (7 years ago)
Author:
suehring
Message:

Refine if-clause for setting nbgp.

File:
1 edited

Legend:

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

    r1558 r1565  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Refine if-clause for setting nbgp.
    2323!
    2424! Former revisions:
     
    116116               io_blocks, io_group, maximum_grid_level,                        &
    117117               maximum_parallel_io_streams, message_string,                    &
    118                mg_switch_to_pe0_level, momentum_advec, psolver, outflow_l,     &
    119                outflow_n, outflow_r, outflow_s, recycling_width, scalar_advec, &
    120                subdomain_size
     118               mg_switch_to_pe0_level, momentum_advec, neutral, psolver,       &
     119               outflow_l, outflow_n, outflow_r, outflow_s, recycling_width,    &
     120               scalar_advec, subdomain_size
    121121
    122122    USE grid_variables,                                                        &
     
    594594!
    595595!-- Determine the number of ghost point layers
    596     IF ( scalar_advec == 'ws-scheme'      .OR.                                &
     596    IF ( ( scalar_advec == 'ws-scheme' .AND. .NOT. neutral ) .OR.             &
    597597         scalar_advec == 'ws-scheme-mono' .OR.                                &
    598598         momentum_advec == 'ws-scheme' )  THEN
Note: See TracChangeset for help on using the changeset viewer.