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 |