PLAG_BufferSizeRecv.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 from adjacent regions on different processor.
!
! Description: none.
!
! Input: regions = data of all regions
!        iReg    = index of current region.
!
! Output: buffer size from other processors.
!
! Notes: None.
!
!******************************************************************************
!
! $Id: PLAG_BufferSizeRecv.F90,v 1.5 2009/03/02 00:19:36 mtcampbe Exp $
!
! Copyright: (c) 2003 by the University of Illinois
!
!******************************************************************************

SUBROUTINE plag_buffersizerecv( regions, iReg )

  USE moddatatypes
  USE modpartlag, ONLY    : t_buffer_plag
  USE modbndpatch, ONLY   : t_patch
  USE moddatastruct, ONLY : t_region
  USE modglobal, ONLY     : t_global
  USE modpartlag, ONLY    : t_plag
  USE moderror
  USE modmpi
  USE modparameters
  IMPLICIT NONE

! ... parameters
  TYPE(t_region), POINTER :: regions(:)
  
  INTEGER :: ireg

! ... loop variables
  INTEGER :: ipatch

! ... local variables
  CHARACTER(CHRLEN) :: rcsidentstring

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

  INTEGER :: bctype, ilev, ipatchdes, ipatchsrc, iregsrc,       &
             ndimbuffsize, ndv, npatches, ntv, procsrc, tagsrc 
                                      
  TYPE(t_patch),  POINTER :: patchsrc, patchdes
  TYPE(t_plag),   POINTER :: pplag
  TYPE(t_global), POINTER :: global

!******************************************************************************

  rcsidentstring = '$RCSfile: PLAG_BufferSizeRecv.F90,v $ $Revision: 1.5 $'

  global => regions(ireg)%global

  CALL registerfunction( global,'PLAG_BufferSizeRecv',&
  'PLAG_BufferSizeRecv.F90' )
            
! receive buffer size from source to destination region 
  
! get dimensions --------------------------------------------------------------
    
  ndimbuffsize = 1 

  ilev     = regions(ireg)%currLevel
  npatches = regions(ireg)%nPatches

! loop over patches -----------------------------------------------------------

  DO ipatch = 1, npatches

! - pointer is at Des region getting data from Src region ---------------------
     
    patchdes => regions(ireg)%levels(ilev)%patches(ipatch)

    bctype    = patchdes%bcType
    iregsrc   = patchdes%srcRegion
    ipatchsrc = patchdes%srcPatch

! - region interface for various boundary conditions --------------------------

    IF ( (bctype>=bc_regionconf .AND. bctype<=bc_regionconf+bc_range) .OR. &
         (bctype>=bc_regionint  .AND. bctype<=bc_regionint +bc_range) .OR. &
         (bctype>=bc_regnonconf .AND. bctype<=bc_regnonconf+bc_range) .OR. &
         (bctype>=bc_tra_peri   .AND. bctype<=bc_tra_peri  +bc_range) .OR. &
         (bctype>=bc_rot_peri   .AND. bctype<=bc_rot_peri  +bc_range) ) THEN

      IF ( regions(iregsrc)%procid /= global%myProcid ) THEN
        patchsrc => regions(iregsrc)%levels(ilev)%patches(ipatchsrc)
             
#ifdef MPI
        procsrc = regions(iregsrc)%procid
        tagsrc  = regions(ireg)%localNumber &
                + plag_tag_shift +mpi_patchoff*patchsrc%srcPatch*ireg &
                + global%myProcid

        IF(tagsrc .gt. global%mpiTagMax) tagsrc = mod(tagsrc,global%mpiTagMax)

        CALL mpi_recv( patchdes%bufferPlag%nBuffSizeDes,              &
                       ndimbuffsize,mpi_integer,                      &
                       procsrc,tagsrc,global%mpiComm,statusplag,global%mpierr )

        IF (global%mpierr /= err_none) &
          CALL errorstop( global,err_mpi_trouble,__line__ )

#ifdef PLAG_MPI_DEBUG                    
   IF ( patchdes%bufferPlag%nBuffSizeDes /= 0 ) &
   WRITE(stdout,*) '  PLAG_BufferSizeRecv: iRegDes, iRegSrc, procSrc, tagSrc, nBuffSizeDes  = ',&
                  ireg, iregsrc, procsrc,tagsrc, patchdes%bufferPlag%nBuffSizeDes
#endif

#endif
 
      ENDIF ! regions
    ENDIF ! bcType
         
  ENDDO ! iPatch

! finalize --------------------------------------------------------------------

  CALL deregisterfunction( global )

END SUBROUTINE plag_buffersizerecv

!******************************************************************************
!
! RCS Revision history:
!
! $Log: PLAG_BufferSizeRecv.F90,v $
! Revision 1.5  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.4  2008/12/06 08:44:32  mtcampbe
! Updated license.
!
! Revision 1.3  2008/11/19 22:17:45  mtcampbe
! Added Illinois Open Source License/Copyright
!
! Revision 1.2  2006/04/07 15:19:23  haselbac
! Removed tabs
!
! Revision 1.1  2004/12/01 20:56:57  fnajjar
! Initial revision after changing case
!
! Revision 1.12  2004/04/09 23:05:54  fnajjar
! Added IF statement to activate only for non-null buffer size
!
! Revision 1.11  2004/03/21 00:43:32  fnajjar
! Fixed tags to be smaller number since Frost run-time system complains about size
!
! Revision 1.10  2004/03/06 21:25:05  fnajjar
! Added PLAG_TAG_SHIFT to MPI-based communication tags
!
! Revision 1.9  2003/05/07 00:15:05  fnajjar
! Included I/O within ifdef PLAG_MPI_DEBUG construct
!
! Revision 1.8  2003/01/24 23:10:15  f-najjar
! Added to tagSrc and tagDes procId for Des region to avoid tag collision
!
! Revision 1.7  2003/01/24 22:46:14  f-najjar
! Moved WRITE statement and included nBuffSizeDes in writeup for testing
!
! Revision 1.6  2003/01/24 22:37:30  f-najjar
! Made tagSrc less prone to tag collision by multiplying by iReg
!
! Revision 1.5  2003/01/24 22:33:35  f-najjar
! Used generic ERR_NONE for MPI error trapping
!
! Revision 1.4  2003/01/24 22:31:03  f-najjar
! Changed call MPI_Irecv to MPI_Recv
!
! Revision 1.3  2003/01/23 18:49:13  f-najjar
! Bug fix for WRITE statement
!
! Revision 1.2  2003/01/23 17:51:34  f-najjar
! Add ModMPI for MPI communication
!
! Revision 1.1  2003/01/23 17:30:39  f-najjar
! Initial import for MPI
!
!******************************************************************************