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, Sources)
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,
		class(sources_list), intent(in), allocatable	Sources
	)

Definition at line 381 of file pringle.f90.

Here is the call graph for this function:

makeconfig()

subroutine pringle_test::makeconfig	(	class(fosite), intent(inout)	Sim,
		type(dict_typ), pointer	config
	)

Definition at line 217 of file pringle.f90.

Here is the call graph for this function:

modified_bessel_inu()

real function pringle_test::modified_bessel_inu	(	real, intent(in)	nu,
		real, intent(in)	x
	)

Definition at line 572 of file pringle.f90.

Here is the caller graph for this function:

pringle_test()

program pringle_test

Test:

Jim Pringles famous viscous spreading ring solution

Author

Björn Sperling

Tobias Illenseer

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:

• [32] 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
• [42] 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
• [50] 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.

Here is the call graph for this function:

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 553 of file pringle.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

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 534 of file pringle.f90.

Here is the caller graph for this function: