/[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.4 by cnh, Sun Feb 4 14:38:43 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
# Line 24  C     == Global data == Line 25  C     == Global data ==
25  #endif  #endif
26    
27  C     == Local variables ==  C     == Local variables ==
28        REAL*8  dummyVal        Real*8  dummyVal
29        INTEGER rc        INTEGER rc
30        CHARACTER*(MAX_LEN_FNAM) fnam        CHARACTER*(MAX_LEN_FNAM) fnam
31  #ifdef JAM_WITH_TWO_PROCS_PER_NODE  #ifdef JAM_WITH_TWO_PROCS_PER_NODE
# Line 67  C     Set up connectivity Line 68  C     Set up connectivity
68        numberOfProcs = jam_np        numberOfProcs = jam_np
69        myProcId      = jam_pid        myProcId      = jam_pid
70    
71    #ifdef JAM_WITH_TWO_PROCS_PER_NODE
72    C     The following fixes the instance where MPI and
73    C     James JAM arrive at a different id for this process
74    C     *note* this assumes nPx=1 (no parallization in X)
75          myPid         = jam_pid
76          pidN          = mod(jam_pid+1,jam_np)
77          pidS          = mod(jam_pid-1+jam_np,jam_np)
78          pidW          = jam_pid
79          pidE          = jam_pid
80          myYGlobalLo   = sNy*nSy*jam_pid+1
81          myXGlobalLo   = 1
82    #endif
83    
84  #endif  #endif
85  #endif /* LETS_MAKE_JAM */  #endif /* LETS_MAKE_JAM */
86    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22