An other Idea is:
MBE = {
D[a[t, x], t] == -a[t, x] + d1[t, x] c0[t, x] -
d0[t, x] c1[t, x],
D[b[t, x], t] == a[t, x] - b[t, x] -
d1[t, x] c0[t, x] + d0[t, x] c1[t, x],
D[c0[t, x], t] ==
c0[t, x] + (a[t, x] - b[t, x]) d1[t, x],
D[c1[t, x], t] ==
c1[t, x] + (a[t, x] - b[t, x]) d0[t, x],
D[d0[t, x], x] == - c1[t, x],
D[d1[t, x], x] == c0[t, x],
a[t, 0] == 0, b[t, 0] == 0, c0[t, 0] == 0, c1[t, 0] == 0,
d0[t, 0] == 10^1, d1[t, 0] == 0,
a[0, x] == 0, b[0, x] == 0, c0[0, x] == 0, c1[0, x] == 0,
d0[0, x] == 10^1, d1[0, x] == 0};
solutionMBE =
NDSolve[MBE, {a, b, c0, d0, c1, d1}, {t, 0,
3}, {x, 0, 20}]
with c=c0+I c1 and d=d0+I d0. Now the equations are real.
In this system of equations I get the Error massages:
NDSolve::pdord: Some of the functions have zero differential order, so the equations will be solved as a system of differential-algebraic equations.
and
NDSolve::ndcf: Repeated convergence test failure at t == 0.`; unable to continue.
What is now the problem of this system?