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

Timestamp:

Mar 27, 2018 3:52:42 PM (6 years ago)

Author:

suehring

Message:

Nesting in RANS-LES and RANS-RANS mode enabled; synthetic turbulence generator at all lateral boundaries in nesting or non-cyclic forcing mode; revised Inifor initialization in nesting mode

File:

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

palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Extent interface by logical buffer 
+! 
+! 2936 2018-03-27 14:49:27Z suehring
 ! Bugfix: wrong placement of include 'mpif.h' corrected
 ! 
@@ -103 +106 @@
 
     INTERFACE pmc_recv_from_parent
+       MODULE PROCEDURE pmc_recv_from_parent_logical
        MODULE PROCEDURE pmc_recv_from_parent_integer
        MODULE PROCEDURE pmc_recv_from_parent_real_r1
@@ -110 +114 @@
 
     INTERFACE pmc_send_to_child
+       MODULE PROCEDURE pmc_send_to_child_logical
        MODULE PROCEDURE pmc_send_to_child_integer
        MODULE PROCEDURE pmc_send_to_child_real_r1
@@ -149 +154 @@
 
 
+ SUBROUTINE pmc_recv_from_parent_logical( buf, n, parent_rank, tag, ierr )
+
+    IMPLICIT NONE
+
+    INTEGER, INTENT(IN)                ::  n            !<
+    INTEGER, INTENT(IN)                ::  parent_rank  !<
+    INTEGER, INTENT(IN)                ::  tag          !<
+    INTEGER, INTENT(OUT)               ::  ierr         !<
+
+    LOGICAL, INTENT(OUT)               ::  buf          !<
+    
+    ierr = 0
+    CALL MPI_RECV( buf, n, MPI_LOGICAL, parent_rank, tag, m_to_parent_comm,    &
+                   MPI_STATUS_IGNORE, ierr )
+
+ END SUBROUTINE pmc_recv_from_parent_logical
+
+ SUBROUTINE pmc_send_to_child_logical( child_id, buf, n, child_rank, tag,      &
+                                       ierr )
+
+    IMPLICIT NONE
+
+    INTEGER, INTENT(IN)               ::  child_id     !<
+    INTEGER, INTENT(IN)               ::  n            !<
+    INTEGER, INTENT(IN)               ::  child_rank   !<
+    INTEGER, INTENT(IN)               ::  tag          !<
+    INTEGER, INTENT(OUT)              ::  ierr         !<
+
+    LOGICAL, INTENT(IN)               ::  buf          !<
+   
+    ierr = 0
+    CALL MPI_SEND( buf, n, MPI_LOGICAL, child_rank, tag,                       &
+                   m_to_child_comm(child_id), ierr )
+
+ END SUBROUTINE pmc_send_to_child_logical
+
+
  SUBROUTINE pmc_send_to_parent_integer( buf, n, parent_rank, tag, ierr )
 
@@ -167 +209 @@
 
 
-
  SUBROUTINE pmc_recv_from_parent_integer( buf, n, parent_rank, tag, ierr )
 
@@ -312 +353 @@
 
  END SUBROUTINE pmc_recv_from_parent_real_r3
-