Go to the source code of this file.
|
program orbitingcylinders | |
|
subroutine makeconfig (Sim, config) | |
|
subroutine initdata (Timedisc, Mesh, Physics, Fluxes, Sources) | |
|
real function, dimension(mesh%igmin:mesh%igmax, mesh%jgmin:mesh%jgmax, mesh%kgmin:mesh%kgmax) rsq (Mesh, r, x) | |
|
elemental real function rsq1 (r, phi, r0, phi0) | |
|
◆ initdata()
subroutine orbitingcylinders::initdata |
( |
class(timedisc_base), intent(inout) |
Timedisc, |
|
|
class(mesh_base), intent(in) |
Mesh, |
|
|
class(physics_base), intent(inout) |
Physics, |
|
|
class(fluxes_base), intent(in) |
Fluxes, |
|
|
class(sources_list), intent(in), allocatable |
Sources |
|
) |
| |
Definition at line 344 of file orbitingcylinders.f90.
◆ makeconfig()
◆ orbitingcylinders()
◆ rsq()
real function, dimension(mesh%igmin:mesh%igmax,mesh%jgmin:mesh%jgmax,mesh%kgmin:mesh%kgmax) orbitingcylinders::rsq |
( |
class(mesh_base) |
Mesh, |
|
|
real, dimension(mesh%igmin:mesh%igmax,mesh%jgmin:mesh%jgmax,mesh%kgmin:mesh%kgmax) |
r, |
|
|
real, dimension(2), intent(in) |
x |
|
) |
| |
Definition at line 504 of file orbitingcylinders.f90.
◆ rsq1()
elemental real function orbitingcylinders::rsq1 |
( |
real, intent(in) |
r, |
|
|
real, intent(in) |
phi, |
|
|
real, intent(in) |
r0, |
|
|
real, intent(in) |
phi0 |
|
) |
| |
Definition at line 517 of file orbitingcylinders.f90.