| 5 |
|
!! |
| 6 |
|
!! @author Charles F. Vardeman II |
| 7 |
|
!! @author Matthew Meineke |
| 8 |
< |
!! @version $Id: mpiSimulation_module.F90,v 1.7 2003-01-31 21:04:27 chuckv Exp $, $Date: 2003-01-31 21:04:27 $, $Name: not supported by cvs2svn $, $Revision: 1.7 $ |
| 8 |
> |
!! @version $Id: mpiSimulation_module.F90,v 1.8 2003-02-24 21:26:54 chuckv Exp $, $Date: 2003-02-24 21:26:54 $, $Name: not supported by cvs2svn $, $Revision: 1.8 $ |
| 9 |
|
|
| 10 |
|
|
| 11 |
|
|
| 94 |
|
type (gs_plan), public :: plan_row3d |
| 95 |
|
type (gs_plan), public :: plan_col |
| 96 |
|
type (gs_plan), public :: plan_col3d |
| 97 |
+ |
type(gs_plan), public :: plan_row_Rotation |
| 98 |
+ |
type(gs_plan), public :: plan_col_Rotation |
| 99 |
|
|
| 100 |
|
type (mpiComponentPlan), pointer :: simComponentPlan |
| 101 |
|
|
| 168 |
|
mpiSim,mpiSim%rowComm,plan_row) |
| 169 |
|
call plan_gather_scatter(nDim,mpiSim%myNlocal,& |
| 170 |
|
mpiSim,mpiSim%rowComm,plan_row3d) |
| 171 |
+ |
call plan_gather_scatter(9,mpiSim%myNlocal,& |
| 172 |
+ |
mpiSim,mpiSim%rowComm,plan_row_Rotation) |
| 173 |
|
call plan_gather_scatter(1,mpiSim%myNlocal,& |
| 174 |
|
mpiSim,mpiSim%columnComm,plan_col) |
| 175 |
|
call plan_gather_scatter(nDim,mpiSim%myNlocal,& |
| 176 |
|
mpiSim,mpiSim%columnComm,plan_col3d) |
| 177 |
+ |
call plan_gather_scatter(9,mpiSim%myNlocal,& |
| 178 |
+ |
mpiSim,mpiSim%columnComm,plan_col_Rotation) |
| 179 |
|
|
| 180 |
+ |
|
| 181 |
+ |
|
| 182 |
|
! Initialize tags |
| 183 |
|
call setTags(tags,localStatus) |
| 184 |
|
if (localStatus /= 0) then |
| 208 |
|
!! Unplan Gather Scatter plans |
| 209 |
|
call unplan_gather_scatter(plan_row) |
| 210 |
|
call unplan_gather_scatter(plan_row3d) |
| 211 |
+ |
call unplan_gather_scatter(plan_row_Rotation) |
| 212 |
|
call unplan_gather_scatter(plan_col) |
| 213 |
|
call unplan_gather_scatter(plan_col3d) |
| 214 |
< |
|
| 214 |
> |
call unplan_gather_scatter(plan_col_Rotation) |
| 215 |
|
|
| 216 |
|
!! initialize gather and scatter plans used in this simulation |
| 217 |
|
call plan_gather_scatter(1,thisComponentPlan%myNlocal,& |
| 218 |
|
thisComponentPlan,thisComponentPlan%rowComm,plan_row) |
| 219 |
|
call plan_gather_scatter(nDim,thisComponentPlan%myNlocal,& |
| 220 |
|
thisComponentPlan,thisComponentPlan%rowComm,plan_row3d) |
| 221 |
+ |
call plan_gather_scatter(9,thisComponentPlan%myNlocal,& |
| 222 |
+ |
thisComponentPlan,thisComponentPlan%rowComm,plan_row_Rotation) |
| 223 |
|
call plan_gather_scatter(1,thisComponentPlan%myNlocal,& |
| 224 |
|
thisComponentPlan,thisComponentPlan%columnComm,plan_col) |
| 225 |
|
call plan_gather_scatter(nDim,thisComponentPlan%myNlocal,& |
| 226 |
|
thisComponentPlan,thisComponentPlan%rowComm,plan_col3d) |
| 227 |
+ |
call plan_gather_scatter(9,thisComponentPlan%myNlocal,& |
| 228 |
+ |
thisComponentPlan,thisComponentPlan%rowComm,plan_col_Rotation) |
| 229 |
|
|
| 230 |
|
|
| 231 |
|
|
