In set_data.F about line 1044...
# ifdef DISTRIBUTE
CALL mp_exchange3d (ng, iNLM, 2, Istr, Iend, Jstr, Jend, &
& LBi, UBi, LBj, UBj, &
& NghostPoints, EWperiodic, NSperiodic, &
& OBS(ng)%EobsT(:,:,:,itemp), &
& OBS(ng)%Tobs(:,:,:,itemp))
# endif
is something missing after UBj (possibly , 1,N(ng))?
this is from the June 2007 version of ROMS.