Scrambler
1
|
00001 !######################################################################### 00002 ! 00003 ! Copyright (C) 2003-2012 Department of Physics and Astronomy, 00004 ! University of Rochester, 00005 ! Rochester, NY 00006 ! 00007 ! elliptic_comms.f90 is part of AstroBEAR. 00008 ! 00009 ! AstroBEAR is free software: you can redistribute it and/or modify 00010 ! it under the terms of the GNU General Public License as published by 00011 ! the Free Software Foundation, either version 3 of the License, or 00012 ! (at your option) any later version. 00013 ! 00014 ! AstroBEAR is distributed in the hope that it will be useful, 00015 ! but WITHOUT ANY WARRANTY; without even the implied warranty of 00016 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00017 ! GNU General Public License for more details. 00018 ! 00019 ! You should have received a copy of the GNU General Public License 00020 ! along with AstroBEAR. If not, see <http://www.gnu.org/licenses/>. 00021 ! 00022 !######################################################################### 00023 MODULE EllipticComms 00024 USE DataLevelComms 00025 USE GlobalDeclarations 00026 USE TreeDeclarations 00027 USE DataLevelOps 00028 ! USE DataInfoOps 00029 00030 00031 CONTAINS 00032 00037 SUBROUTINE EllipticTransfer(n,fields,nghost) 00038 INTEGER :: n 00039 INTEGER, DIMENSION(:) :: fields 00040 INTEGER :: nghost 00041 CALL GenericTransfer(n, fields, nghost, lEllipticPeriodic) 00042 ! write(*,*) 'ghosting', n, fields, nghost 00043 ! CALL PostRecvGenericData(n, fields, nghost, lEllipticPeriodic) ! [BDS][20110113]: Added fields, ghost to facilitate precalculation. 00044 ! CALL PostSendGenericData(n,fields,nghost, lEllipticPeriodic) 00045 ! CALL ApplyGenericOverlaps(n,fields,nghost, lEllipticPeriodic) 00046 ! CALL MPI_CHECK_MSG_GROUPS(iRecvEllipticData, iSendEllipticData, n, n) 00047 ! CALL CompRecvGenericData(n,fields) 00048 ! CALL CompSendGenericData(n) 00049 END SUBROUTINE EllipticTransfer 00050 00074 00075 00076 END MODULE EllipticComms