O uniq_tnum,
integer myThid, bi,bj, uniq_tnum
uniq_tnum = W2_myTileList(bi)
uniq_tnum = (jG - 1)*(nPx*nSx) + iG
integer uniq_tnum
ixoff = exch2_tbasex( uniq_tnum )
iyoff = exch2_tbasey( uniq_tnum )
I lbi, lbj, uniq_tnum,
integer myThid, indf, lbi, lbj, uniq_tnum
CALL MNC_CW_SET_GATTR(fname, lbi,lbj, uniq_tnum, myThid)