/[MITgcm]/MITgcm/pkg/exch2/exch2_uv_bgrid_3d_rx.template
ViewVC logotype

Diff of /MITgcm/pkg/exch2/exch2_uv_bgrid_3d_rx.template

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

revision 1.2 by jmc, Fri Aug 17 18:17:45 2007 UTC revision 1.3 by jmc, Mon Aug 20 19:22:32 2007 UTC
# Line 322  C-       North-West corner Line 322  C-       North-West corner
322       &        exch2_isNedge(myTile) .EQ. 1 ) THEN       &        exch2_isNedge(myTile) .EQ. 1 ) THEN
323            IF ( MOD(myFace,2).EQ.1 ) THEN            IF ( MOD(myFace,2).EQ.1 ) THEN
324             DO k=1,myNz             DO k=1,myNz
325                uPhi(1,sNy+1,k,bi,bj) = uPhiNW(k,bi,bj)
326                vPhi(1,sNy+1,k,bi,bj) = vPhiNW(k,bi,bj)
327              DO i=2,OLx              DO i=2,OLx
328               uPhi(1,sNy+i,k,bi,bj) = vPhi(2-i,sNy+1,k,bi,bj)               uPhi(1,sNy+i,k,bi,bj) = vPhi(2-i,sNy+1,k,bi,bj)
329               vPhi(1,sNy+i,k,bi,bj) = uPhi(2-i,sNy+1,k,bi,bj)*negOne               vPhi(1,sNy+i,k,bi,bj) = uPhi(2-i,sNy+1,k,bi,bj)*negOne
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22