pringle.f90 File Reference
Go to the source code of this file.
Functions/Subroutines | |
| program | pringle_test |
| subroutine | makeconfig (Sim, config) |
| subroutine | initdata (Sim, Mesh, Physics, Timedisc) |
| subroutine | viscousring_approx (mu, tau, r, Sigma, vr) |
| subroutine | viscousring_analytic (mu, tau, r, Sigma, vr) |
| real function | modified_bessel_inu (nu, x) |
Function/Subroutine Documentation
◆ initdata()
| subroutine pringle_test::initdata | ( | class(fosite), intent(inout) | Sim, |
| class(mesh_base), intent(in) | Mesh, | ||
| class(physics_base), intent(in) | Physics, | ||
| class(timedisc_base), intent(inout) | Timedisc | ||
| ) |
Definition at line 383 of file pringle.f90.
◆ makeconfig()
| subroutine pringle_test::makeconfig | ( | class(fosite), intent(inout) | Sim, |
| type(dict_typ), pointer | config | ||
| ) |
Definition at line 214 of file pringle.f90.
◆ modified_bessel_inu()
| real function pringle_test::modified_bessel_inu | ( | real, intent(in) | nu, |
| real, intent(in) | x | ||
| ) |
Definition at line 559 of file pringle.f90.
◆ pringle_test()
| program pringle_test | ( | ) |
- Test:
- Jim Pringles famous viscous spreading ring solution
The equations are solved in non-dimensional units, using the Keplerian velocity at the location of the initial ring at R=1 as the velocity scale.
References:
- [lynden1974] Lynden-Bell, D. & Pringle, J. E. Evolution of Viscous Disks and Origin of Nebular Variables, M.N.R.A.S vol. 168(3) (1974) pp. 603-637 http://adsabs.harvard.edu/abs/1974MNRAS.168..603L
- [pringle1981] Pringle, J. E. Accretion discs in astrophysics Annual review of astronomy and astrophysics. vol. 19 (1981) pp. 137-162 DOI: 10.1146/annurev.aa.19.090181.001033
- [speith2003] Speith, R. and Kley, W. Stability of the viscously spreading ring Astron. Astrophys. vol. 399 (2003), pp. 395-407 DOI: 10.1051/0004-6361:20021783
- Warning
- compile with autodouble
Definition at line 48 of file pringle.f90.
◆ viscousring_analytic()
| subroutine pringle_test::viscousring_analytic | ( | real, intent(in) | mu, |
| real, intent(in) | tau, | ||
| real, intent(in) | r, | ||
| real, intent(out) | Sigma, | ||
| real, intent(out) | vr | ||
| ) |
Definition at line 540 of file pringle.f90.
◆ viscousring_approx()
| subroutine pringle_test::viscousring_approx | ( | real, intent(in) | mu, |
| real, intent(in) | tau, | ||
| real, intent(in) | r, | ||
| real, intent(out) | Sigma, | ||
| real, intent(out) | vr | ||
| ) |
Definition at line 521 of file pringle.f90.
