Changeset 2285 for palm/trunk


Ignore:
Timestamp:
Jun 15, 2017 1:15:41 PM (7 years ago)
Author:
suehring
Message:

Consider multiple pure-vertical nest domains in overlap check

File:
1 edited

Legend:

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

    r2283 r2285  
    2626! -----------------
    2727! $Id$
     28! Consider multiple pure-vertical nest domains in overlap check
     29!
     30! 2283 2017-06-14 10:17:34Z suehring
    2831! Bugfixes in inititalization of log-law correction concerning
    2932! new topography concept
     
    762765
    763766       CALL MPI_BCAST( nomatch, 1, MPI_INTEGER, 0, comm2d, ierr )
    764        IF ( nomatch /= 0 ) THEN
     767       IF ( nomatch /= 0 )  THEN
    765768          WRITE ( message_string, * )  'nested child domain does ',             &
    766769                                       'not fit into its parent domain'
     
    769772 
    770773       CALL MPI_BCAST( nest_overlap, 1, MPI_INTEGER, 0, comm2d, ierr )
    771        IF ( nest_overlap /= 0 ) THEN
     774       IF ( nest_overlap /= 0  .AND.  nesting_mode /= 'vertical' ) THEN
    772775          WRITE ( message_string, * )  'nested parallel child domains overlap'
    773776          CALL message( 'pmci_setup_parent', 'PA0426', 3, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.