/[MITgcm]/MITgcm_contrib/high_res_cube/code-mods/w2_eeboot.F
ViewVC logotype

Diff of /MITgcm_contrib/high_res_cube/code-mods/w2_eeboot.F

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

revision 1.1.1.1 by cnh, Tue Nov 11 18:08:07 2003 UTC revision 1.3 by dimitri, Fri Feb 6 21:12:01 2004 UTC
# Line 110  C     functiional relationship that was Line 110  C     functiional relationship that was
110        ENDDO        ENDDO
111    
112        WRITE(msgBuffer,'(A)') '===== W2 TILE TOPLOGY ====='        WRITE(msgBuffer,'(A)') '===== W2 TILE TOPLOGY ====='
113        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_BOTH,myThid)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
114         &     SQUEEZE_BOTH,myThid)
115        DO I=1,nSx        DO I=1,nSx
116         myTileId = W2_myTileList(I)         myTileId = W2_myTileList(I)
117         WRITE(msgBuffer,'(A,I4)') ' TILE: ', myTileId         WRITE(msgBuffer,'(A,I4)') ' TILE: ', myTileId
118         CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThid)         CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
119         &      SQUEEZE_RIGHT,myThid)
120         DO J=1,exch2_nNeighbours(myTileId)         DO J=1,exch2_nNeighbours(myTileId)
121          commFlag = 'M'          commFlag = 'M'
122          DO II=1,nSx          DO II=1,nSx
# Line 126  C     functiional relationship that was Line 128  C     functiional relationship that was
128       &   '      NEIGHBOUR ',J,' = TILE ',       &   '      NEIGHBOUR ',J,' = TILE ',
129       &   exch2_neighbourId(J,myTileId), ' Comm = MSG',       &   exch2_neighbourId(J,myTileId), ' Comm = MSG',
130       &   ' ( PROC = ',exch2_tProc(exch2_neighbourId(J,myTileId)),')'       &   ' ( PROC = ',exch2_tProc(exch2_neighbourId(J,myTileId)),')'
131           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThid)           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
132         &        SQUEEZE_RIGHT,myThid)
133          ENDIF          ENDIF
134          IF ( commFlag .EQ. 'P' ) THEN          IF ( commFlag .EQ. 'P' ) THEN
135           WRITE(msgBuffer,'(A,I4,A,I4,A,A,I4,A)')           WRITE(msgBuffer,'(A,I4,A,I4,A,A,I4,A)')
136       &   '      NEIGHBOUR ',J,' = TILE ',       &   '      NEIGHBOUR ',J,' = TILE ',
137       &   exch2_neighbourId(J,myTileId), ' Comm = PUT',       &   exch2_neighbourId(J,myTileId), ' Comm = PUT',
138       &   ' ( PROC = ',exch2_tProc(exch2_neighbourId(J,myTileId)),')'       &   ' ( PROC = ',exch2_tProc(exch2_neighbourId(J,myTileId)),')'
139           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThid)           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
140         &        SQUEEZE_RIGHT,myThid)
141          ENDIF          ENDIF
142          W2_myCommFlag(J,I) = commFlag          W2_myCommFlag(J,I) = commFlag
143         ENDDO         ENDDO
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22