/[MITgcm]/MITgcm/eesupp/src/exch_z_rx_cube.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_z_rx_cube.template

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

revision 1.1.2.1 by adcroft, Wed Mar 28 19:48:52 2001 UTC revision 1.1.2.2 by adcroft, Tue Apr 3 02:36:54 2001 UTC
# Line 101  C     == Statement function == Line 101  C     == Statement function ==
101    
102         DO K = 1, myNz         DO K = 1, myNz
103          DO J = 1, sNy+1          DO J = 1, sNy+1
104           DO I = 1, exchWidthX-1           DO I = 0, exchWidthX-1
105    
106  C Tile Odd:Odd+2 [get] [North<-West]  C Tile Odd:Odd+2 [get] [North<-West]
107            array(J,sNy+I+1,K,bt,1) = array(I+1,sNy+2-J,K,bn,1)            array(J,sNy+I+1,K,bt,1) = array(I+1,sNy+2-J,K,bn,1)
 C Tile Odd:Odd-1 [get] [South<-North]  
           array(J,1-I,K,bt,1) = array(J,sNy+1-I,K,bs,1)  
108  C Tile Odd:Odd+1 [get] [East<-West]  C Tile Odd:Odd+1 [get] [East<-West]
109            array(sNx+I+1,J,K,bt,1) = array(I+1,J,K,be,1)            array(sNx+I+1,J,K,bt,1) = array(I+1,J,K,be,1)
110    
111    cs- these above loop should really have the same range the lower one
112             ENDDO
113             DO I = 1, exchWidthX-0
114    cs- but this replaces the missing I/O routines for now
115    
116    C Tile Odd:Odd-1 [get] [South<-North]
117              array(J,1-I,K,bt,1) = array(J,sNy+1-I,K,bs,1)
118  C Tile Odd:Odd-2 [get] [West<-North]  C Tile Odd:Odd-2 [get] [West<-North]
119            array(1-I,J,K,bt,1) = array(sNx+2-J,sNy+1-I,K,bw,1)            array(1-I,J,K,bt,1) = array(sNx+2-J,sNy+1-I,K,bw,1)
120    
# Line 124  C Tile Odd:Odd-2 [get] [West<-North] Line 130  C Tile Odd:Odd-2 [get] [West<-North]
130    
131         DO K = 1, myNz         DO K = 1, myNz
132          DO J = 1, sNy+1          DO J = 1, sNy+1
133           DO I = 1, exchWidthX-1           DO I = 0, exchWidthX-1
134    
135  C Tile Even:Even+1 [get] [North<-South]  C Tile Even:Even+1 [get] [North<-South]
136            array(J,sNy+I+1,K,bt,1) = array(J,I+1,K,bn,1)            array(J,sNy+I+1,K,bt,1) = array(J,I+1,K,bn,1)
 C Tile Even:Even-2 [get] [South<-East]  
           array(J,1-I,K,bt,1) = array(sNx+1-I,sNy+2-J,K,bs,1)  
137  C Tile Even:Even+2 [get] [East<-South]  C Tile Even:Even+2 [get] [East<-South]
138            array(sNx+I+1,J,K,bt,1) = array(sNx+2-J,I+1,K,be,1)            array(sNx+I+1,J,K,bt,1) = array(sNx+2-J,I+1,K,be,1)
139    
140    cs- these above loop should really have the same range the lower one
141             ENDDO
142             DO I = 1, exchWidthX-0
143    cs- but this replaces the missing I/O routines for now
144    
145    C Tile Even:Even-2 [get] [South<-East]
146              array(J,1-I,K,bt,1) = array(sNx+1-I,sNy+2-J,K,bs,1)
147  C Tile Even:Even-1 [get] [West<-East]  C Tile Even:Even-1 [get] [West<-East]
148            array(1-I,J,K,bt,1) = array(sNx+1-I,J,K,bw,1)            array(1-I,J,K,bt,1) = array(sNx+1-I,J,K,bw,1)
149    
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2
  ViewVC Help
Powered by ViewVC 1.1.22