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.2 2003-02-26 18:45:57 mmeineke Exp $, $Date: 2003-02-26 18:45:57 $, $Name: not supported by cvs2svn $, $Revision: 1.2 $ |
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 |
|
|