/[MITgcm]/MITgcm/eesupp/src/ini_jam.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/ini_jam.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by adcroft, Fri Mar 24 18:51:56 2000 UTC revision 1.3 by adcroft, Wed Apr 5 14:52:27 2000 UTC
# Line 67  C     Set up connectivity Line 67  C     Set up connectivity
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    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22