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

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

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

revision 1.3 by cnh, Fri Sep 21 03:55:50 2001 UTC revision 1.4 by jmc, Tue Apr 30 22:48:20 2002 UTC
# Line 193  C--     not active). Line 193  C--     not active).
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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22