67 |
numberOfProcs = jam_np |
numberOfProcs = jam_np |
68 |
myProcId = jam_pid |
myProcId = jam_pid |
69 |
|
|
70 |
|
#ifdef JAM_WITH_TWO_PROCS_PER_NODE |
71 |
|
C The following fixes the instance where MPI and |
72 |
|
C James JAM arrive at a different id for this process |
73 |
|
C *note* this assumes nPx=1 (no parallization in X) |
74 |
|
myPid = jam_pid |
75 |
|
pidN = mod(jam_pid+1,jam_np) |
76 |
|
pidS = mod(jam_pid-1+jam_np,jam_np) |
77 |
|
pidW = jam_pid |
78 |
|
pidE = jam_pid |
79 |
|
myYGlobalLo = sNy*nSy*jam_pid+1 |
80 |
|
myXGlobalLo = 1 |
81 |
|
#endif |
82 |
|
|
83 |
#endif |
#endif |
84 |
#endif /* LETS_MAKE_JAM */ |
#endif /* LETS_MAKE_JAM */ |
85 |
|
|