& u_bdry_values_SI_base,
_RL u_bdry_values_SI_base
& u_bdry_values_SI_base(i,j,bi,bj) *
& u_bdry_values_SI_base, 0, myThid )
& u_bdry_values_SI_base (i,j,bi,bj)