Changeset 2013 for palm

Timestamp:

Sep 21, 2016 1:07:56 PM (8 years ago)

Author:

suehring

Message:

Bugfix in format descriptor

File:

• palm/trunk/SOURCE/pmc_handle_communicator_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix in format descriptor
 ! 
 ! Former revisions:
@@ -207 +207 @@
 !--       total sum of cores required by all nest domains
           IF ( start_pe(m_ncpl+1) /= m_world_npes )  THEN
-             WRITE ( message_string, '(A,I6,A,I6,A)' )                          &
+             WRITE ( message_string, '(2A,I6,2A,I6,A)' )                        &
                              'nesting-setup requires different number of ',     &
                              'MPI procs (', start_pe(m_ncpl+1), ') than ',      &