| File |
Line number |
Procedure |
Code |
|
./eesupp/src/ini_procs.F |
134 |
INI_PROCS |
mpiGridSpec(1) = nPx |
|
./eesupp/src/ini_procs.F |
135 |
INI_PROCS |
mpiGridSpec(2) = nPy |
|
./eesupp/src/ini_procs.F |
159 |
INI_PROCS |
I MPI_COMM_MODEL,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_, |
|
./eesupp/src/ini_procs.F |
171 |
INI_PROCS |
CALL MPI_CART_COORDS( mpiComm, mpiMyId, 2, mpiGridSpec, mpiRC ) |
|
./eesupp/src/ini_procs.F |
181 |
INI_PROCS |
mpiPx = mpiGridSpec(1) |
|
./eesupp/src/ini_procs.F |
182 |
INI_PROCS |
mpiPy = mpiGridSpec(2) |
|
./eesupp/src/ini_procs.F |
216 |
INI_PROCS |
mpiGridSpec(1) = mpiPx-1 |
|
./eesupp/src/ini_procs.F |
218 |
INI_PROCS |
& .AND. mpiGridSpec(1) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
219 |
INI_PROCS |
& mpiGridSpec(1) = nPx-1 |
|
./eesupp/src/ini_procs.F |
220 |
INI_PROCS |
mpiGridSpec(2) = mpiPy |
|
./eesupp/src/ini_procs.F |
221 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidW , mpiRC ) |
|
./eesupp/src/ini_procs.F |
231 |
INI_PROCS |
mpiGridSpec(1) = mpiPx+1 |
|
./eesupp/src/ini_procs.F |
233 |
INI_PROCS |
& .AND. mpiGridSpec(1) .GT. nPx-1 ) |
|
./eesupp/src/ini_procs.F |
234 |
INI_PROCS |
& mpiGridSpec(1) = 0 |
|
./eesupp/src/ini_procs.F |
235 |
INI_PROCS |
mpiGridSpec(2) = mpiPy |
|
./eesupp/src/ini_procs.F |
236 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidE , mpiRC ) |
|
./eesupp/src/ini_procs.F |
246 |
INI_PROCS |
mpiGridSpec(1) = mpiPx |
|
./eesupp/src/ini_procs.F |
247 |
INI_PROCS |
mpiGridSpec(2) = mpiPy-1 |
|
./eesupp/src/ini_procs.F |
249 |
INI_PROCS |
& .AND. mpiGridSpec(2) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
250 |
INI_PROCS |
& mpiGridSpec(2) = nPy - 1 |
|
./eesupp/src/ini_procs.F |
251 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidS , mpiRC ) |
|
./eesupp/src/ini_procs.F |
261 |
INI_PROCS |
mpiGridSpec(1) = mpiPx |
|
./eesupp/src/ini_procs.F |
262 |
INI_PROCS |
mpiGridSpec(2) = mpiPy+1 |
|
./eesupp/src/ini_procs.F |
264 |
INI_PROCS |
& .AND. mpiGridSpec(2) .GT. nPy-1 ) |
|
./eesupp/src/ini_procs.F |
265 |
INI_PROCS |
& mpiGridSpec(2) = 0 |
|
./eesupp/src/ini_procs.F |
266 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidN , mpiRC ) |
|
./eesupp/src/ini_procs.F |
54 |
INI_PROCS |
INTEGER mpiGridSpec(2) |