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

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

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

revision 1.6 by jmc, Thu May 6 23:28:46 2010 UTC revision 1.7 by jmc, Mon Mar 26 19:43:10 2012 UTC
# Line 89  C-     save 2 corners value (in case we Line 89  C-     save 2 corners value (in case we
89         CALL EXCH2_RX1_CUBE( phi, .FALSE., 'T ',         CALL EXCH2_RX1_CUBE( phi, .FALSE., 'T ',
90       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
91       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
92       I            EXCH_UPDATE_CORNERS, myThid )       I            EXCH_IGNORE_CORNERS, myThid )
93         CALL EXCH2_RX1_CUBE( phi, .FALSE., 'T ',         CALL EXCH2_RX1_CUBE( phi, .FALSE., 'T ',
94       I            OLw, OLe, OLs, OLn, myNz,       I            OLw, OLe, OLs, OLn, myNz,
95       I            exchWidthX, exchWidthY,       I            exchWidthX, exchWidthY,
# Line 108  C---     Face 2,4,6: Line 108  C---     Face 2,4,6:
108  C--      East edge : shift j <- j-1  C--      East edge : shift j <- j-1
109            IF ( exch2_isEedge(myTile) .EQ. 1 ) THEN            IF ( exch2_isEedge(myTile) .EQ. 1 ) THEN
110             DO k=1,myNz             DO k=1,myNz
111              DO j=sNy+OLy,2-Oly,-1              DO j=sNy+OLy,2-OLy,-1
112               DO i=sNx+1,sNx+OLx               DO i=sNx+1,sNx+OLx
113                 phi(i,j,k,bi,bj)=phi(i,j-1,k,bi,bj)                 phi(i,j,k,bi,bj)=phi(i,j-1,k,bi,bj)
114               ENDDO               ENDDO
# Line 135  C--      South edge : shift i <- i-1 Line 135  C--      South edge : shift i <- i-1
135            IF ( exch2_isSedge(myTile) .EQ. 1 ) THEN            IF ( exch2_isSedge(myTile) .EQ. 1 ) THEN
136             DO k=1,myNz             DO k=1,myNz
137              DO j=1-OLy,0              DO j=1-OLy,0
138               DO i=sNx+OLx,2-Olx,-1               DO i=sNx+OLx,2-OLx,-1
139                 phi(i,j,k,bi,bj)=phi(i-1,j,k,bi,bj)                 phi(i,j,k,bi,bj)=phi(i-1,j,k,bi,bj)
140               ENDDO               ENDDO
141              ENDDO              ENDDO
# Line 185  C--      North-west corner Line 185  C--      North-west corner
185                 phi(i,j,k,bi,bj)=e2FillValue_RX                 phi(i,j,k,bi,bj)=e2FillValue_RX
186                ENDDO                ENDDO
187               ENDDO               ENDDO
188               phi(1-Olx,sNy+1,k,bi,bj)=e2FillValue_RX               phi(1-OLx,sNy+1,k,bi,bj)=e2FillValue_RX
189  #endif  #endif
190             ENDDO             ENDDO
191            ENDIF            ENDIF
# Line 196  C---     Face 1,3,5: Line 196  C---     Face 1,3,5:
196  C--      North edge : shift i <- i-1  C--      North edge : shift i <- i-1
197            IF ( exch2_isNedge(myTile) .EQ. 1 ) THEN            IF ( exch2_isNedge(myTile) .EQ. 1 ) THEN
198             DO k=1,myNz             DO k=1,myNz
199              DO j=sNy+1,sNy+Oly              DO j=sNy+1,sNy+OLy
200               DO i=sNx+OLx,2-Olx,-1               DO i=sNx+OLx,2-OLx,-1
201                 phi(i,j,k,bi,bj)=phi(i-1,j,k,bi,bj)                 phi(i,j,k,bi,bj)=phi(i-1,j,k,bi,bj)
202               ENDDO               ENDDO
203              ENDDO              ENDDO
# Line 222  C-       North-East corner Line 222  C-       North-East corner
222  C--      West edge : shift j <- j-1  C--      West edge : shift j <- j-1
223            IF ( exch2_isWedge(myTile) .EQ. 1 ) THEN            IF ( exch2_isWedge(myTile) .EQ. 1 ) THEN
224             DO k=1,myNz             DO k=1,myNz
225              DO j=sNy+OLy,2-Oly,-1              DO j=sNy+OLy,2-OLy,-1
226               DO i=1-Olx,0               DO i=1-OLx,0
227                 phi(i,j,k,bi,bj)=phi(i,j-1,k,bi,bj)                 phi(i,j,k,bi,bj)=phi(i,j-1,k,bi,bj)
228               ENDDO               ENDDO
229              ENDDO              ENDDO
# Line 275  C-       South-East corner Line 275  C-       South-East corner
275                 phi(i,j,k,bi,bj)=e2FillValue_RX                 phi(i,j,k,bi,bj)=e2FillValue_RX
276                ENDDO                ENDDO
277               ENDDO               ENDDO
278               phi(sNx+1,1-Oly,k,bi,bj)=e2FillValue_RX               phi(sNx+1,1-OLy,k,bi,bj)=e2FillValue_RX
279  #endif  #endif
280              ENDDO              ENDDO
281            ENDIF            ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22