do k=1,vec_loc_length
& vec_loc_length, vec_loc , bi,bj, myThid)
integer vec_loc_length, vNb, k, kk, kkk,bi,bj
_RL vec_loc(vec_loc_length)
vec_count(1)=vec_loc_length