| 5 |
|
!! |
| 6 |
|
!! @author Charles F. Vardeman II |
| 7 |
|
!! @author Matthew Meineke |
| 8 |
< |
!! @version $Id: mpiSimulation_module.F90,v 1.1 2003-02-17 21:27:47 mmeineke Exp $, $Date: 2003-02-17 21:27:47 $, $Name: not supported by cvs2svn $, $Revision: 1.1 $ |
| 8 |
> |
!! @version $Id: mpiSimulation_module.F90,v 1.4 2003-03-13 15:28:43 gezelter Exp $, $Date: 2003-03-13 15:28:43 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $ |
| 9 |
|
|
| 10 |
– |
|
| 11 |
– |
|
| 12 |
– |
|
| 10 |
|
module mpiSimulation |
| 11 |
|
use definitions |
| 12 |
|
use mpi |
| 65 |
|
!! Tags used during force loop for parallel simulation |
| 66 |
|
integer, allocatable, dimension(:) :: tagLocal |
| 67 |
|
integer, public, allocatable, dimension(:) :: tagRow |
| 68 |
< |
integer ,public, allocatable, dimension(:) :: tagColumn |
| 68 |
> |
integer, public, allocatable, dimension(:) :: tagColumn |
| 69 |
|
|
| 70 |
|
!! Logical set true if mpiSimulation has been initialized |
| 71 |
|
logical :: isSimSet = .false. |
| 91 |
|
type (gs_plan), public :: plan_row3d |
| 92 |
|
type (gs_plan), public :: plan_col |
| 93 |
|
type (gs_plan), public :: plan_col3d |
| 94 |
+ |
type(gs_plan), public :: plan_row_Rotation |
| 95 |
+ |
type(gs_plan), public :: plan_col_Rotation |
| 96 |
|
|
| 97 |
|
type (mpiComponentPlan), pointer :: simComponentPlan |
| 98 |
|
|
| 165 |
|
mpiSim,mpiSim%rowComm,plan_row) |
| 166 |
|
call plan_gather_scatter(nDim,mpiSim%myNlocal,& |
| 167 |
|
mpiSim,mpiSim%rowComm,plan_row3d) |
| 168 |
+ |
call plan_gather_scatter(9,mpiSim%myNlocal,& |
| 169 |
+ |
mpiSim,mpiSim%rowComm,plan_row_Rotation) |
| 170 |
|
call plan_gather_scatter(1,mpiSim%myNlocal,& |
| 171 |
|
mpiSim,mpiSim%columnComm,plan_col) |
| 172 |
|
call plan_gather_scatter(nDim,mpiSim%myNlocal,& |
| 173 |
|
mpiSim,mpiSim%columnComm,plan_col3d) |
| 174 |
+ |
call plan_gather_scatter(9,mpiSim%myNlocal,& |
| 175 |
+ |
mpiSim,mpiSim%columnComm,plan_col_Rotation) |
| 176 |
|
|
| 177 |
+ |
|
| 178 |
+ |
|
| 179 |
|
! Initialize tags |
| 180 |
|
call setTags(tags,localStatus) |
| 181 |
|
if (localStatus /= 0) then |
| 205 |
|
!! Unplan Gather Scatter plans |
| 206 |
|
call unplan_gather_scatter(plan_row) |
| 207 |
|
call unplan_gather_scatter(plan_row3d) |
| 208 |
+ |
call unplan_gather_scatter(plan_row_Rotation) |
| 209 |
|
call unplan_gather_scatter(plan_col) |
| 210 |
|
call unplan_gather_scatter(plan_col3d) |
| 211 |
+ |
call unplan_gather_scatter(plan_col_Rotation) |
| 212 |
|
|
| 206 |
– |
|
| 213 |
|
!! initialize gather and scatter plans used in this simulation |
| 214 |
|
call plan_gather_scatter(1,thisComponentPlan%myNlocal,& |
| 215 |
|
thisComponentPlan,thisComponentPlan%rowComm,plan_row) |
| 216 |
|
call plan_gather_scatter(nDim,thisComponentPlan%myNlocal,& |
| 217 |
|
thisComponentPlan,thisComponentPlan%rowComm,plan_row3d) |
| 218 |
+ |
call plan_gather_scatter(9,thisComponentPlan%myNlocal,& |
| 219 |
+ |
thisComponentPlan,thisComponentPlan%rowComm,plan_row_Rotation) |
| 220 |
|
call plan_gather_scatter(1,thisComponentPlan%myNlocal,& |
| 221 |
|
thisComponentPlan,thisComponentPlan%columnComm,plan_col) |
| 222 |
|
call plan_gather_scatter(nDim,thisComponentPlan%myNlocal,& |
| 223 |
|
thisComponentPlan,thisComponentPlan%rowComm,plan_col3d) |
| 224 |
+ |
call plan_gather_scatter(9,thisComponentPlan%myNlocal,& |
| 225 |
+ |
thisComponentPlan,thisComponentPlan%rowComm,plan_col_Rotation) |
| 226 |
|
|
| 227 |
|
|
| 228 |
|
|
| 614 |
|
call gather(tags,tagRow,plan_row) |
| 615 |
|
call gather(tags,tagColumn,plan_col) |
| 616 |
|
|
| 607 |
– |
|
| 617 |
|
end subroutine setTags |
| 618 |
|
|
| 619 |
|
pure function getNcol(thisplan) result(ncol) |
