Changeset 1938 for palm/trunk/SOURCE/pmc_interface_mod.f90
- Timestamp:
- Jun 13, 2016 3:26:05 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_interface_mod.f90
r1933 r1938 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Minor clean-up. 23 23 ! 24 24 ! Former revisions: … … 714 714 CALL MPI_BCAST( nomatch, 1, MPI_INTEGER, 0, comm2d, ierr ) 715 715 IF ( nomatch /= 0 ) THEN 716 WRITE ( message_string, * ) ' Error: nested child domain does ',&716 WRITE ( message_string, * ) 'nested child domain does ', & 717 717 'not fit into its parent domain' 718 718 CALL message( 'pmci_setup_parent', 'PA0425', 3, 2, 0, 6, 0 ) … … 721 721 CALL MPI_BCAST( nest_overlap, 1, MPI_INTEGER, 0, comm2d, ierr ) 722 722 IF ( nest_overlap /= 0 ) THEN 723 WRITE ( message_string, * ) 'Nested parallel child ', & 724 'domains overlap' 723 WRITE ( message_string, * ) 'nested parallel child domains overlap' 725 724 CALL message( 'pmci_setup_parent', 'PA0426', 3, 2, 0, 6, 0 ) 726 725 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.