/[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.4 by jmc, Tue May 12 19:44:58 2009 UTC
# Line 36  C     !USES: Line 36  C     !USES:
36  #include "SIZE.h"  #include "SIZE.h"
37  #include "EEPARAMS.h"  #include "EEPARAMS.h"
38  c#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.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22