Changeset 2285 for palm

Timestamp:

Jun 15, 2017 1:15:41 PM (7 years ago)

Author:

suehring

Message:

Consider multiple pure-vertical nest domains in overlap check

File:

• palm/trunk/SOURCE/pmc_interface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Consider multiple pure-vertical nest domains in overlap check
+! 
+! 2283 2017-06-14 10:17:34Z suehring
 ! Bugfixes in inititalization of log-law correction concerning 
 ! new topography concept
@@ -762 +765 @@
 
        CALL MPI_BCAST( nomatch, 1, MPI_INTEGER, 0, comm2d, ierr )
-       IF ( nomatch /= 0 ) THEN
+       IF ( nomatch /= 0 )  THEN
           WRITE ( message_string, * )  'nested child domain does ',             &
                                        'not fit into its parent domain'
@@ -769 +772 @@
   
        CALL MPI_BCAST( nest_overlap, 1, MPI_INTEGER, 0, comm2d, ierr )
-       IF ( nest_overlap /= 0 ) THEN
+       IF ( nest_overlap /= 0  .AND.  nesting_mode /= 'vertical' )  THEN
           WRITE ( message_string, * )  'nested parallel child domains overlap'
           CALL message( 'pmci_setup_parent', 'PA0426', 3, 2, 0, 6, 0 )