/[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.1 by jmc, Wed Jul 25 21:11:47 2007 UTC revision 1.3 by jmc, Mon Aug 20 19:22:32 2007 UTC
# Line 35  C     !USES: Line 35  C     !USES:
35    
36  #include "SIZE.h"  #include "SIZE.h"
37  #include "EEPARAMS.h"  #include "EEPARAMS.h"
38  #include "EESUPPORT.h"  c#include "EESUPPORT.h"
39  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
40  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
41    
# 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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22