Changeset 1938 for palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
- Timestamp:
- Jun 13, 2016 3:26:05 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/pmc_handle_communicator_mod.f90
r1933 r1938 1 MODULE PMC_handle_communicator1 MODULE PMC_handle_communicator 2 2 3 3 !-------------------------------------------------------------------------------! … … 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Minor clean-up. 23 23 ! 24 24 ! Former revisions: … … 526 526 ENDDO 527 527 IF ( bad_llcorner /= 0) THEN 528 WRITE ( message_string, *) ' Lower left corners do not match,', &528 WRITE ( message_string, *) 'lower left corners do not match,', & 529 529 'they were set to (0, 0)' 530 530 CALL message( 'read_coupling_layout', 'PA0427', 0, 0, 0, 6, 0 )
Note: See TracChangeset
for help on using the changeset viewer.