cwpearson/astaroth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed gravitational force inputs.

Browse Source
This commit is contained in:
JackHsu
2019-07-30 13:46:05 +08:00
parent 15ad7182db
commit 5361ee5706
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
acc/mhd_solver/stencil_process.sps
View File

@@ -61,9 +61,9 @@ continuity(in Vector uu, in Scalar lnrho) {
} }
#if LSINK #if LSINK
//first attempt to do a self-containing LSINK module
Vector Vector
gravity() { sink_gravity() {
vector force_gravity; vector force_gravity;
const Vector grid_pos = (Vector){(globalVertexIdx.x - nx_min) * dsx, const Vector grid_pos = (Vector){(globalVertexIdx.x - nx_min) * dsx,
(globalVertexIdx.y - ny_min) * dsy, (globalVertexIdx.y - ny_min) * dsy,
@@ -75,7 +75,7 @@ gravity() {
const Scalar distance = length(grid_pos - sink_pos); const Scalar distance = length(grid_pos - sink_pos);
force_gravity = (6.67e-8 * sink_mass) / (distance * distance); force_gravity = (6.67e-8 * sink_mass) / (distance * distance);
return force_gravity; return force_gravity;
}//first attempt to do a self-containing LSINK module }
#if LENTROPY #if LENTROPY
Vector Vector
@@ -98,6 +98,9 @@ momentum(in Vector uu, in Scalar lnrho, in Scalar ss, in Vector aa) {
+ Scalar(2.) * mul(S, gradient(lnrho)) + Scalar(2.) * mul(S, gradient(lnrho))
) )
+ zeta * gradient_of_divergence(uu); + zeta * gradient_of_divergence(uu);
#if LSINK
mom = mom + sink_gravity();
#endif
return mom; return mom;
} }
#elif LTEMPERATURE #elif LTEMPERATURE
@@ -116,7 +119,7 @@ momentum(in Vector uu, in Scalar lnrho, in Scalar tt) {
Scalar(2.) * mul(S, gradient(lnrho))) + zeta * gradient_of_divergence(uu); Scalar(2.) * mul(S, gradient(lnrho))) + zeta * gradient_of_divergence(uu);
#if LSINK #if LSINK
mom = mom - (Vector){force_gravity}; mom = mom + sink_gravity();
#endif #endif
return mom; return mom;
@@ -136,9 +139,9 @@ momentum(in Vector uu, in Scalar lnrho) {
(laplace_vec(uu) + Scalar(1. / 3.) * gradient_of_divergence(uu) + (laplace_vec(uu) + Scalar(1. / 3.) * gradient_of_divergence(uu) +
Scalar(2.) * mul(S, gradient(lnrho))) + zeta * gradient_of_divergence(uu); Scalar(2.) * mul(S, gradient(lnrho))) + zeta * gradient_of_divergence(uu);
#if LSINK #if LSINK
mom = mom - (Vector){force_gravity}; mom = mom + sink_gravity();
#endif #endif
return mom; return mom;
} }