| File |
Line number |
Procedure |
Code |
|
./eesupp/src/ini_procs.F |
129 |
INI_PROCS |
mpiGridSpec(1) = nPx |
|
./eesupp/src/ini_procs.F |
130 |
INI_PROCS |
mpiGridSpec(2) = nPy |
|
./eesupp/src/ini_procs.F |
154 |
INI_PROCS |
I MPI_COMM_MODEL,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_, |
|
./eesupp/src/ini_procs.F |
166 |
INI_PROCS |
CALL MPI_CART_COORDS( mpiComm, mpiMyId, 2, mpiGridSpec, mpiRC ) |
|
./eesupp/src/ini_procs.F |
176 |
INI_PROCS |
mpiPx = mpiGridSpec(1) |
|
./eesupp/src/ini_procs.F |
177 |
INI_PROCS |
mpiPy = mpiGridSpec(2) |
|
./eesupp/src/ini_procs.F |
199 |
INI_PROCS |
mpiGridSpec(1) = mpiPx-1 |
|
./eesupp/src/ini_procs.F |
201 |
INI_PROCS |
& .AND. mpiGridSpec(1) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
202 |
INI_PROCS |
& mpiGridSpec(1) = nPx-1 |
|
./eesupp/src/ini_procs.F |
203 |
INI_PROCS |
mpiGridSpec(2) = mpiPy |
|
./eesupp/src/ini_procs.F |
208 |
INI_PROCS |
& .AND. mpiGridSpec(1) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
209 |
INI_PROCS |
& mpiGridSpec(1) = 0 |
|
./eesupp/src/ini_procs.F |
214 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidW , mpiRC ) |
|
./eesupp/src/ini_procs.F |
224 |
INI_PROCS |
mpiGridSpec(1) = mpiPx+1 |
|
./eesupp/src/ini_procs.F |
226 |
INI_PROCS |
& .AND. mpiGridSpec(1) .GT. nPx-1 ) |
|
./eesupp/src/ini_procs.F |
227 |
INI_PROCS |
& mpiGridSpec(1) = 0 |
|
./eesupp/src/ini_procs.F |
228 |
INI_PROCS |
mpiGridSpec(2) = mpiPy |
|
./eesupp/src/ini_procs.F |
233 |
INI_PROCS |
& .AND. mpiGridSpec(1) .GT. nPx-1 ) |
|
./eesupp/src/ini_procs.F |
234 |
INI_PROCS |
& mpiGridSpec(1) = nPx-1 |
|
./eesupp/src/ini_procs.F |
238 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidE , mpiRC ) |
|
./eesupp/src/ini_procs.F |
248 |
INI_PROCS |
mpiGridSpec(1) = mpiPx |
|
./eesupp/src/ini_procs.F |
249 |
INI_PROCS |
mpiGridSpec(2) = mpiPy-1 |
|
./eesupp/src/ini_procs.F |
251 |
INI_PROCS |
& .AND. mpiGridSpec(2) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
252 |
INI_PROCS |
& mpiGridSpec(2) = nPy - 1 |
|
./eesupp/src/ini_procs.F |
253 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidS , mpiRC ) |
|
./eesupp/src/ini_procs.F |
263 |
INI_PROCS |
mpiGridSpec(1) = mpiPx |
|
./eesupp/src/ini_procs.F |
264 |
INI_PROCS |
mpiGridSpec(2) = mpiPy+1 |
|
./eesupp/src/ini_procs.F |
266 |
INI_PROCS |
& .AND. mpiGridSpec(2) .GT. nPy-1 ) |
|
./eesupp/src/ini_procs.F |
267 |
INI_PROCS |
& mpiGridSpec(2) = 0 |
|
./eesupp/src/ini_procs.F |
268 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidN , mpiRC ) |
|
./eesupp/src/ini_procs.F |
56 |
INI_PROCS |
INTEGER mpiGridSpec(2) |