temporal Module

Uses

- phys_consts
- mpimod
- mesh
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Contents

Subroutines

dt_comm dt_calc

Subroutines

public subroutine dt_comm(t, tout, tglowout, flagglow, tcfl, ns, Ts, vs1, vs2, vs3, B1, B2, B3, x, potsolve, dt)

these are roots courant numbers

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	t
real(kind=wp),	intent(in)			::	tout
real(kind=wp),	intent(in)			::	tglowout
integer,	intent(in)			::	flagglow
real(kind=wp),	intent(in)			::	tcfl
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	ns
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	Ts
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	vs1
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	vs2
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	vs3
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:)	::	B1
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:)	::	B2
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:)	::	B3
type(curvmesh),	intent(in)			::	x
integer,	intent(in)			::	potsolve
real(kind=wp),	intent(out)			::	dt

private pure subroutine dt_calc(tcfl, ns, Ts, vs1, vs2, vs3, B1, B2, B3, dx1i, dx2i, dx3i, potsolve, cour1, cour2, cour3, dt)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	tcfl
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	ns
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	Ts
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	vs1
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	vs2
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:,:)	::	vs3
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:)	::	B1
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:)	::	B2
real(kind=wp),	intent(in),		dimension(-1:,-1:,-1:)	::	B3
real(kind=wp),	intent(in),		dimension(:,:,:)	::	dx1i
real(kind=wp),	intent(in),		dimension(:,:,:)	::	dx2i
real(kind=wp),	intent(in),		dimension(:,:,:)	::	dx3i
integer,	intent(in)			::	potsolve
real(kind=wp),	intent(out),		dimension(lsp)	::	cour1
real(kind=wp),	intent(out),		dimension(lsp)	::	cour2
real(kind=wp),	intent(out),		dimension(lsp)	::	cour3
real(kind=wp),	intent(out)			::	dt