& flux_bdry_val_WEST, flux_bdry_val_EAST
_RL flux_bdry_val_WEST, flux_bdry_val_EAST
CALL WRITE_0D_RL( flux_bdry_val_WEST, INDEX_NONE,
u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_WEST
& flux_bdry_val_WEST, flux_bdry_val_EAST,
flux_bdry_val_WEST = 0.