gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EVOLUTION, GLM-MHD: update Psi after all RK substeps.

Browse Source 
- the scalar potential is updated after each Runge-Kutta substep now;
This commit is contained in:
Grzegorz Kowal 2010-12-01 15:23:27 -02:00
parent c08cf9e98b
commit c65688aaf4
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/evolution.F90
View File

@ -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 */