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.3 2003-03-12 19:10:54 gezelter Exp $, $Date: 2003-03-12 19:10:54 $, $Name: not supported by cvs2svn $, $Revision: 1.3 $ |
9 |
|
|
10 |
– |
|
11 |
– |
|
12 |
– |
|
10 |
|
module mpiSimulation |
11 |
|
use definitions |
12 |
|
use mpi |
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 |
|
|