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

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

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

revision 1.2 by adcroft, Tue Mar 14 20:28:12 2000 UTC revision 1.3 by adcroft, Fri Mar 24 19:24:02 2000 UTC
# Line 1216  C Line 1216  C
1216         farProc1 = northProc         farProc1 = northProc
1217         farProc2 = southProc         farProc2 = southProc
1218         IF ( farProc1 .NE. myProcId ) THEN         IF ( farProc1 .NE. myProcId ) THEN
1219          CALL JAM_EXCHANGE(farProc1,arr(1,sNy),arr(1,sNy+1),sNx*8,jam_exchKey)          CALL JAM_EXCHANGE(farProc1,arr(1,sNy),arr(1,sNy+1),
1220         &                    sNx*8,jam_exchKey)
1221          jam_exchKey = jam_exchKey+1          jam_exchKey = jam_exchKey+1
1222         ENDIF         ENDIF
1223     10  CONTINUE     10  CONTINUE
# Line 1250  C Line 1251  C
1251           GOTO 20           GOTO 20
1252     21  CONTINUE     21  CONTINUE
1253         IF ( farProc2 .NE. myProcId ) THEN         IF ( farProc2 .NE. myProcId ) THEN
1254          CALL JAM_EXCHANGE(farProc2,arr(1,sNy),arr(1,sNy+1),sNx*8,jam_exchKey)          CALL JAM_EXCHANGE(farProc2,arr(1,sNy),arr(1,sNy+1),
1255         &                    sNx*8,jam_exchKey)
1256          jam_exchKey = jam_exchKey+1          jam_exchKey = jam_exchKey+1
1257         ENDIF         ENDIF
1258         CALL JAM_EXCHANGE_MARK         CALL JAM_EXCHANGE_MARK
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22