PLAG_CECellsRecvSize.F90

Go to the documentation of this file.

! *********************************************************************
! * Rocstar Simulation Suite                                          *
! * Copyright@2015, Illinois Rocstar LLC. All rights reserved.        *
! *                                                                   *
! * Illinois Rocstar LLC                                              *
! * Champaign, IL                                                     *
! * www.illinoisrocstar.com                                           *
! * sales@illinoisrocstar.com                                         *
! *                                                                   *
! * License: See LICENSE file in top level of distribution package or *
! * http://opensource.org/licenses/NCSA                               *
! *********************************************************************
! *********************************************************************
! * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,   *
! * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES   *
! * OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND          *
! * NONINFRINGEMENT.  IN NO EVENT SHALL THE CONTRIBUTORS OR           *
! * COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER       *
! * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,   *
! * Arising FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE    *
! * USE OR OTHER DEALINGS WITH THE SOFTWARE.                          *
! *********************************************************************
!******************************************************************************
!
! Purpose: receive buffer size to edge and corner cells of an adjacent region. 
!          
! Description: kernel is pertinent when the other region is located
!              on a different processor.
!
! Input: 
!   regions = data of all regions
!   iReg    = current region.
!
! Output: buffer size received.
!
! Notes: none.
!
!******************************************************************************
!
! $Id: PLAG_CECellsRecvSize.F90,v 1.4 2009/03/02 00:19:36 mtcampbe Exp $
!
! Copyright: (c) 2004 by the University of Illinois
!
!******************************************************************************

SUBROUTINE plag_cecellsrecvsize( regions,iReg )

  USE moddatatypes
  USE moderror
  USE modmpi
  USE modparameters
  USE modglobal,     ONLY : t_global
  USE moddatastruct, ONLY : t_dcelltransf, t_level, t_region 

  IMPLICIT NONE

! ******************************************************************************
! Definitions and declarations
! ******************************************************************************

! ==============================================================================
! Arguments
! ==============================================================================

  TYPE(t_region), POINTER :: regions(:)

  INTEGER, INTENT(IN)     :: ireg

! ==============================================================================
! Locals
! ==============================================================================

  CHARACTER(CHRLEN) :: rcsidentstring

#ifdef MPI
  INTEGER :: statusplag(mpi_status_size)
#endif

  INTEGER ::  ilev,ir,ndimbuffsize,source,tag

  TYPE(t_dcelltransf), POINTER :: precveccell
  TYPE(t_global),      POINTER :: global
  TYPE(t_level),       POINTER :: plevel
  TYPE(t_region),      POINTER :: pregion 

! ******************************************************************************
! Start
! ******************************************************************************

  rcsidentstring = '$RCSfile: PLAG_CECellsRecvSize.F90,v $ $Revision: 1.4 $'

  global => regions(ireg)%global

  CALL registerfunction( global,'PLAG_CECellsRecvSize',&
  'PLAG_CECellsRecvSize.F90' )

! ******************************************************************************
! Get dimensions 
! ******************************************************************************

  ilev = regions(ireg)%currLevel
  
  ndimbuffsize = 1 

! ******************************************************************************
! Set pointers 
! ******************************************************************************
 
  pregion => regions(ireg)
  plevel  => regions(ireg)%levels(ilev) 

! ******************************************************************************
! Receive buffer size from source processor 
! ******************************************************************************

  DO ir=1,global%nRegions
    IF (regions(ir)%procid /= global%myProcid) THEN
    IF (plevel%recvEcCells(ir)%nCells > 0) THEN
      precveccell => plevel%recvEcCells(ir)

#ifdef MPI
      source = regions(ir)%procid
      tag    = regions(ireg)%localNumber +plag_tag_shift +mpi_patchoff +1000

        IF(tag .gt. global%mpiTagMax) tag = mod(tag,global%mpiTagMax)
      CALL mpi_recv( precveccell%nBuffSizePlag,ndimbuffsize,mpi_integer, &
                     source,tag,global%mpiComm,statusplag,global%mpierr )
      IF ( global%mpierr /= err_none ) &
        CALL errorstop( global,err_mpi_trouble,__line__ )
#endif

#ifdef PLAG_CECELLS_MPI_DEBUG 
   IF ( precveccell%nBuffSizePlag > 0 ) &                 
     WRITE(stdout,*) '  PLAG_CECellsRecvSize: iRegDes, iRegSrc, procSrc, tagSrc, nBuffSizePlag  = ',&
      ireg, ir,source,tag,precveccell%nBuffSizePlag
#endif

    ENDIF      ! some cells to receive
    ENDIF      ! not my processor
  ENDDO        ! ir

! ******************************************************************************
! finalize
! ******************************************************************************

  CALL deregisterfunction( global )

END SUBROUTINE plag_cecellsrecvsize

!******************************************************************************
!
! RCS Revision history:
!
! $Log: PLAG_CECellsRecvSize.F90,v $
! Revision 1.4  2009/03/02 00:19:36  mtcampbe
! Added some ifdefs around Rocflo to disable particle injection on INFLOW
! boundaries and added some checks around MPI tags utilizing a new global
! data item, global%mpiTagMax.
!
! Revision 1.3  2008/12/06 08:44:33  mtcampbe
! Updated license.
!
! Revision 1.2  2008/11/19 22:17:45  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.1  2004/12/01 20:57:16  fnajjar
! Initial revision after changing case
!
! Revision 1.1  2004/03/10 23:16:09  fnajjar
! Initial import of routines to MPI-communicate buffer sizes
!
!******************************************************************************