193 |
I exchWidthX, exchWidthY, |
I exchWidthX, exchWidthY, |
194 |
I theSimulationMode, theCornerMode, myThid ) |
I theSimulationMode, theCornerMode, myThid ) |
195 |
ENDIF |
ENDIF |
196 |
C Special case for zonal average model i.e. case where sNx == 1 |
C Special case for zonal average model i.e. case where Nx == 1 |
197 |
C In this case a forward mode exchange simply sets array to |
C In this case a forward mode exchange simply sets array to |
198 |
C the i=1 value for all i. |
C the i=1 value for all i. |
199 |
IF ( sNx .EQ. 1 ) THEN |
IF ( Nx .EQ. 1 ) THEN |
200 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
201 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
202 |
DO K = 1,myNz |
DO K = 1,myNz |
203 |
DO J = 1-myOLs,sNy+myOLn |
DO J = 1-myOLs,sNy+myOLn |
204 |
DO I = 1-myOLw,sNx+myOLe |
DO I = 1-myOLw,sNx+myOLe |
205 |
array(I,J,K,bi,bj) = array(sNx,J,K,bi,bj) |
array(I,J,K,bi,bj) = array(1,J,K,bi,bj) |
206 |
|
ENDDO |
207 |
|
ENDDO |
208 |
|
ENDDO |
209 |
|
ENDDO |
210 |
|
ENDDO |
211 |
|
ENDIF |
212 |
|
C Special case for X-slice domain i.e. case where Ny == 1 |
213 |
|
C In this case a forward mode exchange simply sets array to |
214 |
|
C the j=1 value for all j. |
215 |
|
IF ( Ny .EQ. 1 ) THEN |
216 |
|
DO bj=myByLo(myThid),myByHi(myThid) |
217 |
|
DO bi=myBxLo(myThid),myBxHi(myThid) |
218 |
|
DO K = 1,myNz |
219 |
|
DO J = 1-myOLs,sNy+myOLn |
220 |
|
DO I = 1-myOLw,sNx+myOLe |
221 |
|
array(I,J,K,bi,bj) = array(I,1,K,bi,bj) |
222 |
ENDDO |
ENDDO |
223 |
ENDDO |
ENDDO |
224 |
ENDDO |
ENDDO |