Ignore:
Timestamp:
Mar 27, 2018 3:52:42 PM (4 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_mpi_wrapper_mod.f90

    r2841 r2938  
    2626! -----------------
    2727! $Id$
     28! Extent interface by logical buffer
     29!
     30! 2936 2018-03-27 14:49:27Z suehring
    2831! Bugfix: wrong placement of include 'mpif.h' corrected
    2932!
     
    103106
    104107    INTERFACE pmc_recv_from_parent
     108       MODULE PROCEDURE pmc_recv_from_parent_logical
    105109       MODULE PROCEDURE pmc_recv_from_parent_integer
    106110       MODULE PROCEDURE pmc_recv_from_parent_real_r1
     
    110114
    111115    INTERFACE pmc_send_to_child
     116       MODULE PROCEDURE pmc_send_to_child_logical
    112117       MODULE PROCEDURE pmc_send_to_child_integer
    113118       MODULE PROCEDURE pmc_send_to_child_real_r1
     
    149154
    150155
     156 SUBROUTINE pmc_recv_from_parent_logical( buf, n, parent_rank, tag, ierr )
     157
     158    IMPLICIT NONE
     159
     160    INTEGER, INTENT(IN)                ::  n            !<
     161    INTEGER, INTENT(IN)                ::  parent_rank  !<
     162    INTEGER, INTENT(IN)                ::  tag          !<
     163    INTEGER, INTENT(OUT)               ::  ierr         !<
     164
     165    LOGICAL, INTENT(OUT)               ::  buf          !<
     166   
     167    ierr = 0
     168    CALL MPI_RECV( buf, n, MPI_LOGICAL, parent_rank, tag, m_to_parent_comm,    &
     169                   MPI_STATUS_IGNORE, ierr )
     170
     171 END SUBROUTINE pmc_recv_from_parent_logical
     172
     173 SUBROUTINE pmc_send_to_child_logical( child_id, buf, n, child_rank, tag,      &
     174                                       ierr )
     175
     176    IMPLICIT NONE
     177
     178    INTEGER, INTENT(IN)               ::  child_id     !<
     179    INTEGER, INTENT(IN)               ::  n            !<
     180    INTEGER, INTENT(IN)               ::  child_rank   !<
     181    INTEGER, INTENT(IN)               ::  tag          !<
     182    INTEGER, INTENT(OUT)              ::  ierr         !<
     183
     184    LOGICAL, INTENT(IN)               ::  buf          !<
     185   
     186    ierr = 0
     187    CALL MPI_SEND( buf, n, MPI_LOGICAL, child_rank, tag,                       &
     188                   m_to_child_comm(child_id), ierr )
     189
     190 END SUBROUTINE pmc_send_to_child_logical
     191
     192
    151193 SUBROUTINE pmc_send_to_parent_integer( buf, n, parent_rank, tag, ierr )
    152194
     
    167209
    168210
    169 
    170211 SUBROUTINE pmc_recv_from_parent_integer( buf, n, parent_rank, tag, ierr )
    171212
     
    312353
    313354 END SUBROUTINE pmc_recv_from_parent_real_r3
    314 
    315355
    316356
Note: See TracChangeset for help on using the changeset viewer.