diff options
-rw-r--r-- | src/InitialData.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/InitialData.c b/src/InitialData.c index 196b567..1ecc970 100644 --- a/src/InitialData.c +++ b/src/InitialData.c @@ -97,8 +97,12 @@ void IDScalarWaveC_InitialData(CCTK_ARGUMENTS) R = sqrt(X*X + Y*Y + Z*Z); phi[index] = amplitude*exp( - sqr( (R - radius) / sigma ) ); - phi_p[index] = amplitude*exp( - sqr( (R - radius - dt) / sigma ) ); + phi_p[index] = amplitude/2.0*(R-dt)/R* + exp( - sqr( (R - radius - dt)/ sigma ) ) + + amplitude/2.0*(R+dt)/R* + exp( - sqr( (R - radius + dt)/ sigma ) ) + ; } } } |