| 47 |
|
!! |
| 48 |
|
!! @author Charles F. Vardeman II |
| 49 |
|
!! @author Matthew Meineke |
| 50 |
< |
!! @version $Id: simParallel.F90,v 1.4 2005-04-15 22:03:48 gezelter Exp $, $Date: 2005-04-15 22:03:48 $, $Name: not supported by cvs2svn $, $Revision: 1.4 $ |
| 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 |
| 85 |
|
public :: mpi_comm_world |
| 86 |
|
public :: mpi_character |
| 87 |
|
public :: mpi_integer |
| 88 |
+ |
public :: mpi_lor |
| 89 |
+ |
public :: mpi_logical |
| 90 |
|
public :: mpi_double_precision |
| 91 |
|
public :: mpi_sum |
| 92 |
|
public :: mpi_max |
| 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 |
