FinTime = 1.0

TimeStep = 0.001

NumSteps = FinTime/TimeStep

IO_InfoSteps = 100

advx = 2.0

advy = 0.0

k = 2*PI

RungeKutta 4 u C[100] C[200] C[300] C[400]

100