/[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.1 by adcroft, Tue Mar 14 16:10:23 2000 UTC revision 1.3 by adcroft, Wed Apr 5 14:52:27 2000 UTC
# Line 24  C     == Global data == Line 24  C     == Global data ==
24  #endif  #endif
25    
26  C     == Local variables ==  C     == Local variables ==
27        REAL*8  dummyVal        Real*8  dummyVal
28        INTEGER rc        INTEGER rc
29        CHARACTER*(MAX_LEN_FNAM) fnam        CHARACTER*(MAX_LEN_FNAM) fnam
30  #ifdef JAM_WITH_TWO_PROCS_PER_NODE  #ifdef JAM_WITH_TWO_PROCS_PER_NODE
# 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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22