sim3d_utils Module

602 statements

Uses

- param
- mtrx
- iso_fortran_env
- epv
- fb

Functions

public function compress(amach, smach, ob) result(rsh)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	amach
real(kind=real64),	intent(in)			::	smach
real(kind=real64),	intent(in)			::	ob

Return Value real(kind=real64), (3)

public function solarwind1(r) result(vpl)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	r(3)

Return Value real(kind=real64), (3)

public function solarwindtemp(r) result(temp)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	r(3)

Return Value real(kind=real64)

Subroutines

public subroutine drvbmag(r1, b, bmag, cvtu, gbmag, bxgb2, dbbds, pol, b1rs, gb1rs)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	r1(3)
real(kind=real64),	intent(out)			::	b(3)
real(kind=real64),	intent(out)			::	bmag
real(kind=real64),	intent(out)			::	cvtu(3)
real(kind=real64),	intent(out)			::	gbmag(3)
real(kind=real64),	intent(out)			::	bxgb2(3)
real(kind=real64),	intent(out)			::	dbbds
real(kind=real64),	intent(out)			::	pol
real(kind=real64),	intent(out)			::	b1rs
real(kind=real64),	intent(out)			::	gb1rs(3)

public subroutine f0mod(r, pa, f0, df0, ddf0, df0dmu, ddf0dmu2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	r(3)
real(kind=real64),	intent(in)			::	pa
real(kind=real64),	intent(out)			::	f0
real(kind=real64),	intent(out)			::	df0(3)
real(kind=real64),	intent(out)			::	ddf0(3,3)
real(kind=real64),	intent(out)			::	df0dmu
real(kind=real64),	intent(out)			::	ddf0dmu2

public subroutine solarwind(r, vpl, gvpl, densw)

calculate solar wind velocity in the corotating frame and its gradient in spherical coordinate system

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	r(3)
real(kind=real64),	intent(out)			::	vpl(3)
real(kind=real64),	intent(out)			::	gvpl(3,3)
real(kind=real64),	intent(out)			::	densw

public recursive subroutine split(iseed, rpb, ck, fs, t, nsplvl, dnsk, bv0, flx, dflx, walk3d, nsts)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iseed
real(kind=real64),	intent(in)			::	rpb(5)
real(kind=real64),	intent(inout)			::	ck
real(kind=real64),	intent(inout)			::	fs
real(kind=real64),	intent(in)			::	t
integer,	intent(inout)			::	nsplvl
real(kind=real64),	intent(inout)			::	dnsk
real(kind=real64),	intent(inout)			::	bv0(3)
real(kind=real64),	intent(inout)			::	flx
real(kind=real64),	intent(inout)			::	dflx
real				::	walk3d
integer,	intent(in)			::	nsts

public subroutine vfunc(t, xpk, dxpkdt, du, gxw2, gxw3, bv0, densw, vpl, gper, b1s)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	t
real(kind=real64),	intent(in)			::	xpk(6)
real(kind=real64),	intent(out)			::	dxpkdt(6)
real(kind=real64)				::	du
real(kind=real64),	intent(out)			::	gxw2(3)
real(kind=real64),	intent(out)			::	gxw3(3)
real(kind=real64),	intent(out)			::	bv0(3)
real(kind=real64)				::	densw
real(kind=real64)				::	vpl(3)
real(kind=real64),	intent(out)			::	gper
real(kind=real64)				::	b1s