| File |
Line number |
Procedure |
Code |
|
./eesupp/src/ini_procs.F |
122 |
INI_PROCS |
mpiGridSpec(1) = nPx |
|
./eesupp/src/ini_procs.F |
123 |
INI_PROCS |
mpiGridSpec(2) = nPy |
|
./eesupp/src/ini_procs.F |
147 |
INI_PROCS |
I MPI_COMM_MODEL,2,mpiGridSpec,mpiPeriodicity,_mpiTRUE_, |
|
./eesupp/src/ini_procs.F |
159 |
INI_PROCS |
CALL MPI_CART_COORDS( mpiComm, mpiMyId, 2, mpiGridSpec, mpiRC ) |
|
./eesupp/src/ini_procs.F |
169 |
INI_PROCS |
mpiPx = mpiGridSpec(1) |
|
./eesupp/src/ini_procs.F |
170 |
INI_PROCS |
mpiPy = mpiGridSpec(2) |
|
./eesupp/src/ini_procs.F |
193 |
INI_PROCS |
mpiGridSpec(1) = mpiPx-1 |
|
./eesupp/src/ini_procs.F |
195 |
INI_PROCS |
& .AND. mpiGridSpec(1) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
196 |
INI_PROCS |
& mpiGridSpec(1) = nPx-1 |
|
./eesupp/src/ini_procs.F |
197 |
INI_PROCS |
mpiGridSpec(2) = mpiPy |
|
./eesupp/src/ini_procs.F |
202 |
INI_PROCS |
& .AND. mpiGridSpec(1) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
203 |
INI_PROCS |
& mpiGridSpec(1) = 0 |
|
./eesupp/src/ini_procs.F |
207 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidW , mpiRC ) |
|
./eesupp/src/ini_procs.F |
217 |
INI_PROCS |
mpiGridSpec(1) = mpiPx+1 |
|
./eesupp/src/ini_procs.F |
219 |
INI_PROCS |
& .AND. mpiGridSpec(1) .GT. nPx-1 ) |
|
./eesupp/src/ini_procs.F |
220 |
INI_PROCS |
& mpiGridSpec(1) = 0 |
|
./eesupp/src/ini_procs.F |
221 |
INI_PROCS |
mpiGridSpec(2) = mpiPy |
|
./eesupp/src/ini_procs.F |
226 |
INI_PROCS |
& .AND. mpiGridSpec(1) .GT. nPx-1 ) |
|
./eesupp/src/ini_procs.F |
227 |
INI_PROCS |
& mpiGridSpec(1) = nPx-1 |
|
./eesupp/src/ini_procs.F |
231 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidE , mpiRC ) |
|
./eesupp/src/ini_procs.F |
241 |
INI_PROCS |
mpiGridSpec(1) = mpiPx |
|
./eesupp/src/ini_procs.F |
242 |
INI_PROCS |
mpiGridSpec(2) = mpiPy-1 |
|
./eesupp/src/ini_procs.F |
244 |
INI_PROCS |
& .AND. mpiGridSpec(2) .LT. 0 ) |
|
./eesupp/src/ini_procs.F |
245 |
INI_PROCS |
& mpiGridSpec(2) = nPy - 1 |
|
./eesupp/src/ini_procs.F |
246 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidS , mpiRC ) |
|
./eesupp/src/ini_procs.F |
256 |
INI_PROCS |
mpiGridSpec(1) = mpiPx |
|
./eesupp/src/ini_procs.F |
257 |
INI_PROCS |
mpiGridSpec(2) = mpiPy+1 |
|
./eesupp/src/ini_procs.F |
259 |
INI_PROCS |
& .AND. mpiGridSpec(2) .GT. nPy-1 ) |
|
./eesupp/src/ini_procs.F |
260 |
INI_PROCS |
& mpiGridSpec(2) = 0 |
|
./eesupp/src/ini_procs.F |
261 |
INI_PROCS |
CALL MPI_CART_RANK( mpiComm, mpiGridSpec, mpiPidN , mpiRC ) |
|
./eesupp/src/ini_procs.F |
52 |
INI_PROCS |
INTEGER mpiGridSpec(2) |