/[MITgcm]/MITgcm/pkg/exch2/w2_set_map_tiles.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/w2_set_map_tiles.F

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

revision 1.4 by jahn, Wed Oct 13 20:56:01 2010 UTC revision 1.5 by jmc, Sat Jul 9 21:53:35 2011 UTC
# Line 92  C--   Check that tile dims divide facet Line 92  C--   Check that tile dims divide facet
92          STOP 'ABNORMAL END: S/R W2_SET_MAP_TILES'          STOP 'ABNORMAL END: S/R W2_SET_MAP_TILES'
93        ENDIF        ENDIF
94  C--   Check that domain size and (SIZE.h + blankList) match:  C--   Check that domain size and (SIZE.h + blankList) match:
95        IF ( tCnt.NE.nTiles ) THEN        IF ( tCnt.NE.exch2_nTiles ) THEN
96          WRITE(msgBuf,'(A,I6,A)')          WRITE(msgBuf,'(A,I6,A)')
97       &   'W2_SET_MAP_TILES: Domain Total # of tiles =', tCnt, ' does'       &   'W2_SET_MAP_TILES: Domain Total # of tiles =', tCnt, ' does'
98          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
99          WRITE(msgBuf,'(A,I6)')          WRITE(msgBuf,'(A,I6)')
100       &   'W2_SET_MAP_TILES:  not match (SIZE.h+blankList)=', nTiles       &   'W2_SET_MAP_TILES:  not match (SIZE.h+blankList)=',exch2_nTiles
101          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
102          STOP 'ABNORMAL END: S/R W2_SET_MAP_TILES'          STOP 'ABNORMAL END: S/R W2_SET_MAP_TILES'
103        ENDIF        ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22