47 |
|
!! |
48 |
|
!! @author Charles F. Vardeman II |
49 |
|
!! @author Matthew Meineke |
50 |
< |
!! @version $Id: simParallel.F90,v 1.5 2005-09-07 22:23:20 chuckv Exp $, $Date: 2005-09-07 22:23:20 $, $Name: not supported by cvs2svn $, $Revision: 1.5 $ |
50 |
> |
!! @version $Id: simParallel.F90,v 1.6 2006-04-03 15:37:43 chuckv Exp $, $Date: 2006-04-03 15:37:43 $, $Name: not supported by cvs2svn $, $Revision: 1.6 $ |
51 |
|
|
52 |
|
module mpiSimulation |
53 |
|
use definitions |
54 |
+ |
use status |
55 |
|
#ifdef IS_MPI |
56 |
|
use oopseMPI |
57 |
|
implicit none |
102 |
|
|
103 |
|
!! generic mpi error declaration. |
104 |
|
integer, public :: mpi_err |
105 |
+ |
character(len = statusMsgSize) :: errMsg |
106 |
|
|
107 |
|
#ifdef PROFILE |
108 |
|
public :: printCommTime |
209 |
|
|
210 |
|
!! copy c component plan to fortran |
211 |
|
mpiSim = thisComponentPlan |
212 |
< |
!write(*,*) "Seting up simParallel" |
212 |
> |
write(*,*) "Seting up simParallel" |
213 |
|
|
214 |
|
call make_Force_Grid(mpiSim, localStatus) |
215 |
|
if (localStatus /= 0) then |
216 |
< |
write(default_error,*) "Error creating force grid" |
216 |
> |
write(errMsg, *) 'An error in making the force grid has occurred' |
217 |
> |
call handleError("setupSimParallel", errMsg) |
218 |
|
status = -1 |
219 |
|
return |
220 |
|
endif |
221 |
|
|
222 |
|
call updateGridComponents(mpiSim, localStatus) |
223 |
|
if (localStatus /= 0) then |
224 |
< |
write(default_error,*) "Error updating grid components" |
224 |
> |
write(errMsg,*) "Error updating grid components" |
225 |
> |
call handleError("setupSimParallel", errMsg) |
226 |
|
status = -1 |
227 |
|
return |
228 |
|
endif |
254 |
|
|
255 |
|
call setAtomTags(atomTags,localStatus) |
256 |
|
if (localStatus /= 0) then |
257 |
+ |
write(errMsg, *) 'An error in setting Atom Tags has occured' |
258 |
+ |
call handleError("setupSimParallel", errMsg) |
259 |
|
status = -1 |
260 |
|
return |
261 |
|
endif |
263 |
|
|
264 |
|
call setGroupTags(groupTags,localStatus) |
265 |
|
if (localStatus /= 0) then |
266 |
+ |
write(errMsg, *) 'An error in setting Group Tags has occured' |
267 |
+ |
call handleError("setupSimParallel", errMsg) |
268 |
|
status = -1 |
269 |
|
return |
270 |
|
endif |