Solve a large system of partial differential equations?

I am trying to solve a really horrible system of equations. I did it successfully for case with discretization on 4 parts, now I tried to do the same for case of discretization on 10 parts and… well, nothings seems to work.

NDSolve[]

simply… doesn’t do anything.
I attached my whole code in a mathematica file simply because the differential equations are very very long and rather complicated - I don’t want to spam the whole post with an unreadable equations.

I highly appreciate all the help! I am bit lost here.

I was notified, that I attached a wrong file. :slight_smile: That is true. the attached file was wrong.