Index: palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90
===================================================================
--- palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90	(revision 2101)
+++ palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90	(revision 2599)
@@ -26,4 +26,7 @@
 ! -----------------
 ! $Id$
+! Some cleanup and commenting improvements only.
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -142,7 +145,8 @@
     INTEGER, INTENT(OUT)              ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_INTEGER, parent_rank, tag, m_to_parent_comm,     &
-                   ierr)
+                   ierr )
 
  END SUBROUTINE pmc_send_to_parent_integer
@@ -160,4 +164,5 @@
     INTEGER, INTENT(OUT)               ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_INTEGER, parent_rank, tag, m_to_parent_comm,     &
@@ -178,4 +183,5 @@
     INTEGER, INTENT(OUT)                :: ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_INTEGER, parent_rank, tag, m_to_parent_comm,     &
@@ -196,4 +202,5 @@
     INTEGER, INTENT(OUT)               ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_REAL, parent_rank, tag, m_to_parent_comm, ierr )
@@ -213,4 +220,5 @@
     INTEGER, INTENT(OUT)                ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_REAL, parent_rank, tag, m_to_parent_comm,        &
@@ -231,4 +239,5 @@
     INTEGER, INTENT(OUT)                 ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_REAL, parent_rank, tag, m_to_parent_comm, ierr )
@@ -265,4 +274,5 @@
     INTEGER, INTENT(OUT)                   ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_REAL, parent_rank, tag, m_to_parent_comm, ierr )
@@ -282,4 +292,5 @@
     INTEGER, INTENT(OUT)                    ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_REAL, parent_rank, tag, m_to_parent_comm,        &
@@ -302,4 +313,5 @@
     INTEGER, INTENT(OUT)              ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_INTEGER, child_rank, tag,                        &
@@ -322,4 +334,5 @@
     INTEGER, INTENT(OUT)                 ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_INTEGER, child_rank, tag,                        &
@@ -342,4 +355,5 @@
     INTEGER, INTENT(OUT)                 ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_INTEGER, child_rank, tag,                        &
@@ -362,4 +376,5 @@
     INTEGER, INTENT(OUT)               ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_REAL, child_rank, tag,                           &
@@ -382,4 +397,5 @@
     INTEGER, INTENT(OUT)                  ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_REAL, child_rank, tag,                           &
@@ -402,4 +418,5 @@
     INTEGER, INTENT(OUT)                 ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_REAL, child_rank, tag,                           &
@@ -422,4 +439,5 @@
     INTEGER, INTENT(OUT)                  ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_REAL, child_rank, tag,                           &
@@ -431,5 +449,5 @@
 
  SUBROUTINE pmc_send_to_child_real_r3( child_id, buf, n, child_rank, tag,       &
-                                       ierr)
+                                       ierr )
 
     IMPLICIT NONE
@@ -442,4 +460,5 @@
     INTEGER, INTENT(OUT)                   ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_SEND( buf, n, MPI_REAL, child_rank, tag,                           &
@@ -462,4 +481,5 @@
     INTEGER, INTENT(OUT)                    ::  ierr         !<
 
+    
     ierr = 0
     CALL MPI_RECV( buf, n, MPI_REAL, child_rank, tag,                           & 
@@ -511,4 +531,5 @@
     INTEGER ::  myerr   !<
 
+    
     IF ( PRESENT( comm ) )  THEN
        mycomm = comm
@@ -540,5 +561,5 @@
 
 !
-!-- PE 0 on parent broadcast to all child PEs
+!-- Process 0 on parent broadcast to all child processes
     IF ( PRESENT( child_id ) )  THEN
 
@@ -581,4 +602,5 @@
     TYPE(C_PTR)                    ::  p_myind  !<
 
+    
     winsize = idim1 * C_SIZEOF( ierr )
 
@@ -605,4 +627,5 @@
     TYPE(C_PTR)                    :: p_myind  !<
 
+    
     winsize = idim1 * wp
 
@@ -623,4 +646,5 @@
     REAL(kind=wp) :: pmc_time  !<
 
+    
     pmc_time = MPI_WTIME()
 
