Changeset 2599 for palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90

Timestamp:

Nov 1, 2017 1:18:45 PM (6 years ago)

Author:

hellstea

Message:

i/o grouping update for nested runs

File:

• palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90 (modified) (24 diffs)

palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90

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