/[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.5 by cnh, Mon Nov 7 18:21:11 2005 UTC
# Line 96  C      I,J,K,bi,bj       :: Loop counter Line 96  C      I,J,K,bi,bj       :: Loop counter
96         INTEGER I,J,K,bi,bj         INTEGER I,J,K,bi,bj
97  CEOP  CEOP
98    
99           _BARRIER
100    
101         theSimulationMode = simulationMode         theSimulationMode = simulationMode
102         theCornerMode     = cornerMode         theCornerMode     = cornerMode
103    
# Line 193  C--     not active). Line 195  C--     not active).
195       I             exchWidthX, exchWidthY,       I             exchWidthX, exchWidthY,
196       I             theSimulationMode, theCornerMode, myThid )       I             theSimulationMode, theCornerMode, myThid )
197         ENDIF         ENDIF
198  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
199  C      In this case a forward mode exchange simply sets array to  C      In this case a forward mode exchange simply sets array to
200  C      the i=1 value for all i.  C      the i=1 value for all i.
201         IF ( sNx .EQ. 1 ) THEN         IF ( Nx .EQ. 1 ) THEN
202            DO bj=myByLo(myThid),myByHi(myThid)
203             DO bi=myBxLo(myThid),myBxHi(myThid)
204              DO K = 1,myNz
205               DO J = 1-myOLs,sNy+myOLn
206                DO I = 1-myOLw,sNx+myOLe
207                 array(I,J,K,bi,bj) = array(1,J,K,bi,bj)
208                ENDDO
209               ENDDO
210              ENDDO
211             ENDDO
212            ENDDO
213           ENDIF
214    C      Special case for X-slice domain i.e. case where Ny == 1
215    C      In this case a forward mode exchange simply sets array to
216    C      the j=1 value for all j.
217           IF ( Ny .EQ. 1 ) THEN
218          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
219           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
220            DO K = 1,myNz            DO K = 1,myNz
221             DO J = 1-myOLs,sNy+myOLn             DO J = 1-myOLs,sNy+myOLn
222              DO I = 1-myOLw,sNx+myOLe              DO I = 1-myOLw,sNx+myOLe
223               array(I,J,K,bi,bj) = array(sNx,J,K,bi,bj)               array(I,J,K,bi,bj) = array(I,1,K,bi,bj)
224              ENDDO              ENDDO
225             ENDDO             ENDDO
226            ENDDO            ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22