/[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.4 by jmc, Tue May 12 19:44:58 2009 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_SIZE.h"
40  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
41    #ifdef W2_FILL_NULL_REGIONS
42  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
43    #endif
44    
45  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
46  C     == Argument list variables ==  C     == Argument list variables ==
# Line 322  C-       North-West corner Line 325  C-       North-West corner
325       &        exch2_isNedge(myTile) .EQ. 1 ) THEN       &        exch2_isNedge(myTile) .EQ. 1 ) THEN
326            IF ( MOD(myFace,2).EQ.1 ) THEN            IF ( MOD(myFace,2).EQ.1 ) THEN
327             DO k=1,myNz             DO k=1,myNz
328                uPhi(1,sNy+1,k,bi,bj) = uPhiNW(k,bi,bj)
329                vPhi(1,sNy+1,k,bi,bj) = vPhiNW(k,bi,bj)
330              DO i=2,OLx              DO i=2,OLx
331               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)
332               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.4
  ViewVC Help
Powered by ViewVC 1.1.22