EVOLUTION, GLM-MHD: update Psi after all RK substeps.
- the scalar potential is updated after each Runge-Kutta substep now;
This commit is contained in:
parent
c08cf9e98b
commit
c65688aaf4
@ -336,6 +336,11 @@ module evolution
|
|||||||
! update the solution for the scalar potential Psi
|
! update the solution for the scalar potential Psi
|
||||||
!
|
!
|
||||||
u1(iph,:,:,:) = pblock%u(iph,:,:,:) + ch2 * dt * du(iph,:,:,:)
|
u1(iph,:,:,:) = pblock%u(iph,:,:,:) + ch2 * dt * du(iph,:,:,:)
|
||||||
|
|
||||||
|
! evolve Psi due to the source term
|
||||||
|
!
|
||||||
|
decay = exp(- 0.5d0 * alpha_p * cmax * dt / dx_min)
|
||||||
|
u1(iph,:,:,:) = decay * u1(iph,:,:,:)
|
||||||
#endif /* GLM */
|
#endif /* GLM */
|
||||||
#endif /* MHD */
|
#endif /* MHD */
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user